projekt kivitendo

               $form->{"qty_$i"}, $baseqty,

               $form->{"sellprice_$i"}, $form->{"discount_$i"} / 100,

               $form->{"unit_$i"}, conv_date($items_reqdate), conv_i($form->{"project_id_$i"}),

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

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

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

use SL::Common;

use SL::CVar;

use SL::DATEV qw(:CONSTANTS);

use SL::DBUtils;

use SL::DB::Draft;

use SL::DO;

               $form->{"description_$i"}, $restricter->process($form->{"longdescription_$i"}), $form->{"qty_$i"} * -1,

               $baseqty * -1, $form->{"sellprice_$i"}, $fxsellprice, $form->{"discount_$i"}, $allocated,

               $form->{"unit_$i"}, conv_date($form->{deliverydate}),

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

               $form->{"active_price_source_$i"}, $form->{"active_discount_source_$i"},

               $form->{"expense_chart_id_$i"}, $form->{"inventory_chart_id_$i"}, $form->{"tax_id_$i"}, $form->{"tax_chart_type_$i"},

use SL::CVar;

use SL::Common;

use SL::DATEV qw(:CONSTANTS);

use SL::DBUtils;

use SL::DO;

use SL::GenericTranslations;

                 $form->{"sellprice_$i"}, $fxsellprice,

                 $form->{"discount_$i"}, $allocated, 'f',

                 $form->{"unit_$i"}, conv_date($form->{"reqdate_$i"}), conv_i($form->{"project_id_$i"}),

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

                 $form->{"marge_percent_$i"}, $form->{"marge_absolut_$i"},

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

    my ($err, $qty, $wh_id, $bin_id, $chargenumber);

    if ($::instance_conf->get_sales_serial_eq_charge && $form->{"serialnumber_$i"}) {

      if (scalar @serials != $form->{"qty_$i"}) {

        push @errors, $::locale->text("Cannot transfer #1 qty with #2 serial number(s)", $form->{"qty_$i"}, scalar @serials);

        last;

           $form->{"qty_$i"}, $baseqty,

           $fxsellprice, $form->{"discount_$i"},

           $form->{"unit_$i"}, conv_date($reqdate), conv_i($form->{"project_id_$i"}),

           $pricegroup_id, $form->{"subtotal_$i"} ? 't' : 'f', $form->{"recurring_billing_mode_$i"} || 'always',

           $form->{"marge_percent_$i"}, $form->{"marge_absolut_$i"},

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

        style => "width: 100px");

    }

    $column_data{projectnr} = NTI($cgi->popup_menu(

      '-name' => "project_id_$i",

      '-values' => \@projectnumber_values,