Histórico da Página

||Descrição|| PontoO ponto de entrada queAF040BAD permite definirdefine os dados do novo bem na baixa por adiantamento de ativos imobilizados.  
||Observações|| 
||Exemplos||User Function AF040BAD()
 
Local aDadNBem := array(4)
 
aDadNBem:= {"1234567890", "0123", "TESTE PE", .T.\}
 
Return aDadNBem

||Preview|| 
||Veja também|| 
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus10 e Microsiga_Protheus11
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates|| 
||Parâmetros|| 
||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
||Variáveis|| 
||Programa Fonte|| ATFA040.PRX