diff options
| author | ivan <ivan> | 2001-12-21 20:55:35 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-12-21 20:55:35 +0000 |
| commit | 29a315f2dc4187e5558315f76c3d27d11e287620 (patch) | |
| tree | e8ae3235190ce942657bcd0dc44a92eb9a723b62 /FS/FS/cust_bill_pay.pm | |
| parent | 1d1703a3c1217c744d2393cbef19364fd595bcb0 (diff) | |
fixes
total cust_bill_pay.amount and cust_credit_bill.amount 19.95 for invnum 1659
greater than cust_bill.charged 19.95 at
/usr/local/lib/perl5/site_perl/5.005/FS/cust_main.pm line 1519.
Diffstat (limited to 'FS/FS/cust_bill_pay.pm')
| -rw-r--r-- | FS/FS/cust_bill_pay.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/cust_bill_pay.pm b/FS/FS/cust_bill_pay.pm index 3b95f45..2b01051 100644 --- a/FS/FS/cust_bill_pay.pm +++ b/FS/FS/cust_bill_pay.pm @@ -111,7 +111,7 @@ sub insert { qsearch('cust_bill_pay', { 'invnum' => $self->invnum } ); $bill_total += $_ foreach map { $_->amount } qsearch('cust_credit_bill', { 'invnum' => $self->invnum } ); - if ( $bill_total > $cust_bill->charged ) { + if ( sprintf("%.2f", $bill_total) > sprintf("%.2f", $cust_bill->charged) ) { $dbh->rollback if $oldAutoCommit; return "total cust_bill_pay.amount and cust_credit_bill.amount $bill_total". " for invnum ". $self->invnum. @@ -195,7 +195,7 @@ sub cust_bill { =head1 VERSION -$Id: cust_bill_pay.pm,v 1.9 2001-12-16 00:55:53 ivan Exp $ +$Id: cust_bill_pay.pm,v 1.10 2001-12-21 20:55:35 ivan Exp $ =head1 BUGS |