t/controllers/csvimport/parts.t

   1 use Test::More tests => 47;
   2
   3 use strict;
   4
   5 use lib 't';
   6
   7 use Carp;
   8 use Data::Dumper;
   9 use Support::TestSetup;
  10 use Test::Exception;
  11
  12 use List::MoreUtils qw(pairwise);
  13 use SL::Controller::CsvImport;
  14
  15 my $DEBUG = 0;
  16
  17 use_ok 'SL::Controller::CsvImport::Part';
  18
  19 use SL::DB::Buchungsgruppe;
  20 use SL::DB::Currency;
  21 use SL::DB::Customer;
  22 use SL::DB::Language;
  23 use SL::DB::Warehouse;
  24 use SL::DB::Pricegroup;
  25 use SL::DB::Price;
  26 use SL::DB::Bin;
  27
  28 my ($translation, $bin1_1, $bin1_2, $bin2_1, $bin2_2, $wh1, $wh2, $bugru, $cvarconfig );
  29 my ($pg1_id, $pg2_id, $pg3_id);
  30
  31 Support::TestSetup::login();
  32
  33 sub reset_state {
  34   # Create test data
  35
  36   clear_up();
  37
  38   $translation     = SL::DB::Language->new(
  39     description    => 'Englisch',
  40     article_code   => 'EN',
  41     template_code  => 'EN',
  42   )->save;
  43   $translation     = SL::DB::Language->new(
  44     description    => 'Italienisch',
  45     article_code   => 'IT',
  46     template_code  => 'IT',
  47   )->save;
  48   $wh1 = SL::DB::Warehouse->new(
  49     description    => 'Lager1',
  50     sortkey        => 1,
  51   )->save;
  52   $bin1_1 = SL::DB::Bin->new(
  53     description    => 'Ort1_von_Lager1',
  54     warehouse_id   => $wh1->id,
  55   )->save;
  56   $bin1_2 = SL::DB::Bin->new(
  57     description    => 'Ort2_von_Lager1',
  58     warehouse_id   => $wh1->id,
  59   )->save;
  60   $wh2 = SL::DB::Warehouse->new(
  61     description    => 'Lager2',
  62     sortkey        => 2,
  63   )->save;
  64   $bin2_1 = SL::DB::Bin->new(
  65     description    => 'Ort1_von_Lager2',
  66     warehouse_id   => $wh2->id,
  67   )->save;
  68   $bin2_2 = SL::DB::Bin->new(
  69     description    => 'Ort2_von_Lager2',
  70     warehouse_id   => $wh2->id,
  71   )->save;
  72
  73   $cvarconfig = SL::DB::CustomVariableConfig->new(
  74     module   => 'IC',
  75     name     => 'mycvar',
  76     type     => 'text',
  77     description => 'mein Schatz',
  78     searchable  => 1,
  79     sortkey => 1,
  80     includeable => 0,
  81     included_by_default => 0,
  82   )->save;
  83
  84   foreach ( { id => 1, pricegroup => 'A', sortkey => 1 },
  85             { id => 2, pricegroup => 'B', sortkey => 2 },
  86             { id => 3, pricegroup => 'C', sortkey => 3 },
  87             { id => 4, pricegroup => 'D', sortkey => 4 } ) {
  88     SL::DB::Pricegroup->new(%{$_})->save;
  89   }
  90 }
  91
  92 $bugru = SL::DB::Manager::Buchungsgruppe->find_by(description => { like => 'Standard%19%' });
  93
  94 reset_state();
  95
  96 #####
  97 sub test_import {
  98   my ($file,$settings) = @_;
  99
 100   my $controller = SL::Controller::CsvImport->new(
 101     type => 'parts'
 102   );
 103   $controller->load_default_profile;
 104   $controller->profile->set(
 105     charset      => 'utf-8',
 106     sep_char     => ';',
 107     quote_char   => '"',
 108     numberformat => $::myconfig{numberformat},
 109   );
 110
 111   my $csv_part_import = SL::Controller::CsvImport::Part->new(
 112     settings   => $settings,
 113     controller => $controller,
 114     file       => $file,
 115   );
 116   #print "profile param type=".$csv_part_import->settings->{parts_type}."\n";
 117
 118   $csv_part_import->run(test => 0);
 119
 120   # don't try and save objects that have errors
 121   $csv_part_import->save_objects unless scalar @{$csv_part_import->controller->data->[0]->{errors}};
 122
 123   return $csv_part_import->controller->data;
 124 }
 125
 126 $::myconfig{numberformat} = '1000.00';
 127 my $old_locale = $::locale;
 128 # set locale to en so we can match errors
 129 $::locale = Locale->new('en');
 130
 131
 132 my ($entries, $entry, $file);
 133
 134 # different settings for tests
 135 #
 136
 137 my $settings1 = {
 138                        sellprice_places          => 2,
 139                        sellprice_adjustment      => 0,
 140                        sellprice_adjustment_type => 'percent',
 141                        article_number_policy     => 'update_prices',
 142                        shoparticle_if_missing    => '0',
 143                        part_type                 => 'part',
 144                        part_classification       => 3,
 145                        default_buchungsgruppe    => ($bugru ? $bugru->id : undef),
 146                        apply_buchungsgruppe      => 'all',
 147                 };
 148 my $settings2 = {
 149                        sellprice_places          => 2,
 150                        sellprice_adjustment      => 0,
 151                        sellprice_adjustment_type => 'percent',
 152                        article_number_policy     => 'update_parts',
 153                        shoparticle_if_missing    => '0',
 154                        part_type                 => 'mixed',
 155                        part_classification       => 4,
 156                        default_buchungsgruppe    => ($bugru ? $bugru->id : undef),
 157                        apply_buchungsgruppe      => 'missing',
 158                        default_unit              => 'Stck',
 159                 };
 160
 161 #
 162 #
 163 # starting test of csv imports
 164 # to debug errors in certain tests, run after test_import:
 165 #   die Dumper($entry->{errors});
 166
 167
 168 ##### create part with prices and 3 pricegroup prices
 169 $file = \<<EOL;
 170 partnumber;sellprice;lastcost;listprice;unit;pricegroup_1;pricegroup_2;pricegroup_3
 171 P1000;100.10;90.20;95.30;kg;111.11;122.22;133.33
 172 EOL
 173 $entries = test_import($file,$settings1);
 174 $entry = $entries->[0];
 175 #foreach my $err ( @{ $entry->{errors} } ) {
 176 #  print $err;
 177 #}
 178 is $entry->{object}->partnumber,'P1000', 'partnumber';
 179 is $entry->{object}->sellprice, '100.1', 'sellprice';
 180 is $entry->{object}->lastcost,   '90.2', 'lastcost';
 181 is $entry->{object}->listprice,  '95.3', 'listprice';
 182 is $entry->{object}->find_prices( { pricegroup_id => 2 } )->[0]->price,  '122.22000', 'pricegroup_2 price';
 183
 184 ##### update prices of part, and price of pricegroup_2, keeping pricegroup_1 and pricegroup_3
 185 $file = \<<EOL;
 186 partnumber;sellprice;lastcost;listprice;unit;pricegroup_2;pricegroup_4
 187 P1000;110.10;95.20;97.30;kg;123.45;144.44
 188 EOL
 189 $entries = test_import($file,$settings1);
 190 $entry = $entries->[0];
 191 is $entry->{object}->sellprice, '110.1', 'updated sellprice';
 192 is $entry->{object}->lastcost,   '95.2', 'updated lastcost';
 193 is $entry->{object}->listprice,  '97.3', 'updated listprice';
 194 # $entry->{object}->prices currently only contains prices pricegroup_2 and pricegroup_4, reload object from db
 195 # printf("%s %s: %s\n", $_->pricegroup_id, $_->pricegroup->pricegroup, $_->price) foreach @{$entry->{object}->prices};
 196 $entry->{object}->load;
 197 is $entry->{object}->find_prices( { pricegroup_id => 1 } )->[0]->price,  '111.11000', 'pricegroup_1 price didn\'t change';
 198 is $entry->{object}->find_prices( { pricegroup_id => 2 } )->[0]->price,  '123.45000', 'pricegroup_2 price was updated';
 199 is $entry->{object}->find_prices( { pricegroup_id => 4 } )->[0]->price,  '144.44000', 'pricegroup_4 price was added';
 200
 201 ##### insert parts with warehouse,bin name
 202
 203 $file = \<<EOL;
 204 partnumber;description;warehouse;bin;part_type
 205 P1000;Teil 1000;Lager1;Ort1_von_Lager1;part
 206 P1001;Teil 1001;Lager1;Ort2_von_Lager1;service
 207 P1002;Teil 1002;Lager2;Ort1_von_Lager2;service
 208 P1003;Teil 1003;Lager2;Ort2_von_Lager2;part
 209 EOL
 210 $entries = test_import($file,$settings2);
 211 $entry = $entries->[0];
 212 is $entry->{object}->description, 'Teil 1000', 'Teil 1000 set';
 213 is $entry->{object}->warehouse_id, $wh1->id, 'Lager1';
 214 is $entry->{object}->bin_id, $bin1_1->id, 'Lagerort1';
 215 is $entry->{object}->part_type, 'part', 'Typ ist part';
 216 $entry = $entries->[2];
 217 is $entry->{object}->description, 'Teil 1002', 'Teil 1002 set';
 218 is $entry->{object}->warehouse_id, $wh2->id, 'Lager2';
 219 is $entry->{object}->bin_id, $bin2_1->id, 'Lagerort1';
 220 is $entry->{object}->part_type, 'service', 'Typ ist service';
 221
 222 ##### update warehouse and bin
 223 $file = \<<EOL;
 224 partnumber;description;warehouse;bin;part_type
 225 P1000;Teil 1000;Lager2;Ort1_von_Lager2;part
 226 P1001;Teil 1001;Lager1;Ort1_von_Lager1;part
 227 P1002;Teil 1002;Lager2;Ort1_von_Lager1;part
 228 P1003;Teil 1003;Lager2;kein Lagerort;part
 229 EOL
 230 $entries = test_import($file,$settings2);
 231 $entry = $entries->[0];
 232 is $entry->{object}->description, 'Teil 1000', 'Teil 1000 set';
 233 is $entry->{object}->warehouse_id, $wh2->id, 'Lager2';
 234 is $entry->{object}->bin_id, $bin2_1->id, 'Lagerort1';
 235 $entry = $entries->[2];
 236 my $err1 = @{ $entry->{errors} }[0];
 237 #print "'".$err1."'\n";
 238 is $entry->{object}->description, 'Teil 1002', 'Teil 1002 set';
 239 is $entry->{object}->warehouse_id, $wh2->id, 'Lager2';
 240 is $err1, 'Error: Bin Ort1_von_Lager1 is not from warehouse Lager2','kein Lager von Lager2';
 241 $entry = $entries->[3];
 242 $err1 = @{ $entry->{errors} }[0];
 243 #print "'".$err1."'\n";
 244 is $entry->{object}->description, 'Teil 1003', 'Teil 1003 set';
 245 is $entry->{object}->warehouse_id, $wh2->id, 'Lager2';
 246 is $err1, 'Error: Invalid bin name kein Lagerort','kein Lagerort';
 247
 248 ##### add translations
 249 $file = \<<EOL;
 250 partnumber;description;description_EN;notes_EN;description_IT;notes_IT
 251 P1000;Teil 1000;descr EN 1000;notes EN;descr IT 1000;notes IT
 252 P1001;Teil 1001;descr EN 1001;notes EN;descr IT 1001;notes IT
 253 P1002;Teil 1002;descr EN 1002;notes EN;descr IT 1002;notes IT
 254 P1003;Teil 1003;descr EN 1003;notes EN;descr IT 1003;notes IT
 255 EOL
 256 $entries = test_import($file,$settings2);
 257 $entry = $entries->[0];
 258 is $entry->{object}->description, 'Teil 1000', 'Teil 1000 set';
 259 is $entry->{raw_data}->{description_EN},'descr EN 1000','EN set';
 260 is $entry->{raw_data}->{description_IT},'descr IT 1000','IT set';
 261 my $l = @{$entry->{object}->translations}[0];
 262 is $l->translation,'descr EN 1000','EN trans set';
 263 is $l->longdescription, 'notes EN','EN notes set';
 264 $l = @{$entry->{object}->translations}[1];
 265 is $l->translation,'descr IT 1000','IT trans set';
 266 is $l->longdescription, 'notes IT','IT notes set';
 267
 268 ##### add customvar
 269 $file = \<<EOL;
 270 partnumber;cvar_mycvar
 271 P1000;das ist der Ring
 272 P1001;nicht der Nibelungen
 273 P1002;sondern vom
 274 P1003;Herr der Ringe
 275 EOL
 276 $entries = test_import($file,$settings2);
 277 $entry = $entries->[0];
 278 is $entry->{object}->partnumber, 'P1000', 'P1000 set';
 279 is $entry->{raw_data}->{cvar_mycvar},'das ist der Ring','CVAR set';
 280 is @{$entry->{object}->custom_variables}[0]->text_value,'das ist der Ring','Cvar mit richtigem Wert';
 281
 282 # set locale to de so we can match abbreviations
 283 $::locale = $old_locale;
 284 ##### import part classification
 285 $file = \<<EOL;
 286 partnumber;pclass;description
 287 W1000;WE;Teil 1000
 288 W1001;WV;Teil 1001
 289 D1002;DV;Dienstleistung 1002
 290 D1003;DH;Dienstleistung 1003
 291 EOL
 292 $entries = test_import($file,$settings2);
 293 $entry = $entries->[0];
 294 is $entry->{object}->classification_id, '1', 'W1000 von Klasse Einkauf';
 295 is $entry->{object}->type, 'part', 'W1000 vom Type part';
 296 $entry = $entries->[1];
 297 is $entry->{object}->classification_id, '2', 'W1001 von Klasse Verkauf';
 298 is $entry->{object}->type, 'part', 'W1001 vom Type part';
 299 $entry = $entries->[2];
 300 is $entry->{object}->classification_id, '2', 'D1002 von Klasse Verkauf';
 301 is $entry->{object}->type, 'service', 'D1002 vom Type service';
 302 $entry = $entries->[3];
 303 is $entry->{object}->classification_id, '3', 'D1003 von Klasse Handelsware';
 304 is $entry->{object}->type, 'service', 'D1003 vom Type service';
 305
 306
 307 clear_up(); # remove all data at end of tests
 308
 309 # end of tests
 310
 311
 312 sub clear_up {
 313   SL::DB::Manager::Part       ->delete_all(all => 1);
 314   SL::DB::Manager::Pricegroup ->delete_all(all => 1);
 315   SL::DB::Manager::Price      ->delete_all(all => 1);
 316   SL::DB::Manager::Translation->delete_all(all => 1);
 317   SL::DB::Manager::Language   ->delete_all(all => 1);
 318   SL::DB::Manager::Bin        ->delete_all(all => 1);
 319   SL::DB::Manager::Warehouse  ->delete_all(all => 1);
 320   SL::DB::Manager::CustomVariableConfig->delete_all(all => 1);
 321 }
 322
 323
 324 1;
 325
 326 #####
 327 # vim: ft=perl
 328 # set emacs to perl mode
 329 # Local Variables:
 330 # mode: perl
 331 # End: