X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4c01b1b28e9a7c871e9da06e1c9aee960ce04f64..fe249cf48f36d113f44dbf355f10de1ed4035bd9:/SL/WH.pm 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,