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.

diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index 9dd0076..e5b698d 100644 (file)
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -1099,6 +1099,9 @@ sub post {
   $form->isblank("invdate", $locale->text('Invoice Date missing!'));
   $form->isblank("vendor",  $locale->text('Vendor missing!'));
 
+  $form->{invnumber} =~ s/^\s*//g;
+  $form->{invnumber} =~ s/\s*$//g;
+
   # if the vendor changed get new values
   if (&check_name(vendor)) {
     &update;

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index 7eb3398..e22ab4c 100644 (file)
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -1412,6 +1412,9 @@ sub post {
   $form->isblank("invdate",  $locale->text('Invoice Date missing!'));
   $form->isblank("customer", $locale->text('Customer missing!'));
 
+  $form->{invnumber} =~ s/^\s*//g;
+  $form->{invnumber} =~ s/\s*$//g;
+
   # if oldcustomer ne customer redo form
   if (&check_name(customer)) {
     &update;

diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index 640fb37..2b3ee83 100644 (file)
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -436,6 +436,7 @@ sub form_header {
   }
 
   my $vc = qq|
+      <input type="hidden" name="old$form->{vc}" value="| . H($form->{"old$form->{vc}"}) . qq|">
       <th align="right">| . $locale->text(ucfirst($form->{vc})) . qq|</th>
       <td>| . 
         (($myconfig{vclimit} == 1 ) 
@@ -1927,6 +1928,10 @@ sub save_and_close {
     $form->isblank("transdate", $locale->text('Quotation Date missing!'));
   }
 
+  my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber";
+  $form->{$idx} =~ s/^\s*//g;
+  $form->{$idx} =~ s/\s*$//g;
+
   $msg = ucfirst $form->{vc};
   $form->isblank($form->{vc}, $locale->text($msg . " missing!"));
 
@@ -2018,6 +2023,10 @@ sub save {
     $form->isblank("transdate", $locale->text('Quotation Date missing!'));
   }
 
+  my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber";
+  $form->{$idx} =~ s/^\s*//g;
+  $form->{$idx} =~ s/\s*$//g;
+
   $msg = ucfirst $form->{vc};
   $form->isblank($form->{vc}, $locale->text($msg . " missing!"));
 
@@ -2495,6 +2504,8 @@ sub save_as_new {
   # Let Lx-Office assign a new order number if the user hasn't changed the
   # previous one. If it has been changed manually then use it as-is.
   my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber";
+  $form->{$idx} =~ s/^\s*//g;
+  $form->{$idx} =~ s/\s*$//g;
   if ($form->{saved_xyznumber} &&
       ($form->{saved_xyznumber} eq $form->{$idx})) {
     delete($form->{$idx});