projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Dokumentation
[kivitendo-erp.git]
/
SL
/
DATEV.pm
diff --git
a/SL/DATEV.pm
b/SL/DATEV.pm
index
60eb97f
..
7f38c88
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);
@@
-941,7
+942,7
@@
sub kne_stammdatenexport {
push @values, $form->{accnoto};
}
push @values, $form->{accnoto};
}
- my $where_str =
' WHERE ' . join(' AND ', map { "($_)" } @where) if (scalar @where)
;
+ my $where_str =
@where ? ' WHERE ' . join(' AND ', map { "($_)" } @where) : ''
;
my $query = qq|SELECT c.accno, c.description
FROM chart c
my $query = qq|SELECT c.accno, c.description
FROM chart c
@@
-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) {