#use strict;
#no strict 'refs';
#use diagnostics;
-#use warnings FATAL=> 'all';
+#use warnings; # FATAL=> 'all';
#use vars qw($locale $form %myconfig);
#our ($myconfig);
#use CGI::Carp "fatalsToBrowser";
$lxdebug->enter_sub();
my $myconfig = \%myconfig;
use CGI;
+
$form->{title} = $locale->text('UStVA');
- $form->{kz10} = ''; #Berichtigte Anmeldung? Ja =1
+ $form->{kz10} = ''; #Berichtigte Anmeldung? Ja =1 Nein=0
- # $accrual = ($eur) ? "" : "checked";
- # $cash = ($eur) ? "checked" : "";
- my $year = '';
- my $null = '';
- ($null, $null, $null, $null, $null, $year, $null, $null, $null) =
- localtime();
- $year += 1900;
+ my $year = substr(
+ $form->datetonum($form->current_date(\%myconfig),
+ \%myconfig
+ ),
+ 0, 4);
my $department = '';
local $hide = '';
# 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
| . $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
#
my $temp = $form->{address};
$temp =~ s/\\n/<br \/>/;
($form->{co_street}, $form->{co_city}) = split("<br \/>", $temp);
+ $form->{co_city} =~ s/\\n//g;
}
- if ( $form->{co_street} ne ''
- and ($form->{co_zip} ne ''
- or $form->{co_city} ne '') ) {
+ 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 {
+ } 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};
-
-
+ $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>
Keine Steuernummer hinterlegt!</a><br>|;
}
print qq|
- <!--<br>
+ <br>
| . $locale->text('ELSTER-Steuernummer: ') . qq|
$form->{elstersteuernummer}
- <br>-->
+ <br>
<br>
</fieldset>
# accounting years if SQL-Ledger Version < 2.4.1
# $year = $form->{year} * 1;
- @years = sort { $b <=> $a } (2000 .. ($year+1));
+ @years = sort { $b <=> $a } (2003 .. ($year + 1));
$form->{all_years} = \@years;
}
map { $form->{selectaccountingyear} .= qq|<option>$_\n| }
</fieldset>
|;
- # Stichtag der nächsten USTVA berechnen
- #
- # ($stichtag, $tage_bis, $ical) = FA->stichtag($today[dd.mm.yyyy],
- # $FA_dauerfrist[1,0],
- # $FA_voranmeld[month, quarter])
- #$tmpdateform= $myconfig{dateformat};
- # $myconfig{dateformat}= "dd.mm.yyyy";
- # $form->{today} = $form->datetonum($form->current_date(\%myconfig), \%myconfig);
- # ($stichtag, $description, $tage_bis, $ical) = FA::stichtag($form->{today}, $form->{FA_dauerfrist},$form->{FA_voranmeld});
- # $form->{today} = $form->date($stichtag, \%myconfig );
- #$myconfig{dateformat}= $tmpdateform;
-
- #print qq|
- # <br>
- # <br>
- # <fieldset>
- # <label>
- # |.$locale->text('Anstehende Voranmeldungen').qq|
- # </label>
- # <h2 class="confirm">$stichtag<h2>
- # <h3>$description</h3>
- # <h4>$form->{today}</h4>
- #
- # </fieldset>|;
-
} else {
print qq|
<td width="50%" valign="bottom">
<legend>
<b>| . $locale->text('Hinweise') . qq|</b>
</legend>
- <h2 class="confirm">Die Ausgabefunktionen sind wegen unzureichender Voreinstellungen deaktiviert.</h2>
- <h3>Hilfe:</h3>
+ <h2 class="confirm">|
+ . $locale->text('Missing Preferences: Outputroutine disabled')
+ . qq|</h2>
+ <h3>| . $locale->text('Help:') . qq|</h3>
<ul>
- <li> Wählen Sie im Administrationsmenü den momentanen Benutzer aus
- (siehe Kopfzeile). Dort können Sie fehlende Firmenangaben bzw.
- die Steuernummer ergänzen.</li>
+ <li>| . $locale->text('Hint-Missing-Preferences') . qq|</li>
</ul>
</fieldset>
|;
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();
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)/;
+ my $date = $form->datetonum($form->current_date(\%myconfig), \%myconfig);
#$locale->date($myconfig, $form->current_date($myconfig), 0)=~ /(\d\d).(\d\d).(\d\d\d\d)/;
- $form->{day} = $1;
- $form->{month} = $2;
- $form->{year} = $3;
+ $form->{day} = substr($date, 6, 2);
+ $form->{month} = substr($date, 4, 2);
+ $form->{year} = substr($date, 0, 4);
+ $lxdebug->message(LXDebug::DEBUG1, qq|
+ Actual date from Database: $date\n
+ Actual year from Database: $form->{year}\n
+ Actual day from Database: $form->{day}\n
+ Actual month from Database: $form->{month}\n|);
+
my $sel = '';
my $yymmdd = '';
if ($form->{FA_voranmeld} eq 'month') {
# Vorauswahl bei monatlichem Voranmeldungszeitraum
- print qq|
- <select name="duetyp" id=zeitraum title="|
- . $locale->text('Hier den Berechnungszeitraum auswählen...') . qq|">
- |;
- my %liste = ('01' => 'January',
- '02' => 'February',
- '03' => 'March',
- '04' => 'April',
- '05' => 'May',
- '06' => 'June',
- '07' => 'July',
- '08' => 'August',
- '09' => 'September',
- '10' => 'October',
- '11' => 'November',
- '12' => 'December');
+ my %liste = ('01' => $locale->text('January'),
+ '02' => $locale->text('February'),
+ '03' => $locale->text('March'),
+ '04' => $locale->text('April'),
+ '05' => $locale->text('May'),
+ '06' => $locale->text('June'),
+ '07' => $locale->text('July'),
+ '08' => $locale->text('August'),
+ '09' => $locale->text('September'),
+ '10' => $locale->text('October'),
+ '11' => $locale->text('November'),
+ '12' => $locale->text('December'),
+ '13' => $locale->text('Yearly'),
+ );
my $yy = $form->{year} * 10000;
$yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
$sel = '';
- my $dfv = '0'; # Offset für Dauerfristverlängerung
- #$dfv = '100' if ($form->{FA_dauerfrist} eq '1');
+ my $dfv = '';
+
+ # Offset für Dauerfristverlängerung
+ $dfv = '100' if ($form->{FA_dauerfrist} eq '1');
SWITCH: {
$yymmdd <= ($yy + 110 + $dfv) && do {
};
}
+ print qq|<select id="zeitraum" name="duetyp" title="|
+ . $locale->text('Select a period') . qq|" >|;
+
my $key = '';
foreach $key (sort keys %liste) {
my $selected = '';
$selected = 'selected' if ($sel eq $key);
print qq|
- <option value="$key" $selected>|
- . $locale->text("$liste{$key}")
- . qq|</option>
-
+ <option value="$key" $selected> $liste{$key}</option>
|;
}
print qq|</select>|;
} elsif ($form->{FA_voranmeld} eq 'quarter') {
# Vorauswahl bei quartalsweisem Voranmeldungszeitraum
- my %liste = ('A' => '1.',
- 'B' => '2.',
- 'C' => '3.',
- 'D' => '4.',);
+ my %liste = ('A' => $locale->text('1. Quarter'),
+ 'B' => $locale->text('2. Quarter'),
+ 'C' => $locale->text('3. Quarter'),
+ 'D' => $locale->text('4. Quarter'),
+ '13' => $locale->text('Yearly'),);
my $yy = $form->{year} * 10000;
$yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
my $selected = '';
$selected = 'selected' if ($sel eq $key);
print qq|
- <option value="$key" $selected>$liste{$key} |
- . $locale->text('Quarter')
- . qq|</option>
+ <option value="$key" $selected>$liste{$key}</option>
|;
}
print qq|\n</select>
print qq|<select id="zeitraum" name="duetyp" title="|
. $locale->text('Select a period') . qq|" >|;
- my %listea = ('A' => '1.',
- 'B' => '2.',
- 'C' => '3.',
- 'D' => '4.',);
+ my %listea = ('A' => '1. Quarter',
+ 'B' => '2. Quarter',
+ 'C' => '3. Quarter',
+ 'D' => '4. Quarter',);
my %listeb = ('01' => 'January',
'02' => 'February',
'09' => 'September',
'10' => 'October',
'11' => 'November',
- '12' => 'December',);
+ '12' => 'December',
+ '13' => 'Yearly',);
my $key = '';
foreach $key (sort keys %listea) {
print qq|
- <option value="$key">$listea{$key} |
- . $locale->text('Quarter')
- . qq|</option>
-
- |;
+ <option value="$key">|
+ . $locale->text("$listea{$key}")
+ . qq|</option>\n|;
}
foreach $key (sort keys %listeb) {
print qq|
- <option value="$key">| . $locale->text("$listeb{$key}") . qq|</option>
-
- |;
+ <option value="$key">|
+ . $locale->text("$listeb{$key}")
+ . qq|</option>\n|;
}
print qq|</select>|;
}
qq| <option value=html selected>|
. $locale->text('Vorschau')
. qq|</option>|;
- if ($latex) {
+ if ($latex_templates) {
$format .=
qq| <option value=pdf>|
. $locale->text('UStVA als PDF-Dokument')
$type
$media
<select name=format title = "|
- . $locale->text('Ausgabeformat auswählen...')
- . qq|">$format</select>
+ . $locale->text('Ausgabeformat auswählen...') . qq|">$format</select>
|;
$lxdebug->leave_sub();
}
#forgotten the year --> thisyear
if ($form->{year} !~ m/^\d\d\d\d$/) {
- $locale->date(\$myconfig, $form->current_date(\$myconfig), 0) =~
- /(\d\d\d\d)/;
- $form->{year} = $1;
+ $form->{year} = substr(
+ $form->datetonum(
+ $form->current_date(\%myconfig), \%myconfig
+ ),
+ 0, 4);
+ $lxdebug->message(LXDebug::DEBUG1,
+ qq|Actual year from Database: $form->{year}\n|);
}
#yearly report
if ($form->{duetyp} eq "13") {
- $form->{fromdate} = "1.1.$form->{year}";
- $form->{todate} = "31.12.$form->{year}";
+ $form->{fromdate} = "$form->{year}0101";
+ $form->{todate} = "$form->{year}1231";
}
#Quater reports
if ($form->{duetyp} eq "A") {
- $form->{fromdate} = "1.1.$form->{year}";
- $form->{todate} = "31.3.$form->{year}";
+ $form->{fromdate} = "$form->{year}0101";
+ $form->{todate} = "$form->{year}0331";
$form->{'0441'} = "X";
}
if ($form->{duetyp} eq "B") {
- $form->{fromdate} = "1.4.$form->{year}";
- $form->{todate} = "30.6.$form->{year}";
+ $form->{fromdate} = "$form->{year}0401";
+ $form->{todate} = "$form->{year}0630";
$form->{'0442'} = "X";
}
if ($form->{duetyp} eq "C") {
- $form->{fromdate} = "1.7.$form->{year}";
- $form->{todate} = "30.9.$form->{year}";
+ $form->{fromdate} = "$form->{year}0701";
+ $form->{todate} = "$form->{year}0930";
$form->{'0443'} = "X";
}
if ($form->{duetyp} eq "D") {
- $form->{fromdate} = "1.10.$form->{year}";
- $form->{todate} = "31.12.$form->{year}";
+ $form->{fromdate} = "$form->{year}1001";
+ $form->{todate} = "$form->{year}1231";
$form->{'0444'} = "X";
}
#Monthly reports
SWITCH: {
$form->{duetyp} eq "01" && do {
- $form->{fromdate} = "1.1.$form->{year}";
- $form->{todate} = "31.1.$form->{year}";
+ $form->{fromdate} = "$form->{year}0101";
+ $form->{todate} = "$form->{year}0131";
$form->{'0401'} = "X";
last SWITCH;
};
$form->{duetyp} eq "02" && do {
- $form->{fromdate} = "1.2.$form->{year}";
+ $form->{fromdate} = "$form->{year}0201";
#this works from 1901 to 2099, 1900 and 2100 fail.
my $leap = ($form->{year} % 4 == 0) ? "29" : "28";
- $form->{todate} = "$leap.2.$form->{year}";
+ $form->{todate} = "$form->{year}02$leap";
$form->{"0402"} = "X";
last SWITCH;
};
$form->{duetyp} eq "03" && do {
- $form->{fromdate} = "1.3.$form->{year}";
- $form->{todate} = "31.3.$form->{year}";
+ $form->{fromdate} = "$form->{year}0301";
+ $form->{todate} = "$form->{year}0331";
$form->{"0403"} = "X";
last SWITCH;
};
$form->{duetyp} eq "04" && do {
- $form->{fromdate} = "1.4.$form->{year}";
- $form->{todate} = "30.4.$form->{year}";
+ $form->{fromdate} = "$form->{year}0401";
+ $form->{todate} = "$form->{year}0430";
$form->{"0404"} = "X";
last SWITCH;
};
$form->{duetyp} eq "05" && do {
- $form->{fromdate} = "1.5.$form->{year}";
- $form->{todate} = "31.5.$form->{year}";
+ $form->{fromdate} = "$form->{year}0501";
+ $form->{todate} = "$form->{year}0531";
$form->{"0405"} = "X";
last SWITCH;
};
$form->{duetyp} eq "06" && do {
- $form->{fromdate} = "1.6.$form->{year}";
- $form->{todate} = "30.6.$form->{year}";
+ $form->{fromdate} = "$form->{year}0601";
+ $form->{todate} = "$form->{year}0630";
$form->{"0406"} = "X";
last SWITCH;
};
$form->{duetyp} eq "07" && do {
- $form->{fromdate} = "1.7.$form->{year}";
- $form->{todate} = "31.7.$form->{year}";
+ $form->{fromdate} = "$form->{year}0701";
+ $form->{todate} = "$form->{year}0731";
$form->{"0407"} = "X";
last SWITCH;
};
$form->{duetyp} eq "08" && do {
- $form->{fromdate} = "1.8.$form->{year}";
- $form->{todate} = "31.8.$form->{year}";
+ $form->{fromdate} = "$form->{year}0801";
+ $form->{todate} = "$form->{year}0831";
$form->{"0408"} = "X";
last SWITCH;
};
$form->{duetyp} eq "09" && do {
- $form->{fromdate} = "1.9.$form->{year}";
- $form->{todate} = "30.9.$form->{year}";
+ $form->{fromdate} = "$form->{year}0901";
+ $form->{todate} = "$form->{year}0930";
$form->{"0409"} = "X";
last SWITCH;
};
$form->{duetyp} eq "10" && do {
- $form->{fromdate} = "1.10.$form->{year}";
- $form->{todate} = "31.10.$form->{year}";
+ $form->{fromdate} = "$form->{year}1001";
+ $form->{todate} = "$form->{year}1031";
$form->{"0410"} = "X";
last SWITCH;
};
$form->{duetyp} eq "11" && do {
- $form->{fromdate} = "1.11.$form->{year}";
- $form->{todate} = "30.11.$form->{year}";
+ $form->{fromdate} = "$form->{year}1101";
+ $form->{todate} = "$form->{year}1130";
$form->{"0411"} = "X";
last SWITCH;
};
$form->{duetyp} eq "12" && do {
- $form->{fromdate} = "1.12.$form->{year}";
- $form->{todate} = "31.12.$form->{year}";
+ $form->{fromdate} = "$form->{year}1201";
+ $form->{todate} = "$form->{year}1231";
$form->{"0412"} = "X";
last SWITCH;
};
}
}
- #$myconfig = \%myconfig;
- RP->ustva(\%myconfig, \%$form);
+ # using dates in ISO-8601 format: yyyymmmdd for Postgres...
+ USTVA->ustva(\%myconfig, \%$form);
- #??($form->{department}) = split /--/, $form->{department};
+ # reformat Dates to dateformat
+ $form->{fromdate} = $locale->date(\%myconfig, $form->{fromdate}, 0, 0, 0);
+
+ $form->{todate} = $form->current_date($myconfig) unless $form->{todate};
+ $form->{todate} = $locale->date(\%myconfig, $form->{todate}, 0, 0, 0);
$form->{period} =
$locale->date(\%myconfig, $form->current_date(\%myconfig), 1, 0, 0);
- $form->{todate} = $form->current_date($myconfig) unless $form->{todate};
# if there are any dates construct a where
if ($form->{fromdate} || $form->{todate}) {
my $temp = $form->{address};
$temp =~ s/\\n/<br \/>/;
($form->{co_street}, $form->{co_city}) = split("<br \/>", $temp);
+ $form->{co_city} =~ s/\\n//g;
}
if ( $form->{format} eq 'pdf'
$form->{endbold} = "}";
$form->{br} = '\\\\';
-
- my @numbers = qw(51r 86r 97r 93r 96 43 45
- 66 62 67);
+ my @numbers = qw(511 861 36 80 971 931 98 96 53 74
+ 85 65 66 61 62 Z67 63 64 59 69 39 83
+ Z43 Z45 Z53 Z62 Z65);
+
my $number = '';
+
# Zahlenformatierung für Latex USTVA Formulare
- if ($myconfig{numberformat} eq '1.000,00' or
- $myconfig{numberformat} eq '1000,00') {
+ if ( $myconfig{numberformat} eq '1.000,00'
+ or $myconfig{numberformat} eq '1000,00') {
foreach $number (@numbers) {
$form->{$number} =~ s/,/~~/g;
}
- }
- if ($myconfig{numberformat} eq '1000.00' or
- $myconfig{numberformat} eq '1,000.00') {
+ }
+ if ( $myconfig{numberformat} eq '1000.00'
+ or $myconfig{numberformat} eq '1,000.00') {
foreach $number (@numbers) {
$form->{$number} =~ s/\./~~/g;
}
}
- # Formatierungen für HTML Ausgabe
- } elsif ($form->{format} eq 'html') {
+
+ # Formatierungen für HTML Ausgabe
+ } elsif ($form->{format} eq 'html') {
$form->{padding} = " ";
$form->{bold} = "<b>";
$form->{endbold} = "</b>";
$form->{br} = "<br>";
- $form->{address} =~ s/\\n/<br \/>/;
+ $form->{address} =~ s/\\n/<br \/>/g;
}
if ($form->{format} eq 'elster') {
- &create_winston();
+ if ($form->{duetyp} eq '13') {
+ $form->header;
+ USTVA::info(
+ $locale->text(
+ 'Impossible to create yearly Tax Report via Winston.<br \> Not yet implemented!'
+ ));
+ } else {
+ &create_winston();
+ }
} else {
$form->{templates} = $myconfig{templates};
$form->{templates} = "doc" if ($form->{type} eq 'help');
$form->{IN} = "$form->{type}";
$form->{IN} = "$form->{help}" if ($form->{type} eq 'help');
+ $form->{IN} = 'USTE'
+ if ( $form->{duetyp} eq '13'
+ && $form->{format} ne 'html');
+
+ if ($form->{IN} eq 'USTE') {
+ $form->header;
+ USTVA::info(
+ $locale->text(
+ 'Impossible to create yearly Tax Report as PDF or PS.<br \> Not yet implemented!'
+ ));
+ }
+
$form->{IN} .= "-$form->{year}"
if ( $form->{format} eq 'pdf'
or $form->{format} eq 'postscript');
sub edit {
$lxdebug->enter_sub();
+
# edit all taxauthority prefs
$form->header;
<table width=100%>
<tr>
<th class="listtop">|
- . $locale->text('Finanzamt - Einstellungen')
- . qq|</th>
+ . $locale->text('Finanzamt - Einstellungen') . qq|</th>
</tr>
<tr>
<td>
<br>
<fieldset>
<legend><b>|
- . $locale->text('Angaben zum Finanzamt')
- . qq|</b></legend>
+ . $locale->text('Angaben zum Finanzamt') . qq|</b></legend>
|;
#print qq|$form->{terminal}|;
print qq|
<input name="FA_dauerfrist" id=FA_dauerfrist class=checkbox type=checkbox value="1" $checked>
<label for="">|
- . $locale->text('Dauerfristverlängerung')
- . qq|</label>
+ . $locale->text('Dauerfristverlängerung') . qq|</label>
</fieldset>
<br>
<br>
<hr>
<!--<input type=submit class=submit name=action value="|
- . $locale->text('debug')
- . qq|">-->
+ . $locale->text('debug') . qq|">-->
|;
print qq|
<input type="button" name="Verweis" value="|
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();
<table width="100%">
<tr>
<th colspan="2" class="listtop">|
- . $locale->text('Finanzamt - Einstellungen')
- . qq|</th>
+ . $locale->text('Finanzamt - Einstellungen') . qq|</th>
</tr>
<tr>
<td colspan=2>
<fieldset>
<legend>
<font size="+1">|
- . $locale->text('Finanzamt')
- . qq| $form->{FA_Name}</font>
+ . $locale->text('Finanzamt') . qq| $form->{FA_Name}</font>
</legend>
|;
$form->parse_amount(\%myconfig, $form->{"66"}) *
100; # Vorsteuer 7% plus 16%
my $k83 =
- $form->parse_amount(\%myconfig, $form->{"67"}) * 100; # Umsätze zu 7% USt
+ $form->parse_amount(\%myconfig, $form->{"83"}) * 100 ; # Endbetrag
my $k96 = $form->parse_amount(\%myconfig, $form->{"96"}) * 100; #
#
# Now build the xml content
<!-- Diese Datei ist mit Lx-Office $form->{version} generiert -->
<WinstonAusgang>
<Formular Typ="UST"></Formular>
- <Ordnungsnummer>$form->{elstersteuernummer}</Ordnungsnummer>
+ <Ordnungsnummer>$form->{elsterFFFF}$form->{elstersteuernummer}</Ordnungsnummer>
<AnmeldeJahr>$form->{year}</AnmeldeJahr>
<AnmeldeZeitraum>$azr</AnmeldeZeitraum>
|;
sub continue {
$lxdebug->enter_sub();
+
# allow Symbolic references just here:
no strict 'refs';
&{ $form->{nextsub} };
$lxdebug->leave_sub();
}
-sub back {
+sub back {
$lxdebug->enter_sub();
- &{ $form->{lastsub} };
+ &{ $form->{lastsub} };
$lxdebug->leave_sub();
}