validation procedure
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. |
ilReasonIsActive | input | logical | |
icReasonAllocationStatus | input | character | |
ilReasonIsLogisticMatching | input | logical | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program4/bapmatching.p)
<M-1 run ValIsActive
(input icTargetField (icTargetField),
input icTargetFieldName (icTargetFieldName),
input icRowid (icRowid),
input ilReasonIsActive (ilIsActive),
input trim(#T-1'Invoice Status Code':19(47380)T-1#) (icParentObjectLabel),
output viFcReturnSuper (oiReturnStatus)) in BAPMatching>
if viFcReturnSuper < 0 or
oiReturnStatus = 0
then assign oiReturnStatus = viFcReturnSuper.
if icReasonAllocationStatus <> {&ALLOCSTATUS-ALLOC} or ilReasonIsLogisticMatching = false
then do:
<M-71 run SetMessage
(input trim(#T-60'The new invoice status code must have an Allocation Status of Allocation and type should be Receiver Matching':255(581436488)T-60#) (icMessage),
input '':U (icArguments),
input icTargetFieldName (icFieldName),
input icTargetField (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-344643':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BAPMatching>
assign oiReturnStatus = -1.
end.