Part Csv Import - Preisgruppenpreisimport testen

diff --git a/t/controllers/csvimport/parts.t b/t/controllers/csvimport/parts.t
index d9700884b475b382f29fb7df51caed8f8eb01ff5..b7f1a9c61d822d130b31f40e3ce17b6d05e1770b 100644 (file)
--- a/t/controllers/csvimport/parts.t
+++ b/t/controllers/csvimport/parts.t
@@ -1,4 +1,4 @@
-use Test::More tests => 43;
+use Test::More tests => 47;

 
 use strict;
 
 
 use strict;
 


@@ -21,9 +21,12 @@ use SL::DB::Currency;
 use SL::DB::Customer;
 use SL::DB::Language;
 use SL::DB::Warehouse;
 use SL::DB::Customer;
 use SL::DB::Language;
 use SL::DB::Warehouse;

+use SL::DB::Pricegroup;
+use SL::DB::Price;

 use SL::DB::Bin;
 
 my ($translation, $bin1_1, $bin1_2, $bin2_1, $bin2_2, $wh1, $wh2, $bugru, $cvarconfig );
 use SL::DB::Bin;
 
 my ($translation, $bin1_1, $bin1_2, $bin2_1, $bin2_2, $wh1, $wh2, $bugru, $cvarconfig );

+my ($pg1_id, $pg2_id, $pg3_id);

 
 Support::TestSetup::login();
 
 
 Support::TestSetup::login();
 


@@ -77,6 +80,13 @@ sub reset_state {
     includeable => 0,
     included_by_default => 0,
   )->save;
     includeable => 0,
     included_by_default => 0,
   )->save;

+
+  foreach ( { id => 1, pricegroup => 'A', sortkey => 1 },
+            { id => 2, pricegroup => 'B', sortkey => 2 },
+            { id => 3, pricegroup => 'C', sortkey => 3 },
+            { id => 4, pricegroup => 'D', sortkey => 4 } ) {
+    SL::DB::Pricegroup->new(%{$_})->save;
+  }

 }
 
 $bugru = SL::DB::Manager::Buchungsgruppe->find_by(description => { like => 'Standard%19%' });
 }
 
 $bugru = SL::DB::Manager::Buchungsgruppe->find_by(description => { like => 'Standard%19%' });


@@ -178,10 +188,10 @@ my $settings2 = {
 #   die Dumper($entry->{errors});
 
 
 #   die Dumper($entry->{errors});
 
 

-##### create part
+##### create part with prices and 3 pricegroup prices

 $file = \<<EOL;
 $file = \<<EOL;

-partnumber;sellprice;lastcost;listprice;unit
-P1000;100.10;90.20;95.30;kg
+partnumber;sellprice;lastcost;listprice;unit;pricegroup_1;pricegroup_2;pricegroup_3
+P1000;100.10;90.20;95.30;kg;111.11;122.22;133.33

 EOL
 $entries = test_import($file,$settings1);
 $entry = $entries->[0];
 EOL
 $entries = test_import($file,$settings1);
 $entry = $entries->[0];


@@ -192,17 +202,24 @@ is $entry->{object}->partnumber,'P1000', 'partnumber';
 is $entry->{object}->sellprice, '100.1', 'sellprice';
 is $entry->{object}->lastcost,   '90.2', 'lastcost';
 is $entry->{object}->listprice,  '95.3', 'listprice';
 is $entry->{object}->sellprice, '100.1', 'sellprice';
 is $entry->{object}->lastcost,   '90.2', 'lastcost';
 is $entry->{object}->listprice,  '95.3', 'listprice';

+is $entry->{object}->find_prices( { pricegroup_id => 2 } )->[0]->price,  '122.22000', 'pricegroup_2 price';

 
 

-##### update prices of part
+##### update prices of part, and price of pricegroup_2, keeping pricegroup_1 and pricegroup_3

 $file = \<<EOL;
 $file = \<<EOL;

-partnumber;sellprice;lastcost;listprice;unit
-P1000;110.10;95.20;97.30;kg
+partnumber;sellprice;lastcost;listprice;unit;pricegroup_2;pricegroup_4
+P1000;110.10;95.20;97.30;kg;123.45;144.44

 EOL
 $entries = test_import($file,$settings1);
 $entry = $entries->[0];
 is $entry->{object}->sellprice, '110.1', 'updated sellprice';
 is $entry->{object}->lastcost,   '95.2', 'updated lastcost';
 is $entry->{object}->listprice,  '97.3', 'updated listprice';
 EOL
 $entries = test_import($file,$settings1);
 $entry = $entries->[0];
 is $entry->{object}->sellprice, '110.1', 'updated sellprice';
 is $entry->{object}->lastcost,   '95.2', 'updated lastcost';
 is $entry->{object}->listprice,  '97.3', 'updated listprice';

+# $entry->{object}->prices currently only contains prices pricegroup_2 and pricegroup_4, reload object from db
+# printf("%s %s: %s\n", $_->pricegroup_id, $_->pricegroup->pricegroup, $_->price) foreach @{$entry->{object}->prices};
+$entry->{object}->load;
+is $entry->{object}->find_prices( { pricegroup_id => 1 } )->[0]->price,  '111.11000', 'pricegroup_1 price didn\'t change';
+is $entry->{object}->find_prices( { pricegroup_id => 2 } )->[0]->price,  '123.45000', 'pricegroup_2 price was updated';
+is $entry->{object}->find_prices( { pricegroup_id => 4 } )->[0]->price,  '144.44000', 'pricegroup_4 price was added';

 
 ##### insert parts with warehouse,bin name
 
 
 ##### insert parts with warehouse,bin name
 


@@ -317,6 +334,8 @@ clear_up(); # remove all data at end of tests
 
 sub clear_up {
   SL::DB::Manager::Part       ->delete_all(all => 1);
 
 sub clear_up {
   SL::DB::Manager::Part       ->delete_all(all => 1);

+  SL::DB::Manager::Pricegroup ->delete_all(all => 1);
+  SL::DB::Manager::Price      ->delete_all(all => 1);

   SL::DB::Manager::Translation->delete_all(all => 1);
   SL::DB::Manager::Language   ->delete_all(all => 1);
   SL::DB::Manager::Bin        ->delete_all(all => 1);
   SL::DB::Manager::Translation->delete_all(all => 1);
   SL::DB::Manager::Language   ->delete_all(all => 1);
   SL::DB::Manager::Bin        ->delete_all(all => 1);