Wiedervorlage: alte Masken: Abfangen, wenn z.B. Betreff nicht vorbelegt
[kivitendo-erp.git] / t / db / order.t
1 use Test::More;
2
3 use strict;
4
5 use lib 't';
6 use utf8;
7
8 use Carp;
9 use Data::Dumper;
10 use Support::TestSetup;
11 use Test::Exception;
12
13 use SL::DB::Order;
14 use SL::DB::Customer;
15 use SL::DB::Department;
16 use SL::DB::Currency;
17 use SL::DB::PaymentTerm;
18 use SL::DB::DeliveryTerm;
19 use SL::DB::Employee;
20 use SL::DB::Part;
21 use SL::DB::Unit;
22
23 use SL::Dev::ALL qw(:ALL);
24
25 my ($customer, $employee, $payment_term, $delivery_term, $unit, @parts, $department);
26
27
28 sub clear_up {
29   foreach (qw(OrderItem Order Part Customer Department PaymentTerm DeliveryTerm)) {
30     "SL::DB::Manager::${_}"->delete_all(all => 1);
31   }
32   SL::DB::Manager::Employee->delete_all(where => [ login => 'testuser' ]);
33 };
34
35 sub reset_state {
36   my %params = @_;
37
38   clear_up();
39
40   $unit     = SL::DB::Manager::Unit->find_by(name => 'kg') || die "Can't find unit 'kg'";
41   $customer = new_customer()->save;
42
43   $employee = SL::DB::Employee->new(
44     'login' => 'testuser',
45     'name'  => 'Test User',
46   )->save;
47
48   $department = SL::DB::Department->new(
49     'description' => 'Test Department',
50   )->save;
51
52   $payment_term = create_payment_terms(
53      'description'      => '14Tage 2%Skonto, 30Tage netto',
54      '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.",
55      'percent_skonto'   => '0.02',
56      'terms_netto'      => 30,
57      'terms_skonto'     => 14
58   );
59
60   $delivery_term = SL::DB::DeliveryTerm->new(
61     'description'      => 'Test Delivey Term',
62     'description_long' => 'Test Delivey Term Test Delivey Term',
63   )->save;
64
65   # some parts/services
66   @parts = ();
67   push @parts, new_part(
68     partnumber => 'T4254',
69     unit        => $unit->name,
70   )->save;
71   push @parts, new_service(
72     partnumber => 'Serv1',
73   )->save;
74   push @parts, new_part(
75     partnumber => 'P2445',
76   )->save;
77   push @parts, new_service(
78     partnumber => 'Serv2'
79   )->save;
80 }
81
82 Support::TestSetup::login();
83
84 reset_state();
85
86
87 #####
88 my $order1 = SL::Dev::Record::create_sales_order(
89   save                    => 1,
90   customer                => $customer,
91   shippingpoint           => "sp",
92   transaction_description => "td1",
93   payment_terms           => $payment_term,
94   delivery_term           => $delivery_term,
95   taxincluded             => 0,
96   orderitems => [ SL::Dev::Record::create_order_item(part => $parts[0], qty =>  3, sellprice => 70),
97                   SL::Dev::Record::create_order_item(part => $parts[1], qty => 10, sellprice => 50),
98   ]
99 );
100
101 my $delivery_term2 = SL::DB::DeliveryTerm->new(
102   'description'      => 'Test Delivey Term2',
103   'description_long' => 'Test Delivey Term2 Test Delivey Term2',
104 )->save;
105
106 my $order2 = SL::Dev::Record::create_sales_order(
107   save                    => 1,
108   customer                => $customer,
109   shippingpoint           => "sp",
110   transaction_description => "td2",
111   payment_terms           => $payment_term,
112   delivery_term           => $delivery_term2,
113   taxincluded             => 0,
114   orderitems => [ SL::Dev::Record::create_order_item(part => $parts[2], qty =>  1, sellprice => 60),
115                   SL::Dev::Record::create_order_item(part => $parts[3], qty => 20, sellprice => 40),
116   ]
117 );
118
119 my $order = SL::DB::Order->new_from_multi([$order1, $order2]);
120
121 ok    $order->items->[0]->part->id == $parts[0]->id
122    && $order->items->[1]->part->id == $parts[1]->id
123    && $order->items->[2]->part->id == $parts[2]->id
124    && $order->items->[3]->part->id == $parts[3]->id,
125   'new from multi: positions added ok';
126
127 ok $order->shippingpoint eq "sp",           'new from multi: keep same info';
128 ok !$order->transaction_description,        'new from multi: undefine differnt info';
129 ok $order->payment_id == $payment_term->id, 'new from multi: keep same info';
130 ok !$order->delivery_term,                  'new from multi: undefine differnt info';
131
132 reset_state();
133
134 #####
135 $order1 = SL::Dev::Record::create_sales_order(
136   save         => 1,
137   taxincluded  => 0,
138   orderitems => [ SL::Dev::Record::create_order_item(part => $parts[0], qty =>  3, sellprice => 70),
139                   SL::Dev::Record::create_order_item(part => $parts[1], qty => 10, sellprice => 50),
140   ]
141 );
142 $order2 = SL::Dev::Record::create_sales_order(
143   save         => 1,
144   customer     => $customer,
145   taxincluded  => 0,
146   orderitems => [ SL::Dev::Record::create_order_item(part => $parts[2], qty =>  1, sellprice => 60),
147                   SL::Dev::Record::create_order_item(part => $parts[3], qty => 20, sellprice => 40),
148   ]
149 );
150
151 my $err_msg;
152 eval { $order = SL::DB::Order->new_from_multi([$order1, $order2]); 1 } or do {$err_msg = $@};
153
154 ok $err_msg =~ "^Cannot create order from source records of different customers", 'new from multi: fail on different customers';
155
156
157 ####
158 clear_up();
159
160 done_testing;
161
162 1;
163
164
165 # set emacs to perl mode
166 # Local Variables:
167 # mode: perl
168 # End: