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("AcessadoAccedido PE " + " / OperaçãoOperación " + STR(nOpcRot) + "/ DataFecha " + DTOC(dDataLancRot) + "/ Lote " + cLoteRot + "/ SubLoteSublote " + 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 posicionadoacceder a la lectura de las informaciones del TMP puede tenerse la siguiente escritura para manejo y visualización del asiento seleccionado:

TMP→ "CAMPO DA DE LA CT2 QUE DESEJA DESEA VISUALIZAR colocando ponteirado antes o el cursor en el TMP "
Exemplo
Ejemplo: TMP→CT2_TPSALD

• O ponto El punto 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.
• solo se utiliza para lectura y manejo de los parámetros informados al PE y las informaciones del registro seleccionado en el TMP.
• El punto de entrada puede utilizarse al acceder a las opciones de: Modificación, Borrado, Visualización, Copia y Reversión en la rutina Asiento estándar automático- CTBA102.
• Los ejemplos utilizados en este punto de entrada solo son para dar una idea y son meramente ilustrativos, la regla del punto de entrada debe crearse de acuerdo con la expectativa esperada, alineada con el funcionamiento del punto de entrada y lo que este disponeOs 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