Bugfix für 1398:
authorJan Büren <jan@lx-office-hosting.de>
Wed, 29 Dec 2010 11:38:42 +0000 (12:38 +0100)
committerJan Büren <jan@lx-office-hosting.de>
Wed, 29 Dec 2010 11:38:42 +0000 (12:38 +0100)
Ruft man sich das Lagerjournal auf, in dem ja eine Spalte fuer Projektnummern
vorgesehen ist, bleibt diese Spalte jedoch immer leer, auch wenn in dem
jeweiligen Lieferschein zur Auslagerung eine Projektnummer stand.

Hintergrund: project_id oder globalproject_id wurde nicht an $request und $transfer übergeben.
Falls project_id_$i definiert ist, nimm die, ansonsten globalproject_id

SL/DO.pm
bin/mozilla/do.pl

index d657cca..fe2318c 100644 (file)
--- a/SL/DO.pm
+++ b/SL/DO.pm
@@ -1053,6 +1053,7 @@ sub transfer_in_out {
       'oe_id'                  => $form->{id},
       'shippingdate'           => 'current_date',
       'transfer_type'          => $params{direction} eq 'in' ? 'stock' : 'shipped',
+      'project_id'             => $request->{project_id},
     };
   }
 
index 8299a1a..796118a 100644 (file)
@@ -1310,6 +1310,7 @@ sub transfer_out {
       foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_out_$i"}) }) {
         $request->{parts_id} = $form->{"id_$i"};
         $request->{base_qty} = $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
+        $request->{project_id} = $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id}; 
 
         my $map_key          = join '--', ($form->{"id_$i"}, @{$request}{qw(warehouse_id bin_id chargenumber bestbefore)});
 
@@ -1383,7 +1384,6 @@ sub transfer_out {
       ::end_of_request();
     }
   }
-
   DO->transfer_in_out('direction' => 'out',
                       'requests'  => \@all_requests);