projekt kivitendo

      if ($self->end_to_end_id && $self->end_to_end_id eq $sei->end_to_end_id) {

use Test::More tests => 449;

reset_state();

test_sepa_export_endtoend();

sub test_sepa_export_endtoend {

  my $testname = 'test_sepa_export_endtoend';

  $ar_transaction = test_ar_transaction(invnumber => 'sepa1', transdate => $dt);

  my $bt  = create_bank_transaction(record => $ar_transaction, transdate => $dt,

                                    end_to_end_id => "KIVITENDO202412101212"     )

    or die "Couldn't create bank_transaction";

  my $se  = create_sepa_export();

  my $sei = create_sepa_export_item(

    chart_id       => $bank->id,

    ar_id          => $ar_transaction->id,

    sepa_export_id => $se->id,

    end_to_end_id  => "KIVITENDO202412101212",

    vc_iban        => $customer->iban,

    vc_bic         => $customer->bic,

    vc_mandator_id => $customer->mandator_id,

    vc_depositor   => $customer->depositor,

    amount         => $ar_transaction->amount,

  );

  require SL::SEPA::XML;

  my $sepa_xml   = SL::SEPA::XML->new('company'     => $customer->name,

                                      'creditor_id' => "id",

                                      'src_charset' => 'UTF-8',

                                      'message_id'  => "test",

                                      'grouped'     => 1,

                                      'collection'  => 1,

                                     );

  is($sepa_xml->{company}    , 'Test Customer OLE S.L. Ardbaerg AB');

  $ar_transaction->load;

  $bt->load;

  $sei->load;

  is($ar_transaction->paid   , '0.00000' , "$testname: sepa1 not paid");

  is($bt->invoice_amount     , '0.00000' , "$testname: bt invoice amount was not assigned");

  is($bt->amount             , '119.00000' , "$testname: bt amount ok");

  is($sei->amount            , '119.00000' , "$testname: sepa export amount ok");

  my $bt_controller = SL::Controller::BankTransaction->new;

  my ( $bt_transactions, $proposals ) = $bt_controller->gather_bank_transactions_and_proposals(bank_account => $bank_account);

  is(scalar(@$bt_transactions)         , 1  , "$testname: one bank_transaction");

  is($bt_transactions->[0]->{agreement}, 33 , "$testname: agreement == 33");

  my $match = join ( ' ',@{$bt_transactions->[0]->{rule_matches}});

  is($match,

     "remote_account_number(3) exact_amount(4) own_invoice_in_purpose(5) depositor_matches(2) remote_name(2) payment_within_30_days(1) datebonus0(3) end_to_end_id(8) sepa_export_item(5) ",

     "$testname: rule_matches ok");

}