# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+# MA 02110-1335, USA.
#======================================================================
#
# Inventory Control backend
package IC;
-sub get_part {
- $main::lxdebug->enter_sub();
+use Data::Dumper;
+use List::MoreUtils qw(all any uniq);
- my ($self, $myconfig, $form) = @_;
+use SL::CVar;
+use SL::DBUtils;
+use SL::HTML::Restrict;
+use SL::TransNumber;
+use SL::Util qw(trim);
+use SL::DB;
+use SL::Presenter::Part qw(type_abbreviation classification_abbreviation separate_abbreviation);
+use Carp;
- # connect to db
- my $dbh = $form->dbconnect($myconfig);
-
- my $query = qq|SELECT p.*,
- c1.accno AS inventory_accno,
- c2.accno AS income_accno,
- c3.accno AS expense_accno,
- pg.partsgroup
- FROM parts p
- LEFT JOIN chart c1 ON (p.inventory_accno_id = c1.id)
- LEFT JOIN chart c2 ON (p.income_accno_id = c2.id)
- LEFT JOIN chart c3 ON (p.expense_accno_id = c3.id)
- LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
- WHERE p.id = $form->{id}|;
- my $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
- my $ref = $sth->fetchrow_hashref(NAME_lc);
-
- # copy to $form variables
- map { $form->{$_} = $ref->{$_} } (keys %{$ref});
+use strict;
- $sth->finish;
+sub retrieve_buchungsgruppen {
+ $main::lxdebug->enter_sub();
- my %oid = ('Pg' => 'a.oid',
- 'Oracle' => 'a.rowid');
-
- # part or service item
- $form->{item} = ($form->{inventory_accno}) ? 'part' : 'service';
- if ($form->{assembly}) {
- $form->{item} = 'assembly';
-
- # retrieve assembly items
- $query = qq|SELECT p.id, p.partnumber, p.description,
- p.sellprice, p.weight, a.qty, a.bom, p.unit,
- pg.partsgroup
- FROM parts p
- JOIN assembly a ON (a.parts_id = p.id)
- LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
- WHERE a.id = $form->{id}
- ORDER BY $oid{$myconfig->{dbdriver}}|;
-
- $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
-
- $form->{assembly_rows} = 0;
- while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
- $form->{assembly_rows}++;
- foreach my $key (keys %{$ref}) {
- $form->{"${key}_$form->{assembly_rows}"} = $ref->{$key};
- }
- }
- $sth->finish;
+ my ($self, $myconfig, $form) = @_;
- }
+ my ($query, $sth);
- # setup accno hash for <option checked> {amount} is used in create_links
- $form->{amount}{IC} = $form->{inventory_accno};
- $form->{amount}{IC_income} = $form->{income_accno};
- $form->{amount}{IC_sale} = $form->{income_accno};
- $form->{amount}{IC_expense} = $form->{expense_accno};
- $form->{amount}{IC_cogs} = $form->{expense_accno};
+ my $dbh = $form->get_standard_dbh;
- unless ($form->{item} eq 'service') {
+ # get buchungsgruppen
+ $query = qq|SELECT id, description FROM buchungsgruppen ORDER BY sortkey|;
+ $form->{BUCHUNGSGRUPPEN} = selectall_hashref_query($form, $dbh, $query);
- # get makes
- if ($form->{makemodel}) {
- $query = qq|SELECT m.make, m.model FROM makemodel m
- WHERE m.parts_id = $form->{id}|;
+ $main::lxdebug->leave_sub();
+}
- $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
+sub assembly_item {
+ $main::lxdebug->enter_sub();
- my $i = 1;
- while (($form->{"make_$i"}, $form->{"model_$i"}) = $sth->fetchrow_array)
- {
- $i++;
- }
- $sth->finish;
- $form->{makemodel_rows} = $i - 1;
+ my ($self, $myconfig, $form) = @_;
- }
- }
+ my $i = $form->{assembly_rows};
+ my $var;
+ my $where = qq|1 = 1|;
+ my @values;
- # now get accno for taxes
- $query = qq|SELECT c.accno
- FROM chart c, partstax pt
- WHERE pt.chart_id = c.id
- AND pt.parts_id = $form->{id}|;
+ my %columns = ("partnumber" => "p", "description" => "p", "partsgroup" => "pg");
- $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
+ while (my ($column, $table) = each(%columns)) {
+ next unless ($form->{"${column}_$i"});
+ $where .= qq| AND ${table}.${column} ILIKE ?|;
+ push(@values, like($form->{"${column}_$i"}));
+ }
- while (($key) = $sth->fetchrow_array) {
- $form->{amount}{$key} = $key;
+ if ($form->{id}) {
+ $where .= qq| AND NOT (p.id = ?)|;
+ push(@values, conv_i($form->{id}));
}
- $sth->finish;
+ # Search for part ID overrides all other criteria.
+ if ($form->{"id_${i}"}) {
+ $where = qq|p.id = ?|;
+ @values = ($form->{"id_${i}"});
+ }
- # is it an orphan
- $query = qq|SELECT i.parts_id
- FROM invoice i
- WHERE i.parts_id = $form->{id}
- UNION
- SELECT o.parts_id
- FROM orderitems o
- WHERE o.parts_id = $form->{id}
- UNION
- SELECT a.parts_id
- FROM assembly a
- WHERE a.parts_id = $form->{id}|;
- $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
-
- ($form->{orphaned}) = $sth->fetchrow_array;
- $form->{orphaned} = !$form->{orphaned};
- $sth->finish;
+ if ($form->{partnumber}) {
+ $where .= qq| ORDER BY p.partnumber|;
+ } else {
+ $where .= qq| ORDER BY p.description|;
+ }
- $dbh->disconnect;
+ my $query =
+ qq|SELECT p.id, p.partnumber, p.description, p.sellprice,
+ p.classification_id,
+ p.weight, p.onhand, p.unit, pg.partsgroup, p.lastcost,
+ p.price_factor_id, pfac.factor AS price_factor, p.notes as longdescription
+ FROM parts p
+ LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
+ LEFT JOIN price_factors pfac ON pfac.id = p.price_factor_id
+ WHERE $where|;
+ $form->{item_list} = selectall_hashref_query($form, SL::DB->client->dbh, $query, @values);
$main::lxdebug->leave_sub();
}
-sub save {
+#
+# Report for Wares.
+# Warning, deep magic ahead.
+# This function gets all parts from the database according to the filters specified
+#
+# specials:
+# sort revers - sorting field + direction
+# top100
+#
+# simple filter strings (every one of those also has a column flag prefixed with 'l_' associated):
+# partnumber ean description partsgroup microfiche drawing
+#
+# column flags:
+# l_partnumber l_description l_listprice l_sellprice l_lastcost l_priceupdate l_weight l_unit l_rop l_image l_drawing l_microfiche l_partsgroup
+# l_warehouse l_bin
+#
+# exclusives:
+# itemstatus = active | onhand | short | obsolete | orphaned
+# searchitems = part | assembly | service
+#
+# joining filters:
+# make model - makemodel
+# serialnumber transdatefrom transdateto - invoice/orderitems
+# warehouse - warehouse
+# bin - bin
+#
+# binary flags:
+# bought sold onorder ordered rfq quoted - aggreg joins with invoices/orders
+# l_linetotal l_subtotal - aggreg joins to display totals (complicated) - NOT IMPLEMENTED here, implementation at frontend
+# l_soldtotal - aggreg join to display total of sold quantity
+# onhand - as above, but masking the simple itemstatus results (doh!)
+# short - NOT IMPLEMENTED as form filter, only as itemstatus option
+# l_serialnumber - belonges to serialnumber filter
+# l_deliverydate - displays deliverydate is sold etc. flags are active
+# l_soldtotal - aggreg join to display total of sold quantity, works as long as there's no bullshit in soldtotal
+#
+# not working:
+# onhand - as above, but masking the simple itemstatus results (doh!)
+# warehouse onhand
+# search by overrides of description
+# soldtotal drops option default warehouse and bin
+# soldtotal can not work if there are no documents checked
+#
+# disabled sanity checks and changes:
+# - searchitems = assembly will no longer disable bought
+# - searchitems = service will no longer disable make and model, although services don't have make/model, it doesn't break the query
+# - itemstatus = orphaned will no longer disable onhand short bought sold onorder ordered rfq quoted transdate[from|to]
+# - itemstatus = obsolete will no longer disable onhand, short
+# - 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 {
$main::lxdebug->enter_sub();
my ($self, $myconfig, $form) = @_;
-
- if ($form->{eur} && ($form->{item} ne 'service')) {
- $form->{IC} = $form->{IC_expense};
+ my $dbh = $form->get_standard_dbh($myconfig);
+
+ # sanity backend check
+ croak "Cannot combine soldtotal with default bin or default warehouse" if ($form->{l_soldtotal} && ($form->{l_bin} || $form->{l_warehouse}));
+
+ $form->{parts} = +{ };
+ $form->{soldtotal} = undef if $form->{l_soldtotal}; # security fix. top100 insists on putting strings in there...
+
+ my @simple_filters = qw(partnumber ean description partsgroup microfiche drawing onhand);
+ my @project_filters = qw(projectnumber projectdescription);
+ my @makemodel_filters = qw(make model);
+ my @invoice_oi_filters = qw(serialnumber soldtotal);
+ my @apoe_filters = qw(transdate);
+ my @like_filters = (@simple_filters, @invoice_oi_filters);
+ my @all_columns = (@simple_filters, @makemodel_filters, @apoe_filters, @project_filters, qw(serialnumber));
+ my @simple_l_switches = (@all_columns, qw(notes listprice sellprice lastcost priceupdate weight unit rop image shop insertdate));
+ my %no_simple_l_switches = (warehouse => 'wh.description as warehouse', bin => 'bin.description as bin');
+ my @oe_flags = qw(bought sold onorder ordered rfq quoted);
+ my @qsooqr_flags = qw(invnumber ordnumber quonumber trans_id name module qty);
+ my @deliverydate_flags = qw(deliverydate);
+# my @other_flags = qw(onhand); # ToDO: implement these
+# my @inactive_flags = qw(l_subtotal short l_linetotal);
+
+ my @select_tokens = qw(id factor part_type classification_id);
+ my @where_tokens = qw(1=1);
+ my @group_tokens = ();
+ my @bind_vars = ();
+ my %joins_needed = ();
+
+ 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 (
+ SELECT parts_id, description, serialnumber, trans_id, unit, sellprice, qty, assemblyitem, deliverydate, 'invoice' AS ioi, project_id, id FROM invoice UNION
+ SELECT parts_id, description, serialnumber, trans_id, unit, sellprice, qty, FALSE AS assemblyitem, NULL AS deliverydate, 'orderitems' AS ioi, project_id, id FROM orderitems
+ ) AS ioi ON ioi.parts_id = p.id|,
+ apoe =>
+ q|LEFT JOIN (
+ SELECT id, transdate, 'ir' AS module, ordnumber, quonumber, invnumber, FALSE AS quotation, NULL AS customer_id, vendor_id, NULL AS deliverydate, globalproject_id, 'invoice' AS ioi FROM ap UNION
+ SELECT id, transdate, 'is' AS module, ordnumber, quonumber, invnumber, FALSE AS quotation, customer_id, NULL AS vendor_id, deliverydate, globalproject_id, 'invoice' AS ioi FROM ar UNION
+ SELECT id, transdate, 'oe' AS module, ordnumber, quonumber, NULL AS invnumber, quotation, customer_id, vendor_id, reqdate AS deliverydate, globalproject_id, 'orderitems' AS ioi FROM oe
+ ) AS apoe ON ((ioi.trans_id = apoe.id) AND (ioi.ioi = apoe.ioi))|,
+ cv =>
+ q|LEFT JOIN (
+ 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|,
+ mv => 'LEFT JOIN vendor AS mv ON mv.id = mm.make',
+ project => 'LEFT JOIN project AS pj ON pj.id = COALESCE(ioi.project_id, apoe.globalproject_id)',
+ warehouse => 'LEFT JOIN warehouse AS wh ON wh.id = p.warehouse_id',
+ bin => 'LEFT JOIN bin ON bin.id = p.bin_id',
+ );
+ my @join_order = qw(partsgroup makemodel mv invoice_oi apoe cv pfac project warehouse bin);
+
+ my %table_prefix = (
+ deliverydate => 'apoe.', serialnumber => 'ioi.',
+ transdate => 'apoe.', trans_id => 'ioi.',
+ module => 'apoe.', name => 'cv.',
+ ordnumber => 'apoe.', make => 'mm.',
+ quonumber => 'apoe.', model => 'mm.',
+ invnumber => 'apoe.', partsgroup => 'pg.',
+ lastcost => 'p.', , soldtotal => ' ',
+ factor => 'pfac.', projectnumber => 'pj.',
+ 'SUM(ioi.qty)' => ' ', projectdescription => 'pj.',
+ description => 'p.',
+ qty => 'ioi.',
+ serialnumber => 'ioi.',
+ quotation => 'apoe.',
+ cv => 'cv.',
+ "ioi.id" => ' ',
+ "ioi.ioi" => ' ',
+ );
+
+ # if the join condition in these blocks are met, the column
+ # of the specified table will gently override (coalesce actually) the original value
+ # use it to conditionally coalesce values from subtables
+ my @column_override = (
+ # column name, prefix, joins_needed, nick name (in case column is named like another)
+ [ 'description', 'ioi.', 'invoice_oi' ],
+ [ 'deliverydate', 'ioi.', 'invoice_oi' ],
+ [ 'transdate', 'apoe.', 'apoe' ],
+ [ 'unit', 'ioi.', 'invoice_oi' ],
+ [ 'sellprice', 'ioi.', 'invoice_oi' ],
+ );
+
+ # careful with renames. these are HARD, and any filters done on the original column will break
+ my %renamed_columns = (
+ 'factor' => 'price_factor',
+ 'SUM(ioi.qty)' => 'soldtotal',
+ 'ioi.id' => 'ioi_id',
+ 'ioi.ioi' => 'ioi',
+ 'projectdescription' => 'projectdescription',
+ 'insertdate' => 'insertdate',
+ );
+
+ my %real_column = (
+ projectdescription => 'description',
+ insertdate => 'itime::DATE',
+ );
+
+ my $make_token_builder = sub {
+ my $joins_needed = shift;
+ sub {
+ my ($nick, $alias) = @_;
+ my ($col) = $real_column{$nick} || $nick;
+ my @coalesce_tokens =
+ map { ($_->[1] || 'p.') . $_->[0] }
+ grep { !$_->[2] || $joins_needed->{$_->[2]} }
+ grep { ($_->[3] || $_->[0]) eq $nick }
+ @column_override, [ $col, $table_prefix{$nick}, undef , $nick ];
+
+ my $coalesce = scalar @coalesce_tokens > 1;
+ return ($coalesce
+ ? sprintf 'COALESCE(%s)', join ', ', @coalesce_tokens
+ : shift @coalesce_tokens)
+ . ($alias && ($coalesce || $renamed_columns{$nick})
+ ? " AS " . ($renamed_columns{$nick} || $nick)
+ : '');
+ }
+ };
+
+ #===== switches and simple filters ========#
+
+ # special case transdate
+ if (grep { trim($form->{$_}) } qw(transdatefrom transdateto)) {
+ $form->{"l_transdate"} = 1;
+ push @select_tokens, 'transdate';
+ for (qw(transdatefrom transdateto)) {
+ my $value = trim($form->{$_});
+ next unless $value;
+ push @where_tokens, sprintf "transdate %s ?", /from$/ ? '>=' : '<=';
+ push @bind_vars, $value;
+ }
}
- ($form->{inventory_accno}) = split(/--/, $form->{IC});
- ($form->{expense_accno}) = split(/--/, $form->{IC_expense});
- ($form->{income_accno}) = split(/--/, $form->{IC_income});
-
- # connect to database, turn off AutoCommit
- my $dbh = $form->dbconnect_noauto($myconfig);
-
- # save the part
- # make up a unique handle and store in partnumber field
- # then retrieve the record based on the unique handle to get the id
- # replace the partnumber field with the actual variable
- # add records for makemodel
-
- # if there is a $form->{id} then replace the old entry
- # delete all makemodel entries and add the new ones
-
- # escape '
- map { $form->{$_} =~ s/\'/\'\'/g } qw(partnumber description notes unit);
-
- # undo amount formatting
- map { $form->{$_} = $form->parse_amount($myconfig, $form->{$_}) }
- qw(rop weight listprice sellprice gv lastcost stock);
-
- # set date to NULL if nothing entered
- $form->{priceupdate} =
- ($form->{priceupdate}) ? qq|'$form->{priceupdate}'| : "NULL";
+ # special case smart search
+ if ($form->{all}) {
+ $form->{"l_$_"} = 1 for qw(partnumber description unit sellprice lastcost linetotal);
+ $form->{l_service} = 1 if $form->{searchitems} eq 'service' || $form->{searchitems} eq '';
+ $form->{l_assembly} = 1 if $form->{searchitems} eq 'assembly' || $form->{searchitems} eq '';
+ $form->{l_part} = 1 if $form->{searchitems} eq 'part' || $form->{searchitems} eq '';
+ $form->{l_assortment} = 1 if $form->{searchitems} eq 'assortment' || $form->{searchitems} eq '';
+ push @where_tokens, "p.partnumber ILIKE ? OR p.description ILIKE ?";
+ push @bind_vars, (like($form->{all})) x 2;
+ }
- $form->{makemodel} = (($form->{make_1}) || ($form->{model_1})) ? 1 : 0;
+ # special case insertdate
+ if (grep { trim($form->{$_}) } qw(insertdatefrom insertdateto)) {
+ $form->{"l_insertdate"} = 1;
+ push @select_tokens, 'insertdate';
- $form->{alternate} = 0;
- $form->{assembly} = ($form->{item} eq 'assembly') ? 1 : 0;
- $form->{obsolete} *= 1;
- $form->{shop} *= 1;
- $form->{onhand} *= 1;
- $form->{ve} *= 1;
- $form->{ge} *= 1;
+ my $token_builder = $make_token_builder->();
+ my $token = $token_builder->('insertdate');
- my ($query, $sth);
-
- if ($form->{id}) {
-
- # get old price
- $query = qq|SELECT p.sellprice, p.weight
- FROM parts p
- WHERE p.id = $form->{id}|;
- $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
- my ($sellprice, $weight) = $sth->fetchrow_array;
- $sth->finish;
-
- # if item is part of an assembly adjust all assemblies
- $query = qq|SELECT a.id, a.qty
- FROM assembly a
- WHERE a.parts_id = $form->{id}|;
- $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
- while (my ($id, $qty) = $sth->fetchrow_array) {
- &update_assembly($dbh, $form, $id, $qty, $sellprice * 1, $weight * 1);
+ for (qw(insertdatefrom insertdateto)) {
+ my $value = trim($form->{$_});
+ next unless $value;
+ push @where_tokens, sprintf "$token %s ?", /from$/ ? '>=' : '<=';
+ push @bind_vars, $value;
}
- $sth->finish;
+ }
- if ($form->{item} ne 'service') {
+ if ($form->{"partsgroup_id"}) {
+ $form->{"l_partsgroup"} = '1'; # show the column
+ push @where_tokens, "pg.id = ?";
+ push @bind_vars, $form->{"partsgroup_id"};
+ }
- # delete makemodel records
- $query = qq|DELETE FROM makemodel
- WHERE parts_id = $form->{id}|;
- $dbh->do($query) || $form->dberror($query);
+ if ($form->{shop} ne '') {
+ $form->{l_shop} = '1'; # show the column
+ if ($form->{shop} eq '0' || $form->{shop} eq 'f') {
+ push @where_tokens, 'NOT p.shop';
+ $form->{shop} = 'f';
+ } else {
+ push @where_tokens, 'p.shop';
}
+ }
- if ($form->{item} eq 'assembly') {
- if ($form->{onhand} != 0) {
- &adjust_inventory($dbh, $form, $form->{id}, $form->{onhand} * -1);
- }
-
- # delete assembly records
- $query = qq|DELETE FROM assembly
- WHERE id = $form->{id}|;
- $dbh->do($query) || $form->dberror($query);
-
- $form->{onhand} += $form->{stock};
- }
+ foreach (@like_filters) {
+ next unless $form->{$_};
+ $form->{"l_$_"} = '1'; # show the column
+ push @where_tokens, "$table_prefix{$_}$_ ILIKE ?";
+ push @bind_vars, like($form->{$_});
+ }
- # delete tax records
- $query = qq|DELETE FROM partstax
- WHERE parts_id = $form->{id}|;
- $dbh->do($query) || $form->dberror($query);
+ foreach (@simple_l_switches) {
+ next unless $form->{"l_$_"};
+ push @select_tokens, $_;
+ }
- } else {
- my $uid = time;
- $uid .= $form->{login};
-
- $query = qq|SELECT p.id FROM parts p
- WHERE p.partnumber = '$form->{partnumber}'|;
- $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
- ($form->{id}) = $sth->fetchrow_array;
- $sth->finish;
-
- if ($form->{id} ne "") {
- $main::lxdebug->leave_sub();
- return 3;
- }
- $query = qq|INSERT INTO parts (partnumber)
- VALUES ('$uid')|;
- $dbh->do($query) || $form->dberror($query);
-
- $query = qq|SELECT p.id FROM parts p
- WHERE p.partnumber = '$uid'|;
- $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
-
- ($form->{id}) = $sth->fetchrow_array;
- $sth->finish;
-
- $form->{orphaned} = 1;
- $form->{onhand} = $form->{stock} if $form->{item} eq 'assembly';
- if ($form->{partnumber} eq "" && $form->{inventory_accno} eq "") {
- $form->{partnumber} = $form->update_defaults($myconfig, "servicenumber");
- }
- if ($form->{partnumber} eq "" && $form->{inventory_accno} ne "") {
- $form->{partnumber} = $form->update_defaults($myconfig, "articlenumber");
- }
+ # Oder Bedingungen fuer Ware Dienstleistung Erzeugnis:
+ if ($form->{l_part} || $form->{l_assembly} || $form->{l_service} || $form->{l_assortment}) {
+ my @or_tokens = ();
+ push @or_tokens, "p.part_type = 'service'" if $form->{l_service};
+ push @or_tokens, "p.part_type = 'assembly'" if $form->{l_assembly};
+ push @or_tokens, "p.part_type = 'part'" if $form->{l_part};
+ push @or_tokens, "p.part_type = 'assortment'" if $form->{l_assortment};
+ push @where_tokens, join ' OR ', map { "($_)" } @or_tokens;
+ }
+ else {
+ # gar keine Teile
+ push @where_tokens, q|'F' = 'T'|;
+ }
+ if ( $form->{classification_id} > 0 ) {
+ push @where_tokens, "p.classification_id = ?";
+ push @bind_vars, $form->{classification_id};
}
- my $partsgroup_id = 0;
- if ($form->{partsgroup}) {
- ($partsgroup, $partsgroup_id) = split /--/, $form->{partsgroup};
+ for ($form->{itemstatus}) {
+ push @where_tokens, 'p.id NOT IN
+ (SELECT DISTINCT parts_id FROM invoice UNION
+ SELECT DISTINCT parts_id FROM assembly UNION
+ SELECT DISTINCT parts_id FROM orderitems)' if /orphaned/;
+ push @where_tokens, 'p.onhand = 0' if /orphaned/;
+ push @where_tokens, 'NOT p.obsolete' if /active/;
+ push @where_tokens, ' p.obsolete', if /obsolete/;
+ push @where_tokens, 'p.onhand > 0', if /onhand/;
+ push @where_tokens, 'p.onhand < p.rop', if /short/;
}
- $query = qq|UPDATE parts SET
- partnumber = '$form->{partnumber}',
- description = '$form->{description}',
- makemodel = '$form->{makemodel}',
- alternate = '$form->{alternate}',
- assembly = '$form->{assembly}',
- listprice = $form->{listprice},
- sellprice = $form->{sellprice},
- lastcost = $form->{lastcost},
- weight = $form->{weight},
- priceupdate = $form->{priceupdate},
- unit = '$form->{unit}',
- notes = '$form->{notes}',
- rop = $form->{rop},
- bin = '$form->{bin}',
- inventory_accno_id = (SELECT c.id FROM chart c
- WHERE c.accno = '$form->{inventory_accno}'),
- income_accno_id = (SELECT c.id FROM chart c
- WHERE c.accno = '$form->{income_accno}'),
- expense_accno_id = (SELECT c.id FROM chart c
- WHERE c.accno = '$form->{expense_accno}'),
- obsolete = '$form->{obsolete}',
- image = '$form->{image}',
- drawing = '$form->{drawing}',
- shop = '$form->{shop}',
- ve = '$form->{ve}',
- gv = '$form->{gv}',
- microfiche = '$form->{microfiche}',
- partsgroup_id = $partsgroup_id
- WHERE id = $form->{id}|;
- $dbh->do($query) || $form->dberror($query);
-
- # insert makemodel records
- unless ($form->{item} eq 'service') {
- for my $i (1 .. $form->{makemodel_rows}) {
- if (($form->{"make_$i"}) || ($form->{"model_$i"})) {
- map { $form->{"${_}_$i"} =~ s/\'/\'\'/g } qw(make model);
-
- $query = qq|INSERT INTO makemodel (parts_id, make, model)
- VALUES ($form->{id},
- '$form->{"make_$i"}', '$form->{"model_$i"}')|;
- $dbh->do($query) || $form->dberror($query);
- }
+ my $q_assembly_lastcost =
+ qq|(SELECT SUM(a_lc.qty * p_lc.lastcost / COALESCE(pfac_lc.factor, 1))
+ FROM assembly a_lc
+ 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 assembly_lastcost|;
+ $table_prefix{$q_assembly_lastcost} = ' ';
+
+ # special case makemodel search
+ # all_parts is based upon the assumption that every parameter is named like the column it represents
+ # unfortunately make would have to match vendor.name which is already taken for vendor.name in bsooqr mode.
+ # fortunately makemodel doesn't need to be displayed later, so adding a special clause to where_token is sufficient.
+ if ($form->{make}) {
+ push @where_tokens, 'mv.name ILIKE ?';
+ push @bind_vars, like($form->{make});
+ }
+ if ($form->{model}) {
+ push @where_tokens, 'mm.model ILIKE ?';
+ push @bind_vars, like($form->{model});
+ }
+
+ # 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.
+ # ToDO: implement proper functional sorting
+ # Nette Idee von Sven, gibt aber Probleme wenn die Artikelnummern groesser als 32bit sind. Korrekt waere es, dass Sort-Natural-Modul zu nehmen
+ # Ich lass das mal hier drin, damit die Idee erhalten bleibt jb 28.5.2009 bug 1018
+ #$form->{sort} = join ', ', map { push @select_tokens, $_; ($table_prefix{$_} = "substring(partnumber,'[") . $_ } qw|^[:digit:]]+') [:digit:]]+')::INTEGER|
+ # if $form->{sort} eq 'partnumber';
+
+ #my $order_clause = " ORDER BY $form->{sort} $sort_order";
+
+ my $limit_clause;
+ $limit_clause = " LIMIT 100" if $form->{top100};
+ $limit_clause = " LIMIT " . $form->{limit} * 1 if $form->{limit} * 1;
+
+ #=== joins and complicated filters ========#
+
+ my $bsooqr = any { $form->{$_} } @oe_flags;
+ my @bsooqr_tokens = ();
+
+ push @select_tokens, @qsooqr_flags, 'quotation', 'cv', 'ioi.id', 'ioi.ioi' if $bsooqr;
+ push @select_tokens, @deliverydate_flags if $bsooqr && $form->{l_deliverydate};
+ push @select_tokens, $q_assembly_lastcost if $form->{l_assembly} && $form->{l_lastcost};
+ push @bsooqr_tokens, q|module = 'ir' AND NOT ioi.assemblyitem| if $form->{bought};
+ push @bsooqr_tokens, q|module = 'is' AND NOT ioi.assemblyitem| if $form->{sold};
+ push @bsooqr_tokens, q|module = 'oe' AND NOT quotation AND cv = 'customer'| if $form->{ordered};
+ push @bsooqr_tokens, q|module = 'oe' AND NOT quotation AND cv = 'vendor'| if $form->{onorder};
+ push @bsooqr_tokens, q|module = 'oe' AND quotation AND cv = 'customer'| if $form->{quoted};
+ push @bsooqr_tokens, q|module = 'oe' AND quotation AND cv = 'vendor'| if $form->{rfq};
+ push @where_tokens, join ' OR ', map { "($_)" } @bsooqr_tokens if $bsooqr;
+
+ $joins_needed{partsgroup} = 1;
+ $joins_needed{pfac} = 1;
+ $joins_needed{project} = 1 if grep { $form->{$_} || $form->{"l_$_"} } @project_filters;
+ $joins_needed{makemodel} = 1 if grep { $form->{$_} || $form->{"l_$_"} } @makemodel_filters;
+ $joins_needed{mv} = 1 if $joins_needed{makemodel};
+ $joins_needed{cv} = 1 if $bsooqr;
+ $joins_needed{apoe} = 1 if $joins_needed{project} || $joins_needed{cv} || grep { $form->{$_} || $form->{"l_$_"} } @apoe_filters;
+ $joins_needed{invoice_oi} = 1 if $joins_needed{project} || $joins_needed{apoe} || grep { $form->{$_} || $form->{"l_$_"} } @invoice_oi_filters;
+ $joins_needed{bin} = 1 if $form->{l_bin};
+ $joins_needed{warehouse} = 1 if $form->{l_warehouse};
+
+ # special case for description search.
+ # up in the simple filter section the description filter got interpreted as something like: WHERE description ILIKE '%$form->{description}%'
+ # now we'd like to search also for the masked description entered in orderitems and invoice, so...
+ # 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++] =~ /\?/) {
+ next unless $where_tokens[$wi] =~ /\bdescription ILIKE/;
+ splice @where_tokens, $wi, 1, 'p.description ILIKE ? OR ioi.description ILIKE ?';
+ splice @bind_vars, $bi, 0, $bind_vars[$bi];
+ last;
}
}
- # insert taxes
- foreach $item (split / /, $form->{taxaccounts}) {
- if ($form->{"IC_tax_$item"}) {
- $query = qq|INSERT INTO partstax (parts_id, chart_id)
- VALUES ($form->{id},
- (SELECT c.id
- FROM chart c
- WHERE c.accno = '$item'))|;
- $dbh->do($query) || $form->dberror($query);
+ # now the master trick: soldtotal.
+ if ($form->{l_soldtotal}) {
+ push @where_tokens, 'NOT ioi.qty = 0';
+ push @group_tokens, @select_tokens;
+ map { s/.*\sAS\s+//si } @group_tokens;
+ push @select_tokens, 'SUM(ioi.qty)';
+ }
+
+ #============= build query ================#
+
+ my $token_builder = $make_token_builder->(\%joins_needed);
+
+ my @sort_cols = (@simple_filters, qw(id onhand invnumber ordnumber quonumber name serialnumber soldtotal deliverydate insertdate shop));
+ $form->{sort} = 'id' unless grep { $form->{"l_$_"} } grep { $form->{sort} eq $_ } @sort_cols; # sort by id if unknown or invisible column
+ my $sort_order = ($form->{revers} ? ' DESC' : ' ASC');
+ my $order_clause = " ORDER BY " . $token_builder->($form->{sort}) . ($form->{revers} ? ' DESC' : ' ASC');
+
+ my $select_clause = join ', ', map { $token_builder->($_, 1) } @select_tokens;
+ my $join_clause = join ' ', @joins{ grep $joins_needed{$_}, @join_order };
+ my $where_clause = join ' AND ', map { "($_)" } @where_tokens;
+ my $group_clause = @group_tokens ? ' GROUP BY ' . join ', ', map { $token_builder->($_) } @group_tokens : '';
+
+ # key of %no_simple_l_switch is the logical l_switch.
+ # the assigned value is the 'not so simple
+ # select token'
+ my $no_simple_select_clause;
+ foreach my $no_simple_l_switch (keys %no_simple_l_switches) {
+ next unless $form->{"l_${no_simple_l_switch}"};
+ $no_simple_select_clause .= ', '. $no_simple_l_switches{$no_simple_l_switch};
+ }
+ $select_clause .= $no_simple_select_clause;
+
+ my %oe_flag_to_cvar = (
+ bought => 'invoice',
+ sold => 'invoice',
+ onorder => 'orderitems',
+ ordered => 'orderitems',
+ rfq => 'orderitems',
+ quoted => 'orderitems',
+ );
+
+ my ($cvar_where, @cvar_values) = CVar->build_filter_query(
+ module => 'IC',
+ trans_id_field => $bsooqr ? 'ioi.id': 'p.id',
+ filter => $form,
+ sub_module => $bsooqr ? [ uniq grep { $oe_flag_to_cvar{$form->{$_}} } @oe_flags ] : undef,
+ );
+
+ if ($cvar_where) {
+ $where_clause .= qq| AND ($cvar_where)|;
+ push @bind_vars, @cvar_values;
+ }
+
+ # simple search for assemblies by items used in assemblies
+ if ($form->{bom} eq '2' && $form->{l_assembly}) {
+ # assembly_qty is the column name
+ $form->{l_assembly_qty} = 1;
+ # nuke where clause and bind vars
+ $where_clause = ' 1=1 AND p.id in (SELECT id from assembly where parts_id IN ' .
+ ' (select id from parts where 1=1';
+ @bind_vars = ();
+ # use only like filter for items used in assemblies
+ foreach (@like_filters) {
+ next unless $form->{$_};
+ $form->{"l_$_"} = '1'; # show the column
+ $where_clause .= " AND $_ ILIKE ? ";
+ push @bind_vars, like($form->{$_});
+ }
+ $where_clause .='))';
+ }
+
+ my $query = <<" SQL";
+ SELECT DISTINCT $select_clause
+ FROM parts p
+ $join_clause
+ WHERE $where_clause
+ $group_clause
+ $order_clause
+ $limit_clause
+ SQL
+ $form->{parts} = selectall_hashref_query($form, $dbh, $query, @bind_vars);
+
+ map { $_->{onhand} *= 1 } @{ $form->{parts} };
+
+ # fix qty sign in ap. those are saved negative
+ if ($bsooqr && $form->{bought}) {
+ for my $row (@{ $form->{parts} }) {
+ $row->{qty} *= -1 if $row->{module} eq 'ir';
}
}
- # add assembly records
- if ($form->{item} eq 'assembly') {
-
- for my $i (1 .. $form->{assembly_rows}) {
- $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
-
- if ($form->{"qty_$i"} != 0) {
- $form->{"bom_$i"} *= 1;
- $query = qq|INSERT INTO assembly (id, parts_id, qty, bom)
- VALUES ($form->{id}, $form->{"id_$i"},
- $form->{"qty_$i"}, '$form->{"bom_$i"}')|;
- $dbh->do($query) || $form->dberror($query);
+ # post processing for assembly parts lists (bom)
+ # for each part get the assembly parts and add them into the partlist.
+ my @assemblies;
+ if ($form->{l_assembly} && $form->{bom}) {
+ $query =
+ qq|SELECT p.id, p.partnumber, p.description, a.qty AS assembly_qty,
+ p.unit, p.notes, p.itime::DATE as insertdate,
+ p.sellprice, p.listprice, p.lastcost,
+ p.rop, p.weight,
+ p.image, p.drawing, p.microfiche,
+ pfac.factor
+ FROM parts p
+ INNER JOIN assembly a ON (p.id = a.parts_id)
+ $joins{pfac}
+ WHERE a.id = ?|;
+ my $sth = prepare_query($form, $dbh, $query);
+
+ foreach my $item (@{ $form->{parts} }) {
+ push(@assemblies, $item);
+ do_statement($form, $sth, $query, conv_i($item->{id}));
+
+ while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
+ $ref->{assemblyitem} = 1;
+ map { $ref->{$_} /= $ref->{factor} || 1 } qw(sellprice listprice lastcost);
+ push(@assemblies, $ref);
}
+ $sth->finish;
}
- # adjust onhand for the parts
- if ($form->{onhand} != 0) {
- &adjust_inventory($dbh, $form, $form->{id}, $form->{onhand});
- }
+ # copy assemblies to $form->{parts}
+ $form->{parts} = \@assemblies;
+ }
- @a = localtime;
- $a[5] += 1900;
- $a[4]++;
- my $shippingdate = "$a[5]-$a[4]-$a[3]";
+ if ($form->{l_pricegroups} ) {
+ my $query = <<SQL;
+ SELECT parts_id, price, pricegroup_id
+ FROM prices
+ WHERE parts_id = ?
+SQL
- $form->get_employee($dbh);
+ my $sth = prepare_query($form, $dbh, $query);
- # add inventory record
- $query = qq|INSERT INTO inventory (warehouse_id, parts_id, qty,
- shippingdate, employee_id) VALUES (
- 0, $form->{id}, $form->{stock}, '$shippingdate',
- $form->{employee_id})|;
- $dbh->do($query) || $form->dberror($query);
+ foreach my $part (@{ $form->{parts} }) {
+ do_statement($form, $sth, $query, conv_i($part->{id}));
- }
-
- #set expense_accno=inventory_accno if they are different => bilanz
- $vendor_accno =
- ($form->{expense_accno} != $form->{inventory_accno})
- ? $form->{inventory_accno}
- : $form->{expense_accno};
-
- # get tax rates and description
- $accno_id =
- ($form->{vc} eq "customer") ? $form->{income_accno} : $vendor_accno;
- $query = qq|SELECT c.accno, c.description, t.rate, t.taxnumber
- FROM chart c, tax t
- WHERE c.id=t.chart_id AND t.taxkey in (SELECT taxkey_id from chart where accno = '$accno_id')
- ORDER BY c.accno|;
- $stw = $dbh->prepare($query);
-
- $stw->execute || $form->dberror($query);
-
- $form->{taxaccount} = "";
- while ($ptr = $stw->fetchrow_hashref(NAME_lc)) {
-
- # if ($customertax{$ref->{accno}}) {
- $form->{taxaccount} .= "$ptr->{accno} ";
- if (!($form->{taxaccount2} =~ /$ptr->{accno}/)) {
- $form->{"$ptr->{accno}_rate"} = $ptr->{rate};
- $form->{"$ptr->{accno}_description"} = $ptr->{description};
- $form->{"$ptr->{accno}_taxnumber"} = $ptr->{taxnumber};
- $form->{taxaccount2} .= " $ptr->{accno} ";
+ while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
+ $part->{"pricegroup_$ref->{pricegroup_id}"} = $ref->{price};
+ }
+ $sth->finish;
}
-
}
- # commit
- my $rc = $dbh->commit;
- $dbh->disconnect;
-
$main::lxdebug->leave_sub();
- return $rc;
+ return $form->{parts};
}
-sub update_assembly {
+# get partnumber, description, unit, sellprice and soldtotal with choice through $sortorder for Top100
+sub get_parts {
$main::lxdebug->enter_sub();
- my ($dbh, $form, $id, $qty, $sellprice, $weight) = @_;
-
- my $query = qq|SELECT a.id, a.qty
- FROM assembly a
- WHERE a.parts_id = $id|;
- my $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
-
- while (my ($pid, $aqty) = $sth->fetchrow_array) {
- &update_assembly($dbh, $form, $pid, $aqty * $qty, $sellprice, $weight);
- }
- $sth->finish;
+ my ($self, $myconfig, $form, $sortorder) = @_;
+ my $dbh = $form->get_standard_dbh;
+ my $order = qq| p.partnumber|;
+ my $where = qq|1 = 1|;
+ my @values;
- $query = qq|UPDATE parts
- SET sellprice = sellprice +
- $qty * ($form->{sellprice} - $sellprice),
- weight = weight +
- $qty * ($form->{weight} - $weight)
- WHERE id = $id|;
- $dbh->do($query) || $form->dberror($query);
+ if ($sortorder eq "all") {
+ $where .= qq| AND (partnumber ILIKE ?) AND (description ILIKE ?)|;
+ push(@values, like($form->{partnumber}), like($form->{description}));
- $main::lxdebug->leave_sub();
-}
+ } elsif ($sortorder eq "partnumber") {
+ $where .= qq| AND (partnumber ILIKE ?)|;
+ push(@values, like($form->{partnumber}));
-sub retrieve_assemblies {
- $main::lxdebug->enter_sub();
+ } elsif ($sortorder eq "description") {
+ $where .= qq| AND (description ILIKE ?)|;
+ push(@values, like($form->{description}));
+ $order = "description";
- my ($self, $myconfig, $form) = @_;
+ }
- # connect to database
- my $dbh = $form->dbconnect($myconfig);
+ my $query =
+ qq|SELECT id, partnumber, description, unit, sellprice,
+ classification_id
+ FROM parts
+ WHERE $where ORDER BY $order|;
- my $where = '1 = 1';
+ my $sth = prepare_execute_query($form, $dbh, $query, @values);
- if ($form->{partnumber}) {
- my $partnumber = $form->like(lc $form->{partnumber});
- $where .= " AND lower(p.partnumber) LIKE '$partnumber'";
- }
+ my $j = 0;
+ while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
+ if (($ref->{partnumber} eq "*") && ($ref->{description} eq "")) {
+ next;
+ }
- if ($form->{description}) {
- my $description = $form->like(lc $form->{description});
- $where .= " AND lower(p.description) LIKE '$description'";
- }
- $where .= " AND NOT p.obsolete = '1'";
-
- # retrieve assembly items
- my $query = qq|SELECT p.id, p.partnumber, p.description,
- p.bin, p.onhand, p.rop,
- (SELECT sum(p2.inventory_accno_id)
- FROM parts p2, assembly a
- WHERE p2.id = a.parts_id
- AND a.id = p.id) AS inventory
- FROM parts p
- WHERE $where
- AND assembly = '1'|;
-
- my $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
-
- while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
- push @{ $form->{assembly_items} }, $ref if $ref->{inventory};
- }
+ $j++;
+ $form->{"type_and_classific_$j"} = type_abbreviation($ref->{part_type}).
+ classification_abbreviation($ref->{classification_id});
+ $form->{"id_$j"} = $ref->{id};
+ $form->{"partnumber_$j"} = $ref->{partnumber};
+ $form->{"description_$j"} = $ref->{description};
+ $form->{"unit_$j"} = $ref->{unit};
+ $form->{"sellprice_$j"} = $ref->{sellprice};
+ $form->{"soldtotal_$j"} = get_soldtotal($dbh, $ref->{id});
+ } #while
+ $form->{rows} = $j;
$sth->finish;
- $dbh->disconnect;
-
$main::lxdebug->leave_sub();
-}
-
-sub restock_assemblies {
- $main::lxdebug->enter_sub();
-
- my ($self, $myconfig, $form) = @_;
-
- # connect to database
- my $dbh = $form->dbconnect_noauto($myconfig);
-
- for my $i (1 .. $form->{rowcount}) {
- $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
+ return $self;
+} #end get_parts()
- if ($form->{"qty_$i"} != 0) {
- &adjust_inventory($dbh, $form, $form->{"id_$i"}, $form->{"qty_$i"});
- }
+# gets sum of sold part with part_id
+sub get_soldtotal {
+ $main::lxdebug->enter_sub();
- }
+ my ($dbh, $id) = @_;
- my $rc = $dbh->commit;
- $dbh->disconnect;
+ my $query = qq|SELECT sum(qty) FROM invoice WHERE parts_id = ?|;
+ my ($sum) = selectrow_query($main::form, $dbh, $query, conv_i($id));
+ $sum ||= 0;
$main::lxdebug->leave_sub();
- return $rc;
-}
-
-sub adjust_inventory {
- $main::lxdebug->enter_sub();
+ return $sum;
+} #end get_soldtotal
- my ($dbh, $form, $id, $qty) = @_;
+sub follow_account_chain {
+ $main::lxdebug->enter_sub(2);
- my $query = qq|SELECT p.id, p.inventory_accno_id, p.assembly, a.qty
- FROM parts p, assembly a
- WHERE a.parts_id = p.id
- AND a.id = $id|;
- my $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
+ my ($self, $form, $dbh, $transdate, $accno_id, $accno) = @_;
- while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
+ my @visited_accno_ids = ($accno_id);
- my $allocate = $qty * $ref->{qty};
+ my ($query, $sth);
- # is it a service item, then loop
- $ref->{inventory_accno_id} *= 1;
- next if (($ref->{inventory_accno_id} == 0) && !$ref->{assembly});
+ $form->{ACCOUNT_CHAIN_BY_ID} ||= {
+ map { $_->{id} => $_ }
+ selectall_hashref_query($form, $dbh, <<SQL, $transdate) };
+ SELECT c.id, c.new_chart_id, date(?) >= c.valid_from AS is_valid, cnew.accno
+ FROM chart c
+ LEFT JOIN chart cnew ON c.new_chart_id = cnew.id
+ WHERE NOT c.new_chart_id IS NULL AND (c.new_chart_id > 0)
+SQL
- # adjust parts onhand
- $form->update_balance($dbh, "parts", "onhand",
- qq|id = $ref->{id}|,
- $allocate * -1);
+ while (1) {
+ my $ref = $form->{ACCOUNT_CHAIN_BY_ID}->{$accno_id};
+ last unless ($ref && $ref->{"is_valid"} &&
+ !grep({ $_ == $ref->{"new_chart_id"} } @visited_accno_ids));
+ $accno_id = $ref->{"new_chart_id"};
+ $accno = $ref->{"accno"};
+ push(@visited_accno_ids, $accno_id);
}
- $sth->finish;
-
- # update assembly
- my $rc = $form->update_balance($dbh, "parts", "onhand", qq|id = $id|, $qty);
+ $main::lxdebug->leave_sub(2);
- $main::lxdebug->leave_sub();
-
- return $rc;
+ return ($accno_id, $accno);
}
-sub delete {
- $main::lxdebug->enter_sub();
-
- my ($self, $myconfig, $form) = @_;
+sub retrieve_accounts {
+ $main::lxdebug->enter_sub;
- # connect to database, turn off AutoCommit
- my $dbh = $form->dbconnect_noauto($myconfig);
+ my $self = shift;
+ my $myconfig = shift;
+ my $form = shift;
+ my $dbh = $form->get_standard_dbh;
+ my %args = @_; # index => part_id
- my $query = qq|DELETE FROM parts
- WHERE id = $form->{id}|;
- $dbh->do($query) || $form->dberror($query);
+ $form->{taxzone_id} *= 1;
- $query = qq|DELETE FROM partstax
- WHERE parts_id = $form->{id}|;
- $dbh->do($query) || $form->dberror($query);
+ return unless grep $_, values %args; # shortfuse if no part_id supplied
- # check if it is a part, assembly or service
- if ($form->{item} ne 'service') {
- $query = qq|DELETE FROM makemodel
- WHERE parts_id = $form->{id}|;
- $dbh->do($query) || $form->dberror($query);
+ # transdate madness.
+ my $transdate = "";
+ if (($form->{type} eq "invoice") or ($form->{type} eq "credit_note") or ($form->{script} eq 'ir.pl')) {
+ # use deliverydate for sales and purchase invoice, if it exists
+ # also use deliverydate for credit notes
+ $transdate = $form->{tax_point} || $form->{deliverydate} || $form->{invdate};
+ } else {
+ my $deliverydate;
+ $deliverydate = $form->{reqdate} if any { $_ eq $form->{type} } qw(sales_order request_quotation purchase_order);
+ $transdate = $form->{tax_point} || $deliverydate || $form->{transdate};
}
- if ($form->{item} eq 'assembly') {
+ if ($transdate eq "") {
+ $transdate = DateTime->today_local->to_lxoffice;
+ } else {
+ $transdate = $dbh->quote($transdate);
+ }
+ #/transdate
+ my $inc_exp = $form->{"vc"} eq "customer" ? "income_accno_id" : "expense_accno_id";
+
+ my @part_ids = grep { $_ } values %args;
+ my $in = join ',', ('?') x @part_ids;
+
+ my %accno_by_part = map { $_->{id} => $_ }
+ selectall_hashref_query($form, $dbh, <<SQL, @part_ids);
+ SELECT
+ p.id, p.part_type,
+ bg.inventory_accno_id,
+ tc.income_accno_id AS income_accno_id,
+ tc.expense_accno_id AS expense_accno_id,
+ c1.accno AS inventory_accno,
+ c2.accno AS income_accno,
+ c3.accno AS expense_accno
+ FROM parts p
+ LEFT JOIN buchungsgruppen bg ON p.buchungsgruppen_id = bg.id
+ LEFT JOIN taxzone_charts tc on bg.id = tc.buchungsgruppen_id
+ LEFT JOIN chart c1 ON bg.inventory_accno_id = c1.id
+ LEFT JOIN chart c2 ON tc.income_accno_id = c2.id
+ LEFT JOIN chart c3 ON tc.expense_accno_id = c3.id
+ WHERE
+ tc.taxzone_id = '$form->{taxzone_id}'
+ and
+ p.id IN ($in)
+SQL
+
+ my $query_tax = <<SQL;
+ SELECT c.accno, t.taxdescription AS description, t.id as tax_id, t.rate,
+ c.accno as taxnumber
+ FROM tax t
+ LEFT JOIN chart c ON c.id = t.chart_id
+ WHERE t.id IN
+ (SELECT tk.tax_id
+ FROM taxkeys tk
+ WHERE tk.chart_id = ? AND startdate <= ?
+ ORDER BY startdate DESC LIMIT 1)
+SQL
+ my $sth_tax = prepare_query($::form, $dbh, $query_tax);
+
+ while (my ($index => $part_id) = each %args) {
+ my $ref = $accno_by_part{$part_id} or next;
+
+ $ref->{"inventory_accno_id"} = undef unless $ref->{"part_type"} eq 'part';
+
+ my %accounts;
+ for my $type (qw(inventory income expense)) {
+ next unless $ref->{"${type}_accno_id"};
+ ($accounts{"${type}_accno_id"}, $accounts{"${type}_accno"}) =
+ $self->follow_account_chain($form, $dbh, $transdate, $ref->{"${type}_accno_id"}, $ref->{"${type}_accno"});
+ }
- # delete inventory
- $query = qq|DELETE FROM inventory
- WHERE parts_id = $form->{id}|;
- $dbh->do($query) || $form->dberror($query);
+ $form->{"${_}_accno_$index"} = $accounts{"${_}_accno"} for qw(inventory income expense);
- $query = qq|DELETE FROM assembly
- WHERE id = $form->{id}|;
- $dbh->do($query) || $form->dberror($query);
- }
+ $sth_tax->execute($accounts{$inc_exp}, quote_db_date($transdate)) || $::form->dberror($query_tax);
+ $ref = $sth_tax->fetchrow_hashref or next;
- if ($form->{item} eq 'alternate') {
- $query = qq|DELETE FROM alternate
- WHERE id = $form->{id}|;
- $dbh->do($query) || $form->dberror($query);
- }
+ $form->{"taxaccounts_$index"} = $ref->{"accno"};
+ $form->{"taxaccounts"} .= "$ref->{accno} "if $form->{"taxaccounts"} !~ /$ref->{accno}/;
- # commit
- my $rc = $dbh->commit;
- $dbh->disconnect;
+ $form->{"$ref->{accno}_${_}"} = $ref->{$_} for qw(rate description taxnumber tax_id);
+ }
- $main::lxdebug->leave_sub();
+ $sth_tax->finish;
- return $rc;
+ $::lxdebug->leave_sub;
}
-sub assembly_item {
+sub get_basic_part_info {
$main::lxdebug->enter_sub();
- my ($self, $myconfig, $form) = @_;
+ my $self = shift;
+ my %params = @_;
- my $i = $form->{assembly_rows};
- my $var;
- my $where = "1 = 1";
+ Common::check_params(\%params, qw(id));
- if ($form->{"partnumber_$i"}) {
- $var = $form->like(lc $form->{"partnumber_$i"});
- $where .= " AND lower(p.partnumber) LIKE '$var'";
- }
- if ($form->{"description_$i"}) {
- $var = $form->like(lc $form->{"description_$i"});
- $where .= " AND lower(p.description) LIKE '$var'";
- }
- if ($form->{"partsgroup_$i"}) {
- $var = $form->like(lc $form->{"partsgroup_$i"});
- $where .= " AND lower(pg.partsgroup) LIKE '$var'";
- }
+ my @ids = 'ARRAY' eq ref $params{id} ? @{ $params{id} } : ($params{id});
- if ($form->{id}) {
- $where .= " AND NOT p.id = $form->{id}";
+ if (!scalar @ids) {
+ $main::lxdebug->leave_sub();
+ return ();
}
- if ($partnumber) {
- $where .= " ORDER BY p.partnumber";
- } else {
- $where .= " ORDER BY p.description";
- }
+ my $myconfig = \%main::myconfig;
+ my $form = $main::form;
+
+ my $dbh = $form->get_standard_dbh($myconfig);
- # connect to database
- my $dbh = $form->dbconnect($myconfig);
+ my $query = qq|SELECT * FROM parts WHERE id IN (| . join(', ', ('?') x scalar(@ids)) . qq|)|;
- my $query = qq|SELECT p.id, p.partnumber, p.description, p.sellprice,
- p.weight, p.onhand, p.unit,
- pg.partsgroup
- FROM parts p
- LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
- WHERE $where|;
- my $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
+ my $info = selectall_hashref_query($form, $dbh, $query, map { conv_i($_) } @ids);
- while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
- push @{ $form->{item_list} }, $ref;
+ if ('' eq ref $params{id}) {
+ $info = $info->[0] || { };
+
+ $main::lxdebug->leave_sub();
+ return $info;
}
- $sth->finish;
- $dbh->disconnect;
+ my %info_map = map { $_->{id} => $_ } @{ $info };
$main::lxdebug->leave_sub();
+
+ return %info_map;
}
-sub all_parts {
+sub prepare_parts_for_printing {
$main::lxdebug->enter_sub();
- my ($self, $myconfig, $form) = @_;
+ my $self = shift;
+ my %params = @_;
- my $where = '1 = 1';
- my $var;
+ my $myconfig = $params{myconfig} || \%main::myconfig;
+ my $form = $params{form} || $main::form;
- my $group;
- my $limit;
+ my $dbh = $params{dbh} || $form->get_standard_dbh($myconfig);
- foreach my $item (qw(partnumber drawing microfiche make model)) {
- if ($form->{$item}) {
- $var = $form->like(lc $form->{$item});
+ my $prefix = $params{prefix} || 'id_';
+ my $rowcount = defined $params{rowcount} ? $params{rowcount} : $form->{rowcount};
- # make will build later Bugfix 145
- if ($item ne 'make') {
- $where .= " AND lower(p.$item) LIKE '$var'";
- }
- }
- }
+ my @part_ids = keys %{ { map { $_ => 1 } grep { $_ } map { $form->{"${prefix}${_}"} } (1 .. $rowcount) } };
- # special case for description
- if ($form->{description}) {
- unless ( $form->{bought}
- || $form->{sold}
- || $form->{onorder}
- || $form->{ordered}
- || $form->{rfq}
- || $form->{quoted}) {
- $var = $form->like(lc $form->{description});
- $where .= " AND lower(p.description) LIKE '$var'";
- }
+ if (!@part_ids) {
+ $main::lxdebug->leave_sub();
+ return;
}
- # special case for serialnumber
- if ($form->{l_serialnumber}) {
- if ($form->{serialnumber}) {
- $var = $form->like(lc $form->{serialnumber});
- $where .= " AND lower(serialnumber) LIKE '$var'";
- }
- }
+ my $placeholders = join ', ', ('?') x scalar(@part_ids);
+ my $query = qq|SELECT mm.parts_id, mm.model, mm.lastcost, v.name AS make
+ FROM makemodel mm
+ LEFT JOIN vendor v ON (mm.make = v.id)
+ WHERE mm.parts_id IN ($placeholders)|;
- if ($form->{searchitems} eq 'part') {
- $where .= " AND p.inventory_accno_id > 0";
- }
- if ($form->{searchitems} eq 'assembly') {
- $form->{bought} = "";
- $where .= " AND p.assembly = '1'";
- }
- if ($form->{searchitems} eq 'service') {
- $where .= " AND p.inventory_accno_id IS NULL AND NOT p.assembly = '1'";
+ my %makemodel = ();
- # irrelevant for services
- $form->{make} = $form->{model} = "";
- }
+ my $sth = prepare_execute_query($form, $dbh, $query, @part_ids);
- # items which were never bought, sold or on an order
- if ($form->{itemstatus} eq 'orphaned') {
- $form->{onhand} = $form->{short} = 0;
- $form->{bought} = $form->{sold} = 0;
- $form->{onorder} = $form->{ordered} = 0;
- $form->{rfq} = $form->{quoted} = 0;
-
- $form->{transdatefrom} = $form->{transdateto} = "";
-
- $where .= " AND p.onhand = 0
- AND p.id NOT IN (SELECT p.id FROM parts p, invoice i
- WHERE p.id = i.parts_id)
- AND p.id NOT IN (SELECT p.id FROM parts p, assembly a
- WHERE p.id = a.parts_id)
- AND p.id NOT IN (SELECT p.id FROM parts p, orderitems o
- WHERE p.id = o.parts_id)";
+ while (my $ref = $sth->fetchrow_hashref()) {
+ $makemodel{$ref->{parts_id}} ||= [];
+ push @{ $makemodel{$ref->{parts_id}} }, $ref;
}
- if ($form->{itemstatus} eq 'active') {
- $where .= " AND p.obsolete = '0'";
- }
- if ($form->{itemstatus} eq 'obsolete') {
- $where .= " AND p.obsolete = '1'";
- $form->{onhand} = $form->{short} = 0;
- }
- if ($form->{itemstatus} eq 'onhand') {
- $where .= " AND p.onhand > 0";
- }
- if ($form->{itemstatus} eq 'short') {
- $where .= " AND p.onhand < p.rop";
- }
- if ($form->{make}) {
- $var = $form->like(lc $form->{make});
- $where .= " AND p.id IN (SELECT DISTINCT ON (m.parts_id) m.parts_id
- FROM makemodel m WHERE lower(m.make) LIKE '$var')";
- }
- if ($form->{model}) {
- $var = $form->like(lc $form->{model});
- $where .= " AND p.id IN (SELECT DISTINCT ON (m.parts_id) m.parts_id
- FROM makemodel m WHERE lower(m.model) LIKE '$var')";
- }
- if ($form->{partsgroup}) {
- $var = $form->like(lc $form->{partsgroup});
- $where .= " AND lower(pg.partsgroup) LIKE '$var'";
- }
- if ($form->{l_soldtotal}) {
- $where .= " AND p.id=i.parts_id AND i.qty >= 0";
- $group =
- " GROUP BY p.id,p.partnumber,p.description,p.onhand,p.unit,p.bin, p.sellprice,p.listprice,p.lastcost,p.priceupdate,pg.partsgroup";
- }
- if ($form->{top100}) {
- $limit = " LIMIT 100";
- }
+ $sth->finish();
- # tables revers?
- if ($form->{revers} == 1) {
- $form->{desc} = " DESC";
- } else {
- $form->{desc} = "";
- }
-
- # connect to database
- my $dbh = $form->dbconnect($myconfig);
+ $query = qq|SELECT
+ cp.parts_id,
+ cp.customer_partnumber AS customer_model,
+ c.name AS customer_make
+ FROM part_customer_prices cp
+ LEFT JOIN customer c ON (cp.customer_id = c.id)
+ WHERE cp.parts_id IN ($placeholders)|;
- my $sortorder = $form->{sort};
- $sortorder .= $form->{desc};
- $sortorder = $form->{sort} unless $sortorder;
+ my %customermodel = ();
- my $query = "";
+ $sth = prepare_execute_query($form, $dbh, $query, @part_ids);
- if ($form->{l_soldtotal}) {
- $form->{soldtotal} = 'soldtotal';
- $query =
- qq|SELECT p.id,p.partnumber,p.description,p.onhand,p.unit,p.bin,p.sellprice,p.listprice,
- p.lastcost,p.priceupdate,pg.partsgroup,sum(i.qty) as soldtotal FROM parts
- p LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id), invoice i
- WHERE $where
- $group
- ORDER BY $sortorder
- $limit|;
- } else {
- $query = qq|SELECT p.id, p.partnumber, p.description, p.onhand, p.unit,
- p.bin, p.sellprice, p.listprice, p.lastcost, p.rop, p.weight,
- p.priceupdate, p.image, p.drawing, p.microfiche,
- pg.partsgroup
- FROM parts p
- LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
- WHERE $where
- $group
- ORDER BY $sortorder|;
+ while (my $ref = $sth->fetchrow_hashref()) {
+ $customermodel{$ref->{parts_id}} ||= [];
+ push @{ $customermodel{$ref->{parts_id}} }, $ref;
}
- # rebuild query for bought and sold items
- if ( $form->{bought}
- || $form->{sold}
- || $form->{onorder}
- || $form->{ordered}
- || $form->{rfq}
- || $form->{quoted}) {
+ $sth->finish();
- my @a = qw(partnumber description bin priceupdate name);
+ my @columns = qw(ean image microfiche drawing);
- push @a, qw(invnumber serialnumber) if ($form->{bought} || $form->{sold});
- push @a, "ordnumber" if ($form->{onorder} || $form->{ordered});
- push @a, "quonumber" if ($form->{rfq} || $form->{quoted});
+ $query = qq|SELECT id, | . join(', ', @columns) . qq|
+ FROM parts
+ WHERE id IN ($placeholders)|;
- my $union = "";
- $query = "";
+ my %data = selectall_as_map($form, $dbh, $query, 'id', \@columns, @part_ids);
- if ($form->{bought} || $form->{sold}) {
+ my %template_arrays;
+ map { $template_arrays{$_} = [] } (qw(make model customer_make customer_model), @columns);
- my $invwhere = "$where";
- $invwhere .= " AND i.assemblyitem = '0'";
- $invwhere .= " AND a.transdate >= '$form->{transdatefrom}'"
- if $form->{transdatefrom};
- $invwhere .= " AND a.transdate <= '$form->{transdateto}'"
- if $form->{transdateto};
+ foreach my $i (1 .. $rowcount) {
+ my $id = $form->{"${prefix}${i}"};
- if ($form->{description}) {
- $var = $form->like(lc $form->{description});
- $invwhere .= " AND lower(i.description) LIKE '$var'";
- }
-
- my $flds = qq|p.id, p.partnumber, i.description, i.serialnumber,
- i.qty AS onhand, i.unit, p.bin, i.sellprice,
- p.listprice, p.lastcost, p.rop, p.weight,
- p.priceupdate, p.image, p.drawing, p.microfiche,
- pg.partsgroup,
- a.invnumber, a.ordnumber, a.quonumber, i.trans_id,
- ct.name|;
-
- if ($form->{bought}) {
- $query = qq|
- SELECT $flds, 'ir' AS module, '' AS type,
- 1 AS exchangerate
- FROM invoice i
- JOIN parts p ON (p.id = i.parts_id)
- JOIN ap a ON (a.id = i.trans_id)
- JOIN vendor ct ON (a.vendor_id = ct.id)
- LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
- WHERE $invwhere|;
- $union = "
- UNION";
- }
+ next if (!$id);
- if ($form->{sold}) {
- $query .= qq|$union
- SELECT $flds, 'is' AS module, '' AS type,
- 1 As exchangerate
- FROM invoice i
- JOIN parts p ON (p.id = i.parts_id)
- JOIN ar a ON (a.id = i.trans_id)
- JOIN customer ct ON (a.customer_id = ct.id)
- LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
- WHERE $invwhere|;
- $union = "
- UNION";
- }
+ foreach (@columns) {
+ push @{ $template_arrays{$_} }, $data{$id}->{$_};
}
- if ($form->{onorder} || $form->{ordered}) {
- my $ordwhere = "$where
- AND o.quotation = '0'";
- $ordwhere .= " AND o.transdate >= '$form->{transdatefrom}'"
- if $form->{transdatefrom};
- $ordwhere .= " AND o.transdate <= '$form->{transdateto}'"
- if $form->{transdateto};
-
- if ($form->{description}) {
- $var = $form->like(lc $form->{description});
- $ordwhere .= " AND lower(oi.description) LIKE '$var'";
- }
+ push @{ $template_arrays{make} }, [];
+ push @{ $template_arrays{model} }, [];
- $flds = qq|p.id, p.partnumber, oi.description, '' AS serialnumber,
- oi.qty AS onhand, oi.unit, p.bin, oi.sellprice,
- p.listprice, p.lastcost, p.rop, p.weight,
- p.priceupdate, p.image, p.drawing, p.microfiche,
- pg.partsgroup,
- '' AS invnumber, o.ordnumber, o.quonumber, oi.trans_id,
- ct.name|;
-
- if ($form->{ordered}) {
- $query .= qq|$union
- SELECT $flds, 'oe' AS module, 'sales_order' AS type,
- (SELECT buy FROM exchangerate ex
- WHERE ex.curr = o.curr
- AND ex.transdate = o.transdate) AS exchangerate
- FROM orderitems oi
- JOIN parts p ON (oi.parts_id = p.id)
- JOIN oe o ON (oi.trans_id = o.id)
- JOIN customer ct ON (o.customer_id = ct.id)
- LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
- WHERE $ordwhere
- AND o.customer_id > 0|;
- $union = "
- UNION";
+ if ($makemodel{$id}) {
+ foreach my $ref (@{ $makemodel{$id} }) {
+ map { push @{ $template_arrays{$_}->[-1] }, $ref->{$_} } qw(make model);
}
-
- if ($form->{onorder}) {
- $flds = qq|p.id, p.partnumber, oi.description, '' AS serialnumber,
- oi.qty * -1 AS onhand, oi.unit, p.bin, oi.sellprice,
- p.listprice, p.lastcost, p.rop, p.weight,
- p.priceupdate, p.image, p.drawing, p.microfiche,
- pg.partsgroup,
- '' AS invnumber, o.ordnumber, o.quonumber, oi.trans_id,
- ct.name|;
-
- $query .= qq|$union
- SELECT $flds, 'oe' AS module, 'purchase_order' AS type,
- (SELECT sell FROM exchangerate ex
- WHERE ex.curr = o.curr
- AND ex.transdate = o.transdate) AS exchangerate
- FROM orderitems oi
- JOIN parts p ON (oi.parts_id = p.id)
- JOIN oe o ON (oi.trans_id = o.id)
- JOIN vendor ct ON (o.vendor_id = ct.id)
- LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
- WHERE $ordwhere
- AND o.vendor_id > 0|;
- }
-
}
- if ($form->{rfq} || $form->{quoted}) {
- my $quowhere = "$where
- AND o.quotation = '1'";
- $quowhere .= " AND o.transdate >= '$form->{transdatefrom}'"
- if $form->{transdatefrom};
- $quowhere .= " AND o.transdate <= '$form->{transdateto}'"
- if $form->{transdateto};
-
- if ($form->{description}) {
- $var = $form->like(lc $form->{description});
- $quowhere .= " AND lower(oi.description) LIKE '$var'";
- }
-
- $flds = qq|p.id, p.partnumber, oi.description, '' AS serialnumber,
- oi.qty AS onhand, oi.unit, p.bin, oi.sellprice,
- p.listprice, p.lastcost, p.rop, p.weight,
- p.priceupdate, p.image, p.drawing, p.microfiche,
- pg.partsgroup,
- '' AS invnumber, o.ordnumber, o.quonumber, oi.trans_id,
- ct.name|;
-
- if ($form->{quoted}) {
- $query .= qq|$union
- SELECT $flds, 'oe' AS module, 'sales_quotation' AS type,
- (SELECT buy FROM exchangerate ex
- WHERE ex.curr = o.curr
- AND ex.transdate = o.transdate) AS exchangerate
- FROM orderitems oi
- JOIN parts p ON (oi.parts_id = p.id)
- JOIN oe o ON (oi.trans_id = o.id)
- JOIN customer ct ON (o.customer_id = ct.id)
- LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
- WHERE $quowhere
- AND o.customer_id > 0|;
- $union = "
- UNION";
- }
-
- if ($form->{rfq}) {
- $flds = qq|p.id, p.partnumber, oi.description, '' AS serialnumber,
- oi.qty * -1 AS onhand, oi.unit, p.bin, oi.sellprice,
- p.listprice, p.lastcost, p.rop, p.weight,
- p.priceupdate, p.image, p.drawing, p.microfiche,
- pg.partsgroup,
- '' AS invnumber, o.ordnumber, o.quonumber, oi.trans_id,
- ct.name|;
-
- $query .= qq|$union
- SELECT $flds, 'oe' AS module, 'request_quotation' AS type,
- (SELECT sell FROM exchangerate ex
- WHERE ex.curr = o.curr
- AND ex.transdate = o.transdate) AS exchangerate
- FROM orderitems oi
- JOIN parts p ON (oi.parts_id = p.id)
- JOIN oe o ON (oi.trans_id = o.id)
- JOIN vendor ct ON (o.vendor_id = ct.id)
- LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
- WHERE $quowhere
- AND o.vendor_id > 0|;
- }
-
- }
- $query .= qq|
- ORDER BY $sortorder|;
-
- }
- my $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
-
- while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
- push @{ $form->{parts} }, $ref;
- }
-
- $sth->finish;
-
- # include individual items for assemblies
- if ($form->{searchitems} eq 'assembly' && $form->{bom}) {
- foreach $item (@{ $form->{parts} }) {
- push @assemblies, $item;
- $query = qq|SELECT p.id, p.partnumber, p.description, a.qty AS onhand,
- p.unit, p.bin,
- p.sellprice, p.listprice, p.lastcost,
- p.rop, p.weight, p.priceupdate,
- p.image, p.drawing, p.microfiche
- FROM parts p, assembly a
- WHERE p.id = a.parts_id
- AND a.id = $item->{id}|;
-
- $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
-
- while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
- $ref->{assemblyitem} = 1;
- push @assemblies, $ref;
- }
- $sth->finish;
-
- push @assemblies, { id => $item->{id} };
-
- }
-
- # copy assemblies to $form->{parts}
- @{ $form->{parts} } = @assemblies;
- }
-
- $dbh->disconnect;
- $main::lxdebug->leave_sub();
-}
-
-sub create_links {
- $main::lxdebug->enter_sub();
-
- my ($self, $module, $myconfig, $form) = @_;
-
- # connect to database
- my $dbh = $form->dbconnect($myconfig);
-
- if ($form->{id}) {
- $query = qq|SELECT c.accno, c.description, c.link, c.id,
- p.inventory_accno_id, p.income_accno_id, p.expense_accno_id
- FROM chart c, parts p
- WHERE c.link LIKE '%$module%'
- AND p.id = $form->{id}
- ORDER BY c.accno|;
- } else {
- $query = qq|SELECT c.accno, c.description, c.link, c.id,
- d.inventory_accno_id, d.income_accno_id, d.expense_accno_id
- FROM chart c, defaults d
- WHERE c.link LIKE '%$module%'
- ORDER BY c.accno|;
- }
+ push @{ $template_arrays{customer_make} }, [];
+ push @{ $template_arrays{customer_model} }, [];
- my $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
- while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
- foreach my $key (split /:/, $ref->{link}) {
- if ($key =~ /$module/) {
- if ( ($ref->{id} eq $ref->{inventory_accno_id})
- || ($ref->{id} eq $ref->{income_accno_id})
- || ($ref->{id} eq $ref->{expense_accno_id})) {
- push @{ $form->{"${module}_links"}{$key} },
- { accno => $ref->{accno},
- description => $ref->{description},
- selected => "selected" };
- } else {
- push @{ $form->{"${module}_links"}{$key} },
- { accno => $ref->{accno},
- description => $ref->{description},
- selected => "" };
- }
+ if ($customermodel{$id}) {
+ foreach my $ref (@{ $customermodel{$id} }) {
+ push @{ $template_arrays{$_}->[-1] }, $ref->{$_} for qw(customer_make customer_model);
}
}
- }
- $sth->finish;
-
- if ($form->{id}) {
- $query = qq|SELECT weightunit
- FROM defaults|;
- $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
-
- ($form->{weightunit}) = $sth->fetchrow_array;
- $sth->finish;
- } else {
- $query = qq|SELECT weightunit, current_date
- FROM defaults|;
- $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
-
- ($form->{weightunit}, $form->{priceupdate}) = $sth->fetchrow_array;
- $sth->finish;
}
- $dbh->disconnect;
- $main::lxdebug->leave_sub();
-}
-
-# get partnumber, description, unit, sellprice and soldtotal with choice through $sortorder for Top100
-sub get_parts {
- $main::lxdebug->enter_sub();
-
- my ($self, $myconfig, $form, $sortorder) = @_;
- my $dbh = $form->dbconnect($myconfig);
- my $order = " p.partnumber";
- my $where = "1 = 1";
+ my $parts = SL::DB::Manager::Part->get_all(query => [ id => \@part_ids ]);
+ my %parts_by_id = map { $_->id => $_ } @$parts;
- if ($sortorder eq "all") {
- $where .= " AND p.partnumber LIKE '%$form->{partnumber}%'";
- $where .= " AND p.description LIKE '%$form->{description}%'";
- } else {
- if ($sortorder eq "partnumber") {
- $where .= " AND p.partnumber LIKE '%$form->{partnumber}%'";
- $order = qq|p.$sortorder|;
- }
- if ($sortorder eq "description") {
- $where .= " AND p.description LIKE '%$form->{description}%'";
- }
+ for my $i (1..$rowcount) {
+ my $id = $form->{"${prefix}${i}"};
+ next unless $id;
+ my $prt = $parts_by_id{$id};
+ my $type_abbr = type_abbreviation($prt->part_type);
+ push @{ $template_arrays{part_type} }, $prt->part_type;
+ push @{ $template_arrays{part_abbreviation} }, $type_abbr;
+ push @{ $template_arrays{type_and_classific}}, $type_abbr . classification_abbreviation($prt->classification_id);
+ push @{ $template_arrays{separate} }, separate_abbreviation($prt->classification_id);
}
- my $query =
- qq|SELECT p.id, p.partnumber, p.description, p.unit, p.sellprice FROM parts p WHERE $where ORDER BY $order|;
- my $sth = $dbh->prepare($query);
- $sth->execute || $self->dberror($query);
- my $j = 0;
- while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
- if (($ref->{partnumber} eq "*") && ($ref->{description} eq "")) {
- } else {
- $j++;
- $form->{"id_$j"} = $ref->{id};
- $form->{"partnumber_$j"} = $ref->{partnumber};
- $form->{"description_$j"} = $ref->{description};
- $form->{"unit_$j"} = $ref->{unit};
- $form->{"sellprice_$j"} = $ref->{sellprice};
- $form->{"soldtotal_$j"} = get_soldtotal($dbh, $ref->{id});
- } #fi
- } #while
- $form->{rows} = $j;
- $sth->finish;
- $dbh->disconnect;
-
- $main::lxdebug->leave_sub();
-
- return $self;
-} #end get_parts()
-
-# gets sum of sold part with part_id
-sub get_soldtotal {
- $main::lxdebug->enter_sub();
-
- my ($dbh, $id) = @_;
-
- my $query =
- qq|SELECT sum(i.qty) as totalsold FROM invoice i WHERE i.parts_id = $id|;
-
- my $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
-
- my $sum = 0;
- while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
-
- $sum = $ref->{totalsold};
- } #while
- $sth->finish;
-
- if ($sum eq undef) {
- $sum = 0;
- } #fi
-
- $main::lxdebug->leave_sub();
-
- return $sum;
-} #end get_soldtotal
-
-sub retrieve_item {
- $main::lxdebug->enter_sub();
-
- my ($self, $myconfig, $form) = @_;
- my $i = $form->{rowcount};
- my $where = "NOT p.obsolete = '1'";
-
- if ($form->{"partnumber_$i"}) {
- my $partnumber = $form->like(lc $form->{"partnumber_$i"});
- $where .= " AND lower(p.partnumber) LIKE '$partnumber'";
- }
- if ($form->{"description_$i"}) {
- my $description = $form->like(lc $form->{"description_$i"});
- $where .= " AND lower(p.description) LIKE '$description'";
- }
-
- if ($form->{"partsgroup_$i"}) {
- my $partsgroup = $form->like(lc $form->{"partsgroup_$i"});
- $where .= " AND lower(pg.partsgroup) LIKE '$partsgroup'";
- }
-
- if ($form->{"description_$i"}) {
- $where .= " ORDER BY description";
- } else {
- $where .= " ORDER BY partnumber";
- }
-
- # connect to database
- my $dbh = $form->dbconnect($myconfig);
-
- my $query = qq|SELECT p.id, p.partnumber, p.description, p.sellprice,
- p.listprice,
- c1.accno AS inventory_accno,
- c2.accno AS income_accno,
- c3.accno AS expense_accno,
- p.unit, p.assembly, p.bin, p.onhand, p.notes AS partnotes,
- pg.partsgroup
- FROM parts p
- LEFT JOIN chart c1 ON (p.inventory_accno_id = c1.id)
- LEFT JOIN chart c2 ON (p.income_accno_id = c2.id)
- LEFT JOIN chart c3 ON (p.expense_accno_id = c3.id)
- LEFT JOIN partsgroup pg ON (pg.id = p.partsgroup_id)
- WHERE $where|;
- my $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
-
- #while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
-
- # get tax rates and description
- #$accno_id = ($form->{vc} eq "customer") ? $ref->{income_accno} : $ref->{inventory_accno};
- #$query = qq|SELECT c.accno, c.description, t.rate, t.taxnumber
- # FROM chart c, tax t
- # WHERE c.id=t.chart_id AND t.taxkey in (SELECT taxkey_id from chart where accno = '$accno_id')
- # ORDER BY accno|;
- # $stw = $dbh->prepare($query);
- #$stw->execute || $form->dberror($query);
-
- #$ref->{taxaccounts} = "";
- #while ($ptr = $stw->fetchrow_hashref(NAME_lc)) {
-
- # $form->{"$ptr->{accno}_rate"} = $ptr->{rate};
- # $form->{"$ptr->{accno}_description"} = $ptr->{description};
- # $form->{"$ptr->{accno}_taxnumber"} = $ptr->{taxnumber};
- # $form->{taxaccounts} .= "$ptr->{accno} ";
- # $ref->{taxaccounts} .= "$ptr->{accno} ";
-
- #}
-
- #$stw->finish;
- #chop $ref->{taxaccounts};
-
- push @{ $form->{item_list} }, $ref;
-
- #}
- $sth->finish;
- $dbh->disconnect;
-
$main::lxdebug->leave_sub();
+ return %template_arrays;
}
1;