// Implementación de la función de punto de entrada AF250GRV
User Function AF250GRV()
// Ejemplo: Agregar una comprobación de integridad a los datos de un activo
Local aCols := PARAMIXB[1] // Array de columnas con datos de activos
Local nPosICMS := Ascan(aHeader, {|x| Alltrim(x[2]) == "N1_ICMSAPR" })
Local nICMS := 0
Local i := 0
For i := 1 To Len(aCols)
// Verifica si el valor de ICMS es superior a un valor permitido
If aCols[i][nPosICMS] > 10000
// Genera un mensaje de alerta
Help(" ", 1, "AF250_ALERT",, "El valor de ICMS excede el límite permitido.", 1, 0)
EndIf
Next i
Return |