X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fustva.pl;h=0f26de3f6ab5fe4ebf9a5529bfb0d6858ca206ca;hb=15aab04c1710b3c8a2bf8785aef31f13a958a43e;hp=73434c253c88d9c57d9b87ca78cebd13431f27e5;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl index 73434c253..0f26de3f6 100644 --- a/bin/mozilla/ustva.pl +++ b/bin/mozilla/ustva.pl @@ -1,6 +1,5 @@ -#!/bin/perl #===================================================================== -# Lx-Office ERP +# kivitendo ERP # Copyright (c) 2004 by Udo Spallek, Aachen # # Author: Udo Spallek @@ -19,26 +18,25 @@ # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, +# MA 02110-1335, USA. #====================================================================== # German Tax authority Module and later ELSTER Interface +# 08.01.14 ELSTER Interface software (taxbird/winston) removed #====================================================================== -require "$form->{path}/arap.pl"; +use strict; +use utf8; +require "bin/mozilla/common.pl"; -#use strict; -#no strict 'refs'; -#use diagnostics; -#use warnings FATAL=> 'all'; -#use vars qw($locale $form %myconfig); -#our ($myconfig); -#use CGI::Carp "fatalsToBrowser"; +use List::Util qw(first); -use SL::PE; +use SL::DB::Default; use SL::RP; use SL::USTVA; use SL::User; +use SL::Locale::String qw(t8); 1; # this is for our long dates @@ -68,1933 +66,900 @@ use SL::User; # $locale->text('Oct') # $locale->text('Nov') # $locale->text('Dec') + ############################# sub report { - $lxdebug->enter_sub(); - my $myconfig = \%myconfig; - use CGI; + $::lxdebug->enter_sub(); + + my $form = $::form; + my $locale = $::locale; + my %myconfig = %::myconfig; + + $::auth->assert('advance_turnover_tax_return'); + + my $defaults = SL::DB::Default->get; $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 $department = ''; - local $hide =''; - $form->header; - - print qq| -
- -