X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=inline;f=bin%2Fmozilla%2Fustva.pl;h=b66fead82e52bd7cf7f24f9c972af48f1990df75;hb=cff1389b37e5adfde7734718a02290421aa1bf9a;hp=2e42f186f80f63e58b9fd9450c3ea17c0baff2e7;hpb=499fe31cfb806ad005db7f8127bc87b082590db6;p=kivitendo-erp.git diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl index 2e42f186f..b66fead82 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 @@ -22,9 +21,13 @@ # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, 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'; @@ -34,6 +37,9 @@ require "$form->{path}/arap.pl"; #our ($myconfig); #use CGI::Carp "fatalsToBrowser"; +use List::Util qw(first); + +use SL::DB::Default; use SL::PE; use SL::RP; use SL::USTVA; @@ -67,444 +73,192 @@ 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 + $form->{kz10} = ''; #Berichtigte Anmeldung? Ja =1 Nein=0 - my $year = substr($form->datetonum($form->current_date(\%myconfig), \%myconfig),0,4); + my $year = substr($form->datetonum($form->current_date(\%myconfig), \%myconfig ), + 0, 4); my $department = ''; - local $hide = ''; + my $hide = ''; $form->header; - print qq| -
+ # Einlesen der Finanzamtdaten + my $ustva = USTVA->new(); + $ustva->get_config($::lx_office_conf{paths}{userspath}, 'finanzamt.ini'); -