From: Sven Schöling <s.schoeling@linet-services.de>
Date: Wed, 14 Mar 2012 10:11:23 +0000 (+0100)
Subject: Merge branch 'master' of vc.linet-services.de:public/lx-office-erp
X-Git-Tag: release-3.0.0beta1~345^2~1
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/2a9bd2a21be7b2961887ca0dbaac1ff789df10a4?hp=0a340375f49a4baaa9d9406f1c0063e250e0bb4d

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

diff --git a/SL/Form.pm b/SL/Form.pm
index 5af5ea196..84d64bd9f 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -2546,14 +2546,14 @@ sub all_vc {
 
   $table = $table eq "customer" ? "customer" : "vendor";
 
-  my $query = qq|SELECT count(*) FROM $table WHERE NOT obsolete|;
-  my ($count) = selectrow_query($self, $dbh, $query);
-
   # build selection list
   # Hotfix für Bug 1837 - Besser wäre es alte Buchungsbelege
   # OHNE Auswahlliste (reines Textfeld) zu laden. Hilft aber auch
   # nicht für veränderbare Belege (oe, do, ...)
   my $obsolete = "WHERE NOT obsolete" unless $self->{id};
+  my $query = qq|SELECT count(*) FROM $table $obsolete|;
+  my ($count) = selectrow_query($self, $dbh, $query);
+
   if ($count < $myconfig->{vclimit}) {
     $query = qq|SELECT id, name, salesman_id
                 FROM $table $obsolete