X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fustva.pl;h=49f4727d5bcdc5378082520558fa55eb895ca91d;hb=1d1f31407ee1a66af5a0db0d10350bc29a371653;hp=6b25b7875a803f143f655604a6f7bad0dbe3f317;hpb=6c0e5cb75713abadcb450cc23b56d5baa94bbc65;p=kivitendo-erp.git diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl index 6b25b7875..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,454 +74,213 @@ 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 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 = ''; - $form->header; + my $hide = ''; - print qq| -
+ setup_ustva_report_action_bar(); + $form->header; -