projekt kivitendo

    }

    my $baseqty = $form->{"qty_$i"} * $basefactor;

    # set values to 0 if nothing entered

    $form->{"discount_$i"}  = $form->parse_amount($myconfig, $form->{"discount_$i"});

    $form->{"sellprice_$i"} = $form->parse_amount($myconfig, $form->{"sellprice_$i"});

    $price_factor = $price_factors{ $form->{"price_factor_id_$i"} } || 1;

    my $linetotal    = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / $price_factor, 2);

    my $baseqty;

    $form->{"marge_percent_$i"} = $form->parse_amount($myconfig, $form->{"marge_percent_$i"}) * 1;

    if ($form->{storno}) {

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

                 $form->{"serialnumber_$i"}, conv_i($pricegroup_id),

                 $form->{"ordnumber_$i"}, conv_date($form->{"transdate_$i"}),

                 $form->{"cusordnumber_$i"}, $baseqty, $form->{"subtotal_$i"} ? 't' : 'f',

                 $form->{"lastcost_$i"},

                 conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"price_factor_id_$i"}),

                 conv_i($form->{"marge_price_factor_$i"}));

      my $baseqty = $form->{"qty_$i"} * $basefactor;

      $form->{"marge_percent_$i"} = $form->parse_amount($myconfig, $form->{"marge_percent_$i"}) * 1;

      # set values to 0 if nothing entered

      $form->{"discount_$i"} = $form->parse_amount($myconfig, $form->{"discount_$i"}) / 100;

           $form->{"serialnumber_$i"}, $form->{"ship_$i"}, conv_i($pricegroup_id),

           $form->{"ordnumber_$i"}, conv_date($form->{"transdate_$i"}),

           $form->{"cusordnumber_$i"}, $form->{"subtotal_$i"} ? 't' : 'f',

           $form->{"lastcost_$i"},

           conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"price_factor_id_$i"}),

           conv_i($form->{"marge_price_factor_$i"}));

    $form->{"reqdate_$i"} = $form->{"deliverydate_$i"} unless $form->{"reqdate_$i"};

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

    (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);

    $dec_qty = length $dec_qty;

        $form->{"marge_price_factor_$i"} = $form->{item_list}->[0]->{price_factor};

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

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

      }

      # und keinen anderen discount wert an $i ...

      $form->{"discount_$i"} ||= $form->{discount}*100; # ... nehmen wir den kundenrabatt

    }

  }

  $form->{type} = "invoice";

    $form->{"deliverydate_$i"} = $form->{"reqdate_$i"}

      unless $form->{"deliverydate_$i"};

    $form->{"sellprice_$i"} =

      $form->format_amount(\%myconfig, $form->{"sellprice_$i"},

                           $decimalplaces);

    (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);

    $dec_qty = length $dec_qty;

    $form->{"qty_$i"} =

      $form->{creditremaining} -= $amount;

      # redo number formatting, because invoice parse them!

    }

    $form->{"id_$i"} = $parts_id;

  );

  my @column_index = map { $_->{id} } grep { $_->{display} } @HEADER;

  # cache units

  my $all_units       = AM->retrieve_units(\%myconfig, $form);

    my %column_data = ();

    # undo formatting

# unit begin

    $form->{"unit_old_$i"}      ||= $form->{"unit_$i"};

      }

      $column_data{sellprice} = $cgi->textfield(-name => "sellprice_$i", -size => 10, -onBlur => "check_right_number_format(this)", -value =>

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

    }

    $column_data{discount}    = $cgi->textfield(-name => "discount_$i", -size => 3, -value => $form->format_amount(\%myconfig, $form->{"discount_$i"}));

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

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

                   $marge_color, $locale->text('Ertrag'),$form->{"marge_absolut_$i"}, $form->{"marge_percent_$i"},

                   $locale->text('LP'), $form->format_amount(\%myconfig, $form->{"listprice_$i"}, 2),

                   $locale->text('EK'), $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, 2) }

    my @hidden_vars;

    if ($is_delivery_order) {

      push @hidden_vars, "stock_${stock_in_out}_sum_qty", "stock_${stock_in_out}";

    }

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

      (my $dec_qty)            = ($form->{"qty_$i"} =~ /\.(\d+)/);

      $dec_qty                 = length $dec_qty;

      $form->{"qty_$i"}        = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);

      $form->{rowcount}        = $i;

        $form->{creditremaining} -= $amount;

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

    $form->{"reqdate_$i"} ||= $form->{"deliverydate_$i"};

    $form->{"discount_$i"}  = $form->format_amount(\%myconfig, $form->{"discount_$i"} * ($format_discounts ? 100 : 1));

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

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

  }

    # select discount as customer_discount from customer

    $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"$form->{vc}_discount"} * 100);

    if ($rows) {

      $form->{"qty_$i"} = 1 unless ($form->parse_amount(\%myconfig, $form->{"qty_$i"}));

        $form->{creditremaining} -= $amount;

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

        $form->{"qty_$i"}       = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);

        # get pricegroups for parts

  # reset

  map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued customer vendor creditlimit creditremaining discount tradediscount oldinvtotal delivered ordnumber);

  if ( $form->{sales_order_to_purchase_order} ) {

    for my $i (1 .. $form->{rowcount}) {

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

  delete @{$form}{qw(id subject message cc bcc printed emailed queued creditlimit creditremaining discount tradediscount oldinvtotal closed delivered)};

  for my $i (1 .. $form->{rowcount}) {

  }

  my %old_values = map { $_ => $form->{$_} } qw(customer_id oldcustomer customer vendor_id oldvendor vendor);