From b66cfc9fa6a4bf832ec495c7b598f00864f5f2e1 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sat, 1 Sep 2007 07:36:27 +0000
Subject: 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
---
 LedgerSMB/IR.pm | 12 +++++++-----
 LedgerSMB/IS.pm | 12 +++++++-----
 2 files changed, 14 insertions(+), 10 deletions(-)

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm
index 5dc1676b..3f3b0aed 100755
--- a/LedgerSMB/IR.pm
+++ b/LedgerSMB/IR.pm
@@ -123,9 +123,10 @@ sub post_invoice {
             &reverse_invoice( $dbh, $form );
         }
         else {
-            $query = qq|INSERT INTO ap (id) VALUES (?)|;
+            $query = qq|INSERT INTO ap (id, vendor_id) VALUES (?, ?)|;
             $sth   = $dbh->prepare($query);
-            $sth->execute( $form->{id} ) || $form->dberror($query);
+            $sth->execute( $form->{id}, $form->{vendor_id} ) 
+		|| $form->dberror($query);
         }
     }
 
@@ -135,11 +136,12 @@ sub post_invoice {
     if ( !$form->{id} ) {
 
         $query = qq|
-			INSERT INTO ap (invnumber, employee_id)
-			VALUES ('$uid', (SELECT id FROM employee
+			INSERT INTO ap (invnumber, vendor_id, employee_id)
+			VALUES ('$uid', ?, (SELECT id FROM employee
 			                  WHERE login = ?))|;
         $sth = $dbh->prepare($query);
-        $sth->execute( $form->{login} ) || $form->dberror($query);
+        $sth->execute( $form->{vendor_id}, $form->{login}) 
+		|| $form->dberror($query);
 
         $query = qq|SELECT id FROM ap WHERE invnumber = '$uid'|;
         $sth   = $dbh->prepare($query);
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index a45e0000..6fc6ba81 100755
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -854,9 +854,10 @@ sub post_invoice {
             &reverse_invoice( $dbh, $form );
         }
         else {
-            $query = qq|INSERT INTO ar (id) VALUES (?)|;
+            $query = qq|INSERT INTO ar (id, customer_id) VALUES (?, ?)|;
             $sth   = $dbh->prepare($query);
-            $sth->execute( $form->{id} ) || $form->dberror($query);
+            $sth->execute( $form->{id}, $form->{customer_id} ) 
+		|| $form->dberror($query);
         }
 
     }
@@ -867,10 +868,11 @@ sub post_invoice {
     if ( !$form->{id} ) {
 
         $query = qq|
-			INSERT INTO ar (invnumber, employee_id) 
-			     VALUES ('$uid', ?)|;
+			INSERT INTO ar (invnumber, customer_id, employee_id) 
+			     VALUES ('$uid', ?, ?)|;
         $sth = $dbh->prepare($query);
-        $sth->execute( $form->{employee_id} ) || $form->dberror($query);
+        $sth->execute( $form->{customer_id}, $form->{employee_id} ) 
+		|| $form->dberror($query);
 
         $query = qq|SELECT id FROM ar WHERE invnumber = '$uid'|;
         $sth   = $dbh->prepare($query);
-- 
cgit v1.2.3