Steuerkonten wurden nicht angezeigt, wenn Rechnung und Zahlung vom gleichen Tag....
authorPhilip Reetz <p.reetz@linet-services.de>
Mon, 16 Jan 2006 11:27:20 +0000 (11:27 +0000)
committerPhilip Reetz <p.reetz@linet-services.de>
Mon, 16 Jan 2006 11:27:20 +0000 (11:27 +0000)
SL/GL.pm
bin/mozilla/gl.pl

index 8ec98c8..3b0e74e 100644 (file)
--- a/SL/GL.pm
+++ b/SL/GL.pm
@@ -38,6 +38,8 @@
 
 package GL;
 
+use Data::Dumper;
+
 sub delete_transaction {
   my ($self, $myconfig, $form) = @_;
   $main::lxdebug->enter_sub();
@@ -518,6 +520,7 @@ sub all_transactions {
     ($form->{gifi_account_description}) = $sth->fetchrow_array;
     $sth->finish;
   }
+  print(STDERR Dumper($form->{GL}));
   $main::lxdebug->leave_sub();
 
   $dbh->disconnect;
index d07dc1d..ed8aadc 100644 (file)
@@ -698,9 +698,9 @@ sub generate_report {
         $debitaccno .=
           "<br><a href=$href&accno=$ref->{debit_accno}{$key}&callback=$callback>$ref->{debit_accno}{$key}</a>";
       }
-      if ($ref->{debit_taxkey}{$key} eq $debittaxkey) {
-        $ref->{debit_tax_accno}{$key} = $taxaccno;
-      }
+      if ($ref->{debit_taxkey}{$key} eq $debittaxkey) {
+        $ref->{debit_tax_accno}{$key} = $taxaccno;
+      }
       $taxaccno    = $ref->{debit_tax_accno}{$key};
       $debittaxkey = $ref->{debit_taxkey}{$key};
     }
@@ -716,9 +716,9 @@ sub generate_report {
         $creditaccno .=
           "<br><a href=$href&accno=$ref->{credit_accno}{$key}&callback=$callback>$ref->{credit_accno}{$key}</a>";
       }
-      if ($ref->{credit_taxkey}{$key} eq $credittaxkey) {
-        $ref->{credit_tax_accno}{$key} = $taxaccno;
-      }
+      if ($ref->{credit_taxkey}{$key} eq $credittaxkey) {
+        $ref->{credit_tax_accno}{$key} = $taxaccno;
+      }
       $taxaccno     = $ref->{credit_tax_accno}{$key};
       $credittaxkey = $ref->{credit_taxkey}{$key};
     }