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

Add module Qmax to bulk load process and quotation generation.

Browse Source 
Add tripartite_agreement_message to mip_quotation.pck (supported by mip_tripartite.pck). Produces a message when enquiry does not meet tripartite requirements.

Removed extraneous role types for Seed/prtp.ctl and Seed/rt.ctl.

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@3497 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
hardya
2008-02-08 12:25:46 +00:00
parent ee3dcd0ad9
commit 224e841305
10 changed files with 774 additions and 406 deletions
Download Patch File Download Diff File Expand all files Collapse all files

294
Modules/mip_bulk_load.pck
View File

@@ -343,11 +343,11 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
(SELECT code
,'Inserted for load_modules'
FROM (SELECT DISTINCT code
FROM (SELECT upper(field_2) AS code
FROM v_complete_ext_modules
FROM (SELECT upper(inlet_cnty_code) AS code
FROM ext_modules
UNION
SELECT upper(field_3)
FROM v_complete_ext_modules))
SELECT upper(outlet_cnty_code)
FROM ext_modules))
WHERE code NOT IN (SELECT code
FROM connection_types));
@@ -359,9 +359,9 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,description)
(SELECT code
,'Inserted for load_modules'
FROM (SELECT DISTINCT upper(field_4) AS code
FROM v_complete_ext_modules
WHERE field_4 IS NOT NULL)
FROM (SELECT DISTINCT upper(drwg_code) AS code
FROM ext_modules
WHERE drwg_code IS NOT NULL)
WHERE code NOT IN (SELECT code
FROM drawings));
@@ -382,8 +382,8 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,'MANU'
,SYSDATE
,USER
FROM (SELECT DISTINCT upper(field_30) AS manu_ref
FROM v_complete_ext_modules)
FROM (SELECT DISTINCT upper(manu_ref) AS manu_ref
FROM ext_modules)
WHERE manu_ref NOT IN (SELECT manu_ref
FROM parties
WHERE prty_type = 'MANU'));
@@ -417,9 +417,9 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,.999
,.999
,trunc(SYSDATE)
FROM (SELECT DISTINCT nvl(upper(field_5)
FROM (SELECT DISTINCT nvl(upper(metr_code)
,'UNKNOWN') AS code
FROM v_complete_ext_modules)
FROM ext_modules)
WHERE code NOT IN (SELECT code
FROM meters));
@@ -436,8 +436,9 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,'UNKNOWN'
,999
,999
FROM (SELECT DISTINCT upper(field_6) AS code
FROM v_complete_ext_modules)
FROM (SELECT DISTINCT upper(reva_code) AS code
FROM ext_modules
WHERE reva_code IS NOT NULL)
WHERE code NOT IN (SELECT code
FROM relief_valves));
@@ -453,8 +454,9 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,'UNKNOWN'
,999
,999
FROM (SELECT DISTINCT upper(field_7) AS code
FROM v_complete_ext_modules)
FROM (SELECT DISTINCT upper(slva_code) AS code
FROM ext_modules
WHERE slva_code IS NOT NULL)
WHERE code NOT IN (SELECT code
FROM slamshut_valves));
@@ -469,8 +471,8 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
(SELECT code
,'UNKNOWN'
,'Inserted for load_modules'
FROM (SELECT DISTINCT upper(field_8) AS code
FROM v_complete_ext_modules)
FROM (SELECT DISTINCT upper(svcp_code) AS code
FROM ext_modules)
WHERE code NOT IN (SELECT code
FROM service_pressures));
@@ -505,9 +507,9 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,999
,999
,999
FROM (SELECT DISTINCT upper(field_15) AS code
FROM v_complete_ext_modules
WHERE field_15 IS NOT NULL)
FROM (SELECT DISTINCT upper(bas_code) AS code
FROM ext_modules
WHERE bas_code IS NOT NULL)
WHERE code NOT IN (SELECT code
FROM bases));
@@ -534,9 +536,9 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,999
,999
,999
FROM (SELECT DISTINCT upper(field_16) AS code
FROM v_complete_ext_modules
WHERE field_16 IS NOT NULL)
FROM (SELECT DISTINCT upper(hou_code) AS code
FROM ext_modules
WHERE hou_code IS NOT NULL)
WHERE code NOT IN (SELECT code
FROM housings));
@@ -555,9 +557,9 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,'Inserted for load_modules'
,999
,999
FROM (SELECT DISTINCT upper(field_25) AS code
FROM v_complete_ext_modules
WHERE field_25 IS NOT NULL)
FROM (SELECT DISTINCT upper(regu_code) AS code
FROM ext_modules
WHERE regu_code IS NOT NULL)
WHERE code NOT IN (SELECT code
FROM regulators));
@@ -572,9 +574,9 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
(SELECT code
,'UNKNOWN'
,999
FROM (SELECT DISTINCT upper(field_26) AS code
FROM v_complete_ext_modules
WHERE field_26 IS NOT NULL)
FROM (SELECT DISTINCT upper(fltr_code) AS code
FROM ext_modules
WHERE fltr_code IS NOT NULL)
WHERE code NOT IN (SELECT code
FROM filters));
@@ -588,11 +590,11 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
(SELECT code
,'Inserted for load_modules'
FROM (SELECT DISTINCT code
FROM (SELECT upper(field_27) AS code
FROM v_complete_ext_modules
FROM (SELECT upper(inlet_cnor_code) AS code
FROM ext_modules
UNION
SELECT upper(field_28)
FROM v_complete_ext_modules)
SELECT upper(outlet_cnor_code)
FROM ext_modules)
WHERE code IS NOT NULL)
WHERE code NOT IN (SELECT code
FROM connection_orientations));
@@ -601,148 +603,150 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,'FM099G999G999') || ': connection_orientations');
MERGE INTO modules modu
USING (SELECT upper(field_1) AS field_1
,upper(field_2) AS field_2
,upper(field_3) AS field_3
,upper(field_4) AS field_4 -- drwg_code
,upper(field_5) AS field_5
,upper(field_6) AS field_6
,upper(field_7) AS field_7
,upper(field_8) AS field_8
,field_9
,field_10
,field_11
,field_12
,field_13
,field_14
,upper(field_15) AS field_15 -- base
,upper(field_16) AS field_16 -- housing
,field_17
,field_18
,field_19
,field_20
,field_21
,field_22
USING (SELECT upper(code) AS code
,upper(outlet_cnty_code) AS outlet_cnty_code
,upper(inlet_cnty_code) AS inlet_cnty_code
,upper(drwg_code) AS drwg_code
,upper(metr_code) AS metr_code
,upper(nvl(reva_code
,'UNKNOWN')) AS reva_code
,upper(nvl(slva_code
,'UNKNOWN')) AS slva_code
,upper(svcp_code) AS svcp_code
,weight
,inlet_height
,inlet_size
,outlet_pressure
,outlet_height
,outlet_size
,upper(bas_code) AS bas_code
,upper(hou_code) AS hou_code
,dim_a
,dim_b
,dim_c
,dim_d
,dim_e
,dim_h
,CASE
WHEN field_23 IS NULL THEN
WHEN valid_from IS NULL THEN
trunc(SYSDATE)
ELSE
to_date(field_23
to_date(valid_from
,'dd/mm/yyyy')
END AS field_23
END AS valid_from
,CASE
WHEN field_24 IS NULL THEN
WHEN valid_to IS NULL THEN
NULL
ELSE
to_date(field_24
to_date(valid_to
,'dd/mm/yyyy')
END AS field_24
,upper(field_25) AS field_25 -- regu_code
,upper(field_26) AS field_26 -- fltr_code
,upper(field_27) AS field_27 -- inlet connection orientation
,upper(field_28) AS field_28 -- outlet ...
,field_29
,p.id AS field_30 -- MANU_REF
FROM v_complete_ext_modules
,parties p
WHERE p.manu_ref = upper(field_30)
END AS valid_to
,upper(regu_code) AS regu_code
,upper(fltr_code) AS fltr_code
,upper(inlet_cnor_code) AS inlet_cnor_code
,upper(outlet_cnor_code) AS outlet_cnor_code
,lead_time
,p.id AS prty_id
,qmax
FROM ext_modules e
,parties p
WHERE p.manu_ref = upper(e.manu_ref)
AND p.prty_type = 'MANU') e
ON (e.field_1 = modu.code)
ON (upper(e.code) = modu.code)
WHEN MATCHED THEN
UPDATE
SET outlet_cnty_code = e.field_2
,inlet_cnty_code = e.field_3
,drwg_code = e.field_4
,metr_code = e.field_5
,reva_code = e.field_6
,slva_code = e.field_7
,svcp_code = e.field_8
,weight = e.field_9
,inlet_height = e.field_10
,inlet_size = e.field_11
,outlet_pressure = e.field_12
,outlet_height = e.field_13
,outlet_size = e.field_14
,bas_code = e.field_15
,hou_code = e.field_16
,dim_a = e.field_17
,dim_b = e.field_18
,dim_c = e.field_19
,dim_e = e.field_20
,dim_h = e.field_22
,valid_from = e.field_23
,valid_to = e.field_24
,regu_code = e.field_25
,fltr_code = e.field_26
,inlet_cnor_code = e.field_27
,outlet_cnor_code = e.field_28
,lead_time = e.field_29
,prty_id = e.field_30
SET outlet_cnty_code = e.outlet_cnty_code
,inlet_cnty_code = e.inlet_cnty_code
,drwg_code = e.drwg_code
,metr_code = e.metr_code
,reva_code = e.reva_code
,slva_code = e.slva_code
,svcp_code = e.svcp_code
,weight = e.weight
,inlet_height = e.inlet_height
,inlet_size = e.inlet_size
,outlet_pressure = e.outlet_pressure
,outlet_height = e.outlet_height
,outlet_size = e.outlet_size
,bas_code = e.bas_code
,hou_code = e.hou_code
,dim_a = e.dim_a
,dim_b = e.dim_b
,dim_c = e.dim_c
,dim_e = e.dim_e
,dim_h = e.dim_h
,valid_from = e.valid_from
,valid_to = e.valid_to
,regu_code = e.regu_code
,fltr_code = e.fltr_code
,inlet_cnor_code = e.inlet_cnor_code
,outlet_cnor_code = e.outlet_cnor_code
,lead_time = e.lead_time
,prty_id = e.prty_id
,qmax = e.qmax
WHEN NOT MATCHED THEN
INSERT
(code
,drwg_code
,fltr_code
,inlet_cnor_code
,inlet_cnty_code
,metr_code
,outlet_cnor_code
,outlet_cnty_code
,prty_id
,regu_code
,inlet_cnty_code
,drwg_code
,metr_code
,reva_code
,slva_code
,svcp_code
,lead_time
,weight
,inlet_height
,inlet_size
,outlet_pressure
,outlet_height
,outlet_size
,bas_code
,hou_code
,dim_a
,dim_b
,dim_c
,dim_d
,dim_e
,dim_h
,valid_from
,bas_code
,hou_code
,valid_to)
,valid_to
,regu_code
,fltr_code
,inlet_cnor_code
,outlet_cnor_code
,lead_time
,prty_id
,qmax)
VALUES
(e.field_1
,e.field_4
,e.field_26
,e.field_27
,e.field_3
,e.field_5
,e.field_28
,e.field_2 -- outlet_cnty_code
,e.field_30
,e.field_25
,e.field_6
,e.field_7
,e.field_8
,e.field_29
,e.field_9
,e.field_10
,e.field_11 -- inlet size
,e.field_12
,e.field_13
,e.field_14
,e.field_17
,e.field_18
,e.field_19
,e.field_20
,e.field_21
,e.field_22
,e.field_23
,e.field_15
,e.field_16
,e.field_24) log errors reject LIMIT unlimited;
(e.code
,e.outlet_cnty_code
,e.inlet_cnty_code
,e.drwg_code
,e.metr_code
,e.reva_code
,e.slva_code
,e.svcp_code
,e.weight
,e.inlet_height
,e.inlet_size
,e.outlet_pressure
,e.outlet_height
,e.outlet_size
,e.bas_code
,e.hou_code
,e.dim_a
,e.dim_b
,e.dim_c
,e.dim_e
,e.dim_h
,e.valid_from
,e.valid_to
,e.regu_code
,e.fltr_code
,e.inlet_cnor_code
,e.outlet_cnor_code
,e.lead_time
,e.prty_id
,e.qmax) log errors reject LIMIT unlimited;
pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': modules');
@@ -1375,7 +1379,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,e.mety_code) log errors reject LIMIT unlimited;
pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') ||': '|| l_enty.code || ':NETW0' ||
,'FM099G999G999') || ': ' || l_enty.code || ':NETW0' ||
l_network || ': labour');
END LOOP;