Histórico da Página

...

5-) Incluir uma User Function no campo Inic. Padrao conforme exemplo abaixo:

Conteúdo:

U_EXICNATFLTECTFLCN(CNA->CNA_CONTRA,CNA->CNA_REVISA,CNA->CNA_NUMERO,'TFL_LOCAL')

Image RemovedImage Added

Para exibição do dado foi utilizada uma User function conforme modelo abaixo:

...

        #INCLUDE "PROTHEUS.CH"

        User Function EXICNATFLUser Function TECTFLCN(cContrato,cRevis,cPlanilha,cCampo)

        Local cQry        := ""
        Local cRetorno    := ""
        Local cAliasTFL   := GetNextAlias()

           cQry := " SELECT "+cCampo+" AS CAMPO "
           cQry += " FROM  "+RetSqlName("TFL")+" TFL "
           cQry += " WHERE TFL_CONTRT = '"+cContrato+"' 
           cQry += " AND  TFL_CONREV  = '"+cRevis+"' 
           cQry += " AND  TFL_PLAN    = '"+cPlanilha+"' 
           cQry += " AND  TFL.D_E_L_E_T_ = '' "
           cQry := ChangeQuery(cQry)
           dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQry),cAliasTFL,.T.,.T.)
           cRetorno := (cAliasTFL)->CAMPO

          (cAliasTFL)->(dbCloseArea())

        Return cRetorno

...