From: Stephan Köhler Date: Sat, 26 Nov 2005 12:48:52 +0000 (+0000) Subject: Merge von 610 aus unstable: Datev Bug X-Git-Tag: release-2.2.0~93 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=43550a3d3b924a75703d06ab297d05109c06cb37;p=kivitendo-erp.git Merge von 610 aus unstable: Datev Bug Rueckmeldung eingebaut, damit waehrend großen Exportvorgaengen kein Timeout vom Server kommt --- 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(); }