DATEV::CSV Feld Umsatz strikter beschreiben

[mfinanz.git] / SL / DATEV / KNEFile.pm

diff --git a/SL/DATEV/KNEFile.pm b/SL/DATEV/KNEFile.pm
index c5f60ea1251c71a263703008ab4b3fa3a9593991..9816ac0b7425f259947971c6bf8df75009cc7d82 100644 (file)
--- a/SL/DATEV/KNEFile.pm
+++ b/SL/DATEV/KNEFile.pm
@@ -1,5 +1,7 @@
 package SL::DATEV::KNEFile;
 
+use strict;
+
 sub new {
   my $type = shift;
   my $self = {};
@@ -78,7 +80,7 @@ sub format_amount {
 
   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);