Revision 5ea712a2
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 1785 | 1785 |
$form->{description}, $form->{invalid} ? 't' : 'f', conv_i($form->{id}));
|
| 1786 | 1786 |
|
| 1787 | 1787 |
if (0 < $form->{number_of_new_bins}) {
|
| 1788 |
my ($num_existing_bins) = selectfirst_array_query($form, $dbh, qq|SELECT COUNT(*) FROM bin WHERE warehouse_id = ?|, $form->{id});
|
|
| 1788 | 1789 |
$query = qq|INSERT INTO bin (warehouse_id, description) VALUES (?, ?)|; |
| 1789 | 1790 |
$sth = prepare_query($form, $dbh, $query); |
| 1790 | 1791 |
|
| 1791 | 1792 |
foreach my $i (1..$form->{number_of_new_bins}) {
|
| 1792 |
do_statement($form, $sth, $query, conv_i($form->{id}), "$form->{prefix}${i}");
|
|
| 1793 |
do_statement($form, $sth, $query, conv_i($form->{id}), "$form->{prefix}" . ($i + $num_existing_bins));
|
|
| 1793 | 1794 |
} |
| 1794 | 1795 |
|
| 1795 | 1796 |
$sth->finish(); |
Auch abrufbar als: Unified diff
Lagerplätze anlegen: Nummerierung mit Anzahl existierender Lagerplätze starten
...und nicht mit 1, weil ansonsten beim mehrfachen Anlegen die Nummern
doppelt und dreifach vergeben werden. Fixt #2325.