Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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