From 63a1c75d320045aea95c6bfd2444716d34882a56 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Stephan=20K=C3=B6hler?= Date: Thu, 2 Feb 2006 15:56:08 +0000 Subject: [PATCH] =?utf8?q?Merge=20von=20816-819,828=20aus=20unstable:=20US?= =?utf8?q?tVa=20Bugfix,=20Bug=20262=20&=20264=20-816=20Bug=20262=20fixed!?= =?utf8?q?=20USTVA=20UPDATE=20der=20Positionen=20und=20Verknuepfungen.=20D?= =?utf8?q?ie=20UPDATEs=20sind=20relativ=20vollstaendig=20und=20sortiert,?= =?utf8?q?=20so=20dass=20eine=20weitere=20Pflege=20einfach=20ist.=20taxkey?= =?utf8?q?'s=20sind=20noch=20nicht=20integriert,=20deshalb=20sind=20einige?= =?utf8?q?=20updates=20in=20liste.aql=20doppelt=20gemoppelt,=20was=20m.E.?= =?utf8?q?=20unproblematisch=20ist,=20gleiches=20gilt=20f=C3=BCr=20den=20G?= =?utf8?q?ermany-DATEV-SKR03EU-chart.sql=20-817=20Bug=20264=20fixed.=20Tha?= =?utf8?q?nks=20to=20Martin=20Krung.=20-818=20Fixed=20date=20problems=20be?= =?utf8?q?tween=20database=20and=20screen-output,=20reported=20by=20Holger?= =?utf8?q?=20on=20the=20devel-ML.=20-819=20Update=20table=20tax=20-828=20U?= =?utf8?q?STVA:=20Fixed=20upgrade=20Problems=20for=20tax=20table?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- bin/mozilla/ustva.pl | 122 ++++++++++++++-------------- sql/Germany-DATEV-SKR03EU-chart.sql | 76 ++++++++++++++--- sql/Pg-upgrade-2.1.1-2.1.2.sql | 69 +++++++++++++++- sql/Swiss-German-chart.sql | 10 +-- sql/liste.sql | 52 +++++++++++- 5 files changed, 249 insertions(+), 80 deletions(-) diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl index 6fa1ed75e..2151c4ab1 100644 --- a/bin/mozilla/ustva.pl +++ b/bin/mozilla/ustva.pl @@ -29,7 +29,7 @@ require "$form->{path}/arap.pl"; #use strict; #no strict 'refs'; #use diagnostics; -#use warnings FATAL=> 'all'; +#use warnings; # FATAL=> 'all'; #use vars qw($locale $form %myconfig); #our ($myconfig); #use CGI::Carp "fatalsToBrowser"; @@ -76,13 +76,7 @@ sub report { $form->{title} = $locale->text('UStVA'); $form->{kz10} = ''; #Berichtigte Anmeldung? Ja =1 - # $accrual = ($eur) ? "" : "checked"; - # $cash = ($eur) ? "checked" : ""; - my $year = ''; - my $null = ''; - ($null, $null, $null, $null, $null, $year, $null, $null, $null) = - localtime(); - $year += 1900; + my $year = substr($form->datetonum($form->current_date(\%myconfig), \%myconfig),0,4); my $department = ''; local $hide = ''; @@ -233,7 +227,7 @@ sub report { # accounting years if SQL-Ledger Version < 2.4.1 # $year = $form->{year} * 1; - @years = sort { $b <=> $a } (2000 .. ($year+1)); + @years = sort { $b <=> $a } (2003 .. ($year+1)); $form->{all_years} = \@years; } map { $form->{selectaccountingyear} .= qq|