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;