X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FUSTVA.pm;h=13f9a62869dd108d20c714c8dafad1289f2c75df;hb=996ddb70dc0d35be7a72e981ab38011a13d09484;hp=148bf4f46d38f023a805f92ac04d75500776f7cd;hpb=f6c60e9467658c089790836395281ed5729e5305;p=kivitendo-erp.git diff --git a/SL/USTVA.pm b/SL/USTVA.pm index 148bf4f46..13f9a6286 100644 --- a/SL/USTVA.pm +++ b/SL/USTVA.pm @@ -157,7 +157,7 @@ sub steuernummer_input { 'Thüringen' => 'FFF/BBB/UUUUP', # '/' 3 'Sachsen' => 'FFF/BBB/UUUUP', # '/' 3 'Hamburg' => 'FF/BBB/UUUUP', # '/' 3 - 'Baden Würtemberg' => 'FF/BBB/UUUUP', # '/' 2 + 'Baden Württemberg' => 'FF/BBB/UUUUP', # '/' 2 'Sachsen Anhalt' => 'FFF/BBB/UUUUP', # '/' 3 'Saarland' => 'FFF/BBB/UUUUP', # '/' 3 'Bremen' => 'FF BBB UUUUP', # ' ' 3 @@ -310,7 +310,7 @@ sub fa_auswahl { |; if ($elsterFFFF eq '') { - $fa_auswahl .= qq||; + $fa_auswahl .= qq||; } else { foreach $ffff (sort { $elster_land_fa{$a} cmp $elster_land_fa{$b} } keys(%elster_land_fa) @@ -361,6 +361,7 @@ sub fa_auswahl { |; $main::lxdebug->leave_sub(); + return $fa_auswahl; } @@ -378,7 +379,7 @@ sub info {


- + |; @@ -544,7 +545,7 @@ sub query_finanzamt { $land = 'Nordrhein Westfalen' if (@$FA_finanzamt[0] eq '5'); $land = 'Hessen' if (@$FA_finanzamt[0] eq '6'); $land = 'Rheinland Pfalz' if (@$FA_finanzamt[0] eq '7'); - $land = 'Baden Würtemberg' if (@$FA_finanzamt[0] eq '8'); + $land = 'Baden Württemberg' if (@$FA_finanzamt[0] eq '8'); $land = 'Bayern' if (@$FA_finanzamt[0] eq '9'); $land = 'Saarland' if (@$FA_finanzamt[0] eq '10'); $land = 'Berlin' if (@$FA_finanzamt[0] eq '11'); @@ -554,6 +555,8 @@ sub query_finanzamt { $land = 'Sachsen Anhalt' if (@$FA_finanzamt[0] eq '15'); $land = 'Thüringen' if (@$FA_finanzamt[0] eq '16'); + $land = $main::locale->{iconv}->convert($land); + my $ffff = @$FA_finanzamt[1]; my $rec = {}; @@ -796,6 +799,21 @@ sub get_accounts_ustva { $ARwhere .= " AND acc.transdate <= '$todate'"; } + my $acc_trans_where = '1=1'; + if ($fromdate || $todate) { + $acc_trans_where = "ac.trans_id IN (SELECT DISTINCT trans_id FROM acc_trans WHERE "; + + if ($fromdate) { + $acc_trans_where .= "transdate >= '$fromdate'"; + } + if ($todate) { + $acc_trans_where .= " AND " if ($fromdate); + $acc_trans_where .= "transdate <= '$todate'"; + } + + $acc_trans_where .= ")"; + } + ############################################ # Method eq 'cash' = IST Versteuerung ############################################ @@ -843,9 +861,7 @@ sub get_accounts_ustva { ) ) WHERE - 1=1 - -- Here no where, please. All Transactions ever should be - -- testet if they are paied in the USTVA report period. + $acc_trans_where GROUP BY tk.pos_ustva |; @@ -878,7 +894,7 @@ sub get_accounts_ustva { } else { - $self->error("Unknown tax method: $form->{method}") + $form->error("Unknown tax method: $form->{method}") }