-use Test::More tests => 42;
+use Test::More tests => 41;
use strict;
use Data::Dumper;
use Support::TestSetup;
use Test::Exception;
-use List::Util qw(max);
use SL::DB::Buchungsgruppe;
use SL::DB::Currency;
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 {
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();
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' => '<ul><li><strong>fett</strong></li><li><strong>und</strong></li><li><strong>mit</strong></li><li><strong>bullets</strong></li><li> </li></ul>',
+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' => '<ul><li><strong>fett</strong></li><li><strong>und</strong></li><li><strong>mit</strong></li><li><strong>bullets</strong></li><li> </li></ul>',
+ orderitems => [
+ SL::Dev::Record::create_delivery_order_item(
+ part => $parts[0],
+ discount => '0.25',
+ lastcost => '49.95000',
+ 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>",
+ 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' => "<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>",
- '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 '<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");
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 "<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>",
"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
# 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 '<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");
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' );
$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, "<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>",
+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 , "<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>",
"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)
# };
-
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();