From: G. Richardson <information@kivitendo-premium.de>
Date: Sun, 12 Feb 2017 12:05:58 +0000 (+0100)
Subject: DATEV Export - Vorbereitung für CSV Export
X-Git-Tag: release-3.5.4~1158
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=b14b17800d3b3afb37b0c11ac558b07d7042f4c4;p=kivitendo-erp.git

DATEV Export - Vorbereitung für CSV Export
---

diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index 8756c7295..0132855ae 100644
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -56,10 +56,11 @@ use Time::HiRes qw(gettimeofday);
 
     DATEV_FORMAT_KNE   => $i++,
     DATEV_FORMAT_OBE   => $i++,
+    DATEV_FORMAT_CSV   => $i++,
   };
 }
 
-my @export_constants = qw(DATEV_ET_BUCHUNGEN DATEV_ET_STAMM DATEV_ET_CSV DATEV_FORMAT_KNE DATEV_FORMAT_OBE);
+my @export_constants = qw(DATEV_ET_BUCHUNGEN DATEV_ET_STAMM DATEV_ET_CSV DATEV_FORMAT_KNE DATEV_FORMAT_OBE DATEV_FORMAT_CSV);
 our @EXPORT_OK = (@export_constants);
 our %EXPORT_TAGS = (CONSTANTS => [ @export_constants ]);
 
@@ -311,7 +312,9 @@ sub export {
 
   die 'no format set!' unless $self->has_format;
 
-  if ($self->format == DATEV_FORMAT_KNE) {
+   if ($self->format == DATEV_FORMAT_CSV) {
+    $result = $self->csv_export;
+  } elsif ($self->format == DATEV_FORMAT_KNE) {
     $result = $self->kne_export;
   } elsif ($self->format == DATEV_FORMAT_OBE) {
     $result = $self->obe_export;
@@ -341,6 +344,10 @@ sub kne_export {
   return $result;
 }
 
+sub csv_export {
+  die 'not yet implemented';
+}
+
 sub obe_export {
   die 'not yet implemented';
 }