Bug 1429 behoben
authorG. Richardson <information@lx-office-hosting.de>
Tue, 28 Dec 2010 12:47:20 +0000 (13:47 +0100)
committerG. Richardson <information@lx-office-hosting.de>
Tue, 28 Dec 2010 12:47:20 +0000 (13:47 +0100)
Bei Wechsel eines Debitoren bei Debitorenrechnungen wird Bemerkungsfeld mit den
internen Bemerkungen des Kunden gefüllt.

bin/mozilla/ar.pl

index e2777bd..251c464 100644 (file)
@@ -982,9 +982,13 @@ sub update {
 
   $form->{invdate} = $form->{transdate};
 
-  my %saved_variables = map +( $_ => $form->{$_} ), qw(AR AR_amount_1 taxchart_1);
-
+  my %saved_variables = map +( $_ => $form->{$_} ), qw(AR AR_amount_1 taxchart_1 oldcustomer);
   &check_name("customer");
+     
+  # check_name ruft get_customer auf, oldcustomer wird überschrieben, daher wird dies vorher gemerkt
+  # get_customer holt Bemerkungen als intnotes, für Debitorenbuchungen gibt es aber nur das Feld notes
+  $form->{notes} = $form->{intnotes} if $saved_variables{oldcustomer} ne $form->{customer}; 
 
   $form->{AR} = $saved_variables{AR};
   if ($saved_variables{AR_amount_1} =~ m/.--./) {