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 ) |
Fernando Bueno
Consultor em FBSOLUTIONS
Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.
Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.
Siga-me no Linked In
Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.
Siga-me no Linked In