Description
Get Information about posting line
Parameters
iiPostingLineID | input | integer | |
oiPostingYear | output | integer | |
ocPostingJournalCode | output | character | |
oiPostingVoucher | output | integer | |
otPostingDate | output | date | |
ocGLCode | output | character | |
ocDivisionCode | output | character | |
ocProjectCode | output | character | |
ocCostCentreCode | output | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.