Revision 5caaac6b
Von Jan Büren vor etwa 10 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
| 1593 | 1593 |
my $qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
|
| 1594 | 1594 |
|
| 1595 | 1595 |
# if we do not want to transfer services and this part is a service, set qty to zero |
| 1596 |
# ... and do not create a hash entry in %qty_parts below (will skip check for bins for the transfer == out case) |
|
| 1597 |
# ... and push only a empty (undef) element to @all_requests (will skip check for bin_id and warehouse_id and will not alter the row) |
|
| 1598 |
|
|
| 1596 | 1599 |
$qty = 0 if (!$::instance_conf->get_transfer_default_services && !defined($part_info_map{$form->{"id_$i"}}->{inventory_accno_id}) && !$part_info_map{$form->{"id_$i"}}->{assembly});
|
| 1597 | 1600 |
$qty_parts{$form->{"id_$i"}} += $qty;
|
| 1598 |
|
|
| 1601 |
delete $qty_parts{$form->{"id_$i"}} if $qty == 0;
|
|
| 1599 | 1602 |
|
| 1600 | 1603 |
$part_info_map{$form->{"id_$i"}}{bin_id} ||= $default_bin_id;
|
| 1601 | 1604 |
$part_info_map{$form->{"id_$i"}}{warehouse_id} ||= $default_warehouse_id;
|
| 1602 | 1605 |
|
| 1603 |
push @all_requests, {
|
|
| 1606 |
push @all_requests, ($qty == 0) ? undef : {
|
|
| 1604 | 1607 |
'chargenumber' => '', #?? die müsste entsprechend geholt werden |
| 1605 | 1608 |
#'bestbefore' => undef, # TODO wird nicht berücksichtigt |
| 1606 | 1609 |
'bin_id' => $part_info_map{$form->{"id_$i"}}{bin_id},
|
| ... | ... | |
| 1616 | 1619 |
} |
| 1617 | 1620 |
|
| 1618 | 1621 |
# jetzt wird erst überprüft, ob die Stückzahl entsprechend stimmt. |
| 1619 |
if ($params{direction} eq 'out') { # wird nur für ausgehende Mengen benötigit
|
|
| 1620 |
foreach my $key (keys %qty_parts) {
|
|
| 1621 |
|
|
| 1622 |
$missing_default_bins{$key}{missing_bin} = 1 unless ($part_info_map{$key}{bin_id});
|
|
| 1623 |
next unless ($part_info_map{$key}{bin_id}); # abbruch
|
|
| 1622 |
# check if bin (transfer in and transfer out and qty (transfer out) is correct |
|
| 1623 |
foreach my $key (keys %qty_parts) {
|
|
| 1624 |
$missing_default_bins{$key}{missing_bin} = 1 unless ($part_info_map{$key}{bin_id});
|
|
| 1625 |
next unless ($part_info_map{$key}{bin_id}); # abbruch
|
|
| 1624 | 1626 |
|
| 1627 |
if ($params{direction} eq 'out') { # wird nur für ausgehende Mengen benötigt
|
|
| 1625 | 1628 |
my ($max_qty, $error) = WH->get_max_qty_parts_bin(parts_id => $key, bin_id => $part_info_map{$key}{bin_id});
|
| 1626 | 1629 |
if ($error == 1) {
|
| 1627 | 1630 |
# wir können nicht entscheiden, welche charge oder mhd (bestbefore) ausgewählt sein soll |
Auch abrufbar als: Unified diff
Standard-Auslager-Verfahren verbessert (Dienstleistungen)
a) Falls Dienstleistungen nicht per Standardverfahren
ein- oder ausgelagert werden sollen, entsprechend NICHT auslagern.
Meine erste Idee, einfach die Menge auf 0 zu setzen funktioniert nur dann,
wenn auch ein Standardlagerplatz für die Dienstleistung oder Mandanten gesetzt ist.
Ferner wird dann eine Lagerbewegung mit der Menge 0 noch in inventory gemacht.
Folgende Ergänzungen: a) Menge auf 0, b) delete für Prüfung auf "Mengen-Hash" (qty)
c) ein undef Element in dem Array all_requests hinzugefügt, sodass DO.pm (unpack_stock_info)
in demselben Format die Daten empfängt wie beim manuellen Auslagern, wenn eine Position nicht
per Fragezeichen ausgelagert wird.
b) Ergänzung ob beim Einlagern per Standard-Einlagern ein Standard-Lagerplatz für
die Ware / Dienstleistung gesetzt ist, anstatt der Ausgabe eines SQL-Fehlers
Testfälle für a)
Notwendige Bedingung: Auslagern über Standardlagerplatz aktiviert