From df4c93ae9993cfdbfab732822b33bf4109cd72a5 Mon Sep 17 00:00:00 2001 From: "G. Richardson" Date: Tue, 28 Dec 2010 17:01:57 +0100 Subject: [PATCH] =?utf8?q?Bug=201511:=20bei=20Verkaufsbericht=20per=20Frei?= =?utf8?q?textfeld=20Kunden=20einschr=C3=A4nken?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit 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... --- bin/mozilla/vk.pl | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) 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; -- 2.20.1