$form->{title} |
@@ -104,14 +99,22 @@ sub report {
$department
-|;
+ |;
# Hier Aufruf von get_config aus bin/mozilla/fa.pl zum
# Einlesen der Finanzamtdaten
&get_config($userspath, 'finanzamt.ini');
+ # Hier Einlesen der user-config
+ # steuernummer entfernt für prerelease
my @a = qw(signature name company address businessnumber tel fax email
- company_street company_city company_email);
+ co_chief co_department co_custom1 co_custom2 co_custom3 co_custom4 co_custom5
+ co_name1 co_name2
+ co_street co_street1 co_zip co_city co_city1 co_country co_tel co_tel1 co_tel2
+ co_fax co_fax1 co_email co_email1 co_url co_url1 ustid duns
+ co_bankname co_bankname1 co_bankname2 co_bankname3 co_blz co_blz1
+ co_blz2 co_blz3 co_accountnr co_accountnr1 co_accountnr2 co_accountnr3);
+
map { $form->{$_} = $myconfig->{$_} } @a;
my $oeffnungszeiten = $form->{FA_Oeffnungszeiten};
@@ -121,7 +124,7 @@ sub report {
@@ -188,11 +203,11 @@ sub report {
|
@@ -1176,18 +1350,18 @@ sub edit {
my @variables = qw( steuernummer elsterland elstersteuernummer elsterFFFF);
my $variable = '';
foreach $variable (@variables) {
- print qq|
+ print qq|
|;
}
my $steuernummer_new = '';
#
print qq|
-
+
+ . $locale->text('Check Details') . qq|">
{path}>
{login}>
{password}>
@@ -1201,7 +1375,7 @@ sub edit {
FA_Email FA_Internet);
foreach $variable (@variables) {
- print qq|
+ print qq|
|;
}
@@ -1226,24 +1400,19 @@ sub edit_form {
if ($form->{saved} eq $locale->text('saved'));
# Auf Übergabefehler checken
- USTVA::info(
- $locale->text('Bitte das Bundesland UND die Stadt bzw. den Einzugsbereich Ihres zuständigen Finanzamts auswählen.'))
+ USTVA::info( $locale->text('Missing Tax Authoritys Preferences') . "\n"
+ . $locale->text('USTVA-Hint: Tax Authoritys'))
if ( $form->{elsterFFFF_new} eq 'Auswahl'
|| $form->{elsterland_new} eq 'Auswahl');
- USTVA::info(
- $locale->text(
- 'Es fehlen Angaben zur Versteuerung.
- Wenn Sie Ist Versteuert sind, wählen Sie die Einnahmen/Überschuß-Rechnung aus.
- Sind Sie Soll-Versteuert und Bilanzverpflichtet, dann wählen Sie Bilanz aus.'
- ))
+ USTVA::info( $locale->text('Missing Method!') . "\n"
+ . $locale->text('USTVA-Hint: Method'))
if ($form->{method} eq '');
# Klären, ob Variablen bereits befüllt sind UND ob veräderungen auf
# der vorherigen Maske stattfanden: $change = 1(in der edit sub,
# mittels get_config)
- my $change =
- $form->{elsterland} eq $form->{elsterland_new}
+ my $change = $form->{elsterland} eq $form->{elsterland_new}
&& $form->{elsterFFFF} eq $form->{elsterFFFF_new} ? '0' : '1';
$change = '0' if ($form->{saved} eq $locale->text('saved'));
my $elster_init = &elster_hash();
@@ -1304,8 +1473,7 @@ sub edit_form {
|
- . $locale->text('Finanzamt - Einstellungen')
- . qq| |
+ . $locale->text('Tax Office Preferences') . qq|
@@ -1320,7 +1488,7 @@ sub edit_form {
|;
@@ -1338,18 +1506,17 @@ sub edit_form {
-
-
-
- |;
+ |;
+ print qq||
+ if ($form->{callback} eq '');
+
+ print qq|
+ |
+ if ($form->{callback} ne '');
if ($form->{warnung} eq "1") {
print qq|
@@ -1357,7 +1524,7 @@ sub edit_form {
+ . $locale->text('Check Details') . qq|">
|;
} else {
print qq|
@@ -1380,7 +1547,7 @@ sub edit_form {
my @variables = qw(FA_steuerberater_name FA_steuerberater_street
FA_steuerberater_city FA_steuerberater_tel
FA_voranmeld method
- FA_dauerfrist FA_71 FA_Name elster
+ FA_dauerfrist FA_71 elster
path login password type elster_init saved
);
my $variable = '';
@@ -1394,6 +1561,7 @@ sub edit_form {
+
|;
$lxdebug->leave_sub();
@@ -1440,8 +1608,15 @@ sub get_config {
my ($userpath, $filename) = @_;
my ($key, $value) = '';
- open(FACONF, "$userpath/$filename")
- or $form->error("$userpath/$filename : $!");
+ open(FACONF, "$userpath/$form->{login}_$filename")
+ or #falls Datei nicht vorhanden ist
+ sub {
+ open(FANEW, ">$userpath/$form->{login}_$filename")
+ or $form->error("$userpath/$filename : $!");
+ close FANEW;
+ open(FACONF, "$userpath/$form->{login}_$filename")
+ or $form->error("$userpath/$form->{username}_$filename : $!");
+ };
while () {
last if /^\[/;
next if /^(#|\s)/;
@@ -1470,7 +1645,7 @@ sub get_config {
sub save {
$lxdebug->enter_sub();
- my $filename = $form->{filename};
+ my $filename = "$form->{login}_$form->{filename}";
#zuerst die steuernummer aus den part, parts_X_Y und delimiter herstellen
create_steuernummer;
@@ -1521,7 +1696,7 @@ sub save {
} else {
- $form->{saved} = $locale->text('Bitte eine Steuernummer angeben');
+ $form->{saved} = $locale->text('Choose a Tax Number');
}
&edit_form;
@@ -1537,8 +1712,7 @@ sub show_fa_daten {
|;
@@ -1555,6 +1729,16 @@ sub show_fa_daten {
+
+
+ | . $locale->text('Tax Office') . qq|
+ |
+
+
+
+
+ |
+ |
@@ -1573,12 +1757,12 @@ sub show_fa_daten {
- | . $locale->text('Telefon') . qq|
+ | . $locale->text('Telephone') . qq|
-
+
| . $locale->text('Fax') . qq|
@@ -1595,7 +1779,7 @@ sub show_fa_daten {
@@ -1615,37 +1799,37 @@ sub show_fa_daten {
| | | |