Histórico da Página

...

#Include "rwmake.ch"

User Function M486CEXT()Local

 Local aArea := getArea()

Local aAreaSA1:= SA1->(GetArea())

Local aCampos:= {}

Local cSerie:= ParamIXB[1,1]

Local cFactura:= ParamIXB[1,2]

Local cCliente:= ParamIXB[1,3]

Local cLoja:= ParamIXB[1,4]

Local cEspecie:= ParamIXB[2]

dbSelectArea("SA1")

dbSetOrder(1) //A1_FILIAL+A1_COD+A1_LOJA

dbSeek(xFilial("SA1")+cCliente+cLoja)

If !Empty(SA1->A1_CONTATO)

aAdd( aCampos , {"Destinatario", "", "48", "1", Alltrim(SA1->A1_CONTATO), "1"} )

EndIf

If !Empty(SA1->A1_HPAGE)

aAdd( aCampos , {"Pagina web", "", "1", "1", Alltrim(SA1->A1_HPAGE), "1"} )

EndIf

SA1->(RestArea(aAreaSA1))

RestArea(aArea)

Return aCampos

04. Ejemplo de documento electrónico generado por TFHKA con campos extensibles

...