Histórico da Página

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

User Function Ct102Carr()

//retornoRoutine dareturn 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("AcessadoAccessed entry PEpoint " + " / OperaçãoOperation " + STR(nOpcRot) + "/ DataDate " + DTOC(dDataLancRot) + "/ LoteBatch " + cLoteRot + "/ SubLoteSub-Batch " + cSubLoteRot + "/ DocumentoDocument " + cDocRot)
    //Funcaoxpto(nOpcRot,dDataLancRot,cLoteRot,cSubLoteRot,cDocRot)
EndIF

Return

To access the information read from the TMP, the following syntax can be used for manipulation and viewing of the positioned entriesPara 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 FIELD from CT2 TO VIEW, placing the pointer before the TMP"
Exemplo
Example: TMP→CT2_TPSALD

• The Point of Entry is only used for reading and manipulating the parameters passed to the P.E. and the information of the record positioned in the TMP.
• The Point of Entry can be used when accessing the options for: Change, Deletion, Viewing, Copying, and Reversal in the Automatic Standard Entries routine (CTBA102).
• The examples used in this Entry Point are only intended to give an idea and are merely illustrative. The Entry Points rule must be created according to the expected outcome, aligned with the Entry Points operation and the data it provides
• 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