method ValReason

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

validation on relation REASONINAPMATCHING

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.