diff options
author | ivan <ivan> | 2001-09-02 01:27:11 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-09-02 01:27:11 +0000 |
commit | 51e148d543a59a3cdec24bfb5ffb839ee7b4ac72 (patch) | |
tree | 49ef3d509b0af99b7daaa6668d31b2e2065045f6 /FS/FS/cust_bill_pay.pm | |
parent | 98ddc878969bb39e576e3bd316f96ff7eeedb750 (diff) |
more udpates for the new world of unapplied stuff. yay.
Diffstat (limited to 'FS/FS/cust_bill_pay.pm')
-rw-r--r-- | FS/FS/cust_bill_pay.pm | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/FS/FS/cust_bill_pay.pm b/FS/FS/cust_bill_pay.pm index e7040d96b..6d08b59c8 100644 --- a/FS/FS/cust_bill_pay.pm +++ b/FS/FS/cust_bill_pay.pm @@ -3,7 +3,8 @@ package cust_bill_pay; use strict; use vars qw( @ISA ); use FS::Record qw( qsearch qsearchs dbh ); -#use FS::cust_bill +use FS::cust_bill; +use FS::cust_pay; @ISA = qw( FS::Record ); @@ -167,17 +168,29 @@ sub check { ''; #no error } +=item cust_pay + +Returns the payment (see L<FS::cust_pay>) + +=cut + +sub cust_pay { + my $self = shift; + qsearchs( 'cust_pay', { 'invnum' => $self->invnum } ); +} + =back =head1 VERSION -$Id: cust_bill_pay.pm,v 1.2 2001-09-01 21:55:06 jeff Exp $ +$Id: cust_bill_pay.pm,v 1.3 2001-09-02 01:27:11 ivan Exp $ =head1 BUGS Delete and replace methods. -cust_credit_bill isn't checked yet (uncomment around line 111) +the checks for over-applied payments could be better done like the ones in +cust_bill_credit =head1 SEE ALSO |