Histórico da Página
...
Para exibição do dado foi utilizada uma User function conforme modelo abaixo:
Bloco de código | ||
---|---|---|
| ||
#INCLUDE "PROTHEUS.CH" |
...
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 |
5 -) Após o preenchimento do campos clique Salvar.
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas