project QadFinancials > class BJournalEntry > method GetPostingInfoByPostingRowID

Description

Get Posting information by posting row id


Parameters


icPostingRowIdinputcharacterPosting Row ID
oiPostingIDoutputintegerPosting ID
otPostingDateoutputdatePosting Date
ocJournalCodeoutputcharacterJournal Code
ocPostingTextoutputcharacterPosting Text
ocPostingBusRelTxtoutputcharacterPosting Business Relation Txt
ocPostingParentTextoutputcharacterPosting Parent Text
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program6/bjournalentry.p)

    /* =============== */
    /* get the posting */
    /* =============== */
    find first tPosting where
               tPosting.tc_Rowid = icPostingRowid
               no-error.
    if not available tPosting or
       tPosting.tc_Status = "D":U
    then return.

    /* ======================= */
    /* Return the ID           */
    /* ======================= */
    assign oiPostingID         = tPosting.Posting_ID
           otPostingDate       = tPosting.PostingDate
           ocJournalCode       = tPosting.tcJournalCode
           ocPostingText       = tPosting.PostingText
           ocPostingBusRelTxt  = tPosting.PostingBusinessRelationTxt
           ocPostingParentText = tPosting.PostingParentText.