Revision e013ebcf
Von Udo Spallek vor fast 19 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 579 | 579 |
'09' => 'September', |
| 580 | 580 |
'10' => 'October', |
| 581 | 581 |
'11' => 'November', |
| 582 |
'12' => 'December'); |
|
| 583 |
|
|
| 582 |
'12' => 'December', |
|
| 583 |
'13' => 'Yearly', |
|
| 584 |
); |
|
| 585 |
|
|
| 584 | 586 |
my $yy = $form->{year} * 10000;
|
| 585 | 587 |
$yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
|
| 586 | 588 |
$sel = ''; |
| ... | ... | |
| 659 | 661 |
} elsif ($form->{FA_voranmeld} eq 'quarter') {
|
| 660 | 662 |
|
| 661 | 663 |
# Vorauswahl bei quartalsweisem Voranmeldungszeitraum |
| 662 |
my %liste = ('A' => '1.',
|
|
| 663 |
'B' => '2.', |
|
| 664 |
'C' => '3.', |
|
| 665 |
'D' => '4.',); |
|
| 664 |
my %liste = ( 'A' => $locale->text('1. Quarter'),
|
|
| 665 |
'B' => $locale->text('2. Quarter'),
|
|
| 666 |
'C' => $locale->text('3. Quarter'),
|
|
| 667 |
'D' => $locale->text('4. Quarter'),
|
|
| 668 |
'13' => $locale->text('Yearly'),
|
|
| 669 |
); |
|
| 666 | 670 |
|
| 667 | 671 |
my $yy = $form->{year} * 10000;
|
| 668 | 672 |
$yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
|
| ... | ... | |
| 700 | 704 |
my $selected = ''; |
| 701 | 705 |
$selected = 'selected' if ($sel eq $key); |
| 702 | 706 |
print qq| |
| 703 |
<option value="$key" $selected>$liste{$key} |
|
|
| 704 |
. $locale->text('Quarter')
|
|
| 705 |
. qq|</option> |
|
| 707 |
<option value="$key" $selected>$liste{$key}</option>
|
|
| 706 | 708 |
|; |
| 707 | 709 |
} |
| 708 | 710 |
print qq|\n</select> |
| ... | ... | |
| 714 | 716 |
print qq|<select id="zeitraum" name="duetyp" title="| |
| 715 | 717 |
. $locale->text('Select a period') . qq|" >|;
|
| 716 | 718 |
|
| 717 |
my %listea = ('A' => '1.',
|
|
| 718 |
'B' => '2.', |
|
| 719 |
'C' => '3.', |
|
| 720 |
'D' => '4.',); |
|
| 719 |
my %listea = ('A' => '1. Quarter',
|
|
| 720 |
'B' => '2. Quarter',
|
|
| 721 |
'C' => '3. Quarter',
|
|
| 722 |
'D' => '4. Quarter',);
|
|
| 721 | 723 |
|
| 722 | 724 |
my %listeb = ('01' => 'January',
|
| 723 | 725 |
'02' => 'February', |
| ... | ... | |
| 730 | 732 |
'09' => 'September', |
| 731 | 733 |
'10' => 'October', |
| 732 | 734 |
'11' => 'November', |
| 733 |
'12' => 'December',); |
|
| 735 |
'12' => 'December', |
|
| 736 |
'13' => 'Yearly', |
|
| 737 |
); |
|
| 734 | 738 |
my $key = ''; |
| 735 | 739 |
foreach $key (sort keys %listea) {
|
| 736 | 740 |
print qq| |
| 737 |
<option value="$key">$listea{$key} |
|
|
| 738 |
. $locale->text('Quarter')
|
|
| 739 |
. qq|</option> |
|
| 740 |
|
|
| 741 |
|; |
|
| 741 |
<option value="$key">$listea{$key}</option>
|
|
| 742 |
|; |
|
| 742 | 743 |
} |
| 743 | 744 |
|
| 744 | 745 |
foreach $key (sort keys %listeb) {
|
| ... | ... | |
| 1039 | 1040 |
} |
| 1040 | 1041 |
|
| 1041 | 1042 |
if ($form->{format} eq 'elster') {
|
| 1042 |
&create_winston(); |
|
| 1043 |
if ($form->{duetyp} eq '13'){
|
|
| 1044 |
$form->header; |
|
| 1045 |
USTVA::info($locale->text('Impossible to create yearly Tax Report via Winston.<br \> Not yet implemented!'));
|
|
| 1046 |
} else {
|
|
| 1047 |
&create_winston(); |
|
| 1048 |
} |
|
| 1043 | 1049 |
} else {
|
| 1044 | 1050 |
$form->{templates} = $myconfig{templates};
|
| 1045 | 1051 |
$form->{templates} = "doc" if ($form->{type} eq 'help');
|
| 1046 | 1052 |
|
| 1047 | 1053 |
$form->{IN} = "$form->{type}";
|
| 1048 | 1054 |
$form->{IN} = "$form->{help}" if ($form->{type} eq 'help');
|
| 1055 |
$form->{IN} = 'USTE' if ($form->{duetyp} eq '13' &&
|
|
| 1056 |
$form->{format} ne 'html');
|
|
| 1057 |
|
|
| 1058 |
if ($form->{IN} eq 'USTE'){
|
|
| 1059 |
$form->header; |
|
| 1060 |
USTVA::info($locale->text('Impossible to create yearly Tax Report as PDF or PS.<br \> Not yet implemented!'));
|
|
| 1061 |
} |
|
| 1062 |
|
|
| 1049 | 1063 |
$form->{IN} .= "-$form->{year}"
|
| 1050 | 1064 |
if ( $form->{format} eq 'pdf'
|
| 1051 | 1065 |
or $form->{format} eq 'postscript');
|
Auch abrufbar als: Unified diff
Bug/Feature USTVA Modul: Jahresberichte können nun im Ausgabeformat 'Vorschau'
generiert werden.
Betrifft Anfrage auf User Mailingliste, Posting vom 6.12.2005
von Raimund Koenig, Subjekt: UStVA.