Histórico da Página

#include 'totvs.ch'
#include "rwmake.ch"

User Function Ct102Carr()

//retorno da rotina nOpc,dDataLanc,cLote,cSubLote,cDoc 
Local nOpcRot  := PARAMIXB[1] 
Local dDataLancRot  := PARAMIXB[2] 
Local cLoteRot  := PARAMIXB[3] 
Local cSubLoteRot  := PARAMIXB[4] 
Local cDocRot  := PARAMIXB[5] 

Local cTpSald := "

cTpSald:= TMP->CT2_TPSALD

If cTpSald == "1"
    alert("Acessado PE " + " / Operação " + STR(nOpcRot) + "/ Data " + DTOC(dDataLancRot) + "/ Lote " + cLoteRot + "/ SubLote " + cSubLoteRot + "/ Documento " + cDocRot)
    //Funcaoxpto(nOpcRot,dDataLancRot,cLoteRot,cSubLoteRot,cDocRot)
EndIF

Return

Para acessar a leitura das informações do TMP pode se ter a seguinte escrita para manipulação e visualização do lançamento posicionado:

TMP→ "CAMPO DA CT2 QUE DESEJA VISUALIZAR colocando ponteirado antes o TMP "

Exemplo: TMP→CT2_TPSALD