Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 452b8c10

Von Kivitendo Admin vor mehr als 8 Jahren hinzugefügt

  • ID 452b8c102a35d5284ef9c1492c7a43306beb9825
  • Vorgänger 8eac1d2c
  • Nachfolger 8814ec73

Einrückungen in WH.pm

Unterschiede anzeigen:

SL/WH.pm
187 187 

  		




  188
  188
  
    
  my $use_default_warehouse = $::instance_conf->get_transfer_default_warehouse_for_assembly;


  		




  189
  189
  
    

  		




  190
  
  
    
  my $query = qq|select assembly.parts_id, assembly.qty, parts.warehouse_id from assembly inner join parts on assembly.parts_id = parts.id


  		




  191
  
  
    
                  where assembly.id = ? and (inventory_accno_id IS NOT NULL or parts.assembly = TRUE)|;


  		




  
  190
  
    
  my $query = qq|SELECT assembly.parts_id, assembly.qty, parts.warehouse_id


  		




  
  191
  
    
                 FROM assembly INNER JOIN parts ON assembly.parts_id = parts.id


  		




  
  192
  
    
                 WHERE assembly.id = ? AND (inventory_accno_id IS NOT NULL OR parts.assembly = TRUE)|;


  		




  192
  193
  
    

  		




  193
  194
  
    
  my $sth_part_qty_assembly = prepare_execute_query($form, $dbh, $query, $params{assembly_id});


  		




  194
  195
  
    

  		




  ......




  206
  207
  
    
  my $schleife_durchlaufen=0; # Falls die Schleife nicht ausgeführt wird -> Keine Einzelteile definiert. Bessere Idee? jan


  		




  207
  208
  
    
  while (my $hash_ref = $sth_part_qty_assembly->fetchrow_hashref()) { #Schleife für select parts_id,(...) from assembly


  		




  208
  209
  
    
    $schleife_durchlaufen=1;  # Erzeugnis definiert


  		




  209
  
  
    
    my $partsQTY = $hash_ref->{qty} * $params{qty}; # benötigte teile * anzahl erzeugnisse


  		




  210
  
  
    
    my $currentPart_ID = $hash_ref->{parts_id};


  		




  
  210
  
    

  		




  
  211
  
    
    my $partsQTY          = $hash_ref->{qty} * $params{qty}; # benötigte teile * anzahl erzeugnisse


  		




  
  212
  
    
    my $currentPart_ID    = $hash_ref->{parts_id};


  		




  211
  213
  
    
    my $currentPart_WH_ID = $use_default_warehouse ? $hash_ref->{warehouse_id} : $params{dst_warehouse_id};


  		




  212
  
  
    
    my $warehouse_info = $self->get_basic_warehouse_info('id' => $currentPart_WH_ID);


  		




  213
  
  
    
    my $warehouse_desc = $warehouse_info->{"warehouse_description"};


  		




  
  214
  
    
    my $warehouse_info    = $self->get_basic_warehouse_info('id'=> $currentPart_WH_ID);


  		




  
  215
  
    
    my $warehouse_desc    = $warehouse_info->{"warehouse_description"};


  		




  214
  216
  
    

  		




  215
  217
  
    
    # Überprüfen, ob diese Anzahl gefertigt werden kann


  		




  216
  
  
    
    my $max_parts = $self->get_max_qty_parts(parts_id => $currentPart_ID, # $self->method() == this.method()


  		




  
  218
  
    
    my $max_parts = $self->get_max_qty_parts(parts_id     => $currentPart_ID, # $self->method() == this.method()


  		




  217
  219
  
    
                                             warehouse_id => $currentPart_WH_ID);


  		




  218
  220
  
    

  		




  219
  221
  
    
    if ($partsQTY  > $max_parts){


  		












Auch abrufbar als:  Unified diff