1 use Test::More tests => 42;
8 use Support::TestSetup;
12 use Support::TestSetup;
14 use List::Util qw(max);
16 use SL::DB::Buchungsgruppe;
22 use SL::DB::DeliveryOrder;
27 my ($customer, $currency_id, $buchungsgruppe, $employee, $vendor, $taxzone, $buchungsgruppe7, $tax, $tax7,
30 my $VISUAL_TEST = 0; # just a sleep to click around
33 foreach (qw(DeliveryOrderItem DeliveryOrder InvoiceItem Invoice Part Customer Vendor Department PaymentTerm)) {
34 "SL::DB::Manager::${_}"->delete_all(all => 1);
36 SL::DB::Manager::Employee->delete_all(where => [ id => 31915 ]);
44 $buchungsgruppe = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 19%', %{ $params{buchungsgruppe} }) || croak "No accounting group 19\%";
45 $buchungsgruppe7 = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 7%', %{ $params{buchungsgruppe} }) || croak "No accounting group 7\%";
46 $taxzone = SL::DB::Manager::TaxZone->find_by( description => 'Inland') || croak "No taxzone";
47 $tax = SL::DB::Manager::Tax->find_by(taxkey => 3, rate => 0.19, %{ $params{tax} }) || croak "No tax for 19\%";
48 $tax7 = SL::DB::Manager::Tax->find_by(taxkey => 2, rate => 0.07) || croak "No tax for 7\%";
49 $unit = SL::DB::Manager::Unit->find_by(name => 'kg', %{ $params{unit} }) || croak "No unit";
50 $currency_id = $::instance_conf->get_currency_id;
52 $customer = SL::DB::Customer->new(
53 name => '520484567dfaedc9e60fc',
54 currency_id => $currency_id,
55 taxzone_id => $taxzone->id,
56 %{ $params{customer} }
59 # some od.rnr real anonym data
60 my $employee_bk = SL::DB::Employee->new(
62 'login' => 'barbuschka.kappes',
63 'name' => 'Barbuschka Kappes',
66 my $department_do = SL::DB::Department->new(
67 'description' => 'Maisenhaus-Versand',
73 my $payment_do = SL::DB::PaymentTerm->new(
74 'description' => '14Tage 2%Skonto, 30Tage netto',
75 '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.",
79 'percent_skonto' => '0.02',
83 'auto_calculation' => undef,
89 push @parts, SL::DB::Part->new(
92 'lastcost' => '49.95000',
93 'listprice' => '0.00000',
94 'onhand' => '5.00000',
95 'partnumber' => 'v-519160549',
96 #'partsgroup_id' => 111645,
98 'sellprice' => '242.20000',
99 #'warehouse_id' => 64702,
101 description => "Pflaumenbaum, Gr.5, Unterfilz weinrot, genietet[[Aufschnittbreite: 11,0, Kernform: US]]\"" ,
102 buchungsgruppen_id => $buchungsgruppe->id,
107 push @parts, SL::DB::Part->new(
108 'description' => "[[0640]]Flügel Hammerstiele bestehend aus:
109 70 Stielen Standard in Weißbuche und
110 20 Stielen Diskant abgekehlt in Weißbuche
111 mit Röllchen aus Synthetikleder,
112 Kapseln mit Yamaha Profil, Kerbenabstand 3,6 mm mit eingedrehten Abnickschrauben",
114 'lastcost' => '153.00000',
115 'listprice' => '0.00000',
116 'onhand' => '9.00000',
117 'partnumber' => 'v-120160086',
118 # 'partsgroup_id' => 111639,
120 'sellprice' => '344.30000',
122 buchungsgruppen_id => $buchungsgruppe->id,
127 sub new_delivery_order {
130 return SL::DB::DeliveryOrder->new(
131 currency_id => $currency_id,
132 taxzone_id => $taxzone->id,
137 Support::TestSetup::login();
141 # we create L20199 with two items
142 my $do1 = new_delivery_order('department_id' => 32149,
143 'donumber' => 'L20199',
144 'employee_id' => 31915,
145 'intnotes' => 'Achtung: Neue Lieferadresse ab 16.02.2015 in der Otto-Merck-Str. 7a! 13.02.2015/MH
147 Yamaha-Produkte (201...) immer plus 25% dazu rechnen / BK 13.02.2014',
148 'ordnumber' => 'A16399',
149 'payment_id' => 11276,
150 'salesman_id' => 31915,
151 'shippingpoint' => 'Maisenhaus',
152 # 'shipto_id' => 451463,
153 'is_sales' => 'true',
154 'shipvia' => 'DHL, Versand am 06.03.2015, 1 Paket 17,00 kg',
157 # 'currency_id' => 1,
158 'cusordnumber' => 'b84da',
159 'customer_id' => $customer->id,
161 'notes' => '<ul><li><strong>fett</strong></li><li><strong>und</strong></li><li><strong>mit</strong></li><li><strong>bullets</strong></li><li> </li></ul>',
164 my $do1_item1 = SL::DB::DeliveryOrderItem->new('delivery_order_id' => 464003,
165 'description' => "Flügel Hammerkopf bestehend aus:
166 Bass/Diskant 26/65 Stück, Gesamtlänge 80/72, Bohrlänge 56/48
167 Pflaumenbaum, Gr.5, Unterfilz weinrot, genietet[[Aufschnittbreite: 11,0, Kernform: US]]",
168 'discount' => '0.25',
170 'lastcost' => '49.95000',
171 'longdescription' => "<ol><li>27</li><li>28</li><li>29</li><li><sub>asdf</sub></li><li><sub>asdf</sub></li><li><sup>oben</sup></li></ol><p><s>kommt nicht mehr vor</s></p>",
172 'marge_price_factor' => 1,
174 'ordnumber' => 'A16399',
179 'sellprice' => '242.20000',
180 'transdate' => '06.03.2015',
181 'unit' => 'kg')->save;
183 my $do1_item2 = SL::DB::DeliveryOrderItem->new('delivery_order_id' => 464003,
184 'description' => "[[0640]]Flügel Hammerstiele bestehend aus:
185 70 Stielen Standard in Weißbuche und
186 20 Stielen Diskant abgekehlt in Weißbuche
187 mit Röllchen aus Synthetikleder,
188 Kapseln mit Yamaha Profil, Kerbenabstand 3,6 mm mit eingedrehten Abnickschrauben",
189 'discount' => '0.25',
192 'lastcost' => '153.00000',
193 'longdescription' => '',
194 'marge_price_factor' => 1,
196 'ordnumber' => 'A16399',
200 'price_factor_id' => undef,
201 'pricegroup_id' => undef,
202 'project_id' => undef,
205 'sellprice' => '344.30000',
206 'serialnumber' => '',
207 'transdate' => '06.03.2015',
208 'unit' => 'kg')->save;
213 # test delivery order before any conversion
214 ok($do1->donumber eq "L20199", 'Delivery Order Number created');
215 ok($do1->notes eq '<ul><li><strong>fett</strong></li><li><strong>und</strong></li><li><strong>mit</strong></li><li><strong>bullets</strong></li><li> </li></ul>', "do RichText notes saved");
216 ok((not $do1->closed) , 'Delivery Order is not closed');
217 ok($do1_item1->parts_id eq '26321', 'doi linked with part');
218 ok($do1_item1->qty == 2, 'qty check doi');
219 ok($do1_item1->longdescription eq "<ol><li>27</li><li>28</li><li>29</li><li><sub>asdf</sub></li><li><sub>asdf</sub></li><li><sup>oben</sup></li></ol><p><s>kommt nicht mehr vor</s></p>",
220 "do item1 rich text longdescripition");
221 ok ($do1_item2->position == 2, 'doi2 position check');
222 ok (2 == scalar@{ SL::DB::Manager::DeliveryOrderItem->get_all(where => [ delivery_order_id => $do1->id ]) }, 'two doi linked');
225 # convert this do to invoice
226 my $invoice = $do1->convert_to_invoice();
228 sleep (300) if $VISUAL_TEST; # we can do a real visual test via gui login
229 # test invoice afterwards
231 ok ($invoice->shipvia eq "DHL, Versand am 06.03.2015, 1 Paket 17,00 kg", "ship via check");
232 ok ($invoice->shippingpoint eq "Maisenhaus", "shipping point check");
233 ok ($invoice->ordnumber eq "A16399", "ordnumber check");
234 ok ($invoice->donumber eq "L20199", "donumber check");
235 ok ($invoice->notes eq '<ul><li><strong>fett</strong></li><li><strong>und</strong></li><li><strong>mit</strong></li><li><strong>bullets</strong></li><li> </li></ul>', "do RichText notes saved");
236 ok(($do1->closed) , 'Delivery Order is closed after conversion');
237 ok (SL::DB::PaymentTerm->new(id => $invoice->{payment_id})->load->description eq "14Tage 2%Skonto, 30Tage netto", 'payment term description check');
239 # some test data from original client invoice console (!)
240 # my $invoice3 = SL::DB::Manager::Invoice->find_by( ordnumber => 'A16399' );
241 # which will fail due to PTC Calculation differs from GUI-Calculation, see issue: http://redmine.kivitendo-premium.de/issues/82
243 # values from gui should be:
244 #ok($invoice->amount == 1354.20000, 'amount check');
245 #ok($invoice->marge_percent == 50.88666, 'marge percent check');
246 #ok($invoice->marge_total == 579.08000, 'marge total check');
247 #ok($invoice->netamount == 1137.98000, 'netamount check');
250 # the values change if one reloads the object
251 # without reloading we get this failures
252 #not ok 17 - amount check
253 # Failed test 'amount check'
254 # at t/db_helper/convert_invoice.t line 272.
256 # expected: '1354.17000'
257 #not ok 18 - marge percent check
258 # Failed test 'marge percent check'
259 # at t/db_helper/convert_invoice.t line 273.
260 # got: '50.8857956342929'
261 # expected: '50.88580'
262 #not ok 19 - marge total check
263 # Failed test 'marge total check'
264 # at t/db_helper/convert_invoice.t line 274.
266 # expected: '579.06000'
267 #not ok 20 - netamount check
268 # Failed test 'netamount check'
269 # at t/db_helper/convert_invoice.t line 275.
271 # expected: '1137.96000'
275 ok($invoice->currency_id eq '1', 'currency_id');
276 ok($invoice->cusordnumber eq 'b84da', 'cusordnumber check');
277 ok(SL::DB::Department->new(id => $invoice->{department_id})->load->description eq "Maisenhaus-Versand", 'department description');
278 is($invoice->amount, '1354.17000', 'amount check');
279 is($invoice->marge_percent, '50.88580', 'marge percent check');
280 is($invoice->marge_total, '579.06000', 'marge total check');
281 is($invoice->netamount, '1137.96000', 'netamount check');
284 ok(@ {$invoice->items_sorted}[0]->parts_id eq '26321', 'invoiceitem 1 linked with part');
285 ok(2 == scalar@{ $invoice->invoiceitems }, 'two invoice items linked with invoice');
286 is(@ {$invoice->items_sorted}[0]->position, 1, "position 1 order correct");
287 is(@ {$invoice->items_sorted}[1]->position, 2, "position 2 order correct");
288 is(@ {$invoice->items_sorted}[0]->longdescription, "<ol><li>27</li><li>28</li><li>29</li><li><sub>asdf</sub></li><li><sub>asdf</sub></li><li><sup>oben</sup></li></ol><p><s>kommt nicht mehr vor</s></p>",
289 "invoice item1 rich text longdescripition");
290 is(@ {$invoice->items_sorted}[0]->part->partnumber, 'v-519160549', "partnumber 1 correct");
291 is(@ {$invoice->items_sorted}[1]->part->partnumber, 'v-120160086', "partnumber 2 correct");
292 is(@ {$invoice->items_sorted}[0]->qty, '2.00000', "pos 1 qty");
293 is(@ {$invoice->items_sorted}[1]->qty, '3.00000', "pos 2 qty");
294 is(@ {$invoice->items_sorted}[0]->discount, 0.25, "pos 1 discount");
295 is(@ {$invoice->items_sorted}[1]->discount, 0.25, "pos 2 discount");
297 # more ideas: check onhand, lastcost (parsed lastcost)
301 # check linked records AND linked items
303 # we expect something like this in record links:
304 # delivery_order_items | 144736 | invoice | 9 | 2015-09-02 16:29:32.362562 | 5
305 # delivery_order_items | 144737 | invoice | 10 | 2015-09-02 16:29:32.362562 | 6
306 # delivery_orders | 464003 | ar | 5 | 2015-09-02 16:29:32.362562 | 7
308 # verkn�pfter beleg$VAR1 = {
309 # 'from_id' => 464003,
310 # 'from_table' => 'delivery_orders',
314 # verkn�pfte positionen$VAR1 = {
315 # 'from_id' => 144737,
316 # 'from_table' => 'delivery_order_items',
318 # 'to_table' => 'invoice'
321 # 'from_id' => 144736,
322 # 'from_table' => 'delivery_order_items',
324 # 'to_table' => 'invoice'
329 my @links_record = RecordLinks->get_links('from_table' => 'delivery_orders',
331 'from_id' => 464003);
332 is($links_record[0]->{from_id}, '464003', "record from id check");
333 is($links_record[0]->{from_table}, 'delivery_orders', "record from table check");
334 is($links_record[0]->{to_table}, 'ar', "record to table check");
336 foreach (qw(144736 144737)) {
337 my @links_record_item1 = RecordLinks->get_links('from_table' => 'delivery_order_items',
338 'to_table' => 'invoice',
340 is($links_record_item1[0]->{from_id}, $_, "record from id check $_");
341 is($links_record_item1[0]->{from_table}, 'delivery_order_items', "record from table check $_");
342 is($links_record_item1[0]->{to_table}, 'invoice', "record to table check $_");