projekt kivitendo

use Test::More;

use strict;

use lib 't';

use utf8;

use Carp;

use Data::Dumper;

use Support::TestSetup;

use Test::Exception;

use SL::DB::Order;

use SL::DB::Customer;

use SL::DB::Department;

use SL::DB::Currency;

use SL::DB::PaymentTerm;

use SL::DB::DeliveryTerm;

use SL::DB::Employee;

use SL::DB::Part;

use SL::DB::Unit;

use SL::Dev::ALL qw(:ALL);

my ($customer, $employee, $payment_term, $delivery_term, $unit, @parts, $department);

sub clear_up {

  foreach (qw(OrderItem Order Part Customer Department PaymentTerm DeliveryTerm)) {

    "SL::DB::Manager::${_}"->delete_all(all => 1);

  }

  SL::DB::Manager::Employee->delete_all(where => [ login => 'testuser' ]);

};

sub reset_state {

  my %params = @_;

  clear_up();

  $unit     = SL::DB::Manager::Unit->find_by(name => 'kg') || die "Can't find unit 'kg'";

  $customer = new_customer()->save;

  $employee = SL::DB::Employee->new(

    'login' => 'testuser',

    'name'  => 'Test User',

  )->save;

  $department = SL::DB::Department->new(

    'description' => 'Test Department',

  )->save;

  $payment_term = create_payment_terms(

     'description'      => '14Tage 2%Skonto, 30Tage netto',

     'description_long' => "Innerhalb von 14 Tagen abzüglich 2 % Skonto, innerhalb von 30 Tagen rein netto.|Bei einer Zahlung bis zum <%skonto_date%> gewähren wir 2 % Skonto (EUR <%skonto_amount%>) entspricht EUR <%total_wo_skonto%>.Bei einer Zahlung bis zum <%netto_date%> ist der fällige Betrag in Höhe von <%total%> <%currency%> zu überweisen.",

     'percent_skonto'   => '0.02',

     'terms_netto'      => 30,

     'terms_skonto'     => 14

  );

  $delivery_term = SL::DB::DeliveryTerm->new(

    'description'      => 'Test Delivey Term',

    'description_long' => 'Test Delivey Term Test Delivey Term',

  )->save;

  # some parts/services

  @parts = ();

  push @parts, new_part(

    partnumber => 'T4254',

    unit        => $unit->name,

  )->save;

  push @parts, new_service(

    partnumber => 'Serv1',

  )->save;

  push @parts, new_part(

    partnumber => 'P2445',

  )->save;

  push @parts, new_service(

    partnumber => 'Serv2'

  )->save;

}

Support::TestSetup::login();

reset_state();

#####

my $order1 = SL::Dev::Record::create_sales_order(

  save                    => 1,

  customer                => $customer,

  shippingpoint           => "sp",

  transaction_description => "td1",

  payment_terms           => $payment_term,

  delivery_term           => $delivery_term,

  taxincluded             => 0,

  orderitems => [ SL::Dev::Record::create_order_item(part => $parts[0], qty =>  3, sellprice => 70),

                  SL::Dev::Record::create_order_item(part => $parts[1], qty => 10, sellprice => 50),

  ]

);

my $delivery_term2 = SL::DB::DeliveryTerm->new(

  'description'      => 'Test Delivey Term2',

  'description_long' => 'Test Delivey Term2 Test Delivey Term2',

)->save;

my $order2 = SL::Dev::Record::create_sales_order(

  save                    => 1,

  customer                => $customer,

  shippingpoint           => "sp",

  transaction_description => "td2",

  payment_terms           => $payment_term,

  delivery_term           => $delivery_term2,

  taxincluded             => 0,

  orderitems => [ SL::Dev::Record::create_order_item(part => $parts[2], qty =>  1, sellprice => 60),

                  SL::Dev::Record::create_order_item(part => $parts[3], qty => 20, sellprice => 40),

  ]

);

my $order = SL::DB::Order->new_from_multi([$order1, $order2]);

ok    $order->items->[0]->part->id == $parts[0]->id

   && $order->items->[1]->part->id == $parts[1]->id

   && $order->items->[2]->part->id == $parts[2]->id

   && $order->items->[3]->part->id == $parts[3]->id,

  'new from multi: positions added ok';

ok $order->shippingpoint eq "sp",           'new from multi: keep same info';

ok !$order->transaction_description,        'new from multi: undefine differnt info';

ok $order->payment_id == $payment_term->id, 'new from multi: keep same info';

ok !$order->delivery_term,                  'new from multi: undefine differnt info';

reset_state();

#####

$order1 = SL::Dev::Record::create_sales_order(

  save         => 1,

  taxincluded  => 0,

  orderitems => [ SL::Dev::Record::create_order_item(part => $parts[0], qty =>  3, sellprice => 70),

                  SL::Dev::Record::create_order_item(part => $parts[1], qty => 10, sellprice => 50),

  ]

);

$order2 = SL::Dev::Record::create_sales_order(

  save         => 1,

  customer     => $customer,

  taxincluded  => 0,

  orderitems => [ SL::Dev::Record::create_order_item(part => $parts[2], qty =>  1, sellprice => 60),

                  SL::Dev::Record::create_order_item(part => $parts[3], qty => 20, sellprice => 40),

  ]

);

my $err_msg;

eval { $order = SL::DB::Order->new_from_multi([$order1, $order2]); 1 } or do {$err_msg = $@};

ok $err_msg =~ "^Cannot create order from source records of different customers", 'new from multi: fail on different customers';

####

clear_up();

done_testing;

1;

# set emacs to perl mode

# Local Variables:

# mode: perl

# End: