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