SL/DATEV/KNEFile.pm

   1 package SL::DATEV::KNEFile;
   2
   3 sub new {
   4   my $type = shift;
   5   my $self = {};
   6
   7   bless $self, $type;
   8
   9   $self->_init(@_);
  10
  11   return $self;
  12 }
  13
  14 sub _init {
  15   my $self   = shift;
  16   my %params = @_;
  17
  18   map { $self->{$_} = $params{$_} } keys %params;
  19
  20   $self->{remaining_bytes} = 250;
  21   $self->{block_count}     =   0;
  22   $self->{data}            = '';
  23 }
  24
  25 sub get_data {
  26   my $self = shift;
  27
  28   return $self->{data} || '';
  29 }
  30
  31 sub get_block_count {
  32   my $self = shift;
  33
  34   return $self->{block_count};
  35 }
  36
  37 sub add_block {
  38   my $self      = shift;
  39   my $block     = shift;
  40
  41   my $block_len = length $block;
  42
  43
  44   $self->flush() if ($block_len > $self->{remaining_bytes});
  45
  46   $self->{data}            .= $block;
  47   $self->{remaining_bytes} -= $block_len;
  48
  49   return $self;
  50 }
  51
  52 sub flush {
  53   my $self = shift;
  54
  55   if (250 == $self->{remaining_bytes}) {
  56     return $self;
  57   }
  58
  59   my $num_zeros             = 6 + $self->{remaining_bytes};
  60   $self->{data}            .= "\x00" x $num_zeros;
  61
  62   $self->{remaining_bytes}  = 250;
  63   $self->{block_count}++;
  64
  65   return $self;
  66 }
  67
  68 sub format_amount {
  69   my $self   = shift;
  70   my $amount = shift;
  71   my $width  = shift;
  72
  73   $amount =~ s/-//;
  74   my ($places, $decimal_places) = split m/\./, "$amount";
  75
  76   $places          *= 1;
  77   $decimal_places ||= 0;
  78
  79   if (0 < $width) {
  80     $width  -= 2;
  81     $places  = sprintf("\%0${stellen}d", $places);
  82   }
  83
  84   $decimal_places .= '0' if (2 > length $decimal_places);
  85   $amount          = $places . substr($decimal_places, 0, 2);
  86   $amount         *= 1 if (!$width);
  87
  88   return $amount;
  89 }
  90
  91 1;