From: Martin Helmling martin.helmling@octosoft.eu <martin.helmling@octosoft.eu>
Date: Thu, 21 Jul 2016 07:39:30 +0000 (+0200)
Subject: Fertigen ohne Prüfung nach Bestand
X-Git-Tag: release-3.5.4~2188
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=4f611e17f70bbceeb2fd26f3bd4ac269432a4991;p=kivitendo-erp.git

Fertigen ohne Prüfung nach Bestand

Wird bei einem Bestandteil das "Standard-Lager für Auslagern ohne Prüfung auf Bestand"
verwendet, wird ohne Prüfung ausgelagert.

Dies geschieht nur beim gewählten Feature "Zum Fertigen Standardlager des Bestandteils verwenden"
---

diff --git a/SL/WH.pm b/SL/WH.pm
index cd748d413..29643dc16 100644
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -228,6 +228,18 @@ sub transfer_assembly {
     my $warehouse_info    = $self->get_basic_warehouse_info('id'=> $currentPart_WH_ID);
     my $warehouse_desc    = $warehouse_info->{"warehouse_description"};
 
+    # Fertigen ohne Prüfung nach Bestand
+    if ($currentPart_WH_ID == $::instance_conf->get_warehouse_id_ignore_onhand) {
+      my $temppart_bin_id       = $::instance_conf->get_bin_id_ignore_onhand;
+      my $temppart_chargenumber = "";
+      my $temppart_bestbefore   = localtime();
+      my $temppart_qty          = $partsQTY * -1;
+
+      do_statement($form, $sthTransferPartSQL, $transferPartSQL, $currentPart_ID, $currentPart_WH_ID,
+                     $temppart_bin_id, $temppart_chargenumber, $temppart_bestbefore, 'Verbraucht für ' .
+                     $self->get_part_description(parts_id => $params{assembly_id}), $params{login}, $temppart_qty);
+      next;
+    }
     # Überprüfen, ob diese Anzahl gefertigt werden kann
     my $max_parts = $self->get_max_qty_parts(parts_id     => $currentPart_ID, # $self->method() == this.method()
                                              warehouse_id => $currentPart_WH_ID);
diff --git a/doc/changelog b/doc/changelog
index f647cd961..ce90104ec 100644
--- a/doc/changelog
+++ b/doc/changelog
@@ -9,8 +9,8 @@ kleinere neue Features und Detailverbesserungen:
   - In der Lager-Mandantenkonfig gibt es das Feature "Zum Fertigen Standardlager des Bestandteils verwenden".
     Statt das Ziellager des Erzeugnisses zu Verwenden, wird nun zur Prüfung der Fertigung das
     Standardlager der einzelnen Bestandteile verwendet.
-    Hat das Betstandteil kein Standardlager, so wird das "Standard-Lager für Auslagern ohne Prüfung auf Bestand"
-    verwendet. Ist dieses nicht gesetzt, wird eine Fehlermeldung erzeugt.
+    Hat das Bestandteil kein Standardlager, so wird das "Standard-Lager für Auslagern ohne Prüfung auf Bestand"
+    verwendeti und ohne Prüfung ausgelagert. Ist dieses nicht gesetzt, wird eine Fehlermeldung erzeugt.
 
   - Neues Recht "Verknüpfte Belege", standardmäßig erlaubt. Betrifft alle
     Belege und die Projektstammdaten