projekt kivitendo

my ($ar_transaction, $ap_transaction);

sub clear_up {

  SL::DB::Manager::BankTransaction->delete_all(all => 1);

  SL::DB::Manager::InvoiceItem->delete_all(all => 1);

  SL::DB::Manager::InvoiceItem->delete_all(all => 1);

  $::form->{invoice_ids} = {

          $bt->id => [ $ar_transaction->id ]

        };

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

  $bt_controller->action_save_invoices;

  $::form->{invoice_skontos} = {

          $bt->id => [ 'with_skonto_pt' ]

        };

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

  $bt_controller->action_save_invoices;

  $::form->{invoice_ids} = {

          $bt->id => [ $ar_transaction_1->id, $ar_transaction_2->id ]

        };

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

  $bt_controller->action_save_invoices;

  $::form->{invoice_ids} = {

          $bt->id => [ $ar_transaction->id ]

        };

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

  $bt_controller->action_save_invoices;

  is($ar_transaction->paid                     , '135.00000' , "$testname: 'salesinv overpaid' was overpaid");

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

  is($ar_transaction->closed                   , 0           , "$testname: 'salesinv overpaid' is open (via 'closed' method')");

  is($ar_transaction->open_amount == 0 ? 1 : 0 , 0           , "$testname: 'salesinv overpaid is open (via amount-paid)");

};

  $::form->{invoice_ids} = {

          $bt->id => [ $ar_transaction->id ]

        };

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

  $bt_controller->action_save_invoices;