Revision 638f06c4
Von Jan Büren vor mehr als 8 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 203 | 203 |
my $sth_part_qty_assembly = prepare_execute_query($form, $dbh, $query, $params{assembly_id});
|
| 204 | 204 |
|
| 205 | 205 |
# Hier wird das prepared Statement für die Schleife über alle Lagerplätze vorbereitet |
| 206 |
my $transferPartSQL = qq|INSERT INTO inventory (parts_id, warehouse_id, bin_id, chargenumber, bestbefore, comment, employee_id, qty, trans_id, trans_type_id) |
|
| 206 |
my $transferPartSQL = qq|INSERT INTO inventory (parts_id, warehouse_id, bin_id, chargenumber, bestbefore, comment, employee_id, qty, |
|
| 207 |
trans_id, trans_type_id, shippingdate) |
|
| 207 | 208 |
VALUES (?, ?, ?, ?, ?, ?, (SELECT id FROM employee WHERE login = ?), ?, nextval('id'),
|
| 208 |
(SELECT id FROM transfer_type WHERE direction = 'out' AND description = 'used'))|; |
|
| 209 |
(SELECT id FROM transfer_type WHERE direction = 'out' AND description = 'used'), |
|
| 210 |
(SELECT current_date))|; |
|
| 209 | 211 |
my $sthTransferPartSQL = prepare_query($form, $dbh, $transferPartSQL); |
| 210 | 212 |
|
| 211 | 213 |
# der return-string für die fehlermeldung inkl. welche waren zum fertigen noch fehlen |
| ... | ... | |
| 289 | 291 |
|
| 290 | 292 |
# soweit alles gut. Jetzt noch die wirkliche Lagerbewegung für das Erzeugnis ausführen ... |
| 291 | 293 |
my $transferAssemblySQL = qq|INSERT INTO inventory (parts_id, warehouse_id, bin_id, chargenumber, bestbefore, |
| 292 |
comment, employee_id, qty, trans_id, trans_type_id) |
|
| 294 |
comment, employee_id, qty, trans_id, trans_type_id, shippingdate)
|
|
| 293 | 295 |
VALUES (?, ?, ?, ?, ?, ?, (SELECT id FROM employee WHERE login = ?), ?, nextval('id'),
|
| 294 |
(SELECT id FROM transfer_type WHERE direction = 'in' AND description = 'stock'))|; |
|
| 296 |
(SELECT id FROM transfer_type WHERE direction = 'in' AND description = 'assembled'), |
|
| 297 |
(select current_date))|; |
|
| 295 | 298 |
my $sthTransferAssemblySQL = prepare_query($form, $dbh, $transferAssemblySQL); |
| 296 | 299 |
do_statement($form, $sthTransferAssemblySQL, $transferAssemblySQL, $params{assembly_id}, $params{dst_warehouse_id},
|
| 297 | 300 |
$params{dst_bin_id}, $params{chargenumber}, conv_date($params{bestbefore}), $params{comment}, $params{login}, $params{qty});
|
Auch abrufbar als: Unified diff
Erzeugnis fertigen verbessert
Transfertyp assembled hinzugefügt
Bei gefertigten Erzeugnissen sowie bei verbrauchten Waren
das tagesaktuelle Datum gesetzt (vorher wurde gar keins gesetzt).