From 847832197409889127e0192f168c3f7e52ef1944 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Thu, 14 May 2009 11:41:39 +0000 Subject: [PATCH] =?utf8?q?Beim=20Wechsel=20des=20Lieferanten=20das=20Konto?= =?utf8?q?=20und=20den=20Steuerschl=C3=BCssel=20richtig=20vorbelegen.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Zum Einen sollte das Konto in der ersten Positionszeile nur dann gewechselt werden, wenn in der Zeile noch kein Betrag eingetragen wurde. Zum Anderen sollte, wenn das Konto auf das zuletzt für diesen Lieferanten bebuchte Konto gesetzt wird, auch der zum neu ausgewählten Konto dazugehörige Steuerschlüssel ausgewählt werden und nicht derjenige, der in der Maske vorher ausgewählt war. Teil des Fixes für Bug 960. --- bin/mozilla/ap.pl | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl index 03512056a..75631fa29 100644 --- a/bin/mozilla/ap.pl +++ b/bin/mozilla/ap.pl @@ -855,7 +855,7 @@ sub update { map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining); - @flds = qw(amount AP_amount projectnumber oldprojectnumber project_id); + @flds = qw(amount AP_amount projectnumber oldprojectnumber project_id taxchart); $count = 0; for $i (1 .. $form->{rowcount}) { $form->{"amount_$i"} = @@ -889,9 +889,16 @@ sub update { $form->{exchangerate} = $form->{forex} if $form->{forex}; $form->{invdate} = $form->{transdate}; - $save_AP = $form->{AP}; + my %saved_variables = map +( $_ => $form->{$_} ), qw(AP AP_amount_1 taxchart_1); + &check_name("vendor"); - $form->{AP} = $save_AP; + + $form->{AP} = $saved_variables{AP}; + if ($saved_variables{AP_amount_1} =~ m/.--./) { + map { $form->{$_} = $saved_variables{$_} } qw(AP_amount_1 taxchart_1); + } else { + delete $form->{taxchart_1}; + } $form->{rowcount} = $count + 1; -- 2.20.1