method ValidateComponentBillingDayCompare

validation procedure

Parameters

iiTargetBillingDay	input	integer	Value of the business field to validate.
icTargetFieldName	input	character	Name of the business field to validate.
iiPreviousBillingDay	input	integer
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BBillSchedule.ValidateComponentPost

program code (program3/bbillschedule.p)

/* Validate date must be less than next one */
if iiPreviousBillingDay <> 0                                             and 
   iiTargetBillingDay <> 0                                             and
   not (iiPreviousBillingDay < iiTargetBillingDay)
then do:
   <M-58 run SetMessage
      (input  trim(substitute(#T-55'Billing day (&1) must be later than Billing Day (&2).':255(796512918)T-55#, iiTargetBillingDay, iiPreviousBillingDay)) (icMessage), 
       input  '':U (icArguments), 
       input  icTargetFieldName (icFieldName), 
       input  string(iiTargetBillingDay) (icFieldValue), 
       input  'E':U (icType), 
       input  3 (iiSeverity), 
       input  ? (icRowid), 
       input  'qadfin-505085':U (icFcMsgNumber), 
       input  '':U (icFcExplanation), 
       input  '':U (icFcIdentification), 
       input  '':U (icFcContext), 
       output viFcReturnSuper (oiReturnStatus)) in BBillSchedule>
    assign oiReturnStatus = -1.
end.