blob: b12b5a97238a7e83a0da442132b5d2996a8989a2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
#!/usr/bin/perl
use strict;
use warnings;
use vars qw( %opt );
use FS::Misc::Getopt;
use FS::Record qw(qsearch qsearchs dbh);
getopts('cpiXr:t:');
my $dbh = dbh;
$FS::UID::AutoCommit = 0;
sub usage() {
"Usage: bulk_void -s start -e end
-r void_reason
{ -c | -p | -i }
[ -t payby ]
[ -X ]
<user>
-s, -e: date range (required)
-r: void reason text (required)
-c, -p, -i: void credits, payments, invoices
-t: only void payments with this payby
-X: commit changes
";
}
if (!$opt{start} or !$opt{end} or !$opt{r}) {
die usage;
}
print "DRY RUN--changes will not be committed.\n" unless $opt{X};
my $date = " WHERE _date >= $opt{start} AND _date <= $opt{end}";
my %search = ();
$search{payby} = $opt{t} if $opt{t} && $opt{p};
my %tables = (
c => 'cust_credit',
p => 'cust_pay',
i => 'cust_bill',
);
my $reason = $opt{r};
foreach my $k (keys %tables) {
next unless $opt{$k};
my $table = $tables{$k};
debug("$table:");
my $done_count = 0;
my $error_count = 0;
my $cursor = FS::Cursor->new({
table => $table,
hashref => \%search,
extra_sql => $date,
});
my $error;
while (my $record = $cursor->fetch) {
$error = $record->void($reason);
if ( $error ) {
$error = "$table #" . $record->get($record->primary_key) . ": $error";
print "$error\n";
$error_count++;
if ( $opt{X} ) {
$dbh->rollback;
exit(1);
}
} else {
$done_count++;
}
}
print " $table voided: $done_count\n errors: $error_count\n";
}
if ( $opt{X} ) {
$dbh->commit;
print "Committed changes.\n";
} else {
$dbh->rollback;
print "Reverted changes.\n";
}
|
