DO WHILE ld_firstdrop < ld_enddate
      *-- If the item is schedule for this day, create a record in the billing table
      IF RIGHT(STR(DOW(ld_firstdrop)),1) = a_acrech->DAYOFWEEK
         ** process the day
        ld_firstdrop = ld_firstdrop + 7 
    ELSE   
       ld_firstdrop = ld_firstdrop + 1
    ENDIF
 ENDDO