From: Waldemar Toews <waldemar.toews@opendynamic.de>
Date: Tue, 30 Jun 2015 12:01:03 +0000 (+0200)
Subject: BUG-Fix: Vergleich der Artikel (bestellt, bezahlt) angepasst.
X-Git-Tag: release-3.5.4~2244
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/05a0faf917f346a0ff4883ba8597d94753ef1f46?ds=inline;hp=a7b9212927afc0b5b02295db4f7c2fba7318508f

BUG-Fix: Vergleich der Artikel (bestellt, bezahlt) angepasst.

Die Erzeugnisse in Rechnungspositionen werden in Positionstabelle
(invoice) zusammen mit Bestandteilen gespeichert. Bei der Prüfung was
bestellt und was bezahlt wurde, kommen dann falsche Ergebnisse.
In SQL: Rechnungspositionen ohne Bestandteile des Erzeugnisses mit
Positionen aus dem Auftrag vergleichen.
---

diff --git a/SL/ARAP.pm b/SL/ARAP.pm
index dd2bd8e02..977eefb4a 100644
--- a/SL/ARAP.pm
+++ b/SL/ARAP.pm
@@ -60,7 +60,7 @@ sub close_orders_if_billed {
   my $q_billed  = qq|SELECT i.parts_id, i.qty ${qtyfactor} AS qty, i.unit, p.unit AS partunit
                      FROM invoice i
                      LEFT JOIN parts p ON (i.parts_id = p.id)
-                     WHERE i.trans_id = ?|;
+                     WHERE i.trans_id = ? AND i.assemblyitem is false|;
   my $h_billed  = prepare_query($form, $dbh, $q_billed);
 
   my $q_ordered = qq|SELECT oi.parts_id, oi.qty, oi.unit, p.unit AS partunit