validation procedure
Description
Extra validation on Journal Type (only type Journal Entry)
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 | Daybook Type Code |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program4/brecurringentry.p)
/* ============================================================== */
/* Journal Type Code should be 'Journal Entry' */
/* ============================================================== */
if icJournalTypeCode <> {&JOURNALTYPE-JOURNALENTRY}
then do:
assign vcMessageRE = trim(substitute(#T-2'The daybook (&1) must be of daybook type &2.':150(3491)T-2#, trim(icTargetField), trim({&JOURNALTYPE-JOURNALENTRY-TR}) ))
oiReturnStatus = -1.
<M-1 run SetMessage (input vcMessageRE (icMessage),
input '':U (icArguments),
input icTargetFieldName (icFieldName),
input icTargetField (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'QADFIN-1343':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BRecurringEntry>
end.