From 01b3feeb4e1e5ca3ca01840f650f10343dc4c9cc Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Thu, 1 Feb 2007 10:39:11 +0000 Subject: [PATCH] =?utf8?q?Debitorenbuchungen:=20Beim=20Aufrufen=20aus=20de?= =?utf8?q?m=20Buchungsjournal=20heraus=20das=20richtige=20Gegenkonto=20aus?= =?utf8?q?w=C3=A4hlen.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- bin/mozilla/ar.pl | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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}; -- 2.20.1