projekt kivitendo

  $dbh->do("UPDATE defaults SET sonumber = 'ord-00', sqnumber = 'quo-00', sdonumber = 'do-00'");

    save        => 1,

    customer    => $customer,

    taxincluded => 0,

    save        => 1,

    customer    => $customer,

    taxincluded => 0,

    save        => 1,

    customer    => $customer,

    taxincluded => 0,

    save        => 1,

    # customer    => $customer,

    employee     => $employee,

    taxincluded => 0,

  #   taxincluded => 0,

  $dbh->do("UPDATE defaults SET rfqnumber = 'rfq-00', ponumber = 'po-00', pdonumber = 'pdo-00'");

    taxincluded => 0,

    taxincluded => 0,

    save        => 1,

    vendor      => $vendor,

    taxincluded => 0,

    # vendor             => $vendor,

    taxincluded       => 0,

Support::TestSetup::login();

$dbh = SL::DB->client->dbh;

clear_up();

reset_state();

reset_basic_sales_records();

reset_basic_purchase_records();

note "testing deletions";

is(SL::DB::Manager::Order->get_all_count(where => [ quotation => 1 ]), 2, 'number of quotations before delete ok');

is(SL::DB::Manager::Order->get_all_count(where => [ quotation => 0 ]), 2, 'number of orders before delete ok');

is(SL::DB::Manager::DeliveryOrder->get_all_count(), 2, 'number of delivery orders before delete ok');

is(SL::DB::Manager::Reclamation->get_all_count(), 2, 'number of reclamations before delete ok');

# is(SL::DB::Manager::Invoice->get_all_count(), 1, 'number of invoices before delete ok'); # no purchase_invoice was created

foreach my $record ( ($sales_quotation1,

                      $sales_order1,

                      $sales_reclamation1,

                      $purchase_quotation1,

                      $purchase_order1,

                      $purchase_reclamation1

                     )

                   ) {

  my $delete_return  = SL::Model::Record->delete($record);

  my $record_history = SL::DB::Manager::History->find_by(trans_id => $record->id, addition => 'DELETED');

  # just test if snumbers contains "_", not whether it actually is correct

  ok($record_history->snumbers =~ m/_/, "history snumbers of record " . $record_history->snumbers . " ok");

};

is(SL::DB::Manager::Order->get_all_count(where => [ quotation => 1 ]), 0, 'number of quotations after delete ok');

is(SL::DB::Manager::Order->get_all_count(where => [ quotation => 0 ]), 0, 'number of orders after delete ok');

# is(SL::DB::Manager::Invoice->get_all_count(), 0, 'number of invoices after delete ok');

is(SL::DB::Manager::Reclamation->get_all_count(), 0, 'number of orders after delete ok');

note "testing workflows";

reset_state();

reset_basic_sales_records();

reset_basic_purchase_records();

note "testing subversion of order";

# make current version a final version, currently this is handled via frontend/controller

is($sales_order1->ordnumber, "ord-01", "ordnumber before increment_subversion ok");

SL::DB::OrderVersion->new(oe_id => $sales_order1->id, version => 1, final_version => 1)->save;

SL::Model::Record->increment_subversion($sales_order1);

is($sales_order1->ordnumber, "ord-01-2", "ordnumber after increment_subversion ok");

is(SL::DB::Manager::Order->get_all_count(where => [quotation => 0]), 2, 'number of orders after incremented subversion ok');

note "testing new_from_workflow for quotation";

foreach my $target_record_type ( qw(sales_order sales_delivery_order) ) {

  # TODO: invoice

  note "  testing from quotation -> $target_record_type";

  my $new_record = SL::Model::Record->new_from_workflow($sales_quotation1, $target_record_type);

  SL::Model::Record->save($new_record);

  $new_record->load;

  cmp_ok($new_record->netamount, '==', 710, "converted $target_record_type netamount ok") if $new_record->can('netamount');

  my $record_history = SL::DB::Manager::History->find_by(trans_id => $new_record->id, addition => 'SAVED');

  ok($record_history->snumbers =~ m/_/, "history snumbers of record " . $record_history->snumbers . " ok");

  test_record_links($new_record, "converted $target_record_type");

};

note "testing new_from_workflow for order";

foreach my $target_record_type ( qw(sales_delivery_order sales_reclamation) ) {

  # TODO: invoice

  note "  testing from quotation -> $target_record_type";

  my $new_record = SL::Model::Record->new_from_workflow($sales_order1, $target_record_type);

  if ( 'SL::DB::Reclamation' eq ref($new_record) ) {

    $_->reason($reclamation_reason) foreach @{ $new_record->items };

  };

  SL::Model::Record->save($new_record);

  $new_record->load;

  my $record_history = SL::DB::Manager::History->find_by(trans_id => $new_record->id, what_done => $target_record_type, addition => 'SAVED');

  ok($record_history->snumbers =~ m/_/, "history snumbers of record " . $record_history->snumbers . " ok");

  cmp_ok($new_record->netamount, '==', 710, "converted $target_record_type netamount ok") if $new_record->can('netamount');

  test_record_links($new_record, "converted $target_record_type");

};

note ('testing multi');

clear_up();

reset_state();

reset_basic_sales_records();

reset_basic_purchase_records();

note('combining several sales orders to one combined order');

my @sales_orders;

push(@sales_orders, SL::Model::Record->new_from_workflow($sales_quotation1, 'sales_order')->save->load) for 1 .. 3;

my $combined_order = SL::Model::Record->new_from_workflow_multi(\@sales_orders, 'sales_order', sort_sources_by => 'transdate');

SL::Model::Record->save($combined_order);

cmp_ok($combined_order->netamount, '==', 3*710, "netamount of combined order ok");

clear_up();

done_testing;

sub test_record_links {

  my $record = shift;

  my $text = shift;

  is(@{ $record->linked_records }, 1, "1 record link for $text created ok"); # just check if one exists, not if it is actually correct

  my $number_of_item_record_links;

  foreach my $item ( @{ $record->items } ) {

    $number_of_item_record_links += scalar @{ $item->linked_records };

  };

  is($number_of_item_record_links, 2, "2 record links for $text items created ok"); # just check if they exist, not if they are actually correct

}