Histórico da Página

User Function TECTFLCN(cFil,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_FILIAL = '"+cFil+"'

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