AF12VLR0 - Validação sobre valor zerado do bem

O ponto de entrada AF12VLR0 é executado na validação da linha, para verificar se o valor do bem pode ser zerado.

#include 'protheus.ch'
#include 'parmtype.ch'

User Function AF12VLR0()

Local nValOri := ParamIxb[1]
Local nVorigAtf := ParamIxb[2]
Local lRet := .F.

MsgInfo("PE AF12VLR0")

Return lRet

Neste exemplo a gravação não será feita, pois o retorno passado pelo PE é .F..

Português(Brasil)

Microsiga Protheus 12.1.17.

Todos homologados pelo Protheus

Todos homologados pelo Protheus

Execblock("AF12VLR0 ",.F.,.F.)

ATFA012.PRW