project QadFinancials > class BEmployee > method Calculate

Description

Add code here to initialize the calculated fields of the class temp-tables after loading existing records from the application database.


Parameters


oiReturnStatusoutputinteger


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.