X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Frp.pl;h=7075c4de784733336b5866da4c0b84a470b4aa55;hb=58265754620f2c93d858a062eadfd3e16812099c;hp=6c4d6c511569f64fdb1b7d41417503dd7ce41335;hpb=17b8757975a457334b07c1bb393787c0877e4595;p=kivitendo-erp.git
diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl
index 6c4d6c511..7075c4de7 100644
--- a/bin/mozilla/rp.pl
+++ b/bin/mozilla/rp.pl
@@ -41,6 +41,7 @@ use SL::PE;
use SL::RP;
use SL::Iconv;
use SL::ReportGenerator;
+use Data::Dumper;
require "bin/mozilla/arap.pl";
require "bin/mozilla/common.pl";
@@ -1090,27 +1091,25 @@ sub generate_balance_sheet {
$auth->assert('report');
+ $form->{decimalplaces} = $form->{decimalplaces} * 1 || 2;
$form->{padding} = " ";
$form->{bold} = "";
$form->{endbold} = "";
$form->{br} = "
";
- RP->balance_sheet(\%myconfig, \%$form);
+ my $data = RP->balance_sheet(\%myconfig, \%$form);
$form->{asofdate} = $form->current_date(\%myconfig) unless $form->{asofdate};
- $form->{period} =
- $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);
+ $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);
($form->{department}) = split /--/, $form->{department};
# define Current Earnings account
$padding = ($form->{l_heading}) ? $form->{padding} : "";
- push(@{ $form->{equity_account} },
- $padding . $locale->text('Current Earnings'));
+ push(@{ $form->{equity_account} }, $padding . $locale->text('Current Earnings'));
$form->{this_period} = $locale->date(\%myconfig, $form->{asofdate}, 0);
- $form->{last_period} =
- $locale->date(\%myconfig, $form->{compareasofdate}, 0);
+ $form->{last_period} = $locale->date(\%myconfig, $form->{compareasofdate}, 0);
$form->{IN} = "balance_sheet.html";
@@ -1119,7 +1118,9 @@ sub generate_balance_sheet {
$form->{templates} = $myconfig{templates};
- $form->parse_template;
+ $form->header();
+ print $form->parse_html_template('rp/balance_sheet', $data);
+# $form->parse_template();
$lxdebug->leave_sub();
}