project QadFinancials > class BAPMatching > method ValReason

validation procedure


Parameters


icTargetFieldinputcharacterValue of the business field to validate.
icTargetFieldNameinputcharacterName of the business field to validate.
icRowidinputcharacterContents of field tc_Rowid, if the target field is a field of a component temp-table.
ilReasonIsActiveinputlogical
icReasonAllocationStatusinputcharacter
ilReasonIsLogisticMatchinginputlogical
oiReturnStatusoutputintegerReturn 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.