M461COR - Altera as cores dos status do “browse” dos pedidos para a Nota Fiscal de Saída

Características do Requisito

Ponto de Entrada

Exemplo:

#Include "protheus.ch"

User Function M461COR()

Local aCores := {} // Variável que conterá o retorno das novas regras para a aplicação nas legendas do browse da rotina

//****************************************************************************************************************************************************
//---- O ParamIXB recebeu a CONFIGURAÇÃO PADRÂO das legendas na forma de um array bidimensional
//ParamIXB := {{'Empty(SC9->C9_BLEST) .And. Empty(SC9->C9_BLCRED) .And. SC9->C9_BLWMS$"05,06,07, "','ENABLE'},; //Pedido de Venda Liberado
// {'SC9->C9_BLEST=="10" .And. SC9->C9_BLCRED=="10" .And. SC9->C9_BLWMS$"05,06,07, "','DISABLE'},; //Pedido de Venda Faturado
// {'!(Empty(SC9->C9_BLEST) .And. Empty(SC9->C9_BLCRED) .And. SC9->C9_BLWMS$"05,06,07, ")','BR_AZUL'}} //Pedido de Venda com bloqueio
//****************************************************************************************************************************************************

aCores := { {'Empty(SC9->C9_BLEST) .And. Empty(SC9->C9_BLCRED) .And. SC9->C9_BLWMS$"05,06,07, " .And. SC9->C9_MYFIELD == "1"','ENABLE'},;                           //A regra padrão 1 para os 'Pedidos de Venda Liberados' foi customizada (acrescentando o teste do campo customizado C9_MYFIELD=="1"). A legenda será exibida na cor VERDE.
                   {'SC9->C9_BLEST=="10" .And. SC9->C9_BLCRED=="10" .And. SC9->C9_BLWMS$"05,06,07, " .And. SC9->C9_MYFIELD == "1"','DISABLE'},;                             //A regra padrão 2 para os 'Pedido de Venda Faturado' foi customizada (acrescentando o teste do campo customizado C9_MYFIELD=="1"). A legenda será exibida na cor VERMELHA.
                   {'!(Empty(SC9->C9_BLEST) .And. Empty(SC9->C9_BLCRED) .And. SC9->C9_BLWMS$"05,06,07, ") .And. SC9->C9_MYFIELD == "1"','BR_AZUL'},;                     //A regra padrão 3 para os 'Pedido de Venda com bloqueio' foi customizada (acrescentando o teste do campo customizado C9_MYFIELD=="1"). A legenda será exibida na cor AZUL.
                   {'Empty(SC9->C9_BLEST) .And. Empty(SC9->C9_BLCRED) .And. SC9->C9_BLWMS$"05,06,07, " .And. SC9->C9_MYFIELD == "2"',"BR_PINK"},;                        //Nova regra para o 'Pedido de Venda Liberado' acrescido do campo customizado C9_MYFIELD=="2". A legenda será exibida na cor ROSA.
                   {'SC9->C9_BLEST=="10" .And. SC9->C9_BLCRED=="10" .And. SC9->C9_BLWMS$"05,06,07, " .And. SC9->C9_MYFIELD == "2"',"BR_AMARELO"},;                   //Nova regra para o 'Pedido de Venda Faturado' acrescido do campo customizado C9_MYFIELD=="2". A legenda será exibida na cor AMARELA.
                   {'!(Empty(SC9->C9_BLEST) .And. Empty(SC9->C9_BLCRED) .And. SC9->C9_BLWMS$"05,06,07, ") .And. SC9->C9_MYFIELD == "2"','BR_MARROM'}}               //Nova regra para o 'Pedido de Venda com bloqueio' acrescido do campo customizado C9_MYFIELD=="2". A legenda será exibida na cor MARROM.

Return aCores

Importante

1. A eventual customização das legendas passará pela aplicação das regras e critérios pré-estabelecidos pelas funcionalidades do Framework.;
2. É obrigatório que, no o array de retorno das  das regras customizadas devolvido à rotina padrão pelo ponto de entrada para a aplicação de cada legenda, contenha apenas uma das regras seja como válida. Isto porque, a cor da legenda de cada registro do browse obedecerá sempre à primeira regra válida encontrada. Por isso, verifique sempre se as a construção das regras customizadas realmente satisfazem a este princípio, caso contrário, a exibição de suas legendas podem pode não surtir o efeito esperado;
   
3. Ao criar as legendas customizadas, as funcionalidades padrões da rotina não serão modificadas.