validation procedure
Description
ValJournal
Parameters
icTargetField | input | character | Value of the business field to validate. |
icTargetFieldName | input | character | Name of the business field to validate. |
icRowid | input | character | Contents of field tc_Rowid, if the target field is a field of a component temp-table. |
icJournalTypeCode | input | character | |
ilJournalIsActive | input | logical | |
iiJournalLayerID | input | integer | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program4/bapmatching.p)
if ilJournalIsActive <> true
then do:
assign vcMsgAPMatching = trim(substitute(#T-3'The selected daybook (&1) is not active.':199(56072)T-3#,icTargetField))
oiReturnStatus = -1.
<M-1 run SetMessage
(input vcMsgAPMatching (icMessage),
input '':U (icArguments),
input icTargetFieldName (icFieldName),
input icTargetField (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'QadFin-5641':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BAPMatching>
end.
if icJournalTypeCode <> {&JOURNALTYPE-CIREC}
then do:
assign vcMsgAPMatching = trim(substitute(#T-5'The type of selected daybook (&1) should be: &2.':199(56073)T-5#,icTargetField,trim({&JOURNALTYPE-CIREC-TR}))) + chr(10) +
trim(substitute(#T-6'Current type: &1.':211(56074)T-6#,icJournalTypeCode))
oiReturnStatus = -1.
<M-4 run SetMessage
(input vcMsgAPMatching (icMessage),
input '':U (icArguments),
input icTargetFieldName (icFieldName),
input icTargetField (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'QadFin-5642':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BAPMatching>
end.
<Q-7 run LayerByLayerIDLayerTypeCode (all) (Read) (NoCache)
(input iiJournalLayerID, (LayerID)
input ?, (LayerTypeCode)
input ?, (LayerCode)
output dataset tqLayerByLayerIDLayerTypeCode) in BLayer >
find first tqLayerByLayerIDLayerTypeCode no-lock no-error.
if available tqLayerByLayerIDLayerTypeCode and
tqLayerByLayerIDLayerTypeCode.tcLayerTypeCode <> {&LAYERTYPECODE-OFFICIAL}
then do :
assign vcMsgAPMatching = trim(substitute(#T-9'The selected daybook (&1) should be in the official layer.':241(56075)T-9#,icTargetField,trim({&JOURNALTYPE-CIREC-TR})))
oiReturnStatus = -1.
<M-8 run SetMessage
(input vcMsgAPMatching (icMessage),
input '':U (icArguments),
input icTargetFieldName (icFieldName),
input icTargetField (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'QadFin-5643':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BAPMatching>
end.