Fix Balance Sheet & Income Tax comparisons report by periods

ylavoie · Apr 21, 2024 · 52ab207 · 52ab207
1 parent d959551
commit 52ab207
Show file tree

Hide file tree

Showing 4 changed files with 15 additions and 4 deletions.
diff --git a/lib/LedgerSMB/Report/Balance_Sheet.pm b/lib/LedgerSMB/Report/Balance_Sheet.pm
@@ -36,6 +36,13 @@ Boolean, true if it is a gifi report.
 
 has gifi => (is => 'rw', isa => 'Bool');
 
+=item from_date
+=item to_date
+
+Dates come from LedgerSMB::Report::Dates
+
+=cut
+
 =item legacy_hierarchy
 
 Boolean, true if the regular hierarchies need to be ignored,

diff --git a/lib/LedgerSMB/Report/PNL.pm b/lib/LedgerSMB/Report/PNL.pm
@@ -41,6 +41,13 @@ Boolean, true if it is a gifi report.
 
 has gifi => (is => 'rw', isa => 'Bool');
 
+=item from_date
+=item to_date
+
+Dates come from LedgerSMB::Report::Dates
+
+=cut
+
 =item legacy_hierarchy
 
 Boolean, true if the regular hierarchies need to be ignored,

diff --git a/lib/LedgerSMB/Scripts/pnl.pm b/lib/LedgerSMB/Scripts/pnl.pm
@@ -74,9 +74,8 @@ sub generate_income_statement {
         $rpt = LedgerSMB::Report::PNL::Income_Statement->new(
             %$request,
             formatter_options => $request->formatter_options,
-            from_date  => $request->parse_date( $request->{from_date} ),
-            to_date  => $request->parse_date( $request->{to_date} ),
             column_path_prefix => [ 0 ]);
+        #die np $rpt;
         $rpt->run_report($request);
 
         for my $key (qw(from_month from_year from_date to_date interval)) {

diff --git a/lib/LedgerSMB/Scripts/reports.pm b/lib/LedgerSMB/Scripts/reports.pm
@@ -202,8 +202,6 @@ sub generate_balance_sheet {
     my $rpt = LedgerSMB::Report::Balance_Sheet->new(
         %$request,
         formatter_options => $request->formatter_options,
-        from_date  => $request->parse_date( $request->{from_date} ),
-        to_date  => $request->parse_date( $request->{to_date} ),
         column_path_prefix => [ 0 ]);
     $rpt->run_report($request);