EP AF251TIP

01. GENERAL DATA

02. DESCRIPTION

Entry Point AF251TIP is used for validating field N3_TIPO during the acquisition by transfer process. It allows the customer to set custom rules to ensure that the acquisition type specified is compliant with the company's policies and practices.

With the AF251TIP, you can validate the type of the transferred asset, ensuring that the acquisition operations are consistent and follow the set criteria. This allows greater control and precision in asset acquisitions by transfer, ensuring record integrity and compliance with the company's internal rules.

03. OTHER INFORMATION

aTiposC := ExecBlock('AF251TIP', .F., .F., { aTiposC } )

#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("Selected Asset Type: " + cTipo)

      //Add New Types
      If aScan(aTiposC,{aX aX == "21"}) == 0
            aAdd(aTiposC , "21" )
      EndIf

Return aTiposC

04. RELATED SUBJECTS

• Not Applicable.