Altera as cores da rotina de Legenda na Preparação do Documento de Saída (MATA461)

Exemplo da Rotina:

User Function M461LEG()
	//...
Return aCores

Exemplo 1- Altera a cor da legenda da NF de Saída:

/* Bibliotecas */
#Include 'Protheus.ch'
 
/*/{Protheus.doc} M461LEG
Ponto de Entrada para alterar a cor da legenda da Nota Fiscal de Saída (Documento de Saída)
@author Caio César Henrique
@since 30/05/2019
@version 1.0
@type function
@example U_M461LEG()
@obs Caso altere a cor, usar este P.E juntamente com o M461COR para atualização da cor do Browse
/*/
 
User Function M461LEG()
 
    /* Variáveis Locais */
    Local aArea  := GetArea()
    Local nFind  := 0
   
    /* Conteúdo do PARAMIXB
        - Tipo: Array
        - Posições: 2
        - aArray[x][1] - Cor selecionada (via Resource)
        - aArray[x][2] - Texto padrão da Legenda
    */
    Local aCores := PARAMIXB
   
    /* Busco a cor de status Azul */
    nFind := aScan( aCores, {|x| Alltrim(x[1]) == "BR_AZUL" } )
   
    /* Se encontrada, altero para Amarelo */
    If nFind > 0
       aCores[nFind][1] := "BR_AMARELO"
    EndIf
   
    /* Restaura área de trabalho */
    RestArea(aArea)
 
/* Retorno novo conjunto para o padrão */ 
Return ( aCores )

Observações:

• Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
• Se tiver sugestões de rotinas, pode entrar em contato;
• Função e documentação enviada por Caio Henrique;

Referências:

• TDN