Revision 0705a2b2
Von Sven Schöling vor fast 14 Jahren hinzugefügt
| bin/mozilla/ustva.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};
|
||
| ... | ... | |
|
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
|
||
| ... | ... | |
|
|
||
|
$::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|;
|
||
Auch abrufbar als: Unified diff
alte Config Variablen in bin/mozilla/ustva.pl gefixt.