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 cd748d4..29643dc 100644 (file)
--- 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 f647cd9..ce90104 100644 (file)
--- 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