project QadFinancials > class BPosting > method UpdateCrossCompanyIDs

Description

Methods which takes in the cross company id's and updates it's posting line table


Parameters


tApiPostingLineinputtemp-tablePosting line which contains the cross company posting id's
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BJournalEntryMultiCy.CreateMultiCyPostings


program code (program4/bposting.p)

/*******************************************************************/
/* This method takes in a table of PostingLines which should match */
/* the posting lines of this instance, but also has their cross-   */
/* company details updated.                                        */
/*******************************************************************/
for each tApiPostingLine on error undo, throw:
    <M-47 run UpdateCrossCompanyInfo
       (input  tApiPostingLine.Company_ID (iiPostingCompanyID), 
        input  tApiPostingLine.Posting_ID (iiPostingID), 
        input  tApiPostingLine.PostingLine_ID (iiPostingLineID), 
        input  tApiPostingLine.CrossCompany_ID (iiCrossCompanyID), 
        input  tApiPostingLine.CrossCompanyPosting_ID (iiCrossCompanyPostingID), 
        input  tApiPostingLine.CrossCompanyPostingLine_ID (iiCrossCompanyPostingLineID), 
        output oiReturnStatus (oiReturnStatus)) in BPosting>
     if (oiReturnStatus < 0)
     then leave.   
end. /* for each tApiPostingLine */

if (oiReturnStatus >= 0)
then do:
    /* save the data */
    <M-97 run DataSave  (output oiReturnStatus (oiReturnStatus)) in BPosting>
end. /* if (oiReturnStatus < 0) */