Parameters
| icJournalCode | input | character | |
| olIsFinancial | output | logical | |
| iiCompanyId | input | integer | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/bdinvoice.p)
/* Judge if the journal control is financial or not */
<Q-40 run JournalByJournalCode (all) (Read) (NoCache)
(input iiCompanyId, (CompanyId)
input icJournalCode, (JournalCode)
output dataset tqJournalByJournalCode) in BJournal>
find first tqJournalByJournalCode no-error.
if available tqJournalByJournalCode
then do:
if tqJournalByJournalCode.tcJournalControl = {&JOURNALCONTROL-FINANCIAL}
then assign olIsFinancial = true.
else assign olIsFinancial = false.
end.
else do:
assign
olIsFinancial = false.
end.