projekt kivitendo

  delete @{$profile}{qw(trans_id oe_id delivery_order_items_stock_id trans_type_id project_id)};

  delete @{$profile}{qw(bestbefore)}    if !$::instance_conf->get_show_bestbefore;

  if ($::instance_conf->get_show_bestbefore) {

    $self->add_displayable_columns({ name => 'bestbefore', description => $::locale->text('Best Before') });

  }

  # same part, warehouse, bin, chargenumber and bestbefore date (if

  # show_bestbefore is enabled) done before.

  $key   .= join '+', $key, $object->bestbefore    if $::instance_conf->get_show_bestbefore;

  if (!exists $self->{resulting_quantities}->{$key}) {

    $self->{resulting_quantities}->{$key} = _get_stocked_qty($object);

sub _get_stocked_qty {

  my ($object) = @_;

  my $bestbefore_filter  = '';

  my $bestbefore_val_cnt = 0;

  if ($::instance_conf->get_show_bestbefore) {

    $bestbefore_filter  = ($object->bestbefore) ? 'AND bestbefore = ?' : 'AND bestbefore IS NULL';

    $bestbefore_val_cnt = ($object->bestbefore) ? 1                    : 0;

  }

  my $query = <<SQL;

    SELECT sum(qty) FROM inventory

      WHERE parts_id = ? AND warehouse_id = ? AND bin_id = ? AND chargenumber = ? $bestbefore_filter

      GROUP BY warehouse_id, bin_id, chargenumber

SQL

  my @values = ($object->parts_id,

                $object->warehouse_id,

                $object->bin_id,

                $object->chargenumber);

  push @values, $object->bestbefore if $bestbefore_val_cnt;

  my ($stocked_qty) = selectrow_query($::form, $::form->get_standard_dbh, $query, @values);

  return $stocked_qty;

}