DATEV-Export: Option "als Personenkonten exportieren"

statt der Sammelkontonummer wird beim Export immer die Kunden- bzw.
Lieferantennummer exportiert. Es wird noch nicht auf eine gültige
Kontonummer (z.B. 10000-69999 und 70000-99999) geprüft.

diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index 00e0aa3b7e30cc3cd2e59a418d6788029961513d..426788ab0a3aa70b1d2552d7cdfbb0d23d5b9533 100644 (file)
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -225,6 +225,16 @@ sub warnings {
   }
 }
 
   }
 }
 

+sub use_pk {
+ my $self = shift;
+
+ if (@_) {
+   $self->{use_pk} = $_[0];
+ }
+
+ return $self->{use_pk};
+}
+

 sub accnofrom {
  my $self = shift;
 
 sub accnofrom {
  my $self = shift;
 


@@ -440,11 +450,18 @@ sub generate_datev_data {
 
   my %all_taxchart_ids = selectall_as_map($form, $self->dbh, qq|SELECT DISTINCT chart_id, TRUE AS is_set FROM tax|, 'chart_id', 'is_set');
 
 
   my %all_taxchart_ids = selectall_as_map($form, $self->dbh, qq|SELECT DISTINCT chart_id, TRUE AS is_set FROM tax|, 'chart_id', 'is_set');
 

+  my $ar_accno = "c.accno";
+  my $ap_accno = "c.accno";
+  if ( $self->use_pk ) {
+    $ar_accno = "CASE WHEN ac.chart_link = 'AR' THEN ct.customernumber ELSE c.accno END as accno";
+    $ap_accno = "CASE WHEN ac.chart_link = 'AP' THEN ct.vendornumber   ELSE c.accno END as accno";
+  }
+

   my $query    =
     qq|SELECT ac.acc_trans_id, ac.transdate, ac.gldate, ac.trans_id,ar.id, ac.amount, ac.taxkey, ac.memo,
          ar.invnumber, ar.duedate, ar.amount as umsatz, ar.deliverydate, ar.itime::date,
          ct.name, ct.ustid, ct.customernumber AS vcnumber, ct.id AS customer_id, NULL AS vendor_id,
   my $query    =
     qq|SELECT ac.acc_trans_id, ac.transdate, ac.gldate, ac.trans_id,ar.id, ac.amount, ac.taxkey, ac.memo,
          ar.invnumber, ar.duedate, ar.amount as umsatz, ar.deliverydate, ar.itime::date,
          ct.name, ct.ustid, ct.customernumber AS vcnumber, ct.id AS customer_id, NULL AS vendor_id,

-         c.accno, c.description AS accname, c.taxkey_id as charttax, c.datevautomatik, c.id, ac.chart_link AS link,
+         $ar_accno, c.description AS accname, c.taxkey_id as charttax, c.datevautomatik, c.id, ac.chart_link AS link,

          ar.invoice,
          t.rate AS taxrate, t.taxdescription,
          'ar' as table,
          ar.invoice,
          t.rate AS taxrate, t.taxdescription,
          'ar' as table,


@@ -473,7 +490,7 @@ sub generate_datev_data {
        SELECT ac.acc_trans_id, ac.transdate, ac.gldate, ac.trans_id,ap.id, ac.amount, ac.taxkey, ac.memo,
          ap.invnumber, ap.duedate, ap.amount as umsatz, ap.deliverydate, ap.itime::date,
          ct.name, ct.ustid, ct.vendornumber AS vcnumber, NULL AS customer_id, ct.id AS vendor_id,
        SELECT ac.acc_trans_id, ac.transdate, ac.gldate, ac.trans_id,ap.id, ac.amount, ac.taxkey, ac.memo,
          ap.invnumber, ap.duedate, ap.amount as umsatz, ap.deliverydate, ap.itime::date,
          ct.name, ct.ustid, ct.vendornumber AS vcnumber, NULL AS customer_id, ct.id AS vendor_id,

-         c.accno, c.description AS accname, c.taxkey_id as charttax, c.datevautomatik, c.id, ac.chart_link AS link,
+         $ap_accno, c.description AS accname, c.taxkey_id as charttax, c.datevautomatik, c.id, ac.chart_link AS link,

          ap.invoice,
          t.rate AS taxrate, t.taxdescription,
          'ap' as table,
          ap.invoice,
          t.rate AS taxrate, t.taxdescription,
          'ap' as table,


@@ -956,6 +973,7 @@ sub generate_datev_lines {
 
     if ($trans_lines >= 2) {
 
 
     if ($trans_lines >= 2) {
 

+      # Personenkontenerweiterung: accno has already been replaced if use_pk was set

       $datev_data{'gegenkonto'} = $transaction->[$haben]->{'accno'};
       $datev_data{'konto'}      = $transaction->[$soll]->{'accno'};
       if ($transaction->[$haben]->{'invnumber'} ne "") {
       $datev_data{'gegenkonto'} = $transaction->[$haben]->{'accno'};
       $datev_data{'konto'}      = $transaction->[$soll]->{'accno'};
       if ($transaction->[$haben]->{'invnumber'} ne "") {

diff --git a/bin/mozilla/datev.pl b/bin/mozilla/datev.pl
index e5c048b664f30e4c9447c60a259bfd0087ba2a6e..d34f0e32d25c8f1dce28d6d166563ce345e04960 100644 (file)
--- a/bin/mozilla/datev.pl
+++ b/bin/mozilla/datev.pl
@@ -112,6 +112,7 @@ sub export3 {
       $::form->{zeitraum}, $::form->{monat}, $::form->{quartal},
       $::form->{transdatefrom}, $::form->{transdateto},
     );
       $::form->{zeitraum}, $::form->{monat}, $::form->{quartal},
       $::form->{transdatefrom}, $::form->{transdateto},
     );

+    $data{use_pk} = $::form->{use_pk};

   } else {
     die 'invalid exporttype';
   }
   } else {
     die 'invalid exporttype';
   }

diff --git a/locale/de/all b/locale/de/all
index 0bb312692731dca43df213620a4156de65f4011c..9b5f4d22ca66755ec0a9dd85474f991499c52ea6 100755 (executable)
--- a/locale/de/all
+++ b/locale/de/all
@@ -1341,6 +1341,7 @@ $self->{texts} = {
   'Export date to'              => 'Exportdatum bis',
   'Export error in transaction #1: Rounding error too large #2' => 'Exportfehler in Transaktion #1: Zu großer Rundungsfehler (#2)',
   'Export error in transaction #1: Unbalanced ledger before next transaction (#2)' => 'Exportfehler in Transaktion #1: Unausgeglichene Buchung',
   'Export date to'              => 'Exportdatum bis',
   'Export error in transaction #1: Rounding error too large #2' => 'Exportfehler in Transaktion #1: Zu großer Rundungsfehler (#2)',
   'Export error in transaction #1: Unbalanced ledger before next transaction (#2)' => 'Exportfehler in Transaktion #1: Unausgeglichene Buchung',

+  'Export with CV Charts'       => 'Mit Personenkonten exportieren',

   'Extend automatically by n months' => 'Automatische Verlängerung um x Monate',
   'Extended'                    => 'Gesamt',
   'Extended status'             => 'Erweiterter Status',
   'Extend automatically by n months' => 'Automatische Verlängerung um x Monate',
   'Extended'                    => 'Gesamt',
   'Extended status'             => 'Erweiterter Status',

diff --git a/locale/en/all b/locale/en/all
index efa2072b3e174529980386191dc5fa1cc11726b8..7f38936e1528a7030223492d9c90843ef45322a8 100644 (file)
--- a/locale/en/all
+++ b/locale/en/all
@@ -1340,6 +1340,7 @@ $self->{texts} = {
   'Export date to'              => '',
   'Export error in transaction #1: Rounding error too large #2' => '',
   'Export error in transaction #1: Unbalanced ledger before next transaction (#2)' => '',
   'Export date to'              => '',
   'Export error in transaction #1: Rounding error too large #2' => '',
   'Export error in transaction #1: Unbalanced ledger before next transaction (#2)' => '',

+  'Export with CV Charts'       => '',

   'Extend automatically by n months' => '',
   'Extended'                    => '',
   'Extended status'             => '',
   'Extend automatically by n months' => '',
   'Extended'                    => '',
   'Extended status'             => '',

diff --git a/templates/webpages/datev/export_bewegungsdaten.html b/templates/webpages/datev/export_bewegungsdaten.html
index f8bd353b025b5f88208d7883c915213cfc61b1c2..e10aa7932947f25529742382954834373a8a21f6 100644 (file)
--- a/templates/webpages/datev/export_bewegungsdaten.html
+++ b/templates/webpages/datev/export_bewegungsdaten.html
@@ -88,6 +88,20 @@
   <td><hr size=3 noshade></td>
   </tr>
   [% END %]
   <td><hr size=3 noshade></td>
   </tr>
   [% END %]

+   <tr>
+     <td>
+        <table>
+         <tr>
+           <td align=left>[% 'Export with CV Charts' | $T8 %]</td>
+           <td align=left></td>
+           <td>[% L.checkbox_tag('use_pk', value => 1, checked => 0) %]</td>
+         </tr>
+        </table>
+     </td>
+   </tr>
+   <tr>
+  <td><hr size=3 noshade></td>
+  </tr>

 </table>
 
 <input type=hidden name=beraternr value="[% beraternr %]">
 </table>
 
 <input type=hidden name=beraternr value="[% beraternr %]">