Description
Update AssetBook
Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.