From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 1 Feb 2007 10:33:17 +0000 (+0000)
Subject: Kreditorenbuchungen: Beim Aufrufen aus dem Buchungsjournal das Gegenkonto richtig... 
X-Git-Tag: release-2.4.2~192
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;ds=sidebyside;h=da874157945dde4f777d7e84966d3b79221ce6ba;p=kivitendo-erp.git

Kreditorenbuchungen: Beim Aufrufen aus dem Buchungsjournal das Gegenkonto richtig auswählen.
---

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index 2f31a5991..7b09f2f0a 100644
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -279,6 +279,8 @@ sub create_links {
     ($form->datetonum($form->{transdate}, \%myconfig) <=
      $form->datetonum($form->{closedto}, \%myconfig));
 
+  $form->{"APselected"} = $form->{"AP_1"};
+
   $lxdebug->leave_sub();
 }
 
@@ -321,6 +323,11 @@ sub form_header {
   }
   $readonly = ($form->{id}) ? "readonly" : "";
 
+  my $APselected_quoted = quotemeta($form->{"APselected"});
+  $form->{selectAP} = $form->{AP};
+  $form->{selectAP} =~
+    s/value=\"${APselected_quoted}\"/value=\"$form->{APselected}\" selected/;
+
   $form->{radier} =
     ($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
   $readonly                 = ($form->{radier}) ? "" : $readonly;
@@ -776,10 +783,6 @@ sub update {
   #   $form->{selectAP_amount} =~
   #     s/value=\"$form->{AP_amountselected}\"/value=\"$form->{AP_amountselected}\" selected/;
 
-  $form->{selectAP} = $form->{AP};
-  $form->{selectAP} =~
-    s/value=\"$form->{APselected}\"/value=\"$form->{APselected}\" selected/;
-
   ($AP_amountaccno, $AP_amounttaxkey) =
     split(/--/, $form->{AP_amountselected});
   $form->{selecttaxchart} = $form->{taxchart};