X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/35f843186e9f902d8850ec55b13a0ad936372e83..311a645bc3b3a74052c7c0565afaad77961102a8:/SL/USTVA.pm

diff --git a/SL/USTVA.pm b/SL/USTVA.pm
index f1bd2a034..3cb7ff816 100644
--- a/SL/USTVA.pm
+++ b/SL/USTVA.pm
@@ -724,14 +724,17 @@ sub get_accounts_ustva {
 
         UNION
 
-		 SELECT sum(ac.amount) AS amount,
+		 SELECT sum(
+		   CASE WHEN c.link LIKE '%AR%' THEN ac.amount * -1
+		        WHEN c.link LIKE '%AP%' THEN ac.amount * 1
+                   END
+		 ) AS amount,
 		 c.$category
 		 FROM acc_trans ac
 		 JOIN chart c ON (c.id = ac.chart_id)
 		 JOIN gl a ON (a.id = ac.trans_id)
 		 $dpt_join
 		 WHERE $where
-		 $glwhere
 		 $dpt_from
 		 AND NOT (c.link = 'AR' OR c.link = 'AP')
 		 $project