projekt kivitendo

  # Erweiterung für bug 935 am 23.4.09 - 

  # Erzeugnisse können Dienstleistungen enthalten, die ja nicht 'lagerbar' sind.

  # select parts_id,qty from assembly inner join parts on assembly.parts_id = parts.id  

  # where assembly.id=1066 and inventory_accno_id IS NOT NULL;

  #

  # Erweiterung für bug 23.4.09 -2 Erzeugnisse in Erzeugnissen können nicht ausgelagert werden, 

  # wenn assembly nicht überprüft wird ...

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

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

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

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

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

                                             warehouse_id => $params{dst_warehouse_id});

      # Gibt es hier ein Problem mit nicht "escapten" Zeichen? 

      # 25.4.09 Antwort: Ja.  Aber erst wenn im Frontend die locales-Funktion aufgerufen wird

      $kannNichtFertigen .= "Zum Fertigen fehlen:" . abs($partsQTY - $max_parts) . 

                            " Einheiten der Ware:" . $self->get_part_description(parts_id => $currentPart_ID) .

                            ", um das Erzeugnis herzustellen. <br>"; # Konnte die Menge nicht mit der aktuellen Anzahl der Waren fertigen

      next; # die weiteren Überprüfungen sind unnötig, daher das nächste elemente prüfen (genaue Ausgabe, was noch fehlt)

    my $tempquery = qq|SELECT SUM(qty), bin_id, chargenumber   FROM inventory  

                       WHERE warehouse_id = ? AND parts_id = ?  GROUP BY bin_id, chargenumber having SUM(qty)>0|;

      if ($tmpPartsQTY > $temppart_qty) {  # wir haben noch mehr waren zum wegbuchen. 

                                           # Wir buchen den kompletten Lagerplatzbestand und zählen die Hilfsvariable runter

        $temppart_qty = $temppart_qty * -1; # TODO beim analyiseren des sql-trace, war dieser wert positiv, 

                                            # wenn * -1 als berechnung in der parameter-übergabe angegeben wird. 

                                            # Dieser Wert IST und BLEIBT positiv!! Hilfe. 

                                            # Liegt das daran, dass dieser Wert aus einem SQL-Statement stammt?

        do_statement($form, $sthTransferPartSQL, $transferPartSQL, $currentPart_ID, $params{dst_warehouse_id}, 

                     $temppart_bin_id, $temppart_chargenumber, 'Verbraucht für ' .

                     $self->get_part_description(parts_id => $params{assembly_id}), $params{login}, $temppart_qty);

        do_statement($form, $sthTransferPartSQL, $transferPartSQL, $currentPart_ID, $params{dst_warehouse_id},

                     $temppart_bin_id, $temppart_chargenumber, 'Verbraucht für ' .

                     $self->get_part_description(parts_id => $params{assembly_id}), $params{login}, $tmpPartsQTY);

  my $transferAssemblySQL = qq|INSERT INTO inventory (parts_id, warehouse_id, bin_id, chargenumber, 

                                                      comment, employee_id, qty, trans_id, trans_type_id)

  do_statement($form, $sthTransferAssemblySQL, $transferAssemblySQL, $params{assembly_id}, $params{dst_warehouse_id}, 

               $params{dst_bin_id}, $params{chargenumber}, $params{comment}, $params{login}, $params{qty});