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

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