- foreach ( keys %sepa_exports) {
- my $factor = ($sepa_exports{$_}->{is_ar}>0?1:-1);
- #$main::lxdebug->message(LXDebug->DEBUG2(),"exp count=".$sepa_exports{$_}->{count}." factor=".$factor." proposed=".$sepa_exports{$_}->{proposed});
- if ( $sepa_exports{$_}->{count} == 1 ) {
- my $oinvoice = @{ $sepa_exports{$_}->{invoices}}[0];
- my $eitem = $sepa_exports{$_}->{item};
- $eitem->amount($eitem->amount*1);
- #$main::lxdebug->message(LXDebug->DEBUG2(),"remote account '".$bt->{remote_account_number}."' bt_amount=". ($bt->amount * $factor));
- #$main::lxdebug->message(LXDebug->DEBUG2(),"compare with '".$eitem->vc_iban."' amount=".$eitem->amount);
- if ( $bt->{remote_account_number} eq $eitem->vc_iban && $eitem->amount eq ($bt->amount * $factor)) {
- ## jupp
- $bt->{proposals} = $sepa_exports{$_}->{invoices} ;
- #$main::lxdebug->message(LXDebug->DEBUG2(),"found invoice");
- $sepa_exports{$_}->{proposed}=1;
- push(@proposals, $bt);
- next;
+ foreach ( @{$all_open_sepa_export_items}) {
+ last if scalar (@all_sepa_invoices) == 0;
+ foreach my $open_invoice (@all_sepa_invoices){
+ if ( $_->ap_id == $open_invoice->id || $_->ar_id == $open_invoice->id ) {
+ #$main::lxdebug->message(LXDebug->DEBUG2(),"exitem2=".$_->id." for invoice ".$open_invoice->id);
+ my $factor = ( $_->ar_id == $open_invoice->id?1:-1);
+ $_->amount($_->amount*1);
+ #$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 && $_->amount eq ($bt->amount * $factor)) {
+ push ($bt->{proposals},$open_invoice );
+ $bt->{agreement} = 20;
+ $bt->{rule_matches} = 'sepa_export_item(20)';
+ #$main::lxdebug->message(LXDebug->DEBUG2(),"found invoice");
+ @all_sepa_invoices = grep { $_ != $open_invoice } @all_sepa_invoices;
+ last;
+ }