Description

Entry point AF320EDT, allows editing of user fields in GetDados, in routine Third Party Assets Register (ATFA320).

Examples

User Function AF320EDT()

Local alEdtGD := Paramixb[1]

// add user fields for editing
Aadd(alEdtGD, "NO_USER1CP")
Aadd(alEdtGD, "NO_USR2CP")

Alert("Entry point AF320EDT executed")

Return alEdtGD

Language

Portuguese(Brazil)

Versions

Previous_Versions

Operating Systems Supported

All

Compatible with the following Databases

All

Parameters

alEdtGD

Return

alEdtGD

Call events of the Entry Point

If ExistBlock("A320EDIT")
aAuxEdtGD := ExecBlock("A320EDIT",.F.,.F.,{alEdtGD})
If ValType(aAuxEdtGD) == "A"
alEdtGD := Aclone(aAuxEdtGD)
EndIf
EndIf

Source Program

ATFA320.PRW