Revision e9e216f5
Von Udo Spallek vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 855 | 855 |
# Re-set Numberformat |
| 856 | 856 |
$myconfig{numberformat} = $temp_numberformat;
|
| 857 | 857 |
|
| 858 |
|
|
| 859 | 858 |
# push Kennziffern to <%foreach Array fo easyer |
| 860 | 859 |
# output in xml format. Thx to Moritz. |
| 861 | 860 |
my %winston_id_for = ( |
| 862 |
# No Winston remap?! |
|
| 861 |
# No Winston remap?!
|
|
| 863 | 862 |
); |
| 864 |
|
|
| 865 | 863 |
|
| 866 | 864 |
foreach my $kennziffer (@category_cent, @category_euro) {
|
| 867 |
|
|
| 865 |
|
|
| 868 | 866 |
next if ( $kennziffer =~ m/Z\d\d/); |
| 869 | 867 |
next if ( $form->{$kennziffer} == 0 );
|
| 870 | 868 |
|
| 871 | 869 |
if (defined $winston_id_for{$kennziffer} ) {
|
| 872 | 870 |
push(@{ $form->{id}}, $winston_id_for{$kennziffer});
|
| 873 | 871 |
} else {
|
| 874 |
push(@{ $form->{id}}, "$kennziffer");
|
|
| 872 |
push(@{ $form->{id}}, "Kz$kennziffer");
|
|
| 875 | 873 |
} |
| 876 | 874 |
push(@{ $form->{amount}}, $form->{$kennziffer});
|
| 877 | 875 |
} |
| 878 | 876 |
|
| 879 |
|
|
| 880 | 877 |
} elsif ( $form->{format} eq 'elstertaxbird' ) {
|
| 881 | 878 |
|
| 882 | 879 |
# Define serveral filenames |
| templates/German-winston.xml | ||
|---|---|---|
| 7 | 7 |
<AnmeldeZeitraum><%period%></AnmeldeZeitraum> |
| 8 | 8 |
|
| 9 | 9 |
<%foreach id%> |
| 10 |
<Kennzahl Nr="<%id%>"><%amount%></Kennzahl>
|
|
| 10 |
<Kennzahl nr="<%id%>"><%amount%></Kennzahl>
|
|
| 11 | 11 |
<%end%> |
| 12 | 12 |
|
| 13 | 13 |
</WinstonAusgang> |
Auch abrufbar als: Unified diff
USTVA: Winston export ueberarbeitet. Kz vor die pos_ustva gesetzt, 'Kennzahl Nr' auf 'Kennzahl nr.' geaendert.