X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/76c486e3bf157e844b0cf11828d55dae2cb7e439..c510d88bbfea6818ffafaddb7286e88aec96d3b8:/SL/DATEV/KNEFile.pm diff --git a/SL/DATEV/KNEFile.pm b/SL/DATEV/KNEFile.pm index c5f60ea12..e8ad4748a 100644 --- 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 = {}; @@ -69,6 +71,7 @@ sub format_amount { my $self = shift; my $amount = shift; my $width = shift; + our $stellen; $amount =~ s/-//; my ($places, $decimal_places) = split m/\./, "$amount";