X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b4ee46e51b0e2907494de5cc1433de27c994b3b8..98b64fe1e380c232428d63cea0eb5f44b1d1a2c3:/SL/IR.pm

diff --git a/SL/IR.pm b/SL/IR.pm
index 3498bf0bf..25820bd12 100644
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -1218,7 +1218,7 @@ sub retrieve_item {
   my $i = $form->{rowcount};
 
   # don't include assemblies or obsolete parts
-  my $where = "NOT p.assembly = '1' AND NOT p.obsolete = '1'";
+  my $where = "NOT p.part_type = 'assembly' AND NOT p.obsolete = '1'";
   my @values;
 
   foreach my $table_column (qw(p.partnumber p.description pg.partsgroup)) {
@@ -1276,7 +1276,7 @@ sub retrieve_item {
   my $query =
     qq|SELECT
          p.id, p.partnumber, p.description, p.lastcost AS sellprice, p.listprice,
-         p.unit, p.assembly, p.onhand, p.formel,
+         p.unit, p.part_type, p.onhand, p.formel,
          p.notes AS partnotes, p.notes AS longdescription, p.not_discountable,
          p.inventory_accno_id, p.price_factor_id,
          p.ean,