$sepa_exports{$_->sepa_export_id}->{count}++ ;
$sepa_exports{$_->sepa_export_id}->{is_ar}++ if $_->ar_id == $open_invoice->id;
$sepa_exports{$_->sepa_export_id}->{amount} += $_->amount * $factor;
- push ( @{ $sepa_exports{$_->sepa_export_id}->{invoices}} , $open_invoice );
+ push @{ $sepa_exports{$_->sepa_export_id}->{invoices} }, $open_invoice;
#$main::lxdebug->message(LXDebug->DEBUG2(),"amount for export id ".$_->sepa_export_id." = ".
# $sepa_exports{$_->sepa_export_id}->{amount}." count = ".
# $sepa_exports{$_->sepa_export_id}->{count}." is_ar = ".
if ( $self->is_collective_transaction($bt) ) {
foreach ( keys %sepa_exports) {
#$main::lxdebug->message(LXDebug->DEBUG2(),"Exp ID=".$_." compare sum amount ".($sepa_exports{$_}->{amount} *1) ." == ".($bt->amount * 1));
- if ( $bt->transactioncode eq '191' && abs(($sepa_exports{$_}->{amount} * 1) - ($bt->amount * 1)) < 0.01 ) {
+ if ( $bt->transaction_code eq '191' && abs(($sepa_exports{$_}->{amount} * 1) - ($bt->amount * 1)) < 0.01 ) {
## jupp
$bt->{proposals} = $sepa_exports{$_}->{invoices} ;
$bt->{agreement} = 20;
#$main::lxdebug->message(LXDebug->DEBUG2(),"remote account '".$bt->{remote_account_number}."' bt_amount=". ($bt->amount * $factor));
#$main::lxdebug->message(LXDebug->DEBUG2(),"compare with '".$_->vc_iban."' amount=".$_->amount);
if ( $bt->{remote_account_number} eq $_->vc_iban && abs(( $_->amount *1 ) - ($bt->amount * $factor)) < 0.01 ) {
- push ($bt->{proposals},$open_invoice );
+ push @{ $bt->{proposals} }, $open_invoice;
$bt->{agreement} = 20;
$bt->{rule_matches} = 'sepa_export_item(20)';
#$main::lxdebug->message(LXDebug->DEBUG2(),"found invoice");
sub is_collective_transaction {
my ($self, $bt) = @_;
- return $bt->transactioncode eq "191";
+ return $bt->transaction_code eq "191";
}
sub save_single_bank_transaction {