X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDATEV.pm;h=e0a0435eb31f0ad4da4dca59d32dd0702bc43a29;hb=23ae25e9dcd34ba16d930f723b66fddac10f52fb;hp=36fe80dbaaf178075a734d126720b59c7a75f92c;hpb=6c12abf7e504250dcb0d43a91e7127edf8525b39;p=kivitendo-erp.git
diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index 36fe80dba..e0a0435eb 100644
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -329,7 +329,7 @@ sub get_transactions {
}
}
if (abs($absumsatz) > 0.01) {
- $form->error("Datev-Export fehlgeschlagen!");
+ $form->error("Datev-Export fehlgeschlagen! Bei Transaktion $i->[0]->{trans_id}\n");
}
} else {
push @{ $form->{DATEV} }, \@{$i};
@@ -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.