project QadFinancials > class BOpenItemAdjustment > method GetDebtorAdjJournal


Parameters


ocJournalCodeoutputcharacter
ocLayerCodeoutputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program7/bopenitemadjustment.p)

<Q-3 run JournalByJournalTypeOIA (all) (Read) (NoCache)
   (input viCompanyId, (CompanyId)
    input {&JOURNALTYPE-DEBTORADJUSTMENT}, (JournalTypeCode)
    input true, (JournalIsActive)
    output dataset tqJournalByJournalTypeOIA) in BJournal >

find first tqJournalByJournalTypeOIA no-error.
if available tqJournalByJournalTypeOIA
then assign ocJournalCode = tqJournalByJournalTypeOIA.tcJournalCode
            ocLayerCode   = tqJournalByJournalTypeOIA.tcLayerCode.