method AdditionalUpdatesPreCreateTempTablesN

Description

Create the gl open item movement records for NEW lines

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

QadFinancials

method BPosting.AdditionalUpdatesPreCreateTempTables
method BPosting.AdditionalUpdatesPreCreateTempTablesC

program code (program5/bposting.p)

/* ============== */
/* Error handling */
/* ============== */
assign oiReturnStatus      = -98
       viLocalReturnStatus = 0.

create tPostingGLOpenItemMov.
assign tPostingGLOpenItemMov.tiCompanyId           = tPostingLine.Company_ID
       tPostingGLOpenItemMov.tcAllocationKey       = tPostingLine.tcAllocationKey
       tPostingGLOpenItemMov.tcAllocationType      = tPostingLine.tcAllocationType
       tPostingGLOpenItemMov.tcStatus              = "N":U
       tPostingGLOpenItemMov.tiGLId                = tPostingLine.GL_ID
       tPostingGLOpenItemMov.tiCurrencyID          = tPostingLine.Currency_ID
       tPostingGLOpenItemMov.tiPostingLineId       = tPostingLine.PostingLine_ID
       tPostingGLOpenItemMov.tcAllocationType      = tPostingLine.tcAllocationType
       tPostingGLOpenItemMov.tdAmountDebitTC       = tPostingLine.PostingLineDebitTC
       tPostingGLOpenItemMov.tdAmountCreditTC      = tPostingLine.PostingLineCreditTC
       tPostingGLOpenItemMov.tdAmountDebitLC       = tPostingLine.PostingLineDebitLC
       tPostingGLOpenItemMov.tdAmountCreditLC      = tPostingLine.PostingLineCreditLC
       tPostingGLOpenItemMov.tdAmountDebitCC       = tPostingLine.PostingLineDebitCC
       tPostingGLOpenItemMov.tdAmountCreditCC      = tPostingLine.PostingLineCreditCC
       tPostingGLOpenItemMov.ttOpenItemPostingDate = tPosting.PostingDate
       tPostingGLOpenItemMov.tlIsRevaluation       = tPosting.tcJournalTypeCode = {&JOURNALTYPE-REVALGL}.

/* ============== */
/* Error handling */
/* ============== */
assign oiReturnStatus = viLocalReturnStatus.