X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/c5886efc9a89686ac51bad4f822965dfb0487b49..b8fc23615be0ad6d89a8dda296c71c4023b25359:/sql/Pg-upgrade2/default_bin_parts.pl diff --git a/sql/Pg-upgrade2/default_bin_parts.pl b/sql/Pg-upgrade2/default_bin_parts.pl index 89ec6195e..948067cf7 100644 --- a/sql/Pg-upgrade2/default_bin_parts.pl +++ b/sql/Pg-upgrade2/default_bin_parts.pl @@ -66,7 +66,9 @@ sub run { foreach my $i (1 .. $::form->{rowcount}) { # Best Case: Lagerplatz aus Liste gewählt - if ($::form->{"bin_id_$i"}) { + # bei zurückspringen auf leeres lager, wird der lagerplatz nicht zurückgesetzt + # erstmal an dieser stelle abfangen, damit nichts angelegt wird + if ($::form->{"bin_id_$i"} && $::form->{"warehouse_id_$i"}) { $prepared_update_query->execute($::form->{"warehouse_id_$i"}, $::form->{"bin_id_$i"}, $::form->{"partid_$i"}) || $self->db_error($update_query); } elsif ($CREATE_BINS) { # Lager vorhanden, bzw. vorher erstellt. alte bins automatisch hinzufügen und zum Standardlagerplatz verdrahten