From: Sven Schöling <s.schoeling@linet-services.de>
Date: Mon, 9 Jan 2012 16:42:11 +0000 (+0100)
Subject: Merge branch 'master' of vc.linet-services.de:public/lx-office-erp
X-Git-Tag: release-2.7.0beta1~78^2^2^2
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/59358b2aa73e38ccbb690e900295aa79d7b4148a?hp=8003c3b1db2dd73402977fcfe29653108794099c

Merge branch 'master' of vc.linet-services.de:public/lx-office-erp
---

diff --git a/SL/Form.pm b/SL/Form.pm
index d0a4157b4..0c291dabe 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -2521,7 +2521,7 @@ sub all_vc {
 
   $table = $table eq "customer" ? "customer" : "vendor";
 
-  my $query = qq|SELECT count(*) FROM $table|;
+  my $query = qq|SELECT count(*) FROM $table WHERE NOT obsolete|;
   my ($count) = selectrow_query($self, $dbh, $query);
 
   # build selection list