process/one-off/fix/delete-voucher.p

   1 DEF VAR voucher-seq AS INT NO-UNDO.
   2 DEF BUFFER LastVoucher FOR Voucher.
   3 FIND LAST LastVoucher NO-LOCK.
   4 voucher-seq = LastVoucher.VoucherSeq.
   5 UPDATE voucher-seq.
   6
   7 FIND Voucher WHERE Voucher.VoucherSeq = voucher-seq.
   8 FOR EACH VoucherLine OF Voucher:
   9   DELETE VoucherLine.
  10 END.
  11 DO TRANSACTION:
  12 DELETE Voucher.
  13 END.