projekt kivitendo

  # position of serialnr is used below!

  my @row2_sort   = qw(

    tax_chart tax serialnr projectnr reqdate subtotal recurring_billing_mode marge listprice lastcost onhand

  );

  # serialnr is important for delivery_orders

  if ($form->{type} eq 'sales_delivery_order') {

    vendor_partnumber => { width => 8, value => $locale->text('Vendor Part Number'),   display => $is_delivery_order && $is_purchase, },

    tax_chart     => {                 value => "",                                    display => $is_purchase && $is_invoice },

    tax           => {                 value => $locale->text('Tax'),                  display => $is_purchase && $is_invoice },

  );

  my @HEADER = map { $column_def{$_} } @header_sort;

      default => $::form->{"recurring_billing_mode_$i"} || 'always',

    );

    # begin marge calculations

    $form->{"lastcost_$i"}     *= 1;

    $form->{"marge_percent_$i"} = 0;

          $cgi->hidden("-name" => "price_new_$i", "-value" => $form->format_amount(\%myconfig, $form->{"price_new_$i"})),

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

            (qw(bo price_old id inventory_accno bin partsgroup partnotes active_price_source active_discount_source

                income_accno expense_accno listprice part_type taxaccounts ordnumber donumber transdate cusordnumber

                longdescription basefactor marge_absolut marge_percent marge_price_factor weight), @hidden_vars)

    );