projekt kivitendo

    foreach ( @{$all_open_sepa_export_items}) {

      if ( $_->ap_id == $open_invoice->id ||  $_->ar_id == $open_invoice->id ) {

        my $factor = ( $_->ar_id == $open_invoice->id>0?1:-1);

        $open_invoice->{sepa_export_item} = $_ ;

        $open_invoice->{skonto_type} = $_->payment_type;

        $sepa_exports{$_->sepa_export_id} ||= { count => 0, is_ar => 0, amount => 0, proposed => 0, invoices => [], item => $_ };

    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));

          ## jupp

          $bt->{proposals} = $sepa_exports{$_}->{invoices} ;

          $bt->{agreement}    = 20;

          $_->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);

            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;

          }

          };

        }

      }

      # Record a record link from the bank transaction to the invoice

      my @props = (

        from_table => 'bank_transactions',