projekt kivitendo

  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)|;

                           VALUES (?, ?, ?, ?, ?,(SELECT id FROM employee WHERE login = ?), ?, nextval('id'),

                           (SELECT id FROM transfer_type WHERE direction = 'out' AND description = 'used'))|;

  my $kannNichtFertigen ="";  # der return-string für die fehlermeldung inkl. welche waren zum fertigen noch fehlen

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

      $kannNichtFertigen .= "Zum Fertigen fehlen:" . abs($partsQTY - $max_parts) . " Einheiten der Ware:" . get_part_description($self, 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

    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|;

    my $tempsth   = prepare_execute_query($form, $dbh, $tempquery, $params{dst_warehouse_id}, $currentPart_ID);

      my $temppart_bin_id       = $temphash_ref->{bin_id}; # kann man hier den quelllagerplatz beim verbauen angeben?

      my $temppart_chargenumber = $temphash_ref->{chargenumber};

      my $temppart_qty          = $temphash_ref->{sum};

      if ($tmpPartsQTY > $temppart_qty) {  # wir haben noch mehr waren zum wegbuchen. Wir buchen den kompletten Lagerplatzbestand und zählen die Hilfsvariable runter

        $tmpPartsQTY = $tmpPartsQTY - $temppart_qty;

        $temppart_qty = $temppart_qty * -1; # 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 ' . get_part_description($self, parts_id => $params{assembly_id}), $params{login}, $temppart_qty);

        # hier ist noch ein fehler am besten mit definierten erzeugnissen debuggen 02/2009 jb

        # idee: ausbuch algorithmus mit rekursion lösen und an- und abschaltbar machen

        # das problem könnte sein, dass strict nicht an war und sth global eine andere zuweisung bekam

        # auf jeden fall war der internal-server-error nach aktivierung von strict und warnings plus ein paar my-definitionen weg

      } else { # okay, wir haben weniger oder gleich Waren die wir wegbuchen müssen, wir können also aufhören

        $tmpPartsQTY *=-1;

        last; # beendet die schleife (springt zum letzten element)

    }  # ende while SELECT SUM(qty), bin_id, chargenumber   FROM inventory  WHERE warehouse_id

                               VALUES (?, ?, ?, ?, ?, (SELECT id FROM employee WHERE login = ?), ?, nextval('id'),

                               (SELECT id FROM transfer_type WHERE direction = 'in' AND description = 'stock'))|;

  return 1; # Alles erfolgreich

#  - ean          - will return only matches where the given string is a substring of the ean as stored in the table parts (article)

     "ean"                  => "p.ean",

# Eingabe:  Teilenummer, Lagernummer (warehouse)

# Ausgabe:  Die maximale Anzahl der Teile in diesem Lager

  while (my $ref = $sth_QTY->fetchrow_hashref()) {  # wir laufen über alle chargen und Lagerorte (s.a. SQL-Query oben)

# Eingabe:  Teilenummer, Lagernummer (warehouse)

# Ausgabe:  Die Beschreibung der Ware bzw. Erzeugnis