More batch, vendor, and payment reversal fixes

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

1 files changed, 15 insertions, 0 deletions

diff --git a/sql/modules/Company.sql b/sql/modules/Company.sql
index ff2795af..bcb0599e 100644
--- a/sql/modules/Company.sql
+++ b/sql/modules/Company.sql
@@ -97,6 +97,21 @@ BEGIN
 END;
 $$ LANGUAGE PLPGSQL;
 
+CREATE OR REPLACE FUNCTION entity_credit_get_id_by_meta_number
+(in_meta_number text, in_account_class int) 
+returns int AS
+$$
+DECLARE out_credit_id int;
+BEGIN
+	SELECT id INTO out_credit_id 
+	FROM entity_credit_account 
+	WHERE meta_number = in_meta_number 
+		AND entity_class = in_account_class;
+
+	RETURN out_credit_id;
+END;
+$$ LANGUAGE plpgsql;
+
 CREATE OR REPLACE FUNCTION entity_list_contact_class() 
 RETURNS SETOF contact_class AS
 $$