X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=inline;f=bin%2Fmozilla%2Fca.pl;h=0558ae6ba5e4249bcd0aed57f62f6b5430fb1a9e;hb=61ab3c630bf655d54cb44f70f871eed5879f9693;hp=497ee6157483da95df7ec11567853eef6be8bd73;hpb=ec022a581e19d03e34ae31e7ba53ee4dde66ea73;p=kivitendo-erp.git diff --git a/bin/mozilla/ca.pl b/bin/mozilla/ca.pl index 497ee6157..0558ae6ba 100644 --- a/bin/mozilla/ca.pl +++ b/bin/mozilla/ca.pl @@ -37,7 +37,7 @@ use POSIX qw(strftime); use SL::CA; use SL::ReportGenerator; -require "bin/mozilla/report_generator.pl"; +require "bin/mozilla/reportgenerator.pl"; 1; @@ -74,8 +74,14 @@ require "bin/mozilla/report_generator.pl"; sub chart_of_accounts { $lxdebug->enter_sub(); + $auth->assert('report'); + $form->{title} = $locale->text('Chart of Accounts'); + if ($eur) { + $form->{method} = "cash"; + } + CA->all_accounts(\%myconfig, \%$form); my @columns = qw(accno description debit credit); @@ -105,6 +111,7 @@ sub chart_of_accounts { my %totals = ('debit' => 0, 'credit' => 0); foreach my $ca (@{ $form->{CA} }) { + next unless defined $ca->{amount}; my $row = { }; foreach (qw(debit credit)) { @@ -136,8 +143,11 @@ sub chart_of_accounts { sub list { $lxdebug->enter_sub(); + $auth->assert('report'); + $form->{title} = $locale->text('List Transactions'); $form->{title} .= " - " . $locale->text('Account') . " $form->{accno}"; + $year = (localtime)[5] + 1900; # get departments $form->all_departments(\%myconfig); @@ -156,13 +166,76 @@ sub list {