Descripción

El punto de entrada AF251TIP se utiliza para validar el campo N3_TIPO en la adquisición por transferencia.

Ejemplos

#INCLUDE "Protheus.ch"
User Function AF251TIP()
Local aTiposC := ParamIxb[1]
Local nX
Default aTiposC := {"01"}
Muestra mensaje con tipo existente en el array
For nX := 1 to Len(aTiposC)
If nX == 1
cTipo := aTiposC[nX]
Else
cTipo += " / " + aTiposC[nX]
EndIf
Next nX
Alert("Tipo de activo seleccionado: " + cTipo)
Incluye nuevos Tipos
If aScan(aTiposC,{aX aX == "21"}) == 0
aAdd(aTiposC , "21" )
EndIf
Return aTiposC

Idioma

Portugués(Brasil)

Versiones

Microsiga_Protheus11

Sistemas operativos compatibles

Todos

Compatible con las bases de datos

Todas

Parámetros

aTiposC = Tipos de activos

Devolución

aTiposC = Tipos de activos

Programa fuente

ATFA251.PRX