projekt kivitendo

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

  my $sthTransferPartSQL   = prepare_query($form, $dbh, $transferPartSQL);

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

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

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

    if ($partsQTY  > $max_parts){

      # Gibt es hier ein Problem mit nicht "escapten" Zeichen? 25.4.09 Antwort: Ja.  Aber erst wenn im Frontend die locales-Funktion aufgerufen wird

      next; # die weiteren Überprüfungen sind unnötig

    }

      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?

        # 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

        # 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

  my $self     = shift;

  my %params   = @_;

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;