Parameters
| icJournalType | input | character | |
| ocJournalCode | output | character | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program3/bcinvoice.p)
<Q-1 run LookupSharedSetForCompany (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input {&SHAREDSETTYPECODE-JOURNAL}, (SharedSetType)
output dataset tqSharedSetForCompany) in BCompany >
find first tqSharedSetForCompany where
tqSharedSetForCompany.tiCompany_ID = viCompanyId and
tqSharedSetForCompany.tcSharedSetTypeCode = {&SHAREDSETTYPECODE-JOURNAL}
no-error.
assign viJournalSharedSetId = if available tqSharedSetForCompany
then tqSharedSetForCompany.tiSharedSet_ID
else 0.
<Q-2 run JournalForProfileLinkDef (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input viJournalSharedSetId, (SharedSetId)
input icJournalType, (JournalTypeCode)
input true, (JournalIsActive)
input ?, (JournalTypeIsCorrection)
input {&JOURNALCONTROL-FINANCIAL}, (JournalControl)
output dataset tqJournalForProfileLinkDef) in BJournal >
find tqJournalForProfileLinkDef where
tqJournalForProfileLinkDef.tcJournalTypeCode = icJournalType and
tqJournalForProfileLinkDef.tlJournalIsActive = true and
tqJournalForProfileLinkDef.tcJournalControl = {&JOURNALCONTROL-FINANCIAL}
no-error.
if available tqJournalForProfileLinkDef
then assign ocJournalCode = tqJournalForProfileLinkDef.tcJournalCode.