X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fustva.pl;h=0f26de3f6ab5fe4ebf9a5529bfb0d6858ca206ca;hb=8ae5d46d28055bea4e44bb36243ab935120ac2c0;hp=709a3bc7db2d51b6ca4783eb6715ca0eacf5b666;hpb=54e4131e091831e00a861fe2c4f53e344b87ddca;p=kivitendo-erp.git diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl index 709a3bc7d..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,25 +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; -#use strict; -#no strict 'refs'; -#use diagnostics; -#use warnings; # FATAL=> 'all'; -#use vars qw($locale $form %myconfig); -#our ($myconfig); -#use CGI::Carp "fatalsToBrowser"; +require "bin/mozilla/common.pl"; -use SL::PE; +use List::Util qw(first); + +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 @@ -67,452 +66,187 @@ use SL::User; # $locale->text('Oct') # $locale->text('Nov') # $locale->text('Dec') + ############################# sub report { - $lxdebug->enter_sub(); - my $myconfig = \%myconfig; - use CGI; - $form->{title} = $locale->text('UStVA'); - $form->{kz10} = ''; #Berichtigte Anmeldung? Ja =1 + $::lxdebug->enter_sub(); - my $year = substr( - $form->datetonum($form->current_date(\%myconfig), - \%myconfig - ), - 0, 4); + my $form = $::form; + my $locale = $::locale; + my %myconfig = %::myconfig; - my $department = ''; - local $hide = ''; - $form->header; + $::auth->assert('advance_turnover_tax_return'); - print qq| -
+ my $defaults = SL::DB::Default->get; + $form->{title} = $locale->text('UStVA'); + $form->{kz10} = ''; #Berichtigte Anmeldung? Ja =1 Nein=0 -