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 => $_ };

  # try to match each bank_transaction with each of the possible open invoices

  # by awarding points

  my @proposals;

  foreach my $bt (@{ $bank_transactions }) {

    ## 5 Stellen hinter dem Komma auf 2 Stellen reduzieren

    $bt->amount($bt->amount*1);

    $bt->invoice_amount($bt->invoice_amount*1);

    $main::lxdebug->message(LXDebug->DEBUG2(),"BT ".$bt->id." amount=".$bt->amount." invoice_amount=".$bt->invoice_amount." remote=". $bt->{remote_name});

    $bt->{remote_name} .= $bt->{remote_name_1} if $bt->{remote_name_1};

        #$main::lxdebug->message(LXDebug->DEBUG2(),"Exp ID=".$_." compare sum amount ".($sepa_exports{$_}->{amount} *1) ." == ".($bt->amount * 1));

        if ( $bt->transaction_code eq '191' && abs(($sepa_exports{$_}->{amount} * 1) - ($bt->amount * 1)) < 0.01 ) {

          ## jupp

          $bt->{agreement}    = 20;

          $sepa_exports{$_}->{proposed}=1;

          #$main::lxdebug->message(LXDebug->DEBUG2(),"has ".scalar($bt->{proposals})." invoices");

          push(@proposals, $bt);

          #$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 ) {

          }

        }

      }

    # the arrays $bt->{proposals} and $bt->{rule_matches}, and the agreement

    # score is stored in $bt->{agreement}

      ($open_invoice->{agreement}, $open_invoice->{rule_matches}) = $bt->get_agreement_with_invoice($open_invoice);

      $open_invoice->{realamount} = $::form->format_amount(\%::myconfig,$open_invoice->amount*($open_invoice->{is_ar}?1:-1),2);

    };

    my $agreement = 15;