Wird bei der Summen-/Saldenliste der "freie Zeitraum" ausgewählt, dann werden das...

[mfinanz.git] / SL / RP.pm

diff --git a/SL/RP.pm b/SL/RP.pm
index ad8be971de1ed2216ee36b413d002f58db45368e..87b2ade92e47569400347fab4a4e959ccef53ada 100644 (file)
--- a/SL/RP.pm
+++ b/SL/RP.pm
@@ -669,6 +669,19 @@ sub trial_balance {
   }
 
   if ($options{beginning_balances}) {
   }
 
   if ($options{beginning_balances}) {

+    foreach my $prefix (qw(from to)) {
+      next if ($form->{"${prefix}date"});
+
+      my $min_max = $prefix eq 'from' ? 'min' : 'max';
+      $query      = qq|SELECT ${min_max}(transdate)
+                       FROM acc_trans ac
+                       $dpt_join
+                       WHERE (1 = 1)
+                         $dpt_where
+                         $project|;
+      ($form->{"${prefix}date"}) = selectfirst_array_query($form, $dbh, $query);
+    }
+

     # get beginning balances
     $query =
       qq|SELECT c.accno, c.category, SUM(ac.amount) AS amount, c.description
     # get beginning balances
     $query =
       qq|SELECT c.accno, c.category, SUM(ac.amount) AS amount, c.description


@@ -680,7 +693,7 @@ sub trial_balance {
             $project
           GROUP BY c.accno, c.category, c.description |;
 
             $project
           GROUP BY c.accno, c.category, c.description |;
 

-    $sth = prepare_execute_query($form, $dbh, $query, $form->{fromdate});
+    $sth = prepare_execute_query($form, $dbh, $query, $form->{fromtdate});

 
     while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
 
 
     while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {