Histórico da Página

If ExistBlock("AF250GRV")  // ENTRY POINT BEFORE BOOKKEEPING
	Execblock("AF250GRV",.F.,.F.,Acols[nX])
EndIf

// Implementation of function of entry point AF250GRV
User Function AF250GRV()

    // Example: add an integrity verification to an asset's data
    Local aCols := PARAMIXB[1]  // Array of columns with asset data
    Local nPosICMS := Ascan(aHeader, {|x| Alltrim(x[2]) == "N1_ICMSAPR" })
    Local nICMS := 0
	Local i := 0

	For i := 1 To Len(aCols)	
	     // Check whether the ICMS value is greater than an allowed value
    	If aCols[i][nPosICMS] > 10000
        	// Generate an alert message
        	Help(" ", 1, "AF250_ALERT",, "The ICMS value exceeds the allowed limit.", 1, 0)
    	EndIf  
	Next i

Return

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