my $partsQTY = $hash_ref->{qty} * $params{qty}; # benötigte teile * anzahl erzeugnisse
my $currentPart_ID = $hash_ref->{parts_id};
+ my $currentPart_WH_ID = $use_default_warehouse && $hash_ref->{warehouse_id} ? $hash_ref->{warehouse_id} : $params{dst_warehouse_id};
+ my $no_check = 0;
+
# Prüfen ob Erzeugnis-Teile Standardlager haben.
if ($use_default_warehouse && ! $hash_ref->{warehouse_id}) {
# Prüfen ob in Mandantenkonfiguration ein Standardlager aktiviert isti.
if ($::instance_conf->get_transfer_default_ignore_onhand) {
- $hash_ref->{warehouse_id} = $::instance_conf->get_warehouse_id_ignore_onhand;
+ $currentPart_WH_ID = $::instance_conf->get_warehouse_id_ignore_onhand;
+ $no_check = 1;
} else {
$kannNichtFertigen .= "Kein Standardlager: " .
" Die Ware " . $self->get_part_description(parts_id => $currentPart_ID) .
next;
}
}
- my $currentPart_WH_ID = $use_default_warehouse ? $hash_ref->{warehouse_id} : $params{dst_warehouse_id};
my $warehouse_info = $self->get_basic_warehouse_info('id'=> $currentPart_WH_ID);
my $warehouse_desc = $warehouse_info->{"warehouse_description"};
# Fertigen ohne Prüfung nach Bestand
- if ($currentPart_WH_ID == $::instance_conf->get_warehouse_id_ignore_onhand) {
+ if ($no_check) {
my $temppart_bin_id = $::instance_conf->get_bin_id_ignore_onhand;
my $temppart_chargenumber = "";
my $temppart_bestbefore = localtime();
Statt das Ziellager des Erzeugnisses zu Verwenden, wird nun zur Prüfung der Fertigung das
Standardlager der einzelnen Bestandteile verwendet.
Hat das Bestandteil kein Standardlager, so wird das "Standard-Lager für Auslagern ohne Prüfung auf Bestand"
- verwendeti und ohne Prüfung ausgelagert. Ist dieses nicht gesetzt, wird eine Fehlermeldung erzeugt.
+ verwendet und ohne Prüfung ausgelagert. Ist dieses nicht gesetzt, wird eine Fehlermeldung erzeugt.
- Neues Recht "Verknüpfte Belege", standardmäßig erlaubt. Betrifft alle
Belege und die Projektstammdaten