Revision 7e2da79f
Von Udo Spallek vor fast 19 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 109 | 109 |
# Hier Aufruf von get_config aus bin/mozilla/fa.pl zum |
| 110 | 110 |
# Einlesen der Finanzamtdaten |
| 111 | 111 |
&get_config($userspath, 'finanzamt.ini'); |
| 112 |
|
|
| 112 |
|
|
| 113 |
# Hier Einlesen der user-config |
|
| 114 |
# steuernummer entfernt f?r prerelease |
|
| 113 | 115 |
my @a = qw(signature name company address businessnumber tel fax email |
| 114 |
company_street company_city company_email); |
|
| 116 |
co_chief co_department co_custom1 co_custom2 co_custom3 co_custom4 co_custom5 |
|
| 117 |
co_name1 co_name2 |
|
| 118 |
co_street co_street1 co_zip co_city co_city1 co_country co_tel co_tel1 co_tel2 |
|
| 119 |
co_fax co_fax1 co_email co_email1 co_url co_url1 ustid duns |
|
| 120 |
co_bankname co_bankname1 co_bankname2 co_bankname3 co_blz co_blz1 |
|
| 121 |
co_blz2 co_blz3 co_accountnr co_accountnr1 co_accountnr2 co_accountnr3); |
|
| 122 |
|
|
| 115 | 123 |
map { $form->{$_} = $myconfig->{$_} } @a;
|
| 116 | 124 |
|
| 117 | 125 |
my $oeffnungszeiten = $form->{FA_Oeffnungszeiten};
|
| ... | ... | |
| 132 | 140 |
| . $locale->text('Kein Firmenname hinterlegt!') . qq|</a><br>
|
| 133 | 141 |
|; |
| 134 | 142 |
} |
| 143 |
|
|
| 144 |
# Anpassungen der Variablennamen auf pre 2.1.1 Namen |
|
| 145 |
# kl?ren, ob $form->{company_street|_address} gesetzt sind
|
|
| 146 |
# |
|
| 135 | 147 |
|
| 136 |
#kl?ren, ob $form->{company_street|_address} gesetzt sind
|
|
| 137 |
### |
|
| 138 | 148 |
if ($form->{address} ne '') {
|
| 139 | 149 |
my $temp = $form->{address};
|
| 140 | 150 |
$temp =~ s/\\n/<br \/>/; |
| 141 |
print qq|$temp|; |
|
| 142 |
($form->{company_street}, $form->{company_city}) = split("<br \/", $temp);
|
|
| 143 |
} elsif ($form->{address} eq ''
|
|
| 144 |
and ($form->{company_street} ne '' and $form->{company_city} ne '')) {
|
|
| 145 |
print qq|$form->{company_street}<br>\n| if ($form->{company_street} ne '');
|
|
| 146 |
print qq|$form->{company_city}\n| if ($form->{company_city} ne '');
|
|
| 147 |
} elsif ($form->{company_street} eq '' or $form->{company_city} eq '') {
|
|
| 151 |
($form->{co_street}, $form->{co_city}) = split("<br \/>", $temp);
|
|
| 152 |
} |
|
| 153 |
|
|
| 154 |
if ( $form->{co_street} ne ''
|
|
| 155 |
and ($form->{co_zip} ne ''
|
|
| 156 |
or $form->{co_city} ne '') ) {
|
|
| 157 |
print qq| |
|
| 158 |
$form->{co_street}<br>
|
|
| 159 |
$form->{co_street1}<br>
|
|
| 160 |
$form->{co_zip} $form->{co_city}|;
|
|
| 161 |
} else {
|
|
| 148 | 162 |
print qq| |
| 149 | 163 |
<a href=am.pl?path=$form->{path}&action=config&level=Programm--Preferences&login=$form->{login}&password=$form->{password}>
|
| 150 | 164 |
| . $locale->text('Keine Firmenadresse hinterlegt!') . qq|</a>\n|;
|
| 151 | 165 |
} |
| 152 |
|
|
| 166 |
$form->{co_email}=$form->{email} unless $form->{co_email}='';
|
|
| 167 |
$form->{co_tel}=$form->{tel} unless $form->{co_tel}='';
|
|
| 168 |
$form->{co_fax}=$form->{fax} unless $form->{co_fax}='';
|
|
| 169 |
$form->{co_url}=$form->{urlx} unless $form->{co_url}='';
|
|
| 170 |
|
|
| 171 |
|
|
| 153 | 172 |
print qq| |
| 154 | 173 |
<br> |
| 155 | 174 |
<br> |
| 156 | 175 |
| . $locale->text('Tel.: ') . qq|
|
| 157 |
$form->{tel}
|
|
| 176 |
$form->{co_tel}
|
|
| 158 | 177 |
<br> |
| 159 | 178 |
| . $locale->text('Fax.: ') . qq|
|
| 160 |
$form->{fax}
|
|
| 179 |
$form->{co_fax}
|
|
| 161 | 180 |
<br> |
| 162 | 181 |
<br> |
| 163 |
$form->{email}
|
|
| 182 |
$form->{co_email}
|
|
| 164 | 183 |
<br> |
| 165 | 184 |
<br> |
| 166 | 185 |
| . $locale->text('Steuernummer: ') . qq|
|
| ... | ... | |
| 192 | 211 |
. qq|" name="FA_steuerberater" id=steuerberater class=checkbox type=checkbox value="1"> |
| 193 | 212 |
<b>| . $locale->text('Steuerberater/-in') . qq|</b>
|
| 194 | 213 |
</legend> |
| 195 |
|
|
| 214 |
|
|
| 196 | 215 |
$form->{FA_steuerberater_name}<br>
|
| 197 | 216 |
$form->{FA_steuerberater_street}<br>
|
| 198 | 217 |
$form->{FA_steuerberater_city}<br>
|
| ... | ... | |
| 214 | 233 |
|
| 215 | 234 |
# accounting years if SQL-Ledger Version < 2.4.1 |
| 216 | 235 |
# $year = $form->{year} * 1;
|
| 217 |
@years = sort { $b <=> $a } (2000 .. ($year));
|
|
| 236 |
@years = sort { $b <=> $a } (2000 .. ($year+1));
|
|
| 218 | 237 |
$form->{all_years} = \@years;
|
| 219 | 238 |
} |
| 220 | 239 |
map { $form->{selectaccountingyear} .= qq|<option>$_\n| }
|
| ... | ... | |
| 236 | 255 |
$checked = "checked" if ($form->{kz10} eq '1');
|
| 237 | 256 |
print qq| |
| 238 | 257 |
<input name="FA_10" id=FA_10 class=checkbox type=checkbox value="1" $checked title = "| |
| 239 |
. $locale->text('Ist dies eine berichtigte Anmeldung? (Nr. 10/Zeile 15 Steuererkl?rung)')
|
|
| 258 |
. $locale->text( |
|
| 259 |
'Ist dies eine berichtigte Anmeldung? (Nr. 10/Zeile 15 Steuererkl?rung)') |
|
| 240 | 260 |
. qq|"> |
| 241 | 261 |
| . $locale->text('Berichtigte Anmeldung') . qq|
|
| 242 | 262 |
<br> |
| ... | ... | |
| 266 | 286 |
|
| 267 | 287 |
if ($form->{FA_Name} ne '') {
|
| 268 | 288 |
print qq| |
| 269 |
<td width="50%" valign="top"> |
|
| 289 |
<td width="50%" valign="top">
|
|
| 270 | 290 |
<fieldset> |
| 271 | 291 |
<legend> |
| 272 | 292 |
<b>| . $locale->text('Finanzamt') . qq|</b>
|
| ... | ... | |
| 288 | 308 |
<br> |
| 289 | 309 |
| . $locale->text('Tel. : ') . qq|
|
| 290 | 310 |
$form->{FA_Telefon}
|
| 291 |
<br> |
|
| 311 |
<br>
|
|
| 292 | 312 |
| . $locale->text('Fax. : ') . qq|
|
| 293 | 313 |
$form->{FA_Fax}
|
| 294 | 314 |
<br> |
| ... | ... | |
| 330 | 350 |
<tr> |
| 331 | 351 |
<td> |
| 332 | 352 |
$form->{FA_Bankbezeichnung_1}
|
| 333 |
<br> |
|
| 353 |
<br>
|
|
| 334 | 354 |
| . $locale->text('Konto: ') . qq|
|
| 335 | 355 |
$form->{FA_Kontonummer_1}
|
| 336 | 356 |
<br> |
| ... | ... | |
| 342 | 362 |
<br> |
| 343 | 363 |
| . $locale->text('Konto: ') . qq|
|
| 344 | 364 |
$form->{FA_Kontonummer_2}
|
| 345 |
<br> |
|
| 365 |
<br>
|
|
| 346 | 366 |
| . $locale->text('BLZ: ') . qq|
|
| 347 | 367 |
$form->{FA_BLZ_2}
|
| 348 | 368 |
</td> |
| ... | ... | |
| 356 | 376 |
<br> |
| 357 | 377 |
<br> |
| 358 | 378 |
$form->{FA_Bankbezeichnung_1}
|
| 359 |
<br> |
|
| 379 |
<br>
|
|
| 360 | 380 |
| . $locale->text('Konto: ') . qq|
|
| 361 | 381 |
$form->{FA_Kontonummer_1}
|
| 362 |
<br> |
|
| 382 |
<br>
|
|
| 363 | 383 |
| . $locale->text('BLZ: ') . qq|
|
| 364 | 384 |
$form->{FA_BLZ_1} <br>
|
| 365 | 385 |
<br>|; |
| ... | ... | |
| 370 | 390 |
<br> |
| 371 | 391 |
<br> |
| 372 | 392 |
$form->{FA_Bankbezeichnung_oertlich}
|
| 373 |
<br> |
|
| 393 |
<br>
|
|
| 374 | 394 |
| . $locale->text('Konto: ') . qq|
|
| 375 | 395 |
$form->{FA_Kontonummer_2}
|
| 376 |
<br> |
|
| 396 |
<br>
|
|
| 377 | 397 |
| . $locale->text('BLZ: ') . qq|
|
| 378 | 398 |
$form->{FA_BLZ_2}
|
| 379 | 399 |
|; |
| ... | ... | |
| 426 | 446 |
<legend> |
| 427 | 447 |
<b>| . $locale->text('Hinweise') . qq|</b>
|
| 428 | 448 |
</legend> |
| 429 |
<h2 class="confirm">Die Ausgabefunktionen sind wegen fehlender Daten deaktiviert.</h2>
|
|
| 449 |
<h2 class="confirm">Die Ausgabefunktionen sind wegen unzureichender Voreinstellungen deaktiviert.</h2>
|
|
| 430 | 450 |
<h3>Hilfe:</h3> |
| 431 | 451 |
<ul> |
| 432 |
<li><a href="ustva.pl?path=$form->{path}&action=edit&level=Programm--Finanzamteinstellungen&login=$form->{login}&password=$form->{password}">
|
|
| 433 |
Bitte 'Einstellungen' w?hlen um die Erweiterten UStVa Funktionen nutzen zu k?nnen.</a></li> |
|
| 434 |
<br> |
|
| 435 |
<li><a href="am.pl?path=$form->{path}&action=config&level=Programm--Preferences&login=$form->{login}&password=$form->{password}">
|
|
| 436 |
Firmendaten k?nnen bei den Benutzereinstellungen ver?ndert werden.</a></li> |
|
| 452 |
<li> W?hlen Sie im Administrationsmen? den momentanen Benutzer aus |
|
| 453 |
(siehe Kopfzeile). Dort k?nnen Sie fehlende Firmenangaben bzw. |
|
| 454 |
die Steuernummer erg?nzen.</li> |
|
| 437 | 455 |
</ul> |
| 438 | 456 |
</fieldset> |
| 439 | 457 |
|; |
| ... | ... | |
| 460 | 478 |
<br> |
| 461 | 479 |
<input type="hidden" name="address" value="$form->{address}">
|
| 462 | 480 |
<input type="hidden" name="reporttype" value="custom"> |
| 463 |
<input type="hidden" name="company_street" value="$form->{company_street}">
|
|
| 464 |
<input type="hidden" name="company_city" value="$form->{company_city}">
|
|
| 481 |
<input type="hidden" name="co_street" value="$form->{co_street}">
|
|
| 482 |
<input type="hidden" name="co_city" value="$form->{co_city}">
|
|
| 465 | 483 |
<input type="hidden" name="path" value="$form->{path}">
|
| 466 | 484 |
<input type="hidden" name="login" value="$form->{login}">
|
| 467 | 485 |
<input type="hidden" name="password" value="$form->{password}">
|
| ... | ... | |
| 471 | 489 |
<input type=hidden name=nextsub value=generate_ustva> |
| 472 | 490 |
<input $hide type=submit class=submit name=action value="| |
| 473 | 491 |
. $locale->text('Show') . qq|">
|
| 474 |
<input type=submit class=submit name=action value="| |
|
| 475 |
. $locale->text('Config') . qq|">
|
|
| 476 | 492 |
</td> |
| 477 | 493 |
<td align="right"> |
| 478 | 494 |
|
| ... | ... | |
| 492 | 508 |
</body> |
| 493 | 509 |
</html> |
| 494 | 510 |
|; |
| 495 |
|
|
| 496 | 511 |
$lxdebug->leave_sub(); |
| 497 | 512 |
} |
| 498 | 513 |
|
| ... | ... | |
| 500 | 515 |
|
| 501 | 516 |
sub help {
|
| 502 | 517 |
$lxdebug->enter_sub(); |
| 503 |
|
|
| 504 | 518 |
# parse help documents under doc |
| 505 | 519 |
my $tmp = $form->{templates};
|
| 506 | 520 |
$form->{templates} = 'doc';
|
| ... | ... | |
| 515 | 529 |
|
| 516 | 530 |
sub show {
|
| 517 | 531 |
$lxdebug->enter_sub(); |
| 518 |
|
|
| 519 | 532 |
#&generate_ustva(); |
| 520 | 533 |
no strict 'refs'; |
| 534 |
$lxdebug->leave_sub(); |
|
| 521 | 535 |
&{ $form->{nextsub} };
|
| 522 | 536 |
use strict 'refs'; |
| 523 |
$lxdebug->leave_sub(); |
|
| 524 | 537 |
} |
| 525 | 538 |
|
| 526 | 539 |
sub ustva_vorauswahl {
|
| 527 | 540 |
$lxdebug->enter_sub(); |
| 528 |
|
|
| 529 | 541 |
#Aktuelles Datum zerlegen: |
| 530 | 542 |
$locale->date(\%myconfig, $form->current_date(\%myconfig, '0', '0'), 0) =~ |
| 531 | 543 |
/(\d\d).(\d\d).(\d\d\d\d)/; |
| ... | ... | |
| 639 | 651 |
<option value="$key" $selected>| |
| 640 | 652 |
. $locale->text("$liste{$key}")
|
| 641 | 653 |
. qq|</option> |
| 642 |
|
|
| 654 |
|
|
| 643 | 655 |
|; |
| 644 | 656 |
} |
| 645 | 657 |
print qq|</select>|; |
| ... | ... | |
| 725 | 737 |
<option value="$key">$listea{$key} |
|
| 726 | 738 |
. $locale->text('Quarter')
|
| 727 | 739 |
. qq|</option> |
| 728 |
|
|
| 740 |
|
|
| 729 | 741 |
|; |
| 730 | 742 |
} |
| 731 | 743 |
|
| 732 | 744 |
foreach $key (sort keys %listeb) {
|
| 733 | 745 |
print qq| |
| 734 | 746 |
<option value="$key">| . $locale->text("$listeb{$key}") . qq|</option>
|
| 735 |
|
|
| 747 |
|
|
| 736 | 748 |
|; |
| 737 | 749 |
} |
| 738 | 750 |
print qq|</select>|; |
| ... | ... | |
| 747 | 759 |
} |
| 748 | 760 |
|
| 749 | 761 |
sub debug {
|
| 762 |
$lxdebug->enter_sub(); |
|
| 750 | 763 |
$form->debug(); |
| 764 |
$lxdebug->leave_sub(); |
|
| 751 | 765 |
} |
| 752 | 766 |
|
| 753 | 767 |
sub show_options {
|
| ... | ... | |
| 974 | 988 |
$locale->date(\%myconfig, $form->current_date(\%myconfig), 0, 0, 0); |
| 975 | 989 |
|
| 976 | 990 |
# setup variables for the form |
| 977 |
my @a = (); |
|
| 978 |
@a = qw(company businessnumber tel fax email company_email); |
|
| 991 |
# steuernummer f?r prerelease entfernt |
|
| 992 |
my @a = qw(company businessnumber tel fax email |
|
| 993 |
co_chief co_department co_custom1 co_custom2 co_custom3 co_custom4 co_custom5 |
|
| 994 |
co_name1 co_name2 co_street co_street1 co_zip co_city co_city1 co_country co_tel co_tel1 co_tel2 |
|
| 995 |
co_fax co_fax1 co_email co_email1 co_url co_url1 ustid duns |
|
| 996 |
co_bankname co_bankname1 co_bankname2 co_bankname3 co_blz co_blz1 |
|
| 997 |
co_blz2 co_blz3 co_accountnr co_accountnr1 co_accountnr2 co_accountnr3); |
|
| 998 |
|
|
| 979 | 999 |
map { $form->{$_} = $myconfig{$_} } @a;
|
| 980 | 1000 |
|
| 981 | 1001 |
if ($form->{address} ne '') {
|
| 982 | 1002 |
my $temp = $form->{address};
|
| 983 | 1003 |
$temp =~ s/\\n/<br \/>/; |
| 984 |
($form->{company_street}, $form->{company_city}) = split("<br \/>", $temp);
|
|
| 1004 |
($form->{co_street}, $form->{co_city}) = split("<br \/>", $temp);
|
|
| 985 | 1005 |
} |
| 986 | 1006 |
|
| 987 | 1007 |
if ( $form->{format} eq 'pdf'
|
| ... | ... | |
| 1033 | 1053 |
|
| 1034 | 1054 |
sub edit {
|
| 1035 | 1055 |
$lxdebug->enter_sub(); |
| 1036 |
|
|
| 1037 | 1056 |
# edit all taxauthority prefs |
| 1038 | 1057 |
|
| 1039 | 1058 |
$form->header; |
| ... | ... | |
| 1044 | 1063 |
my $land = $form->{elsterland};
|
| 1045 | 1064 |
my $amt = $form->{elsterFFFF};
|
| 1046 | 1065 |
|
| 1066 |
my $callback = ''; |
|
| 1067 |
$callback = |
|
| 1068 |
"$form->{cbscript}?action=edit&login=$form->{cblogin}&path=$form->{cbpath}&root=$form->{cbroot}&rpw=$form->{cbrpw}"
|
|
| 1069 |
if ($form->{cbscript} ne '' and $form->{cblogin} ne '');
|
|
| 1070 |
|
|
| 1047 | 1071 |
$form->{title} = $locale->text('Finanzamt - Einstellungen');
|
| 1048 | 1072 |
print qq| |
| 1049 | 1073 |
<body> |
| ... | ... | |
| 1112 | 1136 |
<label for="">| |
| 1113 | 1137 |
. $locale->text('Dauerfristverl?ngerung')
|
| 1114 | 1138 |
. qq|</label> |
| 1115 |
|
|
| 1139 |
|
|
| 1116 | 1140 |
</fieldset> |
| 1117 | 1141 |
<br> |
| 1118 | 1142 |
<fieldset> |
| ... | ... | |
| 1157 | 1181 |
<input name="FA_steuerberater_tel" id=steuerberater size=25 value="$form->{FA_steuerberater_tel}">
|
| 1158 | 1182 |
</tr> |
| 1159 | 1183 |
</table> |
| 1160 |
|
|
| 1184 |
|
|
| 1161 | 1185 |
</fieldset> |
| 1162 | 1186 |
|
| 1163 | 1187 |
<br> |
| ... | ... | |
| 1166 | 1190 |
<!--<input type=submit class=submit name=action value="| |
| 1167 | 1191 |
. $locale->text('debug')
|
| 1168 | 1192 |
. qq|">--> |
| 1193 |
|; |
|
| 1194 |
print qq| |
|
| 1195 |
<input type="button" name="Verweis" value="| |
|
| 1196 |
. $locale->text('Back to user config...') . qq|"
|
|
| 1197 |
onClick="self.location.href='$callback'">| if ($callback ne ''); |
|
| 1198 |
print qq| |
|
| 1199 |
|
|
| 1169 | 1200 |
<input type=submit class=submit name=action value="| |
| 1170 | 1201 |
. $locale->text('continue') . qq|">
|
| 1202 |
|
|
| 1171 | 1203 |
</td> |
| 1172 | 1204 |
</tr> |
| 1173 | 1205 |
</table> |
| ... | ... | |
| 1176 | 1208 |
my @variables = qw( steuernummer elsterland elstersteuernummer elsterFFFF); |
| 1177 | 1209 |
my $variable = ''; |
| 1178 | 1210 |
foreach $variable (@variables) {
|
| 1179 |
print qq| |
|
| 1211 |
print qq|
|
|
| 1180 | 1212 |
<input name=$variable type=hidden value="$form->{$variable}">|;
|
| 1181 | 1213 |
} |
| 1182 | 1214 |
my $steuernummer_new = ''; |
| 1183 | 1215 |
|
| 1184 | 1216 |
#<input type=hidden name="steuernummer_new" value="$form->{$steuernummer_new}">
|
| 1185 | 1217 |
print qq| |
| 1186 |
|
|
| 1218 |
<input type=hidden name="callback" value="$callback"> |
|
| 1187 | 1219 |
<input type=hidden name="nextsub" value="edit_form"> |
| 1188 | 1220 |
<input type=hidden name="warnung" value="1"> |
| 1189 | 1221 |
<input type=hidden name="saved" value="| |
| ... | ... | |
| 1201 | 1233 |
FA_Email FA_Internet); |
| 1202 | 1234 |
|
| 1203 | 1235 |
foreach $variable (@variables) {
|
| 1204 |
print qq| |
|
| 1236 |
print qq|
|
|
| 1205 | 1237 |
<input name=$variable type=hidden value="$form->{$variable}">|;
|
| 1206 | 1238 |
} |
| 1207 | 1239 |
|
| ... | ... | |
| 1227 | 1259 |
|
| 1228 | 1260 |
# Auf ?bergabefehler checken |
| 1229 | 1261 |
USTVA::info( |
| 1230 |
$locale->text('Bitte das Bundesland UND die Stadt bzw. den Einzugsbereich Ihres zust?ndigen Finanzamts ausw?hlen.'))
|
|
| 1262 |
$locale->text( |
|
| 1263 |
'Bitte das Bundesland UND die Stadt bzw. den Einzugsbereich Ihres zust?ndigen Finanzamts ausw?hlen.' |
|
| 1264 |
)) |
|
| 1231 | 1265 |
if ( $form->{elsterFFFF_new} eq 'Auswahl'
|
| 1232 | 1266 |
|| $form->{elsterland_new} eq 'Auswahl');
|
| 1233 | 1267 |
USTVA::info( |
| 1234 | 1268 |
$locale->text( |
| 1235 |
'Es fehlen Angaben zur Versteuerung. |
|
| 1236 |
Wenn Sie Ist Versteuert sind, w?hlen Sie die Einnahmen/?berschu?-Rechnung aus. |
|
| 1269 |
'Es fehlen Angaben zur Versteuerung.
|
|
| 1270 |
Wenn Sie Ist Versteuert sind, w?hlen Sie die Einnahmen/?berschu?-Rechnung aus.
|
|
| 1237 | 1271 |
Sind Sie Soll-Versteuert und Bilanzverpflichtet, dann w?hlen Sie Bilanz aus.' |
| 1238 | 1272 |
)) |
| 1239 | 1273 |
if ($form->{method} eq '');
|
| ... | ... | |
| 1338 | 1372 |
<tr> |
| 1339 | 1373 |
<td align="left"> |
| 1340 | 1374 |
|
| 1341 |
|
|
| 1342 |
<!--<input type=hidden name=nextsub value="debug"> |
|
| 1343 |
<input type=submit class=submit name=action value="| |
|
| 1344 |
. $locale->text('debug') . qq|">
|
|
| 1345 |
<input type=hidden name=nextsub value="test"> |
|
| 1346 |
<input type=submit class=submit name=action value="| |
|
| 1347 |
. $locale->text('test')
|
|
| 1348 |
. qq|">--> |
|
| 1349 | 1375 |
<input type=hidden name=lastsub value="edit"> |
| 1350 |
<input type=submit class=submit name=action value="| |
|
| 1351 |
. $locale->text('back') . qq|">
|
|
| 1352 |
|; |
|
| 1376 |
|; |
|
| 1377 |
print qq|<input type=submit class=submit name=action value="| |
|
| 1378 |
. $locale->text('back') . qq|">|
|
|
| 1379 |
if ($form->{callback} eq '');
|
|
| 1380 |
|
|
| 1381 |
print qq| |
|
| 1382 |
<input type="button" name="Verweis" value="| |
|
| 1383 |
. $locale->text('Back to user config...') . qq|"
|
|
| 1384 |
onClick="self.location.href='$form->{callback}'">|
|
|
| 1385 |
if ($form->{callback} ne '');
|
|
| 1353 | 1386 |
|
| 1354 | 1387 |
if ($form->{warnung} eq "1") {
|
| 1355 | 1388 |
print qq| |
| ... | ... | |
| 1380 | 1413 |
my @variables = qw(FA_steuerberater_name FA_steuerberater_street |
| 1381 | 1414 |
FA_steuerberater_city FA_steuerberater_tel |
| 1382 | 1415 |
FA_voranmeld method |
| 1383 |
FA_dauerfrist FA_71 FA_Name elster
|
|
| 1416 |
FA_dauerfrist FA_71 elster |
|
| 1384 | 1417 |
path login password type elster_init saved |
| 1385 | 1418 |
); |
| 1386 | 1419 |
my $variable = ''; |
| ... | ... | |
| 1394 | 1427 |
<input type=hidden name="warnung" value="$warnung"> |
| 1395 | 1428 |
<input type=hidden name="elstersteuernummer" value="$elstersteuernummer"> |
| 1396 | 1429 |
<input type=hidden name="steuernummer" value="$stnr"> |
| 1430 |
<input type=hidden name="callback" value="$form->{callback}">
|
|
| 1397 | 1431 |
</form> |
| 1398 | 1432 |
|; |
| 1399 | 1433 |
$lxdebug->leave_sub(); |
| ... | ... | |
| 1440 | 1474 |
|
| 1441 | 1475 |
my ($userpath, $filename) = @_; |
| 1442 | 1476 |
my ($key, $value) = ''; |
| 1443 |
open(FACONF, "$userpath/$filename") |
|
| 1444 |
or $form->error("$userpath/$filename : $!");
|
|
| 1477 |
open(FACONF, "$userpath/$form->{login}_$filename")
|
|
| 1478 |
or #falls Datei nicht vorhanden ist |
|
| 1479 |
sub {
|
|
| 1480 |
open(FANEW, ">$userpath/$form->{login}_$filename")
|
|
| 1481 |
or $form->error("$userpath/$filename : $!");
|
|
| 1482 |
close FANEW; |
|
| 1483 |
open(FACONF, "$userpath/$form->{login}_$filename")
|
|
| 1484 |
or $form->error("$userpath/$form->{username}_$filename : $!");
|
|
| 1485 |
}; |
|
| 1445 | 1486 |
while (<FACONF>) {
|
| 1446 | 1487 |
last if /^\[/; |
| 1447 | 1488 |
next if /^(#|\s)/; |
| ... | ... | |
| 1470 | 1511 |
|
| 1471 | 1512 |
sub save {
|
| 1472 | 1513 |
$lxdebug->enter_sub(); |
| 1473 |
my $filename = $form->{filename};
|
|
| 1514 |
my $filename = "$form->{login}_$form->{filename}";
|
|
| 1474 | 1515 |
|
| 1475 | 1516 |
#zuerst die steuernummer aus den part, parts_X_Y und delimiter herstellen |
| 1476 | 1517 |
create_steuernummer; |
| ... | ... | |
| 1555 | 1596 |
</legend> |
| 1556 | 1597 |
|
| 1557 | 1598 |
<table width="100%"> |
| 1599 |
<tr> |
|
| 1600 |
<td> |
|
| 1601 |
| . $locale->text('Finanzamt') . qq|
|
|
| 1602 |
</td> |
|
| 1603 |
</tr> |
|
| 1604 |
<tr> |
|
| 1605 |
<td colspan="2"> |
|
| 1606 |
<input name="FA_Name" size="40" title="FA_Name" value="$form->{FA_Name}" $readonly>
|
|
| 1607 |
<td> |
|
| 1608 |
</tr> |
|
| 1558 | 1609 |
<tr> |
| 1559 | 1610 |
<td colspan="2"> |
| 1560 | 1611 |
<input name="FA_Strasse" size="40" title="FA_Strasse" value="$form->{FA_Strasse}" $readonly>
|
| ... | ... | |
| 1578 | 1629 |
| . $locale->text('Telefon') . qq|<br>
|
| 1579 | 1630 |
<input name="FA_Telefon" size="40" title="FA_Telefon" value="$form->{FA_Telefon}" $readonly>
|
| 1580 | 1631 |
<br> |
| 1581 |
<br> |
|
| 1632 |
<br>
|
|
| 1582 | 1633 |
| . $locale->text('Fax') . qq|<br>
|
| 1583 | 1634 |
<input name="FA_Fax" size="40" title="FA_Fax" value="$form->{FA_Fax}" $readonly>
|
| 1584 | 1635 |
<br> |
| ... | ... | |
| 1617 | 1668 |
<b>| |
| 1618 | 1669 |
. $locale->text('Bankverbindungen des Finanzamts') . qq|</b>
|
| 1619 | 1670 |
<legend> |
| 1620 |
<table> |
|
| 1671 |
<table>
|
|
| 1621 | 1672 |
<tr> |
| 1622 | 1673 |
<td> |
| 1623 | 1674 |
| . $locale->text('Kreditinstitut') . qq|
|
| ... | ... | |
| 1629 | 1680 |
<br> |
| 1630 | 1681 |
<input name="FA_Kontonummer_1" size="15" value="$form->{FA_Kontonummer_1}" $readonly>
|
| 1631 | 1682 |
<br> |
| 1632 |
<br> |
|
| 1683 |
<br>
|
|
| 1633 | 1684 |
| . $locale->text('Bankleitzahl') . qq|
|
| 1634 | 1685 |
<br> |
| 1635 | 1686 |
<input name="FA_BLZ_1" size="15" value="$form->{FA_BLZ_1}" $readonly>
|
| ... | ... | |
| 1644 | 1695 |
<br> |
| 1645 | 1696 |
<input name="FA_Kontonummer_2" size="15" value="$form->{FA_Kontonummer_2}" $readonly>
|
| 1646 | 1697 |
<br> |
| 1647 |
<br> |
|
| 1698 |
<br>
|
|
| 1648 | 1699 |
| . $locale->text('Bankleitzahl') . qq|
|
| 1649 | 1700 |
<br> |
| 1650 | 1701 |
<input name="FA_BLZ_2" size="15" value="$form->{FA_BLZ_2}" $readonly>
|
| ... | ... | |
| 1664 | 1715 |
<br> |
| 1665 | 1716 |
<input name="FA_Kontonummer_1" size="30" value="$form->{FA_Kontonummer_1}" $readonly>
|
| 1666 | 1717 |
<br> |
| 1667 |
<br> |
|
| 1718 |
<br>
|
|
| 1668 | 1719 |
| . $locale->text('Bankleitzahl (BLZ)') . qq|
|
| 1669 | 1720 |
<br> |
| 1670 | 1721 |
<input name="FA_BLZ_1" size="15" value="$form->{FA_BLZ_1}" $readonly>
|
| ... | ... | |
| 1682 | 1733 |
<legend> |
| 1683 | 1734 |
<b>| |
| 1684 | 1735 |
. $locale->text('Bankverbindung des Finanzamts') . qq|</b>
|
| 1685 |
<legend> |
|
| 1736 |
<legend>
|
|
| 1686 | 1737 |
| . $locale->text('Kontonummer') . qq|
|
| 1687 | 1738 |
<br> |
| 1688 | 1739 |
<input name="FA_Kontonummer_2" size="30" value="$form->{FA_Kontonummer_2}" $readonly>
|
| 1689 | 1740 |
<br> |
| 1690 |
<br> |
|
| 1741 |
<br>
|
|
| 1691 | 1742 |
| . $locale->text('Bankleitzahl (BLZ)') . qq|
|
| 1692 | 1743 |
<br> |
| 1693 | 1744 |
<input name="FA_BLZ_2" size="15" value="$form->{FA_BLZ_2}" $readonly>
|
| ... | ... | |
| 1701 | 1752 |
} |
| 1702 | 1753 |
print qq| |
| 1703 | 1754 |
</td> |
| 1704 |
</tr> |
|
| 1755 |
</tr>
|
|
| 1705 | 1756 |
</table> |
| 1706 | 1757 |
</fieldset> |
| 1707 | 1758 |
|; |
| ... | ... | |
| 1798 | 1849 |
do {
|
| 1799 | 1850 |
$form->error( |
| 1800 | 1851 |
"Ung?ltiger Anmeldezeitraum.\n |
| 1801 |
Sie k?nnen f?r ELSTER nur einen monatlichen oder |
|
| 1852 |
Sie k?nnen f?r ELSTER nur einen monatlichen oder
|
|
| 1802 | 1853 |
quartalsweisen Anmeldezeitraum ausw?hlen." |
| 1803 | 1854 |
); |
| 1804 | 1855 |
}; |
| ... | ... | |
| 1890 | 1941 |
|
| 1891 | 1942 |
sub continue {
|
| 1892 | 1943 |
$lxdebug->enter_sub(); |
| 1893 |
|
|
| 1894 | 1944 |
# allow Symbolic references just here: |
| 1895 | 1945 |
no strict 'refs'; |
| 1896 | 1946 |
&{ $form->{nextsub} };
|
| ... | ... | |
| 1898 | 1948 |
$lxdebug->leave_sub(); |
| 1899 | 1949 |
} |
| 1900 | 1950 |
|
| 1901 |
sub back { &{ $form->{lastsub} } }
|
|
| 1951 |
sub back {
|
|
| 1952 |
$lxdebug->enter_sub(); |
|
| 1953 |
&{ $form->{lastsub} };
|
|
| 1954 |
$lxdebug->leave_sub(); |
|
| 1955 |
} |
|
| 1902 | 1956 |
|
| 1903 | 1957 |
sub elster_hash {
|
| 1904 | 1958 |
$lxdebug->enter_sub(); |
| ... | ... | |
| 2036 | 2090 |
'logfile' => 'log/faxmlsend.log', |
| 2037 | 2091 |
'conffile' => 'faxmlsend.cnf', |
| 2038 | 2092 |
'debug' => '-debug' }; |
| 2039 |
|
|
| 2040 | 2093 |
$lxdebug->leave_sub(); |
| 2041 |
|
|
| 2042 | 2094 |
return $elster_conf; |
| 2095 |
|
|
| 2043 | 2096 |
} |
| 2044 | 2097 |
|
| 2045 | 2098 |
sub elster_xml {
|
| 2046 | 2099 |
$lxdebug->enter_sub(); |
| 2047 |
|
|
| 2048 | 2100 |
my $elster_conf = &elster_conf(); |
| 2049 | 2101 |
|
| 2050 | 2102 |
# $k51 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"51"})); # Ums?tze zu 16% USt
|
| ... | ... | |
| 2144 | 2196 |
close XML; |
| 2145 | 2197 |
$lxdebug->leave_sub(); |
| 2146 | 2198 |
} |
| 2199 |
|
|
Auch abrufbar als: Unified diff
Update der Ustva Funktion mit neuen Vorlagen für das Jahr 2006.