From 4f611e17f70bbceeb2fd26f3bd4ac269432a4991 Mon Sep 17 00:00:00 2001 From: "Martin Helmling martin.helmling@octosoft.eu" Date: Thu, 21 Jul 2016 09:39:30 +0200 Subject: [PATCH] =?utf8?q?Fertigen=20ohne=20Pr=C3=BCfung=20nach=20Bestand?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit 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" --- SL/WH.pm | 12 ++++++++++++ doc/changelog | 4 ++-- 2 files changed, 14 insertions(+), 2 deletions(-) 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 -- 2.20.1