X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_credit_bill.pm;h=62215419ce5183d776719180658f0ece4b8cc984;hb=b475b428df20541c8f2dec5c9ef101ebb9f1cf94;hp=58cc78965779ae206fe48912c110790eb4dd1b13;hpb=dbfb0ae501d5acba37f9348476d94b99a4c92450;p=freeside.git diff --git a/FS/FS/cust_credit_bill.pm b/FS/FS/cust_credit_bill.pm index 58cc78965..62215419c 100644 --- a/FS/FS/cust_credit_bill.pm +++ b/FS/FS/cust_credit_bill.pm @@ -33,12 +33,14 @@ FS::cust_credit_bill - Object methods for cust_credit_bill records =head1 DESCRIPTION An FS::cust_credit_bill object represents application of a credit (see -L) to a customer bill (see L). FS::cust_credit +L) to an invoice (see L). FS::cust_credit inherits from FS::Record. The following fields are currently supported: =over 4 -=item crednum - primary key; credit being applied +=item creditbillnum - primary key + +=item crednum - credit being applied =item invnum - invoice to which credit is applied (see L) @@ -107,7 +109,7 @@ sub check { ; return $error if $error; - return "amount must be > 0" if $self->amount == 0; + return "amount must be > 0" if $self->amount <= 0; return "Unknown credit" unless my $cust_credit = @@ -119,7 +121,7 @@ sub check { $self->_date(time) unless $self->_date; - return "Cannot apply more than remaining value of credit memo" + return "Cannot apply more than remaining value of credit" unless $self->amount <= $cust_credit->credited; return "Cannot apply more than remaining value of invoice" @@ -143,7 +145,7 @@ sub cust_credit { =head1 VERSION -$Id: cust_credit_bill.pm,v 1.4 2001-09-02 07:49:52 ivan Exp $ +$Id: cust_credit_bill.pm,v 1.7 2002-01-24 16:58:47 ivan Exp $ =head1 BUGS @@ -151,7 +153,7 @@ The delete method. =head1 SEE ALSO -L, L, L, L, +L, L, L, L, schema.html from the base documentation. =cut