Fixt #281 Fertigen nicht transaktionssicher

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.

diff --git a/SL/WH.pm b/SL/WH.pm
index 895db95..bcdffa5 100644 (file)
--- 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 "<br><br>" . $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,