Á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 AF251TIP é utilizado para validar o campo N3_TIPO na aquisição por transferência.

Exemplos

#INCLUDE

...

"Protheus.ch"

...


User

...

Function

...

AF251TIP()

...


Local

...

aTiposC

...

:=

...

ParamIxb

...

[1

...

]

...


Local

...

nX

...


Default

...

aTiposC

...

:=

...

{"01"

...

}

...


Exibe

...

mensagem

...

com

...

tipo

...

existentes

...

no

...

array

...


For

...

nX

...

:=

...

1

...

to

...

Len(aTiposC)

...


If

...

nX

...

==

...

1

...


cTipo

...

:=

...

aTiposC

...

[nX

...

]

...


Else

...


cTipo

...

+=

...

"

...

/

...

"

...

+

...

aTiposC

...

[nX

...

]

...


EndIf

...


Next

...

nX

...


Alert("Tipo

...

de

...

Ativo

...

selecionado:

...

"

...

+

...

cTipo)

...


Inclui

...

novos

...

Tipos

...


If

...

aScan(aTiposC,

...

{aX

...

aX

...

==

...

"21"

...

})

...

==

...

0

...


aAdd(aTiposC

...

,

...

"21"

...

)

...


EndIf

...


Return

...

aTiposC

...

Idioma

Português(Brasil)

...

Versões

Microsiga_Protheus11

...

Sistemas

...

Operacionais

...

Suportados

...

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

aTiposC = Tipos de Ativos

Retorno

aTiposC = Tipos de Ativos

Programa Fonte

ATFA251.PRX