X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fca.pl;h=b45c36d6401834e45f214e600fa55c988214b76e;hb=81d7a3d732eac0e68a4edc8306e48532e9deb637;hp=eae6131792445126a5755e72d76f3db318c6704c;hpb=46a67f95406aea6838636e7aa90d0f8833a96132;p=kivitendo-erp.git diff --git a/bin/mozilla/ca.pl b/bin/mozilla/ca.pl index eae613179..b45c36d64 100644 --- a/bin/mozilla/ca.pl +++ b/bin/mozilla/ca.pl @@ -107,6 +107,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)) { @@ -163,7 +164,7 @@ sub list { | if $form->{selectdepartment}; $accrual = ($eur) ? "" : "checked"; $cash = ($eur) ? "checked" : ""; - + $name_1 = "fromdate"; $id_1 = "fromdate"; $value_1 = "$form->{fromdate}"; @@ -352,7 +353,7 @@ $checked> | . $locale->text('Subtotal') . qq| - + $jsscript
@@ -644,7 +645,7 @@ sub list_transactions { $ca->{description} .= " \n " . $ca->{memo}; } - + foreach my $gegenkonto (@{ $ca->{GEGENKONTO} }) { if ($ca->{gegenkonto} eq "") {