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

   1 DEF VAR batch-code AS INT NO-UNDO.
   2 DEF BUFFER LastBatch FOR Batch.
   3 FIND LAST LastBatch NO-LOCK.
   4 batch-code = LastBatch.BatchCode.
   5 UPDATE batch-code.
   6
   7 FIND Batch WHERE Batch.BatchCode = batch-code.
   8 FOR EACH Document OF Batch:
   9   FOR EACH AcctTran OF Document TRANSACTION:
  10     AcctTran.Amount = 0.
  11   END.
  12 END.
  13 FOR EACH Document OF Batch TRANSACTION:
  14   FOR EACH AcctTran OF Document:
  15     DELETE AcctTran.
  16   END.
  17   DELETE Document.
  18 END.
  19 DO TRANSACTION:
  20 DELETE Batch.
  21 END.