X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d319704a66e9be64da837ccea10af6774c2b0838..9659649d435c0436ce14048e56b03879ac641429:/SL/BP.pm

diff --git a/SL/BP.pm b/SL/BP.pm
index 2122a51d7..683edd44d 100644
--- a/SL/BP.pm
+++ b/SL/BP.pm
@@ -180,12 +180,14 @@ sub get_spoolfiles {
     $query .= " AND lower(a.quonumber) LIKE '$quonumber'";
   }
 
-  #  $query .= " AND a.transdate >= '$form->{transdatefrom}'" if $form->{transdatefrom};
-  #  $query .= " AND a.transdate <= '$form->{transdateto}'" if $form->{transdateto};
+   if ($form->{type} =~ /(invoice|sales_order|sales_quotation|packing_list|puchase_order|request_quotation)$/) {
+    $query .= " AND a.transdate >= '$form->{transdatefrom}'" if $form->{transdatefrom};
+    $query .= " AND a.transdate <= '$form->{transdateto}'" if $form->{transdateto};
+  }
 
   my @a = (transdate, $invnumber, name);
   my $sortorder = join ', ', $form->sort_columns(@a);
-  $sortorder = $form->{sort} unless $sortorder;
+  $sortorder = $form->{sort} if $form->{sort};
 
   $query .= " ORDER by $sortorder";