M461COR - Alteração das cores dos status do browse da Preparação do Documento de Saída

Características do Requisito

Ponto de Entrada

Exemplo:

#Include "protheus.ch"

User Function M461COR()

Local aNewLegend := {} // 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 das CONFIGURAÇÃOREGRAS PADRÂOPADRÕES 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 (Configuração da regra padrão)
//              {'SC9->C9_BLEST=="10" .And. SC9->C9_BLCRED=="10" .And. SC9->C9_BLWMS$"05,06,07, "',      "DISABLE"},; // Pedido de Venda Faturado (Configuração da regra padrão)
//              {'!(Empty(SC9->C9_BLEST) .And. Empty(SC9->C9_BLCRED) .And. SC9->C9_BLWMS$"05,06,07, ")', "BR_AZUL"}}  // Pedido de Venda com bloqueio (Configuração da regra padrão)
//****************************************************************************************************************************************************

aCoresaNewLegend := {{ParamIXB[01,01] + ' .And. SC9->C9_MYFIELD == "1"', ParamIXB[01,02]},;   // A regra padrão 1 para os 'Pedidos de Venda Liberados' foi modificada, acrescentando o teste do campo customizado C9_MYFIELD=="1". O seu status continuará seráa ser representado na legenda da cor VERDE.
               {ParamIXB[02,01] + ' .And. SC9->C9_MYFIELD == "1"', ParamIXB[02,02]},;   // A regra padrão 2 para os 'Pedidos de Venda Faturados' foi modificada, acrescentando o teste do campo customizado C9_MYFIELD=="1". O seu status continuará a seráser representado na legenda da cor VERMELHA.
               {ParamIXB[03,01] + ' .And. SC9->C9_MYFIELD == "1"', ParamIXB[03,02]},;   // A regra padrão 3 para os 'Pedidos de Venda com bloqueio' foi modificada, acrescentando o teste do campo customizado C9_MYFIELD=="1". O seu status continuará seráa ser representado na legenda da cor AZUL.
               {ParamIXB[01,01] + ' .And. SC9->C9_MYFIELD == "2"', "BR_PINK"},;         // Nova regra para os 'Pedidos de Venda Liberados' acrescido do teste do campo customizado C9_MYFIELD=="2". O seu status será representado na legenda da cor ROSA.
               {ParamIXB[02,01] + ' .And. SC9->C9_MYFIELD == "2"', "BR_AMARELO"},;      // Nova regra para os 'Pedidos de Venda Faturados' acrescido do teste do do campo customizado C9_MYFIELD=="2". O seu status será representado na legenda da cor AMARELA.
               {ParamIXB[03,01] + ' .And. SC9->C9_MYFIELD == "2"', "BR_MARROM"}}        // Nova regra para os 'Pedidos de Venda com bloqueio' acrescido do teste do do campo customizado C9_MYFIELD=="2". O seu status será representado na legenda da cor MARROM.

Return aCoresaNewLegend

Exemplificação do Resultado

Image Added

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, o array das regras customizadas devolvido à rotina padrão pelo ponto de entrada para a aplicação de cada legenda, contenha apenas uma das regras 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 a construção das regras customizadas realmente satisfazem a este princípio, caso contrário, a exibição de suas legendas pode não surtir o efeito esperado;
   
3. Ao criar as legendas customizadas, as funcionalidades padrões da rotina não serão modificadas.