project QadFinancials > class BFixedAssetDepreciation > method AdditionalUpdatesFAAssetBook

Description

Update AssetBook


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BFixedAssetDepreciation.AdditionalUpdates


program code (program1/bfixedassetdepreciation.p)

assign vlStart1 = false.

/* Update FAAssetBook */
if oiReturnStatus >= 0 and
   can-find(first tFAAssetBookForFADepreciations)
then FAASSETBOOK-BLOCK: do:
    /* Start FixedAssetAsset component */
    if viBFixedAssetAssetID = 0 or
       viBFixedAssetAssetID = ?
    then do:
        <I-1 {bFcStartAndOpenInstance
            &ADD-TO-TRANSACTION = "yes"
            &CLASS              = "BFixedAssetAsset"}>

        assign vlBFAAssetBookStartedFromFADep = true.
    end.
    else do:
        <I-2 {bFcOpenInstance
            &CLASS           = "BFixedAssetAsset"}>
    end.

    /* Update Parameters on Fixed Asset Book */
    <M-3 run UpdateFAAssetBook (input  tFAAssetBookForFADepreciations (t_sFAAssetBooks), 
                            input  false (ilClearData), 
                            input  '':U (icEventType), 
                            output viLocalReturn (oiReturnStatus)) in BFixedAssetAsset>
    
        
    /* validate component */
    if viLocalReturn >= 0 and
       vlBFAAssetBookStartedFromFADep
    then do:
        <M-4 run ValidateBCAndAdditionalUpdates (output viFcReturnSuper (oiReturnStatus)) in BFixedAssetAsset>
        if viFcReturnSuper < 0 or
           viFcReturnSuper > 0 and viLocalReturn = 0
        then assign viLocalReturn = viFcReturnSuper.
    end.

    <I-5 {bFcCloseInstance
            &CLASS           = "BFixedAssetAsset"}>

    if viLocalReturn  < 0 or
       oiReturnStatus = 0
    then assign oiReturnStatus = viLocalReturn.

    if oiReturnStatus < 0
    then leave FAASSETBOOK-BLOCK.
end.