SF.net SVN: ledger-smb:[4024] branches/1.3/sql/modules/Company.sql

[..hidden..]

Revision: 4024
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4024&view=rev
Author:   einhverfr
Date:     2011-11-21 03:36:21 +0000 (Mon, 21 Nov 2011)
Log Message:
-----------
Company.sql now transaction-safe on reload and runs in a transaction

Modified Paths:
--------------
    branches/1.3/sql/modules/Company.sql

Modified: branches/1.3/sql/modules/Company.sql
===================================================================
--- branches/1.3/sql/modules/Company.sql	2011-11-21 03:27:08 UTC (rev 4023)
+++ branches/1.3/sql/modules/Company.sql	2011-11-21 03:36:21 UTC (rev 4024)
@@ -4,6 +4,10 @@
 
 -- Docstrings already added to this file.
 
+BEGIN;
+
+DROP TYPE IF EXISTS  company_search_result CASCADE;
+
 CREATE TYPE company_search_result AS (
 	entity_id int,
 	entity_control_code text,
@@ -18,6 +22,8 @@
 	curr text
 );
 
+DROP TYPE IF EXISTS eca_history_result CASCADE;
+
 create type eca_history_result as (
    id int,
    name text,
@@ -405,7 +411,7 @@
 COMMENT ON FUNCTION entity_list_contact_class() IS
 $$ Returns a list of contact classes ordered by ID.$$;
 
-
+DROP TYPE IF EXISTS entity_credit_search_return CASCADE;
 CREATE TYPE entity_credit_search_return AS (
         legal_name text,
         id int,
@@ -573,7 +579,7 @@
 COMMENT ON FUNCTION list_taxforms (in_entity_id int) IS
 $$Returns a list of tax forms for the entity's country.$$; --'
 
-
+DROP TYPE IF EXISTS company_billing_info CASCADE;
 CREATE TYPE company_billing_info AS (
 legal_name text,
 meta_number text,
@@ -615,6 +621,7 @@
 account.$$;
 
 
+DROP FUNCTION IF EXISTS company_save(int, text, int, text, text, int, text, int);
 CREATE OR REPLACE FUNCTION company_save (
     in_id int, in_control_code text, in_entity_class int,
     in_name text, in_tax_id TEXT,
@@ -818,6 +825,7 @@
 COMMENT ON FUNCTION company__list_locations(in_entity_id int) IS
 $$ Lists all locations for an entity.$$;
 
+DROP TYPE IF EXISTS contact_list CASCADE;
 CREATE TYPE contact_list AS (
 	class text,
 	class_id int,
@@ -979,6 +987,7 @@
 (in_entity_id int, in_contact_class int, in_description text, in_contact text) IS
 $$ Saves company contact information.  The return value is meaningless. $$;
 
+DROP TYPE IF EXISTS entity_note_list CASCADE;
 CREATE TYPE entity_note_list AS (
 	id int,
 	note_class int,
@@ -1303,4 +1312,4 @@
     in_entity_class int
 ) IS 
 $$ Returns a list of all entity credit accounts attached to that entity.$$;
-
+COMMIT;

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