#======================================================================
package IC;
+
use Data::Dumper;
+use List::MoreUtils qw(all);
+use YAML;
+
use SL::DBUtils;
sub get_part {
# copy to $form variables
map { $form->{$_} = $ref->{$_} } (keys %{$ref});
+ $form->{onhand} *= 1;
+
my %oid = ('Pg' => 'a.oid',
'Oracle' => 'a.rowid');
# retrieve assembly items
$query =
qq|SELECT p.id, p.partnumber, p.description,
- p.sellprice, p.weight, a.qty, a.bom, p.unit,
- pg.partsgroup
+ p.sellprice, p.lastcost, p.weight, a.qty, a.bom, p.unit,
+ pg.partsgroup, p.price_factor_id, pfac.factor AS price_factor
FROM parts p
JOIN assembly a ON (a.parts_id = p.id)
LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
+ LEFT JOIN price_factors pfac ON pfac.id = p.price_factor_id
WHERE (a.id = ?)
ORDER BY $oid{$myconfig->{dbdriver}}|;
$sth = prepare_execute_query($form, $dbh, $query, conv_i($form->{id}));
# get translations
$form->{language_values} = "";
- $query = qq|SELECT language_id, translation FROM translation WHERE parts_id = ?|;
+ $query = qq|SELECT language_id, translation, longdescription
+ FROM translation
+ WHERE parts_id = ?|;
my $trq = prepare_execute_query($form, $dbh, $query, conv_i($form->{id}));
- while ($tr = $trq->fetchrow_hashref(NAME_lc)) {
- $form->{language_values} .= "---+++---".$tr->{language_id}."--++--".$tr->{translation};
+ while (my $tr = $trq->fetchrow_hashref(NAME_lc)) {
+ $form->{language_values} .= "---+++---" . join('--++--', @{$tr}{qw(language_id translation longdescription)});
}
$trq->finish;
$sth->finish;
# is it an orphan
- my @referencing_tables = qw(invoice orderitems invoice inventory rmaitems);
+ my @referencing_tables = qw(invoice orderitems inventory rmaitems);
my %column_map = ( );
my $parts_id = conv_i($form->{id});
$dbh->disconnect;
$main::lxdebug->leave_sub();
+
+ return $pricegroups;
}
sub retrieve_buchungsgruppen {
# undo amount formatting
map { $form->{$_} = $form->parse_amount($myconfig, $form->{$_}) }
- qw(rop weight listprice sellprice gv lastcost stock);
+ qw(rop weight listprice sellprice gv lastcost);
my $makemodel = (($form->{make_1}) || ($form->{model_1})) ? 1 : 0;
my ($query, $sth);
+ my $priceupdate = ', priceupdate = current_date';
+
if ($form->{id}) {
# get old price
}
if ($form->{item} eq 'assembly') {
- if ($form->{onhand} != 0) {
- &adjust_inventory($dbh, $form, $form->{id}, $form->{onhand} * -1);
- }
-
# delete assembly records
do_query($form, $dbh, qq|DELETE FROM assembly WHERE id = ?|, conv_i($form->{id}));
-
- $form->{onhand} += $form->{stock};
}
# delete tax records
# delete translations
do_query($form, $dbh, qq|DELETE FROM translation WHERE parts_id = ?|, conv_i($form->{id}));
+ # Check whether or not the prices have changed. If they haven't
+ # then 'priceupdate' should not be updated.
+ my $previous_values = selectfirst_hashref_query($form, $dbh, qq|SELECT * FROM parts WHERE id = ?|, conv_i($form->{id})) || {};
+ $priceupdate = '' if (all { $previous_values->{$_} == $form->{$_} } qw(sellprice lastcost listprice));
+
} else {
my ($count) = selectrow_query($form, $dbh, qq|SELECT COUNT(*) FROM parts WHERE partnumber = ?|, $form->{partnumber});
if ($count) {
do_query($form, $dbh, qq|INSERT INTO parts (id, partnumber) VALUES (?, '')|, $form->{id});
$form->{orphaned} = 1;
- $form->{onhand} = $form->{stock} if $form->{item} eq 'assembly';
if ($form->{partnumber} eq "" && $form->{"item"} eq "service") {
$form->{partnumber} = $form->update_defaults($myconfig, "servicenumber");
}
sellprice = ?,
lastcost = ?,
weight = ?,
- priceupdate = ?,
unit = ?,
notes = ?,
formel = ?,
microfiche = ?,
partsgroup_id = ?,
price_factor_id = ?
+ $priceupdate
WHERE id = ?|;
@values = ($form->{partnumber},
$form->{description},
$form->{sellprice},
$form->{lastcost},
$form->{weight},
- conv_date($form->{priceupdate}),
$form->{unit},
$form->{notes},
$form->{formel},
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) | .
qq|VALUES (?, ?, ?)|;
- @values = (conv_i($form->{id}), $form->{"make_$i"}, $form->{"model_$i"});
+ @values = (conv_i($form->{id}), conv_i($form->{"make_$i"}), $form->{"model_$i"});
+
do_query($form, $dbh, $query, @values);
}
}
}
}
- # adjust onhand for the parts
- if ($form->{onhand} != 0) {
- &adjust_inventory($dbh, $form, $form->{id}, $form->{onhand});
- }
-
@a = localtime;
$a[5] += 1900;
$a[4]++;
$form->get_employee($dbh);
- # add inventory record
- $query =
- qq|INSERT INTO inventory (warehouse_id, parts_id, qty, shippingdate, employee_id)
- VALUES (0, ?, ?, '$shippingdate', ?)|;
- @values = (conv_i($form->{id}), $form->{stock}, conv_i($form->{employee_id}));
- do_query($form, $dbh, $query, @values);
-
}
#set expense_accno=inventory_accno if they are different => bilanz
$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"});
-
- if ($form->{"qty_$i"} != 0) {
- &adjust_inventory($dbh, $form, $form->{"id_$i"}, $form->{"qty_$i"});
- }
-
- }
-
- my $rc = $dbh->commit;
- $dbh->disconnect;
-
- $main::lxdebug->leave_sub();
-
- return $rc;
-}
-
-sub adjust_inventory {
- $main::lxdebug->enter_sub();
-
- my ($dbh, $form, $id, $qty) = @_;
-
- 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 = ?)|;
- my $sth = prepare_execute_query($form, $dbh, $query, conv_i($id));
-
- while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
-
- my $allocate = $qty * $ref->{qty};
-
- # is it a service item, then loop
- $ref->{inventory_accno_id} *= 1;
- next if (($ref->{inventory_accno_id} == 0) && !$ref->{assembly});
-
- # adjust parts onhand
- $form->update_balance($dbh, "parts", "onhand",
- qq|id = $ref->{id}|,
- $allocate * -1);
- }
-
- $sth->finish;
-
- # update assembly
- my $rc = $form->update_balance($dbh, "parts", "onhand", qq|id = ?|, $qty, $id);
-
- $main::lxdebug->leave_sub();
-
- return $rc;
-}
-
sub delete {
$main::lxdebug->enter_sub();
my $dbh = $form->dbconnect($myconfig);
my $query =
- qq|SELECT p.id, p.partnumber, p.description, p.sellprice, p.weight, p.onhand, p.unit, pg.partsgroup
+ qq|SELECT p.id, p.partnumber, p.description, p.sellprice, p.weight, p.onhand, p.unit, pg.partsgroup,
+ p.price_factor_id, pfac.factor AS price_factor
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, $dbh, $query, @values);
# 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:
-# l_soldtotal - aggreg join to display total of sold quantity
# onhand - as above, but masking the simple itemstatus results (doh!)
# masking of onhand in bsooqr mode - ToDO: fixme
#
my ($self, $myconfig, $form) = @_;
my $dbh = $form->get_standard_dbh($myconfig);
- $form->{parts} = +{ };
+ $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 @makemodel_filters = qw(make model);
) 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 FROM ap UNION
- SELECT id, transdate, 'is' AS module, ordnumber, quonumber, invnumber, FALSE AS quotation, customer_id, NULL AS vendor_id, deliverydate FROM ar UNION
- SELECT id, transdate, 'oe' AS module, ordnumber, quonumber, NULL AS invnumber, quotation, customer_id, vendor_id, NULL AS deliverydate FROM oe
- ) AS apoe ON ioi.trans_id = apoe.id|,
+ SELECT id, transdate, 'ir' AS module, ordnumber, quonumber, invnumber, FALSE AS quotation, NULL AS customer_id, vendor_id, NULL AS deliverydate, '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, 'invoice' AS ioi FROM ar UNION
+ SELECT id, transdate, 'oe' AS module, ordnumber, quonumber, NULL AS invnumber, quotation, customer_id, vendor_id, NULL AS deliverydate, '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
my @join_order = qw(partsgroup makemodel invoice_oi apoe cv pfac);
my %joins_needed;
+ if (($form->{searchitems} eq 'assembly') && $form->{l_lastcost}) {
+ @simple_l_switches = grep { $_ ne 'lastcost' } @simple_l_switches;
+ }
+
#===== switches and simple filters ========#
my @select_tokens = qw(id factor);
push @where_tokens, 'p.onhand < p.rop', if /short/;
}
+ 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 lastcost|;
my @sort_cols = (@simple_filters, qw(id bin priceupdate onhand invnumber ordnumber quonumber name serialnumber soldtotal deliverydate));
$form->{sort} = 'id' unless grep { $form->{"l_$_"} } grep { $form->{sort} eq $_ } @sort_cols;
my @bsooqr;
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};
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};
if ($form->{l_soldtotal}) {
push @where_tokens, 'ioi.qty >= 0';
push @group_tokens, @select_tokens;
+ map { s/.*\sAS\s+//si } @group_tokens;
push @select_tokens, 'SUM(ioi.qty)';
}
ordnumber => 'apoe.', make => 'mm.',
quonumber => 'apoe.', model => 'mm.',
invnumber => 'apoe.', partsgroup => 'pg.',
+ lastcost => ' ',
factor => 'pfac.',
'SUM(ioi.qty)' => ' ',
);
+ $table_prefix{$q_assembly_lastcost} = ' ';
+
my %renamed_columns = (
'factor' => 'price_factor',
'SUM(ioi.qty)' => 'soldtotal',
$form->{parts} = selectall_hashref_query($form, $dbh, $query, @bind_vars);
-## my $where = qq|1 = 1|;
-## my (@values, $var, $flds, $group, $limit);
-##
-## foreach my $item (qw(partnumber drawing microfiche ean pg.partsgroup)) {
-## my $column = $item;
-## $column =~ s/.*\.//; # get rid of table prefixes
-## if ($form->{$column}) {
-## $where .= qq| AND ($item ILIKE ?)|;
-## push(@values, "%$form->{$column}%");
-## }
-## }
-##
-## # special case for description
-## if ($form->{description}
-## && !( $form->{bought} || $form->{sold} || $form->{onorder}
-## || $form->{ordered} || $form->{rfq} || $form->{quoted})) {
-## $where .= qq| AND (p.description ILIKE ?)|;
-## push(@values, "%$form->{description}%");
-## }
-##
-## # special case for serialnumber
-## if ($form->{l_serialnumber} && $form->{serialnumber}) {
-## $where .= qq| AND (serialnumber ILIKE ?)|;
-## push(@values, "%$form->{serialnumber}%");
-## }
-##
-## if ($form->{searchitems} eq 'part') {
-## $where .= qq| AND (p.inventory_accno_id > 0) |;
-## }
-##
-## if ($form->{searchitems} eq 'assembly') {
-## $form->{bought} = "";
-## $where .= qq| AND p.assembly|;
-## }
-##
-## if ($form->{searchitems} eq 'service') {
-## $where .= qq| AND (p.inventory_accno_id IS NULL) AND NOT (p.assembly = '1')|;
-## # irrelevant for services
-## map { $form->{$_} = '' } qw(make model);
-## }
-##
-## # items which were never bought, sold or on an order
-## if ($form->{itemstatus} eq 'orphaned') {
-## map { $form->{$_} = 0 } qw(onhand short bought sold onorder ordered rfq quoted);
-## map { $form->{$_} = '' } qw(transdatefrom transdateto);
-##
-## $where .=
-## qq| AND (p.onhand = 0)
-## AND p.id NOT IN
-## (
-## SELECT DISTINCT parts_id FROM invoice
-## UNION
-## SELECT DISTINCT parts_id FROM assembly
-## UNION
-## SELECT DISTINCT parts_id FROM orderitems
-## )|;
-## }
-##
-## my %status2condition = (
-## active => " AND (p.obsolete = '0')",
-## obsolete => " AND (p.obsolete = '1')",
-## onhand => " AND (p.onhand > 0)",
-## short => " AND (p.onhand < p.rop)",
-## );
-## $where .= $status2condition{$form->{itemstatus}};
-##
-## $form->{onhand} = $form->{short} = 0 if ($form->{itemstatus} eq 'obsolete');
-##
-## my @subcolumns;
-## foreach my $column (qw(make model)) {
-## push @subcolumns, $column if $form->{$column};
-## }
-## if (@subcolumns) {
-## $where .= qq| AND p.id IN (SELECT DISTINCT parts_id FROM makemodel WHERE | . (join " AND ", map { "($_ ILIKE ?)"; } @subcolumns) . ")";
-## push @values, map { '%' . $form->{$_} . '%' } @subcolumns;
-## }
-##
-## if ($form->{l_soldtotal}) {
-## $where .= qq| AND (p.id = i.parts_id) AND (i.qty >= 0)|;
-## $group = qq| GROUP BY p.id, p.partnumber, p.description, p.onhand, p.unit, p.bin, p.sellprice, p.listprice, p.lastcost, p.priceupdate, pg.partsgroup|;
-## }
-##
-## $limit = qq| LIMIT 100| if ($form->{top100});
-##
-## # connect to database
-## my $dbh = $form->dbconnect($myconfig);
-##
-## my @sort_cols = qw(id partnumber description partsgroup bin priceupdate onhand
-## invnumber ordnumber quonumber name drawing microfiche
-## serialnumber soldtotal deliverydate);
-##
-## my $sortorder = "partnumber";
-## $sortorder = $form->{sort} if ($form->{sort} && grep({ $_ eq $form->{sort} } @sort_cols));
-## $sortorder .= " DESC" if ($form->{revers});
-##
-## my $query = "";
-##
-## 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 $limit|;
-## }
-##
-## my @all_values = @values;
-##
-## # rebuild query for bought and sold items
-## if ( $form->{bought}
-## || $form->{sold}
-## || $form->{onorder}
-## || $form->{ordered}
-## || $form->{rfq}
-## || $form->{quoted}) {
-## my $union = "";
-## $query = "";
-## @all_values = ();
-##
-## if ($form->{bought} || $form->{sold}) {
-##
-## my @invvalues = @values;
-## my $invwhere = "$where";
-# $invwhere .= qq| AND i.assemblyitem = '0'|;
-##
-## if ($form->{transdatefrom}) {
-## $invwhere .= qq| AND a.transdate >= ?|;
-## push(@invvalues, $form->{transdatefrom});
-## }
-##
-## if ($form->{transdateto}) {
-## $invwhere .= qq| AND a.transdate <= ?|;
-## push(@invvalues, $form->{transdateto});
-## }
-##
-## if ($form->{description}) {
-## $invwhere .= qq| AND i.description ILIKE ?|;
-## push(@invvalues, '%' . $form->{description} . '%');
-## }
-##
-## $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, i.deliverydate|;
-##
-## 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 = qq| UNION |;
-##
-## push(@all_values, @invvalues);
-## }
-##
-## 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 = qq| UNION |;
-##
-## push(@all_values, @invvalues);
-## }
-## }
-##
-## if ($form->{onorder} || $form->{ordered}) {
-## my @ordvalues = @values;
-## my $ordwhere = $where . qq| AND o.quotation = '0'|;
-##
-## if ($form->{transdatefrom}) {
-## $ordwhere .= qq| AND o.transdate >= ?|;
-## push(@ordvalues, $form->{transdatefrom});
-## }
-##
-## if ($form->{transdateto}) {
-## $ordwhere .= qq| AND o.transdate <= ?|;
-## push(@ordvalues, $form->{transdateto});
-## }
-##
-## if ($form->{description}) {
-## $ordwhere .= qq| AND oi.description ILIKE ?|;
-## push(@ordvalues, '%' . $form->{description} . '%');
-## }
-##
-## if ($form->{ordered}) {
-## $query .=
-## qq|$union
-##
-## SELECT p.id, p.partnumber, oi.description, oi.serialnumber 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, NULL AS deliverydate,
-## '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 = qq| UNION |;
-##
-## push(@all_values, @ordvalues);
-## }
-##
-## if ($form->{onorder}) {
-## $query .=
-## qq|$union
-##
-## SELECT p.id, p.partnumber, oi.description, oi.serialnumber 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, NULL AS deliverydate,
-## '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)|;
-## $union = qq| UNION |;
-##
-## push(@all_values, @ordvalues);
-## }
-##
-## }
-##
-## if ($form->{rfq} || $form->{quoted}) {
-## my $quowhere = $where . qq| AND o.quotation = '1'|;
-## my @quovalues = @values;
-##
-## if ($form->{transdatefrom}) {
-## $quowhere .= qq| AND o.transdate >= ?|;
-## push(@quovalues, $form->{transdatefrom});
-## }
-##
-## if ($form->{transdateto}) {
-## $quowhere .= qq| AND o.transdate <= ?|;
-## push(@quovalues, $form->{transdateto});
-## }
-##
-## if ($form->{description}) {
-## $quowhere .= qq| AND oi.description ILIKE ?|;
-## push(@quovalues, '%' . $form->{description} . '%');
-## }
-##
-## if ($form->{quoted}) {
-## $query .=
-## qq|$union
-##
-## SELECT
-## p.id, p.partnumber, oi.description, oi.serialnumber 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, NULL AS deliverydate, '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 = qq| UNION |;
-##
-## push(@all_values, @quovalues);
-## }
-##
-## if ($form->{rfq}) {
-## $query .=
-## qq|$union
-##
-## SELECT p.id, p.partnumber, oi.description, oi.serialnumber 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, NULL AS deliverydate,
-## '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|;
-##
-## push(@all_values, @quovalues);
-## }
-##
-## }
-## $query .= qq| ORDER BY | . $sortorder;
-##
-## }
-##
-## $form->{parts} = selectall_hashref_query($form, $dbh, $query, @all_values);
-#
+ map { $_->{onhand} *= 1 } @{ $form->{parts} };
+
my @assemblies;
# include individual items for assemblies
if ($form->{searchitems} eq 'assembly' && $form->{bom}) {
$form->{parts} = \@assemblies;
}
- $dbh->disconnect;
$main::lxdebug->leave_sub();
}
$main::lxdebug->leave_sub(2);
}
+sub get_basic_part_info {
+ $main::lxdebug->enter_sub();
+
+ my $self = shift;
+ my %params = @_;
+
+ Common::check_params(\%params, qw(id));
+
+ my @ids = 'ARRAY' eq ref $params{id} ? @{ $params{id} } : ($params{id});
+
+ if (!scalar @ids) {
+ $main::lxdebug->leave_sub();
+ return ();
+ }
+
+ my $myconfig = \%main::myconfig;
+ my $form = $main::form;
+
+ my $dbh = $form->get_standard_dbh($myconfig);
+
+ my $query = qq|SELECT id, partnumber, description, unit FROM parts WHERE id IN (| . join(', ', ('?') x scalar(@ids)) . qq|)|;
+
+ my $info = selectall_hashref_query($form, $dbh, $query, map { conv_i($_) } @ids);
+
+ if ('' eq ref $params{id}) {
+ $info = $info->[0] || { };
+
+ $main::lxdebug->leave_sub();
+ return $info;
+ }
+
+ my %info_map = map { $_->{id} => $_ } @{ $info };
+
+ $main::lxdebug->leave_sub();
+
+ return %info_map;
+}
+
+sub prepare_parts_for_printing {
+ $main::lxdebug->enter_sub();
+
+ my $self = shift;
+ my %params = @_;
+
+ my $myconfig = \%main::myconfig;
+ my $form = $main::form;
+
+ my $dbh = $params{dbh} || $form->get_standard_dbh($myconfig);
+
+ my $prefix = $params{prefix} || 'id_';
+ my $rowcount = defined $params{rowcount} ? $params{rowcount} : $form->{rowcount};
+
+ my @part_ids = keys %{ { map { $_ => 1 } grep { $_ } map { $form->{"${prefix}${_}"} } (1 .. $rowcount) } };
+
+ if (!@part_ids) {
+ $main::lxdebug->leave_sub();
+ return;
+ }
+
+ my $placeholders = join ', ', ('?') x scalar(@part_ids);
+ my $query = qq|SELECT mm.parts_id, mm.model, v.name AS make
+ FROM makemodel mm
+ LEFT JOIN vendor v ON (mm.make = cast (v.id as text))
+ WHERE mm.parts_id IN ($placeholders)|;
+
+ my %makemodel = ();
+
+ my $sth = prepare_execute_query($form, $dbh, $query, @part_ids);
+
+ while (my $ref = $sth->fetchrow_hashref()) {
+ $makemodel{$ref->{parts_id}} ||= [];
+ push @{ $makemodel{$ref->{parts_id}} }, $ref;
+ }
+
+ $sth->finish();
+
+ my @columns = qw(ean);
+
+ $query = qq|SELECT id, | . join(', ', @columns) . qq|
+ FROM parts
+ WHERE id IN ($placeholders)|;
+
+ my %data = selectall_as_map($form, $dbh, $query, 'id', \@columns, @part_ids);
+
+ map { $form->{$_} = [] } (qw(make model), @columns);
+
+ foreach my $i (1 .. $rowcount) {
+ my $id = $form->{"${prefix}${i}"};
+
+ next if (!$id);
+
+ foreach (@columns) {
+ push @{ $form->{$_} }, $data{$id}->{$_};
+ }
+
+ push @{ $form->{make} }, [];
+ push @{ $form->{model} }, [];
+
+ next if (!$makemodel{$id});
+
+ foreach my $ref (@{ $makemodel{$id} }) {
+ map { push @{ $form->{$_}->[-1] }, $ref->{$_} } qw(make model);
+ }
+ }
+
+ $main::lxdebug->leave_sub();
+}
+
+
1;
projects / kivitendo-erp.git / blobdiff