X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDATEV.pm;h=9c617dbb8a6809b67f63dde69e7835fd627599de;hb=a5f55e6fe23ee776e90567d3e5ee6cdf116c3f9c;hp=36fe80dbaaf178075a734d126720b59c7a75f92c;hpb=6c12abf7e504250dcb0d43a91e7127edf8525b39;p=kivitendo-erp.git diff --git a/SL/DATEV.pm b/SL/DATEV.pm index 36fe80dba..9c617dbb8 100644 --- a/SL/DATEV.pm +++ b/SL/DATEV.pm @@ -588,7 +588,7 @@ sub kne_buchungsexport { my $evfile = "EV01"; my @ed_versionsets; my $fileno = 0; - + $form->header; print qq| @@ -616,8 +616,8 @@ sub kne_buchungsexport { $remaining_bytes -= length($header); while (scalar(@{ $form->{DATEV} }) > 0) { - $transaction = shift @{ $form->{DATEV} }; - $trans_lines = scalar(@{$transaction}); + $transaction = shift @{ $form->{DATEV} }; + $trans_lines = scalar(@{$transaction}); $counter++; if (($counter % 500) == 0) { print("$counter "); @@ -829,7 +829,7 @@ sub kne_buchungsexport { print(EV $ed_versionset[$file]); } close(EV); -print qq|
Done.
+ print qq|
Done.
|; ### @@ -865,8 +865,7 @@ sub kne_stammdatenexport { qq|SELECT c.accno, c.description FROM chart c WHERE c.accno >=| . $dbh->quote($form->{accnofrom}) . qq| AND c.accno <= | - . $dbh->quote($form->{accnoto}) - . qq| ORDER BY c.accno|; + . $dbh->quote($form->{accnoto}) . qq| ORDER BY c.accno|; $sth = $dbh->prepare($query); $sth->execute || $form->dberror($query);