Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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
titleExemplo
#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. 

...

Aviso
titleAtenção

Para que o processo funcione corretamente, é necessário que a user function esteja compilada no ambiente.

A User Function só vai ter efeito para campos que são criados no banco de dados, campos que são virtuais como a descrição do local devem ter outro tratamento, por exemplo utilizando um Posicione.


04. DEMAIS INFORMAÇÕES

Gestão dos Contratos - TECA870 - Gestão de Serviços - P12

...