projekt kivitendo

  # Ablauferklärung

  #

  # ... Standard-Check oben Ende. Hier die eigentliche SQL-Abfrage

  # select parts_id,qty from assembly where id=1064;

  # 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 ...

  # patch von joachim eingespielt 24.4.2009:

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

  # Hier wird das prepared Statement für die Schleife über alle Lagerplätze vorbereitet

      # 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) . " Stueck 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

    # Eine kurze Vorabfrage, um den Lagerplatz und die Chargennummber zu bestimmen

    # Offen: Die Summe über alle Lagerplätze wird noch nicht gebildet

    # Gelöst: Wir haben vorher schon die Abfrage durchgeführt, ob wir fertigen können.

    # Noch besser gelöst: Wir laufen durch alle benötigten Waren zum Fertigen und geben eine Rückmeldung an den Benutzer was noch fehlt

    # und lösen den Rest dann so wie bei xplace im Barcode-Programm

    # S.a. Kommentar im bin/mozilla-Code mb übernimmt und macht das in ordentlich

  }

  # TODO Es wäre schön, hier schon die maximale Anzahl der zu fertigenden Erzeugnisse zu haben  

  #else { if ($form->{qty} > $maxcreate) {	#s.o.

  #	    $form->show_generic_error($locale->text('Can not create that quantity with current stock'), 'back_button' => 1);

  #	    $form->show_generic_error('Maximale Stückzahl' . $maxcreate , 'back_button' => 1);

  #	  } 

  #  }

  # WIESO war das nicht vorher schon ein %HASH?? ein hash ist ein hash! das hat mich mehr als eine Stunde gekostet herauszufinden. grr. jb 3.3.2009

  # Anm. jb 18.3. vielleicht auch nur meine unwissenheit in perl-datenstrukturen

    'comment'          => $form->{comment}

  # Frage: Ich pack in den return-wert auch gleich die Fehlermeldung. Irgendwelche Nummern als Fehlerkonstanten definieren find ich auch nicht besonders schick...

  # Ideen? jb 18.3.09

    # Die locale-Funktion kann keine Double-Quotes escapen, deswegen hier erstmal so (ein wahrscheinlich immerwährender Hotfix) s.a. Frage davor jb 25.4.09

    $form->show_generic_error($ret, 'back_button' => 1);