3 use FS::UID qw( adminsuidsetup );
4 use FS::Record qw( qsearch qsearchs );
5 use FS::cust_pay_refund;
8 adminsuidsetup shift or die usage();
10 ## get a list of all refunds in batches.
12 my $extrasql = " LEFT JOIN pay_batch USING ( batchnum ) WHERE cust_pay_batch.paycode = 'C' AND pay_batch.download IS NULL";
14 my @batch_refunds = qsearch({
15 'table' => 'cust_pay_batch',
16 'select' => 'cust_pay_batch.*',
17 'extra_sql' => $extrasql,
20 warn "found ".scalar @batch_refunds." batch refunds.\n";
21 warn "Searching for their cust refunds...\n" if (scalar @batch_refunds > 0);
24 ## find the cust_pay_refund for all those
25 foreach (@batch_refunds) {
26 my $extra_batch_refund_sql = " WHERE custnum = '".$_->{Hash}->{custnum}."' AND refund = '".$_->{Hash}->{amount}."' ORDER BY _date DESC LIMIT 1";
27 my $cust_refund = qsearchs({
28 'table' => 'cust_refund',
29 'extra_sql' => $extra_batch_refund_sql,
32 warn "found cust refund number ".$cust_refund->{Hash}->{refundnum}.", now to delete it.\n" if $cust_refund;
34 ## delete the cust_pay_refund
35 my $delete_cust_refund_error = $cust_refund->delete if $cust_refund;
36 warn "could not delete cust refund $delete_cust_refund_error\n" if $delete_cust_refund_error;
38 ## delete the refund from the batch.
39 unless ($delete_cust_refund_error) {
40 my $delete_cust_pay_batch_error = $_->unbatch_and_delete;
41 warn "could not delete cust refund $delete_cust_pay_batch_error\n" if $delete_cust_pay_batch_error;
44 if ($delete_cust_refund_error || $delete_cust_pay_batch_error) { die "Could no delete cust_pay_batch refund\n"; }
45 else { warn "cust refund ".$cust_refund->{Hash}->{refundnum}." deleted\n"; }
53 "Usage: Call script as user freeside\n Example: cust_pay_batch_refund_delete <freeside username> ";