Revision cd1ec538
Von Moritz Bunkus vor etwa 9 Jahren hinzugefügt
| SL/DATEV/KNEFile.pm | ||
|---|---|---|
| 71 | 71 |
my $self = shift; |
| 72 | 72 |
my $amount = shift; |
| 73 | 73 |
my $width = shift; |
| 74 |
our $stellen; |
|
| 75 | 74 |
|
| 76 | 75 |
$amount =~ s/-//; |
| 77 | 76 |
my ($places, $decimal_places) = split m/\./, "$amount"; |
| ... | ... | |
| 81 | 80 |
|
| 82 | 81 |
if (0 < $width) {
|
| 83 | 82 |
$width -= 2; |
| 84 |
$places = sprintf("\%0${stellen}d", $places);
|
|
| 83 |
$places = sprintf("\%0${width}d", $places);
|
|
| 85 | 84 |
} |
| 86 | 85 |
|
| 87 | 86 |
$decimal_places .= '0' if (2 > length $decimal_places); |
Auch abrufbar als: Unified diff
DATEV: Falsche Variable für Nachkommastellen gefixt
Fun fact: das war seit Refactoring in 2008-12-15 kaputt (Commit
40d52f50).