projekt kivitendo

  # column_index

  my @header_sort = qw(

    runningnumber partnumber type_and_classific description ship ship_missing qty price_factor

    bin stock_in_out

  );

  my @row2_sort   = qw(

    serialnr projectnr reqdate subtotal marge listprice lastcost onhand

  );

  my %column_def = (

    partnumber    => { width => 8,     value => $locale->text('Number'),               display => 1, },

    type_and_classific

                  => { width => 2,     value => $locale->text('Type'),                 display => 1, },

    serialnr      => { width => 10,    value => $locale->text('Serial No.'),           display => !$is_quotation },

    projectnr     => { width => 10,    value => $locale->text('Project'),              display => 1, },

    price_source  => { width => 5,     value => $locale->text('Price Source'),         display => !$is_delivery_order, },

    discount      => { width => 5,     value => $locale->text('Discount'),             display => !$is_delivery_order, },

    linetotal     => { width => 10,    value => $locale->text('Extended'),             display => !$is_delivery_order, },

    bin           => { width => 10,    value => $locale->text('Bin'),                  display => 0, },

  my $deliverydate  = $locale->text('Required by');

  # special alignings

  my %nowrap = map { $_ => 1 }       qw(description unit  price_source);

  $form->{marge_total}           = 0;

    my $rows            = $form->numtextrows($form->{"description_$i"}, 30, 6);

    # quick delete single row

                                   q|<img height="10px" width="10px" src="image/cross.png" alt="| . $locale->text('Remove') . q|"></a> |;

    $column_data{partnumber}    = $cgi->textfield(-name => "partnumber_$i",    -id => "partnumber_$i",    -size => 12, -value => $form->{"partnumber_$i"});

    $column_data{type_and_classific} = SL::Presenter::Part::type_abbreviation($form->{"part_type_$i"}).

                                       SL::Presenter::Part::classification_abbreviation($form->{"classification_id_$i"}) if $form->{"id_$i"};

    $column_data{description} = (($rows > 1) # if description is too large, use a textbox instead

    my $qty_dec = ($form->{"qty_$i"} =~ /\.(\d+)/) ? length $1 : 2;

    $column_data{qty} .= $cgi->button(-onclick => "calculate_qty_selection_dialog('qty_$i', '', 'formel_$i', '')", -value => $locale->text('*/'))

                       . $cgi->hidden(-name => "formel_$i", -value => $form->{"formel_$i"})

      if $form->{"formel_$i"};

    my $edit_discounts  = $main::auth->assert('edit_prices', 1) && !$::form->{"active_discount_source_$i"};

    $column_data{sellprice}   = (!$edit_prices)

                                ? $cgi->hidden(   -name => "sellprice_$i", -id => "sellprice_$i", -value => $sellprice_value) . $sellprice_value

    $column_data{discount}    = (!$edit_discounts)

                                  ? $cgi->hidden(   -name => "discount_$i", -id => "discount_$i", -value => $discount_value) . $discount_value . ' %'

    if ($is_delivery_order) {

      $column_data{stock_in_out} =  calculate_stock_in_out($i);

    }

    $column_data{projectnr} = NTI($cgi->popup_menu(

      '-name' => "project_id_$i",

      '-values' => \@projectnumber_values,

      '-labels' => \%projectnumber_labels,

    ));

    $column_data{subtotal}  = sprintf qq|<input type="checkbox" name="subtotal_$i" value="1" %s>|, $form->{"subtotal_$i"} ? 'checked' : '';

# begin marge calculations

    map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) } qw(marge_absolut marge_percent);

      $marge_color, $form->{"marge_absolut_$i"}, $form->{"marge_percent_$i"};

# / marge calculations ending

# Calculate total weight

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

      my $part         = IC->get_basic_part_info(id => $form->{"id_$i"});

      my $onhand_color = $part->{onhand} < $part->{rop} ? 'color="#ff0000"' : '';

                      $onhand_color,

                      $form->format_amount(\%myconfig, $part->{onhand}, 2),

                      $part->{unit};

# / calculate onhand

    my @ROW1 = map { { value => $column_data{$_}, align => $align{$_}, nowrap => $nowrap{$_} } } grep { $column_def{$_}{display} } @header_sort;

    my @hidden_vars;

    # add hidden ids for persistent (item|invoice)_ids and previous (converted_from*) ids