projekt kivitendo

# LX-Office ERP

# Copyright (C) 2004

# Based on SQL-Ledger Version 2.1.9

  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);

           SELECT id, name, 'customer' AS cv FROM customer UNION

           SELECT id, name, 'vendor'   AS cv FROM vendor

         ) AS cv ON cv.id = apoe.customer_id OR cv.id = apoe.vendor_id|,

  );

  my %table_prefix = (

     deliverydate => 'apoe.', serialnumber => 'ioi.',

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

  $table_prefix{$q_assembly_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.

  # and yes, that expression is designed to hold that array of regexes only once, so the map is kinda messy, sorry about that.

  $joins_needed{partsgroup}  = 1;

  $joins_needed{pfac}        = 1;

  $joins_needed{makemodel}   = 1 if grep { $form->{$_} || $form->{"l_$_"} } @makemodel_filters;

  $joins_needed{cv}          = 1 if $bsooqr;

  $joins_needed{apoe}        = 1 if $joins_needed{cv}   || grep { $form->{$_} || $form->{"l_$_"} } @apoe_filters;

  $joins_needed{invoice_oi}  = 1 if $joins_needed{apoe} || grep { $form->{$_} || $form->{"l_$_"} } @invoice_oi_filters;