Description

Entry point AF240CLA runs at the end of the Asset Classification process.

Notes

Use this entry point to save additional asset data.

Examples

User Function AF240CLA()

Local dDtAquiN3 := SN3->N3_AQUISIC //Store in variable the contents of SN3->N3_AQUISIC
Local dDtAquiN1 := SN1->N1_AQUISIC //Store in variable the contents of SN1->N1_AQUISIC

If dDtAquiN1 <> dDtAquiN3 //If the dates are divergent, I notify the user
lRet := MsgYesNo("Divergent acquisition dates (N1_AQUISIC/N3_AQUISIC), do you want to save with similar dates?","Acquisition Dates")
If lRet //If the user selects option "yes" the system saves both fields with the same contents
RecLock("SN3")
SN3->N3_AQUISIC := dDtAquiN1
EndIf
EndIf

Return .T.

Language

Portuguese(Brazil)

Versions

All

Operating Systems Supported

All

Compatible with the following Databases

All

Source Program

ATFA240.PRW