X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fustva.pl;h=49f4727d5bcdc5378082520558fa55eb895ca91d;hb=a90b3fb8ebabdefdce605df9999fa8f284856e55;hp=f39229d064962c9ea82d961e796cce9b19730706;hpb=693f2ebe60b292a42ae1bf6633704ca6c8e214c7;p=kivitendo-erp.git diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl index f39229d06..49f4727d5 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,12 +18,17 @@ # 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'; @@ -34,10 +38,13 @@ require "$form->{path}/arap.pl"; #our ($myconfig); #use CGI::Carp "fatalsToBrowser"; -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,453 +74,213 @@ 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 -