project QadFinancials > class BPosting > method GetCrossCyPostingLines

Description

Returns the cross company posting lines of this instance


Parameters


tApiPostingLineoutputtemp-table
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BDInvoiceMultiCy.UpdateDeductionDetailCy
method BDInvoiceMultiCy.UpdateDeductionDetailCyV01
method BJournalEntryMultiCy.CreateMultiCyPostings


program code (program4/bposting.p)

/* ====================================================================================== *
 * Method       : GetCrossCyPostingLines                                                  *
 * Description  : This method returns the cross company posting lines of the component    *
 * -------------------------------------------------------------------------------------- *
 * Parameters   : tApiPostingLine (output)                                                *
 * ====================================================================================== */
 
assign oiReturnStatus = -98.

MAIN_BLOCK:
do on error undo, return:
    /* Copy instance data into output table where GLType is Cross Company */
    empty temp-table tApiPostingLine.
    for each tPostingLine where tPostingLine.tcGLTypeCode = {&GLTYPECODE-CROSS} no-lock:
        create tApiPostingLine.
        buffer-copy tPostingLine 
            to tApiPostingLine.
    end.
end. /* MAIN_BLOCK */

assign oiReturnStatus = 0.