From 6fda75b17b61528a722d51f7c0e244d7640c9006 Mon Sep 17 00:00:00 2001 From: "G. Richardson" Date: Mon, 7 Aug 2017 11:17:28 +0200 Subject: [PATCH] t/db_helper/convert_invoice.t mit SL::Dev refactored --- t/db_helper/convert_invoice.t | 295 ++++++++++++---------------------- 1 file changed, 107 insertions(+), 188 deletions(-) diff --git a/t/db_helper/convert_invoice.t b/t/db_helper/convert_invoice.t index ead4024ce..0a9c62270 100644 --- a/t/db_helper/convert_invoice.t +++ b/t/db_helper/convert_invoice.t @@ -1,4 +1,4 @@ -use Test::More tests => 42; +use Test::More tests => 41; use strict; @@ -11,7 +11,6 @@ use Carp; use Data::Dumper; use Support::TestSetup; use Test::Exception; -use List::Util qw(max); use SL::DB::Buchungsgruppe; use SL::DB::Currency; @@ -22,18 +21,18 @@ use SL::DB::Order; use SL::DB::DeliveryOrder; use SL::DB::Part; use SL::DB::Unit; -use SL::DB::TaxZone; -my ($customer, $currency_id, $buchungsgruppe, $employee, $vendor, $taxzone, $buchungsgruppe7, $tax, $tax7, - $unit, @parts); +use SL::Dev::ALL; + +my ($customer, $employee, $payment_do, $unit, @parts, $department); my $VISUAL_TEST = 0; # just a sleep to click around sub clear_up { - foreach (qw(DeliveryOrderItem DeliveryOrder InvoiceItem PurchaseInvoice Invoice Part Customer Vendor Department PaymentTerm)) { + foreach (qw(DeliveryOrderItem DeliveryOrder InvoiceItem Invoice Part Customer Department PaymentTerm)) { "SL::DB::Manager::${_}"->delete_all(all => 1); } - SL::DB::Manager::Employee->delete_all(where => [ id => 31915 ]); + SL::DB::Manager::Employee->delete_all(where => [ login => 'testuser' ]); }; sub reset_state { @@ -41,99 +40,48 @@ sub reset_state { clear_up(); - $buchungsgruppe = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 19%', %{ $params{buchungsgruppe} }) || croak "No accounting group 19\%"; - $buchungsgruppe7 = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 7%', %{ $params{buchungsgruppe} }) || croak "No accounting group 7\%"; - $taxzone = SL::DB::Manager::TaxZone->find_by( description => 'Inland') || croak "No taxzone"; - $tax = SL::DB::Manager::Tax->find_by(taxkey => 3, rate => 0.19, %{ $params{tax} }) || croak "No tax for 19\%"; - $tax7 = SL::DB::Manager::Tax->find_by(taxkey => 2, rate => 0.07) || croak "No tax for 7\%"; - $unit = SL::DB::Manager::Unit->find_by(name => 'kg', %{ $params{unit} }) || croak "No unit"; - $currency_id = $::instance_conf->get_currency_id; - - $customer = SL::DB::Customer->new( - name => '520484567dfaedc9e60fc', - currency_id => $currency_id, - taxzone_id => $taxzone->id, - %{ $params{customer} } - )->save; + $unit = SL::DB::Manager::Unit->find_by(name => 'kg') || die "Can't find unit 'kg'"; + $customer = SL::Dev::CustomerVendor::create_customer->save; - # some od.rnr real anonym data - my $employee_bk = SL::DB::Employee->new( - 'id' => 31915, - 'login' => 'barbuschka.kappes', - 'name' => 'Barbuschka Kappes', + $employee = SL::DB::Employee->new( + 'login' => 'testuser', + 'name' => 'Test User', )->save; - my $department_do = SL::DB::Department->new( - 'description' => 'Maisenhaus-Versand', - 'id' => 32149, - 'itime' => undef, - 'mtime' => undef + $department = SL::DB::Department->new( + 'description' => 'Test Department', )->save; - my $payment_do = SL::DB::PaymentTerm->new( - '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.", - 'id' => 11276, - 'itime' => undef, - 'mtime' => undef, - 'percent_skonto' => '0.02', - 'ranking' => undef, - 'sortkey' => 4, - 'terms_netto' => 30, - 'auto_calculation' => undef, - 'terms_skonto' => 14 - )->save; + $payment_do = SL::Dev::Payment::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 + ); # two real parts @parts = (); - push @parts, SL::DB::Part->new( - 'id' => 26321, - 'image' => '', - 'lastcost' => '49.95000', - 'listprice' => '0.00000', - 'onhand' => '5.00000', - 'partnumber' => 'v-519160549', - part_type => 'part', - #'partsgroup_id' => 111645, - 'rop' => '0', - 'sellprice' => '242.20000', - #'warehouse_id' => 64702, - 'weight' => '0.79', - description => "Pflaumenbaum, Gr.5, Unterfilz weinrot, genietet[[Aufschnittbreite: 11,0, Kernform: US]]\"" , - buchungsgruppen_id => $buchungsgruppe->id, - unit => $unit->name, - id => 26321, + push @parts, SL::Dev::Part::create_part( + description => "description 1", + lastcost => '49.95000', + listprice => '0.00000', + partnumber => 'v-519160549', + sellprice => '242.20000', + unit => $unit->name, + weight => '0.79', )->save; - push @parts, SL::DB::Part->new( - 'description' => "[[0640]]Flügel Hammerstiele bestehend aus: -70 Stielen Standard in Weißbuche und -20 Stielen Diskant abgekehlt in Weißbuche -mit Röllchen aus Synthetikleder, -Kapseln mit Yamaha Profil, Kerbenabstand 3,6 mm mit eingedrehten Abnickschrauben", - 'id' => 25505, - 'lastcost' => '153.00000', - 'listprice' => '0.00000', - 'part_type' => 'part', - 'onhand' => '9.00000', - 'partnumber' => 'v-120160086', - # 'partsgroup_id' => 111639, - 'rop' => '0', - 'sellprice' => '344.30000', - 'weight' => '0.9', - buchungsgruppen_id => $buchungsgruppe->id, - unit => $unit->name, + push @parts, SL::Dev::Part::create_part( + description => "description 2", + lastcost => '153.00000', + listprice => '0.00000', + partnumber => 'v-120160086', + sellprice => '344.30000', + unit => $unit->name, + weight => '0.9', )->save; -} - -sub new_delivery_order { - my %params = @_; - return SL::DB::DeliveryOrder->new( - currency_id => $currency_id, - taxzone_id => $taxzone->id, - %params, - )->save; } Support::TestSetup::login(); @@ -141,87 +89,58 @@ Support::TestSetup::login(); reset_state(); # we create L20199 with two items -my $do1 = new_delivery_order('department_id' => 32149, - 'donumber' => 'L20199', - 'employee_id' => 31915, - 'intnotes' => 'Achtung: Neue Lieferadresse ab 16.02.2015 in der Otto-Merck-Str. 7a! 13.02.2015/MH - - Yamaha-Produkte (201...) immer plus 25% dazu rechnen / BK 13.02.2014', - 'ordnumber' => 'A16399', - 'payment_id' => 11276, - 'salesman_id' => 31915, - 'shippingpoint' => 'Maisenhaus', - # 'shipto_id' => 451463, - 'is_sales' => 'true', - 'shipvia' => 'DHL, Versand am 06.03.2015, 1 Paket 17,00 kg', - 'taxzone_id' => 4, - 'closed' => undef, - # 'currency_id' => 1, - 'cusordnumber' => 'b84da', - 'customer_id' => $customer->id, - 'id' => 464003, - 'notes' => '', +my $do1 = SL::Dev::Record::create_sales_delivery_order( + 'department_id' => $department->id, + 'donumber' => 'L20199', + 'employee_id' => $employee->id, + 'intnotes' => 'some intnotes', + 'ordnumber' => 'A16399', + 'payment_id' => $payment_do->id, + 'salesman_id' => $employee->id, + 'shippingpoint' => 'sendtome', + 'shipvia' => 'DHL, Versand am 06.03.2015, 1 Paket 17,00 kg', + 'cusordnumber' => 'b84da', + 'customer_id' => $customer->id, + 'notes' => '', + orderitems => [ + SL::Dev::Record::create_delivery_order_item( + part => $parts[0], + discount => '0.25', + lastcost => '49.95000', + longdescription => "
  1. 27
  2. 28
  3. 29
  4. asdf
  5. asdf
  6. oben

kommt nicht mehr vor

", + marge_price_factor => 1, + qty => '2.00000', + sellprice => '242.20000', + unit => $unit->name, + ), + SL::Dev::Record::create_delivery_order_item( + part => $parts[1], + discount => '0.25', + lastcost => '153.00000', + qty => '3.00000', + sellprice => '344.30000', + transdate => '06.03.2015', + unit => $unit->name, + ) + ] ); -my $do1_item1 = SL::DB::DeliveryOrderItem->new('delivery_order_id' => 464003, - 'description' => "Flügel Hammerkopf bestehend aus: - Bass/Diskant 26/65 Stück, Gesamtlänge 80/72, Bohrlänge 56/48 - Pflaumenbaum, Gr.5, Unterfilz weinrot, genietet[[Aufschnittbreite: 11,0, Kernform: US]]", - 'discount' => '0.25', - 'id' => 144736, - 'lastcost' => '49.95000', - 'longdescription' => "
  1. 27
  2. 28
  3. 29
  4. asdf
  5. asdf
  6. oben

kommt nicht mehr vor

", - 'marge_price_factor' => 1, - 'mtime' => undef, - 'ordnumber' => 'A16399', - 'parts_id' => 26321, - 'position' => 1, - 'price_factor' => 1, - 'qty' => '2.00000', - 'sellprice' => '242.20000', - 'transdate' => '06.03.2015', - 'unit' => 'kg')->save; - -my $do1_item2 = SL::DB::DeliveryOrderItem->new('delivery_order_id' => 464003, - 'description' => "[[0640]]Flügel Hammerstiele bestehend aus: -70 Stielen Standard in Weißbuche und -20 Stielen Diskant abgekehlt in Weißbuche -mit Röllchen aus Synthetikleder, -Kapseln mit Yamaha Profil, Kerbenabstand 3,6 mm mit eingedrehten Abnickschrauben", - 'discount' => '0.25', - 'id' => 144737, - 'itime' => undef, - 'lastcost' => '153.00000', - 'longdescription' => '', - 'marge_price_factor' => 1, - 'mtime' => undef, - 'ordnumber' => 'A16399', - 'parts_id' => 25505, - 'position' => 2, - 'price_factor' => 1, - 'price_factor_id' => undef, - 'pricegroup_id' => undef, - 'project_id' => undef, - 'qty' => '3.00000', - 'reqdate' => undef, - 'sellprice' => '344.30000', - 'serialnumber' => '', - 'transdate' => '06.03.2015', - 'unit' => 'kg')->save; # TESTS +my $do1_item1 = $do1->orderitems->[0]; +my $do1_item2 = $do1->orderitems->[1]; # test delivery order before any conversion ok($do1->donumber eq "L20199", 'Delivery Order Number created'); ok($do1->notes eq '', "do RichText notes saved"); ok((not $do1->closed) , 'Delivery Order is not closed'); -ok($do1_item1->parts_id eq '26321', 'doi linked with part'); +is($do1_item1->parts_id, $parts[0]->id, 'doi linked with part'); ok($do1_item1->qty == 2, 'qty check doi'); ok($do1_item1->longdescription eq "
  1. 27
  2. 28
  3. 29
  4. asdf
  5. asdf
  6. oben

kommt nicht mehr vor

", "do item1 rich text longdescripition"); ok ($do1_item2->position == 2, 'doi2 position check'); -ok (2 == scalar@{ SL::DB::Manager::DeliveryOrderItem->get_all(where => [ delivery_order_id => $do1->id ]) }, 'two doi linked'); +is (SL::DB::Manager::DeliveryOrderItem->get_all_count(where => [ delivery_order_id => $do1->id ]), 2 , 'two doi linked'); # convert this do to invoice @@ -231,12 +150,12 @@ sleep (300) if $VISUAL_TEST; # we can do a real visual test via gui login # test invoice afterwards ok ($invoice->shipvia eq "DHL, Versand am 06.03.2015, 1 Paket 17,00 kg", "ship via check"); -ok ($invoice->shippingpoint eq "Maisenhaus", "shipping point check"); +ok ($invoice->shippingpoint eq "sendtome", "shipping point check"); ok ($invoice->ordnumber eq "A16399", "ordnumber check"); ok ($invoice->donumber eq "L20199", "donumber check"); ok ($invoice->notes eq '', "do RichText notes saved"); ok(($do1->closed) , 'Delivery Order is closed after conversion'); -ok (SL::DB::PaymentTerm->new(id => $invoice->{payment_id})->load->description eq "14Tage 2%Skonto, 30Tage netto", 'payment term description check'); +is($invoice->payment_terms->description, "14Tage 2%Skonto, 30Tage netto", 'payment term description check'); # some test data from original client invoice console (!) # my $invoice3 = SL::DB::Manager::Invoice->find_by( ordnumber => 'A16399' ); @@ -274,28 +193,26 @@ ok (SL::DB::PaymentTerm->new(id => $invoice->{payment_id})->load->description eq $invoice->load; -ok($invoice->currency_id eq '1', 'currency_id'); -ok($invoice->cusordnumber eq 'b84da', 'cusordnumber check'); -ok(SL::DB::Department->new(id => $invoice->{department_id})->load->description eq "Maisenhaus-Versand", 'department description'); -is($invoice->amount, '1354.17000', 'amount check'); -is($invoice->marge_percent, '50.88580', 'marge percent check'); -is($invoice->marge_total, '579.06000', 'marge total check'); -is($invoice->netamount, '1137.96000', 'netamount check'); +is($invoice->cusordnumber , 'b84da' , 'cusordnumber check'); +is($invoice->department->description , "Test Department" , 'department description ok'); +is($invoice->amount , '1354.17000' , 'amount check'); +is($invoice->marge_percent , '50.88580' , 'marge percent check'); +is($invoice->marge_total , '579.06000' , 'marge total check'); +is($invoice->netamount , '1137.96000' , 'netamount check'); # some item checks -ok(@ {$invoice->items_sorted}[0]->parts_id eq '26321', 'invoiceitem 1 linked with part'); -ok(2 == scalar@{ $invoice->invoiceitems }, 'two invoice items linked with invoice'); -is(@ {$invoice->items_sorted}[0]->position, 1, "position 1 order correct"); -is(@ {$invoice->items_sorted}[1]->position, 2, "position 2 order correct"); -is(@ {$invoice->items_sorted}[0]->longdescription, "
  1. 27
  2. 28
  3. 29
  4. asdf
  5. asdf
  6. oben

kommt nicht mehr vor

", +is($invoice->items_sorted->[0]->parts_id , $parts[0]->id , 'invoiceitem 1 linked with part'); +is(scalar @{ $invoice->invoiceitems } , 2 , 'two invoice items linked with invoice'); +is($invoice->items_sorted->[0]->position , 1 , "position 1 order correct"); +is($invoice->items_sorted->[1]->position , 2 , "position 2 order correct"); +is($invoice->items_sorted->[0]->part->partnumber , 'v-519160549' , "partnumber 1 correct"); +is($invoice->items_sorted->[1]->part->partnumber , 'v-120160086' , "partnumber 2 correct"); +is($invoice->items_sorted->[0]->qty , '2.00000' , "pos 1 qty"); +is($invoice->items_sorted->[1]->qty , '3.00000' , "pos 2 qty"); +is($invoice->items_sorted->[0]->discount , 0.25 , "pos 1 discount"); +is($invoice->items_sorted->[1]->discount , 0.25 , "pos 2 discount"); +is($invoice->items_sorted->[0]->longdescription , "
  1. 27
  2. 28
  3. 29
  4. asdf
  5. asdf
  6. oben

kommt nicht mehr vor

", "invoice item1 rich text longdescripition"); -is(@ {$invoice->items_sorted}[0]->part->partnumber, 'v-519160549', "partnumber 1 correct"); -is(@ {$invoice->items_sorted}[1]->part->partnumber, 'v-120160086', "partnumber 2 correct"); -is(@ {$invoice->items_sorted}[0]->qty, '2.00000', "pos 1 qty"); -is(@ {$invoice->items_sorted}[1]->qty, '3.00000', "pos 2 qty"); -is(@ {$invoice->items_sorted}[0]->discount, 0.25, "pos 1 discount"); -is(@ {$invoice->items_sorted}[1]->discount, 0.25, "pos 2 discount"); - # more ideas: check onhand, lastcost (parsed lastcost) @@ -327,23 +244,25 @@ is(@ {$invoice->items_sorted}[1]->discount, 0.25, "pos 2 discount"); # }; - my @links_record = RecordLinks->get_links('from_table' => 'delivery_orders', 'to_table' => 'ar', - 'from_id' => 464003); -is($links_record[0]->{from_id}, '464003', "record from id check"); -is($links_record[0]->{from_table}, 'delivery_orders', "record from table check"); -is($links_record[0]->{to_table}, 'ar', "record to table check"); + 'from_id' => $do1->id, + ); + +is($links_record[0]->{from_id} , $do1->id , "record from id check"); +is($links_record[0]->{from_table} , 'delivery_orders' , "record from table check"); +is($links_record[0]->{to_table} , 'ar' , "record to table check"); -foreach (qw(144736 144737)) { +foreach ( $do1_item1->id, $do1_item2->id ) { my @links_record_item1 = RecordLinks->get_links('from_table' => 'delivery_order_items', - 'to_table' => 'invoice', - 'from_id' => $_); - is($links_record_item1[0]->{from_id}, $_, "record from id check $_"); - is($links_record_item1[0]->{from_table}, 'delivery_order_items', "record from table check $_"); - is($links_record_item1[0]->{to_table}, 'invoice', "record to table check $_"); -} + 'to_table' => 'invoice', + 'from_id' => $_, + ); + is($links_record_item1[0]->{from_id} , $_ , "record from id check $_"); + is($links_record_item1[0]->{from_table} , 'delivery_order_items' , "record from table check $_"); + is($links_record_item1[0]->{to_table} , 'invoice' , "record to table check $_"); +} clear_up(); -- 2.20.1