package SL::DATEV::KNEFile;
+use strict;
+
sub new {
my $type = shift;
my $self = {};
if (0 < $width) {
$width -= 2;
- $places = sprintf("\%0${stellen}d", $places);
+ $places = sprintf("\%0${width}d", $places);
}
$decimal_places .= '0' if (2 > length $decimal_places);