projekt kivitendo

  my ($now)     = selectrow_query($form, $dbh, qq|SELECT current_date|);

                                     employee_id, project_id, trans_id, trans_type_id, comment, qty)

  $sth   = prepare_query($form, $dbh, $query);

    $direction |= 1 if ($transfer->{src_warehouse_id} && $transfer->{src_bin_id});

    $direction |= 2 if ($transfer->{dst_warehouse_id} && $transfer->{dst_bin_id});

    push @values, $transfer->{shippingdate} eq 'current_date' ? $now : conv_date($transfer->{shippingdate}), $form->{login}, conv_i($transfer->{project_id}), $trans_id;

    if ($transfer->{transfer_type_id}) {

  my $self     = shift;

  my %params   = @_;

#  my $maxcreate=WH->check_assembly_max_create(assembly_id =>$params{'assembly_id'}, dbh => $my_dbh);

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

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

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

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

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

    }

    # 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

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

    # Alle Werte zu dem einzelnen Artikel, die wir später auslagern

    while (my $temphash_ref = $tempsth->fetchrow_hashref()) {

      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. 

                                            # 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}, 

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

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

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

        $tmpPartsQTY *=-1;

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

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

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

      }

  } #ende while select parts_id,qty from assembly where id = ?

  if ($kannNichtFertigen) {

    return $kannNichtFertigen;

  }

  # soweit alles gut. Jetzt noch die wirkliche Lagerbewegung für das Erzeugnis ausführen ...

                                                      comment, employee_id, qty, trans_id, trans_type_id)

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

  my $sthTransferAssemblySQL   = prepare_query($form, $dbh, $transferAssemblySQL);

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

  $dbh->commit();

  $main::lxdebug->leave_sub();

    push @filter_vars, '%' . $filter{chargenumber} . '%';

  }

  if ($form->{fromdate}) {

    push @filter_ary, "?::DATE <= i1.itime::DATE";

    push @filter_vars, $form->{fromdate};

     "partdescription"      => "p.description",

     "bindescription"       => "b.description",

     "chargenumber"         => "i1.chargenumber",

     "warehousedescription" => "w.description",

     "partunit"             => "p.unit",

     "bin_from"             => "b1.description",

#  - partsid      - will return matches with this parts_id only

#  - description  - will return only matches where the given string is a substring of the description

#  - chargenumber - will return only matches where the given string is a substring of the chargenumber

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

#  - charge_ids   - must be an arrayref. will return contents with these ids only

#  - expires_in   - will only return matches that expire within the given number of days

    push @filter_ary,  "i.chargenumber ILIKE ?";

    push @filter_vars, '%' . $filter{chargenumber} . '%';

  }

  if ($filter{ean}) {

    push @filter_ary,  "p.ean ILIKE ?";

    push @filter_vars, '%' . $filter{ean} . '%';

     "bindescription"       => "b.description",

     "binid"                => "b.id",

     "chargenumber"         => "i.chargenumber",

     "ean"                  => "p.ean",

     "chargeid"             => "c.id",

     "warehousedescription" => "w.description",

  my $dbh      = $params{dbh} || $form->get_standard_dbh();

  my $sth_QTY      = prepare_execute_query($form, $dbh, $query, ,$params{parts_id}, $params{warehouse_id}); #info: aufruf an DBUtils.pm

  my $max_qty_parts = 0; #Initialisierung mit 0

    $max_qty_parts += $ref->{sum};

  }