Revision 718e0b5a
Von Bernd BleÃmann vor mehr als 14 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 209 | 209 |
while (my $temphash_ref = $tempsth->fetchrow_hashref()) {
|
| 210 | 210 |
my $temppart_bin_id = $temphash_ref->{bin_id}; # kann man hier den quelllagerplatz beim verbauen angeben?
|
| 211 | 211 |
my $temppart_chargenumber = $temphash_ref->{chargenumber};
|
| 212 |
my $temppart_bestbefore = $temphash_ref->{bestbefore};
|
|
| 212 |
my $temppart_bestbefore = conv_date($temphash_ref->{bestbefore});
|
|
| 213 | 213 |
my $temppart_qty = $temphash_ref->{sum};
|
| 214 | 214 |
|
| 215 | 215 |
if ($tmpPartsQTY > $temppart_qty) { # wir haben noch mehr waren zum wegbuchen.
|
| ... | ... | |
| 247 | 247 |
(SELECT id FROM transfer_type WHERE direction = 'in' AND description = 'stock'))|; |
| 248 | 248 |
my $sthTransferAssemblySQL = prepare_query($form, $dbh, $transferAssemblySQL); |
| 249 | 249 |
do_statement($form, $sthTransferAssemblySQL, $transferAssemblySQL, $params{assembly_id}, $params{dst_warehouse_id},
|
| 250 |
$params{dst_bin_id}, $params{chargenumber}, $params{bestbefore}, $params{comment}, $params{login}, $params{qty});
|
|
| 250 |
$params{dst_bin_id}, $params{chargenumber}, conv_date($params{bestbefore}), $params{comment}, $params{login}, $params{qty});
|
|
| 251 | 251 |
$dbh->commit(); |
| 252 | 252 |
|
| 253 | 253 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
bestbefore in Datum umwandeln bei Erzeugnis fertigen.