From 5b590986e45a376ddd0c9d9d73a6aab41d6a9b79 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <information@richardson-bueren.de>
Date: Thu, 23 Apr 2009 07:24:51 +0000
Subject: [PATCH] =?utf8?q?Bug=20935=20'gefixt'=20Beim=20Erzeugnisse=20fert?=
 =?utf8?q?igen=20k=C3=B6nnen=20auch=20Dienstleistungen=20Bestandteil=20des?=
 =?utf8?q?=20Erzeugnisses=20sein.=20Dienstleistungen=20werden=20bei=20der?=
 =?utf8?q?=20Pr=C3=BCfung,=20ob=20diese=20im=20Lager=20vorhanden=20sind,?=
 =?utf8?q?=20ausgeklammert=20(select=20blabla=20parts=20[...]=20and=20not?=
 =?utf8?q?=20parts.inventory=5Faccno=5Fid=20is=20null).=20Danke=20an=20Joa?=
 =?utf8?q?chim=20Zach?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/WH.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/SL/WH.pm b/SL/WH.pm
index 97b5a41fe..f9df8c4fa 100644
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -123,9 +123,6 @@ sub transfer {
 
   $main::lxdebug->leave_sub();
 }
-#
-#	Testfall:
-#
 
 sub transfer_assembly {
   $main::lxdebug->enter_sub();
@@ -145,9 +142,14 @@ sub transfer_assembly {
 #
 # ... Standard-Check oben Ende. Hier die eigentliche SQL-Abfrage
 # select parts_id,qty from assembly where id=1064;
+# Erweiterung für bug 935 am 23.4.09 - Erzeugnisse können Dienstleistungen enthalten, die ja nicht 'lagerbar' sind.
+# select parts_id,qty from assembly inner join parts on assembly.parts_id = parts.id  where assembly.id=1066 and inventory_accno_id IS NOT NULL;
 # 
+# 
+
+  # my $query    = qq|select parts_id,qty from assembly where id = ?|;
+  my $query	= qq|select parts_id,qty from assembly inner join parts on assembly.parts_id = parts.id  where assembly.id = ? and inventory_accno_id IS NOT NULL|;
 
-  my $query    = qq|select parts_id,qty from assembly where id = ?|;
   my $sth_part_qty_assembly      = prepare_execute_query($form, $dbh, $query, $params{assembly_id});
 
 # Hier wird das prepared Statement für die Schleife über alle Lagerplätze vorbereitet
-- 
2.20.1