Exibir origem

01. GENERAL DATA

Product	TOTVS Backoffice
Product Line	Protheus Line
Segment	Services
Module	TOTVS Backoffice (Protheus Line) - Managerial Accounting (SIGACTB)
Function	MatxFuna - Generic ( Booking )
Country	Brazil
Ticket:	Internal
Requisite/Story/Issue	DSERCTR1-35327

02. STATUS/REQUIREMENT

The Point of Entry CT5CPOS allows the execution of a specific user rule, based on the information received by the array, according to the positioned Standard Entry (CTBA080).

03. SOLUTION

#INCLUDE "PROTHEUS.ch"
#INCLUDE "rwmake.ch"


User Function CT5CPOS( aCT5 )     

	Local aLP :=  PARAMIXB[1]
    
    If aLP[1] == "801"
        DesiredFunction() // Desired rule performing some function based on the established criteria using the Standard Entry return.
    Endif  

Return

The array has 2 positions:

Linha Microsiga Protheus - Inglês > DT PE CT5CPOS Data Handling of CT5 BRA > image2022-5-9_17-23-17.png

The aLP[1] position is the one that displays the Standard Entry Code (CT5_LANPAD), positioned (in the example, 801).

Position aLP[2] will contain all the data of the standard entry with code 801. That is, in this example, 4 sequences registered with the same standard entry code 801 were returned.

Note: The array only returns standard entries that are active (CT5_STATUS equal to 1).

// Ponto de entrada para tratamento do conteudo do CT5
If Existblock("CT5CPOS") .And. !lSimula
	Execblock("CT5CPOS",.F.,.F.,{aCT5[nX]})
Endif

The changes made in the EP are the responsibility of the user who utilizes them, as are the impacts generated by this entry point.

04. OTHER INFORMATION

Parameters:

Parameter	Type	Description	Required
PARAMIXB[1] - aCT5	Array	Array containing the information of the positioned entry point, including its fields and values for desired handling.	Yes

,
Return:

Return	Type	Description	Required
Not Applicable	Not Applicable	Not applicable, handling is performed according to the return of the PARAMIXB[1] parameter.	No

05. RELATED SUBJECTS

N/A.