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:
...
| 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