From 43550a3d3b924a75703d06ab297d05109c06cb37 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Stephan=20K=C3=B6hler?= Date: Sat, 26 Nov 2005 12:48:52 +0000 Subject: [PATCH] =?utf8?q?Merge=20von=20610=20aus=20unstable:=20Datev=20Bu?= =?utf8?q?g=20Rueckmeldung=20eingebaut,=20damit=20waehrend=20gro=C3=9Fen?= =?utf8?q?=20Exportvorgaengen=20kein=20Timeout=20vom=20Server=20kommt?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/DATEV.pm | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) 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(); } -- 2.20.1