Revision 08b73909
Von Martin Helmling vor fast 11 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
| 457 | 457 |
|
| 458 | 458 |
# add assembly records |
| 459 | 459 |
if ($form->{item} eq 'assembly') {
|
| 460 |
# check additional assembly row |
|
| 461 |
my $i = $form->{assembly_rows};
|
|
| 462 |
# if last row is not empty add them |
|
| 463 |
if ($form->{"partnumber_$i"} ne "") {
|
|
| 464 |
$query = qq|SELECT id FROM parts WHERE partnumber = ?|; |
|
| 465 |
my ($partid) = selectrow_query($form, $dbh, $query,$form->{"partnumber_$i"} );
|
|
| 466 |
if ( $partid ) {
|
|
| 467 |
$form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
|
|
| 468 |
$form->{"id_$i"} = $partid;
|
|
| 469 |
$form->{"bom_$i"} = 0;
|
|
| 470 |
$form->{assembly_rows}++;
|
|
| 471 |
} |
|
| 472 |
else {
|
|
| 473 |
$::form->error($::locale->text("uncorrect partnumber ").$form->{"partnumber_$i"});
|
|
| 474 |
} |
|
| 475 |
} |
|
| 460 | 476 |
|
| 461 | 477 |
for my $i (1 .. $form->{assembly_rows}) {
|
| 462 | 478 |
$form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
|
| ... | ... | |
| 469 | 485 |
do_query($form, $dbh, $query, @values); |
| 470 | 486 |
} |
| 471 | 487 |
} |
| 472 |
|
|
| 473 | 488 |
my @a = localtime; |
| 474 | 489 |
$a[5] += 1900; |
| 475 | 490 |
$a[4]++; |
Auch abrufbar als: Unified diff
Direktes Speichern beim Hinzufügen eines Artikels
per eindeutiger Artikelnummer wird zugelassen.
Ein Hinzufügen über Beschreibung oder Warengruppe wird ignoriert.
Behebt #2040
Commit 2bc376b9be6507cc0fdf
Behebt #2047
Behebt #2400