Beim Anlegen von Wiedervorlagen die Kunden- bzw. Lieferanten-ID nicht mit als Referen...

Werden in den Ein- und Verkaufsbelegen die Lieferanten bzw. Kunden
mit einer Drop-Down-Box dargestellt, so wurde die Datenbank-ID
des Lieferanten/Kunden mit in die Referenz übernommen, weil der
reguläre Ausdruck die ID nicht entfernt hat (".*?" matcht nun mal
auf den leeren String).

Fix für Bug 999.

diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index 342304d9bb02d4e3d4d8cddb359fa9ca2aad975e..440ee6e4064035e56fc3e861e193bd141c86a143 100644 (file)
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -411,7 +411,7 @@ sub form_header {
                         "duedate", "BL", "trigger2");
 
   my $follow_up_vc         =  $form->{vendor};
-  $follow_up_vc            =~ s/--.*?//;
+  $follow_up_vc            =~ s/--\d*\s*$//;
   my $follow_up_trans_info =  "$form->{invnumber} ($follow_up_vc)";
 
   $form->{javascript} .= qq|<script type="text/javascript" src="js/show_form_details.js"></script>|;

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index d2f27c92594d9ff42aef76c37ed41543ccdad028..9bc225e884bb596231ed4b64ad7441710820be02 100644 (file)
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -565,7 +565,7 @@ sub form_header {
   $credittext = $locale->text('Credit Limit exceeded!!!');
 
   my $follow_up_vc         =  $form->{customer};
-  $follow_up_vc            =~ s/--.*?//;
+  $follow_up_vc            =~ s/--\d*\s*$//;
   my $follow_up_trans_info =  "$form->{invnumber} ($follow_up_vc)";
 
   $onload = ($form->{resubmit} && ($form->{format} eq "html")) ? qq|window.open('about:blank','Beleg'); document.invoice.target = 'Beleg';document.invoice.submit()|

diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index c86de3763fcce8aa3895778c7a89ab3cc40b9f68..b337842ff6b23ea3d3093d5054ff706826910bbc 100644 (file)
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -342,7 +342,7 @@ sub form_header {
   $credittext = $locale->text('Credit Limit exceeded!!!');
 
   my $follow_up_vc                =  $form->{ $form->{vc} eq 'customer' ? 'customer' : 'vendor' };
-  $follow_up_vc                   =~ s/--.*?//;
+  $follow_up_vc                   =~ s/--\d*\s*$//;
   $TMPL_VAR{follow_up_trans_info} =  ($form->{type} =~ /_quotation$/ ? $form->{quonumber} : $form->{ordnumber}) . " ($follow_up_vc)";
 
   if ($form->{id}) {