1 #=====================================================================
6 # Email: p.reetz@linet-services.de
7 # Web: http://www.lx-office.org
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.
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,
23 #======================================================================
27 #======================================================================
29 use POSIX qw(strftime getcwd);
30 use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
33 use SL::DATEV qw(:CONSTANTS);
34 use SL::Locale::String qw(t8);
35 use SL::DB::Department;
43 require "bin/mozilla/common.pl";
45 sub continue { call_sub($main::form->{"nextsub"}); }
48 $::lxdebug->enter_sub;
49 $::auth->assert('datev_export');
51 my $stamm = SL::DATEV->new->get_datev_stamm;
53 setup_datev_export_action_bar();
56 print $::form->parse_html_template('datev/export', $stamm);
58 $::lxdebug->leave_sub;
62 $::lxdebug->enter_sub;
63 $::auth->assert('datev_export');
65 if ($::form->{exporttype} == 0) {
66 export_bewegungsdaten();
70 $::lxdebug->leave_sub;
73 sub export_bewegungsdaten {
74 $::lxdebug->enter_sub;
75 $::auth->assert('datev_export');
77 setup_datev_export2_action_bar();
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 print $::form->parse_html_template('datev/export_bewegungsdaten');
84 $::lxdebug->leave_sub;
87 sub export_stammdaten {
88 $::lxdebug->enter_sub;
89 $::auth->assert('datev_export');
91 setup_datev_export2_action_bar();
94 print $::form->parse_html_template('datev/export_stammdaten');
96 $::lxdebug->leave_sub;
100 $::lxdebug->enter_sub;
101 $::auth->assert('datev_export');
104 exporttype => $::form->{exporttype} ? DATEV_ET_STAMM : DATEV_ET_BUCHUNGEN,
105 format => $::form->{kne} ? DATEV_FORMAT_KNE : $::form->{csv} ? DATEV_FORMAT_CSV : die "unknown format",
108 if ($::form->{exporttype} == DATEV_ET_STAMM) {
109 $data{accnofrom} = $::form->{accnofrom},
110 $data{accnoto} = $::form->{accnoto},
111 } elsif ($::form->{exporttype} == DATEV_ET_BUCHUNGEN) {
112 @data{qw(from to)} = _get_dates(
113 $::form->{zeitraum}, $::form->{monat}, $::form->{quartal},
114 $::form->{transdatefrom}, $::form->{transdateto},
116 $data{use_pk} = $::form->{use_pk};
118 die 'invalid exporttype';
121 my $datev = SL::DATEV->new(%data);
123 $datev->clean_temporary_directories;
124 $datev->save_datev_stamm($::form);
128 if (!$datev->errors) {
129 setup_datev_export3_action_bar(download_token => $datev->download_token);
132 print $::form->parse_html_template('datev/export3', { WARNINGS => $datev->warnings });
134 $::form->error("Export schlug fehl.\n" . join "\n", $datev->errors);
137 $::lxdebug->leave_sub;
141 $main::lxdebug->enter_sub();
143 my $form = $main::form;
144 my $locale = $main::locale;
146 $::auth->assert('datev_export');
148 my $tmp_name = Common->tmpname();
149 my $zip_name = strftime("kivitendo-datev-export-%Y%m%d.zip", localtime(time()));
153 my $datev = SL::DATEV->new(download_token => $form->{download_token});
155 my $path = $datev->export_path;
157 $form->error($locale->text("Your download does not exist anymore. Please re-run the DATEV export assistant."));
160 chdir($path) || die("chdir $path");
162 my @filenames = glob "*";
166 $form->error($locale->text("Your download does not exist anymore. Please re-run the DATEV export assistant."));
169 my $zip = Archive::Zip->new();
170 map { $zip->addFile($_); } @filenames;
171 $zip->writeToFileNamed($tmp_name);
175 open(IN, $tmp_name) || die("open $tmp_name");
176 $::locale->with_raw_io(\*STDOUT, sub {
177 print("Content-Type: application/zip\n");
178 print("Content-Disposition: attachment; filename=\"${zip_name}\"\n\n");
187 $main::lxdebug->leave_sub();
191 $::lxdebug->enter_sub;
193 my ($mode, $month, $quarter, $transdatefrom, $transdateto) = @_;
194 my ($fromdate, $todate);
196 if ($mode eq "monat") {
197 $fromdate = DateTime->new(day => 1, month => $month, year => DateTime->today->year);
198 $todate = $fromdate->clone->add(months => 1)->add(days => -1);
199 } elsif ($mode eq "quartal") {
200 die 'quarter out of of bounds' if $quarter < 1 || $quarter > 4;
201 $fromdate = DateTime->new(day => 1, month => (3 * $quarter - 2), year => DateTime->today->year);
202 $todate = $fromdate->clone->add(months => 3)->add(days => -1);
203 } elsif ($mode eq "zeit") {
204 $fromdate = DateTime->from_lxoffice($transdatefrom);
205 $todate = DateTime->from_lxoffice($transdateto);
206 die 'need from and to time' unless $fromdate && $todate;
208 die 'undefined interval mode';
211 $::lxdebug->leave_sub;
213 return ($fromdate, $todate);
216 sub setup_datev_export_action_bar {
219 for my $bar ($::request->layout->get('actionbar')) {
223 submit => [ '#form', { action => 'export2' } ],
224 accesskey => 'enter',
230 sub setup_datev_export2_action_bar {
233 for my $bar ($::request->layout->get('actionbar')) {
237 submit => [ '#form', { action => 'export3' } ],
238 accesskey => 'enter',
242 call => [ 'kivi.history_back' ],
248 sub setup_datev_export3_action_bar {
251 for my $bar ($::request->layout->get('actionbar')) {
255 link => [ 'datev.pl?action=download&download_token=' . $::form->escape($params{download_token}) ],
259 call => [ 'kivi.history_back' ],