X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ea5f40fc14283d9bc684656f0c3e990c865a2de6..43550a3d3b924a75703d06ab297d05109c06cb37:/SL/DATEV.pm
diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index e48b4db2f..c2549dc7f 100644
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -256,10 +256,16 @@ sub get_transactions {
$sth->execute || $form->dberror($query);
$i = 0;
$g = 0;
+ my $counter = 0;
@splits;
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
$count = 0;
$firstrun = 1;
+ $counter++;
+ if (($counter % 500) == 0) {
+ print("$counter ");
+ }
+
$count += $ref->{amount};
push @{$i}, $ref;
while (abs($count) > 0.01 || $firstrun) {
@@ -587,13 +593,21 @@ sub kne_buchungsexport {
my $evfile = "EV01";
my @ed_versionsets;
my $fileno = 0;
+
+ $form->header;
+ print qq|
+
+ Export in Bearbeitung
+ Buchungssätze verarbeitet:
+|;
$fromto =
&get_dates($form->{zeitraum}, $form->{monat},
$form->{quartal}, $form->{transdatefrom},
$form->{transdateto});
&get_transactions($myconfig, $form, $fromto);
-
+ my $counter = 0;
+ print qq|
2. Durchlauf:|;
while (scalar(@{ $form->{DATEV} })) {
my $blockcount = 1;
my $remaining_bytes = 256;
@@ -609,6 +623,11 @@ sub kne_buchungsexport {
while (scalar(@{ $form->{DATEV} }) > 0) {
$transaction = shift @{ $form->{DATEV} };
$trans_lines = scalar(@{$transaction});
+ $counter++;
+ if (($counter % 500) == 0) {
+ print("$counter ");
+ }
+
$umsatz = 0;
$gegenkonto = "";
$konto = "";
@@ -809,6 +828,9 @@ sub kne_buchungsexport {
print(EV $ed_versionset[$file]);
}
close(EV);
+print qq|
Done.
+
+|;
###
$main::lxdebug->leave_sub();
}