r1157 rueckgaengig gemacht (aus Testzwecken)

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

index f53e9fc..9c617db 100644 (file)
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -314,16 +314,12 @@ sub get_transactions {
            $blubb{'amount'} =
              $form->round_amount(($i->[$j]->{'amount'} * $test * -1), 2);
  
-          #print(STDERR $test, " Taxrate\n\n");
            $blubb{'umsatz'} =
              abs($form->round_amount(($i->[$j]->{'amount'} * $test), 2)) * $ml;
  
            $i->[$j]->{'umsatz'} =
              abs($form->round_amount(($i->[$j]->{'amount'} * $test), 2)) * $ml;
  
-          #print(STDERR $i->[$j]->{'umsatz'}, " Steuer Umsatz\n");
-          #print(STDERR $i->[$j]->{'amount'}, " Steuer Betrag\n");
-          #print(STDERR $blubb{'umsatz'}, " Umsatz NOTSPLIT\n");
            push @{ $splits[$g] }, \%blubb;
            push @{ $splits[$g] }, $i->[$j];
            push @{ $form->{DATEV} }, \@{ $splits[$g] };
@@ -333,7 +329,6 @@ sub get_transactions {
          }
        }
        if (abs($absumsatz) > 0.01) {
-        print(STDERR $absumsatz, "ABSAUMSATZ\n");
          $form->error("Datev-Export fehlgeschlagen!");
        }
      } else {
@@ -593,7 +588,7 @@ sub kne_buchungsexport {
    my $evfile      = "EV01";
    my @ed_versionsets;
    my $fileno = 0;
-  
+
    $form->header;
    print qq|
    <html>
@@ -621,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 ");
@@ -834,7 +829,7 @@ sub kne_buchungsexport {
      print(EV $ed_versionset[$file]);
    }
    close(EV);
-print qq|<br>Done. <br></body>
+  print qq|<br>Done. <br></body>
  </html>
  |;
    ###
@@ -870,8 +865,7 @@ sub kne_stammdatenexport {
      qq|SELECT c.accno, c.description FROM chart c WHERE c.accno >=|
      . $dbh->quote($form->{accnofrom}) . qq|
             AND c.accno <= |
-    . $dbh->quote($form->{accnoto})
-    . qq| ORDER BY c.accno|;
+    . $dbh->quote($form->{accnoto}) . qq| ORDER BY c.accno|;
  
    $sth = $dbh->prepare($query);
    $sth->execute || $form->dberror($query);