Revision 8c7e4493
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 24 | 24 |
# German Tax authority Module and later ELSTER Interface |
| 25 | 25 |
#====================================================================== |
| 26 | 26 |
|
| 27 |
require "bin/mozilla/arap.pl"; |
|
| 28 | 27 |
require "bin/mozilla/common.pl"; |
| 29 | 28 |
|
| 30 | 29 |
#use strict; |
| ... | ... | |
| 69 | 68 |
# $locale->text('Nov')
|
| 70 | 69 |
# $locale->text('Dec')
|
| 71 | 70 |
|
| 72 |
# $form->parse_html_template('generic/util_hidden_variables');
|
|
| 73 |
|
|
| 74 | 71 |
############################# |
| 75 | 72 |
|
| 76 | 73 |
sub report {
|
| 77 | 74 |
$lxdebug->enter_sub(); |
| 78 | 75 |
|
| 76 |
$auth->assert('advance_turnover_tax_return');
|
|
| 77 |
|
|
| 79 | 78 |
my $myconfig = \%myconfig; |
| 80 | 79 |
|
| 81 | 80 |
$form->{title} = $locale->text('UStVA');
|
| ... | ... | |
| 113 | 112 |
|
| 114 | 113 |
my $company_given = ($form->{company} ne '')
|
| 115 | 114 |
? qq|<h3>$form->{company}</h3>\n|
|
| 116 |
: qq|<a href=am.pl?action=config| |
|
| 117 |
. qq|&level=Programm--Preferences&login=$form->{login}|
|
|
| 118 |
. qq|&password=$form->{password}>|
|
|
| 115 |
: qq|<a href="am.pl?action=config| |
|
| 116 |
. qq|&level=Programm--Preferences">| |
|
| 119 | 117 |
. $locale->text('No Company Name given') . qq|!</a><br>|;
|
| 120 | 118 |
|
| 121 | 119 |
|
| ... | ... | |
| 139 | 137 |
? qq|$form->{co_street}<br>|
|
| 140 | 138 |
. qq|$form->{co_street1}<br>|
|
| 141 | 139 |
. qq|$form->{co_zip} $form->{co_city}|
|
| 142 |
: qq|<a href=am.pl?action=config| |
|
| 143 |
. qq|&level=Programm--Preferences&login=$form->{login}|
|
|
| 144 |
. qq|&password=$form->{password}>|
|
|
| 140 |
: qq|<a href="am.pl?action=config| |
|
| 141 |
. qq|&level=Programm--Preferences">| |
|
| 145 | 142 |
. $locale->text('No Company Address given')
|
| 146 | 143 |
. qq|!</a>\n|; |
| 147 | 144 |
|
| ... | ... | |
| 153 | 150 |
my $taxnumber_given = ($form->{steuernummer} ne '')
|
| 154 | 151 |
? qq|$form->{steuernummer}|
|
| 155 | 152 |
: qq|<a href="ustva.pl?action="config_step1"| |
| 156 |
. qq|&level=Programm--Finanzamteinstellungen&login=$form->{login}|
|
|
| 157 |
. qq|&password=$form->{password}">Keine Steuernummer hinterlegt!|
|
|
| 153 |
. qq|&level=Programm--Finanzamteinstellungen">Keine Steuernummer hinterlegt!| |
|
| 158 | 154 |
. qq|</a><br>|; |
| 159 | 155 |
|
| 160 | 156 |
my $ustva_vorauswahl = &ustva_vorauswahl(); |
| ... | ... | |
| 229 | 225 |
sub help {
|
| 230 | 226 |
$lxdebug->enter_sub(); |
| 231 | 227 |
|
| 228 |
$auth->assert('advance_turnover_tax_return');
|
|
| 229 |
|
|
| 232 | 230 |
# parse help documents under doc |
| 233 | 231 |
my $tmp = $form->{templates};
|
| 234 | 232 |
$form->{templates} = 'doc';
|
| ... | ... | |
| 244 | 242 |
sub show {
|
| 245 | 243 |
$lxdebug->enter_sub(); |
| 246 | 244 |
|
| 245 |
$auth->assert('advance_turnover_tax_return');
|
|
| 246 |
|
|
| 247 | 247 |
#&generate_ustva(); |
| 248 | 248 |
no strict 'refs'; |
| 249 | 249 |
$lxdebug->leave_sub(); |
| ... | ... | |
| 254 | 254 |
sub ustva_vorauswahl {
|
| 255 | 255 |
$lxdebug->enter_sub(); |
| 256 | 256 |
|
| 257 |
$auth->assert('advance_turnover_tax_return');
|
|
| 258 |
|
|
| 257 | 259 |
my $select_vorauswahl; |
| 258 | 260 |
|
| 259 | 261 |
#Aktuelles Datum zerlegen: |
| ... | ... | |
| 490 | 492 |
sub show_options {
|
| 491 | 493 |
$lxdebug->enter_sub(); |
| 492 | 494 |
|
| 495 |
$auth->assert('advance_turnover_tax_return');
|
|
| 496 |
|
|
| 493 | 497 |
# $form->{PD}{$form->{type}} = "selected";
|
| 494 | 498 |
# $form->{DF}{$form->{format}} = "selected";
|
| 495 | 499 |
# $form->{OP}{$form->{media}} = "selected";
|
| ... | ... | |
| 534 | 538 |
sub generate_ustva {
|
| 535 | 539 |
$lxdebug->enter_sub(); |
| 536 | 540 |
|
| 541 |
$auth->assert('advance_turnover_tax_return');
|
|
| 542 |
|
|
| 537 | 543 |
# Aufruf von get_config zum Einlesen der Finanzamtdaten aus finanzamt.ini |
| 538 | 544 |
|
| 539 | 545 |
USTVA->get_config($userspath, 'finanzamt.ini'); |
| ... | ... | |
| 1030 | 1036 |
dec_places => '0', |
| 1031 | 1037 |
}); |
| 1032 | 1038 |
|
| 1033 |
$form->{"Watchdog::USTVA"} = 1;
|
|
| 1034 | 1039 |
$form->{USTVA} = [];
|
| 1035 | 1040 |
|
| 1036 | 1041 |
if ( $form->{format} eq 'generic') { # Formatierungen f?r HTML Ausgabe
|
| ... | ... | |
| 1084 | 1089 |
sub config_step1 {
|
| 1085 | 1090 |
$lxdebug->enter_sub(); |
| 1086 | 1091 |
|
| 1092 |
$auth->assert('advance_turnover_tax_return');
|
|
| 1093 |
|
|
| 1087 | 1094 |
# edit all taxauthority prefs |
| 1088 | 1095 |
|
| 1089 | 1096 |
$form->header; |
| ... | ... | |
| 1093 | 1100 |
my $amt = $form->{elsterFFFF};
|
| 1094 | 1101 |
|
| 1095 | 1102 |
|
| 1096 |
if ($form->{cbscript} ne '' and $form->{cblogin} ne '') {
|
|
| 1097 |
$callback = qq|$form->{cbscript}|
|
|
| 1098 |
.qq|?action="config_step1"| |
|
| 1099 |
.qq|&login="$form->{cblogin}"|
|
|
| 1100 |
.qq|&root="$form->{cbroot}"|
|
|
| 1101 |
.qq|&rpw="$form->{cbrpw}"|;
|
|
| 1102 |
} |
|
| 1103 |
|
|
| 1104 | 1103 |
$form->{title} = $locale->text('Tax Office Preferences');
|
| 1105 | 1104 |
|
| 1106 | 1105 |
|
| ... | ... | |
| 1133 | 1132 |
FA_BLZ_2 FA_Kontonummer_2 FA_Bankbezeichnung_oertlich |
| 1134 | 1133 |
FA_Oeffnungszeiten FA_Email FA_Internet |
| 1135 | 1134 |
steuernummer elsterland elstersteuernummer |
| 1136 |
elsterFFFF login password
|
|
| 1135 |
elsterFFFF |
|
| 1137 | 1136 |
); |
| 1138 | 1137 |
|
| 1139 | 1138 |
foreach my $variable (@_hidden_form_variables) {
|
| ... | ... | |
| 1168 | 1167 |
|
| 1169 | 1168 |
sub config_step2 {
|
| 1170 | 1169 |
$lxdebug->enter_sub(); |
| 1170 |
|
|
| 1171 |
$auth->assert('advance_turnover_tax_return');
|
|
| 1172 |
|
|
| 1171 | 1173 |
$form->header(); |
| 1172 | 1174 |
|
| 1173 | 1175 |
# print qq| |
| ... | ... | |
| 1282 | 1284 |
FA_voranmeld method |
| 1283 | 1285 |
FA_dauerfrist FA_71 |
| 1284 | 1286 |
elster |
| 1285 |
login password |
|
| 1286 | 1287 |
type elster_init |
| 1287 | 1288 |
saved callback |
| 1288 | 1289 |
); |
| ... | ... | |
| 1309 | 1310 |
|
| 1310 | 1311 |
sub create_steuernummer {
|
| 1311 | 1312 |
$lxdebug->enter_sub(); |
| 1313 |
|
|
| 1314 |
$auth->assert('advance_turnover_tax_return');
|
|
| 1315 |
|
|
| 1312 | 1316 |
my $part = $form->{part};
|
| 1313 | 1317 |
my $patterncount = $form->{patterncount};
|
| 1314 | 1318 |
my $delimiter = $form->{delimiter};
|
| ... | ... | |
| 1346 | 1350 |
sub save {
|
| 1347 | 1351 |
$lxdebug->enter_sub(); |
| 1348 | 1352 |
|
| 1353 |
$auth->assert('advance_turnover_tax_return');
|
|
| 1354 |
|
|
| 1349 | 1355 |
my $filename = "$form->{login}_$form->{filename}";
|
| 1350 | 1356 |
$filename =~ s|.*/||; |
| 1351 | 1357 |
|
| ... | ... | |
| 1426 | 1432 |
|
| 1427 | 1433 |
sub elster_hash {
|
| 1428 | 1434 |
$lxdebug->enter_sub(); |
| 1435 |
|
|
| 1436 |
$auth->assert('advance_turnover_tax_return');
|
|
| 1437 |
|
|
| 1429 | 1438 |
my $finanzamt = USTVA->query_finanzamt(\%myconfig, \%$form); |
| 1430 | 1439 |
$lxdebug->leave_sub(); |
| 1431 | 1440 |
return $finanzamt; |
Auch abrufbar als: Unified diff
Umstellung der Benutzerverwaltung von Dateien im Verzeichnis "users" auf die Verwendung einer Authentifizierungsdatenbank.
Es ist erforderlich, die Dateien doc/UPGRADE und doc/INSTALL/index.html zu lesen und die angesprochenen Punkte auszuführen, um nach einem Upgrade weiter arbeiten zu können.