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')
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
...