||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