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 /FS/FS/cust_credit.pm | |
| parent | 4f391f615b2ea762783edc0fa796013c57e457e2 (diff) | |
don't allow $0.00 in credits/payments/refunds
Diffstat (limited to 'FS/FS/cust_credit.pm')
| -rw-r--r-- | FS/FS/cust_credit.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm index 54c201a..278e6de 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 |