project QadFinancials > class BJournalEntry > method UpdatePostingHeaderInInstance

Description

update posting header in instance based on posting rowid, called by UI when posting date, posting year or posting period has changed


Parameters


icPostingRowIdinputcharacterRowId of Posting
iiPeriodYearinputintegerYear of Accounting Period
iiPeriodPeriodinputintegerPeriod of Accounting Period
itPostingDateinputdateposting date
icPostingTextinputcharacterHeader Description
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BBankEntry.UpdatePostingHeader
method BCInvoice.CreateCIPosting


program code (program4/bjournalentry.p)

if icPostingRowId = ? then assign icPostingRowId = "":U.
if iiPeriodYear = ? then assign iiPeriodYear = 0.
if iiPeriodPeriod = ? then assign iiPeriodPeriod = 0.
if icPostingText = ? then assign icPostingText = "":U. /*Defect: 10333-0184*/

find tPosting where
     tPosting.tc_Rowid  = icPostingRowId and
     tPosting.tc_Status <> "D":U
     no-error.
if available tPosting
then assign tPosting.PostingYear    = iiPeriodYear
            tPosting.PostingPeriod  = iiPeriodPeriod
            tPosting.PostingDate    = itPostingDate
            tPosting.PostingText    = icPostingText. /*Defect: 10333-0184*/