projekt kivitendo

package IC;

use Data::Dumper;

use YAML;

use SL::CVar;

#

# not working:

#   onhand                                   - as above, but masking the simple itemstatus results (doh!)

#   warehouse onhand

#

# disabled sanity checks and changes:

#  - searchitems = assembly will no longer disable bought

#  - allow sorting by ean

#  - serialnumber filter also works if l_serialnumber isn't ticked

#  - sorting will now change sorting if the requested sorting column isn't checked and doesn't get checked as a side effect

#

sub all_parts {

  my @makemodel_filters    = qw(make model);

  my @invoice_oi_filters   = qw(serialnumber soldtotal);

  my @apoe_filters         = qw(transdate);

  my @all_columns          = (@simple_filters, @makemodel_filters, @apoe_filters, qw(serialnumber));

  my @simple_l_switches    = (@all_columns, qw(listprice sellprice lastcost priceupdate weight unit bin rop image));

  my @oe_flags             = qw(bought sold onorder ordered rfq quoted);

#  my @other_flags          = qw(onhand); # ToDO: implement these

#  my @inactive_flags       = qw(l_subtotal short l_linetotal);

  my %joins = (

    partsgroup => 'LEFT JOIN partsgroup pg      ON (pg.id       = p.partsgroup_id)',

    makemodel  => 'LEFT JOIN makemodel mm       ON (mm.parts_id = p.id)',

    pfac       => 'LEFT JOIN price_factors pfac ON (pfac.id     = p.price_factor_id)',

    invoice_oi =>

      q|LEFT JOIN (

       ) AS ioi ON ioi.parts_id = p.id|,

    apoe       =>

      q|LEFT JOIN (

     lastcost     => ' ',

     factor       => 'pfac.',

     'SUM(ioi.qty)' => ' ',

  );

  my %renamed_columns = (

    'factor'       => 'price_factor',

    'SUM(ioi.qty)' => 'soldtotal',

    @simple_l_switches = grep { $_ ne 'lastcost' } @simple_l_switches;

  }

  # special case transdate

  if (grep { $form->{$_} } qw(transdatefrom transdateto)) {

    }

  }

    next unless $form->{$_};

    $form->{"l_$_"} = '1'; # show the column

    push @where_tokens, "$table_prefix{$_}$_ ILIKE ?";

        LEFT JOIN parts p_lc            ON (a_lc.parts_id        = p_lc.id)

        LEFT JOIN price_factors pfac_lc ON (p_lc.price_factor_id = pfac_lc.id)

        WHERE (a_lc.id = p.id)) AS lastcost|;

  # special case: sorting by partnumber

  # since partnumbers are expected to be prefixed integers, a special sorting is implemented sorting first lexically by prefix and then by suffix.

  #=== joins and complicated filters ========#

  my @bsooqr_tokens = ();

  push @select_tokens, @qsooqr_flags                                          if $bsooqr;

  push @select_tokens, @deliverydate_flags                                    if $bsooqr && $form->{l_deliverydate};

  push @select_tokens, $q_assembly_lastcost                                   if ($form->{searchitems} eq 'assembly') && $form->{l_lastcost};

  # find the old entries in of @where_tokens and @bind_vars, and adjust them

  if ($joins_needed{invoice_oi}) {

    for (my ($wi, $bi) = (0)x2; $wi <= $#where_tokens; $bi++ if $where_tokens[$wi++] =~ /\?/) {

      splice @where_tokens, $wi, 1, 'p.description ILIKE ? OR ioi.description ILIKE ?';

      splice @bind_vars,    $bi, 0, $bind_vars[$bi];

      last;

  #============= build query ================#

  my $join_clause   = join ' ',     @joins{ grep $joins_needed{$_}, @join_order };

  my $where_clause  = join ' AND ', map { "($_)" } @where_tokens;

  my ($cvar_where, @cvar_values) = CVar->build_filter_query('module'         => 'IC',

                                                            'trans_id_field' => 'p.id',