Revision 7274f9c8
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 868 | 868 |
$kne_file->add_block($mandantenendsumme); |
| 869 | 869 |
$kne_file->flush(); |
| 870 | 870 |
|
| 871 |
open(ED, "> $ed_filename") or die "can't open outputfile: $!\n";
|
|
| 871 |
open(ED, ">", $ed_filename) or die "can't open outputfile: $!\n";
|
|
| 872 | 872 |
print(ED $kne_file->get_data()); |
| 873 | 873 |
close(ED); |
| 874 | 874 |
|
| ... | ... | |
| 880 | 880 |
my $ev_header = &make_ev_header($form, $fileno); |
| 881 | 881 |
my $ev_filename = $export_path . $evfile; |
| 882 | 882 |
push(@filenames, $evfile); |
| 883 |
open(EV, "> $ev_filename") or die "can't open outputfile: EV01\n";
|
|
| 883 |
open(EV, ">", $ev_filename) or die "can't open outputfile: EV01\n";
|
|
| 884 | 884 |
print(EV $ev_header); |
| 885 | 885 |
|
| 886 | 886 |
foreach my $file (@ed_versionset) {
|
| ... | ... | |
| 922 | 922 |
$filename++; |
| 923 | 923 |
my $ed_filename = $export_path . $filename; |
| 924 | 924 |
push(@filenames, $filename); |
| 925 |
open(ED, "> $ed_filename") or die "can't open outputfile: $!\n";
|
|
| 925 |
open(ED, ">", $ed_filename) or die "can't open outputfile: $!\n";
|
|
| 926 | 926 |
my $header = &make_kne_data_header($myconfig, $form, ""); |
| 927 | 927 |
$remaining_bytes -= length($header); |
| 928 | 928 |
|
| ... | ... | |
| 994 | 994 |
my $ev_header = &make_ev_header($form, $fileno); |
| 995 | 995 |
my $ev_filename = $export_path . $evfile; |
| 996 | 996 |
push(@filenames, $evfile); |
| 997 |
open(EV, "> $ev_filename") or die "can't open outputfile: EV01\n";
|
|
| 997 |
open(EV, ">", $ev_filename) or die "can't open outputfile: EV01\n";
|
|
| 998 | 998 |
print(EV $ev_header); |
| 999 | 999 |
|
| 1000 | 1000 |
foreach my $file (@ed_versionset) {
|
Auch abrufbar als: Unified diff
Alle 2-arg open in 3-arg open verwandelt.