Probleme mit Primary Key in orderitems behoben

[mfinanz.git] / SL / DATEV.pm
diff --git a/SL/DATEV.pm b/SL/DATEV.pm

index e48b4db2fac97ca25cb4e9c7a30a278e81fe3b38..f53e9fcc92554d4a3c37591b72dab896710f85a3 100644 (file)
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -256,10 +256,16 @@ sub get_transactions {
    $sth->execute || $form->dberror($query);
    $i = 0;
    $g = 0;
    $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;
    @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) {
      $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;
    my $evfile      = "EV01";
    my @ed_versionsets;
    my $fileno = 0;
+  
+  $form->header;
+  print qq|
+  <html>
+  <body>Export in Bearbeitung<br>
+  Buchungss&auml;tze verarbeitet:
+|;
  
    $fromto =
      &get_dates($form->{zeitraum}, $form->{monat},
                 $form->{quartal},  $form->{transdatefrom},
                 $form->{transdateto});
    &get_transactions($myconfig, $form, $fromto);
  
    $fromto =
      &get_dates($form->{zeitraum}, $form->{monat},
                 $form->{quartal},  $form->{transdatefrom},
                 $form->{transdateto});
    &get_transactions($myconfig, $form, $fromto);
-
+  my $counter = 0;
+  print qq|<br>2. Durchlauf:|;
    while (scalar(@{ $form->{DATEV} })) {
      my $blockcount      = 1;
      my $remaining_bytes = 256;
    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});
      while (scalar(@{ $form->{DATEV} }) > 0) {
        $transaction    = shift @{ $form->{DATEV} };
        $trans_lines    = scalar(@{$transaction});
+      $counter++;
+      if (($counter % 500) == 0) {
+        print("$counter ");
+      }
+
        $umsatz         = 0;
        $gegenkonto     = "";
        $konto          = "";
        $umsatz         = 0;
        $gegenkonto     = "";
        $konto          = "";
@@ -629,8 +648,14 @@ sub kne_buchungsexport {
                    'ß' => 'sz');
  
        for (my $i = 0; $i < $trans_lines; $i++) {
                    'ß' => 'sz');
  
        for (my $i = 0; $i < $trans_lines; $i++) {
-        if (abs($transaction->[$i]->{'umsatz'}) > abs($umsatz)) {
-          $umsatz = $transaction->[$i]->{'umsatz'};
+        if ($trans_lines == 2) {
+          if (abs($transaction->[$i]->{'amount'}) > abs($umsatz)) {
+            $umsatz = $transaction->[$i]->{'amount'};
+          }
+        } else {
+          if (abs($transaction->[$i]->{'umsatz'}) > abs($umsatz)) {
+            $umsatz = $transaction->[$i]->{'umsatz'};
+          }
          }
          if ($transaction->[$i]->{'datevautomatik'}) {
            $datevautomatik = 1;
          }
          if ($transaction->[$i]->{'datevautomatik'}) {
            $datevautomatik = 1;
@@ -809,6 +834,9 @@ sub kne_buchungsexport {
      print(EV $ed_versionset[$file]);
    }
    close(EV);
      print(EV $ed_versionset[$file]);
    }
    close(EV);
+print qq|<br>Done. <br></body>
+</html>
+|;
    ###
    $main::lxdebug->leave_sub();
  }
    ###
    $main::lxdebug->leave_sub();
  }