-use Test::More tests => 43;
+use Test::More tests => 47;
use strict;
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 );
+my ($pg1_id, $pg2_id, $pg3_id);
Support::TestSetup::login();
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%' });
#####
sub test_import {
my ($file,$settings) = @_;
- my @profiles;
- my $controller = SL::Controller::CsvImport->new();
+
+ my $controller = SL::Controller::CsvImport->new(
+ type => 'parts'
+ );
+ $controller->load_default_profile;
+ $controller->profile->set(
+ charset => 'utf-8',
+ sep_char => ';',
+ quote_char => '"',
+ numberformat => $::myconfig{numberformat},
+ );
my $csv_part_import = SL::Controller::CsvImport::Part->new(
settings => $settings,
);
#print "profile param type=".$csv_part_import->settings->{parts_type}."\n";
- $csv_part_import->test_run(0);
- $csv_part_import->csv(SL::Helper::Csv->new(file => $csv_part_import->file,
- profile => [{ profile => $csv_part_import->profile,
- class => $csv_part_import->class,
- mapping => $csv_part_import->controller->mappings_for_profile }],
- encoding => 'utf-8',
- ignore_unknown_columns => 1,
- strict_profile => 1,
- case_insensitive_header => 1,
- sep_char => ';',
- quote_char => '"',
- ignore_unknown_columns => 1,
- ));
-
- $csv_part_import->csv->parse;
-
- $csv_part_import->controller->errors([ $csv_part_import->csv->errors ]) if $csv_part_import->csv->errors;
-
- return if ( !$csv_part_import->csv->header || $csv_part_import->csv->errors );
-
- my $headers = { headers => [ grep { $csv_part_import->csv->dispatcher->is_known($_, 0) } @{ $csv_part_import->csv->header } ] };
- $headers->{methods} = [ map { $_->{path} } @{ $csv_part_import->csv->specs->[0] } ];
- $headers->{used} = { map { ($_ => 1) } @{ $headers->{headers} } };
- $csv_part_import->controller->headers($headers);
- $csv_part_import->controller->raw_data_headers({ used => { }, headers => [ ] });
- $csv_part_import->controller->info_headers({ used => { }, headers => [ ] });
-
- my $objects = $csv_part_import->csv->get_objects;
- my @raw_data = @{ $csv_part_import->csv->get_data };
-
- $csv_part_import->controller->data([ pairwise { no warnings 'once'; { object => $a, raw_data => $b, errors => [], information => [], info_data => {} } } @$objects, @raw_data ]);
-
- $csv_part_import->check_objects;
+ $csv_part_import->run(test => 0);
# don't try and save objects that have errors
$csv_part_import->save_objects unless scalar @{$csv_part_import->controller->data->[0]->{errors}};
# die Dumper($entry->{errors});
-##### create part
+##### create part with prices and 3 pricegroup prices
$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];
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;
-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';
+# $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
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);