projekt kivitendo

     "stock_value"          => ($form->{stock_value_basis} // '') eq 'list_price' ? "p.listprice / COALESCE(pfac.factor, 1)" : "p.lastcost / COALESCE(pfac.factor, 1)",

     "purchase_price"       => "p.lastcost",

     "list_price"           => "p.listprice",

  );

  $form->{l_classification_id}  = 'Y';

  $form->{l_part_type}          = 'Y';

  my $select_clause = join ', ', map { +/^l_/; "$select_tokens{$'} AS $'" }

        ( grep( { !/qty/ and !/^l_cvar/ and /^l_/ and $form->{$_} eq 'Y' } keys %$form),

  my @join_values = ();

  my %join_tokens = (

  my $joins = join ' ', grep { $_ } map { +/^l_/; $join_tokens{"$'"} }

        ( grep( { !/qty/ and !/^l_cvar/ and /^l_/ and $form->{$_} eq 'Y' } keys %$form),

  my $sort_col     = $form->{sort};

  my %filter;

  # filter stuff

  map { $filter{$_} = $form->{$_} if ($form->{$_}) } qw(warehouse_id bin_id classification_id partnumber description partsgroup_id chargenumber bestbefore date include_invalid_warehouses);

    'stock_value'          => { 'text' => $locale->text('Stock value'), },

    'purchase_price'       => { 'text' => $locale->text('Purchase price'), },

    'list_price'           => { 'text' => $locale->text('List Price'), },

  );

  my %column_defs_cvars = map { +"cvar_$_->{name}" => { 'text' => $_->{description} } } @includeable_custom_variables;

    grep {!/^cvar_/ or $cvar_is_text{$_}}

    @columns;

  map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns;