Description
Get related business field by journalcode. For UI use.
Parameters
| icJournalCode | input | character | |
| ocJournalType | output | character | |
| ocLayerCode | output | character | |
| ocLayerTypeCode | output | character | |
| ocJournalControl | output | character | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program8/bmirroringjournal.p)
assign oiReturnStatus = -98.
/*Get related business field to UI based for the input journalcode */
if icJournalCode <> ? and icJournalCode <> '':U
then do:
<Q-2 run JournalByJournalLayer (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input icJournalCode, (JournalCode)
input ?, (CandoJournalTypeCode)
input ?, (LayerCode)
input ?, (CandoLayerTypeCode)
input ?, (JournalID)
input true, (JournalIsActive)
output dataset tqJournalByJournalAndLayer) in BJournal >
find first tqJournalByJournalAndLayer no-error.
if available tqJournalByJournalAndLayer
then do:
assign ocJournalType = tqJournalByJournalAndLayer.tcJournalTypeCode
ocLayerCode = tqJournalByJournalAndLayer.tcLayerCode
ocLayerTypeCode = tqJournalByJournalAndLayer.tcLayerTypeCode
ocJournalControl = tqJournalByJournalAndLayer.tcJournalControl.
end. /* if available tqJournalByJournalAndLayer */
end. /* if icJournalCode <> ? and icJournalCode <> '':U */
else assign ocJournalType = '':U
ocLayerCode = '':U
ocLayerTypeCode = '':U
ocJournalControl = '':U.
if oiReturnStatus = -98
then assign oiReturnStatus = 0.