From 7ccc2fd5f71317fec080989578672a6fba2d7521 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Mon, 31 Jul 2017 09:52:00 +0200 Subject: [PATCH] Fixt #281 Fertigen nicht transaktionssicher MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit return 0 verlässt den eval block, aber macht kein Rollback Ein sauberes "die" funktioniert wie gewollt. Die Rückmeldung an den Anwender ist jetzt allerdings etwas kryptischer. --- SL/WH.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/SL/WH.pm b/SL/WH.pm index 895db95e5..bcdffa511 100644 --- a/SL/WH.pm +++ b/SL/WH.pm @@ -312,9 +312,7 @@ sub transfer_assembly { } # gibt die Fehlermeldung zurück. A.) Keine Teile definiert # B.) Artikel und Anzahl der fehlenden Teile/Dienstleistungen - if ($kannNichtFertigen) { - return 0; - } + die "

" . $kannNichtFertigen if ($kannNichtFertigen); # soweit alles gut. Jetzt noch die wirkliche Lagerbewegung für das Erzeugnis ausführen ... my $transferAssemblySQL = qq|INSERT INTO inventory (parts_id, warehouse_id, bin_id, chargenumber, bestbefore, -- 2.20.1