project QadFinancials > class TSetStatutoryCurrency > method PostingForOthers

Description

Assign the Statutory Currency amounts based on the amounts in TC and the exchange rate between TC and the newly entered SC.


Parameters


biPostingLineCounterinput-outputinteger
olPostingIsProcessedoutputlogical
ocPostCCBalanceTooutputcharacter
ocErrorMessageoutputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method TSetStatutoryCurrency.SetStatutoryCurrencyBasedOnTCPosting


program code (program1/tsetstatutorycurrency.p)

assign oiReturnStatus       = -98
       viLocalReturnStatus  = 0
       olPostingIsProcessed = false.
       
STATCURRBLOCK:
do on error undo, return:   

    /* Assign type of GL account to be used for posting of any SC balances */
    assign ocPostCCBalanceTo = {&GLSYSTEMTYPE-ROUND}.
    
    /* Go through the posting lines and calculated CC values */
    for each PostingLine of Posting exclusive-lock:

        assign biPostingLineCounter  = biPostingLineCounter + 1.

        <M-18 run PostingLineCCUpdate
           (input  ? (idCCRate), 
            input  ? (idCCRateScale), 
            output vcTempErrorMessage (ocErrorMessage), 
            output viFcReturnSuper (oiReturnStatus)) in TSetStatutoryCurrency>
        assign ocErrorMessage = ocErrorMessage + vcTempErrorMessage.
        if viFcReturnSuper <> 0 then assign viLocalReturnStatus = viFcReturnSuper.
        if viFcReturnSuper <  0 then leave STATCURRBLOCK.
    
    end. /* PostingLine */

    assign olPostingIsProcessed = true.

end. /* STATCURRBLOCK */

assign oiReturnStatus = viLocalReturnStatus.