Revision 3160b088
Von Martin Helmling martin.helmling@octosoft.eu vor mehr als 8 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 210 | 210 |
|
| 211 | 211 |
my $partsQTY = $hash_ref->{qty} * $params{qty}; # benötigte teile * anzahl erzeugnisse
|
| 212 | 212 |
my $currentPart_ID = $hash_ref->{parts_id};
|
| 213 |
|
|
| 214 |
# Prüfen ob Erzeugnis-Teile Standardlager haben. |
|
| 215 |
if ($use_default_warehouse && ! $hash_ref->{warehouse_id}) {
|
|
| 216 |
# Prüfen ob in Mandantenkonfiguration ein Standardlager aktiviert isti. |
|
| 217 |
if ($::instance_conf->get_transfer_default_ignore_onhand) {
|
|
| 218 |
$hash_ref->{warehouse_id} = $::instance_conf->get_warehouse_id_ignore_onhand;
|
|
| 219 |
} else {
|
|
| 220 |
$kannNichtFertigen .= "Kein Standardlager: " . |
|
| 221 |
" Die Ware " . $self->get_part_description(parts_id => $currentPart_ID) . |
|
| 222 |
" hat kein Standardlager definiert " . |
|
| 223 |
", um das Erzeugnis herzustellen. <br>"; |
|
| 224 |
next; |
|
| 225 |
} |
|
| 226 |
} |
|
| 213 | 227 |
my $currentPart_WH_ID = $use_default_warehouse ? $hash_ref->{warehouse_id} : $params{dst_warehouse_id};
|
| 214 | 228 |
my $warehouse_info = $self->get_basic_warehouse_info('id'=> $currentPart_WH_ID);
|
| 215 | 229 |
my $warehouse_desc = $warehouse_info->{"warehouse_description"};
|
Auch abrufbar als: Unified diff
Funktion "Erzeugnis fertigen" sucht Bestandteile im falschen Lager.(4)
Falls das Bestandteil bei gesetztem "transfer_default_warehouse_for_assembly"
kein Standardlager besitzt und es kein "Standard-Lager für Auslagern ohne Prüfung auf Bestand"
in der Mandantenkonfig gesetzt ist,
wird eine Fehlermeldung erzeugt.
Dies ist nun die vollständige Implementierung dieser Sache von OD.