X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fca.pl;h=0558ae6ba5e4249bcd0aed57f62f6b5430fb1a9e;hb=61ab3c630bf655d54cb44f70f871eed5879f9693;hp=d2fab4888aad57ccdbddeab786005e908ee1118e;hpb=18da4a96827fd65559a6f64334c3d8a313884f84;p=kivitendo-erp.git diff --git a/bin/mozilla/ca.pl b/bin/mozilla/ca.pl index d2fab4888..0558ae6ba 100644 --- a/bin/mozilla/ca.pl +++ b/bin/mozilla/ca.pl @@ -74,8 +74,14 @@ require "bin/mozilla/reportgenerator.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 {