| 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 |
|
Update der Ustva Funktion mit neuen Vorlagen für das Jahr 2006.