path: root/sql/modules/Company.sql

-- BEGIN;

CREATE TYPE company_search_result AS (
    entity_id int,
    company_id int,
    entity_credit_id int,
    meta_number text,
    entity_class int,
    legal_name text,
    sic_code text,
    business_type text,
    curr text
);

CREATE OR REPLACE FUNCTION company__search
(in_account_class int, in_contact text, in_contact_info text[], 
    in_meta_number text, in_address text, in_city text, in_state text, 
    in_mail_code text, in_country text, in_date_from date, in_date_to date,
    in_business_id int)
RETURNS SETOF company_search_result AS $$
DECLARE
    out_row company_search_result;
    loop_count int;
    t_contact_info text[];
BEGIN
    t_contact_info = in_contact_info;


    FOR out_row IN
        SELECT e.id, c.id, ec.id, ec.meta_number, ec.entity_class, 
            c.legal_name, c.sic_code, b.description , ec.curr
        FROM entity e
        JOIN company c ON (e.id = c.entity_id)
        JOIN entity_credit_account ec ON (ec.entity_id = e.id)
        LEFT JOIN business b ON (ec.business_id = b.id)
        WHERE ec.entity_class = in_account_class
            AND (c.id IN (select company_id FROM company_to_contact
                WHERE contact LIKE ALL(t_contact_info))
                OR '' LIKE ALL(t_contact_info))
            
            AND ec.meta_number = 
                coalesce(in_meta_number, ec.meta_number)
--          AND c.id IN 
--              (select company_id FROM company_to_location
--              WHERE location_id IN 
--                  (SELECT id FROM location
--                  WHERE line_one 
--                      ilike '%' || 
--                          coalesce(in_address, '')
--                          || '%'
--                      AND city ILIKE 
--                          '%' || 
--                          coalesce(in_city, '') 
--                          || '%'
--                      AND state ILIKE
--                          '%' || 
--                          coalesce(in_state, '') 
--                          || '%'
--                      AND mail_code ILIKE
--                          '%' || 
--                          coalesce(in_mail_code,
--                              '')
--                          || '%'
--                      AND country_id IN 
--                          (SELECT id FROM country
--                          WHERE name LIKE '%' ||
--                              in_country ||'%'
--                              OR short_name
--                              ilike 
--                              in_country)))
            AND ec.business_id = 
                coalesce(in_business_id, ec.business_id)
--          AND ec.startdate <= coalesce(in_date_to, 
--                      ec.startdate)
--          AND ec.enddate >= coalesce(in_date_from, ec.enddate)
    LOOP
        RETURN NEXT out_row;
    END LOOP;
END;
$$ language plpgsql;    

CREATE OR REPLACE FUNCTION entity__save_notes(in_entity_id int, in_note text)
RETURNS INT AS
$$
DECLARE out_id int;
BEGIN
    -- TODO, change this to create vector too
    INSERT INTO entity_note (ref_key, note_class, entity_id, note, vector)
    VALUES (in_entity_id, 1, in_entity_id, in_note, '');

    SELECT currval('note_id_seq') INTO out_id;
    RETURN out_id;
END;
$$ LANGUAGE PLPGSQL;

CREATE OR REPLACE FUNCTION entity_list_contact_class() 
RETURNS SETOF contact_class AS
$$
DECLARE out_row RECORD;
BEGIN
    FOR out_row IN
        SELECT * FROM contact_class ORDER BY id
    LOOP
        RETURN NEXT out_row;
    END LOOP;
END;
$$ language plpgsql;


CREATE TYPE entity_credit_search_return AS (
        legal_name text,
        id int,
        entity_id int,
        entity_class int,
        discount numeric,
        taxincluded bool,
        creditlimit numeric,
        terms int2,
        customernumber text,
        business_id int,
        language_code text,
        pricegroup_id int,
        curr char(3),
        startdate date,
        enddate date
);

COMMENT ON TYPE entity_credit_search_return IS
$$ This may change in 1.4 and should not be relied upon too much $$;

CREATE OR REPLACE FUNCTION entity__retrieve_credit
(in_entity_id int, in_entity_class int) 
RETURNS entity_credit_search_return AS
$$
DECLARE out_row entity_credit_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 = CASE WHEN in_entity_class = 3 THEN 2
                ELSE in_entity_class END;

    RETURN out_row;
END;
$$ LANGUAGE PLPGSQL;


CREATE OR REPLACE FUNCTION entity_credit_save (
    in_id int, in_entity_class int,
    
    in_discount numeric, in_taxincluded bool, in_creditlimit numeric, 
    in_discount_terms int,
    in_terms int, in_meta_number varchar(32), in_business_id int, 
    in_language varchar(6), in_pricegroup_id int, 
    in_curr char, in_startdate date, in_enddate date, 
    in_notes text, 
    in_name text, in_tax_id TEXT,
    in_threshold NUMERIC
    
) returns INT as $$
    
    DECLARE
        t_entity_class int;
        new_entity_id int;
        v_row company;
        l_id int;
    BEGIN
        
        -- TODO:  Move every table to an upsert mode independantly.
        SELECT INTO v_row * FROM company WHERE id = in_id;
        
        IF NOT FOUND THEN
            -- do some inserts
            
            select nextval('entity_id_seq') into new_entity_id;
            
            insert into entity (id, name, entity_class) 
                VALUES (new_entity_id, in_name, in_entity_class);
            
            INSERT INTO company ( entity_id, legal_name, tax_id ) 
                VALUES ( new_entity_id, in_name, in_tax_id );
    IF in_entity_class NOT IN (1, 2) THEN
        RETURN new_entity_id;
    END IF;
            
            INSERT INTO entity_credit_account (
                entity_id,
                entity_class,
                discount, 
                taxincluded,
                creditlimit,
                terms,
                meta_number,
                business_id,
                language_code,
                pricegroup_id,
                curr,
                startdate,
                enddate,
                discount_terms,
                threshold
            )
            VALUES (
                new_entity_id,
                in_entity_class,
                in_discount / 100, 
                in_taxincluded,
                in_creditlimit,
                in_terms,
                in_meta_number,
                in_business_id,
                in_language,
                in_pricegroup_id,
                in_curr,
                in_startdate,
                in_enddate,
                in_discount_terms,
                in_threshold
            );
            -- entity note class
            insert into entity_note (note_class, note, ref_key, vector) VALUES (
                1, in_notes, new_entity_id, to_tsvector(in_notes));

            return new_entity_id;

        ELSIF FOUND THEN
        
            update company set tax_id = in_tax_id where id = in_id;
            update entity_credit_account SET
                discount = in_discount,
                taxincluded = in_taxincluded,
                creditlimit = in_creditlimit,
                terms = in_terms,
                meta_number = in_meta_number,
                business_id = in_business_id,
                language_code = in_language,
                pricegroup_id = in_pricegroup_id,
                curr = in_curr,
                startdate = in_startdate,
                enddate = in_enddate,
                threshold = in_threshold,
                discount_terms = in_discount_terms
            where entity_id = v_row.entity_id;
            
            
            UPDATE entity_note SET
                note = in_note
            WHERE ref_key = v_row.entity_id;
            return in_id;
        
        END IF;
    END;
    
$$ language 'plpgsql';

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_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 out_row;
    END LOOP;
END;
$$ LANGUAGE PLPGSQL;

CREATE OR REPLACE FUNCTION entity__save_bank_account
(in_entity_id int, in_bic text, in_iban text)
RETURNS int AS
$$
DECLARE out_id int;
BEGIN
    INSERT INTO entity_bank_account(entity_id, bic, iban)
    VALUES(in_entity_id, in_bic, in_iban);

    SELECT CURRVAL('entity_bank_account_id_seq') INTO out_id ;

    RETURN out_id;
END;
$$ LANGUAGE PLPGSQL;

CREATE OR REPLACE FUNCTION company__save_contact
(in_entity_id int, in_contact_class int, in_contact text)
RETURNS INT AS
$$
DECLARE out_id int;
BEGIN
    INSERT INTO company_to_contact(company_id, contact_class_id, contact)
    SELECT id, in_contact_class, in_contact FROM company
    WHERE entity_id = in_entity_id;

    RETURN 1;
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 AS 
$$
DECLARE out_row record;
BEGIN
    FOR out_row IN
        SELECT *
        FROM entity_note
        WHERE ref_key = in_entity_id
    LOOP
        RETURN NEXT out_row;
    END LOOP;
END;
$$ LANGUAGE PLPGSQL;
        
CREATE OR REPLACE FUNCTION company__next_id() returns bigint as $$
    
    select nextval('company_id_seq');
    
$$ language 'sql';

CREATE OR REPLACE FUNCTION company__location_save (
    in_company_id int,
    in_location_class int, in_line_one text, in_line_two text, 
    in_city_province TEXT, in_mail_code text, in_country_code int,
    in_created date
) returns int AS $$
    BEGIN
    return _entity_location_save(
        in_company_id,
        in_location_class, in_line_one, in_line_two, 
        in_city_province , in_mail_code, in_country_code,
        in_created);
    END;

$$ language 'plpgsql';

create or replace function _entity_location_save(
    in_entity_id int, in_location_id int,
    in_location_class int, in_line_one text, in_line_two text, 
    in_line_three text, in_city TEXT, in_state TEXT, in_mail_code text, 
    in_country_code int
) returns int AS $$

    DECLARE
        l_row location;
        l_id INT;
    t_company_id int;
    BEGIN
    SELECT id INTO t_company_id
    FROM company WHERE entity_id = in_entity_id;

    DELETE FROM company_to_location
    WHERE company_id = t_company_id
        AND location_class = in_location_class
        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_country_code) 
    INTO l_id;

    INSERT INTO company_to_location 
        (company_id, location_class, location_id)
    VALUES  (t_company_id, in_location_class, l_id);

    RETURN l_id;    
    END;

$$ language 'plpgsql';

-- COMMIT;