summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-01 07:36:27 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-01 07:36:27 +0000
commitb66cfc9fa6a4bf832ec495c7b598f00864f5f2e1 (patch)
treea05ee8aec86518b4554433f06922e24d7272bdf0 /bin
parent48f53d311fa339b62a6d9fd38f7f134b7806f6c6 (diff)
Preventing AR-Transaction screen from calculating sales tax since it doesn't have enough info to do so safely.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1485 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin')
-rwxr-xr-xbin/aa.pl22
1 files changed, 0 insertions, 22 deletions
diff --git a/bin/aa.pl b/bin/aa.pl
index 90296b48..5a6f571b 100755
--- a/bin/aa.pl
+++ b/bin/aa.pl
@@ -966,28 +966,6 @@ sub update {
}
@taxaccounts = Tax::init_taxes( $form, $form->{taxaccounts} );
- if ( $form->{taxincluded} ) {
- $totaltax =
- Tax::calculate_taxes( \@taxaccounts, $form, $form->{invtotal}, 1 );
- }
- else {
- $totaltax =
- Tax::calculate_taxes( \@taxaccounts, $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} ) {