Revision b9c7197f
Von Udo Spallek vor fast 18 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 755 | 755 |
41 44 49 43 48 51 86 35 77 76 91 89 |
| 756 | 756 |
97 93 95 94 42 60 45 52 73 84 81 |
| 757 | 757 |
); |
| 758 |
|
|
| 759 |
$form->{id} = [];
|
|
| 760 |
$form->{amount} = [];
|
|
| 758 | 761 |
|
| 759 | 762 |
if ( $form->{format} eq 'pdf' or $form->{format} eq 'postscript') {
|
| 760 | 763 |
|
| ... | ... | |
| 836 | 839 |
# Re-set Numberformat |
| 837 | 840 |
$myconfig{numberformat} = $temp_numberformat;
|
| 838 | 841 |
|
| 839 |
} |
|
| 840 | 842 |
|
| 841 |
elsif ( $form->{format} eq 'elstertaxbird' ) {
|
|
| 843 |
# push Kennziffern to <%foreach Array fo easyer |
|
| 844 |
# output in xml format. Thx to Moritz. |
|
| 845 |
my %winston_id_for = ( |
|
| 846 |
# No Winston remap?! |
|
| 847 |
); |
|
| 848 |
|
|
| 849 |
|
|
| 850 |
foreach my $kennziffer (@category_cent, @category_euro) {
|
|
| 851 |
|
|
| 852 |
next if ( $kennziffer =~ m/Z\d\d/); |
|
| 853 |
next if ( $form->{$kennziffer} == 0 );
|
|
| 854 |
|
|
| 855 |
if (defined $winston_id_for{$kennziffer} ) {
|
|
| 856 |
push(@{ $form->{id}}, $winston_id_for{$kennziffer});
|
|
| 857 |
} else {
|
|
| 858 |
push(@{ $form->{id}}, "$kennziffer");
|
|
| 859 |
} |
|
| 860 |
push(@{ $form->{amount}}, $form->{$kennziffer});
|
|
| 861 |
} |
|
| 862 |
|
|
| 863 |
|
|
| 864 |
} elsif ( $form->{format} eq 'elstertaxbird' ) {
|
|
| 842 | 865 |
|
| 843 | 866 |
# Define serveral filenames |
| 844 | 867 |
$form->{IN} = 'taxbird.txb';
|
Auch abrufbar als: Unified diff
USTVA: Ausgabeformat Winston an 16%/19% angepasst. Winston Kennziffern werden ueber <%foreach Schleife dargestellt