From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 1 Feb 2007 10:39:11 +0000 (+0000)
Subject: Debitorenbuchungen: Beim Aufrufen aus dem Buchungsjournal heraus das richtige Gegenko... 
X-Git-Tag: release-2.4.2~191
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=01b3feeb4e1e5ca3ca01840f650f10343dc4c9cc;p=kivitendo-erp.git

Debitorenbuchungen: Beim Aufrufen aus dem Buchungsjournal heraus das richtige Gegenkonto auswählen.
---

diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl
index bff54d0f8..5b0273eed 100644
--- a/bin/mozilla/ar.pl
+++ b/bin/mozilla/ar.pl
@@ -292,6 +292,8 @@ sub create_links {
     ($form->datetonum($form->{transdate}, \%myconfig) <=
      $form->datetonum($form->{closedto}, \%myconfig));
 
+  $form->{"ARselected"} = $form->{"AR_1"};
+
   $lxdebug->leave_sub();
 }
 
@@ -331,6 +333,11 @@ sub form_header {
     ($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
   $readonly = ($form->{radier}) ? "" : $readonly;
 
+  my $ARselected_quoted = quotemeta($form->{"ARselected"});
+  $form->{selectAR} = $form->{AR};
+  $form->{selectAR} =~
+    s/value=\"${ARselected_quoted}\"/value=\"$form->{ARselected}\" selected/;
+
   # set option selected
   foreach $item (qw(customer currency department employee)) {
     $form->{"select$item"} =~ s/ selected//;
@@ -799,11 +806,6 @@ sub update {
   #   $form->{selectAR_amount} =~
   #     s/value=\"$form->{AR_amountselected}\"/value=\"$form->{AR_amountselected}\" selected/;
 
-  $form->{selectAR} = $form->{AR};
-
-  $form->{selectAR} =~
-    s/value=\"$form->{ARselected}\"/value=\"$form->{ARselected}\" selected/;
-
   ($AR_amountaccno, $AR_amounttaxkey) =
     split(/--/, $form->{AR_amountselected});
   $form->{selecttaxchart} = $form->{taxchart};