Revision 27309ff1
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| bin/mozilla/datev.pl | ||
|---|---|---|
| 31 | 31 |
use SL::Common; |
| 32 | 32 |
use SL::DATEV; |
| 33 | 33 |
|
| 34 |
use strict; |
|
| 35 |
|
|
| 34 | 36 |
1; |
| 35 | 37 |
|
| 36 | 38 |
# end of main |
| 37 | 39 |
|
| 38 | 40 |
require "bin/mozilla/common.pl"; |
| 39 | 41 |
|
| 40 |
sub continue { call_sub($form->{"nextsub"}); }
|
|
| 42 |
sub continue { call_sub($main::form->{"nextsub"}); }
|
|
| 41 | 43 |
|
| 42 | 44 |
sub export {
|
| 43 |
$lxdebug->enter_sub(); |
|
| 45 |
$main::lxdebug->enter_sub(); |
|
| 46 |
|
|
| 47 |
my $form = $main::form; |
|
| 48 |
my %myconfig = %main::myconfig; |
|
| 49 |
my $locale = $main::locale; |
|
| 44 | 50 |
|
| 45 |
$auth->assert('datev_export');
|
|
| 51 |
$main::auth->assert('datev_export');
|
|
| 46 | 52 |
|
| 47 | 53 |
$form->{title} = $locale->text("DATEX - Export Assistent");
|
| 48 | 54 |
|
| ... | ... | |
| 123 | 129 |
</body> |
| 124 | 130 |
</html> |
| 125 | 131 |
|; |
| 126 |
$lxdebug->leave_sub(); |
|
| 132 |
$main::lxdebug->leave_sub();
|
|
| 127 | 133 |
} |
| 128 | 134 |
|
| 129 | 135 |
sub export2 {
|
| 130 |
$lxdebug->enter_sub(); |
|
| 136 |
$main::lxdebug->enter_sub();
|
|
| 131 | 137 |
|
| 132 |
$auth->assert('datev_export');
|
|
| 138 |
my $form = $main::form; |
|
| 139 |
|
|
| 140 |
$main::auth->assert('datev_export');
|
|
| 133 | 141 |
|
| 134 | 142 |
if ($form->{exporttype} == 0) {
|
| 135 | 143 |
&export_bewegungsdaten(); |
| 136 | 144 |
} else {
|
| 137 | 145 |
&export_stammdaten(); |
| 138 | 146 |
} |
| 139 |
$lxdebug->leave_sub(); |
|
| 147 |
$main::lxdebug->leave_sub();
|
|
| 140 | 148 |
} |
| 141 | 149 |
|
| 142 | 150 |
sub export_bewegungsdaten {
|
| 143 |
$lxdebug->enter_sub(); |
|
| 151 |
$main::lxdebug->enter_sub(); |
|
| 152 |
|
|
| 153 |
my $form = $main::form; |
|
| 154 |
my %myconfig = %main::myconfig; |
|
| 155 |
my $locale = $main::locale; |
|
| 144 | 156 |
|
| 145 |
$auth->assert('datev_export');
|
|
| 157 |
$main::auth->assert('datev_export');
|
|
| 146 | 158 |
|
| 147 | 159 |
$form->{title} = $locale->text("DATEX - Export Assistent");
|
| 148 | 160 |
|
| ... | ... | |
| 259 | 271 |
</html> |
| 260 | 272 |
|; |
| 261 | 273 |
|
| 262 |
$lxdebug->leave_sub(); |
|
| 274 |
$main::lxdebug->leave_sub();
|
|
| 263 | 275 |
} |
| 264 | 276 |
|
| 265 | 277 |
sub export_stammdaten {
|
| 266 |
$lxdebug->enter_sub(); |
|
| 278 |
$main::lxdebug->enter_sub();
|
|
| 267 | 279 |
|
| 268 |
$auth->assert('datev_export');
|
|
| 280 |
my $form = $main::form; |
|
| 281 |
my $locale = $main::locale; |
|
| 282 |
|
|
| 283 |
$main::auth->assert('datev_export');
|
|
| 269 | 284 |
|
| 270 | 285 |
$form->{title} = $locale->text("DATEX - Export Assistent");
|
| 271 | 286 |
|
| ... | ... | |
| 323 | 338 |
</html> |
| 324 | 339 |
|; |
| 325 | 340 |
|
| 326 |
$lxdebug->leave_sub(); |
|
| 341 |
$main::lxdebug->leave_sub();
|
|
| 327 | 342 |
} |
| 328 | 343 |
|
| 329 | 344 |
sub export3 {
|
| 330 |
$lxdebug->enter_sub(); |
|
| 345 |
$main::lxdebug->enter_sub(); |
|
| 346 |
|
|
| 347 |
my $form = $main::form; |
|
| 348 |
my %myconfig = %main::myconfig; |
|
| 349 |
my $locale = $main::locale; |
|
| 331 | 350 |
|
| 332 |
$auth->assert('datev_export');
|
|
| 351 |
$main::auth->assert('datev_export');
|
|
| 333 | 352 |
|
| 334 | 353 |
DATEV::clean_temporary_directories(); |
| 335 | 354 |
|
| ... | ... | |
| 362 | 381 |
|
| 363 | 382 |
print("</body></html>");
|
| 364 | 383 |
|
| 365 |
$lxdebug->leave_sub(); |
|
| 384 |
$main::lxdebug->leave_sub();
|
|
| 366 | 385 |
} |
| 367 | 386 |
|
| 368 | 387 |
sub download {
|
| 369 |
$lxdebug->enter_sub(); |
|
| 388 |
$main::lxdebug->enter_sub(); |
|
| 389 |
|
|
| 390 |
my $form = $main::form; |
|
| 391 |
my $locale = $main::locale; |
|
| 370 | 392 |
|
| 371 |
$auth->assert('datev_export');
|
|
| 393 |
$main::auth->assert('datev_export');
|
|
| 372 | 394 |
|
| 373 | 395 |
my $tmp_name = Common->tmpname(); |
| 374 | 396 |
my $zip_name = strftime("lx-office-datev-export-%Y%m%d.zip", localtime(time()));
|
| ... | ... | |
| 408 | 430 |
|
| 409 | 431 |
DATEV::clean_temporary_directories(); |
| 410 | 432 |
|
| 411 |
$lxdebug->leave_sub(); |
|
| 433 |
$main::lxdebug->leave_sub();
|
|
| 412 | 434 |
} |
Auch abrufbar als: Unified diff
datev strict