diff options
author | Ivan Kohler <ivan@freeside.biz> | 2014-09-05 18:22:46 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2014-09-05 18:22:46 -0700 |
commit | 54c7d50f5c0da30367315ec3a169c03a5d6eedc1 (patch) | |
tree | 45ebc7e311275146d001f5dc40c9d5112a1d1cba /FS/FS/cust_pay.pm | |
parent | 7538d1559b61a18a817917cb76cb0c6a0645456f (diff) |
add invnum to payment import, RT#29673
Diffstat (limited to 'FS/FS/cust_pay.pm')
-rw-r--r-- | FS/FS/cust_pay.pm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm index 54b8e90..80a1e3e 100644 --- a/FS/FS/cust_pay.pm +++ b/FS/FS/cust_pay.pm @@ -1157,7 +1157,7 @@ sub batch_import { my @fields; my $payby; if ( $format eq 'simple' ) { - @fields = qw( custnum agent_custid paid payinfo ); + @fields = qw( custnum agent_custid paid payinfo invnum ); $payby = 'BILL'; } elsif ( $format eq 'extended' ) { die "unimplemented\n"; @@ -1242,9 +1242,20 @@ sub batch_import { $cust_pay{custnum} = $2; } + my $custnum = $cust_pay{custnum}; + my $cust_pay = new FS::cust_pay( \%cust_pay ); my $error = $cust_pay->insert; + if ( ! $error && $cust_pay->custnum != $custnum ) { + #invnum was defined, and ->insert set custnum to the customer for that + #invoice, but it wasn't the one the import specified. + $dbh->rollback if $oldAutoCommit; + $error = "specified invoice #". $cust_pay{invnum}. + " is for custnum ". $cust_pay->custnum. + ", not specified custnum $custnum"; + } + if ( $error ) { $dbh->rollback if $oldAutoCommit; return "can't insert payment for $line: $error"; |