Revision 64c39b74
Von Jan Büren vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/wh.pl | ||
|---|---|---|
| 377 | 377 |
# wir brauchen eine hilfsfunktion, die nee. brauchen wir nicht. der algorithmus läuft genau wie bei check max_create, nur dass hier auch eine lagerbewegung (verbraucht) stattfindet |
| 378 | 378 |
# Manko ist derzeit noch, dass unterschiedliche Lagerplätze, bzw. das Quelllager an sich nicht ausgewählt werden können. |
| 379 | 379 |
# Laut Absprache in KW11 09 übernimmt mb hier den rest im April ... jb 18.3.09 |
| 380 |
|
|
| 380 | 381 |
sub create_assembly {
|
| 381 |
# my $maxcreate=shift; # oben begonnene auskommentierte idee, hier als motiv weiterverfolgen (umkehrungen und sequenzierungen als stilmittel nicht vergessen) |
|
| 382 | 382 |
$lxdebug->enter_sub(); |
| 383 | 383 |
|
| 384 | 384 |
$form->{qty} = $form->parse_amount(\%myconfig, $form->{qty});
|
| 385 |
# my $maxcreate = WH->check_assembly_max_create(assembly_id => $form->{parts_id});
|
|
| 386 | 385 |
if ($form->{qty} <= 0) {
|
| 387 | 386 |
$form->show_generic_error($locale->text('Invalid quantity.'), 'back_button' => 1);
|
| 388 |
} #else { if ($form->{qty} > $maxcreate) { #s.o.
|
|
| 389 |
# $form->show_generic_error($locale->text('Can not create that quantity with current stock'), 'back_button' => 1);
|
|
| 390 |
# $form->show_generic_error('Maximale Stückzahl' . $maxcreate , 'back_button' => 1);
|
|
| 391 |
# } |
|
| 392 |
# } |
|
| 387 |
} |
|
| 388 |
# TODO Es wäre schön, hier schon die maximale Anzahl der zu fertigenden Erzeugnisse zu haben |
|
| 389 |
#else { if ($form->{qty} > $maxcreate) { #s.o.
|
|
| 390 |
# $form->show_generic_error($locale->text('Can not create that quantity with current stock'), 'back_button' => 1);
|
|
| 391 |
# $form->show_generic_error('Maximale Stückzahl' . $maxcreate , 'back_button' => 1);
|
|
| 392 |
# } |
|
| 393 |
# } |
|
| 393 | 394 |
|
| 394 | 395 |
if (!$form->{warehouse_id} || !$form->{bin_id}) {
|
| 395 | 396 |
$form->error($locale->text('The warehouse or the bin is missing.'));
|
| 396 | 397 |
} |
| 397 |
# WIESO war das nicht vorher schon ein %HASH?? ein hash ist ein hash! das hat mich mehr als eine Stunde gekostet herauszufinden. grr. jb 3.3.2009 |
|
| 398 |
# Anm. jb 18.3. vielleicht auch nur meine unwissenheit in perl-datenstrukturen |
|
| 398 |
# WIESO war das nicht vorher schon ein %HASH?? ein hash ist ein hash! das hat mich mehr als eine Stunde gekostet herauszufinden. grr. jb 3.3.2009
|
|
| 399 |
# Anm. jb 18.3. vielleicht auch nur meine unwissenheit in perl-datenstrukturen
|
|
| 399 | 400 |
my %TRANSFER = ( |
| 400 | 401 |
'transfer_type' => 'assembly', |
| 401 | 402 |
'login' => $form->{login},
|
| ... | ... | |
| 405 | 406 |
'assembly_id' => $form->{parts_id},
|
| 406 | 407 |
'qty' => $form->{qty},
|
| 407 | 408 |
'unit' => $form->{unit},
|
| 408 |
'comment' => $form->{comment},
|
|
| 409 |
'comment' => $form->{comment}
|
|
| 409 | 410 |
); |
| 410 | 411 |
|
| 411 | 412 |
my $ret = WH->transfer_assembly (%TRANSFER); |
| 412 |
# Frage: Ich pack in den return-wert auch gleich die Fehlermeldung. Irgendwelche Nummern als Fehlerkonstanten definieren find ich auch nicht besonders schick... |
|
| 413 |
# Ideen? jb 18.3.09 |
|
| 413 |
# Frage: Ich pack in den return-wert auch gleich die Fehlermeldung. Irgendwelche Nummern als Fehlerkonstanten definieren find ich auch nicht besonders schick...
|
|
| 414 |
# Ideen? jb 18.3.09
|
|
| 414 | 415 |
if ($ret ne "1"){
|
| 415 |
$form->show_generic_error($locale->text($ret), 'back_button' => 1); |
|
| 416 |
# Die locale-Funktion kann keine Double-Quotes escapen, deswegen hier erstmal so (ein wahrscheinlich immerwährender Hotfix) s.a. Frage davor jb 25.4.09 |
|
| 417 |
$form->show_generic_error($ret, 'back_button' => 1); |
|
| 416 | 418 |
} |
| 417 | 419 |
|
| 418 | 420 |
delete @{$form}{qw(parts_id partnumber description qty unit chargenumber comment)};
|
Auch abrufbar als: Unified diff
Die hoffentlich letzten Änderungen um den Bug 935 zu schliessen. Ferner eine Anpassung im Frontend, um die Fehlermeldung bei Artikeln mit double-quotes 'erscheinen' zu lassen