AF010LOK - Valida la línea de getdados

El punto de entrada AF010LOK valida la línea de getdados en la inclusión de Activo fijo - ATFA010.

#include "PROTHEUS.CH"
#include "rwmake.ch"

User Function AF010LOK()
Local aColsX := {}
Local lRet := .T.

aColsx := aCols

//Verifica si la cuenta de depreciación informada es
// la misma cuenta informada como cuenta de depreciación
// acumulada.
If aColsX[1][6] == aColsX[1][10]
Alert("Cuentas no válidas")
lRet := .F.
EndIf

Return lRet

Portugués(Brasil)

Microsiga_Protheus10_y_Microsiga_Protheus11

Todos

Todas

aColsX: Array con los datos de GetDados

lRet(Lógico): Devolución de la validación

lRet := ExecBlock("AF010LOK" ,.F.,.F.,aCols[N])

ATFA010a.PRW - Activo fijo