Exibir origem

01. GENERAL DATA

Product:
Product Line:	Protheus Line
Segment:	Services
Module:	TOTVS Backoffice (Protheus Line) - Managerial Accounting (SIGACTB)
Function:	Automatic Standard Entries - CTBA102
Country:	Brazil
Ticket:	Internal
Requisite/Story/Issue:	DSERCTR1-42480

02. STATUS/REQUIREMENT

This document aims to clarify the operation of the Ct102Carr entry point.

The impacts related to the Point of Entry are the sole responsibility of the customer who implements it.

03. SOLUTION

The entry point CT102CARR allows reading the data in the temporary table (TMP) created when performing the routine's operations of Change, Deletion, Viewing, Copying, or Reversal. Thus, the Point of Entry has the function of manipulating the data of the currently positioned entries and its performed operation for the implementation of a specific rule using the available data.

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

User Function Ct102Carr()

//Routine return 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("Accessed entry point " + " / Operation " + STR(nOpcRot) + "/ Date " + DTOC(dDataLancRot) + "/ Batch " + cLoteRot + "/ Sub-Batch " + cSubLoteRot + "/ Document " + 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 entries:

TMP→ "FIELD from CT2 TO VIEW, placing the pointer before the TMP"

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.

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

04. OTHER INFORMATION

Parameters

PARAIXB	Type	Description	Explanation
PARAMIXB[1]	Numeric	nOpc	Option being performed (Which can be the options for change, deletion, viewing, reversal, or copy).
PARAMIXB[2]	Date	dDataLanc	Entry Date
PARAMIXB[3]	Character	cLote	Entry batch number.
PARAMIXB[4]	Character	cSubLote	Entry Sub-Batch
PARAMIXB[5]	Character	cDoc	Entry document number.

Return

Return	Type	Mandatory?
Not Applicable	Not Applicable	No

05. RELATED SUBJECTS

N/A