bin/cust_pay-delete

   1 #!/usr/bin/perl
   2
   3 use FS::UID qw( adminsuidsetup );
   4 use FS::Record qw( qsearch );
   5 use FS::cust_pay;
   6
   7 adminsuidsetup shift or die usage();
   8
   9 my $custnum = shift or die usage();
  10
  11 my $paid = shift or die usage();
  12
  13 my $min_paynum = shift or die usage();
  14
  15 my @cust_pay = qsearch({
  16   'table'   => 'cust_pay',
  17   'hashref' => { 'custnum' => $custnum,
  18                  'paid'    => $paid,
  19                  'paynum'  => { op=>'>=', value=>$min_paynum, },
  20                  'payinfo' => '',
  21                },
  22 });
  23
  24 die "Delete ". scalar(@cust_pay). " payments?\n";
  25
  26 #foreach my $cust_pay (@cust_pay) {
  27 #  my $error = $cust_pay->delete;
  28 #  die $error if $error;
  29 #}
  30
  31 sub usage {
  32   "Usage: cust_pay delete username custnum paid min_paynum\n";
  33 }