Description

Entry Point AF251TIP is used for validating field N3_TIPO in acquisition by transfer.

Examples

#INCLUDE "Protheus.ch"
User Function AF251TIP()
Local aTiposC := ParamIxb[1]
Local nX
Default aTiposC := {"01"}
Display message with type found in array
For nX := 1 to Len(aTiposC)
If nX == 1
cTipo := aTiposC[nX]
Else
cTipo += " / " + aTiposC[nX]
EndIf
Next nX
Alert("Type of Asset selected: " + cTipo)
Include new Types
If aScan(aTiposC,{aX aX == "21"}) == 0
aAdd(aTiposC , "21" )
EndIf
Return aTiposC

Language

Portuguese(Brazil)

Versions

Microsiga_Protheus11

Operating Systems Supported

All

Compatible with the following Databases

All

Parameters

aTiposC = Asset Types

Return

aTiposC = Asset Types

Source Program

ATFA251.PRX