project QadFinancials > class BJournalEntry > method GetPostingInfoByPostingLineID
Description
GetPostingInfoByPostingLineID; this method will look in the instance tables for a posting of the posting-line and return its posting-date and some other header-iinfo.
Note that the instance-data should already be laoded as this method onlt checks the instance-data and not the db
Parameters
iiPostingLineID | input | integer | PostingLineId |
otPostingDate | output | date | The postingdate of the posting |
oiPeriodID | output | integer | Period ID |
oiPostingYearPeriod | output | integer | Posting Year Period |
ocJournalCode | output | character | The journal of the posting |
ocJournalTypeCode | output | character | The type of the journal of the posting |
ocLayerTypeCode | output | character | This is the type of the layer that is linked to the journal that is specified on the posting-header |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program6/bjournalentry.p)
/* Get the posting-line */
find tPostingLine where
tPostingLine.PostingLine_ID = iiPostingLineID
no-lock no-error.
if not available tPostingLine
then return.
/* Get the posting */
find tPosting where
tPosting.tc_Rowid = tPostingLine.tc_ParentRowid
no-lock no-error.
if not available tPosting
then return.
/* Set the output parameter PostingDate, PeriodID and YearPeriod */
assign otPostingDate = tPosting.PostingDate
oiPostingYearPeriod = tPosting.PostingYear * 100 + tPosting.PostingPeriod.
if tPosting.PostingYear <> 0 and
tPosting.PostingYear <> ? and
tPosting.PostingPeriod <> 0 and
tPosting.PostingPeriod <> ?
then do :
<Q-4 run PeriodPrim (all) (Read) (NoCache)
(input tPosting.Company_ID, (CompanyId)
input ?, (PeriodId)
input tPosting.PostingYear, (PeriodYear)
input tPosting.PostingPeriod, (PeriodPeriod)
output dataset tqPeriodPrim) in BPeriod >
find first tqPeriodPrim no-error.
if available tqPeriodPrim
then assign oiPeriodId = tqPeriodPrim.tiPeriod_ID.
end. /* if tPosting.PostingYear <> 0 and */
/* Set the output parameter JournalCode and JournalTypeCode */
assign ocJournalCode = tPosting.tcJournalCode
ocLayerTypeCode = tPosting.tcLayerTypeCode.
if tPosting.tcJournalCode <> "":U and
tPosting.tcJournalCode <> ?
then do :
<Q-3 run JournalByJournalIDCodeType (all) (Read) (NoCache)
(input tPosting.Company_ID, (CompanyId)
input ?, (JournalID)
input tPosting.tcJournalCode, (JournalCode)
input ?, (JournalTypeCode)
output dataset tqJournalByJournalIDCodeType) in BJournal >
Find first tqJournalByJournalIDCodeType no-lock no-error.
if available tqJournalByJournalIDCodeType
then assign ocJournalTypeCode = tqJournalByJournalIDCodeType.tcJournalTypeCode.
end. /* if tPosting.tcJournalCode <> "":U and */