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
e3cecef
..
7f38c88
100644
(file)
--- a/
SL/DATEV.pm
+++ b/
SL/DATEV.pm
@@
-868,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);
@@
-880,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) {
@@
-922,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);
@@
-942,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
@@
-994,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) {