Histórico da Página

...

Foi criado um campo VIRTUAL para receber o Local de Atendimento (TFL_LOCAL)

| Tipo : Caractere | Propriedade : Visualizar

Image Added

5-) Incluir uma User Function no campo Inic. Padrao conforme exemplo abaixo:

Image Added

Para exibição do dado foi utilizada a função POSICIONE()

No exemplo abaixo foi utilizado a função Posicione desta forma:

IIF(INCLUI,"",POSICIONE("TFL",5,XFILIAL("TFL")+CNA_CONTRA+CNA_REVISA+CNA_NUMERO,"TFL_LOCAL"))

Image Removed

Image Removed

uma User function conforme modelo abaixo:

        #INCLUDE "PROTHEUS.CH"

        User Function EXICNATFL(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.D_E_L_E_T_ = '' "
           cQry := ChangeQuery(cQry)
           dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQry),cAliasTFL,.T.,.T.)
           cRetorno := (cAliasTFL)->CAMPO

          (cAliasTFL)->(dbCloseArea())

        Return cRetorno

Image AddedImage Removed

5 -) Após o preenchimento do campos clique Salvar. 

...