Revision df4c93ae
Von G. Richardson vor fast 14 Jahren hinzugefügt
| bin/mozilla/vk.pl | ||
|---|---|---|
| 35 | 35 |
use List::Util qw(sum first); |
| 36 | 36 |
|
| 37 | 37 |
use SL::VK; |
| 38 |
use SL::IS; |
|
| 38 | 39 |
use SL::ReportGenerator; |
| 39 | 40 |
use Data::Dumper; |
| 40 | 41 |
|
| ... | ... | |
| 88 | 89 |
|
| 89 | 90 |
$form->{customer} = $form->unescape($form->{customer});
|
| 90 | 91 |
|
| 91 |
($form->{customername}, $form->{customer_id}) = split(/--/, $form->{customer});
|
|
| 92 |
if ( $form->{customer} =~ /--/ ) {
|
|
| 93 |
# Felddaten kommen aus Dropdownbox |
|
| 94 |
($form->{customername}, $form->{customer_id}) = split(/--/, $form->{customer});
|
|
| 95 |
} else {
|
|
| 96 |
# Felddaten kommen aus Freitextfeld |
|
| 97 |
|
|
| 98 |
# check_name wird mit no_select => 1 ausgeführt, ist die Abfrage nicht eindeutig kommt ein Fehler |
|
| 99 |
# und die Abfrage muß erneut ausgeführt werden |
|
| 100 |
|
|
| 101 |
# Ohne no_select kommt bei Auswahl des Kunden ein Aufruf von update der ins |
|
| 102 |
# Nichts führt, daher diese Zwischenlösung |
|
| 103 |
|
|
| 104 |
&check_name('customer', no_select => 1);
|
|
| 105 |
|
|
| 106 |
# $form->{customer_id} wurde schon von check_name gesetzt
|
|
| 107 |
$form->{customername} = $form->{customer};
|
|
| 108 |
}; |
|
| 92 | 109 |
|
| 93 | 110 |
# decimalplaces überprüfen oder auf Default 2 setzen |
| 94 | 111 |
$form->{decimalplaces} = 2 unless $form->{decimalplaces} > 0 && $form->{decimalplaces} < 6;
|
Auch abrufbar als: Unified diff
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...