X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fustva.pl;h=b7b66fbbcf4bc40b4ebdbd5d7c5ca5d24c51cfbe;hb=8365e092eb2088a8c2ebba604783555a13dc2a57;hp=fc1b5e126d0f51351ccdea1a4d20497f2441c249;hpb=0246e1250d5b6740e6ac04458714a57393bff4f8;p=kivitendo-erp.git diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl index fc1b5e126..b7b66fbbc 100644 --- a/bin/mozilla/ustva.pl +++ b/bin/mozilla/ustva.pl @@ -24,7 +24,8 @@ # German Tax authority Module and later ELSTER Interface #====================================================================== -require "$form->{path}/arap.pl"; +require "bin/mozilla/arap.pl"; +require "bin/mozilla/common.pl"; #use strict; #no strict 'refs'; @@ -112,7 +113,7 @@ sub report { my $company_given = ($form->{company} ne '') ? qq|

$form->{company}

\n| - : qq|{path}&action=config| + : qq|{login}| . qq|&password=$form->{password}>| . $locale->text('No Company Name given') . qq|!
|; @@ -138,7 +139,7 @@ sub report { ? qq|$form->{co_street}
| . qq|$form->{co_street1}
| . qq|$form->{co_zip} $form->{co_city}| - : qq|{path}&action=config| + : qq|{login}| . qq|&password=$form->{password}>| . $locale->text('No Company Address given') @@ -151,7 +152,7 @@ sub report { my $taxnumber_given = ($form->{steuernummer} ne '') ? qq|$form->{steuernummer}| - : qq|{login}| . qq|&password=$form->{password}">Keine Steuernummer hinterlegt!| . qq|
|; @@ -241,7 +242,7 @@ sub show { #&generate_ustva(); no strict 'refs'; $lxdebug->leave_sub(); - &{ $form->{nextsub} }; + call_sub($form->{"nextsub"}); use strict 'refs'; } @@ -753,18 +754,24 @@ sub generate_ustva { # Outputformat specific customisation's # - my @category_cent = qw( - 511 861 36 80 971 931 98 96 53 74 - 85 65 66 61 62 67 63 64 59 69 - 39 83 811 891 Z43 Z45 Z53 Z62 Z65 Z67 - - ); - - my @category_euro = qw( - 41 44 49 43 48 51 86 35 77 76 91 89 - 97 93 95 94 42 60 45 52 73 84 81 - ); + my @category_cent = USTVA->report_variables({ + myconfig => \%myconfig, + form => $form, + type => '', + attribute => 'position', + dec_places => '2', + }); + push @category_cent, qw(83 Z43 Z45 Z53 Z62 Z65 Z67); + + my @category_euro = USTVA->report_variables({ + myconfig => \%myconfig, + form => $form, + type => '', + attribute => 'position', + dec_places => '0', + }); + $form->{id} = []; $form->{amount} = []; @@ -826,9 +833,10 @@ sub generate_ustva { $file .= $form->{elstersteuernummer}; #file suffix $file .= '.xml'; + $file =~ s|.*/||; $form->{tmpfile} = "$userspath/$file"; - $form->{attachment_filename} = "$file"; + $form->{attachment_filename} = $file; # Zahlenformatierung für Winston @@ -848,28 +856,25 @@ sub generate_ustva { # Re-set Numberformat $myconfig{numberformat} = $temp_numberformat; - # push Kennziffern to <%foreach Array fo easyer # output in xml format. Thx to Moritz. my %winston_id_for = ( - # No Winston remap?! + # No Winston remap?! ); - foreach my $kennziffer (@category_cent, @category_euro) { - + next if ( $kennziffer =~ m/Z\d\d/); next if ( $form->{$kennziffer} == 0 ); if (defined $winston_id_for{$kennziffer} ) { push(@{ $form->{id}}, $winston_id_for{$kennziffer}); } else { - push(@{ $form->{id}}, "$kennziffer"); + push(@{ $form->{id}}, "Kz$kennziffer"); } push(@{ $form->{amount}}, $form->{$kennziffer}); } - } elsif ( $form->{format} eq 'elstertaxbird' ) { # Define serveral filenames @@ -878,6 +883,7 @@ sub generate_ustva { $form->{attachment_filename} = "USTVA-" . $form->{period} . sprintf("%02d", $form->{year} % 100) . ".txb"; + $form->{attachment_filename} =~ s|.*/||; $form->{tmpfile} = "$userspath/" . $form->{attachment_filename}; # TODO: set Output to UTF-8 or system Preference @@ -1065,7 +1071,6 @@ sub config_step1 { $callback = qq|$form->{cbscript}| .qq|?action="config_step1"| .qq|&login="$form->{cblogin}"| - .qq|&path="$form->{cbpath}"| .qq|&root="$form->{cbroot}"| .qq|&rpw="$form->{cbrpw}"|; } @@ -1102,8 +1107,7 @@ sub config_step1 { FA_BLZ_2 FA_Kontonummer_2 FA_Bankbezeichnung_oertlich FA_Oeffnungszeiten FA_Email FA_Internet steuernummer elsterland elstersteuernummer - elsterFFFF path login - password + elsterFFFF login password ); foreach my $variable (@_hidden_form_variables) { @@ -1247,7 +1251,7 @@ sub config_step2 { FA_steuerberater_city FA_steuerberater_tel FA_voranmeld method FA_dauerfrist FA_71 - elster path + elster login password type elster_init saved callback @@ -1313,7 +1317,9 @@ sub create_steuernummer { sub save { $lxdebug->enter_sub(); + my $filename = "$form->{login}_$form->{filename}"; + $filename =~ s|.*/||; #zuerst die steuernummer aus den part, parts_X_Y und delimiter herstellen create_steuernummer(); @@ -1339,27 +1345,29 @@ sub save { # Hier kommt dann die Plausibilitätsprüfung der ELSTERSteuernummer if ($form->{elstersteuernummer} ne '000000000') { + $form->{elster} = '1'; - open(CONF, ">$userspath/$filename") or $form->error("$filename : $!"); + + open my $ustvaconfig, ">", "$userspath/$filename" or $form->error("$filename : $!"); # create the config file - print CONF qq|# Configuration file for USTVA\n\n|; + print {$ustvaconfig} qq|# Configuration file for USTVA\n\n|; my $key = ''; foreach $key (sort @config) { $form->{$key} =~ s/\\/\\\\/g; # strip M $form->{$key} =~ s/\r\n/\n/g; - print CONF qq|$key=|; + print {$ustvaconfig} qq|$key=|; if ($form->{$key} ne 'Y') { - print CONF qq|$form->{$key}\n|; + print {$ustvaconfig} qq|$form->{$key}\n|; } if ($form->{$key} eq 'Y') { - print CONF qq|checked \n|; + print {$ustvaconfig} qq|checked \n|; } } - print CONF qq|\n\n|; - close CONF; + print {$ustvaconfig} qq|\n\n|; + close $ustvaconfig; $form->{saved} = $locale->text('saved'); } else { @@ -1377,14 +1385,14 @@ sub continue { # allow Symbolic references just here: no strict 'refs'; - &{ $form->{nextsub} }; + call_sub($form->{"nextsub"}); use strict 'refs'; $lxdebug->leave_sub(); } sub back { $lxdebug->enter_sub(); - &{ $form->{lastsub} }; + call_sub($form->{"lastsub"}); $lxdebug->leave_sub(); }