AF040BAD - Define dados do novo bem

Descrição

O ponto de entrada AF040BAD define os dados do novo bem na baixa por adiantamento de ativos imobilizados.

Exemplos

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

Idioma

Português(Brasil)

Versões

Microsiga_Protheus10 e Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

Retorna um array contendo as informações do novo bem

Eventos de chamada do Ponto de Entrada

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

Programa Fonte

ATFA040.PRX