Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

MA410COR - Alterar cores do cadastro do status do pedido 

Produto:

Protheus ADVPL

Versões:

P12

Ocorrência:

Houve Mudança com Ponto de Entrada MA410COR na versão P12 ?

Ambiente:

P12

Passo a passo:

Na Versão P12 o ponto de entrada MA410COR traz por paramixb 5 itens no array, sendo assim é necessário verificar o conteúdo da legenda para pode adicionar um novo item

Segue exemplo de customização na P12

#Include 'Protheus.ch'

User Function MA410COR()

Local aCores := {} // PARAMIXB traz a estrutura do array padrão

Alert("MA410COR")

aCores := {{ "!

aAdd(aCores, {"C5_TESTE == 'C'", "BR_PRETO", "Teste 01"})
aAdd(aCores, {"Empty(C5_LIBEROK).And.Empty(C5_NOTA) .And. Empty(C5_BLQ)",

'GREEN' , 'STR0264' },; //

"ENABLE", "Pedido em Aberto"})
aAdd(aCores, {"!Empty(C5_NOTA).Or.C5_LIBEROK=='E' .And. Empty(C5_BLQ)",

'RED' , 'STR0265' },; //Pedido Encerrado

"DISABLE", "Pedido Encerrado"})
aAdd(aCores, {"!Empty(C5_LIBEROK).And.Empty(C5_NOTA).And. Empty(C5_BLQ)",

'YELLOW' , 'STR0266' },; //Pedido Liberado

"BR_AMARELO", "Pedido Liberado"})
aAdd(aCores, {"C5_BLQ == '1'",

'BLUE' , 'STR0267' },; //Pedido Bloquedo por regra

"BR_AZUL""})
aAdd(aCores, {"C5_BLQ == '2'",

'ORANGE' , 'STR0268' },; //Pedido Bloquedo por verba
{ "C5_TIPO =='C'" , 'GRAY' , 'Teste' }}// seu item

"BR_LARANJA"})

Return aCores

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------

Exemplo do MA410LEG que é utilizado em conjunto .


#INCLUDE 'protheus.ch'

User Function MA410LEG()

Local aLegenda := PARAMIXB

aLegenda := {}

AADD(aLegenda,{"BR_PINK" ,"Pedido Bloqueado (Crédito Cliente)"})
AADD(aLegenda,{"BR_CANCEL" ,"Pedido Rejeitado (Regras Dipil)"})
AADD(aLegenda,{"BR_PRETO" ,"Pedido Bloqueado (Regras Dipil)"})
AADD(aLegenda,{"ENABLE" ,"Pedido de Venda em aberto"})
AADD(aLegenda,{"DISABLE" ,"Pedido de Venda encerrado"})
AADD(aLegenda,{"BR_AZUL" ,"Pedido Bloqueado por Regra"})
AADD(aLegenda,{"BR_LARANJA" ,"Pedido Bloqueado por Verba"})
AADD(aLegenda,{"BR_AMARELO" ,"Pedido de Venda liberado"})

Return(aLegenda)


OBS.:


  • Caso persista é necessário o debug do ponto, a nova condição deverá está na primeira posição.
  • Sugiro a compilação seja utilizado o TDS 11.2 ou 11.3
  • Lembrando que para inserir as legendas alé das cores existe o PE MA410LEG.

Return aCores

 

 


Observações: