package FS::cust_bill_pay;
use strict;
-use vars qw( @ISA );
+use vars qw( @ISA $conf );
use FS::Record qw( qsearch qsearchs dbh );
use FS::cust_bill;
use FS::cust_pay;
@ISA = qw( FS::Record );
+#ask FS::UID to run this stuff for us later
+FS::UID->install_callback( sub {
+ $conf = new FS::Conf;
+} );
+
=head1 NAME
FS::cust_bill_pay - Object methods for cust_bill_pay records
$pay_total += $_ foreach map { $_->amount }
qsearch('cust_bill_pay', { 'paynum' => $self->paynum } );
- if ( $pay_total > $cust_pay->paid ) {
+ if ( sprintf("%.2f", $pay_total) > sprintf("%.2f", $cust_pay->paid) ) {
$dbh->rollback if $oldAutoCommit;
return "total cust_bill_pay.amount $pay_total for paynum ". $self->paynum.
" greater than cust_pay.paid ". $cust_pay->paid;
}
- my $cust_bill = qsearchs('cust_bill', { 'invnum' => $self->invnum } ) or do {
+ my $cust_bill = $self->cust_bill;
+ unless ( $cust_bill ) {
$dbh->rollback if $oldAutoCommit;
return "unknown cust_bill.invnum: ". $self->invnum;
};
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.
$dbh->commit or die $dbh->errstr if $oldAutoCommit;
+ if ( $conf->exists('invoice_send_receipts') ) {
+ my $send_error = $cust_bill->send;
+ warn "Error sending receipt: $send_error\n" if $send_error;
+ }
+
'';
}
=item delete
-Currently unimplemented (accounting reasons).
+Deletes this payment application, unless the closed flag for the parent payment
+(see L<FS::cust_pay>) is set.
=cut
sub delete {
- return "Can't (yet?) delete cust_bill_pay records!";
+ my $self = shift;
+ return "Can't delete application for closed payment"
+ if $self->cust_pay->closed =~ /^Y/i;
+ $self->SUPER::delete(@_);
}
=item replace OLD_RECORD
;
return $error if $error;
- return "amount must be > 0" if $self->amount == 0;
+ return "amount must be > 0" if $self->amount <= 0;
$self->_date(time) unless $self->_date;
- ''; #no error
+ $self->SUPER::check;
}
=item cust_pay
=back
-=head1 VERSION
-
-$Id: cust_bill_pay.pm,v 1.8 2001-09-03 22:07:38 ivan Exp $
-
=head1 BUGS
Delete and replace methods.