SF.net SVN: ledger-smb: [1486] trunk/bin/aa.pl

[..hidden..]

Revision: 1486
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1486&view=rev
Author:   einhverfr
Date:     2007-09-01 00:37:21 -0700 (Sat, 01 Sep 2007)

Log Message:
-----------
Preventing AR-Transaction screen from calculating sales tax since it doesn't have enough info to do so safely.

Modified Paths:
--------------
    trunk/bin/aa.pl

Modified: trunk/bin/aa.pl
===================================================================
--- trunk/bin/aa.pl	2007-09-01 07:36:27 UTC (rev 1485)
+++ trunk/bin/aa.pl	2007-09-01 07:37:21 UTC (rev 1486)
@@ -998,7 +998,6 @@
         }
     }
 
-    # recalculate taxes
     @taxaccounts = split / /, $form->{taxaccounts};
 
     for (@taxaccounts) {
@@ -1007,29 +1006,7 @@
     }
 
     @taxaccounts = Tax::init_taxes( $form, $form->{taxaccounts} );
-    if ( $form->{taxincluded} ) {
-        $totaltax =
-          Tax::calculate_taxes( ..hidden.., $form, $form->{invtotal}, 1 );
-    }
-    else {
-        $totaltax =
-          Tax::calculate_taxes( ..hidden.., $form, $form->{invtotal}, 0 );
-    }
-    foreach $item (@taxaccounts) {
-        $taccno = $item->account;
-        if ( $form->{calctax} ) {
-            $form->{"calctax_$taccno"} = 1;
-            $form->{"tax_$taccno"} = $form->round_amount( $item->value, 2 );
-        }
-        $form->{"select$form->{ARAP}_tax_$taccno"} =
-          qq|<option>$taccno--$form->{"${taccno}_description"}|;
-    }
 
-    $form->{invtotal} =
-      ( $form->{taxincluded} )
-      ? $form->{invtotal}
-      : $form->{invtotal} + $totaltax;
-
     $j = 1;
     for $i ( 1 .. $form->{paidaccounts} ) {
         if ( $form->{"paid_$i"} ) {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.