X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FRP.pm;h=2aa1e8d980533a6f51c815ee1ad74b08d6c5326b;hb=8f1fb2d695599019da043422cc3314b2a3f4fede;hp=e4fb848cffecd6739b2fbfbe518ca0c653d0deda;hpb=acd5752aff6f10f3d19b33da176a07895efcb964;p=kivitendo-erp.git

diff --git a/SL/RP.pm b/SL/RP.pm
index e4fb848cf..2aa1e8d98 100644
--- a/SL/RP.pm
+++ b/SL/RP.pm
@@ -37,9 +37,9 @@ package RP;
 use SL::DBUtils;
 use Data::Dumper;
 use List::Util qw(sum);
-# use strict;
-# use warnings;
 
+# use warnings;
+use strict;
 
 # new implementation of balance sheet
 # readme!
@@ -439,6 +439,7 @@ sub get_accounts_g {
   my $glwhere  = "";
   my $prwhere  = "";
   my $subwhere = "";
+  my $inwhere = "";
   my $item;
 
   if ($fromdate) {
@@ -776,6 +777,7 @@ sub trial_balance {
   my $glwhere       = '';
   my $glsumwhere    = '';
   my $tofrom;
+  my ($fromdate, $todate);
 
   if ($form->{fromdate} || $form->{todate}) {
     if ($form->{fromdate}) {