AF010LOK - Valida a linha da getdados

O ponto de entrada AF010LOK valida a linha da getdados na inclusão do Ativo Fixo - ATFA010.

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

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

aColsx := aCols

//Verifica se a conta de depreciação informada é
// a mesma conta informada como conta de depreciação
// acumulada.
If aColsX[1][6] == aColsX[1][10]
Alert("Contas Inválidas")
lRet := .F.
EndIf

Return lRet

Português(Brasil)

Microsiga_Protheus10_e_Microsiga_Protheus11

Todos

Todas

aColsX: Array contendo os dados da GetDados

lRet(Lógico): Retorno da validação

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

ATFA010a.PRW - Ativo Fixo