From e783d17dd9470f2dc2868e05119ea5bdaf0d00aa Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 20 Nov 2007 19:43:27 +0000
Subject: A few more Customer improvements

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1882 4979c152-3d1c-0410-bac9-87ea11338e46
---
 sql/modules/Customer.sql | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'sql/modules/Customer.sql')

diff --git a/sql/modules/Customer.sql b/sql/modules/Customer.sql
index 6071bc4a..7f2a8da0 100644
--- a/sql/modules/Customer.sql
+++ b/sql/modules/Customer.sql
@@ -54,10 +54,6 @@ CREATE OR REPLACE FUNCTION entity_credit_save (
     
 ) returns INT as $$
     
-    -- does not require entity_class, as entity_class is a known given to be 1
-
-    -- Maybe we should make this generic and pass through?  -- CT
-    
     DECLARE
         t_entity_class int;
         new_entity_id int;
@@ -99,7 +95,7 @@ CREATE OR REPLACE FUNCTION entity_credit_save (
             VALUES (
                 new_entity_id,
                 in_entity_class,
-                in_discount, 
+                in_discount / 100, 
                 in_taxincluded,
                 in_creditlimit,
                 in_terms,
@@ -116,6 +112,7 @@ CREATE OR REPLACE FUNCTION entity_credit_save (
             -- entity note class
             insert into entity_note (note_class, note, ref_key, vector) VALUES (
                 1, in_notes, new_entity_id, '');
+
             return new_entity_id;
 
         ELSIF FOUND THEN
-- 
cgit v1.2.3

