summaryrefslogtreecommitdiff
path: root/sql
diff options
context:
space:
mode:
Diffstat (limited to 'sql')
-rw-r--r--sql/modules/Customer.sql120
-rw-r--r--sql/modules/Location.sql8
-rw-r--r--sql/modules/Roles.sql3
-rw-r--r--sql/modules/Vendor.sql2
4 files changed, 120 insertions, 13 deletions
diff --git a/sql/modules/Customer.sql b/sql/modules/Customer.sql
index 7f2a8da0..40625cbf 100644
--- a/sql/modules/Customer.sql
+++ b/sql/modules/Customer.sql
@@ -23,19 +23,33 @@ CREATE TYPE customer_search_return AS (
creditlimit numeric,
terms int2,
customernumber int,
- cc text,
- bcc text,
business_id int,
language_code text,
pricegroup_id int,
- curr char,
+ curr char(3),
startdate date,
- enddate date,
- bic varchar,
- iban varchar,
- note text
+ enddate date
);
+CREATE OR REPLACE FUNCTION customer__retrieve(in_entity_id int) RETURNS
+customer_search_return AS
+$$
+DECLARE out_row customer_search_return;
+BEGIN
+ SELECT c.legal_name, c.id, e.id, ec.entity_class, ec.discount,
+ ec.taxincluded, ec.creditlimit, ec.terms, ec.meta_number,
+ ec.business_id, ec.language_code, ec.pricegroup_id,
+ ec.curr::char(3), ec.startdate, ec.enddate
+ INTO out_row
+ FROM company c
+ JOIN entity e ON (c.entity_id = e.id)
+ JOIN entity_credit_account ec ON (c.entity_id = ec.entity_id)
+ WHERE e.id = in_entity_id
+ AND ec.entity_class = 2;
+
+ RETURN out_row;
+END;
+$$ LANGUAGE PLPGSQL;
-- COMMENT ON TYPE customer_search_result IS
-- $$ This structure will change greatly in 1.4.
-- If you want to reply on it heavily, be prepared for breakage later. $$;
@@ -145,6 +159,96 @@ CREATE OR REPLACE FUNCTION entity_credit_save (
$$ language 'plpgsql';
+CREATE TYPE location_result AS (
+ id int,
+ line_one text,
+ line_two text,
+ line_three text,
+ city text,
+ state text,
+ country text,
+ class text
+);
+
+
+CREATE OR REPLACE FUNCTION company__list_locations(in_entity_id int)
+RETURNS SETOF location_result AS
+$$
+DECLARE out_row RECORD;
+BEGIN
+ FOR out_row IN
+ SELECT l.id, l.line_one, l.line_two, l.line_three, l.city,
+ l.state, c.name, lc.class
+ FROM location l
+ JOIN company_to_location ctl ON (ctl.location_id = l.id)
+ JOIN company cp ON (ctl.company_id = cp.id)
+ JOIN location_class lc ON (ctl.location_class = lc.id)
+ JOIN country c ON (c.id = l.country_id)
+ WHERE cp.entity_id = in_entity_id
+ ORDER BY lc.id, l.id, c.name
+ LOOP
+ RETURN NEXT out_row;
+ END LOOP;
+END;
+$$ LANGUAGE PLPGSQL;
+
+CREATE TYPE contact_list AS (
+ class text,
+ contact text
+);
+
+CREATE OR REPLACE FUNCTION company__list_contacts(in_entity_id int)
+RETURNS SETOF contact_list AS
+$$
+DECLARE out_row RECORD;
+BEGIN
+ FOR out_row IN
+ SELECT cc.class, c.contact
+ FROM company_to_contact c
+ JOIN contact_class cc ON (c.contact_class_id = cc.id)
+ JOIN company cp ON (c.company_id = cp.id)
+ WHERE cp.entity_id = in_entity_id
+ LOOP
+ RETURN NEXT out_row;
+ END LOOP;
+END;
+$$ LANGUAGE plpgsql;
+
+CREATE OR REPLACE FUNCTION company__list_bank_account(in_entity_id int)
+RETURNS SETOF entity_bank_account AS
+$$
+DECLARE out_row entity_bank_account%ROWTYPE;
+BEGIN
+ FOR out_row IN
+ SELECT * from entity_bank_account where entity_id = in_entity_id
+ LOOP
+ RETURN NEXT;
+ END LOOP;
+END;
+$$ LANGUAGE PLPGSQL;
+
+CREATE TYPE entity_note_list AS (
+ id int,
+ note text
+);
+
+CREATE OR REPLACE FUNCTION company__list_notes(in_entity_id int)
+RETURNS SETOF entity_note_list AS
+$$
+DECLARE out_row record;
+BEGIN
+ FOR out_row IN
+ SELECT id, note
+ FROM entity_note
+ WHERE ref_key = in_entity_id
+ LOOP
+ RETURN NEXT out_row;
+ END LOOP;
+END;
+$$ LANGUAGE PLPGSQL;
+
+
+
CREATE OR REPLACE FUNCTION customer_location_save (
in_company_id int,
in_location_class int, in_line_one text, in_line_two text,
@@ -153,7 +257,7 @@ CREATE OR REPLACE FUNCTION customer_location_save (
) returns int AS $$
BEGIN
return _entity_location_save(
- in_company_id,
+ in_company_id, NULL,
in_location_class, in_line_one, in_line_two, in_line_three,
in_city, in_state, in_mail_code, in_country_code);
END;
diff --git a/sql/modules/Location.sql b/sql/modules/Location.sql
index 51fb1d02..3986c24f 100644
--- a/sql/modules/Location.sql
+++ b/sql/modules/Location.sql
@@ -28,7 +28,7 @@ $$ language plpgsql;
CREATE OR REPLACE FUNCTION location_save
(in_address1 text, in_address2 text, in_address3 text,
- in_city text, in_state text, in_zipcode text, in_country text)
+ in_city text, in_state text, in_zipcode text, in_country int)
returns integer AS
$$
DECLARE
@@ -42,16 +42,16 @@ BEGIN
line_three = in_address3 AND
city = in_city AND
state = in_state AND
- zipcode = in_zipcode AND
+ mail_code = in_zipcode AND
country_id = in_country
LIMIT 1;
IF FOUND THEN
return location_row.id;
END IF;
INSERT INTO location
- (companyname, address1, address2, city, state, zipcode, country_id)
+ (line_one, line_two, line_three, city, state, mail_code, country_id)
VALUES
- (in_companyname, in_address1, in_address2, in_city, in_state,
+ (in_address1, in_address2, in_address3, in_city, in_state,
in_zipcode, in_country);
SELECT lastval('location_id_seq') INTO location_id;
return location_id;
diff --git a/sql/modules/Roles.sql b/sql/modules/Roles.sql
index 864fb4e7..cce8ca0d 100644
--- a/sql/modules/Roles.sql
+++ b/sql/modules/Roles.sql
@@ -23,6 +23,7 @@ GRANT SELECT ON person_to_contact TO lsmb_<?lsmb dbname ?>__read_contact;
GRANT SELECT ON person_to_contact TO lsmb_<?lsmb dbname ?>__read_contact;
GRANT SELECT ON person_to_location TO lsmb_<?lsmb dbname ?>__read_contact;
GRANT SELECT ON person_to_location TO lsmb_<?lsmb dbname ?>__read_contact;
+GRANT SELECT ON company_to_location TO lsmb_<?lsmb dbname ?>__read_contact;
GRANT SELECT ON vendortax TO lsmb_<?lsmb dbname ?>__read_contact;
INSERT INTO menu_acl (node_id, acl_type, role_name)
@@ -67,6 +68,8 @@ GRANT INSERT ON person_to_contact TO lsmb_<?lsmb dbname ?>__create_contact;
GRANT INSERT ON person_to_contact TO lsmb_<?lsmb dbname ?>__create_contact;
GRANT INSERT ON person_to_location TO lsmb_<?lsmb dbname ?>__create_contact;
GRANT INSERT ON person_to_location TO lsmb_<?lsmb dbname ?>__create_contact;
+GRANT INSERT ON company_to_location TO lsmb_<?lsmb dbname ?>__create_contact;
+GRANT DELETE ON company_to_location TO lsmb_<?lsmb dbname ?>__create_contact;
GRANT INSERT ON vendortax TO lsmb_<?lsmb dbname ?>__create_contact;
INSERT INTO menu_acl (node_id, acl_type, role_name)
diff --git a/sql/modules/Vendor.sql b/sql/modules/Vendor.sql
index d2f6c3c3..8e9e12a9 100644
--- a/sql/modules/Vendor.sql
+++ b/sql/modules/Vendor.sql
@@ -186,7 +186,7 @@ create or replace function _entity_location_save(
AND location_id = in_location_id;
SELECT location_save(in_line_one, in_line_two, in_line_three, in_city,
- in_state, in_mail_code, in_mail_code, in_country_code)
+ in_state, in_mail_code, in_country_code)
INTO l_id;
INSERT INTO company_to_location