Revision 499fe31c
Von Udo Spallek vor mehr als 18 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 408 | 408 |
</fieldset> |
| 409 | 409 |
|; |
| 410 | 410 |
|
| 411 |
# Stichtag der n?chsten USTVA berechnen |
|
| 412 |
# |
|
| 413 |
# ($stichtag, $tage_bis, $ical) = FA->stichtag($today[dd.mm.yyyy], |
|
| 414 |
# $FA_dauerfrist[1,0], |
|
| 415 |
# $FA_voranmeld[month, quarter]) |
|
| 416 |
#$tmpdateform= $myconfig{dateformat};
|
|
| 417 |
# $myconfig{dateformat}= "dd.mm.yyyy";
|
|
| 418 |
# $form->{today} = $form->datetonum($form->current_date(\%myconfig), \%myconfig);
|
|
| 419 |
# ($stichtag, $description, $tage_bis, $ical) = FA::stichtag($form->{today}, $form->{FA_dauerfrist},$form->{FA_voranmeld});
|
|
| 420 |
# $form->{today} = $form->date($stichtag, \%myconfig );
|
|
| 421 |
#$myconfig{dateformat}= $tmpdateform;
|
|
| 422 |
|
|
| 423 |
#print qq| |
|
| 424 |
# <br> |
|
| 425 |
# <br> |
|
| 426 |
# <fieldset> |
|
| 427 |
# <label> |
|
| 428 |
# |.$locale->text('Anstehende Voranmeldungen').qq|
|
|
| 429 |
# </label> |
|
| 430 |
# <h2 class="confirm">$stichtag<h2> |
|
| 431 |
# <h3>$description</h3> |
|
| 432 |
# <h4>$form->{today}</h4>
|
|
| 433 |
# |
|
| 434 |
# </fieldset>|; |
|
| 435 |
|
|
| 436 | 411 |
} else {
|
| 437 | 412 |
print qq| |
| 438 | 413 |
<td width="50%" valign="bottom"> |
| ... | ... | |
| 440 | 415 |
<legend> |
| 441 | 416 |
<b>| . $locale->text('Hinweise') . qq|</b>
|
| 442 | 417 |
</legend> |
| 443 |
<h2 class="confirm">Die Ausgabefunktionen sind wegen unzureichender Voreinstellungen deaktiviert.</h2>
|
|
| 444 |
<h3>Hilfe:</h3>
|
|
| 418 |
<h2 class="confirm">| . $locale->text('Missing Preferences: Outputroutine disabled') . qq|</h2>
|
|
| 419 |
<h3>| . $locale->text('Help:') . qq|</h3>
|
|
| 445 | 420 |
<ul> |
| 446 |
<li> W?hlen Sie im Administrationsmen? den momentanen Benutzer aus |
|
| 447 |
(siehe Kopfzeile). Dort k?nnen Sie fehlende Firmenangaben bzw. |
|
| 448 |
die Steuernummer erg?nzen.</li> |
|
| 421 |
<li>| . $locale->text('Hint-Missing-Preferences') . qq|</li>
|
|
| 449 | 422 |
</ul> |
| 450 | 423 |
</fieldset> |
| 451 | 424 |
|; |
| ... | ... | |
| 740 | 713 |
my $key = ''; |
| 741 | 714 |
foreach $key (sort keys %listea) {
|
| 742 | 715 |
print qq| |
| 743 |
<option value="$key">$listea{$key}</option>
|
|
| 744 |
|; |
|
| 716 |
<option value="$key">| . $locale->text("$listea{$key}").
|
|
| 717 |
qq|</option>\n|;
|
|
| 745 | 718 |
} |
| 746 | 719 |
|
| 747 | 720 |
foreach $key (sort keys %listeb) {
|
| 748 | 721 |
print qq| |
| 749 |
<option value="$key">| . $locale->text("$listeb{$key}") . qq|</option>
|
|
| 750 |
|
|
| 751 |
|; |
|
| 722 |
<option value="$key">| . $locale->text("$listeb{$key}").
|
|
| 723 |
qq|</option>\n|; |
|
| 752 | 724 |
} |
| 753 | 725 |
print qq|</select>|; |
| 754 | 726 |
} |
| ... | ... | |
| 1292 | 1264 |
|
| 1293 | 1265 |
# Auf ?bergabefehler checken |
| 1294 | 1266 |
USTVA::info( |
| 1295 |
$locale->text( |
|
| 1296 |
'Bitte das Bundesland UND die Stadt bzw. den Einzugsbereich Ihres zust?ndigen Finanzamts ausw?hlen.' |
|
| 1297 |
)) |
|
| 1267 |
$locale->text('Missing Tax Authoritys Preferences') . "\n" .
|
|
| 1268 |
$locale->text('USTVA-Hint: Tax Authoritys'))
|
|
| 1298 | 1269 |
if ( $form->{elsterFFFF_new} eq 'Auswahl'
|
| 1299 | 1270 |
|| $form->{elsterland_new} eq 'Auswahl');
|
| 1300 | 1271 |
USTVA::info( |
| 1301 |
$locale->text( |
|
| 1302 |
'Es fehlen Angaben zur Versteuerung. |
|
| 1303 |
Wenn Sie Ist Versteuert sind, w?hlen Sie die Einnahmen/?berschu?-Rechnung aus. |
|
| 1304 |
Sind Sie Soll-Versteuert und Bilanzverpflichtet, dann w?hlen Sie Bilanz aus.' |
|
| 1305 |
)) |
|
| 1272 |
$locale->text('Missing Method!') . "\n" .
|
|
| 1273 |
$locale->text('USTVA-Hint: Method'))
|
|
| 1306 | 1274 |
if ($form->{method} eq '');
|
| 1307 | 1275 |
|
| 1308 | 1276 |
# Kl?ren, ob Variablen bereits bef?llt sind UND ob ver?derungen auf |
Auch abrufbar als: Unified diff
Fixed minor locales problems. Updated help.