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