Revision 0705a2b2
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 94 | 94 |
|
| 95 | 95 |
# Einlesen der Finanzamtdaten |
| 96 | 96 |
my $ustva = USTVA->new(); |
| 97 |
$ustva->get_config($::userspath, 'finanzamt.ini');
|
|
| 97 |
$ustva->get_config($::lx_office_conf{paths}{userspath}, 'finanzamt.ini');
|
|
| 98 | 98 |
|
| 99 | 99 |
# Hier Einlesen der user-config |
| 100 | 100 |
# steuernummer entfernt für prerelease |
| ... | ... | |
| 502 | 502 |
qq| <option value=html selected>| |
| 503 | 503 |
. $::locale->text('Preview')
|
| 504 | 504 |
. qq|</option>|; |
| 505 |
if ($::latex_templates) {
|
|
| 505 |
if ($::lx_office_conf{print_templates}{latex}) {
|
|
| 506 | 506 |
$format .= |
| 507 | 507 |
qq| <option value=pdf>| |
| 508 | 508 |
. $::locale->text('UStVA (PDF-Dokument)')
|
| ... | ... | |
| 545 | 545 |
# Aufruf von get_config zum Einlesen der Finanzamtdaten aus finanzamt.ini |
| 546 | 546 |
|
| 547 | 547 |
my $ustva = USTVA->new(); |
| 548 |
$ustva->get_config($::userspath, 'finanzamt.ini');
|
|
| 548 |
$ustva->get_config($::lx_office_conf{paths}{userspath}, 'finanzamt.ini');
|
|
| 549 | 549 |
|
| 550 | 550 |
# init some form vars |
| 551 | 551 |
my @anmeldungszeitraum = |
| ... | ... | |
| 847 | 847 |
#file suffix |
| 848 | 848 |
$file .= '.xml'; |
| 849 | 849 |
$file =~ s|.*/||; |
| 850 |
$form->{tmpfile} = "$::userspath/$file";
|
|
| 850 |
$form->{tmpfile} = "$::lx_office_conf{paths}{userspath}/$file";
|
|
| 851 | 851 |
|
| 852 | 852 |
$form->{attachment_filename} = $file;
|
| 853 | 853 |
|
| ... | ... | |
| 897 | 897 |
. sprintf("%02d", $form->{year} % 100) . ".txb";
|
| 898 | 898 |
|
| 899 | 899 |
$form->{attachment_filename} =~ s|.*/||;
|
| 900 |
$form->{tmpfile} = "$::userspath/" . $form->{attachment_filename};
|
|
| 900 |
$form->{tmpfile} = "$::lx_office_conf{paths}{userspath}/" . $form->{attachment_filename};
|
|
| 901 | 901 |
|
| 902 | 902 |
# TODO: set Output to UTF-8 or system Preference |
| 903 | 903 |
#$form->{"iconv"} = Text::Iconv->new($myconfig{dbcharset}, "UTF-8");
|
| ... | ... | |
| 1078 | 1078 |
} else |
| 1079 | 1079 |
{
|
| 1080 | 1080 |
|
| 1081 |
$form->parse_template(\%myconfig, $::userspath);
|
|
| 1081 |
$form->parse_template(\%myconfig, $::lx_office_conf{paths}{userspath});
|
|
| 1082 | 1082 |
|
| 1083 | 1083 |
} |
| 1084 | 1084 |
|
| ... | ... | |
| 1097 | 1097 |
$::form->header; |
| 1098 | 1098 |
|
| 1099 | 1099 |
my $ustva = USTVA->new(); |
| 1100 |
$ustva->get_config($::userspath, 'finanzamt.ini');
|
|
| 1100 |
$ustva->get_config($::lx_office_conf{paths}{userspath}, 'finanzamt.ini');
|
|
| 1101 | 1101 |
|
| 1102 | 1102 |
my $land = $::form->{elsterland};
|
| 1103 | 1103 |
my $amt = $::form->{elsterFFFF};
|
| ... | ... | |
| 1189 | 1189 |
my $elstersteuernummer = ''; |
| 1190 | 1190 |
|
| 1191 | 1191 |
my $ustva = USTVA->new(); |
| 1192 |
$ustva->get_config($::userspath, 'finanzamt.ini')
|
|
| 1192 |
$ustva->get_config($::lx_office_conf{paths}{userspath}, 'finanzamt.ini')
|
|
| 1193 | 1193 |
if ($form->{saved} eq $locale->text('saved'));
|
| 1194 | 1194 |
|
| 1195 | 1195 |
# Auf Übergabefehler checken |
| ... | ... | |
| 1391 | 1391 |
|
| 1392 | 1392 |
$::form->{elster} = '1';
|
| 1393 | 1393 |
|
| 1394 |
open my $ustvaconfig, ">", "$::userspath/$filename" or $::form->error("$filename : $!");
|
|
| 1394 |
open my $ustvaconfig, ">", "$::lx_office_conf{paths}{userspath}/$filename" or $::form->error("$filename : $!");
|
|
| 1395 | 1395 |
|
| 1396 | 1396 |
# create the config file |
| 1397 | 1397 |
print {$ustvaconfig} qq|# Configuration file for USTVA\n\n|;
|
Auch abrufbar als: Unified diff
alte Config Variablen in bin/mozilla/ustva.pl gefixt.