X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Frp.pl;h=98a0aba59df785af62f71c19de569d69731049b3;hb=ff71dc3fb3a632a6a5856d94c3b336aa5ef6d6d2;hp=6c4d6c511569f64fdb1b7d41417503dd7ce41335;hpb=17b8757975a457334b07c1bb393787c0877e4595;p=kivitendo-erp.git
diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl
index 6c4d6c511..98a0aba59 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();
}
@@ -1265,33 +1266,31 @@ sub generate_trial_balance {
"accno", "description",
"last_transaction", "soll_eb",
"haben_eb",
- "soll", "haben",
- "soll_kumuliert", "haben_kumuliert",
- "soll_saldo", "haben_saldo"
+ "soll", "haben",
+ "soll_kumuliert", "haben_kumuliert",
+ "soll_saldo", "haben_saldo"
);
- my $attachment_basename;
- $attachment_basename = $locale->text('trial_balance');
- my $report = SL::ReportGenerator->new(\%myconfig, $form);
+ my $attachment_basename = $locale->text('trial_balance');
+ my $report = SL::ReportGenerator->new(\%myconfig, $form);
- my @hidden_variables = ();
- push @hidden_variables, qw(fromdate todate year cash );
+ my @hidden_variables = qw(fromdate todate year cash);
- my $href = build_std_url('action=generate_trial_balance', grep { $form->{$_} } @hidden_variables);
+ my $href = build_std_url('action=generate_trial_balance', grep { $form->{$_} } @hidden_variables);
- my %column_defs = (
- 'accno' => { 'text' => $locale->text('Account Number'), },
- 'description' => { 'text' => $locale->text('Description'), },
- 'last_transaction' => { 'text' => $locale->text('Last Transaction'), },
- 'soll_eb' => { 'text' => $locale->text('Debit Starting Balance'), },
- 'haben_eb' => { 'text' => $locale->text('Credit Starting Balance'), },
- 'soll' => { 'text' => $locale->text('Debit'), },
- 'haben' => { 'text' => $locale->text('Credit'), },
- 'soll_kumuliert' => { 'text' => $locale->text('Sum Debit'), },
- 'haben_kumuliert' => { 'text' => $locale->text('Sum Credit'), },
- 'soll_saldo' => { 'text' => $locale->text('Saldo Debit'), },
- 'haben_saldo' => { 'text' => $locale->text('Saldo Credit'), }
+ my %column_defs = (
+ 'accno' => { 'text' => $locale->text('Account Number'), },
+ 'description' => { 'text' => $locale->text('Description'), },
+ 'last_transaction' => { 'text' => $locale->text('Last Transaction'), },
+ 'soll_eb' => { 'text' => $locale->text('Debit Starting Balance'), },
+ 'haben_eb' => { 'text' => $locale->text('Credit Starting Balance'), },
+ 'soll' => { 'text' => $locale->text('Debit'), },
+ 'haben' => { 'text' => $locale->text('Credit'), },
+ 'soll_kumuliert' => { 'text' => $locale->text('Sum Debit'), },
+ 'haben_kumuliert' => { 'text' => $locale->text('Sum Credit'), },
+ 'soll_saldo' => { 'text' => $locale->text('Saldo Debit'), },
+ 'haben_saldo' => { 'text' => $locale->text('Saldo Credit'), }
);
@@ -1305,8 +1304,6 @@ sub generate_trial_balance {
$report->set_export_options('generate_trial_balance', @hidden_variables);
- $report->set_sort_indicator($form->{sort}, 1);
-
my @options;
@@ -1466,8 +1463,6 @@ sub list_accounts {
$report->set_export_options($action, @hidden_variables);
- $report->set_sort_indicator('accno', 1);
-
my @totals_columns = qw(credit debit begbalance endbalance);
my %subtotals = map { $_ => 0 } @totals_columns;
my %totals = map { $_ => 0 } @totals_columns;
@@ -2313,7 +2308,7 @@ sub list_payments {
$report->set_columns(%column_defs);
$report->set_column_order(@columns);
- $report->set_export_options('list_payments', @hidden_variables);
+ $report->set_export_options('list_payments', @hidden_variables, qw(sort sortdir));
$report->set_sort_indicator($form->{sort}, $form->{sortdir});