projekt kivitendo

    my $basqty;

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

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

    if ($form->{storno}) {

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