Revision a426a839
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 1099 | 1099 |
$form->isblank("invdate", $locale->text('Invoice Date missing!'));
|
| 1100 | 1100 |
$form->isblank("vendor", $locale->text('Vendor missing!'));
|
| 1101 | 1101 |
|
| 1102 |
$form->{invnumber} =~ s/^\s*//g;
|
|
| 1103 |
$form->{invnumber} =~ s/\s*$//g;
|
|
| 1104 |
|
|
| 1102 | 1105 |
# if the vendor changed get new values |
| 1103 | 1106 |
if (&check_name(vendor)) {
|
| 1104 | 1107 |
&update; |
| bin/mozilla/is.pl | ||
|---|---|---|
| 1412 | 1412 |
$form->isblank("invdate", $locale->text('Invoice Date missing!'));
|
| 1413 | 1413 |
$form->isblank("customer", $locale->text('Customer missing!'));
|
| 1414 | 1414 |
|
| 1415 |
$form->{invnumber} =~ s/^\s*//g;
|
|
| 1416 |
$form->{invnumber} =~ s/\s*$//g;
|
|
| 1417 |
|
|
| 1415 | 1418 |
# if oldcustomer ne customer redo form |
| 1416 | 1419 |
if (&check_name(customer)) {
|
| 1417 | 1420 |
&update; |
| bin/mozilla/oe.pl | ||
|---|---|---|
| 436 | 436 |
} |
| 437 | 437 |
|
| 438 | 438 |
my $vc = qq| |
| 439 |
<input type="hidden" name="old$form->{vc}" value="| . H($form->{"old$form->{vc}"}) . qq|">
|
|
| 439 | 440 |
<th align="right">| . $locale->text(ucfirst($form->{vc})) . qq|</th>
|
| 440 | 441 |
<td>| . |
| 441 | 442 |
(($myconfig{vclimit} == 1 )
|
| ... | ... | |
| 1927 | 1928 |
$form->isblank("transdate", $locale->text('Quotation Date missing!'));
|
| 1928 | 1929 |
} |
| 1929 | 1930 |
|
| 1931 |
my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber";
|
|
| 1932 |
$form->{$idx} =~ s/^\s*//g;
|
|
| 1933 |
$form->{$idx} =~ s/\s*$//g;
|
|
| 1934 |
|
|
| 1930 | 1935 |
$msg = ucfirst $form->{vc};
|
| 1931 | 1936 |
$form->isblank($form->{vc}, $locale->text($msg . " missing!"));
|
| 1932 | 1937 |
|
| ... | ... | |
| 2018 | 2023 |
$form->isblank("transdate", $locale->text('Quotation Date missing!'));
|
| 2019 | 2024 |
} |
| 2020 | 2025 |
|
| 2026 |
my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber";
|
|
| 2027 |
$form->{$idx} =~ s/^\s*//g;
|
|
| 2028 |
$form->{$idx} =~ s/\s*$//g;
|
|
| 2029 |
|
|
| 2021 | 2030 |
$msg = ucfirst $form->{vc};
|
| 2022 | 2031 |
$form->isblank($form->{vc}, $locale->text($msg . " missing!"));
|
| 2023 | 2032 |
|
| ... | ... | |
| 2495 | 2504 |
# Let Lx-Office assign a new order number if the user hasn't changed the |
| 2496 | 2505 |
# previous one. If it has been changed manually then use it as-is. |
| 2497 | 2506 |
my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber";
|
| 2507 |
$form->{$idx} =~ s/^\s*//g;
|
|
| 2508 |
$form->{$idx} =~ s/\s*$//g;
|
|
| 2498 | 2509 |
if ($form->{saved_xyznumber} &&
|
| 2499 | 2510 |
($form->{saved_xyznumber} eq $form->{$idx})) {
|
| 2500 | 2511 |
delete($form->{$idx});
|
Auch abrufbar als: Unified diff
Zwei Fixes:
1. Bei Angeboten/Aufträgen wird ständig wieder das Formular angezeigt, wenn die Drop-Down-Box zur Auswahl der Kunden/Lieferanten angezeigt wird (weil check_name() in arap.pl auf jeden Fall oldcustomer/oldvendor überprüft, was aber seit einem der letzten Commits nicht mehr gesetzt ist; in ir.pl und is.pl wird es noch gesetzt).
2. Einkaufs-/Verkaufsmasken: Beim Speichern werden Leerzeichen am Anfang und Ende der Angebots-/Auftrags-/Rechnungsnummer gelöscht, damit Lx-Office selber Nummern vergibt. Damit wird verhindert, das nur aus Leerzeichen bestehende Nummern erzeugt werden können, die aus Berichten dann nicht mehr ausgewählt werden können. Fix für Bug 637.