Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagesql
titleExemplo do P.E. MNTA7003MNTC7902
linenumberstrue
#INCLUDE "PROTHEUS.CH" 

//---------------------------------------------------------------------
/*/{Protheus.doc} MNTC7902
Ponto de entrada para adição de legenda no Browse
 
/*/
//---------------------------------------------------------------------
User Function MNTC7902()

Local aCores := {} 

    aAdd(aCores,{"STJ->TJ_DTMRFIM >=  dDataBase" , "BR_VERMELHO" })
    aAdd(aCores,{"STJ->TJ_DTMRFIM < dDataBase", "BR_VERDE" })

Return aCores