package IC;
use Data::Dumper;
+use List::MoreUtils qw(all);
use YAML;
use SL::DBUtils;
while (($form->{"klass_$i"}, $form->{"pricegroup_id_$i"},
$form->{"price_$i"}, $form->{"pricegroup_$i"})
= $sth->fetchrow_array()) {
- $form->{"price_$i"} = $form->round_amount($form->{"price_$i"}, 5);
- $form->{"price_$i"} = $form->format_amount($myconfig, $form->{"price_$i"}, -2);
push @pricegroups, $form->{"pricegroup_id_$i"};
$i++;
}
foreach $name (@pricegroups_not_used) {
$form->{"klass_$i"} = "$name->{id}";
- $form->{"price_$i"} = $form->round_amount($form->{sellprice}, 5);
- $form->{"price_$i"} = $form->format_amount($myconfig, $form->{"price_$i"}, -2);
$form->{"pricegroup_id_$i"} = "$name->{id}";
$form->{"pricegroup_$i"} = "$name->{pricegroup}";
$i++;
my ($query, $sth);
+ my $priceupdate = ', priceupdate = current_date';
+
if ($form->{id}) {
# get old price
# 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) {
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},
# insert price records only if different to sellprice
for my $i (1 .. $form->{price_rows}) {
- if ($form->{"price_$i"} eq "0") {
+ my $price = $form->parse_amount($myconfig, $form->{"price_$i"});
+ if ($price == 0) {
$form->{"price_$i"} = $form->{sellprice};
}
if (
- ( $form->{"price_$i"}
+ ( $price
|| $form->{"klass_$i"}
|| $form->{"pricegroup_id_$i"})
- and $form->{"price_$i"} != $form->{sellprice}
+ and $price != $form->{sellprice}
) {
#$klass = $form->parse_amount($myconfig, $form->{"klass_$i"});
- $price = $form->parse_amount($myconfig, $form->{"price_$i"});
- $pricegroup_id =
- $form->parse_amount($myconfig, $form->{"pricegroup_id_$i"});
$query = qq|INSERT INTO prices (parts_id, pricegroup_id, price) | .
qq|VALUES(?, ?, ?)|;
- @values = (conv_i($form->{id}), conv_i($pricegroup_id), $price);
+ @values = (conv_i($form->{id}), conv_i($form->{"pricegroup_id_$i"}), $price);
do_query($form, $dbh, $query, @values);
}
}
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,
- p.price_factor_id, pfac.factor AS price_factor
+ qq|SELECT p.id, p.partnumber, p.description, p.sellprice,
+ p.weight, p.onhand, p.unit, pg.partsgroup, p.lastcost,
+ 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
my $sort_order = ($form->{revers} ? ' DESC' : ' ASC');
+ my $order_clause = " ORDER BY $form->{sort} " . ($form->{revers} ? 'DESC' : 'ASC');
+
# 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
- $form->{sort} = join ', ', map { push @select_tokens, $_; ($table_prefix{$_} = "substring(partnumber,'[") . $_ } qw|^[:digit:]]+') [:digit:]]+')::INTEGER|
- if $form->{sort} eq 'partnumber';
+ # 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 $order_clause = " ORDER BY $form->{sort} $sort_order";
my $limit_clause = " LIMIT 100" if $form->{top100};
map { $_->{onhand} *= 1 } @{ $form->{parts} };
+ # post processing for assembly parts lists (bom)
+ # for each part get the assembly parts and add them into the partlist.
my @assemblies;
- # include individual items for assemblies
if ($form->{searchitems} eq 'assembly' && $form->{bom}) {
$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 = ?)|;
+ 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 = ?|;
$sth = prepare_query($form, $dbh, $query);
foreach $item (@{ $form->{parts} }) {
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
$ref->{assemblyitem} = 1;
+ map { $ref->{$_} /= $ref->{factor} || 1 } qw(sellprice listprice lastcost);
push(@assemblies, $ref);
}
$sth->finish;
$main::lxdebug->leave_sub();
}
-sub update_prices {
+sub _create_filter_for_priceupdate {
$main::lxdebug->enter_sub();
- my ($self, $myconfig, $form) = @_;
+ my $self = shift;
+ my $myconfig = \%main::myconfig;
+ my $form = $main::form;
+
my @where_values;
my $where = '1 = 1';
- my $var;
- my $group;
- my $limit;
+ foreach my $item (qw(partnumber drawing microfiche make model pg.partsgroup)) {
+ my $column = $item;
+ $column =~ s/.*\.//;
+ next unless ($form->{$column});
- if ($item ne 'make') {
- foreach my $item (qw(partnumber drawing microfiche make model pg.partsgroup)) {
- my $column = $item;
- $column =~ s/.*\.//;
- next unless ($form->{$column});
- $where .= qq| AND $item ILIKE ?|;
- push(@where_values, '%' . $form->{$column} . '%');
- }
+ $where .= qq| AND $item ILIKE ?|;
+ push(@where_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(@where_values, '%' . $form->{description} . '%');
- }
+ foreach my $item (qw(description serialnumber)) {
+ next unless ($form->{$item});
- # special case for serialnumber
- if ($form->{l_serialnumber} && $form->{serialnumber}) {
- $where .= qq| AND serialnumber ILIKE ?|;
- push(@where_values, '%' . $form->{serialnumber} . '%');
+ $where .= qq| AND (${item} ILIKE ?)|;
+ push(@where_values, '%' . $form->{$item} . '%');
}
# 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 .=
qq| AND (p.onhand = 0)
AND p.id NOT IN
UNION
SELECT DISTINCT parts_id FROM orderitems
)|;
- }
- if ($form->{itemstatus} eq 'active') {
+ } elsif ($form->{itemstatus} eq 'active') {
$where .= qq| AND p.obsolete = '0'|;
- }
- if ($form->{itemstatus} eq 'obsolete') {
+ } elsif ($form->{itemstatus} eq 'obsolete') {
$where .= qq| AND p.obsolete = '1'|;
- $form->{onhand} = $form->{short} = 0;
- }
- if ($form->{itemstatus} eq 'onhand') {
+ } elsif ($form->{itemstatus} eq 'onhand') {
$where .= qq| AND p.onhand > 0|;
- }
- if ($form->{itemstatus} eq 'short') {
+ } elsif ($form->{itemstatus} eq 'short') {
$where .= qq| AND p.onhand < p.rop|;
+
}
foreach my $column (qw(make model)) {
push(@where_values, '%' . $form->{$column} . '%');
}
+ $main::lxdebug->leave_sub();
+
+ return ($where, @where_values);
+}
+
+sub get_num_matches_for_priceupdate {
+ $main::lxdebug->enter_sub();
+
+ my $self = shift;
+
+ my $myconfig = \%main::myconfig;
+ my $form = $main::form;
+
+ my $dbh = $params{dbh} || $form->get_standard_dbh($myconfig);
+
+ my ($where, @where_values) = $self->_create_filter_for_priceupdate();
+
+ my $num_updated = 0;
+ my $query;
+
+ for my $column (qw(sellprice listprice)) {
+ next if ($form->{$column} eq "");
+
+ $query =
+ qq|SELECT COUNT(*)
+ FROM parts
+ WHERE id IN
+ (SELECT p.id
+ FROM parts p
+ LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
+ WHERE $where)|;
+ my ($result) = selectfirst_array_query($from, $dbh, $query, @where_values);
+ $num_updated += $result if (0 <= $result);
+ }
+
+ $query =
+ qq|SELECT COUNT(*)
+ FROM prices
+ WHERE parts_id IN
+ (SELECT p.id
+ FROM parts p
+ LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
+ WHERE $where) AND (pricegroup_id = ?)|;
+ my $sth = prepare_query($form, $dbh, $query);
+
+ for my $i (1 .. $form->{price_rows}) {
+ next if ($form->{"price_$i"} eq "");
+
+ my ($result) = do_statement($form, $sth, $query, @where_values, conv_i($form->{"pricegroup_id_$i"}));
+ $num_updated += $result if (0 <= $result);
+ }
+ $sth->finish();
+
+ $main::lxdebug->leave_sub();
+
+ return $num_updated;
+}
+
+sub update_prices {
+ $main::lxdebug->enter_sub();
+
+ my ($self, $myconfig, $form) = @_;
+
+ my ($where, @where_values) = $self->_create_filter_for_priceupdate();
+ my $num_updated = 0;
+
# connect to database
my $dbh = $form->dbconnect_noauto($myconfig);
FROM parts p
LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
WHERE $where)|;
- do_query($from, $dbh, $query, $value, @where_values);
+ my $result = do_query($from, $dbh, $query, $value, @where_values);
+ $num_updated += $result if (0 <= $result);
}
my $q_add =
next if ($form->{"price_$i"} eq "");
my $value = $form->parse_amount($myconfig, $form->{"price_$i"});
+ my $result;
if ($form->{"pricegroup_type_$i"} eq "percent") {
- do_statement($form, $sth_multiply, $q_multiply, ($value / 100) + 1, @where_values, conv_i($form->{"pricegroup_id_$i"}));
+ $result = do_statement($form, $sth_multiply, $q_multiply, ($value / 100) + 1, @where_values, conv_i($form->{"pricegroup_id_$i"}));
} else {
- do_statement($form, $sth_add, $q_add, $value, @where_values, conv_i($form->{"pricegroup_id_$i"}));
+ $result = do_statement($form, $sth_add, $q_add, $value, @where_values, conv_i($form->{"pricegroup_id_$i"}));
}
+
+ $num_updated += $result if (0 <= $result);
}
$sth_add->finish();
$main::lxdebug->leave_sub();
- return $rc;
+ return $num_updated;
}
sub create_links {
$sth->finish();
- my @columns = qw(ean);
+ my @columns = qw(ean image microfiche drawing weight);
$query = qq|SELECT id, | . join(', ', @columns) . qq|
FROM parts
my %data = selectall_as_map($form, $dbh, $query, 'id', \@columns, @part_ids);
- map { $form->{$_} = [] } (qw(make model), @columns);
+ map { $form->{TEMPLATE_ARRAYS}{$_} = [] } (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->{TEMPLATE_ARRAYS}{$_} }, $data{$id}->{$_};
}
- push @{ $form->{make} }, [];
- push @{ $form->{model} }, [];
+ push @{ $form->{TEMPLATE_ARRAYS}{make} }, [];
+ push @{ $form->{TEMPLATE_ARRAYS}{model} }, [];
next if (!$makemodel{$id});
foreach my $ref (@{ $makemodel{$id} }) {
- map { push @{ $form->{$_}->[-1] }, $ref->{$_} } qw(make model);
+ map { push @{ $form->{TEMPLATE_ARRAYS}{$_}->[-1] }, $ref->{$_} } qw(make model);
}
}