Revision 5ad3a4a5
Von Moritz Bunkus vor etwa 16 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 207 | 207 |
} |
| 208 | 208 |
|
| 209 | 209 |
elsif ($zeitraum eq "zeit") {
|
| 210 |
$fromto .= |
|
| 211 |
"'" . $transdatefrom . "' and transdate <= '" . $transdateto . "'"; |
|
| 210 |
$fromto .= "'" . $transdatefrom . "' and transdate <= '" . $transdateto . "'"; |
|
| 211 |
my ($yy, $mm, $dd) = $main::locale->parse_date(\%main::myconfig, $transdatefrom); |
|
| 212 |
$jahr = $yy; |
|
| 212 | 213 |
} |
| 213 | 214 |
|
| 214 | 215 |
$main::lxdebug->leave_sub(); |
| 215 | 216 |
|
| 216 |
return $fromto;
|
|
| 217 |
return ($fromto, $jahr);
|
|
| 217 | 218 |
} |
| 218 | 219 |
|
| 219 | 220 |
sub _get_transactions {
|
| ... | ... | |
| 368 | 369 |
sub make_kne_data_header {
|
| 369 | 370 |
$main::lxdebug->enter_sub(); |
| 370 | 371 |
|
| 371 |
my ($myconfig, $form, $fromto) = @_; |
|
| 372 |
my ($myconfig, $form, $fromto, $start_jahr) = @_;
|
|
| 372 | 373 |
|
| 373 | 374 |
# connect to database |
| 374 | 375 |
my $dbh = $form->dbconnect($myconfig); |
| 375 | 376 |
|
| 376 |
my @a = localtime; |
|
| 377 |
$jahr = $a[5]; |
|
| 377 |
my $jahr = $start_jahr; |
|
| 378 |
if (!$jahr) {
|
|
| 379 |
my @a = localtime; |
|
| 380 |
$jahr = $a[5]; |
|
| 381 |
} |
|
| 378 | 382 |
|
| 379 | 383 |
#Header |
| 380 | 384 |
$anwendungsnr = ($fromto) ? "\x31\x31" : "\x31\x33"; |
| ... | ... | |
| 621 | 625 |
Buchungssätze verarbeitet: |
| 622 | 626 |
|; |
| 623 | 627 |
|
| 624 |
$fromto =
|
|
| 628 |
($fromto, $start_jahr) =
|
|
| 625 | 629 |
&get_dates($form->{zeitraum}, $form->{monat},
|
| 626 | 630 |
$form->{quartal}, $form->{transdatefrom},
|
| 627 | 631 |
$form->{transdateto});
|
| ... | ... | |
| 638 | 642 |
my $ed_filename = $export_path . $filename; |
| 639 | 643 |
push(@filenames, $filename); |
| 640 | 644 |
open(ED, "> $ed_filename") or die "can't open outputfile: $!\n"; |
| 641 |
$header = &make_kne_data_header($myconfig, $form, $fromto); |
|
| 645 |
$header = &make_kne_data_header($myconfig, $form, $fromto, $start_jahr);
|
|
| 642 | 646 |
$remaining_bytes -= length($header); |
| 643 | 647 |
|
| 644 | 648 |
while (scalar(@{ $form->{DATEV} }) > 0) {
|
Auch abrufbar als: Unified diff
Beim DATEV-Export das Jahr in der Datei angeben, das durch den ausgewählten Zeitraum gegeben ist, und nicht das aktuelle Jahr.