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. 

...