projekt kivitendo

         p.unit, p.assembly, p.bin, p.onhand,

         p.notes AS partnotes, p.notes AS longdescription,

         p.not_discountable, p.formel, p.payment_id AS part_payment_id,

         pfac.factor AS price_factor,

  }

  # column_index

  my @HEADER = (

    {  id => 'runningnumber', width => 5,     value => $locale->text('No.'),                  display => 1, },

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

    {  id => 'qty',           width => 5,     value => $locale->text('Qty'),                  display => 1, },

    {  id => 'price_factor',  width => 5,     value => $locale->text('Price Factor'),         display => !$is_delivery_order, },

    {  id => 'unit',          width => 5,     value => $locale->text('Unit'),                 display => 1, },

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

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

    {  id => 'sellprice',     width => 15,    value => $locale->text('Price'),                display => !$is_delivery_order, },

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

  # special alignings

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

  $form->{marge_total}           = 0;

  $form->{sellprice_total}       = 0;

  $form->{lastcost_total}        = 0;

  my %projectnumber_labels = ();

  my @projectnumber_values = ("");

  _update_ship() if ($is_s_p_order);

  _update_custom_variables();

  # rows

  my @ROWS;

    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"};

    }

    my $this_unit = $form->{"unit_$i"};

    $column_data{linetotal}   = $form->format_amount(\%myconfig, $linetotal, 2);

    $column_data{bin}         = $form->{"bin_$i"};

    if ($is_delivery_order) {

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

    }

      if $form->{"id_$i"} && ($form->{type} =~ /^sales_/ ||  $form->{type} =~ /invoice/) ;

# / marge calculations ending

# calculate onhand

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

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

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

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

                income_accno expense_accno listprice assembly taxaccounts ordnumber transdate cusordnumber

    );

    map { $form->{"${_}_base"} += $linetotal } (split(/ /, $form->{"taxaccounts_$i"}));

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

  }

  print $form->parse_html_template('oe/sales_order', { ROWS   => \@ROWS,

                                                       HEADER => \@HEADER,

                                                     });

    my $info                 = $form->{PART_INFORMATION}->{$form->{"id_${i}"}} || { };

    $form->{"partunit_${i}"} = $info->{unit};

  }

  $main::lxdebug->leave_sub();

[%- END %]

       </table>

      </td>

      <td>

       <table>

        <tr>