diff options
| author | ivan <ivan> | 2002-01-22 15:57:33 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-01-22 15:57:33 +0000 |
| commit | d89908c40c18df348f580852f906853184fabd3c (patch) | |
| tree | 8442c9b6a16814ad1deecaa97a9028654e4819cb | |
| parent | 4f391f615b2ea762783edc0fa796013c57e457e2 (diff) | |
don't allow $0.00 in credits/payments/refunds
| -rw-r--r-- | FS/FS/cust_credit.pm | 4 | ||||
| -rw-r--r-- | FS/FS/cust_pay.pm | 4 | ||||
| -rw-r--r-- | FS/FS/cust_refund.pm | 4 |
3 files changed, 9 insertions, 3 deletions
diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm index 54c201ad4..278e6dedd 100644 --- a/FS/FS/cust_credit.pm +++ b/FS/FS/cust_credit.pm @@ -160,6 +160,8 @@ sub check { ; return $error if $error; + return "amount must be > 0 " if $self->amount == 0; + return "Unknown customer" unless qsearchs( 'cust_main', { 'custnum' => $self->custnum } ); @@ -235,7 +237,7 @@ sub credited { =head1 VERSION -$Id: cust_credit.pm,v 1.12 2001-10-09 23:10:16 ivan Exp $ +$Id: cust_credit.pm,v 1.13 2002-01-22 15:57:33 ivan Exp $ =head1 BUGS diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm index ecd6ab24f..b96e29fbd 100644 --- a/FS/FS/cust_pay.pm +++ b/FS/FS/cust_pay.pm @@ -240,6 +240,8 @@ sub check { ; return $error if $error; + return "paid must be > 0 " if $self->paid == 0; + return "unknown cust_main.custnum: ". $self->custnum unless $self->invnum || qsearchs( 'cust_main', { 'custnum' => $self->custnum } ); @@ -304,7 +306,7 @@ sub unapplied { =head1 VERSION -$Id: cust_pay.pm,v 1.10 2001-12-26 07:53:21 ivan Exp $ +$Id: cust_pay.pm,v 1.11 2002-01-22 15:57:33 ivan Exp $ =head1 BUGS diff --git a/FS/FS/cust_refund.pm b/FS/FS/cust_refund.pm index 77bacdffb..7b8b29f5e 100644 --- a/FS/FS/cust_refund.pm +++ b/FS/FS/cust_refund.pm @@ -213,6 +213,8 @@ sub check { ; return $error if $error; + return "amount must be > 0 " if $self->amount == 0; + $self->_date(time) unless $self->_date; return "unknown cust_main.custnum: ". $self->custnum @@ -249,7 +251,7 @@ sub check { =head1 VERSION -$Id: cust_refund.pm,v 1.8 2001-09-02 05:38:13 ivan Exp $ +$Id: cust_refund.pm,v 1.9 2002-01-22 15:57:33 ivan Exp $ =head1 BUGS |