Description
Add code here to initialize the calculated fields of the class temp-tables after loading existing records from the application database.
Parameters
oiReturnStatus | output | integer | |
Internal usage
unused
program code (program/bemployee.p)
<ANCESTOR-CODE>
empty temp-table tAddressRefForEmployee.
empty temp-table tVatNumberRefForEmployee.
for each tEmployee:
if vlDataLoadKeepPrevious and
can-find (tAlreadyCalculatedRecords where
tAlreadyCalculatedRecords.tcTableName = "Employee" and
tAlreadyCalculatedRecords.tc_Rowid = tEmployee.tc_Rowid)
then next.
/*Populates AddressRef plus VatNumberRef*/
<M-1 run ApiBusinessRelationInfo (input tEmployee.Employee_ID (iiEmployeeId),
input tEmployee.tcBusinessRelationCode (icBusinessRelationCode),
output tAddressRefForEmployee (tAddressRefForEmployee),
output tVatNumberRefForEmployee (tVatNumberRefForEmployee),
output viFcReturnSuper (oiReturnStatus)) in BEmployee>
end.