From: Udo Spallek <info@wissensvermittlung.com>
Date: Fri, 30 Dec 2005 19:25:38 +0000 (+0000)
Subject: Nachtrag zu R704 'Diverse USTVA Bugs geloest'
X-Git-Tag: release-2.4.0^2~415
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=13c238dd4eda8733f7cbdbc811c45594d936bcee;p=kivitendo-erp.git

Nachtrag zu R704 'Diverse USTVA Bugs geloest'
---

diff --git a/SL/USTVA.pm b/SL/USTVA.pm
index 4777c3540..dc2c46f5d 100644
--- a/SL/USTVA.pm
+++ b/SL/USTVA.pm
@@ -638,6 +638,7 @@ sub get_accounts_ustva {
   my $glwhere  = "";
   my $subwhere = "";
   my $ARwhere = "";
+  my $arwhere = "";
   my $item;
 
   if ($fromdate) {
@@ -646,13 +647,13 @@ sub get_accounts_ustva {
       $glwhere = " AND ac.transdate >= '$fromdate'";
       $ARwhere .= " AND acc.transdate >= '$fromdate'";
       $where .= " AND ac.transdate >= '$fromdate'";
+      
     }
   }
 
   if ($todate) {
     $where    .= " AND ac.transdate <= '$todate'";
     $ARwhere    .= " AND acc.transdate <= '$todate'";
-    $arwhere    .= " AND ac.transdate <= '$todate'";    
     $subwhere .= " AND transdate <= '$todate'";
   }
 
@@ -695,10 +696,11 @@ sub get_accounts_ustva {
    c.pos_ustva
    FROM acc_trans ac
    JOIN chart c ON (c.id = ac.chart_id)
-   JOIN ar ON (ar.id = ac.trans_id)
+   --JOIN ar ON (ar.id = ac.trans_id)
    where 
      1=1 
-     $arwhere
+     -- Here no where, please. All Transactions ever should be
+     -- testet if they are paied in the USTVA report period.
    GROUP BY c.pos_ustva
 	UNION