projekt kivitendo

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

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

                             (SELECT current_date))|;

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

    # der return-string für die fehlermeldung inkl. welche waren zum fertigen noch fehlen

        my $temppart_chargenumber = "";

        my $temppart_bestbefore   = localtime();

        my $temppart_qty          = $partsQTY * -1;

        my ($trans_id)     = selectrow_query($form, $dbh, $query_trans_id);

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

        next;

      }

      # Überprüfen, ob diese Anzahl gefertigt werden kann

        my $temppart_bestbefore   = conv_date($temphash_ref->{bestbefore});

        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;

                                    # keine einzelteile definiert

        $kannNichtFertigen ="Für dieses Erzeugnis sind keine Einzelteile definiert.

                             Dementsprechend kann auch nichts hergestellt werden";

    # gibt die Fehlermeldung zurück. A.) Keine Teile definiert

    #                                B.) Artikel und Anzahl der fehlenden Teile/Dienstleistungen

    die "<br><br>" . $kannNichtFertigen if ($kannNichtFertigen);

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

    my $transferAssemblySQL = qq|INSERT INTO inventory (parts_id, warehouse_id, bin_id, chargenumber, bestbefore,

                                 (SELECT id FROM transfer_type WHERE direction = 'in' AND description = 'assembled'),

                                 (select current_date))|;

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

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

    # save inventory transactions for this assembly

    for my $part_id (@trans_ids) {

    }

    1;

    LEFT JOIN project pr ON i1.project_id = pr.id

    LEFT JOIN employee e ON i1.employee_id = e.id

    WHERE $where_clause i1.qty < 0 AND

    GROUP BY $group_clause

    UNION

    LEFT JOIN project pr ON i1.project_id = pr.id

    LEFT JOIN employee e ON i1.employee_id = e.id

    WHERE $where_clause i1.qty > 0 AND

    GROUP BY $group_clause

    ORDER BY r_${sort_spec}) AS lines WHERE r_qty>0|;