project QadFinancials > class BDebtorBalance > method UpdateDBalanceAndDHistDHistory
Description
Update the balance of the DHist records following the current period.
Parameters
| iiYearPeriod | input | integer | Year Period |
| idDHistBalanceLC | input | decimal | DHistBalanceLC |
| idDHistBalanceTC | input | decimal | DHistBalanceTC |
| idDHistBalanceCC | input | decimal | DHistBalanceCC |
| iiGL | input | integer | |
| iiProject | input | integer | |
| iiCostCentre | input | integer | |
| iiDivision | input | integer | |
| iiJournal | input | integer | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program6/bdebtorbalance.p)
/* ========================================================================== */
/* This method uses the Query-result from the UpdateDBalanceAndDHist method. */
/* This temp-table holds all DHist records for this company/debtor/currency */
/* with a starting period >= parameter YearPeriod */
/* ========================================================================== */
for each tDHist where
tDHist.DHistYearPeriodFrom > iiYearPeriod and
tDHist.GL_ID = iiGL and
tDHist.Journal_ID = iiJournal and
tDHist.Project_ID = iiProject and
tDHist.CostCentre_ID = iiCostCentre and
tDHist.Division_ID = iiDivision :
/* ================== */
/* Update the balance */
/* ================== */
assign tDHist.DHistBalanceLC = tDHist.DHistBalanceLC + idDHistBalanceLC
tDHist.DHistBalanceTC = tDHist.DHistBalanceTC + idDHistBalanceTC
tDHist.DHistBalanceCC = tDHist.DHistBalanceCC + idDHistBalanceCC
tDHist.tc_Status = 'C':U.
end. /* for each tDHist where */