From 2fdcbcbdd7fb587f88adeb90c177b9194705bf2f Mon Sep 17 00:00:00 2001 From: "Martin Helmling martin.helmling@octosoft.eu" Date: Fri, 24 Jun 2016 13:21:05 +0200 Subject: [PATCH] =?utf8?q?BUG-Fix:=20FiBu/Dialogbuchungen:=20Steuerschl?= =?utf8?q?=C3=BCssel=20nach=20=C3=96ffnen=20falsch?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Nachdem eine Dialogbuchung mit dem Steuerschlüssel "USt-frei 0%" gebucht und geschlossen wurde, wird nach dem öffnen derselben Buchung der Steuerschlüssel auf "Keine Steuer 0%" gesetzt. Zum Einen wird hier nach den Schlüsseln gesucht, sondern 0 als Schlüssel angenommen. Wie 2013 in Commit 0f8092f8 begonnen, ist die tax_id nicht zwingend 0. Ebenso mus die txa_id für "USt-frei 0%" berücksichtigt werden sowie auch die EU. Also nur dort berechnen wo Rate != 0 , derzeit bei taxkey 0,1,10 und 11 Zudem war bei der Vorauswahl der Steuer, die steuerfreien Namen nur mit zwei statt 5 Stellen hinter dem Komma, d.h. es wurde keine Steuer vorselektiert, also dann der erste Eintrag "Keine Steuer 0%" --- bin/mozilla/gl.pl | 22 +++++++++++++++------- 1 file changed, 15 insertions(+), 7 deletions(-) diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl index 8a8181917..608ae75e1 100644 --- a/bin/mozilla/gl.pl +++ b/bin/mozilla/gl.pl @@ -42,7 +42,7 @@ use SL::GL; use SL::IS; use SL::PE; use SL::ReportGenerator; -use SL::DBUtils qw(selectrow_query); +use SL::DBUtils qw(selectrow_query selectall_hashref_query); require "bin/mozilla/common.pl"; require "bin/mozilla/reportgenerator.pl"; @@ -165,7 +165,7 @@ sub prepare_transaction { $form->{totalcredit} += $ref->{amount}; $form->{"credit_$i"} = $ref->{amount}; } - $form->{"taxchart_$i"} = "0--0.00"; + $form->{"taxchart_$i"} = $ref->{id}."--0.00000"; $form->{"project_id_$i"} = $ref->{project_id}; $i++; } @@ -528,6 +528,11 @@ sub update { my $creditcount = 0; my ($debitcredit, $amount); + my $dbh = $form->dbconnect_noauto(\%myconfig); + my ($notax_id) = selectrow_query($form, $dbh, "SELECT id FROM tax WHERE taxkey = 0 LIMIT 1", ); + my $zerotaxes = selectall_hashref_query($form, $dbh, "SELECT id FROM tax WHERE rate = 0", ); + $dbh->disconnect; + my @flds = qw(accno debit credit projectnumber fx_transaction source memo tax taxchart); @@ -566,10 +571,10 @@ sub update { $form->{debitlock} = 1; } if ($debitcredit && $credittax) { - $form->{"taxchart_$i"} = "0--0.00"; + $form->{"taxchart_$i"} = "$notax_id--0.00"; } if (!$debitcredit && $debittax) { - $form->{"taxchart_$i"} = "0--0.00"; + $form->{"taxchart_$i"} = "$notax_id--0.00"; } $amount = ($form->{"debit_$i"} == 0) @@ -577,11 +582,12 @@ sub update { : $form->{"debit_$i"}; my $j = $#a; if (($debitcredit && $credittax) || (!$debitcredit && $debittax)) { - $form->{"taxchart_$i"} = "0--0.00"; + $form->{"taxchart_$i"} = "$notax_id--0.00"; $form->{"tax_$i"} = 0; } my ($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"}); - if ($taxkey > 1) { + my $iswithouttax = grep { $_->{id} == $taxkey } @{ $zerotaxes }; + if (!$iswithouttax) { if ($debitcredit) { $debittax = 1; } else { @@ -994,6 +1000,7 @@ sub post_transaction { my $dbh = $form->dbconnect_noauto(\%myconfig); my ($notax_id) = selectrow_query($form, $dbh, "SELECT id FROM tax WHERE taxkey = 0 LIMIT 1", ); + my $zerotaxes = selectall_hashref_query($form, $dbh, "SELECT id FROM tax WHERE rate = 0", ); $dbh->disconnect; my @flds = qw(accno debit credit projectnumber fx_transaction source memo tax taxchart); @@ -1050,7 +1057,8 @@ sub post_transaction { $form->{"tax_$i"} = 0; } my ($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"}); - if ($taxkey > 1) { + my $iswithouttax = grep { $_->{id} == $taxkey } @{ $zerotaxes }; + if (!$iswithouttax) { if ($debitcredit) { $debittax = 1; } else { -- 2.20.1