Exemplo do Ponto de Entrada MA410COR.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"

/*-------------------------------------------------------------------------------------------------------*
 | P.E.:  MA410COR                                                                                       |
 | Desc:  Adiciona cores no browse de legenda                                                            |
 | Links: http://tdn.totvs.com/display/public/mp/MA410COR+-+Alterar+cores+do+cadastro+do+status+do+pedido|
 *-------------------------------------------------------------------------------------------------------*/

User Function MA410COR()
	Local aArea  := GetArea()
	Local aCores := ParamIXB
	Local nAtual := 0
	
	aAdd(aCores, {"(!Empty(C5_X_CAMPX)) .And. (Empty(C5_X_CAMPY))", 'BR_VIOLETA'})
	aAdd(aCores, {"(Empty(C5_X_CAMPX)) .And. (!Empty(C5_X_CAMPY))", 'BR_VERDE_ESCURO'})
	
	RestArea(aArea)
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;

Links:

– Pesquisa no TDN