Revision f41e5b6e
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
| sql/Pg-upgrade2/erzeugnisnummern.pl | ||
|---|---|---|
| 25 | 25 |
} |
| 26 | 26 |
|
| 27 | 27 |
sub do_update {
|
| 28 |
my $query = qq|SELECT id, partnumber, description, unit, notes, assembly, ean, inventory_accno_id |
|
| 28 |
if ( $main::form->{'continued'} ) {
|
|
| 29 |
my $update_query; |
|
| 30 |
foreach my $i (1 .. $main::form->{rowcount}) {
|
|
| 31 |
$update_query = qq|UPDATE parts SET partnumber = '| . $main::form->{"partnumber_$i"} . qq|' WHERE id = | . $main::form->{"partid_$i"};
|
|
| 32 |
do_query($update_query); |
|
| 33 |
print FH $i; |
|
| 34 |
} |
|
| 35 |
$dbh->commit(); |
|
| 36 |
} |
|
| 37 |
|
|
| 38 |
my $query = qq|SELECT id, partnumber, description, unit, notes, assembly, ean, inventory_accno_id |
|
| 29 | 39 |
FROM parts pa |
| 30 | 40 |
WHERE (SELECT COUNT(*) |
| 31 | 41 |
FROM parts p |
| ... | ... | |
| 38 | 48 |
|
| 39 | 49 |
$main::form->{PARTS} = [];
|
| 40 | 50 |
while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
|
| 51 |
map {$ref->{$_} = $::locale->{iconv_utf8}->convert($ref->{$_})} keys %$ref;
|
|
| 41 | 52 |
push @{ $main::form->{PARTS} }, $ref;
|
| 42 | 53 |
} |
| 43 | 54 |
|
| 44 | 55 |
if ( scalar @{ $main::form->{PARTS} } > 0 ) {
|
| 45 | 56 |
&print_error_message; |
| 46 |
return 0;
|
|
| 57 |
return 2;
|
|
| 47 | 58 |
} |
| 48 | 59 |
|
| 49 | 60 |
$query = qq|ALTER TABLE parts ADD UNIQUE (partnumber)|; |
Auch abrufbar als: Unified diff
Verbesserung Upgrade-Script Erzeugnisnummern
Die Änderung macht es dem Benutzer möglich, direkt beim Update
Artikelnummern zu ändern. Weiterhin wurde noch Text ergänzt, der
dem Benutzer die Änderung erläutert.