Dialogbuchungen um Boolean imported erweitert.
[kivitendo-erp.git] / 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 }