Histórico da Página

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

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

• 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.