From 718e0b5a83140105047a20a46e6590437885910b Mon Sep 17 00:00:00 2001
From: =?utf8?q?Bernd=20Ble=C3=83=C2=9Fmann?= <bibi@online.de>
Date: Mon, 29 Mar 2010 22:25:52 +0200
Subject: [PATCH] bestbefore in Datum umwandeln bei Erzeugnis fertigen.
---
SL/WH.pm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/SL/WH.pm b/SL/WH.pm
index 5b0054d96..44feb83a2 100644
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -209,7 +209,7 @@ sub transfer_assembly {
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_bestbefore = $temphash_ref->{bestbefore};
+ 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.
@@ -247,7 +247,7 @@ sub transfer_assembly {
(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},
- $params{dst_bin_id}, $params{chargenumber}, $params{bestbefore}, $params{comment}, $params{login}, $params{qty});
+ $params{dst_bin_id}, $params{chargenumber}, conv_date($params{bestbefore}), $params{comment}, $params{login}, $params{qty});
$dbh->commit();
$main::lxdebug->leave_sub();
--
2.20.1