Histórico da Página

||Descrição|| O ponto de entrada AF251TIP é utilizado para validar o campo N3_TIPO na aquisição por transferência.  
||Observações|| 
||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
||Preview|| 
||Veja também|| 
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus11
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates|| 
||Parâmetros|| aTiposC = Tipos de Ativos
||Retorno|| aTiposC = Tipos de Ativos
||Eventos de chamada do Ponto de Entrada|| 
||Variáveis|| 
||Programa Fonte|| ATFA251.PRX