# German Tax authority Module and later ELSTER Interface
#======================================================================
+use strict;
use utf8;
require "bin/mozilla/common.pl";
# Einlesen der Finanzamtdaten
my $ustva = USTVA->new();
- $ustva->get_config($::userspath, 'finanzamt.ini');
+ $ustva->get_config($::lx_office_conf{paths}{userspath}, 'finanzamt.ini');
# Hier Einlesen der user-config
# steuernummer entfernt für prerelease
qq| <option value=html selected>|
. $::locale->text('Preview')
. qq|</option>|;
- if ($::latex_templates) {
+ if ($::lx_office_conf{print_templates}{latex}) {
$format .=
qq| <option value=pdf>|
. $::locale->text('UStVA (PDF-Dokument)')
# Aufruf von get_config zum Einlesen der Finanzamtdaten aus finanzamt.ini
my $ustva = USTVA->new();
- $ustva->get_config($::userspath, 'finanzamt.ini');
+ $ustva->get_config($::lx_office_conf{paths}{userspath}, 'finanzamt.ini');
# init some form vars
my @anmeldungszeitraum =
#file suffix
$file .= '.xml';
$file =~ s|.*/||;
- $form->{tmpfile} = "$::userspath/$file";
+ $form->{tmpfile} = "$::lx_office_conf{paths}{userspath}/$file";
$form->{attachment_filename} = $file;
. sprintf("%02d", $form->{year} % 100) . ".txb";
$form->{attachment_filename} =~ s|.*/||;
- $form->{tmpfile} = "$::userspath/" . $form->{attachment_filename};
+ $form->{tmpfile} = "$::lx_office_conf{paths}{userspath}/" . $form->{attachment_filename};
# TODO: set Output to UTF-8 or system Preference
#$form->{"iconv"} = Text::Iconv->new($myconfig{dbcharset}, "UTF-8");
} else
{
- $form->parse_template(\%myconfig, $::userspath);
+ $form->parse_template(\%myconfig, $::lx_office_conf{paths}{userspath});
}
$::form->header;
my $ustva = USTVA->new();
- $ustva->get_config($::userspath, 'finanzamt.ini');
+ $ustva->get_config($::lx_office_conf{paths}{userspath}, 'finanzamt.ini');
my $land = $::form->{elsterland};
my $amt = $::form->{elsterFFFF};
$::form->{title} = $::locale->text('Tax Office Preferences');
- my $select_tax_office = $ustva->fa_auswahl($land, $amt, $ustva->query_finanzamt(\%::myconfig, $::form));
- my $checked_accrual = q|checked="checked"| if ($::form->{method} eq 'accrual');
- my $checked_cash = q|checked="checked"| if ($::form->{method} eq 'cash');
- my $checked_monthly = "checked" if ($::form->{FA_voranmeld} eq 'month');
- my $checked_quarterly = "checked" if ($::form->{FA_voranmeld} eq 'quarter');
- my $checked_dauerfristverlaengerung = "checked" if ($::form->{FA_dauerfrist} eq '1');
- my $checked_kz_71 = "checked" if ($::form->{FA_71} eq 'X');
+ my $select_tax_office = $ustva->fa_auswahl($land, $amt, $ustva->query_finanzamt(\%::myconfig, $::form));
+ my $checked_accrual = $::form->{method} eq 'accrual' ? q|checked="checked"| : '';
+ my $checked_cash = $::form->{method} eq 'cash' ? q|checked="checked"| : '';
+ my $checked_monthly = $::form->{FA_voranmeld} eq 'month' ? "checked" : '';
+ my $checked_quarterly = $::form->{FA_voranmeld} eq 'quarter' ? "checked" : '';
+ my $checked_dauerfristverlaengerung = $::form->{FA_dauerfrist} eq '1' ? "checked" : '';
+ my $checked_kz_71 = $::form->{FA_71} eq 'X' ? "checked" : '';
my $_hidden_variables_ref;
my $elstersteuernummer = '';
my $ustva = USTVA->new();
- $ustva->get_config($::userspath, 'finanzamt.ini')
+ $ustva->get_config($::lx_office_conf{paths}{userspath}, 'finanzamt.ini')
if ($form->{saved} eq $locale->text('saved'));
# Auf Übergabefehler checken
my $patterncount = $form->{patterncount};
my $elster_pattern = $form->{elster_pattern};
my $delimiter = $form->{delimiter};
- my $steuernummer = $form->{steuernummer} if ($stnr eq '');
+ my $steuernummer = $stnr eq '' ? $form->{steuernummer} : '';
$form->{FA_Oeffnungszeiten} =~ s/\\\\n/\n/g;
$::form->{elster} = '1';
- open my $ustvaconfig, ">", "$::userspath/$filename" or $::form->error("$filename : $!");
+ open my $ustvaconfig, ">", "$::lx_office_conf{paths}{userspath}/$filename" or $::form->error("$filename : $!");
# create the config file
print {$ustvaconfig} qq|# Configuration file for USTVA\n\n|;