diff options
Diffstat (limited to 'bin/fs-migrate-payref')
-rwxr-xr-x | bin/fs-migrate-payref | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/bin/fs-migrate-payref b/bin/fs-migrate-payref new file mode 100755 index 000000000..f1513112b --- /dev/null +++ b/bin/fs-migrate-payref @@ -0,0 +1,30 @@ +#!/usr/bin/perl + +use strict; +use FS::UID qw(adminsuidsetup); +use FS::Record qw(qsearch); +use FS::cust_pay; +use FS::cust_refund; + +my $user = shift or die &usage; +my $dbh = adminsuidsetup $user; + +#local $FS::UID::AutoCommit = 0; #quelle hack, in this case +# $FS::UID::AutoCommit = 0; #quelle hack, in this case + +# apply payments to invoices + +foreach my $cust_pay ( qsearch('cust_pay', {} ) ) { + my $error = $cust_pay->upgrade_replace; + warn $error if $error; +} + +# apply refunds to credits + +foreach my $cust_refund ( qsearch('cust_refund') ) { + my $error = $cust_refund->upgrade_replace; + warn $error if $error; +} + +# ? apply credits to invoices + |