my $formatre; # for Fixed.+
my @values;
my $begin_condition;
- my $pre_hook;
my $end_condition;
my $end_hook;
my $hook;
@fields = (
'', # Name
- 'custnum' , # ID: Customer number of the transaction
+ 'paybatchnum', # ID: Number of the transaction
'aba', # ABA Number for the transaction
'payinfo', # Bank Account Number for the transaction
'', # Transaction Type: 27 - debit
'';
};
- $pre_hook = sub {
- my $hash = shift;
- my @cust_pay_batch = # this is dodgy, it works due to autoposting
- qsearch('cust_pay_batch', { 'custnum' => $hash->{'custnum'}+0,
- 'status' => ''
- } );
- if ( scalar(@cust_pay_batch) == 1 ) {
- $hash->{'paybatchnum'} = $cust_pay_batch[0]->paybatchnum;
- }else{
- return "can't find batch payment for customer number " .$hash->{custnum};
- }
- '';
- };
-
$hook = sub {
my $hash = shift;
$hash->{'_date'} = time; # got a better one?
$hash{$field} = $value;
}
- if ( defined($pre_hook) ) {
- my $error = &{$pre_hook}(\%hash);
- if ( $error ) {
- $dbh->rollback if $oldAutoCommit;
- return $error;
- }
- }
-
if ( &{$end_condition}(\%hash) ) {
my $error = &{$end_hook}(\%hash, $total);
if ( $error ) {