AF251TIP - Valida campo N3_TIPO

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