bin/mozilla/datev.pl

   1 #=====================================================================
   2 # kivitendo ERP
   3 # Copyright (c) 2004
   4 #
   5 #  Author: Philip Reetz
   6 #   Email: p.reetz@linet-services.de
   7 #     Web: http://www.lx-office.org
   8 #
   9 #
  10 # This program is free software; you can redistribute it and/or modify
  11 # it under the terms of the GNU General Public License as published by
  12 # the Free Software Foundation; either version 2 of the License, or
  13 # (at your option) any later version.
  14 #
  15 # This program is distributed in the hope that it will be useful,
  16 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 # GNU General Public License for more details.
  19 # You should have received a copy of the GNU General Public License
  20 # along with this program; if not, write to the Free Software
  21 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
  22 # MA 02110-1335, USA.
  23 #======================================================================
  24 #
  25 # Datev export module
  26 #
  27 #======================================================================
  28
  29 use POSIX qw(strftime getcwd);
  30 use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
  31
  32 use SL::Common;
  33 use SL::DATEV qw(:CONSTANTS);
  34 use SL::Locale::String qw(t8);
  35 use SL::DB::Department;
  36
  37 use strict;
  38
  39 1;
  40
  41 # end of main
  42
  43 require "bin/mozilla/common.pl";
  44
  45 sub continue { call_sub($main::form->{"nextsub"}); }
  46
  47 sub export {
  48   $::lxdebug->enter_sub;
  49   $::auth->assert('datev_export');
  50
  51   my $stamm = SL::DATEV->new->get_datev_stamm;
  52
  53   setup_datev_export_action_bar();
  54
  55   $::form->header;
  56   print $::form->parse_html_template('datev/export', $stamm);
  57
  58   $::lxdebug->leave_sub;
  59 }
  60
  61 sub export2 {
  62   $::lxdebug->enter_sub;
  63   $::auth->assert('datev_export');
  64
  65   if ($::form->{exporttype} == 0) {
  66     export_bewegungsdaten();
  67   } else {
  68     export_stammdaten();
  69   }
  70   $::lxdebug->leave_sub;
  71 }
  72
  73 sub export_bewegungsdaten {
  74   $::lxdebug->enter_sub;
  75   $::auth->assert('datev_export');
  76
  77   setup_datev_export2_action_bar();
  78
  79   $::form->header;
  80   $::form->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all_sorted;
  81   $::form->{show_pk_option}  = SL::DATEV->new->check_vcnumbers_are_valid_pk_numbers;
  82
  83   # check if we have mismatching number length domains
  84   SL::DATEV->new->check_valid_length_of_accounts;
  85
  86   print $::form->parse_html_template('datev/export_bewegungsdaten');
  87
  88   $::lxdebug->leave_sub;
  89 }
  90
  91 sub export_stammdaten {
  92   $::lxdebug->enter_sub;
  93   $::auth->assert('datev_export');
  94
  95   setup_datev_export2_action_bar();
  96
  97   $::form->header;
  98   print $::form->parse_html_template('datev/export_stammdaten');
  99
 100   $::lxdebug->leave_sub;
 101 }
 102
 103 sub export3 {
 104   $::lxdebug->enter_sub;
 105   $::auth->assert('datev_export');
 106
 107   my %data = (
 108     exporttype => $::form->{exporttype} ? DATEV_ET_STAMM : DATEV_ET_BUCHUNGEN,
 109     format     => $::form->{exportformat} eq 'kne' ? DATEV_FORMAT_KNE :  DATEV_FORMAT_CSV,
 110   );
 111
 112   if ($::form->{exporttype} == DATEV_ET_STAMM) {
 113     $data{accnofrom}  = $::form->{accnofrom},
 114     $data{accnoto}    = $::form->{accnoto},
 115   } elsif ($::form->{exporttype} == DATEV_ET_BUCHUNGEN) {
 116     @data{qw(from to)} = _get_dates(
 117       $::form->{zeitraum}, $::form->{monat}, $::form->{quartal},
 118       $::form->{transdatefrom}, $::form->{transdateto},
 119     );
 120     $data{use_pk} = $::form->{use_pk};
 121     $data{locked} = $::form->{locked};
 122     $data{imported} = $::form->{imported};
 123   } else {
 124     die 'invalid exporttype';
 125   }
 126
 127   my $datev = SL::DATEV->new(%data);
 128
 129   $datev->clean_temporary_directories;
 130   $datev->save_datev_stamm($::form);
 131
 132   $datev->export;
 133
 134   if (!$datev->errors) {
 135     setup_datev_export3_action_bar(download_token => $datev->download_token);
 136
 137     $::form->header;
 138     print $::form->parse_html_template('datev/export3', { WARNINGS => $datev->warnings });
 139   } else {
 140     $::form->error("Export schlug fehl.\n" . join "\n", $datev->errors);
 141   }
 142
 143   $::lxdebug->leave_sub;
 144 }
 145
 146 sub download {
 147   $main::lxdebug->enter_sub();
 148
 149   my $form     = $main::form;
 150   my $locale   = $main::locale;
 151
 152   $::auth->assert('datev_export');
 153
 154   my $tmp_name = Common->tmpname();
 155   my $zip_name = strftime("kivitendo-datev-export-%Y%m%d.zip", localtime(time()));
 156
 157   my $cwd = getcwd();
 158
 159   my $datev = SL::DATEV->new(download_token => $form->{download_token});
 160
 161   my $path = $datev->export_path;
 162   if (!$path) {
 163     $form->error($locale->text("Your download does not exist anymore. Please re-run the DATEV export assistant."));
 164   }
 165
 166   chdir($path) || die("chdir $path");
 167
 168   my @filenames = glob "*";
 169
 170   if (!@filenames) {
 171     chdir($cwd);
 172     $form->error($locale->text("Your download does not exist anymore. Please re-run the DATEV export assistant."));
 173   }
 174
 175   my $zip = Archive::Zip->new();
 176   map { $zip->addFile($_); } @filenames;
 177   $zip->writeToFileNamed($tmp_name);
 178
 179   chdir($cwd);
 180
 181   open(IN, $tmp_name) || die("open $tmp_name");
 182   $::locale->with_raw_io(\*STDOUT, sub {
 183     print("Content-Type: application/zip\n");
 184     print("Content-Disposition: attachment; filename=\"${zip_name}\"\n\n");
 185     while (<IN>) {
 186       print($_);
 187     }
 188   });
 189   close(IN);
 190
 191   unlink($tmp_name);
 192
 193   $main::lxdebug->leave_sub();
 194 }
 195
 196 sub _get_dates {
 197   $::lxdebug->enter_sub;
 198
 199   my ($mode, $month, $quarter, $transdatefrom, $transdateto) = @_;
 200   my ($fromdate, $todate);
 201
 202   if ($mode eq "monat") {
 203     $fromdate = DateTime->new(day => 1, month => $month, year => DateTime->today->year);
 204     # december export is usually in january/february
 205     $fromdate = $fromdate->subtract(years => 1) if ($month == 12);
 206
 207     $todate   = $fromdate->clone->add(months => 1)->add(days => -1);
 208   } elsif ($mode eq "quartal") {
 209     die 'quarter out of of bounds' if $quarter < 1 || $quarter > 4;
 210     $fromdate = DateTime->new(day => 1, month => (3 * $quarter - 2), year => DateTime->today->year);
 211     $todate   = $fromdate->clone->add(months => 3)->add(days => -1);
 212   } elsif ($mode eq "zeit") {
 213     $fromdate = DateTime->from_lxoffice($transdatefrom);
 214     $todate   = DateTime->from_lxoffice($transdateto);
 215     die 'need from and to time' unless $fromdate && $todate;
 216   } else {
 217     die 'undefined interval mode';
 218   }
 219
 220   $::lxdebug->leave_sub;
 221
 222   return ($fromdate, $todate);
 223 }
 224
 225 sub setup_datev_export_action_bar {
 226   my %params = @_;
 227
 228   for my $bar ($::request->layout->get('actionbar')) {
 229     $bar->add(
 230       action => [
 231         t8('Continue'),
 232         submit    => [ '#form', { action => 'export2' } ],
 233         accesskey => 'enter',
 234       ],
 235     );
 236   }
 237 }
 238
 239 sub setup_datev_export2_action_bar {
 240   my %params = @_;
 241
 242   for my $bar ($::request->layout->get('actionbar')) {
 243     $bar->add(
 244       action => [
 245         t8('Export'),
 246         submit    => [ '#form', { action => 'export3' } ],
 247         accesskey => 'enter',
 248       ],
 249       action => [
 250         t8('Back'),
 251         call => [ 'kivi.history_back' ],
 252       ],
 253     );
 254   }
 255 }
 256
 257 sub setup_datev_export3_action_bar {
 258   my %params = @_;
 259
 260   for my $bar ($::request->layout->get('actionbar')) {
 261     $bar->add(
 262       link => [
 263         t8('Download'),
 264         link => [ 'datev.pl?action=download&download_token=' . $::form->escape($params{download_token}) ],
 265       ],
 266       action => [
 267         t8('Back'),
 268         call => [ 'kivi.history_back' ],
 269       ],
 270     );
 271   }
 272 }