Revision d5f35597
Von Udo Spallek vor etwa 19 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 1011 | 1011 |
$form->{endbold} = "}";
|
| 1012 | 1012 |
$form->{br} = '\\\\';
|
| 1013 | 1013 |
|
| 1014 |
|
|
| 1014 | 1015 |
my @numbers = qw(51r 86r 97r 93r 96 43 45 |
| 1015 | 1016 |
66 62 67); |
| 1016 | 1017 |
my $number = ''; |
| 1017 |
foreach $number (@numbers) {
|
|
| 1018 |
$form->{$number} =~ s/,/~~/g;
|
|
| 1018 |
# Zahlenformatierung f?r Latex USTVA Formulare |
|
| 1019 |
if ($myconfig{numberformat} eq '1.000,00' or
|
|
| 1020 |
$myconfig{numberformat} eq '1000,00') {
|
|
| 1021 |
foreach $number (@numbers) {
|
|
| 1022 |
$form->{$number} =~ s/,/~~/g;
|
|
| 1023 |
} |
|
| 1024 |
} |
|
| 1025 |
if ($myconfig{numberformat} eq '1000.00' or
|
|
| 1026 |
$myconfig{numberformat} eq '1,000.00') {
|
|
| 1027 |
foreach $number (@numbers) {
|
|
| 1028 |
$form->{$number} =~ s/\./~~/g;
|
|
| 1029 |
} |
|
| 1019 | 1030 |
} |
| 1020 |
} elsif ($form->{format} eq 'html') {
|
|
| 1031 |
# Formatierungen f?r HTML Ausgabe |
|
| 1032 |
} elsif ($form->{format} eq 'html') {
|
|
| 1021 | 1033 |
$form->{padding} = " ";
|
| 1022 | 1034 |
$form->{bold} = "<b>";
|
| 1023 | 1035 |
$form->{endbold} = "</b>";
|
Auch abrufbar als: Unified diff
USTVA: Zahlenformatierung in Tex-Reports erweitert für alle Zahlenformate