Fixing bug 1761766: Sales tax change will affect previous invoices

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1511 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 9 insertions, 4 deletions

diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm
index 79207304..9b1081eb 100644
--- a/LedgerSMB/AM.pm
+++ b/LedgerSMB/AM.pm
@@ -2021,8 +2021,11 @@ sub save_taxes {
     # connect to database
     my $dbh = $form->{dbh};
 
-    my $query = qq|DELETE FROM tax|;
-    $dbh->do($query) || $form->dberror($query);
+    my $query = qq|
+		UPDATE tax 
+		   SET validto = (now())::date 
+		 WHERE chart_id = ?|;
+    my $update_sth = $dbh->prepare($query) || $form->dberror($query);
 
     $query = qq|
 		INSERT INTO tax (chart_id, rate, taxnumber, validto, 
@@ -2036,11 +2039,13 @@ sub save_taxes {
           $form->parse_amount( $myconfig, $form->{"taxrate_$i"} ) / 100;
         my $validto = $form->{"validto_$i"};
         $validto = undef if not $validto;
+        
         my @queryargs = (
-            $chart_id, $rate, $form->{"taxnumber_$i"},
-            $validto, $form->{"pass_$i"}, $form->{"taxmodule_id_$i"}
+            $chart_id, $rate, $form->{"taxnumber_$i"}, $validto,
+            $form->{"pass_$i"}, $form->{"taxmodule_id_$i"}
         );
 
+        $update_sth->execute($chart_id) || $form->dberror($query);
         $sth->execute(@queryargs) || $form->dberror($query);
     }