Revision 7e2da79f
Von Udo Spallek vor mehr als 19 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
|
# 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};
|
||
| ... | ... | |
|
| . $locale->text('Kein Firmenname hinterlegt!') . qq|</a><br>
|
||
|
|;
|
||
|
}
|
||
|
|
||
|
# Anpassungen der Variablennamen auf pre 2.1.1 Namen
|
||
|
# kl?ren, ob $form->{company_street|_address} gesetzt sind
|
||
|
#
|
||
|
|
||
|
#kl?ren, ob $form->{company_street|_address} gesetzt sind
|
||
|
###
|
||
|
if ($form->{address} ne '') {
|
||
|
my $temp = $form->{address};
|
||
|
$temp =~ s/\\n/<br \/>/;
|
||
|
print qq|$temp|;
|
||
|
($form->{company_street}, $form->{company_city}) = split("<br \/", $temp);
|
||
|
} elsif ($form->{address} eq ''
|
||
|
and ($form->{company_street} ne '' and $form->{company_city} ne '')) {
|
||
|
print qq|$form->{company_street}<br>\n| if ($form->{company_street} ne '');
|
||
|
print qq|$form->{company_city}\n| if ($form->{company_city} ne '');
|
||
|
} elsif ($form->{company_street} eq '' or $form->{company_city} eq '') {
|
||
|
($form->{co_street}, $form->{co_city}) = split("<br \/>", $temp);
|
||
|
}
|
||
|
|
||
|
if ( $form->{co_street} ne ''
|
||
|
and ($form->{co_zip} ne ''
|
||
|
or $form->{co_city} ne '') ) {
|
||
|
print qq|
|
||
|
$form->{co_street}<br>
|
||
|
$form->{co_street1}<br>
|
||
|
$form->{co_zip} $form->{co_city}|;
|
||
|
} else {
|
||
|
print qq|
|
||
|
<a href=am.pl?path=$form->{path}&action=config&level=Programm--Preferences&login=$form->{login}&password=$form->{password}>
|
||
|
| . $locale->text('Keine Firmenadresse hinterlegt!') . qq|</a>\n|;
|
||
|
}
|
||
|
|
||
|
$form->{co_email}=$form->{email} unless $form->{co_email}='';
|
||
|
$form->{co_tel}=$form->{tel} unless $form->{co_tel}='';
|
||
|
$form->{co_fax}=$form->{fax} unless $form->{co_fax}='';
|
||
|
$form->{co_url}=$form->{urlx} unless $form->{co_url}='';
|
||
|
|
||
|
|
||
|
print qq|
|
||
|
<br>
|
||
|
<br>
|
||
|
| . $locale->text('Tel.: ') . qq|
|
||
|
$form->{tel}
|
||
|
$form->{co_tel}
|
||
|
<br>
|
||
|
| . $locale->text('Fax.: ') . qq|
|
||
|
$form->{fax}
|
||
|
$form->{co_fax}
|
||
|
<br>
|
||
|
<br>
|
||
|
$form->{email}
|
||
|
$form->{co_email}
|
||
|
<br>
|
||
|
<br>
|
||
|
| . $locale->text('Steuernummer: ') . qq|
|
||
| ... | ... | |
|
. qq|" name="FA_steuerberater" id=steuerberater class=checkbox type=checkbox value="1">
|
||
|
<b>| . $locale->text('Steuerberater/-in') . qq|</b>
|
||
|
</legend>
|
||
|
|
||
|
|
||
|
$form->{FA_steuerberater_name}<br>
|
||
|
$form->{FA_steuerberater_street}<br>
|
||
|
$form->{FA_steuerberater_city}<br>
|
||
| ... | ... | |
|
|
||
|
# accounting years if SQL-Ledger Version < 2.4.1
|
||
|
# $year = $form->{year} * 1;
|
||
|
@years = sort { $b <=> $a } (2000 .. ($year));
|
||
|
@years = sort { $b <=> $a } (2000 .. ($year+1));
|
||
|
$form->{all_years} = \@years;
|
||
|
}
|
||
|
map { $form->{selectaccountingyear} .= qq|<option>$_\n| }
|
||
| ... | ... | |
|
$checked = "checked" if ($form->{kz10} eq '1');
|
||
|
print qq|
|
||
|
<input name="FA_10" id=FA_10 class=checkbox type=checkbox value="1" $checked title = "|
|
||
|
. $locale->text('Ist dies eine berichtigte Anmeldung? (Nr. 10/Zeile 15 Steuererkl?rung)')
|
||
|
. $locale->text(
|
||
|
'Ist dies eine berichtigte Anmeldung? (Nr. 10/Zeile 15 Steuererkl?rung)')
|
||
|
. qq|">
|
||
|
| . $locale->text('Berichtigte Anmeldung') . qq|
|
||
|
<br>
|
||
| ... | ... | |
|
|
||
|
if ($form->{FA_Name} ne '') {
|
||
|
print qq|
|
||
|
<td width="50%" valign="top">
|
||
|
<td width="50%" valign="top">
|
||
|
<fieldset>
|
||
|
<legend>
|
||
|
<b>| . $locale->text('Finanzamt') . qq|</b>
|
||
| ... | ... | |
|
<br>
|
||
|
| . $locale->text('Tel. : ') . qq|
|
||
|
$form->{FA_Telefon}
|
||
|
<br>
|
||
|
<br>
|
||
|
| . $locale->text('Fax. : ') . qq|
|
||
|
$form->{FA_Fax}
|
||
|
<br>
|
||
| ... | ... | |
|
<tr>
|
||
|
<td>
|
||
|
$form->{FA_Bankbezeichnung_1}
|
||
|
<br>
|
||
|
<br>
|
||
|
| . $locale->text('Konto: ') . qq|
|
||
|
$form->{FA_Kontonummer_1}
|
||
|
<br>
|
||
| ... | ... | |
|
<br>
|
||
|
| . $locale->text('Konto: ') . qq|
|
||
|
$form->{FA_Kontonummer_2}
|
||
|
<br>
|
||
|
<br>
|
||
|
| . $locale->text('BLZ: ') . qq|
|
||
|
$form->{FA_BLZ_2}
|
||
|
</td>
|
||
| ... | ... | |
|
<br>
|
||
|
<br>
|
||
|
$form->{FA_Bankbezeichnung_1}
|
||
|
<br>
|
||
|
<br>
|
||
|
| . $locale->text('Konto: ') . qq|
|
||
|
$form->{FA_Kontonummer_1}
|
||
|
<br>
|
||
|
<br>
|
||
|
| . $locale->text('BLZ: ') . qq|
|
||
|
$form->{FA_BLZ_1} <br>
|
||
|
<br>|;
|
||
| ... | ... | |
|
<br>
|
||
|
<br>
|
||
|
$form->{FA_Bankbezeichnung_oertlich}
|
||
|
<br>
|
||
|
<br>
|
||
|
| . $locale->text('Konto: ') . qq|
|
||
|
$form->{FA_Kontonummer_2}
|
||
|
<br>
|
||
|
<br>
|
||
|
| . $locale->text('BLZ: ') . qq|
|
||
|
$form->{FA_BLZ_2}
|
||
|
|;
|
||
| ... | ... | |
|
<legend>
|
||
|
<b>| . $locale->text('Hinweise') . qq|</b>
|
||
|
</legend>
|
||
|
<h2 class="confirm">Die Ausgabefunktionen sind wegen fehlender Daten deaktiviert.</h2>
|
||
|
<h2 class="confirm">Die Ausgabefunktionen sind wegen unzureichender Voreinstellungen deaktiviert.</h2>
|
||
|
<h3>Hilfe:</h3>
|
||
|
<ul>
|
||
|
<li><a href="ustva.pl?path=$form->{path}&action=edit&level=Programm--Finanzamteinstellungen&login=$form->{login}&password=$form->{password}">
|
||
|
Bitte 'Einstellungen' w?hlen um die Erweiterten UStVa Funktionen nutzen zu k?nnen.</a></li>
|
||
|
<br>
|
||
|
<li><a href="am.pl?path=$form->{path}&action=config&level=Programm--Preferences&login=$form->{login}&password=$form->{password}">
|
||
|
Firmendaten k?nnen bei den Benutzereinstellungen ver?ndert werden.</a></li>
|
||
|
<li> W?hlen Sie im Administrationsmen? den momentanen Benutzer aus
|
||
|
(siehe Kopfzeile). Dort k?nnen Sie fehlende Firmenangaben bzw.
|
||
|
die Steuernummer erg?nzen.</li>
|
||
|
</ul>
|
||
|
</fieldset>
|
||
|
|;
|
||
| ... | ... | |
|
<br>
|
||
|
<input type="hidden" name="address" value="$form->{address}">
|
||
|
<input type="hidden" name="reporttype" value="custom">
|
||
|
<input type="hidden" name="company_street" value="$form->{company_street}">
|
||
|
<input type="hidden" name="company_city" value="$form->{company_city}">
|
||
|
<input type="hidden" name="co_street" value="$form->{co_street}">
|
||
|
<input type="hidden" name="co_city" value="$form->{co_city}">
|
||
|
<input type="hidden" name="path" value="$form->{path}">
|
||
|
<input type="hidden" name="login" value="$form->{login}">
|
||
|
<input type="hidden" name="password" value="$form->{password}">
|
||
| ... | ... | |
|
<input type=hidden name=nextsub value=generate_ustva>
|
||
|
<input $hide type=submit class=submit name=action value="|
|
||
|
. $locale->text('Show') . qq|">
|
||
|
<input type=submit class=submit name=action value="|
|
||
|
. $locale->text('Config') . qq|">
|
||
|
</td>
|
||
|
<td align="right">
|
||
|
|
||
| ... | ... | |
|
</body>
|
||
|
</html>
|
||
|
|;
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
| ... | ... | |
|
|
||
|
sub help {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
# parse help documents under doc
|
||
|
my $tmp = $form->{templates};
|
||
|
$form->{templates} = 'doc';
|
||
| ... | ... | |
|
|
||
|
sub show {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
#&generate_ustva();
|
||
|
no strict 'refs';
|
||
|
$lxdebug->leave_sub();
|
||
|
&{ $form->{nextsub} };
|
||
|
use strict 'refs';
|
||
|
$lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub ustva_vorauswahl {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
#Aktuelles Datum zerlegen:
|
||
|
$locale->date(\%myconfig, $form->current_date(\%myconfig, '0', '0'), 0) =~
|
||
|
/(\d\d).(\d\d).(\d\d\d\d)/;
|
||
| ... | ... | |
|
<option value="$key" $selected>|
|
||
|
. $locale->text("$liste{$key}")
|
||
|
. qq|</option>
|
||
|
|
||
|
|
||
|
|;
|
||
|
}
|
||
|
print qq|</select>|;
|
||
| ... | ... | |
|
<option value="$key">$listea{$key} |
|
||
|
. $locale->text('Quarter')
|
||
|
. qq|</option>
|
||
|
|
||
|
|
||
|
|;
|
||
|
}
|
||
|
|
||
|
foreach $key (sort keys %listeb) {
|
||
|
print qq|
|
||
|
<option value="$key">| . $locale->text("$listeb{$key}") . qq|</option>
|
||
|
|
||
|
|
||
|
|;
|
||
|
}
|
||
|
print qq|</select>|;
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
sub debug {
|
||
|
$lxdebug->enter_sub();
|
||
|
$form->debug();
|
||
|
$lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub show_options {
|
||
| ... | ... | |
|
$locale->date(\%myconfig, $form->current_date(\%myconfig), 0, 0, 0);
|
||
|
|
||
|
# setup variables for the form
|
||
|
my @a = ();
|
||
|
@a = qw(company businessnumber tel fax email company_email);
|
||
|
# steuernummer f?r prerelease entfernt
|
||
|
my @a = qw(company businessnumber tel fax 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;
|
||
|
|
||
|
if ($form->{address} ne '') {
|
||
|
my $temp = $form->{address};
|
||
|
$temp =~ s/\\n/<br \/>/;
|
||
|
($form->{company_street}, $form->{company_city}) = split("<br \/>", $temp);
|
||
|
($form->{co_street}, $form->{co_city}) = split("<br \/>", $temp);
|
||
|
}
|
||
|
|
||
|
if ( $form->{format} eq 'pdf'
|
||
| ... | ... | |
|
|
||
|
sub edit {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
# edit all taxauthority prefs
|
||
|
|
||
|
$form->header;
|
||
| ... | ... | |
|
my $land = $form->{elsterland};
|
||
|
my $amt = $form->{elsterFFFF};
|
||
|
|
||
|
my $callback = '';
|
||
|
$callback =
|
||
|
"$form->{cbscript}?action=edit&login=$form->{cblogin}&path=$form->{cbpath}&root=$form->{cbroot}&rpw=$form->{cbrpw}"
|
||
|
if ($form->{cbscript} ne '' and $form->{cblogin} ne '');
|
||
|
|
||
|
$form->{title} = $locale->text('Finanzamt - Einstellungen');
|
||
|
print qq|
|
||
|
<body>
|
||
| ... | ... | |
|
<label for="">|
|
||
|
. $locale->text('Dauerfristverl?ngerung')
|
||
|
. qq|</label>
|
||
|
|
||
|
|
||
|
</fieldset>
|
||
|
<br>
|
||
|
<fieldset>
|
||
| ... | ... | |
|
<input name="FA_steuerberater_tel" id=steuerberater size=25 value="$form->{FA_steuerberater_tel}">
|
||
|
</tr>
|
||
|
</table>
|
||
|
|
||
|
|
||
|
</fieldset>
|
||
|
|
||
|
<br>
|
||
| ... | ... | |
|
<!--<input type=submit class=submit name=action value="|
|
||
|
. $locale->text('debug')
|
||
|
. qq|">-->
|
||
|
|;
|
||
|
print qq|
|
||
|
<input type="button" name="Verweis" value="|
|
||
|
. $locale->text('Back to user config...') . qq|"
|
||
|
onClick="self.location.href='$callback'">| if ($callback ne '');
|
||
|
print qq|
|
||
|
|
||
|
<input type=submit class=submit name=action value="|
|
||
|
. $locale->text('continue') . qq|">
|
||
|
|
||
|
</td>
|
||
|
</tr>
|
||
|
</table>
|
||
| ... | ... | |
|
my @variables = qw( steuernummer elsterland elstersteuernummer elsterFFFF);
|
||
|
my $variable = '';
|
||
|
foreach $variable (@variables) {
|
||
|
print qq|
|
||
|
print qq|
|
||
|
<input name=$variable type=hidden value="$form->{$variable}">|;
|
||
|
}
|
||
|
my $steuernummer_new = '';
|
||
|
|
||
|
#<input type=hidden name="steuernummer_new" value="$form->{$steuernummer_new}">
|
||
|
print qq|
|
||
|
|
||
|
<input type=hidden name="callback" value="$callback">
|
||
|
<input type=hidden name="nextsub" value="edit_form">
|
||
|
<input type=hidden name="warnung" value="1">
|
||
|
<input type=hidden name="saved" value="|
|
||
| ... | ... | |
|
FA_Email FA_Internet);
|
||
|
|
||
|
foreach $variable (@variables) {
|
||
|
print qq|
|
||
|
print qq|
|
||
|
<input name=$variable type=hidden value="$form->{$variable}">|;
|
||
|
}
|
||
|
|
||
| ... | ... | |
|
|
||
|
# Auf ?bergabefehler checken
|
||
|
USTVA::info(
|
||
|
$locale->text('Bitte das Bundesland UND die Stadt bzw. den Einzugsbereich Ihres zust?ndigen Finanzamts ausw?hlen.'))
|
||
|
$locale->text(
|
||
|
'Bitte das Bundesland UND die Stadt bzw. den Einzugsbereich Ihres zust?ndigen Finanzamts ausw?hlen.'
|
||
|
))
|
||
|
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.
|
||
|
'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.'
|
||
|
))
|
||
|
if ($form->{method} eq '');
|
||
| ... | ... | |
|
<tr>
|
||
|
<td align="left">
|
||
|
|
||
|
|
||
|
<!--<input type=hidden name=nextsub value="debug">
|
||
|
<input type=submit class=submit name=action value="|
|
||
|
. $locale->text('debug') . qq|">
|
||
|
<input type=hidden name=nextsub value="test">
|
||
|
<input type=submit class=submit name=action value="|
|
||
|
. $locale->text('test')
|
||
|
. qq|">-->
|
||
|
<input type=hidden name=lastsub value="edit">
|
||
|
<input type=submit class=submit name=action value="|
|
||
|
. $locale->text('back') . qq|">
|
||
|
|;
|
||
|
|;
|
||
|
print qq|<input type=submit class=submit name=action value="|
|
||
|
. $locale->text('back') . qq|">|
|
||
|
if ($form->{callback} eq '');
|
||
|
|
||
|
print qq|
|
||
|
<input type="button" name="Verweis" value="|
|
||
|
. $locale->text('Back to user config...') . qq|"
|
||
|
onClick="self.location.href='$form->{callback}'">|
|
||
|
if ($form->{callback} ne '');
|
||
|
|
||
|
if ($form->{warnung} eq "1") {
|
||
|
print qq|
|
||
| ... | ... | |
|
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 = '';
|
||
| ... | ... | |
|
<input type=hidden name="warnung" value="$warnung">
|
||
|
<input type=hidden name="elstersteuernummer" value="$elstersteuernummer">
|
||
|
<input type=hidden name="steuernummer" value="$stnr">
|
||
|
<input type=hidden name="callback" value="$form->{callback}">
|
||
|
</form>
|
||
|
|;
|
||
|
$lxdebug->leave_sub();
|
||
| ... | ... | |
|
|
||
|
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 (<FACONF>) {
|
||
|
last if /^\[/;
|
||
|
next if /^(#|\s)/;
|
||
| ... | ... | |
|
|
||
|
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;
|
||
| ... | ... | |
|
</legend>
|
||
|
|
||
|
<table width="100%">
|
||
|
<tr>
|
||
|
<td>
|
||
|
| . $locale->text('Finanzamt') . qq|
|
||
|
</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td colspan="2">
|
||
|
<input name="FA_Name" size="40" title="FA_Name" value="$form->{FA_Name}" $readonly>
|
||
|
<td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td colspan="2">
|
||
|
<input name="FA_Strasse" size="40" title="FA_Strasse" value="$form->{FA_Strasse}" $readonly>
|
||
| ... | ... | |
|
| . $locale->text('Telefon') . qq|<br>
|
||
|
<input name="FA_Telefon" size="40" title="FA_Telefon" value="$form->{FA_Telefon}" $readonly>
|
||
|
<br>
|
||
|
<br>
|
||
|
<br>
|
||
|
| . $locale->text('Fax') . qq|<br>
|
||
|
<input name="FA_Fax" size="40" title="FA_Fax" value="$form->{FA_Fax}" $readonly>
|
||
|
<br>
|
||
| ... | ... | |
|
<b>|
|
||
|
. $locale->text('Bankverbindungen des Finanzamts') . qq|</b>
|
||
|
<legend>
|
||
|
<table>
|
||
|
<table>
|
||
|
<tr>
|
||
|
<td>
|
||
|
| . $locale->text('Kreditinstitut') . qq|
|
||
| ... | ... | |
|
<br>
|
||
|
<input name="FA_Kontonummer_1" size="15" value="$form->{FA_Kontonummer_1}" $readonly>
|
||
|
<br>
|
||
|
<br>
|
||
|
<br>
|
||
|
| . $locale->text('Bankleitzahl') . qq|
|
||
|
<br>
|
||
|
<input name="FA_BLZ_1" size="15" value="$form->{FA_BLZ_1}" $readonly>
|
||
| ... | ... | |
|
<br>
|
||
|
<input name="FA_Kontonummer_2" size="15" value="$form->{FA_Kontonummer_2}" $readonly>
|
||
|
<br>
|
||
|
<br>
|
||
|
<br>
|
||
|
| . $locale->text('Bankleitzahl') . qq|
|
||
|
<br>
|
||
|
<input name="FA_BLZ_2" size="15" value="$form->{FA_BLZ_2}" $readonly>
|
||
| ... | ... | |
|
<br>
|
||
|
<input name="FA_Kontonummer_1" size="30" value="$form->{FA_Kontonummer_1}" $readonly>
|
||
|
<br>
|
||
|
<br>
|
||
|
<br>
|
||
|
| . $locale->text('Bankleitzahl (BLZ)') . qq|
|
||
|
<br>
|
||
|
<input name="FA_BLZ_1" size="15" value="$form->{FA_BLZ_1}" $readonly>
|
||
| ... | ... | |
|
<legend>
|
||
|
<b>|
|
||
|
. $locale->text('Bankverbindung des Finanzamts') . qq|</b>
|
||
|
<legend>
|
||
|
<legend>
|
||
|
| . $locale->text('Kontonummer') . qq|
|
||
|
<br>
|
||
|
<input name="FA_Kontonummer_2" size="30" value="$form->{FA_Kontonummer_2}" $readonly>
|
||
|
<br>
|
||
|
<br>
|
||
|
<br>
|
||
|
| . $locale->text('Bankleitzahl (BLZ)') . qq|
|
||
|
<br>
|
||
|
<input name="FA_BLZ_2" size="15" value="$form->{FA_BLZ_2}" $readonly>
|
||
| ... | ... | |
|
}
|
||
|
print qq|
|
||
|
</td>
|
||
|
</tr>
|
||
|
</tr>
|
||
|
</table>
|
||
|
</fieldset>
|
||
|
|;
|
||
| ... | ... | |
|
do {
|
||
|
$form->error(
|
||
|
"Ung?ltiger Anmeldezeitraum.\n
|
||
|
Sie k?nnen f?r ELSTER nur einen monatlichen oder
|
||
|
Sie k?nnen f?r ELSTER nur einen monatlichen oder
|
||
|
quartalsweisen Anmeldezeitraum ausw?hlen."
|
||
|
);
|
||
|
};
|
||
| ... | ... | |
|
|
||
|
sub continue {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
# allow Symbolic references just here:
|
||
|
no strict 'refs';
|
||
|
&{ $form->{nextsub} };
|
||
| ... | ... | |
|
$lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub back { &{ $form->{lastsub} } }
|
||
|
sub back {
|
||
|
$lxdebug->enter_sub();
|
||
|
&{ $form->{lastsub} };
|
||
|
$lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub elster_hash {
|
||
|
$lxdebug->enter_sub();
|
||
| ... | ... | |
|
'logfile' => 'log/faxmlsend.log',
|
||
|
'conffile' => 'faxmlsend.cnf',
|
||
|
'debug' => '-debug' };
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
|
||
|
return $elster_conf;
|
||
|
|
||
|
}
|
||
|
|
||
|
sub elster_xml {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
my $elster_conf = &elster_conf();
|
||
|
|
||
|
# $k51 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"51"})); # Ums?tze zu 16% USt
|
||
| ... | ... | |
|
close XML;
|
||
|
$lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
| templates/German-ustva-2004.tex | ||
|---|---|---|
|
\multicolumn{2}{p{7.5cm}}{} & &<%0404%>&<%0410%>&&<%0444%>\\[1.25mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{} & &<%0405%>&<%0411%>&&\\[1.25mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{\small{<%company%>}} & &<%0406%>&<%0412%>&&\\[-1mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{\small{<%company_street%>}}& & & & &\\[-1mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{\small{<%company_city%>}}& & & & &\\[1mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{\small{<%co_street%>}}& & & & &\\[-1mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{\small{<%co_city%>}}& & & & &\\[1mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{
|
||
|
<%if tel%>
|
||
|
\small{Tel: <%tel%>}~--~
|
||
| templates/German-ustva-2005.tex | ||
|---|---|---|
|
\multicolumn{2}{p{7.5cm}}{} & &<%0404%>&<%0410%>&&<%0444%>\\[1.25mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{} & &<%0405%>&<%0411%>&&\\[1.25mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{\small{<%company%>}} & &<%0406%>&<%0412%>&&\\[-1mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{\small{<%company_street%>}}& & & & &\\[-1mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{\small{<%company_city%>}}& & & & &\\[1mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{\small{<%co_street%>}}& & & & &\\[-1mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{\small{<%co_city%>}}& & & & &\\[1mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{
|
||
|
<%if tel%>
|
||
|
\small{Tel: <%tel%>}~--~
|
||
| templates/German-ustva-2006.tex | ||
|---|---|---|
|
% German USTVA template for taxreports
|
||
|
%
|
||
|
% Contributed by Jens Koerner, Peter Schorer, Udo Spallek
|
||
|
%
|
||
|
%
|
||
|
\documentclass[twoside]{scrartcl}
|
||
|
\usepackage{a4,german}
|
||
|
\usepackage[frame]{xy}
|
||
|
\usepackage[latin1]{inputenc}
|
||
|
\usepackage[german]{babel}
|
||
|
\usepackage{graphicx}
|
||
|
\usepackage{tabularx}
|
||
|
\usepackage{times, german}
|
||
|
\usepackage{german}
|
||
|
\setlength{\voffset}{-0.8cm} %hier wird die H?henverschiebung get?tigt
|
||
|
\setlength{\hoffset}{-1cm} %und hier die Verschiebung seitw?rts
|
||
|
\setlength{\topmargin}{0cm}
|
||
|
\setlength{\headheight}{0cm}
|
||
|
\setlength{\headsep}{0cm}
|
||
|
\setlength{\topskip}{0pt}
|
||
|
\setlength{\oddsidemargin}{0cm}
|
||
|
\setlength{\evensidemargin}{0cm}
|
||
|
\setlength{\textwidth}{20.9cm}
|
||
|
\setlength{\textheight}{29.6cm}
|
||
|
\setlength{\footskip}{-0cm}
|
||
|
\setlength{\parindent}{0pt}
|
||
|
|
||
|
\begin{document}
|
||
|
|
||
|
\fontfamily{cmss}\fontshape{n}\large\selectfont
|
||
|
\pagestyle{myheadings}
|
||
|
\markboth{\protect\scalebox{1.045}[1.045]{\protect\includegraphics[viewport = 54 783 700 790]{ustva-2006-2.pdf}}}
|
||
|
{\protect\scalebox{1.045}[1.045]{\protect\includegraphics[viewport = 70 700 700 790]{ustva-2006-1.pdf}}}
|
||
|
\hspace{1mm}
|
||
|
\begin{tabular}[b]{p{7mm}p{5cm}p{22.5mm}p{24mm}p{7mm}p{28mm}p{3mm}}
|
||
|
\multicolumn{7}{c}{}\\[-2mm]
|
||
|
& \multicolumn{6}{l}{<%steuernummer%>}\\
|
||
|
\multicolumn{7}{c}{}\\[15mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{<%FA_Name%>} & & & & &\\[-4mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{} & & & & &\\[3mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{<%FA_Strasse%>} & &<%0401%>&<%0407%>&&<%0441%>\\[1.2mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{} & &<%0402%>&<%0408%>&&<%0442%>\\[1.25mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{<%FA_PLZ%> <%FA_Ort%>} & &<%0403%>&<%0409%>&&<%0443%>\\[3mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{} & &<%0404%>&<%0410%>&&<%0444%>\\[1.25mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{} & &<%0405%>&<%0411%>&&\\[1.25mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{\small{<%company%>}} & &<%0406%>&<%0412%>&&\\[-1mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{\small{<%co_street%>}}& & & & &\\[-1mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{\small{<%co_city%>}}& & & &<%FA_10%> &\\[1mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{
|
||
|
<%if tel%>
|
||
|
\small{Tel: <%tel%>}~--~
|
||
|
<%end tel%>
|
||
|
<%if fax%>
|
||
|
\small{Fax: <%fax%>}
|
||
|
<%end fax%>
|
||
|
}& & & & &\\[-1mm]
|
||
|
\multicolumn{2}{p{7.5cm}}{\small{<%email%>}}& & & & &\\[-1mm]
|
||
|
\end{tabular}\\[29.5mm]
|
||
|
\begin{tabular}[b]{p{99mm}p{26.5mm}p{4.55mm}p{4mm}p{35mm}}
|
||
|
&&&&\\[38mm]
|
||
|
\multicolumn{2}{r}{<%51%>} & & \multicolumn{2}{r}{<%51r%>}\\[1.5mm]
|
||
|
\multicolumn{2}{r}{<%86%>} & & \multicolumn{2}{r}{<%86r%>}\\[42mm]
|
||
|
\multicolumn{2}{r}{<%97%>} & & \multicolumn{2}{r}{<%97r%>}\\[1.5mm]
|
||
|
\multicolumn{2}{r}{<%93%>} & & \multicolumn{2}{r}{<%93r%>}\\[8.5mm]
|
||
|
\multicolumn{2}{r}{<%94%>} & & \multicolumn{2}{r}{<%96%>}\\[28mm]
|
||
|
\multicolumn{2}{r}{} & & \multicolumn{2}{r}{<%43%>}\\
|
||
|
%\multicolumn{2}{||r|}{1000} & & & \\
|
||
|
%\multicolumn{2}{||r|}{1000} & & \multicolumn{2}{r}{100.000.000~~00}\\
|
||
|
%\multicolumn{3}{||r|}{1.000.000.000~~00} & \multicolumn{2}{r}{100.000.000~~00}\\
|
||
|
\end{tabular}
|
||
|
|
||
|
\newpage
|
||
|
|
||
|
\vspace*{-9.5mm}\hspace{27mm}<%steuernummer%>\\[-2.7mm]
|
||
|
\begin{tabular}[b]{p{99mm}p{25.2mm}p{2.55mm}p{10mm}p{32mm}}
|
||
|
&&&&\\
|
||
|
\multicolumn{2}{r}{} & & \multicolumn{2}{r}{<%45%>}\\[48mm]
|
||
|
\multicolumn{2}{r}{} & & \multicolumn{2}{r}{<%43%>}\\[8.9mm]
|
||
|
\multicolumn{2}{r}{} & & \multicolumn{2}{r}{<%66%>}\\[42mm]
|
||
|
\multicolumn{2}{r}{} & & \multicolumn{2}{r}{<%62%>}\\[28mm]
|
||
|
\multicolumn{2}{r}{} & & \multicolumn{2}{r}{\textbf{<%67%>}}\\[26mm]
|
||
|
\end{tabular}\\[35mm]
|
||
|
<%if FA_steuerberater%>
|
||
|
\vspace{11mm}
|
||
|
\begin{list}{}{
|
||
|
\setlength{\leftmargin}{2mm}
|
||
|
\setlength{\itemsep}{0mm}
|
||
|
\setlength{\parsep}{0mm}
|
||
|
%\setlength{\topsep}{0mm}
|
||
|
%\setlength{\parskip}{0mm}
|
||
|
%\setlength{\partopsep}{0mm}
|
||
|
}
|
||
|
\begin{small}
|
||
|
\item <%FA_steuerberater_name%>
|
||
|
\item <%FA_steuerberater_street%>
|
||
|
\item <%FA_steuerberater_city%>
|
||
|
\item Tel:~<%FA_steuerberater_tel%>
|
||
|
\end{small}\\[15mm]
|
||
|
\item <%Datum_heute%>,
|
||
|
\end{list}
|
||
|
<%end FA_steuerberater%>
|
||
|
<%if not FA_steuerberater%>
|
||
|
\begin{list}{}{
|
||
|
\setlength{\leftmargin}{2mm}
|
||
|
\setlength{\itemsep}{0mm}
|
||
|
\setlength{\parsep}{0mm}
|
||
|
%\setlength{\topsep}{0mm}
|
||
|
%\setlength{\parskip}{0mm}
|
||
|
%\setlength{\partopsep}{0mm}
|
||
|
}
|
||
|
\begin{small}
|
||
|
\item ~
|
||
|
\item ~
|
||
|
\item ~
|
||
|
\item ~
|
||
|
\end{small}\\[26mm]
|
||
|
\item <%Datum_heute%>,
|
||
|
\end{list}
|
||
|
<%end FA_steuerberater%>
|
||
|
\end{document}
|
||
Auch abrufbar als: Unified diff
Update der Ustva Funktion mit neuen Vorlagen für das Jahr 2006.