PE AF250LOK

If ExistBlock('AF250LOK')
	If !ExecBlock( 'AF250LOK', .F., .F., @aAF250Imp )
		Return .F.
	EndIf
EndIf

// Implementación de la función de punto de entrada AF250LOK
User Function AF250LOK()

    // Variables recibidas a través del PARAMIXB
    Local aAF250Imp := PARAMIXB[1]  // Información de impuestos y validaciones
	Local lRet      := .T.
	Local nLinha    := 0
	
    // Ejemplo de utilización
    If Len(aAF250Imp) == 0
        Return lRet
    EndIf

    // Validación de las líneas de impuesto
    For nLinha := 1 To Len(aAF250Imp)
        If !Empty(aAF250Imp[nLinha][1])  // Ejemplo básico de validación
            // Implementar la lógica de validación requerida
            Return lRet
        EndIf
    Next

Return lRet