andy/mip
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Created new function to allow the association of enquiry to parties. Specifically for the association of Agents and suppliers to an enquiry.

Browse Source 
Added rough parties package that contains a couple of useful functions to get the party id and the party role based on the username. and some very rough procedures that may become depreceiated or rewritten at some stage

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@2859 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
PriestJ
2007-11-15 16:52:58 +00:00
parent f174ac7747
commit 0297cb54a2
2 changed files with 367 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
Modules/MIP_ENQUIRY.pck Normal file
View File

@@ -0,0 +1,43 @@
create or replace package MIP_ENQUIRY is
-- Author : PRIESTJ
-- Created : 15/11/2007 14:18:24
-- Purpose : Provides useful admin functions/procedures for enquiries
-- Public function and procedure declarations
FUNCTION set_enquiry_role(p_enquiryid in number,p_partyid in number,p_rolecode IN VARCHAR2)
RETURN boolean;
end MIP_ENQUIRY;
/
create or replace package body MIP_ENQUIRY is
/*
FUNCTION set_enquiry_role
- gets the enquiry id, party id and the role type and writes a record in the enquiry_roles table
- allowing you to assign agents, suppliers etc. to an enquiry.
%param p_enquiryid - the current enquiry to save the role against.
%param p_partyid - the user or party to assign to this role.
%param p_rolecode - what kind of role this will be.
*/
FUNCTION set_enquiry_role(p_enquiryid in number,p_partyid in number,p_rolecode IN VARCHAR2)
RETURN boolean as
begin
INSERT INTO enquiry_roles
(enqu_id, prty_id, rt_code)
VALUES
(p_enquiryid,
p_partyid,
p_rolecode);
return TRUE;
--
EXCEPTION
-- edit this to check for a 'unable to write record'
-- only and just pass on all other exceptions
WHEN OTHERS THEN
return FALSE;
RAISE;
end set_enquiry_role;
end MIP_ENQUIRY;
/

324
Modules/mip_parties.pck Normal file
View File

@@ -0,0 +1,324 @@
CREATE OR REPLACE PACKAGE mip_parties AS
/*
PROCEDURE add_party
- allows an admin user to create new parties for use in the system
%param p_username - the name of the user to create
%param p_password - the password of the party
%p_role - the party's role in the system
*/
FUNCTION get_user_id(p_username IN VARCHAR2)
RETURN NUMBER;
FUNCTION get_user_role(p_username IN VARCHAR2)
return varchar2;
PROCEDURE add_address(p_address addresses%ROWTYPE);
PROCEDURE add_partyaddress(p_addr_code IN VARCHAR2, p_prty_id IN INTEGER);
PROCEDURE add_partyrole(p_role_code IN VARCHAR2, p_prty_id IN NUMBER);
PROCEDURE add_partycontactmech(p_contact_mech IN VARCHAR2, p_prty_id IN NUMBER);
PROCEDURE add_party(p_role IN VARCHAR2,
p_username IN VARCHAR2,
p_created_by IN VARCHAR2,
p_name IN VARCHAR2,
p_mkpt_ref IN VARCHAR2,
p_shortcode IN VARCHAR2,
p_lt_7b_contract_ref IN VARCHAR2,
p_gt_7b_contract_ref IN VARCHAR2,
p_adversarial_contract_ref IN VARCHAR2,
p_manu_ref IN VARCHAR2,
p_description IN VARCHAR2,
p_status IN VARCHAR2,
p_first_name IN VARCHAR2,
p_last_name IN VARCHAR2,
p_personal_title IN VARCHAR2,
p_comments IN VARCHAR2,
p_addresscode IN VARCHAR2,
p_partyrole IN VARCHAR2,
p_partycontactmech IN VARCHAR2);
END mip_parties;
/
CREATE OR REPLACE PACKAGE BODY mip_parties AS
/*
FUNCTION get_user_id
- gets the primary key for a supplied username. This function searches the parties
- table for a matching username, if the name is found the users id is returned.
%param p_username - the name of the user you want to get the id for.
*/
FUNCTION get_user_id(p_username IN VARCHAR2) return NUMBER as userid NUMBER;
cursor c_userid is select id from parties where USERNAME = p_username;
begin
open c_userid;
fetch c_userid into userid;
close c_userid;
return userid;
exception
when others then return null;
end get_user_id;
/*
FUNCTION get_user_role
- gets the role keycode for a supplied username. This function searches the parties
- table for a matching username, if the name is found the users id is returned.
- That id is used to search the party_roles table to get the role keycode.
%param p_username - the name of the user you want to get the id for.
*/
FUNCTION get_user_role(p_username IN VARCHAR2) return varchar2 as rolecode varchar2(80);
cursor c_userrole is select rt_code from party_roles where PRTY_ID = get_user_id(p_username);
begin
open c_userrole;
fetch c_userrole into rolecode;
close c_userrole;
return rolecode;
exception
when others then return null;
end get_user_role;
PROCEDURE add_address(p_address addresses%ROWTYPE) AS
--
BEGIN
--
--not implemented yet - will allow us to check the password is valid based on rule in the functional spec
-- check_password(p_password);
INSERT INTO addresses
(code, sub_building, building, street, city, postcode)
VALUES
(to_char(prty_seq.NEXTVAL),
p_address.sub_building,
p_address.building,
p_address.street,
p_address.city,
p_address.postcode);
COMMIT;
--
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
RAISE;
END add_address;
/*
PROCEDURE add_party
- allows an admin user to create new parties for use in the system
%param p_username - the name of the user to create
%param p_password - the password of the party
%p_role - the party's role in the system
*/
--
PROCEDURE add_party(p_role IN VARCHAR2,
p_username IN VARCHAR2,
p_created_by IN VARCHAR2,
p_name IN VARCHAR2,
p_mkpt_ref IN VARCHAR2,
p_shortcode IN VARCHAR2,
p_lt_7b_contract_ref IN VARCHAR2,
p_gt_7b_contract_ref IN VARCHAR2,
p_adversarial_contract_ref IN VARCHAR2,
p_manu_ref IN VARCHAR2,
p_description IN VARCHAR2,
p_status IN VARCHAR2,
p_first_name IN VARCHAR2,
p_last_name IN VARCHAR2,
p_personal_title IN VARCHAR2,
p_comments IN VARCHAR2,
p_addresscode IN VARCHAR2,
p_partyrole IN VARCHAR2,
p_partycontactmech IN VARCHAR2) AS
--
partyid NUMBER;
BEGIN
--
--not implemented yet - will allow us to check the password is valid based on rule in the functional spec
-- check_password(p_password);
INSERT INTO parties
(id,
username,
prty_type,
created_on,
created_by,
name,
mktp_ref,
shortcode,
lt_7b_contract_ref,
gt_7b_contract_ref,
adversarial_contract_ref,
manu_ref,
description,
status,
first_name,
last_name,
personal_title,
comments)
VALUES
(prty_seq.NEXTVAL,
upper(p_username),
--get_hash(TRIM(p_username), p_password),
--will need to call matts get_hash routine once he's added
--it into the new schema
upper(p_role),
SYSDATE,
p_created_by,
p_name,
p_mkpt_ref,
p_shortcode,
p_lt_7b_contract_ref,
p_gt_7b_contract_ref,
p_adversarial_contract_ref,
p_manu_ref,
p_description,
p_status,
p_first_name,
p_last_name,
p_personal_title,
p_comments
)
RETURNING parties.id INTO partyid;
--COMMIT;
--call the partyaddress to fill in the link between the party and the address
if p_addresscode IS NOT NULL then
add_partyaddress(p_addresscode, partyid);
end if;
-- call the party role to fill in the link between party and the role
if p_partyrole IS NOT NULL then
add_partyrole(p_partyrole, partyid);
end if;
-- call the party contact mechanism to link the party to a contact mech
if p_partycontactmech IS NOT NULL then
add_partycontactmech(p_partycontactmech, partyid);
end if;
--
END add_party;
/*
PROCEDURE add_partyaddress
- allows the association of a party to a number of addresses
%param p_username - the name of the user to create
%param p_password - the password of the party
%p_role - the party's role in the system
*/
--
PROCEDURE add_partyaddress(p_addr_code IN VARCHAR2, p_prty_id IN INTEGER) AS
--
l_addr_code addresses.code%TYPE;
l_working_code addresses.code%TYPE;
--
BEGIN
l_addr_code := p_addr_code || ':';
--not implemented yet - will allow us to check the password is valid based on rule in the functional spec
-- check_password(p_password);
LOOP
--
l_working_code := SUBSTR(l_addr_code, 1, INSTR(l_addr_code, ':')-1);
--
IF l_working_code IS NULL THEN
EXIT;
END IF;
--
INSERT INTO party_addresses
(addr_code, prty_id, start_date, end_date, comments)
VALUES
(l_working_code, p_prty_id, SYSDATE, SYSDATE, 'The comments field');
--
l_addr_code := SUBSTR(l_addr_code, INSTR(l_addr_code, ':')+1);
--
END LOOP;
--
END add_partyaddress;
PROCEDURE add_partyrole(p_role_code IN VARCHAR2, p_prty_id IN NUMBER) AS
--
BEGIN
--
INSERT INTO party_roles
(id, rt_code, prty_id, start_date, end_date, description)
VALUES
(prty_seq.NEXTVAL, p_role_code, p_prty_id, SYSDATE, SYSDATE, 'createwd via plsql procedure add_partyrole');
COMMIT;
--
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
RAISE;
END add_partyrole;
/*
PROCEDURE add_partycontactmech
- allows the association of a party to a number of addresses
%param p_contact_mech - the name of the contact mechanism code
%param p_prty_id - the party's id
*/
--
PROCEDURE add_partycontactmech(p_contact_mech IN VARCHAR2, p_prty_id IN NUMBER) AS
--
l_contact_mech contact_mechanisms.comt_code%TYPE;
l_working_code contact_mechanisms.comt_code%TYPE;
comeid contact_mechanisms.id%TYPE;
--l_contact_mech_role contact_mechanisms.comt_code%TYPE;
--l_working_role contact_mechanisms.comt_code%TYPE;
--pcmr_id party_contact_mechanism_roles.id%TYPE
--
-- get the contact mech type
-- create a new contact mech using the type code
-- create a new party contact mech from the partyid and the newly created contact mech
BEGIN
l_contact_mech := p_contact_mech || ':';
LOOP
--
l_working_code := SUBSTR(l_contact_mech, 1, INSTR(l_contact_mech, ':')-1);
--
IF l_working_code IS NULL THEN
EXIT;
END IF;
--
-- Create the Contact mechanism
INSERT INTO contact_mechanisms
--
(comt_code, contact_value, id)
VALUES
(l_working_code,
'dunno what this field is for',
come_seq.nextval) RETURNING contact_mechanisms.id INTO comeid;
/*-- Create the Party contact mechanism role
--Think this needs to be sorted out much like the contact mechanism listed
--above, however not sure about the model and what AH intended
INSERT INTO party_contact_mechanism_roles
--
(pcmrt_code, pcm_prty_id, start_date, id)
VALUES
(l_working_role,
p_prty_id,
sysdate,
MADEUPSEQPROBABLY CALLED-PCMR_seq.nextval) RETURNING party_contact_mechanism_roles.id INTO pcmr_id;*/
INSERT INTO party_contact_mechanisms
--should be the come_id i think!
(come_id, prty_id, start_date, end_date, comments)
VALUES
(comeid, p_prty_id, SYSDATE, SYSDATE, 'The comments field');
--
l_contact_mech := SUBSTR(l_contact_mech, INSTR(l_contact_mech, ':')+1);
--
END LOOP;
--
END add_partycontactmech;
--
--
END mip_parties;
/