$pay_total += $_ foreach map { $_->amount }
qsearch('cust_bill_pay', { 'paynum' => $self->paynum } );
$pay_total += $_ foreach map { $_->amount }
qsearch('cust_bill_pay', { 'paynum' => $self->paynum } );
$dbh->rollback if $oldAutoCommit;
return "total cust_bill_pay.amount $pay_total for paynum ". $self->paynum.
" greater than cust_pay.paid ". $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;
}
qsearch('cust_bill_pay', { 'invnum' => $self->invnum } );
$bill_total += $_ foreach map { $_->amount }
qsearch('cust_credit_bill', { 'invnum' => $self->invnum } );
qsearch('cust_bill_pay', { 'invnum' => $self->invnum } );
$bill_total += $_ foreach map { $_->amount }
qsearch('cust_credit_bill', { 'invnum' => $self->invnum } );
$dbh->rollback if $oldAutoCommit;
return "total cust_bill_pay.amount and cust_credit_bill.amount $bill_total".
$dbh->rollback if $oldAutoCommit;
return "total cust_bill_pay.amount and cust_credit_bill.amount $bill_total".
" greater than cust_bill.charged ". $cust_bill->charged;
}
$dbh->commit or die $dbh->errstr if $oldAutoCommit;
" greater than cust_bill.charged ". $cust_bill->charged;
}
$dbh->commit or die $dbh->errstr if $oldAutoCommit;