projekt kivitendo

  my $sort_order = $form->{order};

  $sort_col      = $filter{sort}         unless $sort_col;

  $sort_order    = ($sort_col = 'shippingdate') unless $sort_col;

  my $where_clause = @filter_ary ? join(" AND ", @filter_ary) . " AND " : '';

     };

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

  $form->{l_invoice_id} = $form->{l_oe_id} if $form->{l_oe_id};

  # build the select clauses.

  }

  my $group_clause = join ", ", map { +/^l_/; "r_$'" }

  $where_clause = defined($where_clause) ? $where_clause : '';

  my $query =

    FROM inventory i1

    LEFT JOIN inventory i2 ON i1.trans_id = i2.trans_id

    LEFT JOIN parts p ON i1.parts_id = p.id

    WHERE $where_clause i1.qty > 0 AND

          i1.trans_id IN ( SELECT i.trans_id FROM inventory i GROUP BY i.trans_id HAVING COUNT(i.trans_id) = 1 )

    GROUP BY $group_clause

  my $sth = prepare_execute_query($form, $dbh, $query, @filter_vars, @filter_vars, @filter_vars);

    push @filter_vars, trim($form->{bestbefore});

  }

  if ($filter{ean}) {

    push @filter_ary,  "p.ean ILIKE ?";

    push @filter_vars, like($filter{ean});

     "warehousedescription" => "w.description",

     "partunit"             => "p.unit",

     "stock_value"          => "p.lastcost / COALESCE(pfac.factor, 1)",

  );

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

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

          qw(l_parts_id l_qty l_partunit) );

  my $query =

      FROM inventory i

      LEFT JOIN parts     p ON i.parts_id     = p.id

      LEFT JOIN bin       b ON i.bin_id       = b.id

      $joins

      WHERE $where_clause

      GROUP BY $group_clause

  my $sth = prepare_execute_query($form, $dbh, $query, @filter_vars);

  my @columns = qw(trans_id date warehouse_from bin_from warehouse_to bin_to partnumber type_and_classific partdescription chargenumber bestbefore trans_type comment qty unit partunit employee oe_id projectnumber);

  # filter stuff

  $filter{qty_op} = WH->convert_qty_op($form->{qty_op});

  if ($filter{qty_op}) {

  }

  # /filter stuff

  my $report = SL::ReportGenerator->new(\%myconfig, $form);

  my @hidden_variables = map { "l_${_}" } @columns;

  push @hidden_variables, qw(classification_id);

  my %column_defs = (

    'oe_id'           => { 'text' => $locale->text('Document'), },

  );

  my $href = build_std_url('action=generate_journal', grep { $form->{$_} } @hidden_variables);

  map { $column_defs{$_}->{link} = $href ."&page=".$page. "&sort=${_}&order=" . Q($_ eq $form->{sort} ? 1 - $form->{order} : $form->{order}) } @columns;

  my %column_alignment = map { $_ => 'right' } qw(qty);

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

  $column_defs{type_and_classific}->{visible} = 1;

  $column_defs{type_and_classific}->{link} ='';

  $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';

  my $all_units = AM->retrieve_units(\%myconfig, $form);

  my %doc_types = ( 'sales_quotation'         => { script => 'oe', title => $locale->text('Sales quotation') },

                    'sales_order'             => { script => 'oe', title => $locale->text('Sales Order') },

                    'purchase_invoice'        => { script => 'ir', title => $locale->text('Purchase Invoice') },

                  );

  my $idx       = 0;

  foreach my $entry (@contents) {

    $entry->{type_and_classific} = $::request->presenter->type_abbreviation($entry->{part_type}).

                                   $::request->presenter->classification_abbreviation($entry->{classification_id});

    $entry->{trans_type} = $locale->text($entry->{trans_type});

    my $row = { };

    }

    if ( $allrows || ($idx >= $first_nr && $idx < $last_nr )) {

    }

    $idx++;

  }

  if ( ! $allrows ) {

      $pages->{page} = $page < 1 ? 1: $page > $pages->{max} ? $pages->{max}: $page;

      $pages->{common} = [ grep { $_->{visible} } @{ SL::DB::Helper::Paginated::make_common_pages($pages->{page}, $pages->{max}) } ];

      $report->set_options('raw_bottom_info_text' => $form->parse_html_template('common/paginate',

  }

  $report->generate_with_headers();

  $form->{title}   = $locale->text("Report about warehouse contents");

  $form->{sort}  ||= 'partnumber';

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

  my %filter;

  # filter stuff

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

  }

  # /filter stuff

  $form->{subtotal} = '' if (!first { $_ eq $sort_col } qw(partnumber partdescription));

  my $report = SL::ReportGenerator->new(\%myconfig, $form);

  my @hidden_variables = map { "l_${_}" } @columns;

    'qty'                  => { 'text' => $locale->text('Qty'), },

    'partunit'             => { 'text' => $locale->text('Unit'), },

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

  );

  my $href = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);

  map { $column_defs{$_}->{link} = $href . "&page=".$page."&sort=${_}&order=" . Q($_ eq $sort_col ? 1 - $form->{order} : $form->{order}) } @columns;

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

  $column_defs{type_and_classific}->{visible} = 1;

  $column_defs{type_and_classific}->{link} ='';

  $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';

  my $all_units = AM->retrieve_units(\%myconfig, $form);

  my $idx       = 0;

  my @subtotals_columns = qw(qty stock_value);

  my $total_stock_value = 0;

  foreach my $entry (@contents) {

    $entry->{type_and_classific} = $::request->presenter->type_abbreviation($entry->{part_type}).

#                                                       'part_unit'  => $entry->{partunit},

#                                                       'conv_units' => 'convertible');

    $entry->{stock_value} = $form->format_amount(\%myconfig, $entry->{stock_value} * 1, 2);

    my $row_set = [ { map { $_ => { 'data' => $entry->{$_}, 'align' => $column_alignment{$_} } } @columns } ];

#                                                               'part_unit'  => $entry->{partunit},

#                                                               'conv_units' => 'convertible');

      $row->{stock_value}->{data} = $form->format_amount(\%myconfig, $subtotals{stock_value} * 1, 2);

      %subtotals                  = map { $_ => 0 } @subtotals_columns;

    }

    if ( $allrows || ($idx >= $first_nr && $idx < $last_nr )) {

    }

    $idx++;

  }

    $report->add_data($row);

  }

  $report->generate_with_headers();

       <tr>

        <td align="right"><input name="l_stock_value" id="l_stock_value" class="checkbox" type="checkbox" value="Y"></td>

        <td nowrap><label for="l_stock_value">[% 'Stock value' | $T8 %]</label></td>

       </tr>

      </table>