💡 Se gostou deste conteúdo, compartilhe com quem precisa
Olá pessoal! Segue um ponto de entrada que, primeiramente, parece simples. Mas pode melhorar (e muito) algumas questões de organização na tela de pedido de vendas MATA410. Como incluir ou alterar a legenda?
Criar campos de controle extras no pedido de vendas é uma prática interessante, onde os usuários-chave podem ter uma forma cada vez mais visual de saber em que parte o pedido está. Além, é claro, dos procedimentos normais de liberação de crédito/estoque
Veja também Bloqueio de Crédito Protheus
Então segue o P.E. que altera a legenda…
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
User Function MA410COR() Local aCores := PARAMIXB aAdd(aCores,{"Empty(C5_LIBEROK).And.Empty(C5_NOTA) .And. Empty(C5_BLQ) .And. C5_X_CONF = 'S'",'ENABLE','Pedido em Aberto' }) //Pedido em Aberto aAdd(aCores,{"!Empty(C5_NOTA).Or.C5_LIBEROK=='E' .And. Empty(C5_BLQ)" ,'DISABLE','Pedido Encerrado'}) //Pedido Encerrado aAdd(aCores,{"!Empty(C5_LIBEROK).And.Empty(C5_NOTA).And. Empty(C5_BLQ)",'BR_AMARELO','TESTE'}) aAdd(aCores,{"C5_BLQ == '1'",'BR_AZUL','Pedido Bloquedo por regra'}) //Pedido Bloquedo por regra aAdd(aCores,{"C5_BLQ == '2'",'BR_LARANJA','Pedido Bloquedo por verba'}) //Pedido Bloquedo por verba aAdd(aCores,{'C5_X_CAMPO="N"','BR_PINK','Descrição do novo status'}) // Pedido "Novo STATUS" return( aCores ) User Function MA410LEG() Local aLegNew := ParamIXB AADD( aLegNew, {"BR_PINK","Descrição do novo status"} ) Return( aLegNew ) |
