use POSIX qw(strftime);
use SL::CA;
+use SL::DB::Default;
use SL::ReportGenerator;
require "bin/mozilla/reportgenerator.pl";
$::form->{title} = $::locale->text('List Transactions') . " - " . $::locale->text('Account') . " $::form->{accno}";
- my $onload = qq|focus()|;
- $onload .= qq|;setupDateFormat('$::myconfig{dateformat}', '|. $::locale->text("Falsches Datumsformat!") .qq|')|;
- $onload .= qq|;setupPoints('$::myconfig{numberformat}', '|. $::locale->text("wrongformat") .qq|')|;
-
$::form->header;
print $::form->parse_html_template('ca/list', {
- onload => $onload,
year => DateTime->today->year,
- cash => $::instance_conf->get_accounting_method eq 'cash',
});
$::lxdebug->leave_sub;
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
+ my $defaults = SL::DB::Default->get;
$main::auth->assert('report');
$form->{print_date} = $locale->text('Create Date') . " " . $locale->date(\%myconfig, $form->current_date(\%myconfig), 0);
push (@options, $form->{print_date});
- $form->{company} = $locale->text('Company') . " " . $myconfig{company};
+ $form->{company} = $locale->text('Company') . " " . $defaults->company;
push (@options, $form->{company});
my @columns = qw(transdate reference description gegenkonto debit credit ustkonto ustrate balance);
$form->{callback} = $link . '&sort=' . E($form->{sort});
- my %column_alignment = map { $_ => 'right' } qw(debit credit);
+ my %column_alignment = map { $_ => 'right' } qw(debit credit balance);
my @custom_headers = ();
# Zeile 1: