projekt kivitendo

       partnotes serialnumber reqdate sellprice listprice netprice

       discount p_discount discount_sub nodiscount_sub

       linetotal  nodiscount_linetotal tax_rate projectnumber

  my $sameitem = "";

  foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {

      push @{ $form->{listprice} },         $form->{"listprice_$i"};

      push @{ $form->{price_factor} },      $price_factor->{formatted_factor};

      push @{ $form->{price_factor_name} }, $price_factor->{description};

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

      my ($dec)         = ($sellprice =~ /\.(\d+)/);