projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Die INSTALL.txt um die entsprechende Debian-Pakete für Rose und Readonly (s.a. lx...
[kivitendo-erp.git]
/
bin
/
mozilla
/
ustva.pl
diff --git
a/bin/mozilla/ustva.pl
b/bin/mozilla/ustva.pl
index
945de31
..
db6995f
100644
(file)
--- a/
bin/mozilla/ustva.pl
+++ b/
bin/mozilla/ustva.pl
@@
-23,6
+23,8
@@
# German Tax authority Module and later ELSTER Interface
#======================================================================
# German Tax authority Module and later ELSTER Interface
#======================================================================
+use utf8;
+
require "bin/mozilla/common.pl";
#use strict;
require "bin/mozilla/common.pl";
#use strict;
@@
-93,7
+95,7
@@
sub report {
$ustva->get_config($userspath, 'finanzamt.ini');
# Hier Einlesen der user-config
$ustva->get_config($userspath, 'finanzamt.ini');
# Hier Einlesen der user-config
- # steuernummer entfernt f
ü
r prerelease
+ # steuernummer entfernt f
ü
r prerelease
my @a = qw(
signature name company address businessnumber
tel fax email co_chief co_department
my @a = qw(
signature name company address businessnumber
tel fax email co_chief co_department
@@
-120,7
+122,7
@@
sub report {
# Anpassungen der Variablennamen auf pre 2.1.1 Namen
# 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 \/>/;
if ($form->{address} ne '') {
my $temp = $form->{address};
$temp =~ s/\n/<br \/>/;
@@
-302,7
+304,7
@@
sub ustva_vorauswahl {
$sel = '';
my $dfv = '';
$sel = '';
my $dfv = '';
- # Offset f
ür Dauerfristverlä
ngerung
+ # Offset f
ür Dauerfristverlä
ngerung
$dfv = '100' if ($form->{FA_dauerfrist} eq '1');
SWITCH: {
$dfv = '100' if ($form->{FA_dauerfrist} eq '1');
SWITCH: {
@@
-386,7
+388,7
@@
sub ustva_vorauswahl {
my $yy = $form->{year} * 10000;
$yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
$sel = '';
my $yy = $form->{year} * 10000;
$yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
$sel = '';
- my $dfv = ''; # Offset f
ür Dauerfristverlä
ngerung
+ my $dfv = ''; # Offset f
ür Dauerfristverlä
ngerung
$dfv = '100' if ($form->{FA_dauerfrist} eq '1');
SWITCH: {
$dfv = '100' if ($form->{FA_dauerfrist} eq '1');
SWITCH: {
@@
-672,7
+674,7
@@
sub generate_ustva {
};
}
};
}
- # Kontrollvariable f
ü
r die Templates
+ # Kontrollvariable f
ü
r die Templates
$form->{'year2007'} = ($form->{year} >= 2007 ) ? "1":"0";
$form->{'year2007'} = ($form->{year} >= 2007 ) ? "1":"0";
@@
-788,7
+790,7
@@
sub generate_ustva {
$form->{endbold} = "}";
$form->{br} = '\\\\';
$form->{endbold} = "}";
$form->{br} = '\\\\';
- # Zahlenformatierung f
ü
r Latex USTVA Formulare
+ # Zahlenformatierung f
ü
r Latex USTVA Formulare
foreach my $number (@category_euro) {
$form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '0', '');
foreach my $number (@category_euro) {
$form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '0', '');
@@
-802,7
+804,7
@@
sub generate_ustva {
$form->{$number} =~ s/${decimal_comma}/~~/g;
}
$form->{$number} =~ s/${decimal_comma}/~~/g;
}
- } elsif ( $form->{format} eq 'html') { # Formatierungen f
ü
r HTML Ausgabe
+ } elsif ( $form->{format} eq 'html') { # Formatierungen f
ü
r HTML Ausgabe
$form->{IN} = $form->{type} . '.html';
$form->{padding} = " ";
$form->{IN} = $form->{type} . '.html';
$form->{padding} = " ";
@@
-833,7
+835,7
@@
sub generate_ustva {
$file .= sprintf("%02d", $form->{year} % 100);
#6. to 18. char = Elstersteuernummer
#Beispiel: Steuernummer in Bayern
$file .= sprintf("%02d", $form->{year} % 100);
#6. to 18. char = Elstersteuernummer
#Beispiel: Steuernummer in Bayern
- #111/222/33334 ergibt f
ü
r UStVA Jan 2004: U01049111022233334
+ #111/222/33334 ergibt f
ü
r UStVA Jan 2004: U01049111022233334
$file .= $form->{elsterFFFF};
$file .= $form->{elstersteuernummer};
#file suffix
$file .= $form->{elsterFFFF};
$file .= $form->{elstersteuernummer};
#file suffix
@@
-843,7
+845,7
@@
sub generate_ustva {
$form->{attachment_filename} = $file;
$form->{attachment_filename} = $file;
- # Zahlenformatierung f
ü
r Winston
+ # Zahlenformatierung f
ü
r Winston
my $temp_numberformat = $myconfig{numberformat};
my $temp_numberformat = $myconfig{numberformat};
@@
-1013,7
+1015,7
@@
sub generate_ustva {
$form->{USTVA} = [];
$form->{USTVA} = [];
- if ( $form->{format} eq 'generic') { # Formatierungen f
ü
r HTML Ausgabe
+ if ( $form->{format} eq 'generic') { # Formatierungen f
ü
r HTML Ausgabe
my $rec_ref = {};
for my $kennziffer (@category_cent, @category_euro) {
my $rec_ref = {};
for my $kennziffer (@category_cent, @category_euro) {
@@
-1066,6
+1068,8
@@
sub config_step1 {
$auth->assert('advance_turnover_tax_return');
$auth->assert('advance_turnover_tax_return');
+$form->{title} = $locale->text('Tax Office Preferences');
+
# edit all taxauthority prefs
$form->header;
# edit all taxauthority prefs
$form->header;
@@
-1121,10
+1125,10
@@
sub config_step1 {
$ustva->get_coa($form, \%myconfig);
$ustva->get_coa($form, \%myconfig);
- # h
ä
? kann die weg?
+ # h
ä
? kann die weg?
my $steuernummer_new = '';
my $steuernummer_new = '';
- # Variablen f
ür das Template zur Verfü
gung stellen
+ # Variablen f
ür das Template zur Verfü
gung stellen
my $template_ref = {
select_tax_office => $select_tax_office,
checked_accrual => $checked_accrual,
my $template_ref = {
select_tax_office => $select_tax_office,
checked_accrual => $checked_accrual,
@@
-1162,7
+1166,7
@@
sub config_step2 {
$ustva->get_config($userspath, 'finanzamt.ini')
if ($form->{saved} eq $locale->text('saved'));
$ustva->get_config($userspath, 'finanzamt.ini')
if ($form->{saved} eq $locale->text('saved'));
- # Auf
Ü
bergabefehler checken
+ # Auf
Ü
bergabefehler checken
USTVA::info( $locale->text('Missing Tax Authoritys Preferences') . "\n"
. $locale->text('USTVA-Hint: Tax Authoritys'))
if ( $form->{elsterFFFF_new} eq 'Auswahl'
USTVA::info( $locale->text('Missing Tax Authoritys Preferences') . "\n"
. $locale->text('USTVA-Hint: Tax Authoritys'))
if ( $form->{elsterFFFF_new} eq 'Auswahl'
@@
-1171,7
+1175,7
@@
sub config_step2 {
. $locale->text('USTVA-Hint: Method'))
if ($form->{method} eq '');
. $locale->text('USTVA-Hint: Method'))
if ($form->{method} eq '');
- # Kl
ären, ob Variablen bereits befüllt sind UND ob verä
derungen auf
+ # 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)
# der vorherigen Maske stattfanden: $change = 1(in der edit sub,
# mittels get_config)
@@
-1184,7
+1188,7
@@
sub config_step2 {
if ($change eq '1') {
if ($change eq '1') {
- # Daten
ä
ndern
+ # Daten
ä
ndern
$elsterland = $form->{elsterland_new};
$elsterFFFF = $form->{elsterFFFF_new};
$form->{elsterland} = $elsterland;
$elsterland = $form->{elsterland_new};
$elsterFFFF = $form->{elsterFFFF_new};
$form->{elsterland} = $elsterland;
@@
-1357,7
+1361,7
@@
sub save {
FA_steuerberater_street FA_steuerberater_city FA_steuerberater_tel
FA_71 FA_dauerfrist);
FA_steuerberater_street FA_steuerberater_city FA_steuerberater_tel
FA_71 FA_dauerfrist);
- # Hier kommt dann die Plausibilit
ätsprü
fung der ELSTERSteuernummer
+ # Hier kommt dann die Plausibilit
ätsprü
fung der ELSTERSteuernummer
if ($form->{elstersteuernummer} ne '000000000') {
$form->{elster} = '1';
if ($form->{elstersteuernummer} ne '000000000') {
$form->{elster} = '1';