The entry point AF010LOK validates the getdados row when adding the Fixed Asset - ATFA010.

#include "PROTHEUS.CH"

#include "rwmake.ch"

User Function AF010LOK()

Local aColsX := {}

Local lRet := .T.

aColsx := aCols

//Checks if the depreciation account entered is

// the same account entered as accrued depreciation

// account.

If aColsX[1][6] == aColsX[1][10]

Alert("Invalid Accounts")

lRet := .F.

EndIf

Return lRet

Portuguese(Brazil)

Microsiga_Protheus10_e_Microsiga_Protheus11

All

All

aColsX: Array containing data from GetDados

lRet(Logical): Validation return

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

ATFA010a.PRW - Fixed Asset