Description

The entry point AF040BAD sets the data of the new asset when posting by advance of fixed assets.

Examples

User Function AF040BAD() 

Local aDadNBem := array(4) 

aDadNBem:= {"1234567890", "0123", "TEST PE", .T.} 

Return aDadNBem

Language

Portuguese(Brazil)

Versions

Microsiga_Protheus10 and Microsiga_Protheus11

Operating Systems Supported

All

Compatible with the following Databases

All

Return

It returns an array containing the new asset's information

Call events of the Entry Point

If ExistBlock("AF040BAD")

aDadNBem := ExecBlock("AF040BAD",.F.,.F.)

cbase = aDadNBem[1]

cItemAtivo = aDadNBem[2]

cDescr = aDadNBem[3]

lAtBase = aDadNBem[4]

Endif

Source Program

ATFA040.PRX