method GetBankEntryAndAdjustment

Description

Get BankingEntry or CashEntry ID by input journal type code for the drill down of dashboard.

Parameters

icJournalTypeCode	input	character
iiPostingID	input	integer
oiBankingEntryID	output	integer
oiOpenAdjustID	output	integer
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program5/bdebtor.p)

/* Get Bank Entry ID/Cash Entry ID / Open Adjustment ID from input posting id and journal type  */            
if icJournalTypeCode <> ? and icJournalTypeCode <> ""
then do:
    if icJournalTypeCode = {&JOURNALTYPE-BANKINGENTRY} or icJournalTypeCode = {&JOURNALTYPE-CASHENTRY} 
    then do:

        <Q-1 run BankStateLineByPosting (all) (Read) (NoCache)
           (input viCompanyId, (CompanyId)
            input iiPostingID, (PostingID)
            output dataset tqBankStateLineByPosting) in BBankEntry >
        find first tqBankStateLineByPosting 
            where tqBankStateLineByPosting.tiPosting_ID = iiPostingID no-error.
        if available tqBankStateLineByPosting
            then oiBankingEntryID = tqBankStateLineByPosting.tiBankState_ID.
        assign oiOpenAdjustID = 0.
    end.

    if icJournalTypeCode = {&JOURNALTYPE-DEBTORADJUSTMENT} 
    then do:
        <Q-2 run OIAdjustByPosting (all) (Read) (NoCache)
           (input viCompanyId, (CompanyId)
            input iiPostingID, (PostingID)
            output dataset tqOIAdjustByPosting) in BOpenItemAdjustment >
        find first tqOIAdjustByPosting 
            where tqOIAdjustByPosting.tiPosting_ID = iiPostingID no-error.
        if available tqOIAdjustByPosting
            then oiOpenAdjustID = tqOIAdjustByPosting.tiOIAdjust_ID.
        assign oiBankingEntryID = 0.
    end.
end.