process/one-off/fixcontr.p

   1 /* Ensure all annual estimate contracts have fixed period amounts*/
   2
   3 DEF VAR fract AS DEC NO-UNDO.
   4 DEF VAR i     AS INT NO-UNDO.
   5
   6 FOR EACH Contract WHERE Contract.FixedAmount = 0:
   7
   8   FIND ServiceType OF Contract NO-LOCK NO-ERROR.
   9   IF NOT AVAILABLE ServiceType THEN NEXT.
  10
  11   RUN process/calcfreq( Contract.FrequencyCode, OUTPUT fract ).
  12   Contract.FixedAmount =  Contract.AnnualEstimate * fract.
  13
  14   i = i + 1.
  15
  16 END.
  17
  18 MESSAGE i "Contracts Fixed"
  19   VIEW-AS ALERT-BOX INFORMATION TITLE "Done".