X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4a6f0b74c08f02cd04adfe2429eb9965e770c2ba..aff7b6085f482738059d1ce58d60839d9570a19c:/SL/AM.pm

diff --git a/SL/AM.pm b/SL/AM.pm
index 0e64e5a66..5645c4dd7 100644
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -269,7 +269,7 @@ sub save_account {
     do_query($form, $dbh, $query, $form->{"id"}, $form->{"accno"});
   }
 
-  my @values;
+  @values = ();
 
 
   if ($form->{id}) {
@@ -1779,7 +1779,9 @@ sub get_tax {
                    taxkey,
                    taxdescription,
                    round(rate * 100, 2) AS rate,
-                   chart_id
+                   chart_id, 
+                   (id IN (SELECT tax_id 
+                           FROM acc_trans)) AS tax_already_used
                  FROM tax
                  WHERE id = ? |;