From 4ce8120837c32f1f24720467a82508432c149af6 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Thu, 23 Apr 2009 08:02:43 +0000 Subject: [PATCH] =?utf8?q?Bug=20935=20'geflickt'=20Beim=20Erzeugnisse=20fe?= =?utf8?q?rtigen=20k=C3=B6nnen=20auch=20Erzeugnisse=20Bestandteil=20des=20?= =?utf8?q?Erzeugnisses=20sein,=20deswegen=20muss=20die=20Pr=C3=BCfung=20no?= =?utf8?q?ch=20um=20parts.assembly=3Dfalse=20erweitert=20werden,=20um=20Di?= =?utf8?q?enstleistungen=20eindeutig=20zu=20identifizieren?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/WH.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/SL/WH.pm b/SL/WH.pm index f9df8c4fa..2c4d7591f 100644 --- a/SL/WH.pm +++ b/SL/WH.pm @@ -144,11 +144,14 @@ sub transfer_assembly { # 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; +# Erweiterung für bug 23.4.09 -2 Erzeugnisse in Erzeugnissen können nicht ausgelagert werden, wenn assembly nicht überprüft wird ... +# select parts_id,qty from assembly inner join parts on assembly.parts_id = parts.id where assembly.id=1066 and parts.inventory_accno_id IS NOT NULL and parts.assembly=false; + # # # 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 inner join parts on assembly.parts_id = parts.id where assembly.id = ? and inventory_accno_id IS NOT NULL and parts.assembly = FALSE|; my $sth_part_qty_assembly = prepare_execute_query($form, $dbh, $query, $params{assembly_id}); -- 2.20.1