From 901a74dbf31a738531fec257c299433c600b0c12 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Wed, 9 Sep 2020 14:12:47 +0200 Subject: [PATCH] USTVA Weiteren toten Code identifizieren - Werte mit Key undef ignorieren Die summen Abfrage erzeugt auch Werte ohne pos_ustva (category) Diese brauchen nicht weiter verarbeitet zu werden. --- SL/USTVA.pm | 2 +- bin/mozilla/ustva.pl | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/SL/USTVA.pm b/SL/USTVA.pm index e4fb191c0..556698e8c 100644 --- a/SL/USTVA.pm +++ b/SL/USTVA.pm @@ -845,7 +845,7 @@ sub get_accounts_ustva { $sth->execute || $form->dberror($query); while (my $ref = $sth->fetchrow_hashref("NAME_lc")) { - # Bug 365 solved?! + next unless $ref->{$category}; $ref->{amount} *= -1; $form->{ $ref->{$category} } += $ref->{amount}; } diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl index 49f4727d5..3f0b0a296 100644 --- a/bin/mozilla/ustva.pl +++ b/bin/mozilla/ustva.pl @@ -702,9 +702,8 @@ sub generate_ustva { } else # Outputformat for generic output { - + die ("not used anymore"); $form->{USTVA} = []; - if ( $form->{format} eq 'generic') { # Formatierungen für HTML Ausgabe my $rec_ref = {}; @@ -733,7 +732,7 @@ sub generate_ustva { $form->{templates} = "doc" if ( $form->{type} eq 'help' ); if ($form->{format} eq 'generic'){ - + die ("not used anymore"); $form->header(); my $template_ref = { @@ -743,6 +742,7 @@ sub generate_ustva { print($form->parse_html_template('ustva/generic_taxreport', $template_ref)); } elsif ( $form->{format} eq 'elstertaxbird' ) { + die ("not used anymore"); $form->parse_template(\%myconfig); } else { -- 2.20.1