project QadFinancials > class BJournalEntry > method GetPostingLineInfoById

Description

Get Information about posting line


Parameters


iiPostingLineIDinputinteger
oiPostingYearoutputinteger
ocPostingJournalCodeoutputcharacter
oiPostingVoucheroutputinteger
otPostingDateoutputdate
ocGLCodeoutputcharacter
ocDivisionCodeoutputcharacter
ocProjectCodeoutputcharacter
ocCostCentreCodeoutputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BAPMatching.PostSaveUpdateOperationals


program code (program6/bjournalentry.p)

/*  ******* WARNING  ********
* This method is called from costing.p (located in the lib directory).  Please do not delete this method
* until the lib directory is obsoleted.
*/


/* =================================================================================================== */
/* Method      : GetPostingLineInfoById                                                                */
/* Desc        : This method provides some details about posting line and posting                      */
/* --------------------------------------------------------------------------------------------------- */
/* Params:  (I)  PostingLineId        ID of posting line                                               */
/*          (O)  PostingYear          Posting year                                                     */
/*          (O)  PostingJournalCode   Code of posting journal                                          */
/*          (O)  PostingVoucher       Voucher of created posting                                       */
/*          (O)  PostingDate          Posting date                                                     */
/*          (O)  GLCode               G/L account code                                                 */
/*          (O)  DivisionCode         Division code                                                    */
/*          (O)  ProjectCode          Project code                                                     */
/*          (O)  CostCentreCode       Cost Centre code                                                 */
/* =================================================================================================== */

assign oiReturnStatus = -98.

/* =================================================================================================== */
/* Default output values                                                                               */
/* =================================================================================================== */
assign oiPostingYear        = ?
       ocPostingJournalCode = ?
       oiPostingVoucher     = ?
       otPostingDate        = ?
       ocGLCode             = ?
       ocDivisionCode       = ?
       ocProjectCode        = ?
       ocCostCentreCode     = ?.

/* =================================================================================================== */
/* Normalize input parameters                                                                          */
/* =================================================================================================== */
if iiPostingLineId = 0 then assign iiPostingLineId = ?.

/* =================================================================================================== */
/* Validate input parameters                                                                           */
/* =================================================================================================== */
if iiPostingLineId = ?
then do:  
    <M-4 run SetMessage
       (input  #T-4'Not all mandatory input parameters are populated.':255(999890633)T-4# (icMessage), 
        input  '':U (icArguments), 
        input  '':U (icFieldName), 
        input  '':U (icFieldValue), 
        input  'S' (icType), 
        input  3 (iiSeverity), 
        input  '':U (icRowid), 
        input  'QadFin-9150':U (icFcMsgNumber), 
        input  '':U (icFcExplanation), 
        input  '':U (icFcIdentification), 
        input  '':U (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BJournalEntry>    
    assign oiReturnStatus = -1.
    return.
end.

/* =================================================================================================== */
/* Get Posting Line                                                                                    */
/* =================================================================================================== */
find tPostingLine where
     tPostingLine.PostingLine_ID = iiPostingLineId
     no-error.
if not available tPostingLine
then do:
    <M-5 run SetMessage
       (input  #T-5'Cannot find definition of Posting Line in instance of business.':255(999890634)T-5# (icMessage), 
        input  '':U (icArguments), 
        input  'tPostingLine.PostingLine_ID':U (icFieldName), 
        input  string(iiPostingLineID) (icFieldValue), 
        input  's':U (icType), 
        input  '':U (iiSeverity), 
        input  'tPostingLine.tc_rowid':U (icRowid), 
        input  'QadFin-9151':U (icFcMsgNumber), 
        input  '':U (icFcExplanation), 
        input  '':U (icFcIdentification), 
        input  '':U (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BJournalEntry>   
    assign oiReturnStatus = -1.
    return.
end.

find tPosting where
     tPosting.tc_Rowid = tPostingLine.tc_ParentRowid
     no-error.
if not available tPosting
then do:
    <M-6 run SetMessage
       (input  #T-6'Cannot find definition of Posting in instance of business.':255(999890635)T-6# (icMessage), 
        input  '':U (icArguments), 
        input  'tPosting.tc_rowid':U (icFieldName), 
        input  tPostingLine.tc_ParentRowid (icFieldValue), 
        input  'S':U (icType), 
        input  3 (iiSeverity), 
        input  'tPostingLine.tc_rowid':U (icRowid), 
        input  'QadFin-9152':U (icFcMsgNumber), 
        input  '':U (icFcExplanation), 
        input  '':U (icFcIdentification), 
        input  '':U (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BJournalEntry>   
    assign oiReturnStatus = -1.
    return.
end.

/* =================================================================================================== */
/* Assign output values                                                                                */
/* =================================================================================================== */
assign oiPostingYear        = tPosting.PostingYear
       ocPostingJournalCode = tPosting.tcJournalCode
       oiPostingVoucher     = tPosting.PostingVoucher
       otPostingDate        = tPosting.PostingDate
       ocGLCode             = tPostingLine.tcGLCode
       ocDivisionCode       = tPostingLine.tcDivisionCode
       ocProjectCode        = tPostingLine.tcProjectCode
       ocCostCentreCode     = tPostingLine.tcCostCentreCode.

/* =================================================================================================== */
/* Return                                                                                              */
/* =================================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.