AF040BAD - Define datos del nuevo bien

Descripción

El punto de entrada AF040BAD define los datos del nuevo bien en la baja por anticipo de activos fijos.

Ejemplos

User Function AF040BAD()
 
Local aDadNBem := array(4)
 
aDadNBem:= {"1234567890", "0123", "TESTE PE", .T.}
 
Return aDadNBem

Idioma

Portugués(Brasil)

Versiones

Microsiga_Protheus10 e Microsiga_Protheus11

Sistemas operativos compatibles

Todos

Compatible con las bases de datos

Todas

Devolución

Devuelve un array con la información del nuevo bien

Eventos de activación del Punto de entrada

If ExistBlock("AF040BAD")
aDadNBem := ExecBlock("AF040BAD",.F.,.F.)
cbase = aDadNBem[1]
cItemAtivo = aDadNBem[2]
cDescr = aDadNBem[3]
lAtBase = aDadNBem[4]
Endif

Programa fuente

ATFA040.PRX