From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 23 Apr 2007 14:38:34 +0000 (+0000)
Subject: Beim Vergeben von neuen Angebotsnummern etc die "Breite" der Nummernkreisvorlagen... 
X-Git-Tag: release-2.4.3^2~468
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=13787dab589901763bd1b2f63cec22add35e0c65;p=kivitendo-erp.git

Beim Vergeben von neuen Angebotsnummern etc die "Breite" der Nummernkreisvorlagen berücksichtigen (also wird aus z.B. "A00000" auch wirklich "A00001" und nicht "A1").
---

diff --git a/SL/Form.pm b/SL/Form.pm
index b9a13a150..252c4c159 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -2344,7 +2344,8 @@ sub update_defaults {
   $sth->finish;
 
   if ($var =~ /^(.*?)(\d+)$/) {
-    $var = "$1" . ($2 + 1);
+    my $new_num = sprintf '%0' . length($2) . 'd', $2 + 1;
+    $var = "${1}${new_num}";
   } else {
     $var++;
   }
@@ -2380,7 +2381,8 @@ sub update_business {
 
   if ($var ne "") {
     if ($var =~ /^(.*?)(\d+)$/) {
-      $var = "$1" . ($2 + 1);
+      my $new_num = sprintf '%0' . length($2) . 'd', $2 + 1;
+      $var = "${1}${new_num}";
     } else {
       $var++;
     }