From 325263e0e52dce7d3aca5e6a3062a8afd622a454 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@lx-office-hosting.de>
Date: Mon, 12 Mar 2012 12:11:08 +0100
Subject: [PATCH] =?utf8?q?Bugfix=201837=20-=20F=C3=BCr=20alte=20Belege=20a?=
 =?utf8?q?uch=20ung=C7=98ltige=20Lieferanten=20/=20Kunden=20anzeigen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Entsprechend nochmal kommentiert. Offen: _get_customer und _get_vendor
verwendet dennoch immer den Filter.
---
 SL/Form.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index d171e8739..6c8bbe9cf 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -2549,9 +2549,13 @@ sub all_vc {
   my ($count) = selectrow_query($self, $dbh, $query);
 
   # build selection list
-  if ($count <= $myconfig->{vclimit}) {
+  # 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};
+  if ($count < $myconfig->{vclimit}) {
     $query = qq|SELECT id, name, salesman_id
-                FROM $table WHERE NOT obsolete
+                FROM $table $obsolete
                 ORDER BY name|;
     $self->{"all_$table"} = selectall_hashref_query($self, $dbh, $query);
   }
-- 
2.39.5