projekt kivitendo

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

    my @trans_ids;

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

    my $transferPartSQL = qq|INSERT INTO inventory (parts_id, warehouse_id, bin_id, chargenumber, bestbefore, comment, employee_id, qty,

        my $temppart_qty          = $partsQTY * -1;

        ($trans_id) = selectrow_query($form, $dbh, qq|SELECT nextval('id')| ) unless $trans_id;

        do_statement($form, $sthTransferPartSQL, $transferPartSQL, $currentPart_ID, $currentPart_WH_ID,

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

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

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

          push @trans_ids, $trans_id;

          do_statement($form, $sthTransferPartSQL, $transferPartSQL, $currentPart_ID, $currentPart_WH_ID,

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

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

          do_statement($form, $sthTransferPartSQL, $transferPartSQL, $currentPart_ID, $currentPart_WH_ID,

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

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

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

                 $params{dst_bin_id}, $params{chargenumber}, conv_date($params{bestbefore}), $params{comment}, $params{login}, $params{qty}, $trans_id);

    1;

  }) or do { return $kannNichtFertigen };