method AdditionalUpdatesPostingXrefDIDisc2

Description

Extended method of AdditionalUpdatesPostingXrefDIDisc becasue the limitaion of the method size

Parameters

icPostingRowid	input	character
icDiscBankGLAccount	input	character
idDebitTC	input	decimal
idCreditTC	input	decimal
idDebitLC	input	decimal
idCreditLC	input	decimal
idDebitCC	input	decimal
idCreditCC	input	decimal
idExchangeRate	input	decimal
idExchangeRateSCale	input	decimal
idCCRate	input	decimal
idCCSCale	input	decimal
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BDDocument.AdditionalUpdatesPostingXrefDIDisc

program code (program5/bddocument.p)

assign oiReturnStatus = -98
       viLocalReturn  = 0.

MAIN_BLOCK:
do on error undo, return:
    <M-55 run AddStandardPosting
       (input  icPostingRowid (icPostingtcRowid), 
        input  icDiscBankGLAccount (icGLCode), 
        input  '':U (icDivisionCode), 
        input  '':U (icCostCentreCode), 
        input  '':U (icCostCentreText), 
        input  '':U (icProjectCode), 
        input  '':U (icProjectText), 
        input  '':U (icIntercoBusinessRelationCode), 
        input  tDDocumentInvoiceXref.tcCurrencyCode (icCurrencyCode), 
        input  idDebitTC (idDebitTC), 
        input  ? (idDebitLC), 
        input  ? (idDebitCC), 
        input  ? (idDebitPC), 
        input  idCreditTC (idCreditTC), 
        input  ? (idCreditLC), 
        input  ? (idCreditCC), 
        input  ? (idCreditPC), 
        input  0 (idQty), 
        input  tDDocument.tcPostingText (icLineText), 
        input  '':U (icSafText), 
        input  tDefaultSafsDDoc (tDefaultSafs), 
        input  {&EXCHANGERATETYPE-ACCOUNTING} (icExchangeRateType), 
        input  tDDocumentInvoiceXref.tdLCExchangeRate (idExchangeRate), 
        input  tDDocumentInvoiceXref.tdLCExchangeRateScale (idExchangeRateScale), 
        input  tDDocumentInvoiceXref.tdCCExchangeRate (idPostingLineCCRate), 
        input  tDDocumentInvoiceXref.tdCCExchangeRateScale (idPostingLineCCScale), 
        output viDummy (oiPostingLineId), 
        input  ? (iiSafStructureId), 
        input  ? (icSafStructureCode), 
        input  ? (icAllocationKey), 
        input  false (ilLinkedCrCyDaemonReqExists), 
        output viFcReturnSuper (oiReturnStatus)) in BJournalEntry>
    if viFcReturnSuper <> 0 then assign viLocalReturn = viFcReturnSuper.
    if viFcReturnSuper <  0 then leave MAIN_BLOCK.

end. /* MAIN_BLOCK */

assign oiReturnStatus = viLocalReturn.