Histórico da Página
...
Conteúdo:
U_TECTFLCN(CNA->CNA_FILIAL,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 #INCLUDE "PROTHEUS.CH"
User Function TECTFLCN(User Function TECTFLCN(cFil,cContrato,cRevis,cPlanilha,cCampo)
Local cQry Local cQry := ""
Local cRetorno Local cRetorno := ""
Local cAliasTFL Local cAliasTFL := GetNextAliasGetNextAlias()
cQry cQry := " SELECT SELECT "+cCampo+" AS CAMPO AS CAMPO "
cQry cQry += " FROM FROM "+RetSqlName("TFL")+" TFL TFL "
cQry cQry += " WHERE TFLWHERE TFL_CONTRT CONTRT = '"+cContrato+"'
cQry cQry += " AND TFLAND TFL_CONREV CONREV = '"+cRevis+"'
cQry cQry += " AND TFLAND TFL_PLAN PLAN = '"+cPlanilha+"'
cQry += " AND TFL cQry += " AND TFL_FILIAL = '"+cFil+"'
cQry += " AND TFL.D_E_L_E_T_ = '' "
cQry cQry := ChangeQueryChangeQuery(cQry)
dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQry),cAliasTFL,.T.,.T.)
cRetorno cRetorno := (cAliasTFL)->CAMPO
(cAliasTFL)->(dbCloseArea()) Return cRetorno
Return cRetorno
5 -) Após o preenchimento do campos clique Salvar.
...