Linha Microsiga Protheus - Inglês

Páginas filhas
  • EP AF251CHP

01. GENERAL DATA

Product:

TOTVS Backoffice

Product Line:

Protheus Line

Industry:

Services

Module:

TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAFIS)

Function:

ATFA251

Country:

Brazil

Ticket:

Internal

Requisite/Story/Issue

DSERCTR1-46030

02. DESCRIPTION

Entry Point AF251CHP is called by routine AF251Chapa allowing the user to perform additional validations on the registration number entered, thus defining whether the system can save data or not.

03. OTHER INFORMATION


Handling of EP in the system
IF lRet .AND. !lRepeat

	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
	//³ BOPS 00000120962 - CENTRALIZATION OF VALIDATION OF REGISTRATION NUMBER E P.E.³
	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
	IF ExistBlock("AF251CHP")

		lRet := ExecBlock("AF251CHP",.F.,.F.,{cChapa,lRepete,nPosChapa,aCols})
		lRet := IIF(ValType(lRet) == "L",lRet,.F.)

	ELSE
		FOR i := 1 to Len(aCols)
			IF aCols[i][nPosChapa] == cChapa .And. i != nLinha
				Help(" ",1,"AFA010CHAP")
				lRet := .F.
				EXIT
			ENDIF
		NEXT
	ENDIF
ENDIF
EP Example
User Function AF251CHP()

    Local cChapa := PARAMIXB[1]
    Local lRepete := PARAMIXB[2]
    Local nPosChapa := PARAMIXB[3]
    Local aCols := PARAMIXB[4]
    Local i
    Local lRet := .T.

    // Check whether the registration number is already registered in a previous line
    For i := 1 to Len(aCols)
        If aCols[i][nPosChapa] == cChapa
            lRet := .F.
        EndIf
    Next

Return lRet


Important !!

  • It is noteworthy that the customer is responsible for EP utilization and its impacts on the system.
  • The examples used in this documentation are for demonstration purposes only. Each customer must check what behavior they want to perform according to the scope of the entry point.

04. RELATED SUBJECTS

  • Not Applicable.