projekt kivitendo

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

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

  }

  display_stock_in_form($stock_info);

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  $form->{title} = $locale->text('Stock');

  my $part_info  = IC->get_basic_part_info('id' => $form->{parts_id});

    next if ($form->{"qty_$i"} <= 0);

  }

  $form->{stock} = YAML::Dump($stock_info);

      foreach my $sinfo (@{ $stock_info }) {

        next if (($row->{bin_id}       != $sinfo->{bin_id}) ||

                 ($row->{warehouse_id} != $sinfo->{warehouse_id}) ||

        map { $row->{"stock_$_"} = $sinfo->{$_} } qw(qty unit error);

      }

      'warehouse_id' => $form->{"warehouse_id_$i"},

      'bin_id'       => $form->{"bin_id_$i"},

      'chargenumber' => $form->{"chargenumber_$i"},

      'qty'          => $form->{"qty_$i"},

      'unit'         => $form->{"unit_$i"},

      'row'          => $i,

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

        $request->{base_qty} = $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;

        $request_map{$map_key}                 ||= $request;

        $request_map{$map_key}->{sum_base_qty} ||= 0;

      my @contents     = DO->get_item_availability('parts_id' => \@part_ids);

      foreach my $inv (@contents) {

        next unless ($request_map{$map_key});

        my $pinfo = $part_info_map{$request->{parts_id}};

        my $binfo = $bin_info_map{$request->{bin_id}};

                                                 $pinfo->{description}, $binfo->{warehouse_description}, $binfo->{bin_description},

                                                 $request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),

                                                 $form->format_amount_units('amount'      => $request->{sum_base_qty},

                                                                            'part_unit'   => $pinfo->{unit},

                                                                            'conv_units'  => 'convertible_not_smaller'));