DATEV-Schnittstelle: Auslagerung von KNE-Schreibfunktionen in eigenes Modul. Kosmetik...

[kivitendo-erp.git] / SL / DATEV / KNEFile.pm

diff --git a/SL/DATEV/KNEFile.pm b/SL/DATEV/KNEFile.pm
new file mode 100644 (file)
index 0000000..c5f60ea
--- /dev/null
+++ b/SL/DATEV/KNEFile.pm
@@ -0,0 +1,91 @@
+package SL::DATEV::KNEFile;
+
+sub new {
+  my $type = shift;
+  my $self = {};
+
+  bless $self, $type;
+
+  $self->_init(@_);
+
+  return $self;
+}
+
+sub _init {
+  my $self   = shift;
+  my %params = @_;
+
+  map { $self->{$_} = $params{$_} } keys %params;
+
+  $self->{remaining_bytes} = 250;
+  $self->{block_count}     =   0;
+  $self->{data}            = '';
+}
+
+sub get_data {
+  my $self = shift;
+
+  return $self->{data} || '';
+}
+
+sub get_block_count {
+  my $self = shift;
+
+  return $self->{block_count};
+}
+
+sub add_block {
+  my $self      = shift;
+  my $block     = shift;
+
+  my $block_len = length $block;
+
+
+  $self->flush() if ($block_len > $self->{remaining_bytes});
+
+  $self->{data}            .= $block;
+  $self->{remaining_bytes} -= $block_len;
+
+  return $self;
+}
+
+sub flush {
+  my $self = shift;
+
+  if (250 == $self->{remaining_bytes}) {
+    return $self;
+  }
+
+  my $num_zeros             = 6 + $self->{remaining_bytes};
+  $self->{data}            .= "\x00" x $num_zeros;
+
+  $self->{remaining_bytes}  = 250;
+  $self->{block_count}++;
+
+  return $self;
+}
+
+sub format_amount {
+  my $self   = shift;
+  my $amount = shift;
+  my $width  = shift;
+
+  $amount =~ s/-//;
+  my ($places, $decimal_places) = split m/\./, "$amount";
+
+  $places          *= 1;
+  $decimal_places ||= 0;
+
+  if (0 < $width) {
+    $width  -= 2;
+    $places  = sprintf("\%0${stellen}d", $places);
+  }
+
+  $decimal_places .= '0' if (2 > length $decimal_places);
+  $amount          = $places . substr($decimal_places, 0, 2);
+  $amount         *= 1 if (!$width);
+
+  return $amount;
+}
+
+1;