Revision 4dd73ccf
Von Stephan Köhler 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'
|
| ... | ... | |
| 991 | 1011 |
$form->{endbold} = "}";
|
| 992 | 1012 |
$form->{br} = '\\\\';
|
| 993 | 1013 |
|
| 1014 |
|
|
| 994 | 1015 |
my @numbers = qw(51r 86r 97r 93r 96 43 45 |
| 995 | 1016 |
66 62 67); |
| 996 | 1017 |
my $number = ''; |
| 997 |
foreach $number (@numbers) {
|
|
| 998 |
$form->{$number} =~ s/,/~~/g;
|
|
| 1018 |
# Zahlenformatierung f?r Latex USTVA Formulare |
|
| 1019 |
if ($myconfig{numberformat} eq '1.000,00' or
|
|
| 1020 |
$myconfig{numberformat} eq '1000,00') {
|
|
| 1021 |
foreach $number (@numbers) {
|
|
| 1022 |
$form->{$number} =~ s/,/~~/g;
|
|
| 1023 |
} |
|
| 1024 |
} |
|
| 1025 |
if ($myconfig{numberformat} eq '1000.00' or
|
|
| 1026 |
$myconfig{numberformat} eq '1,000.00') {
|
|
| 1027 |
foreach $number (@numbers) {
|
|
| 1028 |
$form->{$number} =~ s/\./~~/g;
|
|
| 1029 |
} |
|
| 999 | 1030 |
} |
| 1000 |
} elsif ($form->{format} eq 'html') {
|
|
| 1031 |
# Formatierungen f?r HTML Ausgabe |
|
| 1032 |
} elsif ($form->{format} eq 'html') {
|
|
| 1001 | 1033 |
$form->{padding} = " ";
|
| 1002 | 1034 |
$form->{bold} = "<b>";
|
| 1003 | 1035 |
$form->{endbold} = "</b>";
|
| ... | ... | |
| 1033 | 1065 |
|
| 1034 | 1066 |
sub edit {
|
| 1035 | 1067 |
$lxdebug->enter_sub(); |
| 1036 |
|
|
| 1037 | 1068 |
# edit all taxauthority prefs |
| 1038 | 1069 |
|
| 1039 | 1070 |
$form->header; |
| ... | ... | |
| 1044 | 1075 |
my $land = $form->{elsterland};
|
| 1045 | 1076 |
my $amt = $form->{elsterFFFF};
|
| 1046 | 1077 |
|
| 1078 |
my $callback = ''; |
|
| 1079 |
$callback = |
|
| 1080 |
"$form->{cbscript}?action=edit&login=$form->{cblogin}&path=$form->{cbpath}&root=$form->{cbroot}&rpw=$form->{cbrpw}"
|
|
| 1081 |
if ($form->{cbscript} ne '' and $form->{cblogin} ne '');
|
|
| 1082 |
|
|
| 1047 | 1083 |
$form->{title} = $locale->text('Finanzamt - Einstellungen');
|
| 1048 | 1084 |
print qq| |
| 1049 | 1085 |
<body> |
| ... | ... | |
| 1112 | 1148 |
<label for="">| |
| 1113 | 1149 |
. $locale->text('Dauerfristverl?ngerung')
|
| 1114 | 1150 |
. qq|</label> |
| 1115 |
|
|
| 1151 |
|
|
| 1116 | 1152 |
</fieldset> |
| 1117 | 1153 |
<br> |
| 1118 | 1154 |
<fieldset> |
| ... | ... | |
| 1157 | 1193 |
<input name="FA_steuerberater_tel" id=steuerberater size=25 value="$form->{FA_steuerberater_tel}">
|
| 1158 | 1194 |
</tr> |
| 1159 | 1195 |
</table> |
| 1160 |
|
|
| 1196 |
|
|
| 1161 | 1197 |
</fieldset> |
| 1162 | 1198 |
|
| 1163 | 1199 |
<br> |
| ... | ... | |
| 1166 | 1202 |
<!--<input type=submit class=submit name=action value="| |
| 1167 | 1203 |
. $locale->text('debug')
|
| 1168 | 1204 |
. qq|">--> |
| 1205 |
|; |
|
| 1206 |
print qq| |
|
| 1207 |
<input type="button" name="Verweis" value="| |
|
| 1208 |
. $locale->text('Back to user config...') . qq|"
|
|
| 1209 |
onClick="self.location.href='$callback'">| if ($callback ne ''); |
|
| 1210 |
print qq| |
|
| 1211 |
|
|
| 1169 | 1212 |
<input type=submit class=submit name=action value="| |
| 1170 | 1213 |
. $locale->text('continue') . qq|">
|
| 1214 |
|
|
| 1171 | 1215 |
</td> |
| 1172 | 1216 |
</tr> |
| 1173 | 1217 |
</table> |
| ... | ... | |
| 1176 | 1220 |
my @variables = qw( steuernummer elsterland elstersteuernummer elsterFFFF); |
| 1177 | 1221 |
my $variable = ''; |
| 1178 | 1222 |
foreach $variable (@variables) {
|
| 1179 |
print qq| |
|
| 1223 |
print qq|
|
|
| 1180 | 1224 |
<input name=$variable type=hidden value="$form->{$variable}">|;
|
| 1181 | 1225 |
} |
| 1182 | 1226 |
my $steuernummer_new = ''; |
| 1183 | 1227 |
|
| 1184 | 1228 |
#<input type=hidden name="steuernummer_new" value="$form->{$steuernummer_new}">
|
| 1185 | 1229 |
print qq| |
| 1186 |
|
|
| 1230 |
<input type=hidden name="callback" value="$callback"> |
|
| 1187 | 1231 |
<input type=hidden name="nextsub" value="edit_form"> |
| 1188 | 1232 |
<input type=hidden name="warnung" value="1"> |
| 1189 | 1233 |
<input type=hidden name="saved" value="| |
| ... | ... | |
| 1201 | 1245 |
FA_Email FA_Internet); |
| 1202 | 1246 |
|
| 1203 | 1247 |
foreach $variable (@variables) {
|
| 1204 |
print qq| |
|
| 1248 |
print qq|
|
|
| 1205 | 1249 |
<input name=$variable type=hidden value="$form->{$variable}">|;
|
| 1206 | 1250 |
} |
| 1207 | 1251 |
|
| ... | ... | |
| 1227 | 1271 |
|
| 1228 | 1272 |
# Auf ?bergabefehler checken |
| 1229 | 1273 |
USTVA::info( |
| 1230 |
$locale->text('Bitte das Bundesland UND die Stadt bzw. den Einzugsbereich Ihres zust?ndigen Finanzamts ausw?hlen.'))
|
|
| 1274 |
$locale->text( |
|
| 1275 |
'Bitte das Bundesland UND die Stadt bzw. den Einzugsbereich Ihres zust?ndigen Finanzamts ausw?hlen.' |
|
| 1276 |
)) |
|
| 1231 | 1277 |
if ( $form->{elsterFFFF_new} eq 'Auswahl'
|
| 1232 | 1278 |
|| $form->{elsterland_new} eq 'Auswahl');
|
| 1233 | 1279 |
USTVA::info( |
| 1234 | 1280 |
$locale->text( |
| 1235 |
'Es fehlen Angaben zur Versteuerung. |
|
| 1236 |
Wenn Sie Ist Versteuert sind, w?hlen Sie die Einnahmen/?berschu?-Rechnung aus. |
|
| 1281 |
'Es fehlen Angaben zur Versteuerung.
|
|
| 1282 |
Wenn Sie Ist Versteuert sind, w?hlen Sie die Einnahmen/?berschu?-Rechnung aus.
|
|
| 1237 | 1283 |
Sind Sie Soll-Versteuert und Bilanzverpflichtet, dann w?hlen Sie Bilanz aus.' |
| 1238 | 1284 |
)) |
| 1239 | 1285 |
if ($form->{method} eq '');
|
| ... | ... | |
| 1338 | 1384 |
<tr> |
| 1339 | 1385 |
<td align="left"> |
| 1340 | 1386 |
|
| 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 | 1387 |
<input type=hidden name=lastsub value="edit"> |
| 1350 |
<input type=submit class=submit name=action value="| |
|
| 1351 |
. $locale->text('back') . qq|">
|
|
| 1352 |
|; |
|
| 1388 |
|; |
|
| 1389 |
print qq|<input type=submit class=submit name=action value="| |
|
| 1390 |
. $locale->text('back') . qq|">|
|
|
| 1391 |
if ($form->{callback} eq '');
|
|
| 1392 |
|
|
| 1393 |
print qq| |
|
| 1394 |
<input type="button" name="Verweis" value="| |
|
| 1395 |
. $locale->text('Back to user config...') . qq|"
|
|
| 1396 |
onClick="self.location.href='$form->{callback}'">|
|
|
| 1397 |
if ($form->{callback} ne '');
|
|
| 1353 | 1398 |
|
| 1354 | 1399 |
if ($form->{warnung} eq "1") {
|
| 1355 | 1400 |
print qq| |
| ... | ... | |
| 1380 | 1425 |
my @variables = qw(FA_steuerberater_name FA_steuerberater_street |
| 1381 | 1426 |
FA_steuerberater_city FA_steuerberater_tel |
| 1382 | 1427 |
FA_voranmeld method |
| 1383 |
FA_dauerfrist FA_71 FA_Name elster
|
|
| 1428 |
FA_dauerfrist FA_71 elster |
|
| 1384 | 1429 |
path login password type elster_init saved |
| 1385 | 1430 |
); |
| 1386 | 1431 |
my $variable = ''; |
| ... | ... | |
| 1394 | 1439 |
<input type=hidden name="warnung" value="$warnung"> |
| 1395 | 1440 |
<input type=hidden name="elstersteuernummer" value="$elstersteuernummer"> |
| 1396 | 1441 |
<input type=hidden name="steuernummer" value="$stnr"> |
| 1442 |
<input type=hidden name="callback" value="$form->{callback}">
|
|
| 1397 | 1443 |
</form> |
| 1398 | 1444 |
|; |
| 1399 | 1445 |
$lxdebug->leave_sub(); |
| ... | ... | |
| 1440 | 1486 |
|
| 1441 | 1487 |
my ($userpath, $filename) = @_; |
| 1442 | 1488 |
my ($key, $value) = ''; |
| 1443 |
open(FACONF, "$userpath/$filename") |
|
| 1444 |
or $form->error("$userpath/$filename : $!");
|
|
| 1489 |
open(FACONF, "$userpath/$form->{login}_$filename")
|
|
| 1490 |
or #falls Datei nicht vorhanden ist |
|
| 1491 |
sub {
|
|
| 1492 |
open(FANEW, ">$userpath/$form->{login}_$filename")
|
|
| 1493 |
or $form->error("$userpath/$filename : $!");
|
|
| 1494 |
close FANEW; |
|
| 1495 |
open(FACONF, "$userpath/$form->{login}_$filename")
|
|
| 1496 |
or $form->error("$userpath/$form->{username}_$filename : $!");
|
|
| 1497 |
}; |
|
| 1445 | 1498 |
while (<FACONF>) {
|
| 1446 | 1499 |
last if /^\[/; |
| 1447 | 1500 |
next if /^(#|\s)/; |
| ... | ... | |
| 1470 | 1523 |
|
| 1471 | 1524 |
sub save {
|
| 1472 | 1525 |
$lxdebug->enter_sub(); |
| 1473 |
my $filename = $form->{filename};
|
|
| 1526 |
my $filename = "$form->{login}_$form->{filename}";
|
|
| 1474 | 1527 |
|
| 1475 | 1528 |
#zuerst die steuernummer aus den part, parts_X_Y und delimiter herstellen |
| 1476 | 1529 |
create_steuernummer; |
| ... | ... | |
| 1555 | 1608 |
</legend> |
| 1556 | 1609 |
|
| 1557 | 1610 |
<table width="100%"> |
| 1611 |
<tr> |
|
| 1612 |
<td> |
|
| 1613 |
| . $locale->text('Finanzamt') . qq|
|
|
| 1614 |
</td> |
|
| 1615 |
</tr> |
|
| 1616 |
<tr> |
|
| 1617 |
<td colspan="2"> |
|
| 1618 |
<input name="FA_Name" size="40" title="FA_Name" value="$form->{FA_Name}" $readonly>
|
|
| 1619 |
<td> |
|
| 1620 |
</tr> |
|
| 1558 | 1621 |
<tr> |
| 1559 | 1622 |
<td colspan="2"> |
| 1560 | 1623 |
<input name="FA_Strasse" size="40" title="FA_Strasse" value="$form->{FA_Strasse}" $readonly>
|
| ... | ... | |
| 1578 | 1641 |
| . $locale->text('Telefon') . qq|<br>
|
| 1579 | 1642 |
<input name="FA_Telefon" size="40" title="FA_Telefon" value="$form->{FA_Telefon}" $readonly>
|
| 1580 | 1643 |
<br> |
| 1581 |
<br> |
|
| 1644 |
<br>
|
|
| 1582 | 1645 |
| . $locale->text('Fax') . qq|<br>
|
| 1583 | 1646 |
<input name="FA_Fax" size="40" title="FA_Fax" value="$form->{FA_Fax}" $readonly>
|
| 1584 | 1647 |
<br> |
| ... | ... | |
| 1617 | 1680 |
<b>| |
| 1618 | 1681 |
. $locale->text('Bankverbindungen des Finanzamts') . qq|</b>
|
| 1619 | 1682 |
<legend> |
| 1620 |
<table> |
|
| 1683 |
<table>
|
|
| 1621 | 1684 |
<tr> |
| 1622 | 1685 |
<td> |
| 1623 | 1686 |
| . $locale->text('Kreditinstitut') . qq|
|
| ... | ... | |
| 1629 | 1692 |
<br> |
| 1630 | 1693 |
<input name="FA_Kontonummer_1" size="15" value="$form->{FA_Kontonummer_1}" $readonly>
|
| 1631 | 1694 |
<br> |
| 1632 |
<br> |
|
| 1695 |
<br>
|
|
| 1633 | 1696 |
| . $locale->text('Bankleitzahl') . qq|
|
| 1634 | 1697 |
<br> |
| 1635 | 1698 |
<input name="FA_BLZ_1" size="15" value="$form->{FA_BLZ_1}" $readonly>
|
| ... | ... | |
| 1644 | 1707 |
<br> |
| 1645 | 1708 |
<input name="FA_Kontonummer_2" size="15" value="$form->{FA_Kontonummer_2}" $readonly>
|
| 1646 | 1709 |
<br> |
| 1647 |
<br> |
|
| 1710 |
<br>
|
|
| 1648 | 1711 |
| . $locale->text('Bankleitzahl') . qq|
|
| 1649 | 1712 |
<br> |
| 1650 | 1713 |
<input name="FA_BLZ_2" size="15" value="$form->{FA_BLZ_2}" $readonly>
|
| ... | ... | |
| 1664 | 1727 |
<br> |
| 1665 | 1728 |
<input name="FA_Kontonummer_1" size="30" value="$form->{FA_Kontonummer_1}" $readonly>
|
| 1666 | 1729 |
<br> |
| 1667 |
<br> |
|
| 1730 |
<br>
|
|
| 1668 | 1731 |
| . $locale->text('Bankleitzahl (BLZ)') . qq|
|
| 1669 | 1732 |
<br> |
| 1670 | 1733 |
<input name="FA_BLZ_1" size="15" value="$form->{FA_BLZ_1}" $readonly>
|
| ... | ... | |
| 1682 | 1745 |
<legend> |
| 1683 | 1746 |
<b>| |
| 1684 | 1747 |
. $locale->text('Bankverbindung des Finanzamts') . qq|</b>
|
| 1685 |
<legend> |
|
| 1748 |
<legend>
|
|
| 1686 | 1749 |
| . $locale->text('Kontonummer') . qq|
|
| 1687 | 1750 |
<br> |
| 1688 | 1751 |
<input name="FA_Kontonummer_2" size="30" value="$form->{FA_Kontonummer_2}" $readonly>
|
| 1689 | 1752 |
<br> |
| 1690 |
<br> |
|
| 1753 |
<br>
|
|
| 1691 | 1754 |
| . $locale->text('Bankleitzahl (BLZ)') . qq|
|
| 1692 | 1755 |
<br> |
| 1693 | 1756 |
<input name="FA_BLZ_2" size="15" value="$form->{FA_BLZ_2}" $readonly>
|
| ... | ... | |
| 1701 | 1764 |
} |
| 1702 | 1765 |
print qq| |
| 1703 | 1766 |
</td> |
| 1704 |
</tr> |
|
| 1767 |
</tr>
|
|
| 1705 | 1768 |
</table> |
| 1706 | 1769 |
</fieldset> |
| 1707 | 1770 |
|; |
| ... | ... | |
| 1798 | 1861 |
do {
|
| 1799 | 1862 |
$form->error( |
| 1800 | 1863 |
"Ung?ltiger Anmeldezeitraum.\n |
| 1801 |
Sie k?nnen f?r ELSTER nur einen monatlichen oder |
|
| 1864 |
Sie k?nnen f?r ELSTER nur einen monatlichen oder
|
|
| 1802 | 1865 |
quartalsweisen Anmeldezeitraum ausw?hlen." |
| 1803 | 1866 |
); |
| 1804 | 1867 |
}; |
| ... | ... | |
| 1890 | 1953 |
|
| 1891 | 1954 |
sub continue {
|
| 1892 | 1955 |
$lxdebug->enter_sub(); |
| 1893 |
|
|
| 1894 | 1956 |
# allow Symbolic references just here: |
| 1895 | 1957 |
no strict 'refs'; |
| 1896 | 1958 |
&{ $form->{nextsub} };
|
| ... | ... | |
| 1898 | 1960 |
$lxdebug->leave_sub(); |
| 1899 | 1961 |
} |
| 1900 | 1962 |
|
| 1901 |
sub back { &{ $form->{lastsub} } }
|
|
| 1963 |
sub back {
|
|
| 1964 |
$lxdebug->enter_sub(); |
|
| 1965 |
&{ $form->{lastsub} };
|
|
| 1966 |
$lxdebug->leave_sub(); |
|
| 1967 |
} |
|
| 1902 | 1968 |
|
| 1903 | 1969 |
sub elster_hash {
|
| 1904 | 1970 |
$lxdebug->enter_sub(); |
| ... | ... | |
| 2036 | 2102 |
'logfile' => 'log/faxmlsend.log', |
| 2037 | 2103 |
'conffile' => 'faxmlsend.cnf', |
| 2038 | 2104 |
'debug' => '-debug' }; |
| 2039 |
|
|
| 2040 | 2105 |
$lxdebug->leave_sub(); |
| 2041 |
|
|
| 2042 | 2106 |
return $elster_conf; |
| 2107 |
|
|
| 2043 | 2108 |
} |
| 2044 | 2109 |
|
| 2045 | 2110 |
sub elster_xml {
|
| 2046 | 2111 |
$lxdebug->enter_sub(); |
| 2047 |
|
|
| 2048 | 2112 |
my $elster_conf = &elster_conf(); |
| 2049 | 2113 |
|
| 2050 | 2114 |
# $k51 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"51"})); # Ums?tze zu 16% USt
|
| ... | ... | |
| 2144 | 2208 |
close XML; |
| 2145 | 2209 |
$lxdebug->leave_sub(); |
| 2146 | 2210 |
} |
| 2211 |
|
|
Auch abrufbar als: Unified diff
Merge von 623-628 aus unstable: USTVA
-Update der Ustva Funktion mit neuen Vorlagen für das Jahr 2006.
-Bug Rundungsfehler bei Ustva Ausgabe
-Alte USTVA Dateien geloescht
-sql/finanzamt.sql wiederhergestellt, weil es sonst beim Update Probleme geben kann.
-USTVA Helpdatei aktualisiert.
-USTVA: Zahlenformatierung in Tex-Reports erweitert für alle Zahlenformate