Produto:

Protheus ADVPL

Ocorrência:

Houve Mudança com Ponto de Entrada MA410COR na versão 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

User Function MA410COR()

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

Alert("MA410COR")

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

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

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

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

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

"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.