diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2014-09-05 18:22:47 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2014-09-05 18:22:47 -0700 |
| commit | 43530fe13141377a688b498d72617cd02ea93fae (patch) | |
| tree | e10dc8e951cceeb80546f1f08dbfa25872e01f4a | |
| parent | 5a76902cdaee8a0276c49af42352efd673c4e2d0 (diff) | |
add invnum to payment import, RT#29673
| -rw-r--r-- | FS/FS/cust_pay.pm | 13 | ||||
| -rw-r--r-- | httemplate/misc/cust_pay-import.cgi | 4 |
2 files changed, 15 insertions, 2 deletions
diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm index 139837c3a..01736f78f 100644 --- a/FS/FS/cust_pay.pm +++ b/FS/FS/cust_pay.pm @@ -1183,7 +1183,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"; @@ -1268,9 +1268,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"; diff --git a/httemplate/misc/cust_pay-import.cgi b/httemplate/misc/cust_pay-import.cgi index 28ad6e7df..05a6c4fd8 100644 --- a/httemplate/misc/cust_pay-import.cgi +++ b/httemplate/misc/cust_pay-import.cgi @@ -59,7 +59,9 @@ Field information: <li><i>amount</i>: A positive numeric value with at most two digits after the decimal point. - <li><i>checknum</i>: A sequences of digits. May be left blank. + <li><i>checknum</i>: A sequence of digits. May be left blank. + + <li><i>invnum</i>: Invoice number, optional </ul> |