Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 9227f81d

Von Martin Helmling martin.helmling@octosoft.eu vor mehr als 8 Jahren hinzugefügt

  • ID 9227f81db26d209ffab778bf9520798f6cbf7f0e
  • Vorgänger 4f611e17
  • Nachfolger d38c6c0e

Fertigen ohne Prüfung nach Bestand(2)

Das Prüfen ob Lager das "Standard-Lager für Auslagern ohne Prüfung auf Bestand"
ist genügt nicht, es können Bauteile dieses Lager auch als Standardlager haben

Unterschiede anzeigen:

SL/WH.pm
211 211
    my $partsQTY          = $hash_ref->{qty} * $params{qty}; # benötigte teile * anzahl erzeugnisse
212 212
    my $currentPart_ID    = $hash_ref->{parts_id};
213 213

  
214
    my $currentPart_WH_ID = $use_default_warehouse && $hash_ref->{warehouse_id} ? $hash_ref->{warehouse_id} : $params{dst_warehouse_id};
215
    my $no_check = 0;
216

  
214 217
    # Prüfen ob Erzeugnis-Teile Standardlager haben.
215 218
    if ($use_default_warehouse && ! $hash_ref->{warehouse_id}) {
216 219
      # Prüfen ob in Mandantenkonfiguration ein Standardlager aktiviert isti.
217 220
      if ($::instance_conf->get_transfer_default_ignore_onhand) {
218
        $hash_ref->{warehouse_id} = $::instance_conf->get_warehouse_id_ignore_onhand;
221
        $currentPart_WH_ID = $::instance_conf->get_warehouse_id_ignore_onhand;
222
        $no_check = 1;
219 223
      } else {
220 224
        $kannNichtFertigen .= "Kein Standardlager: " .
221 225
                            " Die Ware " . $self->get_part_description(parts_id => $currentPart_ID) .
......
224 228
        next;
225 229
      }
226 230
    }
227
    my $currentPart_WH_ID = $use_default_warehouse ? $hash_ref->{warehouse_id} : $params{dst_warehouse_id};
228 231
    my $warehouse_info    = $self->get_basic_warehouse_info('id'=> $currentPart_WH_ID);
229 232
    my $warehouse_desc    = $warehouse_info->{"warehouse_description"};
230 233

  
231 234
    # Fertigen ohne Prüfung nach Bestand
232
    if ($currentPart_WH_ID == $::instance_conf->get_warehouse_id_ignore_onhand) {
235
    if ($no_check) {
233 236
      my $temppart_bin_id       = $::instance_conf->get_bin_id_ignore_onhand;
234 237
      my $temppart_chargenumber = "";
235 238
      my $temppart_bestbefore   = localtime();
doc/changelog
10 10
    Statt das Ziellager des Erzeugnisses zu Verwenden, wird nun zur Prüfung der Fertigung das
11 11
    Standardlager der einzelnen Bestandteile verwendet.
12 12
    Hat das Bestandteil kein Standardlager, so wird das "Standard-Lager für Auslagern ohne Prüfung auf Bestand"
13
    verwendeti und ohne Prüfung ausgelagert. Ist dieses nicht gesetzt, wird eine Fehlermeldung erzeugt.
13
    verwendet und ohne Prüfung ausgelagert. Ist dieses nicht gesetzt, wird eine Fehlermeldung erzeugt.
14 14

  
15 15
  - Neues Recht "Verknüpfte Belege", standardmäßig erlaubt. Betrifft alle
16 16
    Belege und die Projektstammdaten

Auch abrufbar als: Unified diff