projekt kivitendo

use List::MoreUtils qw(any);

  WARENGRUPPE             => 'warengruppe_nummer',

  WAR_KURZBEZEICHNUNG     => 'warengruppe_name',

  LST_ID                  => 'vendor_number',

my $row = 0;

  $part{csv_row} = $row++;

  if ($part{varianten_groesse}) {

    # map to valid sizes

    unless ($part{warengruppe_nummer} eq '114310' || $part{warengruppe_nummer} eq '124310') { # nicht für gürtel

      $part{varianten_groesse} =~ s/^([0-9][0-9])5$/$1,5/; # 345 -> 34,5

    }

    $part{varianten_groesse} =~ s/^([0-9][0-9])\.5$/$1,5/; # 34.5 -> 34,5

    $part{varianten_groesse} =~ s/^2XL$/XXL/;

    $part{varianten_groesse} =~ s/^XXXL$/3XL/;

    $part{varianten_groesse} =~ s/^([0-9]*)½$/$1 ½/;

    $part{varianten_groesse} =~ s/^([0-9]*)\/½$/$1 ½/;

    $part{varianten_groesse} =~ s/^([0-9]*) 1\/2$/$1 ½/;

    $part{varianten_groesse} =~ s/\/U//; # 34/U -> 34

    $part{varianten_groesse} =~ s/\/I//; # 34/I -> 34

    $part{varianten_groesse} =~ s/\/M//; # 34/M -> 34

    $part{varianten_groesse} =~ s/\/L//; # 34/L -> 34

    $part{varianten_groesse} =~ s/\/XL//; # 34/XL -> 34

    $part{varianten_groesse} =~ s/\/XX//; # 34/XX -> 34

    if (any {$part{varianten_groesse} eq $_} ('.', '_', 'ONE', 'ONE S', 'ONES', 'OSFA', 'ONESI', 'O/S', 'OSO')) {

      delete $part{varianten_groesse};

    }

    if ($part{warengruppe_nummer} eq '114415') { # Hosenträger haben keine Größe

      delete $part{varianten_groesse};

    }

  }

  if ($part{varianten_groesse} && $part{varianten_groesse} =~ m/^([0-9][0-9])([0-9][0-9])$/) {

    my $weite = $1;

    my $laenge = $2;

    $part{varianten_groesse} = $weite;

    $part{varianten_laenge} = $laenge;

  }

  if ($part{varianten_laenge}) {

    if (any {$part{varianten_laenge} eq $_} ('.', 'U')) {

      delete $part{varianten_laenge};

    }

  }

  my @errors;

    unless ($farb_csv->parse) {

      push @errors, "Could not parse csv '$farb_csv_file'";

      next;

    }

    my $pos = 1;

    SL::DB::VariantPropertyValue->new(

      variant_property => $variant_property,

      value            => $_->{Joined},

      abbreviation     => $_->{Joined},

      sortkey => $pos++,

    )->save for @$farb_hrefs;

  }

  # create groessen staffeln

  foreach my $groessen_staffel_row (@$groessen_staffel_hrefs) {

    my $name = delete $groessen_staffel_row->{BEZEICHNUNG};

    my $variant_property = SL::DB::VariantProperty->new(

      name         => $name,

      unique_name  => $name,

      abbreviation => "gr",

    )->save;

      map {$groessen_staffel_row->{$_}}

      sort

      grep {defined $groessen_staffel_row->{$_}}

      keys %$groessen_staffel_row;

  my %partsgroup_id_to_groessen_staffeln;

          push @errors, "Could not find number and name for $hierachy_key partsgroup '".$partsgroup_row->{$hierachy_key}."' in the row:'\n".

            join(';', map {$partsgroup_row->{$_}} @hierachy_descrioptions);

          next;

      $last_hierachy_key = $hierachy_key;

    my $last_partsgroup = $current_partsgroup_hierachy{$last_hierachy_key};

    my @valid_groessen_staffen =

      grep { $_ }

      map {

        my $variant = SL::DB::Manager::VariantProperty->find_by(unique_name => $_);

        push @errors, "Could not find Variant Property '$_' while importing partsgroups." unless $variant;

        $variant;

      }

      grep { $_ ne 'ohne'}

      split(', ', $valid_groessen_staffen);

    $partsgroup_id_to_groessen_staffeln{$last_partsgroup->id} = \@valid_groessen_staffen;

  my %partsgroup_number_to_partsgroup = map {my ($number) = split(' ', $_->description); $number => $_} @{SL::DB::Manager::PartsGroup->get_all()};

  my %vendor_number_to_vendor = map {$_->vendornumber => $_} @{SL::DB::Manager::Vendor->get_all()};

  foreach my $vendor_kurz_name (keys %parent_variants_to_variants) {

    foreach my $partnumber (keys %{$parent_variants_to_variants{$vendor_kurz_name}}) {

      my $count_errors_at_start = scalar @errors;

      # TODO: logic for

      # bestand anpasen

      # stammartikel da neue variante

      # alles neu

      my $grouped_variant_values = $parent_variants_to_variants{$vendor_kurz_name}->{$partnumber};

      my $description = $first_part->{description} || '';

      my $partsgroup_number = $first_part->{warengruppe_nummer};

      my $vendor_number = $first_part->{vendor_number};

      my $partsgroup = $partsgroup_number_to_partsgroup{$partsgroup_number} or

        push @errors, "Could not find partsgroup '$partsgroup_number' for part '$makemodel_model $description' in row " . $first_part->{csv_row};

      my $vendor = $vendor_number_to_vendor{$vendor_number} or

        push @errors, "Could not find vendor: '$vendor_number' for part '$makemodel_model $description' in row " . $first_part->{csv_row};

        push @errors, "Could not find warehouse '$warehouse_description' for part '$makemodel_model $description' in row " . $first_part->{csv_row};

      next if $count_errors_at_start != scalar @errors;

        partnumber  => $vendor_number . '-' . $makemodel_model,

        my @valid_variant_properties;

        if ($property_name eq 'varianten_groesse') {

          @valid_variant_properties = @{$partsgroup_id_to_groessen_staffeln{$partsgroup->id}};

          unless (scalar @valid_variant_properties) {

            push @errors, "NO variant property for key '$property_name' and partsgroup '${\$partsgroup->partsgroup}'. values '@$needed_property_values' in part '$makemodel_model $description' in row " . $first_part->{csv_row};

            next;

          }

        } elsif ($property_name eq 'varianten_farbe') {

          my $color = SL::DB::Manager::VariantProperty->find_by(

            name => { ilike => "Farbliste $vendor_kurz_name" },

          );

          unless ($color) {

            push @errors, "Could not find variant property 'Farbliste $vendor_kurz_name'";

            next;

          }

          @valid_variant_properties = ($color);

        } elsif ($property_name eq 'varianten_laenge') {

          # Only 'Jeanslängen' is vaild

          my $laenge = SL::DB::Manager::VariantProperty->find_by(

              name => { ilike => "Jeanslängen" },

          );

          unless ($laenge) {

            push @errors, "Could not find variant property 'Jenaslänge'";

            next;

          }

          @valid_variant_properties = ($laenge);

        } else {

          push @errors, "Not implemented for property '$property_name'";

          next;

        }

          @valid_variant_properties;

          push @errors, "Could not find variant property with values for $property_name '@{$needed_property_values}' of part '$makemodel_model $description' in row " . $first_part->{csv_row} . "\n" .

          "Best match is '${\$best_match->{property}->name}' with missing values '@{$best_match->{missing}}'.\n" .

          "Valid properties are: " . join(', ', map {$_->name} @valid_variant_properties) . "\n"

          ;

          next;

      next if $count_errors_at_start != scalar @errors;

        if (scalar @property_values != scalar keys %property_name_to_variant_property) {

          push @errors, "Missing property value for part '$makemodel_model $description' in row " . $variant_values->{csv_row};

          next;

        }

        my $variant = first {join(' ', sort map {$_->id} @property_values) eq join(' ', sort map {$_->id} $_->variant_property_values)}

          $parent_variant->variants;

        $variant ||= $parent_variant->create_new_variant(\@property_values);

        my $warehouse_description = $variant_values->{warehouse_description};

        my $warehouse = $warehouse_description_to_warehouse{lc($warehouse_description)};

        unless ($warehouse) {

          push @errors, "Could not find warehouse '$warehouse_description' for part '$makemodel_model $description' in row " . $variant_values->{csv_row};

          next;

        }

          ean         => $variant_values->{ean},

          sellprice   => $sellprice,

          warehouse   => $warehouse,

          bin         => $warehouse->bins->[0],

  if (scalar @errors) {

    say join("\n", @errors);

    die join("\n", @errors);

  } else {

    return 1;

  }

  if (SL::DB->client->error) {

    say t8('Error while creating variants: '), SL::DB->client->error;

  }