projekt kivitendo

use List::MoreUtils qw(any uniq);

  my @header_sort = qw(runningnumber partnumber description ship qty unit weight sellprice_pg sellprice discount linetotal);

    {  id => 'sellprice_pg',  width => 8,     value => $locale->text('Pricegroup'),           display => !$is_delivery_order && !$is_purchase, },

  my %align  = map { $_ => 'right' } qw(qty ship right sellprice_pg discount linetotal stock_in_out weight);

    # adjust prices by unit, ignore if pricegroup changed

    if ((!$form->{"prices_$i"}) || ($form->{"new_pricegroup_$i"} == $form->{"old_pricegroup_$i"})) {

        $form->{"sellprice_$i"} *= AM->convert_unit($form->{"selected_unit_$i"}, $form->{"unit_old_$i"}, $all_units) || 1;

        $form->{"lastcost_$i"} *= AM->convert_unit($form->{"selected_unit_$i"}, $form->{"unit_old_$i"}, $all_units) || 1;

        $form->{"unit_old_$i"}   = $form->{"selected_unit_$i"};

    }

    # build in drop down list for pricesgroups

    # $sellprice_value setzt den Wert etwas unabhängiger von der Darstellung.

    # Hintergrund: Preisgruppen werden hier überprüft und neu berechnet.

    # Vorher wurde der ganze cgi->textfield Block zweimal identisch eingebaut, dass passiert

    # jetzt nach der Abfrage.

    my $sellprice_value;

    if ($form->{"prices_$i"}) {

      $column_data{sellprice_pg} = qq|<select name="sellprice_pg_$i" style="width: 8em">$form->{"prices_$i"}</select>|;

      $sellprice_value           =($form->{"new_pricegroup_$i"} != $form->{"old_pricegroup_$i"})

                                      ? $form->format_amount(\%myconfig, $form->{"price_new_$i"}, $decimalplaces)

                                      : $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);

    } else {

      # for last row and report

      # set pricegroup drop down list from report menu

      if ($form->{"sellprice_$i"} != 0) {

        # remember the pricegroup_id in pricegroup_old

        # but don't overwrite it

        $form->{"pricegroup_old_$i"} = $form->{"pricegroup_id_$i"};

        my $default_option           = $form->{"sellprice_$i"}.'--'.$form->{"pricegroup_id_$i"};

        $column_data{sellprice_pg}   = NTI($cgi->popup_menu("sellprice_pg_$i", [ $default_option ], $default_option, { $default_option => $form->{"pricegroup_$i"} || '' }));

      } else {

        $column_data{sellprice_pg} = qq| |;

      }

      $sellprice_value = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);

    }

    # Falls der Benutzer die Preise nicht anpassen sollte, wird das entsprechende

    # Textfield auf readonly gesetzt. Anm. von Sven: Manipulation der Preise ist

    # immer noch möglich, konsequenterweise sollten diese NUR aus der Datenbank

    # geholt werden.

    my $edit_prices = $main::auth->assert('edit_prices', 1);

    $column_data{sellprice} = (!$edit_prices)

                                ? $cgi->textfield(-readonly => "readonly",

                                                  -name => "sellprice_$i", -size => 10, -onBlur => "check_right_number_format(this)", -value => $sellprice_value)

                                : $cgi->textfield(-name => "sellprice_$i", -size => 10, -onBlur => "check_right_number_format(this)", -value => $sellprice_value);

      $form->{"pricegroup_id_$i"} = $form->{"pricegroup_old_$i"} if $form->{"pricegroup_old_$i"};

      $form->{"sellprice_pg_$i"}  = $form->{"hidden_prices_$i"}  if $form->{"hidden_prices_$i"};

      push @hidden_vars, grep { defined $form->{"${_}_${i}"} } qw(sellprice discount not_discountable price_factor_id lastcost pricegroup_id sellprice_pg);

            (qw(orderitems_id bo pricegroup_old price_old id inventory_accno bin partsgroup partnotes

    push @ROWS, { ROW1 => \@ROW1, ROW2 => \@ROW2, HIDDENS => \@HIDDENS, colspan => $colspan, error => $form->{"row_error_$i"}, };

##################################################

# build html-code for pricegroups in variable $form->{prices_$j}

sub set_pricegroup {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my $locale   = $main::locale;

  my $cgi      = $::request->{cgi};

  _check_io_auth();

  my $rowcount = shift;

  for my $j (1 .. $rowcount) {

    next unless $form->{PRICES}{$j};

    # build drop down list for pricegroups

    my $option_tmpl = qq|<option value="%s--%s" %s>%s</option>|;

    $form->{"prices_$j"}  = join '', map { sprintf $option_tmpl, @$_{qw(price pricegroup_id selected pricegroup)} }

                                         (+{ pricegroup => $locale->text("none (pricegroup)") }, @{ $form->{PRICES}{$j} });

    foreach my $item (@{ $form->{PRICES}{$j} }) {

      # set new selectedpricegroup_id and prices for "Preis"

      $form->{"pricegroup_old_$j"} = $item->{pricegroup_id}   if $item->{selected} &&  $item->{pricegroup_id};

      $form->{"sellprice_$j"}      = $item->{price}           if $item->{selected} &&  $item->{pricegroup_id};

      $form->{"price_new_$j"}      = $form->{"sellprice_$j"}  if $item->{selected} || !$item->{pricegroup_id};

    }

    # save hidden pricegroups for delivery_orders

    next unless my @selected_prices = grep { $_->{selected} } @{ $form->{PRICES}{$j} };

    $form->{"hidden_prices_$j"} = $selected_prices[-1]{price} . "--" . $selected_prices[-1]{pricegroup_id};

  }

  $main::lxdebug->leave_sub();

}

  # get pricegroups for parts

  IS->get_pricegroups_for_parts(\%myconfig, \%$form);

  # build up html code for prices_$i

  set_pricegroup($form->{rowcount});

    # get pricegroups for parts

    IS->get_pricegroups_for_parts(\%myconfig, \%$form);

    # build up html code for prices_$i

    set_pricegroup($form->{rowcount});

                sellprice_pg pricegroup_old price_old price_new unit_old ordnumber donumber

  # get pricegroups for parts

  IS->get_pricegroups_for_parts(\%::myconfig, \%$::form);

  # build up html code for prices_$i

  set_pricegroup($::form->{rowcount});