#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

• O ponto de entrada só é utilizado para leitura e manipulação dos parâmetros passados ao PE e as informações do registro posicionado no TMP.
• O ponto de entrada pode ser utilizado ao acessar as opções de: Alteração, Exclusão, Visualização, Copia e Estorno na rotina de Lançamento Padrão Automático- CTBA102.
• Os exemplos utilizados nesse ponto de entrada são só para dar uma ideia e são meramente ilustrativos, a regra do ponto de entrada deve ser criada conforme a expectativa esperada alinhado com o funcionamento do ponto de entrada e o que ele dispõe.

IF _lCt102Carr
	ExecBlock("Ct102Carr",.F.,.F.,{ nOpc,dDataLanc,cLote,cSubLote,cDoc }  )
Endif