quick payment deletion script, RT#71249

1 files changed, 33 insertions, 0 deletions

diff --git a/bin/cust_pay-delete b/bin/cust_pay-delete
new file mode 100644
index 000000000..e266d0daa
--- /dev/null
+++ b/bin/cust_pay-delete
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+use FS::UID qw( adminsuidsetup );
+use FS::Record qw( qsearch );
+use FS::cust_pay;
+
+adminsuidsetup shift or die usage();
+
+my $custnum = shift or die usage();
+
+my $paid = shift or die usage();
+
+my $min_paynum = shift or die usage();
+
+my @cust_pay = qsearch({
+  'table'   => 'cust_pay',
+  'hashref' => { 'custnum' => $custnum,
+                 'paid'    => $paid,
+                 'paynum'  => { op=>'>=', value=>$min_paynum, },
+                 'payinfo' => '',
+               },
+});
+
+die "Delete ". scalar(@cust_pay). " payments?\n";
+
+#foreach my $cust_pay (@cust_pay) {
+#  my $error = $cust_pay->delete;
+#  die $error if $error;
+#}
+
+sub usage {
+  "Usage: cust_pay delete username custnum paid min_paynum\n";
+}