From: G. Richardson <information@lx-office-hosting.de>
Date: Tue, 28 Dec 2010 16:01:57 +0000 (+0100)
Subject: Bug 1511: bei Verkaufsbericht per Freitextfeld Kunden einschränken
X-Git-Tag: release-2.6.2beta1~51^2~3^2~1
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=df4c93ae9993cfdbfab732822b33bf4109cd72a5;p=kivitendo-erp.git

Bug 1511: bei Verkaufsbericht per Freitextfeld Kunden einschränken

Funktioniert, wenn die Eingabe einen Kunden eindeutig beschreibt, ansonsten
gibt es eine Fehlermeldung und der Kunde muß vom Benutzer genauer eingeschränkt
werden.
Habe check_name noch nicht ganz verstanden...
---

diff --git a/bin/mozilla/vk.pl b/bin/mozilla/vk.pl
index 16fcc78b7..73a7a6921 100644
--- a/bin/mozilla/vk.pl
+++ b/bin/mozilla/vk.pl
@@ -35,6 +35,7 @@ use POSIX qw(strftime);
 use List::Util qw(sum first);
 
 use SL::VK;
+use SL::IS;
 use SL::ReportGenerator;
 use Data::Dumper;
 
@@ -88,7 +89,23 @@ sub invoice_transactions {
 
   $form->{customer} = $form->unescape($form->{customer});
 
-  ($form->{customername}, $form->{customer_id}) = split(/--/, $form->{customer});
+  if ( $form->{customer} =~ /--/ ) {
+    # Felddaten kommen aus Dropdownbox
+    ($form->{customername}, $form->{customer_id}) = split(/--/, $form->{customer});
+  } else {
+    # Felddaten kommen aus Freitextfeld
+
+    # check_name wird mit no_select => 1 ausgeführt, ist die Abfrage nicht eindeutig kommt ein Fehler
+    # und die Abfrage muß erneut ausgeführt werden
+
+    # Ohne no_select kommt bei Auswahl des Kunden ein Aufruf von update der ins
+    # Nichts führt, daher diese Zwischenlösung
+
+    &check_name('customer', no_select => 1);
+
+    # $form->{customer_id} wurde schon von check_name gesetzt
+    $form->{customername} = $form->{customer};
+  };
 
   # decimalplaces überprüfen oder auf Default 2 setzen
   $form->{decimalplaces} = 2 unless $form->{decimalplaces} > 0 && $form->{decimalplaces} < 6;