projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of vc.linet-services.de:public/lx-office-erp
[kivitendo-erp.git]
/
SL
/
DATEV.pm
diff --git
a/SL/DATEV.pm
b/SL/DATEV.pm
index
60eb97f
..
6c6f1c7
100644
(file)
--- a/
SL/DATEV.pm
+++ b/
SL/DATEV.pm
@@
-399,8
+399,9
@@
sub _get_transactions {
my $count = $ref->{amount};
my $firstrun = 1;
my $count = $ref->{amount};
my $firstrun = 1;
+ my $subcent = abs($count) < 0.02;
- while (abs($count) > 0.01 || $firstrun) {
+ while (abs($count) > 0.01 || $firstrun
|| ($subcent && abs($count) > 0.005)
) {
my $ref2 = $sth->fetchrow_hashref("NAME_lc");
last unless ($ref2);
my $ref2 = $sth->fetchrow_hashref("NAME_lc");
last unless ($ref2);
@@
-867,7
+868,7
@@
sub kne_buchungsexport {
$kne_file->add_block($mandantenendsumme);
$kne_file->flush();
$kne_file->add_block($mandantenendsumme);
$kne_file->flush();
- open(ED, ">
$ed_filename"
) or die "can't open outputfile: $!\n";
+ open(ED, ">
", $ed_filename
) or die "can't open outputfile: $!\n";
print(ED $kne_file->get_data());
close(ED);
print(ED $kne_file->get_data());
close(ED);
@@
-879,7
+880,7
@@
sub kne_buchungsexport {
my $ev_header = &make_ev_header($form, $fileno);
my $ev_filename = $export_path . $evfile;
push(@filenames, $evfile);
my $ev_header = &make_ev_header($form, $fileno);
my $ev_filename = $export_path . $evfile;
push(@filenames, $evfile);
- open(EV, ">
$ev_filename"
) or die "can't open outputfile: EV01\n";
+ open(EV, ">
", $ev_filename
) or die "can't open outputfile: EV01\n";
print(EV $ev_header);
foreach my $file (@ed_versionset) {
print(EV $ev_header);
foreach my $file (@ed_versionset) {
@@
-921,7
+922,7
@@
sub kne_stammdatenexport {
$filename++;
my $ed_filename = $export_path . $filename;
push(@filenames, $filename);
$filename++;
my $ed_filename = $export_path . $filename;
push(@filenames, $filename);
- open(ED, ">
$ed_filename"
) or die "can't open outputfile: $!\n";
+ open(ED, ">
", $ed_filename
) or die "can't open outputfile: $!\n";
my $header = &make_kne_data_header($myconfig, $form, "");
$remaining_bytes -= length($header);
my $header = &make_kne_data_header($myconfig, $form, "");
$remaining_bytes -= length($header);
@@
-993,7
+994,7
@@
sub kne_stammdatenexport {
my $ev_header = &make_ev_header($form, $fileno);
my $ev_filename = $export_path . $evfile;
push(@filenames, $evfile);
my $ev_header = &make_ev_header($form, $fileno);
my $ev_filename = $export_path . $evfile;
push(@filenames, $evfile);
- open(EV, ">
$ev_filename"
) or die "can't open outputfile: EV01\n";
+ open(EV, ">
", $ev_filename
) or die "can't open outputfile: EV01\n";
print(EV $ev_header);
foreach my $file (@ed_versionset) {
print(EV $ev_header);
foreach my $file (@ed_versionset) {