diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/APPA.PKB b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/APPA.PKB deleted file mode 100644 index 5bd8f93..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/APPA.PKB +++ /dev/null @@ -1,986 +0,0 @@ - -PROMPT Creating API Package Body for Table 'APPLICATION_PARAMETERS' --------------------------------------------------------------------------------- --- Name: cg$APPLICATION_PARAMETERS --- Description: APPLICATION_PARAMETERS table API package definitions --------------------------------------------------------------------------------- -CREATE OR REPLACE PACKAGE BODY cg$APPLICATION_PARAMETERS IS - -PROCEDURE validate_mandatory(cg$val_rec IN cg$row_type, - loc IN VARCHAR2 DEFAULT ''); -PROCEDURE up_autogen_columns(cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - operation IN VARCHAR2 DEFAULT 'INS', - do_denorm IN BOOLEAN DEFAULT TRUE); -PROCEDURE err_msg(msg IN VARCHAR2, - type IN INTEGER, - loc IN VARCHAR2 DEFAULT ''); - --------------------------------------------------------------------------------- --- Name: raise_uk_not_updateable --- --- Description: Raise appropriate error when unique key updated --- --- Parameters: none --------------------------------------------------------------------------------- -PROCEDURE raise_uk_not_updateable(uk IN VARCHAR2) IS -BEGIN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_UNIQUE_KEY_UPDATE, cg$errors.ERR_UK_UPDATE, uk), - 'E', - 'API', - cg$errors.API_UNIQUE_KEY_UPDATE, - 'cg$APPLICATION_PARAMETERS.raise_uk_not_updateable'); - cg$errors.raise_failure; -END raise_uk_not_updateable; - - --------------------------------------------------------------------------------- --- Name: raise_fk_not_transferable --- --- Description: Raise appropriate error when foreign key updated --- --- Parameters: none --------------------------------------------------------------------------------- -PROCEDURE raise_fk_not_transferable(fk IN VARCHAR2) IS -BEGIN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_FOREIGN_KEY_TRANS, cg$errors.ERR_FK_TRANS, fk), - 'E', - 'API', - cg$errors.API_FOREIGN_KEY_TRANS, - 'cg$APPLICATION_PARAMETERS.raise_fk_not_transferable'); - cg$errors.raise_failure; -END raise_fk_not_transferable; - - --------------------------------------------------------------------------------- --- Name: up_autogen_columns --- --- Description: Specific autogeneration of column values and conversion to --- uppercase --- --- Parameters: cg$rec Record of row to be manipulated --- cg$ind Indicators for row --- operation Procedure where this procedure was called --------------------------------------------------------------------------------- -PROCEDURE up_autogen_columns(cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - operation IN VARCHAR2 DEFAULT 'INS', - do_denorm IN BOOLEAN DEFAULT TRUE) IS -BEGIN - IF (operation = 'INS') THEN - BEGIN - IF (cg$ind.APPA_ID = FALSE - OR cg$rec.APPA_ID is NULL) THEN - SELECT APPA_SEQ.nextval - INTO cg$rec.APPA_ID - FROM DUAL; - cg$ind.APPA_ID := TRUE; - END IF; - EXCEPTION WHEN others THEN - cg$errors.push(SQLERRM, 'E', 'ORA', SQLCODE, - 'cg$APPLICATION_PARAMETERS.up_autogen.APPA_ID.OTHERS'); - cg$errors.raise_failure; - END; - NULL; - ELSE -- (operation = 'UPD') - NULL; - END IF; -- (operation = 'INS') ELSE (operation = 'UPD') - - -- Statements executed for both 'INS' and 'UPD' - - -EXCEPTION - WHEN no_data_found THEN - NULL; - WHEN others THEN - cg$errors.push( SQLERRM, 'E', 'ORA', SQLCODE, - 'cg$APPLICATION_PARAMETERS.up_autogen_columns'); - cg$errors.raise_failure; -END up_autogen_columns; - - --------------------------------------------------------------------------------- --- Name: validate_mandatory --- --- Description: Checks all mandatory columns are not null and raises appropriate --- error if not satisfied --- --- Parameters: cg$val_rec Record of row to be checked --- loc Place where this procedure was called for error --- trapping --------------------------------------------------------------------------------- -PROCEDURE validate_mandatory(cg$val_rec IN cg$row_type, - loc IN VARCHAR2 DEFAULT '') IS -BEGIN - IF (cg$val_rec.APPA_ID IS NULL) THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_MAND_COLUMN_ISNULL, cg$errors.VAL_MAND, P10APPA_ID), - 'E', - 'API', - cg$errors.API_MAND_COLUMN_ISNULL, - loc); - END IF; - IF (cg$val_rec.PARAMETER IS NULL) THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_MAND_COLUMN_ISNULL, cg$errors.VAL_MAND, P20PARAMETER), - 'E', - 'API', - cg$errors.API_MAND_COLUMN_ISNULL, - loc); - END IF; - NULL; -END validate_mandatory; - - --------------------------------------------------------------------------------- --- Name: validate_foreign_keys --- --- Description: Checks all mandatory columns are not null and raises appropriate --- error if not satisfied --- --- Parameters: cg$rec Record of row to be checked --------------------------------------------------------------------------------- -PROCEDURE validate_foreign_keys_ins(cg$rec IN cg$row_type) IS - fk_check INTEGER; -BEGIN -NULL; -END; - -PROCEDURE validate_foreign_keys_upd( cg$rec IN cg$row_type, - cg$old_rec IN cg$row_type, - cg$ind IN cg$ind_type) IS - fk_check INTEGER; -BEGIN -NULL; -END; - -PROCEDURE validate_foreign_keys_del(cg$rec IN cg$row_type) IS - fk_check INTEGER; -BEGIN -NULL; -END; - - --------------------------------------------------------------------------------- --- Name: slct --- --- Description: Selects into the given parameter all the attributes for the row --- given by the primary key --- --- Parameters: cg$sel_rec Record of row to be selected into using its PK --------------------------------------------------------------------------------- -PROCEDURE slct(cg$sel_rec IN OUT cg$row_type) IS - -BEGIN - - IF cg$sel_rec.the_rowid is null THEN - SELECT APPA_ID - , PARAMETER - , VALUE - , DESCRIPTION - , rowid - INTO cg$sel_rec.APPA_ID - , cg$sel_rec.PARAMETER - , cg$sel_rec.VALUE - , cg$sel_rec.DESCRIPTION - ,cg$sel_rec.the_rowid - FROM APPLICATION_PARAMETERS - WHERE APPA_ID = cg$sel_rec.APPA_ID; - ELSE - SELECT APPA_ID - , PARAMETER - , VALUE - , DESCRIPTION - , rowid - INTO cg$sel_rec.APPA_ID - , cg$sel_rec.PARAMETER - , cg$sel_rec.VALUE - , cg$sel_rec.DESCRIPTION - ,cg$sel_rec.the_rowid - FROM APPLICATION_PARAMETERS - WHERE rowid = cg$sel_rec.the_rowid; - END IF; - -EXCEPTION WHEN OTHERS THEN - cg$errors.push(SQLERRM, - 'E', - 'ORA', - SQLCODE, - 'cg$APPLICATION_PARAMETERS.slct.others'); - cg$errors.raise_failure; - -END slct; - - --------------------------------------------------------------------------------- --- Name: cascade_update --- --- Description: Updates all child tables affected by a change to APPLICATION_PARAMETERS --- --- Parameters: cg$rec Record of APPLICATION_PARAMETERS current values --- cg$old_rec Record of APPLICATION_PARAMETERS previous values --------------------------------------------------------------------------------- -PROCEDURE cascade_update(cg$new_rec IN OUT cg$row_type, - cg$old_rec IN cg$row_type) IS -BEGIN - NULL; -END cascade_update; - - --------------------------------------------------------------------------------- --- Name: validate_domain_cascade_update --- --- Description: Implement the Domain Key Constraint Cascade Updates Resticts rule --- of each child table that references this tableAPPLICATION_PARAMETERS --- --- Parameters: cg$old_rec Record of APPLICATION_PARAMETERS current values --------------------------------------------------------------------------------- -PROCEDURE validate_domain_cascade_update( cg$old_rec IN cg$row_type ) IS - dk_check INTEGER; -BEGIN - NULL; -END validate_domain_cascade_update; - - ------------------------------------------------------------------------------------------ --- Name: domain_cascade_update --- --- Description: Implement the Domain Key Constraint Cascade Updates rules of each --- child table that references this table APPLICATION_PARAMETERS --- --- Parameters: cg$new_rec New values for APPLICATION_PARAMETERS's domain key constraint columns --- cg$new_ind Indicates changed APPLICATION_PARAMETERS's domain key constraint columns --- cg$old_rec Current values for APPLICATION_PARAMETERS's domain key constraint columns ------------------------------------------------------------------------------------------ -PROCEDURE domain_cascade_update(cg$new_rec IN OUT cg$row_type, - cg$new_ind IN OUT cg$ind_type, - cg$old_rec IN cg$row_type) IS -BEGIN - NULL; -END domain_cascade_update; - - --------------------------------------------------------------------------------- --- Name: cascade_delete --- --- Description: Delete all child tables affected by a delete to APPLICATION_PARAMETERS --- --- Parameters: cg$rec Record of APPLICATION_PARAMETERS current values --------------------------------------------------------------------------------- -PROCEDURE cascade_delete(cg$old_rec IN OUT cg$row_type) -IS -BEGIN - NULL; -END cascade_delete; - --------------------------------------------------------------------------------- --- Name: domain_cascade_delete --- --- Description: Implement the Domain Key Constraint Cascade Delete rules of each --- child table that references this tableAPPLICATION_PARAMETERS --- --- Parameters: cg$old_rec Record of APPLICATION_PARAMETERS current values --------------------------------------------------------------------------------- -PROCEDURE domain_cascade_delete( cg$old_rec IN cg$row_type ) -IS -BEGIN - NULL; -END domain_cascade_delete; - - --------------------------------------------------------------------------------- --- Name: validate_domain_cascade_delete --- --- Description: Implement the Domain Key Constraint Cascade Delete Restricts rule --- of each child table that references this tableAPPLICATION_PARAMETERS --- --- Parameters: cg$old_rec Record of APPLICATION_PARAMETERS current values --------------------------------------------------------------------------------- -PROCEDURE validate_domain_cascade_delete(cg$old_rec IN cg$row_type) -IS - dk_check INTEGER; -BEGIN - NULL; -END validate_domain_cascade_delete; - - - --------------------------------------------------------------------------------- --- Name: validate_arc --- --- Description: Checks for adherence to arc relationship --- --- Parameters: cg$rec Record of APPLICATION_PARAMETERS current values --------------------------------------------------------------------------------- -PROCEDURE validate_arc(cg$rec IN OUT cg$row_type) IS -i NUMBER; -BEGIN - NULL; -END validate_arc; - - --------------------------------------------------------------------------------- --- Name: validate_domain --- --- Description: Checks against reference table for values lying in a domain --- --- Parameters: cg$rec Record of APPLICATION_PARAMETERS current values --------------------------------------------------------------------------------- -PROCEDURE validate_domain(cg$rec IN OUT cg$row_type, - cg$ind IN cg$ind_type DEFAULT cg$ind_true) -IS - dummy NUMBER; - found BOOLEAN; - no_tabview EXCEPTION; - PRAGMA EXCEPTION_INIT(no_tabview, -942); -BEGIN - - - - - - - NULL; - -EXCEPTION - WHEN cg$errors.cg$error THEN - cg$errors.raise_failure; - WHEN no_tabview THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_RV_TAB_NOT_FOUND, - cg$errors.APIMSG_RV_TAB_NOT_FOUND, - 'CG_REF_CODES','APPLICATION_PARAMETERS'), - 'E', - 'API', - cg$errors.API_RV_TAB_NOT_FOUND, - 'cg$APPLICATION_PARAMETERS.v_domain.no_reftable_found'); - cg$errors.raise_failure; - WHEN OTHERS THEN - cg$errors.push(SQLERRM, - 'E', - 'ORA', - SQLCODE, - 'cg$APPLICATION_PARAMETERS.v_domain.others'); - cg$errors.raise_failure; -END validate_domain; - - --------------------------------------------------------------------------------- --- Name: err_msg --- --- Description: Pushes onto stack appropriate user defined error message --- depending on the rule violated --- --- Parameters: msg Oracle error message --- type Type of violation e.g. check_constraint: ERR_CHECK_CON --- loc Place where this procedure was called for error --- trapping --------------------------------------------------------------------------------- -PROCEDURE err_msg(msg IN VARCHAR2, - type IN INTEGER, - loc IN VARCHAR2 DEFAULT '') IS -con_name VARCHAR2(240); -BEGIN - con_name := cg$errors.parse_constraint(msg, type); - IF (con_name = 'APPA_PK') THEN - cg$errors.push(nvl(APPA_PK - ,cg$errors.MsgGetText(cg$errors.API_PK_CON_VIOLATED - ,cg$errors.APIMSG_PK_VIOLAT - ,'APPA_PK' - ,'APPLICATION_PARAMETERS')), - 'E', - 'API', - cg$errors.API_PK_CON_VIOLATED, - loc); - ELSIF (con_name = 'APPA_UK') THEN - cg$errors.push(nvl(APPA_UK - ,cg$errors.MsgGetText(cg$errors.API_UQ_CON_VIOLATED - ,cg$errors.APIMSG_UK_VIOLAT - ,'APPA_UK' - ,'APPLICATION_PARAMETERS')), - 'E', - 'API', - cg$errors.API_UQ_CON_VIOLATED, - loc); - - ELSE - cg$errors.push(SQLERRM, - 'E', - 'ORA', - SQLCODE, - loc); - END IF; -END err_msg; - - - - --------------------------------------------------------------------------------- --- Name: doLobs --- --- Description: This function is updating lob columns --- --- Parameters: cg$rec Record of row to be inserted --- cg$ind Record of columns specifically set --------------------------------------------------------------------------------- -PROCEDURE doLobs(cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type) IS -BEGIN - NULL; -END doLobs; - - --------------------------------------------------------------------------------- --- Name: ins --- --- Description: API insert procedure --- --- Parameters: cg$rec Record of row to be inserted --- cg$ind Record of columns specifically set --- do_ins Whether we want the actual INSERT to occur --------------------------------------------------------------------------------- -PROCEDURE ins(cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - do_ins IN BOOLEAN DEFAULT TRUE) IS -cg$tmp_rec cg$row_type; - --- Constant default values - - -BEGIN --- Application_logic Pre-Insert <> --- Application_logic Pre-Insert << End >> - --- Defaulted - --- Auto-generated and uppercased columns - - up_autogen_columns(cg$rec, cg$ind, 'INS', do_ins); - - called_from_package := TRUE; - - IF (do_ins) THEN - validate_foreign_keys_ins(cg$rec); - validate_arc(cg$rec); - validate_domain(cg$rec); - - INSERT INTO APPLICATION_PARAMETERS - (APPA_ID - ,PARAMETER - ,VALUE - ,DESCRIPTION) - VALUES - (cg$rec.APPA_ID - ,cg$rec.PARAMETER - ,cg$rec.VALUE - ,cg$rec.DESCRIPTION -); - doLobs(cg$rec, cg$ind); - slct(cg$rec); - - upd_oper_denorm2(cg$rec, cg$tmp_rec, cg$ind, 'INS'); - END IF; - - called_from_package := FALSE; - - - --- Application logic Post-Insert <> --- Application logic Post-Insert << End >> - -EXCEPTION - WHEN cg$errors.cg$error THEN - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.mandatory_missing THEN - validate_mandatory(cg$rec, 'cg$APPLICATION_PARAMETERS.ins.mandatory_missing'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.check_violation THEN - err_msg(SQLERRM, cg$errors.ERR_CHECK_CON, 'cg$APPLICATION_PARAMETERS.ins.check_violation'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.fk_violation THEN - err_msg(SQLERRM, cg$errors.ERR_FOREIGN_KEY, 'cg$APPLICATION_PARAMETERS.ins.fk_violation'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.uk_violation THEN - err_msg(SQLERRM, cg$errors.ERR_UNIQUE_KEY, 'cg$APPLICATION_PARAMETERS.ins.uk_violation'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN OTHERS THEN - cg$errors.push(SQLERRM, - 'E', - 'ORA', - SQLCODE, - 'cg$APPLICATION_PARAMETERS.ins.others'); - called_from_package := FALSE; - cg$errors.raise_failure; -END ins; - - --------------------------------------------------------------------------------- --- Name: upd --- --- Description: API update procedure --- --- Parameters: cg$rec Record of row to be updated --- cg$ind Record of columns specifically set --- do_upd Whether we want the actual UPDATE to occur --------------------------------------------------------------------------------- -PROCEDURE upd(cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - do_upd IN BOOLEAN DEFAULT TRUE, - cg$pk IN cg$row_type DEFAULT NULL ) -IS - cg$upd_rec cg$row_type; - cg$old_rec cg$row_type; - RECORD_LOGGED BOOLEAN := FALSE; -BEGIN --- Application_logic Pre-Update <> --- Application_logic Pre-Update << End >> - - - IF ( cg$pk.APPA_ID IS NULL ) THEN - cg$upd_rec.APPA_ID := cg$rec.APPA_ID; - ELSE - cg$upd_rec.APPA_ID := cg$pk.APPA_ID; - END IF; - cg$old_rec.APPA_ID := cg$upd_rec.APPA_ID; - - IF ( cg$pk.the_rowid IS NULL ) THEN - cg$upd_rec.the_rowid := cg$rec.the_rowid; - ELSE - cg$upd_rec.the_rowid := cg$pk.the_rowid; - END IF; - cg$old_rec.the_rowid := cg$upd_rec.the_rowid; - - IF ( do_upd ) THEN - - slct(cg$upd_rec); - - - -- Report error if attempt to update non updateable Primary Key APPA_PK - IF (cg$ind.APPA_ID AND cg$rec.APPA_ID != cg$upd_rec.APPA_ID) THEN - raise_uk_not_updateable('APPA_PK'); - END IF; - IF NOT (cg$ind.APPA_ID) THEN - cg$rec.APPA_ID := cg$upd_rec.APPA_ID; - END IF; - IF NOT (cg$ind.PARAMETER) THEN - cg$rec.PARAMETER := cg$upd_rec.PARAMETER; - END IF; - IF NOT (cg$ind.VALUE) THEN - cg$rec.VALUE := cg$upd_rec.VALUE; - END IF; - IF NOT (cg$ind.DESCRIPTION) THEN - cg$rec.DESCRIPTION := cg$upd_rec.DESCRIPTION; - END IF; - ELSE - -- Perform checks if called from a trigger - -- Indicators are only set on changed values - null; - -- Report error if attempt to update non updateable Primary Key APPA_PK - IF ( cg$ind.APPA_ID ) THEN - raise_uk_not_updateable('APPA_PK'); - END IF; - END IF; - - up_autogen_columns(cg$rec, cg$ind, 'UPD', do_upd); -- Auto-generated and uppercased columns - --- Now do update if updateable columns exist - IF (do_upd) THEN - DECLARE - called_from BOOLEAN := called_from_package; - BEGIN - called_from_package := TRUE; - - slct(cg$old_rec); - validate_foreign_keys_upd(cg$rec, cg$old_rec, cg$ind); - validate_arc(cg$rec); - validate_domain(cg$rec, cg$ind); - validate_domain_cascade_update(cg$old_rec); - - IF cg$rec.the_rowid is null THEN - UPDATE APPLICATION_PARAMETERS - SET - PARAMETER = cg$rec.PARAMETER - ,VALUE = cg$rec.VALUE - ,DESCRIPTION = cg$rec.DESCRIPTION - WHERE APPA_ID = cg$rec.APPA_ID; - null; - ELSE - UPDATE APPLICATION_PARAMETERS - SET - PARAMETER = cg$rec.PARAMETER - ,VALUE = cg$rec.VALUE - ,DESCRIPTION = cg$rec.DESCRIPTION - WHERE rowid = cg$rec.the_rowid; - - null; - END IF; - - slct(cg$rec); - - upd_denorm2(cg$rec, cg$ind); - upd_oper_denorm2(cg$rec, cg$old_rec, cg$ind, 'UPD'); - cascade_update(cg$rec, cg$old_rec); - domain_cascade_update(cg$rec, cg$ind, cg$old_rec); - called_from_package := called_from; - END; - END IF; - - - - IF NOT (do_upd) THEN - cg$table(idx).APPA_ID := cg$rec.APPA_ID; - cg$tableind(idx).APPA_ID := cg$ind.APPA_ID; - cg$table(idx).PARAMETER := cg$rec.PARAMETER; - cg$tableind(idx).PARAMETER := cg$ind.PARAMETER; - cg$table(idx).VALUE := cg$rec.VALUE; - cg$tableind(idx).VALUE := cg$ind.VALUE; - cg$table(idx).DESCRIPTION := cg$rec.DESCRIPTION; - cg$tableind(idx).DESCRIPTION := cg$ind.DESCRIPTION; - idx := idx + 1; - END IF; - --- Application_logic Post-Update <> --- Application_logic Post-Update << End >> - -EXCEPTION - WHEN cg$errors.cg$error THEN - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.upd_mandatory_null THEN - validate_mandatory(cg$rec, 'cg$APPLICATION_PARAMETERS.upd.upd_mandatory_null'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.check_violation THEN - err_msg(SQLERRM, cg$errors.ERR_CHECK_CON, 'cg$APPLICATION_PARAMETERS.upd.check_violation'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.fk_violation THEN - err_msg(SQLERRM, cg$errors.ERR_FOREIGN_KEY, 'cg$APPLICATION_PARAMETERS.upd.fk_violation'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.uk_violation THEN - err_msg(SQLERRM, cg$errors.ERR_UNIQUE_KEY, 'cg$APPLICATION_PARAMETERS.upd.uk_violation'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN OTHERS THEN - cg$errors.push(SQLERRM, - 'E', - 'ORA', - SQLCODE, - 'cg$APPLICATION_PARAMETERS.upd.others'); - called_from_package := FALSE; - cg$errors.raise_failure; -END upd; - - ----------------------------------------------------------------------------------------- --- Name: domain_cascade_upd --- --- Description: Update the Domain Constraint Key columns of APPLICATION_PARAMETERS when the --- Cascade Update rule is Cascades and the domain table has been --- updated. Called from .domain_cascade_update(). --- --- Parameters: cg$rec New values for APPLICATION_PARAMETERS's domain key constraint columns --- cg$ind Indicates changed APPLICATION_PARAMETERS's domain key constraint columns --- cg$old_rec Current values for APPLICATION_PARAMETERS's domain key constraint columns ----------------------------------------------------------------------------------------- -PROCEDURE domain_cascade_upd( cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - cg$old_rec IN cg$row_type ) -IS - called_from BOOLEAN := called_from_package; -BEGIN - - null; -END domain_cascade_upd; - - --------------------------------------------------------------------------------- --- Name: upd_denorm --- --- Description: API procedure for simple denormalization --- --- Parameters: cg$rec Record of row to be updated --- cg$ind Record of columns specifically set --- do_upd Whether we want the actual UPDATE to occur --------------------------------------------------------------------------------- -PROCEDURE upd_denorm2( cg$rec IN cg$row_type, - cg$ind IN cg$ind_type ) IS -BEGIN - NULL; -END upd_denorm2; - - --------------------------------------------------------------------------------- --- Name: upd_oper_denorm --- --- Description: API procedure for operation denormalization --- --- Parameters: cg$rec Record of row to be updated --- cg$ind Record of columns specifically set --- do_upd Whether we want the actual UPDATE to occur --------------------------------------------------------------------------------- -PROCEDURE upd_oper_denorm2( cg$rec IN cg$row_type, - cg$old_rec IN cg$row_type, - cg$ind IN cg$ind_type, - operation IN VARCHAR2 DEFAULT 'UPD' - ) -IS -BEGIN - - - - -NULL; -END upd_oper_denorm2; - --------------------------------------------------------------------------------- --- Name: del --- --- Description: API delete procedure --- --- Parameters: cg$pk Primary key record of row to be deleted --------------------------------------------------------------------------------- -PROCEDURE del(cg$pk IN cg$pk_type, - do_del IN BOOLEAN DEFAULT TRUE) IS -BEGIN --- Application_logic Pre-Delete <> --- Application_logic Pre-Delete << End >> - --- Delete the record - - called_from_package := TRUE; - - IF (do_del) THEN - DECLARE - cg$rec cg$row_type; - cg$old_rec cg$row_type; - cg$ind cg$ind_type; - BEGIN - cg$rec.APPA_ID := cg$pk.APPA_ID; - slct(cg$rec); - - validate_foreign_keys_del(cg$rec); - validate_domain_cascade_delete(cg$rec); - - IF cg$pk.the_rowid is null THEN - DELETE APPLICATION_PARAMETERS - WHERE APPA_ID = cg$pk.APPA_ID; - ELSE - DELETE APPLICATION_PARAMETERS - WHERE rowid = cg$pk.the_rowid; - END IF; - - upd_oper_denorm2(cg$rec, cg$old_rec, cg$ind, 'DEL'); - cascade_delete(cg$rec); - domain_cascade_delete(cg$rec); - END; - END IF; - - called_from_package := FALSE; - - --- Application_logic Post-Delete <> --- Application_logic Post-Delete << End >> - -EXCEPTION - WHEN cg$errors.cg$error THEN - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.delete_restrict THEN - err_msg(SQLERRM, cg$errors.ERR_DELETE_RESTRICT, 'cg$APPLICATION_PARAMETERS.del.delete_restrict'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN no_data_found THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_DEL, cg$errors.ROW_DEL), - 'E', - 'ORA', - SQLCODE, - 'cg$APPLICATION_PARAMETERS.del.no_data_found'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN OTHERS THEN - cg$errors.push(SQLERRM, - 'E', - 'ORA', - SQLCODE, - 'cg$APPLICATION_PARAMETERS.del.others'); - called_from_package := FALSE; - cg$errors.raise_failure; -END del; - - --------------------------------------------------------------------------------- --- Name: lck --- --- Description: API lock procedure --- --- Parameters: cg$old_rec Calling apps view of record of row to be locked --- cg$old_ind Record of columns to raise error if modified --- nowait_flag TRUE lock with NOWAIT, FALSE don't fail if busy --------------------------------------------------------------------------------- -PROCEDURE lck(cg$old_rec IN cg$row_type, - cg$old_ind IN cg$ind_type, - nowait_flag IN BOOLEAN DEFAULT TRUE) IS -cg$tmp_rec cg$row_type; -any_modified BOOLEAN := FALSE; - -BEGIN --- Application_logic Pre-Lock <> --- Application_logic Pre-Lock << End >> - --- Do the row lock - - BEGIN - IF (nowait_flag) THEN - IF cg$old_rec.the_rowid is null THEN - SELECT APPA_ID - , PARAMETER - , VALUE - , DESCRIPTION - INTO cg$tmp_rec.APPA_ID - , cg$tmp_rec.PARAMETER - , cg$tmp_rec.VALUE - , cg$tmp_rec.DESCRIPTION - FROM APPLICATION_PARAMETERS - WHERE APPA_ID = cg$old_rec.APPA_ID - FOR UPDATE NOWAIT; - ELSE - SELECT APPA_ID - , PARAMETER - , VALUE - , DESCRIPTION - INTO cg$tmp_rec.APPA_ID - , cg$tmp_rec.PARAMETER - , cg$tmp_rec.VALUE - , cg$tmp_rec.DESCRIPTION - FROM APPLICATION_PARAMETERS - WHERE rowid = cg$old_rec.the_rowid - FOR UPDATE NOWAIT; - END IF; - ELSE - IF cg$old_rec.the_rowid is null THEN - SELECT APPA_ID - , PARAMETER - , VALUE - , DESCRIPTION - INTO cg$tmp_rec.APPA_ID - , cg$tmp_rec.PARAMETER - , cg$tmp_rec.VALUE - , cg$tmp_rec.DESCRIPTION - FROM APPLICATION_PARAMETERS - WHERE APPA_ID = cg$old_rec.APPA_ID - FOR UPDATE; - ELSE - SELECT APPA_ID - , PARAMETER - , VALUE - , DESCRIPTION - INTO cg$tmp_rec.APPA_ID - , cg$tmp_rec.PARAMETER - , cg$tmp_rec.VALUE - , cg$tmp_rec.DESCRIPTION - FROM APPLICATION_PARAMETERS - WHERE rowid = cg$old_rec.the_rowid - FOR UPDATE; - END IF; - END IF; - - EXCEPTION - WHEN cg$errors.cg$error THEN - cg$errors.raise_failure; - WHEN cg$errors.resource_busy THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_LCK, cg$errors.ROW_LCK), - 'E', - 'ORA', - SQLCODE, - 'cg$APPLICATION_PARAMETERS.lck.resource_busy'); - cg$errors.raise_failure; - WHEN no_data_found THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_DEL, cg$errors.ROW_DEL), - 'E', - 'ORA', - SQLCODE, - 'cg$APPLICATION_PARAMETERS.lck.no_data_found'); - cg$errors.raise_failure; - WHEN OTHERS THEN - cg$errors.push(SQLERRM, - 'E', - 'ORA', - SQLCODE, - 'cg$APPLICATION_PARAMETERS.lck.others'); - cg$errors.raise_failure; - END; - --- Optional Columns - - IF (cg$old_ind.VALUE) THEN - IF (cg$tmp_rec.VALUE IS NOT NULL - AND cg$old_rec.VALUE IS NOT NULL) THEN - IF (cg$tmp_rec.VALUE != cg$old_rec.VALUE) THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_MOD, cg$errors.ROW_MOD, P30VALUE - ),'E', 'API', CG$ERRORS.API_MODIFIED, 'cg$APPLICATION_PARAMETERS.lck'); - any_modified := TRUE; - END IF; - ELSIF (cg$tmp_rec.VALUE IS NOT NULL - OR cg$old_rec.VALUE IS NOT NULL) THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_MOD, cg$errors.ROW_MOD, P30VALUE - ),'E', 'API', CG$ERRORS.API_MODIFIED, 'cg$APPLICATION_PARAMETERS.lck'); - any_modified := TRUE; - END IF; - END IF; - IF (cg$old_ind.DESCRIPTION) THEN - IF (cg$tmp_rec.DESCRIPTION IS NOT NULL - AND cg$old_rec.DESCRIPTION IS NOT NULL) THEN - IF (cg$tmp_rec.DESCRIPTION != cg$old_rec.DESCRIPTION) THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_MOD, cg$errors.ROW_MOD, P40DESCRIPTION - ),'E', 'API', CG$ERRORS.API_MODIFIED, 'cg$APPLICATION_PARAMETERS.lck'); - any_modified := TRUE; - END IF; - ELSIF (cg$tmp_rec.DESCRIPTION IS NOT NULL - OR cg$old_rec.DESCRIPTION IS NOT NULL) THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_MOD, cg$errors.ROW_MOD, P40DESCRIPTION - ),'E', 'API', CG$ERRORS.API_MODIFIED, 'cg$APPLICATION_PARAMETERS.lck'); - any_modified := TRUE; - END IF; - END IF; - --- Mandatory Columns - - IF (cg$old_ind.APPA_ID) THEN - IF (cg$tmp_rec.APPA_ID != cg$old_rec.APPA_ID) THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_MOD, cg$errors.ROW_MOD, P10APPA_ID - ),'E', 'API', CG$ERRORS.API_MODIFIED, 'cg$APPLICATION_PARAMETERS.lck'); - any_modified := TRUE; - END IF; - END IF; - IF (cg$old_ind.PARAMETER) THEN - IF (cg$tmp_rec.PARAMETER != cg$old_rec.PARAMETER) THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_MOD, cg$errors.ROW_MOD, P20PARAMETER - ),'E', 'API', CG$ERRORS.API_MODIFIED, 'cg$APPLICATION_PARAMETERS.lck'); - any_modified := TRUE; - END IF; - END IF; - - IF (any_modified) THEN - cg$errors.raise_failure; - END IF; - --- Application_logic Post-Lock <> --- Application_logic Post-Lock << End >> - -END lck; - - -BEGIN - cg$ind_true.APPA_ID := TRUE; - cg$ind_true.PARAMETER := TRUE; - cg$ind_true.VALUE := TRUE; - cg$ind_true.DESCRIPTION := TRUE; - - -END cg$APPLICATION_PARAMETERS; -/ - diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/APPA.PKS b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/APPA.PKS deleted file mode 100644 index 58d9b93..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/APPA.PKS +++ /dev/null @@ -1,109 +0,0 @@ - -PROMPT Creating API Package Specification for Table 'APPLICATION_PARAMETERS' --------------------------------------------------------------------------------- --- Name: cg$APPLICATION_PARAMETERS --- Description: APPLICATION_PARAMETERS table API package declarations --------------------------------------------------------------------------------- -CREATE OR REPLACE PACKAGE cg$APPLICATION_PARAMETERS IS - -called_from_package BOOLEAN := FALSE; - --- Repository User-Defined Error Messages -APPA_PK CONSTANT VARCHAR2(240) := ''; -APPA_UK CONSTANT VARCHAR2(240) := ''; - --- Column default prompts. Format PSEQNO_COL -P10APPA_ID CONSTANT VARCHAR2(240) := 'Appa Id'; -P20PARAMETER CONSTANT VARCHAR2(240) := 'Parameter'; -P30VALUE CONSTANT VARCHAR2(240) := 'Value'; -P40DESCRIPTION CONSTANT VARCHAR2(240) := 'Description'; - -cg$row APPLICATION_PARAMETERS%ROWTYPE; - --- APPLICATION_PARAMETERS row type variable -TYPE cg$row_type IS RECORD -(APPA_ID cg$row.APPA_ID%TYPE -,PARAMETER cg$row.PARAMETER%TYPE -,VALUE cg$row.VALUE%TYPE -,DESCRIPTION cg$row.DESCRIPTION%TYPE -,the_rowid ROWID) -; - --- APPLICATION_PARAMETERS indicator type variable -TYPE cg$ind_type IS RECORD -(APPA_ID BOOLEAN DEFAULT FALSE -,PARAMETER BOOLEAN DEFAULT FALSE -,VALUE BOOLEAN DEFAULT FALSE -,DESCRIPTION BOOLEAN DEFAULT FALSE); - -cg$ind_true cg$ind_type; - --- APPLICATION_PARAMETERS primary key type variable -TYPE cg$pk_type IS RECORD -(APPA_ID cg$row.APPA_ID%TYPE -,the_rowid ROWID) -; - --- PL/SQL Table Type variable for triggers -TYPE cg$table_type IS TABLE OF APPLICATION_PARAMETERS%ROWTYPE - INDEX BY BINARY_INTEGER; -cg$table cg$table_type; - -TYPE cg$tableind_type IS TABLE OF cg$ind_type - INDEX BY BINARY_INTEGER; -cg$tableind cg$tableind_type; -idx BINARY_INTEGER := 1; - -PROCEDURE ins(cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - do_ins IN BOOLEAN DEFAULT TRUE - ); -PROCEDURE upd(cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - do_upd IN BOOLEAN DEFAULT TRUE, - cg$pk IN cg$row_type DEFAULT NULL - ); -PROCEDURE del(cg$pk IN cg$pk_type, - do_del IN BOOLEAN DEFAULT TRUE - ); -PROCEDURE lck(cg$old_rec IN cg$row_type, - cg$old_ind IN cg$ind_type, - nowait_flag IN BOOLEAN DEFAULT TRUE - ); -PROCEDURE slct(cg$sel_rec IN OUT cg$row_type); - -PROCEDURE validate_arc(cg$rec IN OUT cg$row_type); - -PROCEDURE validate_domain(cg$rec IN OUT cg$row_type, - cg$ind IN cg$ind_type DEFAULT cg$ind_true); - -PROCEDURE validate_foreign_keys_ins(cg$rec IN cg$row_type); -PROCEDURE validate_foreign_keys_upd(cg$rec IN cg$row_type, - cg$old_rec IN cg$row_type, - cg$ind IN cg$ind_type); -PROCEDURE validate_foreign_keys_del(cg$rec IN cg$row_type); - -PROCEDURE validate_domain_cascade_delete(cg$old_rec IN cg$row_type); -PROCEDURE validate_domain_cascade_update(cg$old_rec IN cg$row_type); - -PROCEDURE cascade_update(cg$new_rec IN OUT cg$row_type, - cg$old_rec IN cg$row_type ); -PROCEDURE domain_cascade_update(cg$new_rec IN OUT cg$row_type, - cg$new_ind IN OUT cg$ind_type, - cg$old_rec IN cg$row_type); -PROCEDURE domain_cascade_upd( cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - cg$old_rec IN cg$row_type); - -PROCEDURE cascade_delete(cg$old_rec IN OUT cg$row_type); -PROCEDURE domain_cascade_delete(cg$old_rec IN cg$row_type); - -PROCEDURE upd_denorm2( cg$rec IN cg$row_type, - cg$ind IN cg$ind_type ); -PROCEDURE upd_oper_denorm2( cg$rec IN cg$row_type, - cg$old_rec IN cg$row_type, - cg$ind IN cg$ind_type, - operation IN VARCHAR2 DEFAULT 'UPD' ); -END cg$APPLICATION_PARAMETERS; -/ - diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/APPA.TRG b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/APPA.TRG deleted file mode 100644 index 851506c..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/APPA.TRG +++ /dev/null @@ -1,372 +0,0 @@ - -PROMPT Creating Trigger Logic for Table 'APPLICATION_PARAMETERS' -PROMPT Creating Before Insert Statement Trigger on 'APPLICATION_PARAMETERS' -CREATE OR REPLACE TRIGGER cg$BIS_APPLICATION_PARAMETERS -BEFORE INSERT ON APPLICATION_PARAMETERS -BEGIN --- Application_logic Pre-Before-Insert-statement <> --- Application_logic Pre-Before-Insert-statement << End >> - - cg$APPLICATION_PARAMETERS.cg$table.DELETE; - cg$APPLICATION_PARAMETERS.cg$tableind.DELETE; - cg$APPLICATION_PARAMETERS.idx := 1; - --- Application_logic Post-Before-Insert-statement <> --- Application_logic Post-Before-Insert-statement << End >> -END; -/ - - -PROMPT Creating Before Insert Row Trigger on 'APPLICATION_PARAMETERS' -CREATE OR REPLACE TRIGGER cg$BIR_APPLICATION_PARAMETERS -BEFORE INSERT ON APPLICATION_PARAMETERS FOR EACH ROW -DECLARE - cg$rec cg$APPLICATION_PARAMETERS.cg$row_type; - cg$ind cg$APPLICATION_PARAMETERS.cg$ind_type; -BEGIN --- Application_logic Pre-Before-Insert-row <> --- Application_logic Pre-Before-Insert-row << End >> - --- Load cg$rec/cg$ind values from new - - cg$rec.APPA_ID := :new.APPA_ID; - cg$ind.APPA_ID := TRUE; - cg$rec.PARAMETER := :new.PARAMETER; - cg$ind.PARAMETER := TRUE; - cg$rec.VALUE := :new.VALUE; - cg$ind.VALUE := TRUE; - cg$rec.DESCRIPTION := :new.DESCRIPTION; - cg$ind.DESCRIPTION := TRUE; - - if not (cg$APPLICATION_PARAMETERS.called_from_package) then - cg$APPLICATION_PARAMETERS.validate_arc(cg$rec); - cg$APPLICATION_PARAMETERS.validate_domain(cg$rec); - - cg$APPLICATION_PARAMETERS.ins(cg$rec, cg$ind, FALSE); - cg$APPLICATION_PARAMETERS.called_from_package := FALSE; - end if; - - cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).APPA_ID := cg$rec.APPA_ID; - cg$APPLICATION_PARAMETERS.cg$tableind(cg$APPLICATION_PARAMETERS.idx).APPA_ID := cg$ind.APPA_ID; - - cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).PARAMETER := cg$rec.PARAMETER; - cg$APPLICATION_PARAMETERS.cg$tableind(cg$APPLICATION_PARAMETERS.idx).PARAMETER := cg$ind.PARAMETER; - - cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).VALUE := cg$rec.VALUE; - cg$APPLICATION_PARAMETERS.cg$tableind(cg$APPLICATION_PARAMETERS.idx).VALUE := cg$ind.VALUE; - - cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).DESCRIPTION := cg$rec.DESCRIPTION; - cg$APPLICATION_PARAMETERS.cg$tableind(cg$APPLICATION_PARAMETERS.idx).DESCRIPTION := cg$ind.DESCRIPTION; - - cg$APPLICATION_PARAMETERS.idx := cg$APPLICATION_PARAMETERS.idx + 1; - - :new.APPA_ID := cg$rec.APPA_ID; - :new.PARAMETER := cg$rec.PARAMETER; - :new.VALUE := cg$rec.VALUE; - :new.DESCRIPTION := cg$rec.DESCRIPTION; - --- Application_logic Post-Before-Insert-row <> --- Application_logic Post-Before-Insert-row << End >> -END; -/ - - --- No application logic defined for Trigger cg$AIR_APPLICATION_PARAMETERS, so drop it. --- To avoid an error if there isn't one, create or replace it, and then drop it -CREATE OR REPLACE TRIGGER cg$AIR_APPLICATION_PARAMETERS -AFTER INSERT ON APPLICATION_PARAMETERS FOR EACH ROW -BEGIN - null; -END; -/ -drop trigger cg$AIR_APPLICATION_PARAMETERS -/ - -PROMPT Creating After Insert Statement Trigger on 'APPLICATION_PARAMETERS' -CREATE OR REPLACE TRIGGER cg$AIS_APPLICATION_PARAMETERS -AFTER INSERT ON APPLICATION_PARAMETERS -DECLARE - idx BINARY_INTEGER := cg$APPLICATION_PARAMETERS.cg$table.FIRST; - cg$rec cg$APPLICATION_PARAMETERS.cg$row_type; - cg$old_rec cg$APPLICATION_PARAMETERS.cg$row_type; - fk_check INTEGER; -BEGIN --- Application_logic Pre-After-Insert-statement <> --- Application_logic Pre-After-Insert-statement << End >> - - - IF NOT (cg$APPLICATION_PARAMETERS.called_from_package) THEN - WHILE idx IS NOT NULL LOOP - cg$rec.APPA_ID := cg$APPLICATION_PARAMETERS.cg$table(idx).APPA_ID; - cg$rec.PARAMETER := cg$APPLICATION_PARAMETERS.cg$table(idx).PARAMETER; - cg$rec.VALUE := cg$APPLICATION_PARAMETERS.cg$table(idx).VALUE; - cg$rec.DESCRIPTION := cg$APPLICATION_PARAMETERS.cg$table(idx).DESCRIPTION; - - cg$APPLICATION_PARAMETERS.validate_foreign_keys_ins(cg$rec); - - cg$APPLICATION_PARAMETERS.upd_oper_denorm2( cg$rec, - cg$old_rec, - cg$APPLICATION_PARAMETERS.cg$tableind(idx), - 'INS' - ); - - idx := cg$APPLICATION_PARAMETERS.cg$table.NEXT(idx); - END LOOP; - END IF; - --- Application_logic Post-After-Insert-statement <> --- Application_logic Post-After-Insert-statement << End >> - -END; -/ - - - - -PROMPT Creating Before Update Statement Trigger on 'APPLICATION_PARAMETERS' -CREATE OR REPLACE TRIGGER cg$BUS_APPLICATION_PARAMETERS -BEFORE UPDATE ON APPLICATION_PARAMETERS -BEGIN --- Application_logic Pre-Before-Update-statement <> --- Application_logic Pre-Before-Update-statement << End >> - - cg$APPLICATION_PARAMETERS.cg$table.DELETE; - cg$APPLICATION_PARAMETERS.cg$tableind.DELETE; - cg$APPLICATION_PARAMETERS.idx := 1; - --- Application_logic Post-Before-Update-statement <> --- Application_logic Post-Before-Update-statement << End >> - -END; -/ - - -PROMPT Creating Before Update Row Trigger on 'APPLICATION_PARAMETERS' -CREATE OR REPLACE TRIGGER cg$BUR_APPLICATION_PARAMETERS -BEFORE UPDATE ON APPLICATION_PARAMETERS FOR EACH ROW -DECLARE - cg$rec cg$APPLICATION_PARAMETERS.cg$row_type; - cg$ind cg$APPLICATION_PARAMETERS.cg$ind_type; - cg$old_rec cg$APPLICATION_PARAMETERS.cg$row_type; -BEGIN --- Application_logic Pre-Before-Update-row <> --- Application_logic Pre-Before-Update-row << End >> - --- Load cg$rec/cg$ind values from new - - cg$rec.APPA_ID := :new.APPA_ID; - cg$ind.APPA_ID := (:new.APPA_ID IS NULL AND :old.APPA_ID IS NOT NULL ) - OR (:new.APPA_ID IS NOT NULL AND :old.APPA_ID IS NULL) - OR NOT(:new.APPA_ID = :old.APPA_ID) ; - cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).APPA_ID := :old.APPA_ID; - cg$rec.PARAMETER := :new.PARAMETER; - cg$ind.PARAMETER := (:new.PARAMETER IS NULL AND :old.PARAMETER IS NOT NULL ) - OR (:new.PARAMETER IS NOT NULL AND :old.PARAMETER IS NULL) - OR NOT(:new.PARAMETER = :old.PARAMETER) ; - cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).PARAMETER := :old.PARAMETER; - cg$rec.VALUE := :new.VALUE; - cg$ind.VALUE := (:new.VALUE IS NULL AND :old.VALUE IS NOT NULL ) - OR (:new.VALUE IS NOT NULL AND :old.VALUE IS NULL) - OR NOT(:new.VALUE = :old.VALUE) ; - cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).VALUE := :old.VALUE; - cg$rec.DESCRIPTION := :new.DESCRIPTION; - cg$ind.DESCRIPTION := (:new.DESCRIPTION IS NULL AND :old.DESCRIPTION IS NOT NULL ) - OR (:new.DESCRIPTION IS NOT NULL AND :old.DESCRIPTION IS NULL) - OR NOT(:new.DESCRIPTION = :old.DESCRIPTION) ; - cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).DESCRIPTION := :old.DESCRIPTION; - - - cg$APPLICATION_PARAMETERS.idx := cg$APPLICATION_PARAMETERS.idx + 1; - - if not (cg$APPLICATION_PARAMETERS.called_from_package) then - cg$APPLICATION_PARAMETERS.validate_arc(cg$rec); - cg$APPLICATION_PARAMETERS.validate_domain(cg$rec, cg$ind); - cg$APPLICATION_PARAMETERS.validate_domain_cascade_update(cg$old_rec); - - cg$APPLICATION_PARAMETERS.upd(cg$rec, cg$ind, FALSE); - cg$APPLICATION_PARAMETERS.called_from_package := FALSE; - end if; - - :new.PARAMETER := cg$rec.PARAMETER; - :new.VALUE := cg$rec.VALUE; - :new.DESCRIPTION := cg$rec.DESCRIPTION; --- Application_logic Post-Before-Update-row <> --- Application_logic Post-Before-Update-row << End >> -END; -/ - --- No application logic defined for Trigger cg$AUR_APPLICATION_PARAMETERS, so drop it. --- To avoid an error if there isn't one, create or replace it, and then drop it -CREATE OR REPLACE TRIGGER cg$AUR_APPLICATION_PARAMETERS -AFTER UPDATE ON APPLICATION_PARAMETERS FOR EACH ROW -BEGIN - null; -END; -/ -drop trigger cg$AUR_APPLICATION_PARAMETERS -/ - - - - - - -PROMPT Creating After Update Statement Trigger on 'APPLICATION_PARAMETERS' -CREATE OR REPLACE TRIGGER cg$AUS_APPLICATION_PARAMETERS -AFTER UPDATE ON APPLICATION_PARAMETERS -DECLARE - idx BINARY_INTEGER := cg$APPLICATION_PARAMETERS.cg$table.FIRST; - cg$old_rec cg$APPLICATION_PARAMETERS.cg$row_type; - cg$rec cg$APPLICATION_PARAMETERS.cg$row_type; - cg$ind cg$APPLICATION_PARAMETERS.cg$ind_type; -BEGIN --- Application_logic Pre-After-Update-statement <> --- Application_logic Pre-After-Update-statement << End >> - - WHILE idx IS NOT NULL LOOP - cg$old_rec.APPA_ID := cg$APPLICATION_PARAMETERS.cg$table(idx).APPA_ID; - cg$old_rec.PARAMETER := cg$APPLICATION_PARAMETERS.cg$table(idx).PARAMETER; - cg$old_rec.VALUE := cg$APPLICATION_PARAMETERS.cg$table(idx).VALUE; - cg$old_rec.DESCRIPTION := cg$APPLICATION_PARAMETERS.cg$table(idx).DESCRIPTION; - - IF NOT (cg$APPLICATION_PARAMETERS.called_from_package) THEN - idx := cg$APPLICATION_PARAMETERS.cg$table.NEXT(idx); - cg$rec.APPA_ID := cg$APPLICATION_PARAMETERS.cg$table(idx).APPA_ID; - cg$ind.APPA_ID := updating('APPA_ID'); - cg$rec.PARAMETER := cg$APPLICATION_PARAMETERS.cg$table(idx).PARAMETER; - cg$ind.PARAMETER := updating('PARAMETER'); - cg$rec.VALUE := cg$APPLICATION_PARAMETERS.cg$table(idx).VALUE; - cg$ind.VALUE := updating('VALUE'); - cg$rec.DESCRIPTION := cg$APPLICATION_PARAMETERS.cg$table(idx).DESCRIPTION; - cg$ind.DESCRIPTION := updating('DESCRIPTION'); - - cg$APPLICATION_PARAMETERS.validate_foreign_keys_upd(cg$rec, cg$old_rec, cg$ind); - - cg$APPLICATION_PARAMETERS.upd_denorm2( cg$rec, - cg$APPLICATION_PARAMETERS.cg$tableind(idx) - ); - cg$APPLICATION_PARAMETERS.upd_oper_denorm2( cg$rec, - cg$old_rec, - cg$APPLICATION_PARAMETERS.cg$tableind(idx) - ); - cg$APPLICATION_PARAMETERS.cascade_update(cg$rec, cg$old_rec); - cg$APPLICATION_PARAMETERS.domain_cascade_update(cg$rec, cg$ind, cg$old_rec); - - cg$APPLICATION_PARAMETERS.called_from_package := FALSE; - END IF; - idx := cg$APPLICATION_PARAMETERS.cg$table.NEXT(idx); - END LOOP; - - cg$APPLICATION_PARAMETERS.cg$table.DELETE; - --- Application_logic Post-After-Update-statement <> --- Application_logic Post-After-Update-statement << End >> - -END; -/ - -PROMPT Creating Before Delete Statement Trigger on 'APPLICATION_PARAMETERS' -CREATE OR REPLACE TRIGGER cg$BDS_APPLICATION_PARAMETERS -BEFORE DELETE ON APPLICATION_PARAMETERS -BEGIN --- Application_logic Pre-Before-Delete-statement <> --- Application_logic Pre-Before-Delete-statement << End >> - - cg$APPLICATION_PARAMETERS.cg$table.DELETE; - cg$APPLICATION_PARAMETERS.cg$tableind.DELETE; - cg$APPLICATION_PARAMETERS.idx := 1; - --- Application_logic Post-Before-Delete-statement <> --- Application_logic Post-Before-Delete-statement << End >> -END; -/ - - -PROMPT Creating Before Delete Row Trigger on 'APPLICATION_PARAMETERS' -CREATE OR REPLACE TRIGGER cg$BDR_APPLICATION_PARAMETERS -BEFORE DELETE ON APPLICATION_PARAMETERS FOR EACH ROW -DECLARE - cg$pk cg$APPLICATION_PARAMETERS.cg$pk_type; - cg$rec cg$APPLICATION_PARAMETERS.cg$row_type; - cg$ind cg$APPLICATION_PARAMETERS.cg$ind_type; -BEGIN --- Application_logic Pre-Before-Delete-row <> --- Application_logic Pre-Before-Delete-row << End >> - --- Load cg$rec/cg$ind values from new - - cg$pk.APPA_ID := :old.APPA_ID; - cg$rec.APPA_ID := :old.APPA_ID; - cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).APPA_ID := :old.APPA_ID; - cg$rec.PARAMETER := :old.PARAMETER; - cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).PARAMETER := :old.PARAMETER; - - - cg$APPLICATION_PARAMETERS.idx := cg$APPLICATION_PARAMETERS.idx + 1; - - if not (cg$APPLICATION_PARAMETERS.called_from_package) then - cg$APPLICATION_PARAMETERS.validate_domain_cascade_delete(cg$rec); - cg$APPLICATION_PARAMETERS.del(cg$pk, FALSE); - cg$APPLICATION_PARAMETERS.called_from_package := FALSE; - end if; - --- Application_logic Post-Before-Delete-row <> --- Application_logic Post-Before-Delete-row << End >> -END; -/ - --- No application logic defined for Trigger cg$ADR_APPLICATION_PARAMETERS, so drop it. --- To avoid an error if there isn't one, create or replace it, and then drop it -CREATE OR REPLACE TRIGGER cg$ADR_APPLICATION_PARAMETERS -AFTER DELETE ON APPLICATION_PARAMETERS FOR EACH ROW -BEGIN - null; -END; -/ -drop trigger cg$ADR_APPLICATION_PARAMETERS -/ - -PROMPT Creating After Delete Statement Trigger on 'APPLICATION_PARAMETERS' -CREATE OR REPLACE TRIGGER cg$ADS_APPLICATION_PARAMETERS -AFTER DELETE ON APPLICATION_PARAMETERS -DECLARE - idx BINARY_INTEGER := cg$APPLICATION_PARAMETERS.cg$table.FIRST; - cg$rec cg$APPLICATION_PARAMETERS.cg$row_type; - cg$old_rec cg$APPLICATION_PARAMETERS.cg$row_type; -BEGIN --- Application_logic Pre-After-Delete-statement <> --- Application_logic Pre-After-Delete-statement << End >> - - IF NOT (cg$APPLICATION_PARAMETERS.called_from_package) THEN - WHILE idx IS NOT NULL LOOP - cg$rec.APPA_ID := cg$APPLICATION_PARAMETERS.cg$table(idx).APPA_ID; - cg$APPLICATION_PARAMETERS.cg$tableind(idx).APPA_ID := TRUE; - cg$rec.PARAMETER := cg$APPLICATION_PARAMETERS.cg$table(idx).PARAMETER; - cg$APPLICATION_PARAMETERS.cg$tableind(idx).PARAMETER := TRUE; - cg$rec.VALUE := cg$APPLICATION_PARAMETERS.cg$table(idx).VALUE; - cg$APPLICATION_PARAMETERS.cg$tableind(idx).VALUE := TRUE; - cg$rec.DESCRIPTION := cg$APPLICATION_PARAMETERS.cg$table(idx).DESCRIPTION; - cg$APPLICATION_PARAMETERS.cg$tableind(idx).DESCRIPTION := TRUE; - - cg$APPLICATION_PARAMETERS.validate_foreign_keys_del(cg$rec); - cg$APPLICATION_PARAMETERS.upd_oper_denorm2( cg$rec, - cg$old_rec, - cg$APPLICATION_PARAMETERS.cg$tableind(idx), - 'DEL' - ); - - cg$APPLICATION_PARAMETERS.cascade_delete(cg$rec); - cg$APPLICATION_PARAMETERS.domain_cascade_delete(cg$rec); - - idx := cg$APPLICATION_PARAMETERS.cg$table.NEXT(idx); - END LOOP; - END IF; - --- Application_logic Post-After-Delete-statement <> --- Application_logic Post-After-Delete-statement << End >> - -END; -/ - - - diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/Account Locking Unit Test Script.doc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/Account Locking Unit Test Script.doc deleted file mode 100644 index 0d508ac..0000000 Binary files a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/Account Locking Unit Test Script.doc and /dev/null differ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/Commercial Confirmations Unit Test Script.doc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/Commercial Confirmations Unit Test Script.doc deleted file mode 100644 index ff9a532..0000000 Binary files a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/Commercial Confirmations Unit Test Script.doc and /dev/null differ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/NOWC.PKB b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/NOWC.PKB deleted file mode 100644 index a2296eb..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/NOWC.PKB +++ /dev/null @@ -1,956 +0,0 @@ - -PROMPT Creating API Package Body for Table 'NOM_WINDOW_CONTRACTS' --------------------------------------------------------------------------------- --- Name: cg$NOM_WINDOW_CONTRACTS --- Description: NOM_WINDOW_CONTRACTS table API package definitions --------------------------------------------------------------------------------- -CREATE OR REPLACE PACKAGE BODY cg$NOM_WINDOW_CONTRACTS IS - -PROCEDURE validate_mandatory(cg$val_rec IN cg$row_type, - loc IN VARCHAR2 DEFAULT ''); -PROCEDURE up_autogen_columns(cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - operation IN VARCHAR2 DEFAULT 'INS', - do_denorm IN BOOLEAN DEFAULT TRUE); -PROCEDURE err_msg(msg IN VARCHAR2, - type IN INTEGER, - loc IN VARCHAR2 DEFAULT ''); - --------------------------------------------------------------------------------- --- Name: raise_uk_not_updateable --- --- Description: Raise appropriate error when unique key updated --- --- Parameters: none --------------------------------------------------------------------------------- -PROCEDURE raise_uk_not_updateable(uk IN VARCHAR2) IS -BEGIN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_UNIQUE_KEY_UPDATE, cg$errors.ERR_UK_UPDATE, uk), - 'E', - 'API', - cg$errors.API_UNIQUE_KEY_UPDATE, - 'cg$NOM_WINDOW_CONTRACTS.raise_uk_not_updateable'); - cg$errors.raise_failure; -END raise_uk_not_updateable; - - --------------------------------------------------------------------------------- --- Name: raise_fk_not_transferable --- --- Description: Raise appropriate error when foreign key updated --- --- Parameters: none --------------------------------------------------------------------------------- -PROCEDURE raise_fk_not_transferable(fk IN VARCHAR2) IS -BEGIN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_FOREIGN_KEY_TRANS, cg$errors.ERR_FK_TRANS, fk), - 'E', - 'API', - cg$errors.API_FOREIGN_KEY_TRANS, - 'cg$NOM_WINDOW_CONTRACTS.raise_fk_not_transferable'); - cg$errors.raise_failure; -END raise_fk_not_transferable; - - --------------------------------------------------------------------------------- --- Name: up_autogen_columns --- --- Description: Specific autogeneration of column values and conversion to --- uppercase --- --- Parameters: cg$rec Record of row to be manipulated --- cg$ind Indicators for row --- operation Procedure where this procedure was called --------------------------------------------------------------------------------- -PROCEDURE up_autogen_columns(cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - operation IN VARCHAR2 DEFAULT 'INS', - do_denorm IN BOOLEAN DEFAULT TRUE) IS -BEGIN - IF (operation = 'INS') THEN - BEGIN - IF (cg$ind.NOWC_ID = FALSE - OR cg$rec.NOWC_ID is NULL) THEN - SELECT NOWC_SEQ.nextval - INTO cg$rec.NOWC_ID - FROM DUAL; - cg$ind.NOWC_ID := TRUE; - END IF; - EXCEPTION WHEN others THEN - cg$errors.push(SQLERRM, 'E', 'ORA', SQLCODE, - 'cg$NOM_WINDOW_CONTRACTS.up_autogen.NOWC_ID.OTHERS'); - cg$errors.raise_failure; - END; - NULL; - ELSE -- (operation = 'UPD') - NULL; - END IF; -- (operation = 'INS') ELSE (operation = 'UPD') - - -- Statements executed for both 'INS' and 'UPD' - - -EXCEPTION - WHEN no_data_found THEN - NULL; - WHEN others THEN - cg$errors.push( SQLERRM, 'E', 'ORA', SQLCODE, - 'cg$NOM_WINDOW_CONTRACTS.up_autogen_columns'); - cg$errors.raise_failure; -END up_autogen_columns; - - --------------------------------------------------------------------------------- --- Name: validate_mandatory --- --- Description: Checks all mandatory columns are not null and raises appropriate --- error if not satisfied --- --- Parameters: cg$val_rec Record of row to be checked --- loc Place where this procedure was called for error --- trapping --------------------------------------------------------------------------------- -PROCEDURE validate_mandatory(cg$val_rec IN cg$row_type, - loc IN VARCHAR2 DEFAULT '') IS -BEGIN - IF (cg$val_rec.CONT_ID IS NULL) THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_MAND_COLUMN_ISNULL, cg$errors.VAL_MAND, P1CONT_ID), - 'E', - 'API', - cg$errors.API_MAND_COLUMN_ISNULL, - loc); - END IF; - IF (cg$val_rec.NOWI_ID IS NULL) THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_MAND_COLUMN_ISNULL, cg$errors.VAL_MAND, P2NOWI_ID), - 'E', - 'API', - cg$errors.API_MAND_COLUMN_ISNULL, - loc); - END IF; - IF (cg$val_rec.NOWC_ID IS NULL) THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_MAND_COLUMN_ISNULL, cg$errors.VAL_MAND, P3NOWC_ID), - 'E', - 'API', - cg$errors.API_MAND_COLUMN_ISNULL, - loc); - END IF; - NULL; -END validate_mandatory; - - --------------------------------------------------------------------------------- --- Name: validate_foreign_keys --- --- Description: Checks all mandatory columns are not null and raises appropriate --- error if not satisfied --- --- Parameters: cg$rec Record of row to be checked --------------------------------------------------------------------------------- -PROCEDURE validate_foreign_keys_ins(cg$rec IN cg$row_type) IS - fk_check INTEGER; -BEGIN -NULL; -END; - -PROCEDURE validate_foreign_keys_upd( cg$rec IN cg$row_type, - cg$old_rec IN cg$row_type, - cg$ind IN cg$ind_type) IS - fk_check INTEGER; -BEGIN -NULL; -END; - -PROCEDURE validate_foreign_keys_del(cg$rec IN cg$row_type) IS - fk_check INTEGER; -BEGIN -NULL; -END; - - --------------------------------------------------------------------------------- --- Name: slct --- --- Description: Selects into the given parameter all the attributes for the row --- given by the primary key --- --- Parameters: cg$sel_rec Record of row to be selected into using its PK --------------------------------------------------------------------------------- -PROCEDURE slct(cg$sel_rec IN OUT cg$row_type) IS - -BEGIN - - IF cg$sel_rec.the_rowid is null THEN - SELECT CONT_ID - , NOWI_ID - , NOWC_ID - , rowid - INTO cg$sel_rec.CONT_ID - , cg$sel_rec.NOWI_ID - , cg$sel_rec.NOWC_ID - ,cg$sel_rec.the_rowid - FROM NOM_WINDOW_CONTRACTS - WHERE NOWC_ID = cg$sel_rec.NOWC_ID; - ELSE - SELECT CONT_ID - , NOWI_ID - , NOWC_ID - , rowid - INTO cg$sel_rec.CONT_ID - , cg$sel_rec.NOWI_ID - , cg$sel_rec.NOWC_ID - ,cg$sel_rec.the_rowid - FROM NOM_WINDOW_CONTRACTS - WHERE rowid = cg$sel_rec.the_rowid; - END IF; - -EXCEPTION WHEN OTHERS THEN - cg$errors.push(SQLERRM, - 'E', - 'ORA', - SQLCODE, - 'cg$NOM_WINDOW_CONTRACTS.slct.others'); - cg$errors.raise_failure; - -END slct; - - --------------------------------------------------------------------------------- --- Name: cascade_update --- --- Description: Updates all child tables affected by a change to NOM_WINDOW_CONTRACTS --- --- Parameters: cg$rec Record of NOM_WINDOW_CONTRACTS current values --- cg$old_rec Record of NOM_WINDOW_CONTRACTS previous values --------------------------------------------------------------------------------- -PROCEDURE cascade_update(cg$new_rec IN OUT cg$row_type, - cg$old_rec IN cg$row_type) IS -BEGIN - NULL; -END cascade_update; - - --------------------------------------------------------------------------------- --- Name: validate_domain_cascade_update --- --- Description: Implement the Domain Key Constraint Cascade Updates Resticts rule --- of each child table that references this tableNOM_WINDOW_CONTRACTS --- --- Parameters: cg$old_rec Record of NOM_WINDOW_CONTRACTS current values --------------------------------------------------------------------------------- -PROCEDURE validate_domain_cascade_update( cg$old_rec IN cg$row_type ) IS - dk_check INTEGER; -BEGIN - NULL; -END validate_domain_cascade_update; - - ------------------------------------------------------------------------------------------ --- Name: domain_cascade_update --- --- Description: Implement the Domain Key Constraint Cascade Updates rules of each --- child table that references this table NOM_WINDOW_CONTRACTS --- --- Parameters: cg$new_rec New values for NOM_WINDOW_CONTRACTS's domain key constraint columns --- cg$new_ind Indicates changed NOM_WINDOW_CONTRACTS's domain key constraint columns --- cg$old_rec Current values for NOM_WINDOW_CONTRACTS's domain key constraint columns ------------------------------------------------------------------------------------------ -PROCEDURE domain_cascade_update(cg$new_rec IN OUT cg$row_type, - cg$new_ind IN OUT cg$ind_type, - cg$old_rec IN cg$row_type) IS -BEGIN - NULL; -END domain_cascade_update; - - --------------------------------------------------------------------------------- --- Name: cascade_delete --- --- Description: Delete all child tables affected by a delete to NOM_WINDOW_CONTRACTS --- --- Parameters: cg$rec Record of NOM_WINDOW_CONTRACTS current values --------------------------------------------------------------------------------- -PROCEDURE cascade_delete(cg$old_rec IN OUT cg$row_type) -IS -BEGIN - NULL; -END cascade_delete; - --------------------------------------------------------------------------------- --- Name: domain_cascade_delete --- --- Description: Implement the Domain Key Constraint Cascade Delete rules of each --- child table that references this tableNOM_WINDOW_CONTRACTS --- --- Parameters: cg$old_rec Record of NOM_WINDOW_CONTRACTS current values --------------------------------------------------------------------------------- -PROCEDURE domain_cascade_delete( cg$old_rec IN cg$row_type ) -IS -BEGIN - NULL; -END domain_cascade_delete; - - --------------------------------------------------------------------------------- --- Name: validate_domain_cascade_delete --- --- Description: Implement the Domain Key Constraint Cascade Delete Restricts rule --- of each child table that references this tableNOM_WINDOW_CONTRACTS --- --- Parameters: cg$old_rec Record of NOM_WINDOW_CONTRACTS current values --------------------------------------------------------------------------------- -PROCEDURE validate_domain_cascade_delete(cg$old_rec IN cg$row_type) -IS - dk_check INTEGER; -BEGIN - NULL; -END validate_domain_cascade_delete; - - - --------------------------------------------------------------------------------- --- Name: validate_arc --- --- Description: Checks for adherence to arc relationship --- --- Parameters: cg$rec Record of NOM_WINDOW_CONTRACTS current values --------------------------------------------------------------------------------- -PROCEDURE validate_arc(cg$rec IN OUT cg$row_type) IS -i NUMBER; -BEGIN - NULL; -END validate_arc; - - --------------------------------------------------------------------------------- --- Name: validate_domain --- --- Description: Checks against reference table for values lying in a domain --- --- Parameters: cg$rec Record of NOM_WINDOW_CONTRACTS current values --------------------------------------------------------------------------------- -PROCEDURE validate_domain(cg$rec IN OUT cg$row_type, - cg$ind IN cg$ind_type DEFAULT cg$ind_true) -IS - dummy NUMBER; - found BOOLEAN; - no_tabview EXCEPTION; - PRAGMA EXCEPTION_INIT(no_tabview, -942); -BEGIN - - - - - - NULL; - -EXCEPTION - WHEN cg$errors.cg$error THEN - cg$errors.raise_failure; - WHEN no_tabview THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_RV_TAB_NOT_FOUND, - cg$errors.APIMSG_RV_TAB_NOT_FOUND, - 'CG_REF_CODES','NOM_WINDOW_CONTRACTS'), - 'E', - 'API', - cg$errors.API_RV_TAB_NOT_FOUND, - 'cg$NOM_WINDOW_CONTRACTS.v_domain.no_reftable_found'); - cg$errors.raise_failure; - WHEN OTHERS THEN - cg$errors.push(SQLERRM, - 'E', - 'ORA', - SQLCODE, - 'cg$NOM_WINDOW_CONTRACTS.v_domain.others'); - cg$errors.raise_failure; -END validate_domain; - - --------------------------------------------------------------------------------- --- Name: err_msg --- --- Description: Pushes onto stack appropriate user defined error message --- depending on the rule violated --- --- Parameters: msg Oracle error message --- type Type of violation e.g. check_constraint: ERR_CHECK_CON --- loc Place where this procedure was called for error --- trapping --------------------------------------------------------------------------------- -PROCEDURE err_msg(msg IN VARCHAR2, - type IN INTEGER, - loc IN VARCHAR2 DEFAULT '') IS -con_name VARCHAR2(240); -BEGIN - con_name := cg$errors.parse_constraint(msg, type); - IF (con_name = 'NOWC_PK') THEN - cg$errors.push(nvl(NOWC_PK - ,cg$errors.MsgGetText(cg$errors.API_PK_CON_VIOLATED - ,cg$errors.APIMSG_PK_VIOLAT - ,'NOWC_PK' - ,'NOM_WINDOW_CONTRACTS')), - 'E', - 'API', - cg$errors.API_PK_CON_VIOLATED, - loc); - - ELSIF (con_name = 'NOWC_CUST_FK') THEN - cg$errors.push(nvl(NOWC_CUST_FK - ,cg$errors.MsgGetText(cg$errors.API_FK_CON_VIOLATED - ,cg$errors.APIMSG_FK_VIOLAT - ,'NOWC_CUST_FK' - ,'NOM_WINDOW_CONTRACTS')), - 'E', - 'API', - cg$errors.API_FK_CON_VIOLATED, - loc); - ELSIF (con_name = 'NOWC_NOWI_FK') THEN - cg$errors.push(nvl(NOWC_NOWI_FK - ,cg$errors.MsgGetText(cg$errors.API_FK_CON_VIOLATED - ,cg$errors.APIMSG_FK_VIOLAT - ,'NOWC_NOWI_FK' - ,'NOM_WINDOW_CONTRACTS')), - 'E', - 'API', - cg$errors.API_FK_CON_VIOLATED, - loc); - ELSE - cg$errors.push(SQLERRM, - 'E', - 'ORA', - SQLCODE, - loc); - END IF; -END err_msg; - - - - --------------------------------------------------------------------------------- --- Name: doLobs --- --- Description: This function is updating lob columns --- --- Parameters: cg$rec Record of row to be inserted --- cg$ind Record of columns specifically set --------------------------------------------------------------------------------- -PROCEDURE doLobs(cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type) IS -BEGIN - NULL; -END doLobs; - - --------------------------------------------------------------------------------- --- Name: ins --- --- Description: API insert procedure --- --- Parameters: cg$rec Record of row to be inserted --- cg$ind Record of columns specifically set --- do_ins Whether we want the actual INSERT to occur --------------------------------------------------------------------------------- -PROCEDURE ins(cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - do_ins IN BOOLEAN DEFAULT TRUE) IS -cg$tmp_rec cg$row_type; - --- Constant default values - - -BEGIN --- Application_logic Pre-Insert <> --- Application_logic Pre-Insert << End >> - --- Defaulted - --- Auto-generated and uppercased columns - - up_autogen_columns(cg$rec, cg$ind, 'INS', do_ins); - - called_from_package := TRUE; - - IF (do_ins) THEN - validate_foreign_keys_ins(cg$rec); - validate_arc(cg$rec); - validate_domain(cg$rec); - - INSERT INTO NOM_WINDOW_CONTRACTS - (CONT_ID - ,NOWI_ID - ,NOWC_ID) - VALUES - (cg$rec.CONT_ID - ,cg$rec.NOWI_ID - ,cg$rec.NOWC_ID -); - doLobs(cg$rec, cg$ind); - slct(cg$rec); - - upd_oper_denorm2(cg$rec, cg$tmp_rec, cg$ind, 'INS'); - END IF; - - called_from_package := FALSE; - - - --- Application logic Post-Insert <> --- Application logic Post-Insert << End >> - -EXCEPTION - WHEN cg$errors.cg$error THEN - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.mandatory_missing THEN - validate_mandatory(cg$rec, 'cg$NOM_WINDOW_CONTRACTS.ins.mandatory_missing'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.check_violation THEN - err_msg(SQLERRM, cg$errors.ERR_CHECK_CON, 'cg$NOM_WINDOW_CONTRACTS.ins.check_violation'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.fk_violation THEN - err_msg(SQLERRM, cg$errors.ERR_FOREIGN_KEY, 'cg$NOM_WINDOW_CONTRACTS.ins.fk_violation'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.uk_violation THEN - err_msg(SQLERRM, cg$errors.ERR_UNIQUE_KEY, 'cg$NOM_WINDOW_CONTRACTS.ins.uk_violation'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN OTHERS THEN - cg$errors.push(SQLERRM, - 'E', - 'ORA', - SQLCODE, - 'cg$NOM_WINDOW_CONTRACTS.ins.others'); - called_from_package := FALSE; - cg$errors.raise_failure; -END ins; - - --------------------------------------------------------------------------------- --- Name: upd --- --- Description: API update procedure --- --- Parameters: cg$rec Record of row to be updated --- cg$ind Record of columns specifically set --- do_upd Whether we want the actual UPDATE to occur --------------------------------------------------------------------------------- -PROCEDURE upd(cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - do_upd IN BOOLEAN DEFAULT TRUE, - cg$pk IN cg$row_type DEFAULT NULL ) -IS - cg$upd_rec cg$row_type; - cg$old_rec cg$row_type; - RECORD_LOGGED BOOLEAN := FALSE; -BEGIN --- Application_logic Pre-Update <> --- Application_logic Pre-Update << End >> - - - IF ( cg$pk.NOWC_ID IS NULL ) THEN - cg$upd_rec.NOWC_ID := cg$rec.NOWC_ID; - ELSE - cg$upd_rec.NOWC_ID := cg$pk.NOWC_ID; - END IF; - cg$old_rec.NOWC_ID := cg$upd_rec.NOWC_ID; - - IF ( cg$pk.the_rowid IS NULL ) THEN - cg$upd_rec.the_rowid := cg$rec.the_rowid; - ELSE - cg$upd_rec.the_rowid := cg$pk.the_rowid; - END IF; - cg$old_rec.the_rowid := cg$upd_rec.the_rowid; - - IF ( do_upd ) THEN - - slct(cg$upd_rec); - - - -- Report error if attempt to update non updateable Primary Key NOWC_PK - IF (cg$ind.NOWC_ID AND cg$rec.NOWC_ID != cg$upd_rec.NOWC_ID) THEN - raise_uk_not_updateable('NOWC_PK'); - END IF; - IF NOT (cg$ind.CONT_ID) THEN - cg$rec.CONT_ID := cg$upd_rec.CONT_ID; - END IF; - IF NOT (cg$ind.NOWI_ID) THEN - cg$rec.NOWI_ID := cg$upd_rec.NOWI_ID; - END IF; - IF NOT (cg$ind.NOWC_ID) THEN - cg$rec.NOWC_ID := cg$upd_rec.NOWC_ID; - END IF; - ELSE - -- Perform checks if called from a trigger - -- Indicators are only set on changed values - null; - -- Report error if attempt to update non updateable Primary Key NOWC_PK - IF ( cg$ind.NOWC_ID ) THEN - raise_uk_not_updateable('NOWC_PK'); - END IF; - END IF; - - up_autogen_columns(cg$rec, cg$ind, 'UPD', do_upd); -- Auto-generated and uppercased columns - --- Now do update if updateable columns exist - IF (do_upd) THEN - DECLARE - called_from BOOLEAN := called_from_package; - BEGIN - called_from_package := TRUE; - - slct(cg$old_rec); - validate_foreign_keys_upd(cg$rec, cg$old_rec, cg$ind); - validate_arc(cg$rec); - validate_domain(cg$rec, cg$ind); - validate_domain_cascade_update(cg$old_rec); - - IF cg$rec.the_rowid is null THEN - UPDATE NOM_WINDOW_CONTRACTS - SET - CONT_ID = cg$rec.CONT_ID - ,NOWI_ID = cg$rec.NOWI_ID - WHERE NOWC_ID = cg$rec.NOWC_ID; - null; - ELSE - UPDATE NOM_WINDOW_CONTRACTS - SET - CONT_ID = cg$rec.CONT_ID - ,NOWI_ID = cg$rec.NOWI_ID - WHERE rowid = cg$rec.the_rowid; - - null; - END IF; - - slct(cg$rec); - - upd_denorm2(cg$rec, cg$ind); - upd_oper_denorm2(cg$rec, cg$old_rec, cg$ind, 'UPD'); - cascade_update(cg$rec, cg$old_rec); - domain_cascade_update(cg$rec, cg$ind, cg$old_rec); - called_from_package := called_from; - END; - END IF; - - - - IF NOT (do_upd) THEN - cg$table(idx).CONT_ID := cg$rec.CONT_ID; - cg$tableind(idx).CONT_ID := cg$ind.CONT_ID; - cg$table(idx).NOWI_ID := cg$rec.NOWI_ID; - cg$tableind(idx).NOWI_ID := cg$ind.NOWI_ID; - cg$table(idx).NOWC_ID := cg$rec.NOWC_ID; - cg$tableind(idx).NOWC_ID := cg$ind.NOWC_ID; - idx := idx + 1; - END IF; - --- Application_logic Post-Update <> --- Application_logic Post-Update << End >> - -EXCEPTION - WHEN cg$errors.cg$error THEN - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.upd_mandatory_null THEN - validate_mandatory(cg$rec, 'cg$NOM_WINDOW_CONTRACTS.upd.upd_mandatory_null'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.check_violation THEN - err_msg(SQLERRM, cg$errors.ERR_CHECK_CON, 'cg$NOM_WINDOW_CONTRACTS.upd.check_violation'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.fk_violation THEN - err_msg(SQLERRM, cg$errors.ERR_FOREIGN_KEY, 'cg$NOM_WINDOW_CONTRACTS.upd.fk_violation'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.uk_violation THEN - err_msg(SQLERRM, cg$errors.ERR_UNIQUE_KEY, 'cg$NOM_WINDOW_CONTRACTS.upd.uk_violation'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN OTHERS THEN - cg$errors.push(SQLERRM, - 'E', - 'ORA', - SQLCODE, - 'cg$NOM_WINDOW_CONTRACTS.upd.others'); - called_from_package := FALSE; - cg$errors.raise_failure; -END upd; - - ----------------------------------------------------------------------------------------- --- Name: domain_cascade_upd --- --- Description: Update the Domain Constraint Key columns of NOM_WINDOW_CONTRACTS when the --- Cascade Update rule is Cascades and the domain table has been --- updated. Called from .domain_cascade_update(). --- --- Parameters: cg$rec New values for NOM_WINDOW_CONTRACTS's domain key constraint columns --- cg$ind Indicates changed NOM_WINDOW_CONTRACTS's domain key constraint columns --- cg$old_rec Current values for NOM_WINDOW_CONTRACTS's domain key constraint columns ----------------------------------------------------------------------------------------- -PROCEDURE domain_cascade_upd( cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - cg$old_rec IN cg$row_type ) -IS - called_from BOOLEAN := called_from_package; -BEGIN - - null; -END domain_cascade_upd; - - --------------------------------------------------------------------------------- --- Name: upd_denorm --- --- Description: API procedure for simple denormalization --- --- Parameters: cg$rec Record of row to be updated --- cg$ind Record of columns specifically set --- do_upd Whether we want the actual UPDATE to occur --------------------------------------------------------------------------------- -PROCEDURE upd_denorm2( cg$rec IN cg$row_type, - cg$ind IN cg$ind_type ) IS -BEGIN - NULL; -END upd_denorm2; - - --------------------------------------------------------------------------------- --- Name: upd_oper_denorm --- --- Description: API procedure for operation denormalization --- --- Parameters: cg$rec Record of row to be updated --- cg$ind Record of columns specifically set --- do_upd Whether we want the actual UPDATE to occur --------------------------------------------------------------------------------- -PROCEDURE upd_oper_denorm2( cg$rec IN cg$row_type, - cg$old_rec IN cg$row_type, - cg$ind IN cg$ind_type, - operation IN VARCHAR2 DEFAULT 'UPD' - ) -IS -BEGIN - - - -NULL; -END upd_oper_denorm2; - --------------------------------------------------------------------------------- --- Name: del --- --- Description: API delete procedure --- --- Parameters: cg$pk Primary key record of row to be deleted --------------------------------------------------------------------------------- -PROCEDURE del(cg$pk IN cg$pk_type, - do_del IN BOOLEAN DEFAULT TRUE) IS -BEGIN --- Application_logic Pre-Delete <> --- Application_logic Pre-Delete << End >> - --- Delete the record - - called_from_package := TRUE; - - IF (do_del) THEN - DECLARE - cg$rec cg$row_type; - cg$old_rec cg$row_type; - cg$ind cg$ind_type; - BEGIN - cg$rec.NOWC_ID := cg$pk.NOWC_ID; - slct(cg$rec); - - validate_foreign_keys_del(cg$rec); - validate_domain_cascade_delete(cg$rec); - - IF cg$pk.the_rowid is null THEN - DELETE NOM_WINDOW_CONTRACTS - WHERE NOWC_ID = cg$pk.NOWC_ID; - ELSE - DELETE NOM_WINDOW_CONTRACTS - WHERE rowid = cg$pk.the_rowid; - END IF; - - upd_oper_denorm2(cg$rec, cg$old_rec, cg$ind, 'DEL'); - cascade_delete(cg$rec); - domain_cascade_delete(cg$rec); - END; - END IF; - - called_from_package := FALSE; - - --- Application_logic Post-Delete <> --- Application_logic Post-Delete << End >> - -EXCEPTION - WHEN cg$errors.cg$error THEN - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN cg$errors.delete_restrict THEN - err_msg(SQLERRM, cg$errors.ERR_DELETE_RESTRICT, 'cg$NOM_WINDOW_CONTRACTS.del.delete_restrict'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN no_data_found THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_DEL, cg$errors.ROW_DEL), - 'E', - 'ORA', - SQLCODE, - 'cg$NOM_WINDOW_CONTRACTS.del.no_data_found'); - called_from_package := FALSE; - cg$errors.raise_failure; - WHEN OTHERS THEN - cg$errors.push(SQLERRM, - 'E', - 'ORA', - SQLCODE, - 'cg$NOM_WINDOW_CONTRACTS.del.others'); - called_from_package := FALSE; - cg$errors.raise_failure; -END del; - - --------------------------------------------------------------------------------- --- Name: lck --- --- Description: API lock procedure --- --- Parameters: cg$old_rec Calling apps view of record of row to be locked --- cg$old_ind Record of columns to raise error if modified --- nowait_flag TRUE lock with NOWAIT, FALSE don't fail if busy --------------------------------------------------------------------------------- -PROCEDURE lck(cg$old_rec IN cg$row_type, - cg$old_ind IN cg$ind_type, - nowait_flag IN BOOLEAN DEFAULT TRUE) IS -cg$tmp_rec cg$row_type; -any_modified BOOLEAN := FALSE; - -BEGIN --- Application_logic Pre-Lock <> --- Application_logic Pre-Lock << End >> - --- Do the row lock - - BEGIN - IF (nowait_flag) THEN - IF cg$old_rec.the_rowid is null THEN - SELECT CONT_ID - , NOWI_ID - , NOWC_ID - INTO cg$tmp_rec.CONT_ID - , cg$tmp_rec.NOWI_ID - , cg$tmp_rec.NOWC_ID - FROM NOM_WINDOW_CONTRACTS - WHERE NOWC_ID = cg$old_rec.NOWC_ID - FOR UPDATE NOWAIT; - ELSE - SELECT CONT_ID - , NOWI_ID - , NOWC_ID - INTO cg$tmp_rec.CONT_ID - , cg$tmp_rec.NOWI_ID - , cg$tmp_rec.NOWC_ID - FROM NOM_WINDOW_CONTRACTS - WHERE rowid = cg$old_rec.the_rowid - FOR UPDATE NOWAIT; - END IF; - ELSE - IF cg$old_rec.the_rowid is null THEN - SELECT CONT_ID - , NOWI_ID - , NOWC_ID - INTO cg$tmp_rec.CONT_ID - , cg$tmp_rec.NOWI_ID - , cg$tmp_rec.NOWC_ID - FROM NOM_WINDOW_CONTRACTS - WHERE NOWC_ID = cg$old_rec.NOWC_ID - FOR UPDATE; - ELSE - SELECT CONT_ID - , NOWI_ID - , NOWC_ID - INTO cg$tmp_rec.CONT_ID - , cg$tmp_rec.NOWI_ID - , cg$tmp_rec.NOWC_ID - FROM NOM_WINDOW_CONTRACTS - WHERE rowid = cg$old_rec.the_rowid - FOR UPDATE; - END IF; - END IF; - - EXCEPTION - WHEN cg$errors.cg$error THEN - cg$errors.raise_failure; - WHEN cg$errors.resource_busy THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_LCK, cg$errors.ROW_LCK), - 'E', - 'ORA', - SQLCODE, - 'cg$NOM_WINDOW_CONTRACTS.lck.resource_busy'); - cg$errors.raise_failure; - WHEN no_data_found THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_DEL, cg$errors.ROW_DEL), - 'E', - 'ORA', - SQLCODE, - 'cg$NOM_WINDOW_CONTRACTS.lck.no_data_found'); - cg$errors.raise_failure; - WHEN OTHERS THEN - cg$errors.push(SQLERRM, - 'E', - 'ORA', - SQLCODE, - 'cg$NOM_WINDOW_CONTRACTS.lck.others'); - cg$errors.raise_failure; - END; - --- Optional Columns - - --- Mandatory Columns - - IF (cg$old_ind.CONT_ID) THEN - IF (cg$tmp_rec.CONT_ID != cg$old_rec.CONT_ID) THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_MOD, cg$errors.ROW_MOD, P1CONT_ID - ),'E', 'API', CG$ERRORS.API_MODIFIED, 'cg$NOM_WINDOW_CONTRACTS.lck'); - any_modified := TRUE; - END IF; - END IF; - IF (cg$old_ind.NOWI_ID) THEN - IF (cg$tmp_rec.NOWI_ID != cg$old_rec.NOWI_ID) THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_MOD, cg$errors.ROW_MOD, P2NOWI_ID - ),'E', 'API', CG$ERRORS.API_MODIFIED, 'cg$NOM_WINDOW_CONTRACTS.lck'); - any_modified := TRUE; - END IF; - END IF; - IF (cg$old_ind.NOWC_ID) THEN - IF (cg$tmp_rec.NOWC_ID != cg$old_rec.NOWC_ID) THEN - cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_MOD, cg$errors.ROW_MOD, P3NOWC_ID - ),'E', 'API', CG$ERRORS.API_MODIFIED, 'cg$NOM_WINDOW_CONTRACTS.lck'); - any_modified := TRUE; - END IF; - END IF; - - IF (any_modified) THEN - cg$errors.raise_failure; - END IF; - --- Application_logic Post-Lock <> --- Application_logic Post-Lock << End >> - -END lck; - - -BEGIN - cg$ind_true.CONT_ID := TRUE; - cg$ind_true.NOWI_ID := TRUE; - cg$ind_true.NOWC_ID := TRUE; - - -END cg$NOM_WINDOW_CONTRACTS; -/ - diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/NOWC.PKS b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/NOWC.PKS deleted file mode 100644 index b85822c..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/NOWC.PKS +++ /dev/null @@ -1,107 +0,0 @@ - -PROMPT Creating API Package Specification for Table 'NOM_WINDOW_CONTRACTS' --------------------------------------------------------------------------------- --- Name: cg$NOM_WINDOW_CONTRACTS --- Description: NOM_WINDOW_CONTRACTS table API package declarations --------------------------------------------------------------------------------- -CREATE OR REPLACE PACKAGE cg$NOM_WINDOW_CONTRACTS IS - -called_from_package BOOLEAN := FALSE; - --- Repository User-Defined Error Messages -NOWC_PK CONSTANT VARCHAR2(240) := ''; -NOWC_CUST_FK CONSTANT VARCHAR2(240) := ''; -NOWC_NOWI_FK CONSTANT VARCHAR2(240) := ''; - --- Column default prompts. Format PSEQNO_COL -P1CONT_ID CONSTANT VARCHAR2(240) := 'Cust Id'; -P2NOWI_ID CONSTANT VARCHAR2(240) := 'Nowi Id'; -P3NOWC_ID CONSTANT VARCHAR2(240) := 'Nowc Id'; - -cg$row NOM_WINDOW_CONTRACTS%ROWTYPE; - --- NOM_WINDOW_CONTRACTS row type variable -TYPE cg$row_type IS RECORD -(CONT_ID cg$row.CONT_ID%TYPE -,NOWI_ID cg$row.NOWI_ID%TYPE -,NOWC_ID cg$row.NOWC_ID%TYPE -,the_rowid ROWID) -; - --- NOM_WINDOW_CONTRACTS indicator type variable -TYPE cg$ind_type IS RECORD -(CONT_ID BOOLEAN DEFAULT FALSE -,NOWI_ID BOOLEAN DEFAULT FALSE -,NOWC_ID BOOLEAN DEFAULT FALSE); - -cg$ind_true cg$ind_type; - --- NOM_WINDOW_CONTRACTS primary key type variable -TYPE cg$pk_type IS RECORD -(NOWC_ID cg$row.NOWC_ID%TYPE -,the_rowid ROWID) -; - --- PL/SQL Table Type variable for triggers -TYPE cg$table_type IS TABLE OF NOM_WINDOW_CONTRACTS%ROWTYPE - INDEX BY BINARY_INTEGER; -cg$table cg$table_type; - -TYPE cg$tableind_type IS TABLE OF cg$ind_type - INDEX BY BINARY_INTEGER; -cg$tableind cg$tableind_type; -idx BINARY_INTEGER := 1; - -PROCEDURE ins(cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - do_ins IN BOOLEAN DEFAULT TRUE - ); -PROCEDURE upd(cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - do_upd IN BOOLEAN DEFAULT TRUE, - cg$pk IN cg$row_type DEFAULT NULL - ); -PROCEDURE del(cg$pk IN cg$pk_type, - do_del IN BOOLEAN DEFAULT TRUE - ); -PROCEDURE lck(cg$old_rec IN cg$row_type, - cg$old_ind IN cg$ind_type, - nowait_flag IN BOOLEAN DEFAULT TRUE - ); -PROCEDURE slct(cg$sel_rec IN OUT cg$row_type); - -PROCEDURE validate_arc(cg$rec IN OUT cg$row_type); - -PROCEDURE validate_domain(cg$rec IN OUT cg$row_type, - cg$ind IN cg$ind_type DEFAULT cg$ind_true); - -PROCEDURE validate_foreign_keys_ins(cg$rec IN cg$row_type); -PROCEDURE validate_foreign_keys_upd(cg$rec IN cg$row_type, - cg$old_rec IN cg$row_type, - cg$ind IN cg$ind_type); -PROCEDURE validate_foreign_keys_del(cg$rec IN cg$row_type); - -PROCEDURE validate_domain_cascade_delete(cg$old_rec IN cg$row_type); -PROCEDURE validate_domain_cascade_update(cg$old_rec IN cg$row_type); - -PROCEDURE cascade_update(cg$new_rec IN OUT cg$row_type, - cg$old_rec IN cg$row_type ); -PROCEDURE domain_cascade_update(cg$new_rec IN OUT cg$row_type, - cg$new_ind IN OUT cg$ind_type, - cg$old_rec IN cg$row_type); -PROCEDURE domain_cascade_upd( cg$rec IN OUT cg$row_type, - cg$ind IN OUT cg$ind_type, - cg$old_rec IN cg$row_type); - -PROCEDURE cascade_delete(cg$old_rec IN OUT cg$row_type); -PROCEDURE domain_cascade_delete(cg$old_rec IN cg$row_type); - -PROCEDURE upd_denorm2( cg$rec IN cg$row_type, - cg$ind IN cg$ind_type ); -PROCEDURE upd_oper_denorm2( cg$rec IN cg$row_type, - cg$old_rec IN cg$row_type, - cg$ind IN cg$ind_type, - operation IN VARCHAR2 DEFAULT 'UPD' ); -END cg$NOM_WINDOW_CONTRACTS; -/ - diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/NOWC.TRG b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/NOWC.TRG deleted file mode 100644 index 21a52a7..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/NOWC.TRG +++ /dev/null @@ -1,356 +0,0 @@ - -PROMPT Creating Trigger Logic for Table 'NOM_WINDOW_CONTRACTS' -PROMPT Creating Before Insert Statement Trigger on 'NOM_WINDOW_CONTRACTS' -CREATE OR REPLACE TRIGGER cg$BIS_NOM_WINDOW_CONTRACTS -BEFORE INSERT ON NOM_WINDOW_CONTRACTS -BEGIN --- Application_logic Pre-Before-Insert-statement <> --- Application_logic Pre-Before-Insert-statement << End >> - - cg$NOM_WINDOW_CONTRACTS.cg$table.DELETE; - cg$NOM_WINDOW_CONTRACTS.cg$tableind.DELETE; - cg$NOM_WINDOW_CONTRACTS.idx := 1; - --- Application_logic Post-Before-Insert-statement <> --- Application_logic Post-Before-Insert-statement << End >> -END; -/ - - -PROMPT Creating Before Insert Row Trigger on 'NOM_WINDOW_CONTRACTS' -CREATE OR REPLACE TRIGGER cg$BIR_NOM_WINDOW_CONTRACTS -BEFORE INSERT ON NOM_WINDOW_CONTRACTS FOR EACH ROW -DECLARE - cg$rec cg$NOM_WINDOW_CONTRACTS.cg$row_type; - cg$ind cg$NOM_WINDOW_CONTRACTS.cg$ind_type; -BEGIN --- Application_logic Pre-Before-Insert-row <> --- Application_logic Pre-Before-Insert-row << End >> - --- Load cg$rec/cg$ind values from new - - cg$rec.CONT_ID := :new.CONT_ID; - cg$ind.CONT_ID := TRUE; - cg$rec.NOWI_ID := :new.NOWI_ID; - cg$ind.NOWI_ID := TRUE; - cg$rec.NOWC_ID := :new.NOWC_ID; - cg$ind.NOWC_ID := TRUE; - - if not (cg$NOM_WINDOW_CONTRACTS.called_from_package) then - cg$NOM_WINDOW_CONTRACTS.validate_arc(cg$rec); - cg$NOM_WINDOW_CONTRACTS.validate_domain(cg$rec); - - cg$NOM_WINDOW_CONTRACTS.ins(cg$rec, cg$ind, FALSE); - cg$NOM_WINDOW_CONTRACTS.called_from_package := FALSE; - end if; - - cg$NOM_WINDOW_CONTRACTS.cg$table(cg$NOM_WINDOW_CONTRACTS.idx).CONT_ID := cg$rec.CONT_ID; - cg$NOM_WINDOW_CONTRACTS.cg$tableind(cg$NOM_WINDOW_CONTRACTS.idx).CONT_ID := cg$ind.CONT_ID; - - cg$NOM_WINDOW_CONTRACTS.cg$table(cg$NOM_WINDOW_CONTRACTS.idx).NOWI_ID := cg$rec.NOWI_ID; - cg$NOM_WINDOW_CONTRACTS.cg$tableind(cg$NOM_WINDOW_CONTRACTS.idx).NOWI_ID := cg$ind.NOWI_ID; - - cg$NOM_WINDOW_CONTRACTS.cg$table(cg$NOM_WINDOW_CONTRACTS.idx).NOWC_ID := cg$rec.NOWC_ID; - cg$NOM_WINDOW_CONTRACTS.cg$tableind(cg$NOM_WINDOW_CONTRACTS.idx).NOWC_ID := cg$ind.NOWC_ID; - - cg$NOM_WINDOW_CONTRACTS.idx := cg$NOM_WINDOW_CONTRACTS.idx + 1; - - :new.CONT_ID := cg$rec.CONT_ID; - :new.NOWI_ID := cg$rec.NOWI_ID; - :new.NOWC_ID := cg$rec.NOWC_ID; - --- Application_logic Post-Before-Insert-row <> --- Application_logic Post-Before-Insert-row << End >> -END; -/ - - --- No application logic defined for Trigger cg$AIR_NOM_WINDOW_CONTRACTS, so drop it. --- To avoid an error if there isn't one, create or replace it, and then drop it -CREATE OR REPLACE TRIGGER cg$AIR_NOM_WINDOW_CONTRACTS -AFTER INSERT ON NOM_WINDOW_CONTRACTS FOR EACH ROW -BEGIN - null; -END; -/ -drop trigger cg$AIR_NOM_WINDOW_CONTRACTS -/ - -PROMPT Creating After Insert Statement Trigger on 'NOM_WINDOW_CONTRACTS' -CREATE OR REPLACE TRIGGER cg$AIS_NOM_WINDOW_CONTRACTS -AFTER INSERT ON NOM_WINDOW_CONTRACTS -DECLARE - idx BINARY_INTEGER := cg$NOM_WINDOW_CONTRACTS.cg$table.FIRST; - cg$rec cg$NOM_WINDOW_CONTRACTS.cg$row_type; - cg$old_rec cg$NOM_WINDOW_CONTRACTS.cg$row_type; - fk_check INTEGER; -BEGIN --- Application_logic Pre-After-Insert-statement <> --- Application_logic Pre-After-Insert-statement << End >> - - - IF NOT (cg$NOM_WINDOW_CONTRACTS.called_from_package) THEN - WHILE idx IS NOT NULL LOOP - cg$rec.CONT_ID := cg$NOM_WINDOW_CONTRACTS.cg$table(idx).CONT_ID; - cg$rec.NOWI_ID := cg$NOM_WINDOW_CONTRACTS.cg$table(idx).NOWI_ID; - cg$rec.NOWC_ID := cg$NOM_WINDOW_CONTRACTS.cg$table(idx).NOWC_ID; - - cg$NOM_WINDOW_CONTRACTS.validate_foreign_keys_ins(cg$rec); - - cg$NOM_WINDOW_CONTRACTS.upd_oper_denorm2( cg$rec, - cg$old_rec, - cg$NOM_WINDOW_CONTRACTS.cg$tableind(idx), - 'INS' - ); - - idx := cg$NOM_WINDOW_CONTRACTS.cg$table.NEXT(idx); - END LOOP; - END IF; - --- Application_logic Post-After-Insert-statement <> --- Application_logic Post-After-Insert-statement << End >> - -END; -/ - - - - -PROMPT Creating Before Update Statement Trigger on 'NOM_WINDOW_CONTRACTS' -CREATE OR REPLACE TRIGGER cg$BUS_NOM_WINDOW_CONTRACTS -BEFORE UPDATE ON NOM_WINDOW_CONTRACTS -BEGIN --- Application_logic Pre-Before-Update-statement <> --- Application_logic Pre-Before-Update-statement << End >> - - cg$NOM_WINDOW_CONTRACTS.cg$table.DELETE; - cg$NOM_WINDOW_CONTRACTS.cg$tableind.DELETE; - cg$NOM_WINDOW_CONTRACTS.idx := 1; - --- Application_logic Post-Before-Update-statement <> --- Application_logic Post-Before-Update-statement << End >> - -END; -/ - - -PROMPT Creating Before Update Row Trigger on 'NOM_WINDOW_CONTRACTS' -CREATE OR REPLACE TRIGGER cg$BUR_NOM_WINDOW_CONTRACTS -BEFORE UPDATE ON NOM_WINDOW_CONTRACTS FOR EACH ROW -DECLARE - cg$rec cg$NOM_WINDOW_CONTRACTS.cg$row_type; - cg$ind cg$NOM_WINDOW_CONTRACTS.cg$ind_type; - cg$old_rec cg$NOM_WINDOW_CONTRACTS.cg$row_type; -BEGIN --- Application_logic Pre-Before-Update-row <> --- Application_logic Pre-Before-Update-row << End >> - --- Load cg$rec/cg$ind values from new - - cg$rec.CONT_ID := :new.CONT_ID; - cg$ind.CONT_ID := (:new.CONT_ID IS NULL AND :old.CONT_ID IS NOT NULL ) - OR (:new.CONT_ID IS NOT NULL AND :old.CONT_ID IS NULL) - OR NOT(:new.CONT_ID = :old.CONT_ID) ; - cg$NOM_WINDOW_CONTRACTS.cg$table(cg$NOM_WINDOW_CONTRACTS.idx).CONT_ID := :old.CONT_ID; - cg$rec.NOWI_ID := :new.NOWI_ID; - cg$ind.NOWI_ID := (:new.NOWI_ID IS NULL AND :old.NOWI_ID IS NOT NULL ) - OR (:new.NOWI_ID IS NOT NULL AND :old.NOWI_ID IS NULL) - OR NOT(:new.NOWI_ID = :old.NOWI_ID) ; - cg$NOM_WINDOW_CONTRACTS.cg$table(cg$NOM_WINDOW_CONTRACTS.idx).NOWI_ID := :old.NOWI_ID; - cg$rec.NOWC_ID := :new.NOWC_ID; - cg$ind.NOWC_ID := (:new.NOWC_ID IS NULL AND :old.NOWC_ID IS NOT NULL ) - OR (:new.NOWC_ID IS NOT NULL AND :old.NOWC_ID IS NULL) - OR NOT(:new.NOWC_ID = :old.NOWC_ID) ; - cg$NOM_WINDOW_CONTRACTS.cg$table(cg$NOM_WINDOW_CONTRACTS.idx).NOWC_ID := :old.NOWC_ID; - - - cg$NOM_WINDOW_CONTRACTS.idx := cg$NOM_WINDOW_CONTRACTS.idx + 1; - - if not (cg$NOM_WINDOW_CONTRACTS.called_from_package) then - cg$NOM_WINDOW_CONTRACTS.validate_arc(cg$rec); - cg$NOM_WINDOW_CONTRACTS.validate_domain(cg$rec, cg$ind); - cg$NOM_WINDOW_CONTRACTS.validate_domain_cascade_update(cg$old_rec); - - cg$NOM_WINDOW_CONTRACTS.upd(cg$rec, cg$ind, FALSE); - cg$NOM_WINDOW_CONTRACTS.called_from_package := FALSE; - end if; - - :new.CONT_ID := cg$rec.CONT_ID; - :new.NOWI_ID := cg$rec.NOWI_ID; --- Application_logic Post-Before-Update-row <> --- Application_logic Post-Before-Update-row << End >> -END; -/ - --- No application logic defined for Trigger cg$AUR_NOM_WINDOW_CONTRACTS, so drop it. --- To avoid an error if there isn't one, create or replace it, and then drop it -CREATE OR REPLACE TRIGGER cg$AUR_NOM_WINDOW_CONTRACTS -AFTER UPDATE ON NOM_WINDOW_CONTRACTS FOR EACH ROW -BEGIN - null; -END; -/ -drop trigger cg$AUR_NOM_WINDOW_CONTRACTS -/ - - - - - - -PROMPT Creating After Update Statement Trigger on 'NOM_WINDOW_CONTRACTS' -CREATE OR REPLACE TRIGGER cg$AUS_NOM_WINDOW_CONTRACTS -AFTER UPDATE ON NOM_WINDOW_CONTRACTS -DECLARE - idx BINARY_INTEGER := cg$NOM_WINDOW_CONTRACTS.cg$table.FIRST; - cg$old_rec cg$NOM_WINDOW_CONTRACTS.cg$row_type; - cg$rec cg$NOM_WINDOW_CONTRACTS.cg$row_type; - cg$ind cg$NOM_WINDOW_CONTRACTS.cg$ind_type; -BEGIN --- Application_logic Pre-After-Update-statement <> --- Application_logic Pre-After-Update-statement << End >> - - WHILE idx IS NOT NULL LOOP - cg$old_rec.CONT_ID := cg$NOM_WINDOW_CONTRACTS.cg$table(idx).CONT_ID; - cg$old_rec.NOWI_ID := cg$NOM_WINDOW_CONTRACTS.cg$table(idx).NOWI_ID; - cg$old_rec.NOWC_ID := cg$NOM_WINDOW_CONTRACTS.cg$table(idx).NOWC_ID; - - IF NOT (cg$NOM_WINDOW_CONTRACTS.called_from_package) THEN - idx := cg$NOM_WINDOW_CONTRACTS.cg$table.NEXT(idx); - cg$rec.CONT_ID := cg$NOM_WINDOW_CONTRACTS.cg$table(idx).CONT_ID; - cg$ind.CONT_ID := updating('CONT_ID'); - cg$rec.NOWI_ID := cg$NOM_WINDOW_CONTRACTS.cg$table(idx).NOWI_ID; - cg$ind.NOWI_ID := updating('NOWI_ID'); - cg$rec.NOWC_ID := cg$NOM_WINDOW_CONTRACTS.cg$table(idx).NOWC_ID; - cg$ind.NOWC_ID := updating('NOWC_ID'); - - cg$NOM_WINDOW_CONTRACTS.validate_foreign_keys_upd(cg$rec, cg$old_rec, cg$ind); - - cg$NOM_WINDOW_CONTRACTS.upd_denorm2( cg$rec, - cg$NOM_WINDOW_CONTRACTS.cg$tableind(idx) - ); - cg$NOM_WINDOW_CONTRACTS.upd_oper_denorm2( cg$rec, - cg$old_rec, - cg$NOM_WINDOW_CONTRACTS.cg$tableind(idx) - ); - cg$NOM_WINDOW_CONTRACTS.cascade_update(cg$rec, cg$old_rec); - cg$NOM_WINDOW_CONTRACTS.domain_cascade_update(cg$rec, cg$ind, cg$old_rec); - - cg$NOM_WINDOW_CONTRACTS.called_from_package := FALSE; - END IF; - idx := cg$NOM_WINDOW_CONTRACTS.cg$table.NEXT(idx); - END LOOP; - - cg$NOM_WINDOW_CONTRACTS.cg$table.DELETE; - --- Application_logic Post-After-Update-statement <> --- Application_logic Post-After-Update-statement << End >> - -END; -/ - -PROMPT Creating Before Delete Statement Trigger on 'NOM_WINDOW_CONTRACTS' -CREATE OR REPLACE TRIGGER cg$BDS_NOM_WINDOW_CONTRACTS -BEFORE DELETE ON NOM_WINDOW_CONTRACTS -BEGIN --- Application_logic Pre-Before-Delete-statement <> --- Application_logic Pre-Before-Delete-statement << End >> - - cg$NOM_WINDOW_CONTRACTS.cg$table.DELETE; - cg$NOM_WINDOW_CONTRACTS.cg$tableind.DELETE; - cg$NOM_WINDOW_CONTRACTS.idx := 1; - --- Application_logic Post-Before-Delete-statement <> --- Application_logic Post-Before-Delete-statement << End >> -END; -/ - - -PROMPT Creating Before Delete Row Trigger on 'NOM_WINDOW_CONTRACTS' -CREATE OR REPLACE TRIGGER cg$BDR_NOM_WINDOW_CONTRACTS -BEFORE DELETE ON NOM_WINDOW_CONTRACTS FOR EACH ROW -DECLARE - cg$pk cg$NOM_WINDOW_CONTRACTS.cg$pk_type; - cg$rec cg$NOM_WINDOW_CONTRACTS.cg$row_type; - cg$ind cg$NOM_WINDOW_CONTRACTS.cg$ind_type; -BEGIN --- Application_logic Pre-Before-Delete-row <> --- Application_logic Pre-Before-Delete-row << End >> - --- Load cg$rec/cg$ind values from new - - cg$pk.NOWC_ID := :old.NOWC_ID; - cg$rec.NOWC_ID := :old.NOWC_ID; - cg$NOM_WINDOW_CONTRACTS.cg$table(cg$NOM_WINDOW_CONTRACTS.idx).NOWC_ID := :old.NOWC_ID; - cg$rec.CONT_ID := :old.CONT_ID; - cg$NOM_WINDOW_CONTRACTS.cg$table(cg$NOM_WINDOW_CONTRACTS.idx).CONT_ID := :old.CONT_ID; - cg$rec.NOWI_ID := :old.NOWI_ID; - cg$NOM_WINDOW_CONTRACTS.cg$table(cg$NOM_WINDOW_CONTRACTS.idx).NOWI_ID := :old.NOWI_ID; - - - cg$NOM_WINDOW_CONTRACTS.idx := cg$NOM_WINDOW_CONTRACTS.idx + 1; - - if not (cg$NOM_WINDOW_CONTRACTS.called_from_package) then - cg$NOM_WINDOW_CONTRACTS.validate_domain_cascade_delete(cg$rec); - cg$NOM_WINDOW_CONTRACTS.del(cg$pk, FALSE); - cg$NOM_WINDOW_CONTRACTS.called_from_package := FALSE; - end if; - --- Application_logic Post-Before-Delete-row <> --- Application_logic Post-Before-Delete-row << End >> -END; -/ - --- No application logic defined for Trigger cg$ADR_NOM_WINDOW_CONTRACTS, so drop it. --- To avoid an error if there isn't one, create or replace it, and then drop it -CREATE OR REPLACE TRIGGER cg$ADR_NOM_WINDOW_CONTRACTS -AFTER DELETE ON NOM_WINDOW_CONTRACTS FOR EACH ROW -BEGIN - null; -END; -/ -drop trigger cg$ADR_NOM_WINDOW_CONTRACTS -/ - -PROMPT Creating After Delete Statement Trigger on 'NOM_WINDOW_CONTRACTS' -CREATE OR REPLACE TRIGGER cg$ADS_NOM_WINDOW_CONTRACTS -AFTER DELETE ON NOM_WINDOW_CONTRACTS -DECLARE - idx BINARY_INTEGER := cg$NOM_WINDOW_CONTRACTS.cg$table.FIRST; - cg$rec cg$NOM_WINDOW_CONTRACTS.cg$row_type; - cg$old_rec cg$NOM_WINDOW_CONTRACTS.cg$row_type; -BEGIN --- Application_logic Pre-After-Delete-statement <> --- Application_logic Pre-After-Delete-statement << End >> - - IF NOT (cg$NOM_WINDOW_CONTRACTS.called_from_package) THEN - WHILE idx IS NOT NULL LOOP - cg$rec.CONT_ID := cg$NOM_WINDOW_CONTRACTS.cg$table(idx).CONT_ID; - cg$NOM_WINDOW_CONTRACTS.cg$tableind(idx).CONT_ID := TRUE; - cg$rec.NOWI_ID := cg$NOM_WINDOW_CONTRACTS.cg$table(idx).NOWI_ID; - cg$NOM_WINDOW_CONTRACTS.cg$tableind(idx).NOWI_ID := TRUE; - cg$rec.NOWC_ID := cg$NOM_WINDOW_CONTRACTS.cg$table(idx).NOWC_ID; - cg$NOM_WINDOW_CONTRACTS.cg$tableind(idx).NOWC_ID := TRUE; - - cg$NOM_WINDOW_CONTRACTS.validate_foreign_keys_del(cg$rec); - cg$NOM_WINDOW_CONTRACTS.upd_oper_denorm2( cg$rec, - cg$old_rec, - cg$NOM_WINDOW_CONTRACTS.cg$tableind(idx), - 'DEL' - ); - - cg$NOM_WINDOW_CONTRACTS.cascade_delete(cg$rec); - cg$NOM_WINDOW_CONTRACTS.domain_cascade_delete(cg$rec); - - idx := cg$NOM_WINDOW_CONTRACTS.cg$table.NEXT(idx); - END LOOP; - END IF; - --- Application_logic Post-After-Delete-statement <> --- Application_logic Post-After-Delete-statement << End >> - -END; -/ - - - diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$.bdy deleted file mode 100644 index 6fced5b..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$.bdy +++ /dev/null @@ -1,226 +0,0 @@ -create or replace package body amadw025$ is - private_ModuleRef WSGOC.MODULE_REF; - - - procedure CreateStartupJavaScript; --------------------------------------------------------------------------------- --- Name: amadw025$.Startup --- --- Description: This procedure is the entry point for the 'amadw025$' --- module. --- --- Parameters: None --- --------------------------------------------------------------------------------- - procedure Startup - is - begin - if not caco_security.security_check('amadw025$') then - return; - end if; - - WSGL.RegisterURL('amadw025$.startup'); - if WSGL.NotLowerCase then - return; - end if; - WSGL.StoreURLLink(0, WSGL.MsgGetText(21,WSGLM.CAP021_TOP_LEVEL)); - amadw025$appa.startup( - Z_DIRECT_CALL => TRUE - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'amadw025$.Startup'); - end; --------------------------------------------------------------------------------- --- Name: amadw025$.firstpage --- --- Description: This procedure creates the first page for the 'amadw025$' --- module. --- --- Parameters: Z_DIRECT_CALL - --- --------------------------------------------------------------------------------- - procedure FirstPage(Z_DIRECT_CALL in boolean - -) is - begin - if not caco_security.security_check('amadw025$') then - return; - end if; - - WSGL.OpenPageHead(''); - WSGL.METATag; - WSGL.ClosePageHead; - WSGL.OpenPageBody(FALSE, p_attributes=>''); - - CreateStartupJavaScript; - - WSGL.DefaultPageCaption('', 1); - htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="SP$AIForm"'); - WSGL.NavLinks(WSGL.MENU_LONG, WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT), 0, 'amadw025$.showabout', '_top', p_output_line=>FALSE); - WSGL.NavLinks; - htp.formClose; - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'amadw025$.FirstPage'); - end; - - --------------------------------------------------------------------------------- --- Name: amadw025$.showabout --- --- Description: This procedure is used to display an 'About' page for the --- 'amadw025$' module. --- --------------------------------------------------------------------------------- - procedure showabout is - l_usr varchar2(255) := null; - begin - if not caco_security.security_check('amadw025$') then - return; - end if; - l_usr := caco_security.get_user; - - WSGL.RegisterURL('amadw025$.showabout'); - if WSGL.NotLowerCase then - return; - end if; - - WSGL.OpenPageHead(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' '); - WSGL.METATag; - TemplateHeader(TRUE,2); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>''); - - htp.p(caco_system.menu); - - WSGL.DefaultPageCaption(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' '); - - - htp.para; - - htp.p(WSGL.MsgGetText(108,WSGLM.DSP108_GENERATED_BY, 'PL/SQL Web Generator', '10.1.2.6.18')); - htp.para; - - WSGL.Info(FALSE, 'Access Manager Framework', 'AMADW025', l_usr); - - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'amadw025$.ShowAbout'); - end; --------------------------------------------------------------------------------- --- Name: amadw025$.TemplateHeader --- --- Description: --- --------------------------------------------------------------------------------- - procedure TemplateHeader(Z_DIRECT_CALL in boolean, - Z_TEMPLATE_ID in number) is - begin - if not caco_security.security_check('amadw025$') then - return; - end if; - - if Z_TEMPLATE_ID = 1 then - -- Template defined in \\loordv01\framework\css2\css_content.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 2 then - -- Template defined in \\loordv01\framework\css2\css_about.htm - htp.p(' '); - elsif Z_TEMPLATE_ID = 3 then - -- Template defined in \\loordv01\framework\css2\css_query.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 4 then - -- Template defined in \\loordv01\framework\css2\css_view.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 5 then - -- Template defined in \\loordv01\framework\css2\css_insert.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 6 then - -- Template defined in \\loordv01\framework\css2\css_recordlist.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 7 then - -- Template defined in \\loordv01\framework\css2\css_lov.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 8 then - -- Template defined in \\loordv01\framework\css2\css_text.htm - htp.p(' - -'); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'amadw025$.TemplateHeader'); - end; --------------------------------------------------------------------------------- --- Name: amadw025$.GetRef --- --- Description: Returns a handle to the display data for the --- 'amadw025$' module. --- If the display object does not exist then it creates it first. --- --- Parameters: --- --------------------------------------------------------------------------------- - - function GetRef return WSGOC.MODULE_REF - is - begin - if ( WSGOC.Is_Null(private_ModuleRef)) then - private_ModuleRef := WSGOC.Module - ( pShortName => 'amadw025$' - , pFirstTitle => '' - ); - end if; - return private_ModuleRef; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'amadw025$.GetRef'); - raise; - end; - - - --------------------------------------------------------------------------------- --- Name: amadw025$.CreateStartupJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateStartupJavaScript is - begin - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "Startup";'); - htp.p(WSGJSL.CloseScript); - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$.spc deleted file mode 100644 index 7f46fb6..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$.spc +++ /dev/null @@ -1,14 +0,0 @@ -create or replace package amadw025$ is - - procedure Startup -; - procedure FirstPage(Z_DIRECT_CALL in boolean - -); - procedure ShowAbout; - procedure TemplateHeader(Z_DIRECT_CALL in boolean, - Z_TEMPLATE_ID in number); - function GetRef return WSGOC.MODULE_REF; - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$appa.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$appa.bdy deleted file mode 100644 index 4faccbf..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$appa.bdy +++ /dev/null @@ -1,1404 +0,0 @@ -create or replace package body amadw025$appa is - - procedure FormView(Z_FORM_STATUS in number, - Z_POST_DML in boolean default false, - Z_MULTI_PAGE in boolean default true, - Z_ACTION in varchar2 default null, - Z_START in varchar2 default '1'); - function BuildSQL( - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean; - - procedure ActionUpdate (p_row in integer default 0 - ,p_row_success in out boolean - ,p_row_lck in out boolean - ); - procedure OpenZoneSql ( I_CURSOR OUT integer ); - procedure AssignZoneRow( I_CURSOR IN integer ); - - function Validate(Z_MODE in varchar2, Z_FORCE_UPDATE in out boolean) return boolean; - function PreUpdate return boolean; - function PostUpdate return boolean; - function PreQuery return boolean; - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean; - - QF_BODY_ATTRIBUTES constant varchar2(500) := ''; - VF_BODY_ATTRIBUTES constant varchar2(500) := ''; - VF_UPDATE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(6,WSGLM.CAP006_VF_UPDATE); - VF_CLEAR_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(8,WSGLM.CAP008_VF_REVERT); - VF_DELETE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(7,WSGLM.CAP007_VF_DELETE); - VF_NEXT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(11,WSGLM.CAP011_RL_NEXT); - VF_PREV_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(12,WSGLM.CAP012_RL_PREVIOUS); - VF_FIRST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(13,WSGLM.CAP013_RL_FIRST); - VF_LAST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(14,WSGLM.CAP014_RL_LAST); - VF_COUNT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(15,WSGLM.CAP015_RL_COUNT); - VF_REQUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(16,WSGLM.CAP016_RL_REQUERY); - VF_NTOM_BUT_CAPTION constant varchar2(100) := '%s -> %e'; - VF_QUERY_BUT_ACTION constant varchar2(10) := 'QUERY'; - VF_UPDATE_BUT_ACTION constant varchar2(10) := 'UPDATE'; - VF_CLEAR_BUT_ACTION constant varchar2(10) := 'CLEAR'; - VF_DELETE_BUT_ACTION constant varchar2(10) := 'DELETE'; - VF_NEXT_BUT_ACTION constant varchar2(10) := 'NEXT'; - VF_PREV_BUT_ACTION constant varchar2(10) := 'PREV'; - VF_FIRST_BUT_ACTION constant varchar2(10) := 'FIRST'; - VF_LAST_BUT_ACTION constant varchar2(10) := 'LAST'; - VF_COUNT_BUT_ACTION constant varchar2(10) := 'COUNT'; - VF_REQUERY_BUT_ACTION constant varchar2(10) := 'REQUERY'; - VF_NTOM_BUT_ACTION constant varchar2(10) := 'NTOM'; - VF_VERIFIED_DELETE constant varchar2(100) := 'VerifiedDelete'; - VF_NUMBER_OF_COLUMNS constant number(4) := 10; - VF_RECORD_SET_SIZE constant number(5) := 100; - - VF_TOTAL_COUNT_REQD constant boolean := FALSE; - IF_BODY_ATTRIBUTES constant varchar2(500) := ''; - RL_BODY_ATTRIBUTES constant varchar2(500) := ''; - LOV_BODY_ATTRIBUTES constant varchar2(500) := ''; - LOV_FIND_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(17,WSGLM.CAP017_LOV_FIND); - LOV_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP018_LOV_CLOSE); - LOV_FIND_BUT_ACTION constant varchar2(10) := 'FIND'; - LOV_CLOSE_BUT_ACTION constant varchar2(10) := 'CLOSE'; - LOV_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - LOV_FRAME constant varchar2(20) := null; - CAL_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - CAL_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP025_CAL_CLOSE); - CAL_BODY_ATTRIBUTES constant varchar2(500) := ''; - TF_BODY_ATTRIBUTES constant varchar2(500) := ''; - DEF_BODY_ATTRIBUTES constant varchar2(500) := ''; - - CURR_IND CG$APPLICATION_PARAMETERS.CG$IND_TYPE; - CURR_PK CG$APPLICATION_PARAMETERS.CG$PK_TYPE; - PREV_VAL CG$APPLICATION_PARAMETERS.CG$ROW_TYPE; - PREV_IND CG$APPLICATION_PARAMETERS.CG$IND_TYPE; - NULL_VAL CG$APPLICATION_PARAMETERS.CG$ROW_TYPE; - NULL_IND CG$APPLICATION_PARAMETERS.CG$IND_TYPE; - - type FORM_REC is record - (PARAMETER varchar2(1440) - ,DESCRIPTION varchar2(1440) - ,VALUE varchar2(1440) - ,APPA_ID varchar2(40) - ); - FORM_VAL FORM_REC; - - PROCESSING_VIEW boolean := false; - VF_ROWS_UPDATED integer := 0; - VF_ROWS_DELETED integer := 0; - VF_ROWS_ERROR integer := 0; - type CTX_REC is record - ( PARAMETER varchar2(1440) - ); - type CTX_REC_ARR is table of CTX_REC index by binary_integer; - VF_DELETED_ROWS CTX_REC_ARR; - type ROW_REC is record - ( F_PARAMETER varchar2(1440) - , F_DESCRIPTION varchar2(1440) - , F_VALUE varchar2(1440) - , F_APPA_ID varchar2(40) - , SUCCESS_FLAG boolean - , ROW_DELETED boolean - , ROW_NOT_LOCKED boolean - , ROW_ID rowid - ); - type ROW_SET_TYPE is table of ROW_REC index by binary_integer; - VF_ROW_SET ROW_SET_TYPE; - ZONE_SQL varchar2(32767) := null; - ZONE_CHECKSUM varchar2(10); - - REF_COMPONENT WSGOC.COMPONENT_REF; - R_PARAMETER WSGOC.ITEM_REF; - R_DESCRIPTION WSGOC.ITEM_REF; - R_VALUE WSGOC.ITEM_REF; - R_APPA_ID WSGOC.ITEM_REF; - - - -PROCEDURE Audit_appa IS - --- Audit_appa --- --- - - - - --- - -- Will be called by a PreUpdate event so the transaction will not have been applied yet. - --- - CURSOR c_old_appa IS - SELECT parameter, - description, - value - FROM application_parameters - WHERE appa_id = curr_val.appa_id; - -- - l_parameter application_parameters.parameter%TYPE; - l_description application_parameters.description%TYPE; - l_value application_parameters.value%TYPE; - -- -BEGIN - -- - OPEN c_old_appa; - FETCH c_old_appa INTO l_Parameter, - l_description, - l_value; - CLOSE c_old_appa; - -- - amfr_journal.log_transaction('UPDATE', - 'APPLICATION_PARAMETERS', - name_value_tab( - name_value_rec('APP PARAMETERS IDENTIFIER',curr_val.appa_id), - name_value_rec('PARAMETER',l_parameter), - name_value_rec('DESCRIPTION',l_description), - name_value_rec('VALUE',l_value) - ), - name_value_tab( - name_value_rec('APP PARAMETERS IDENTIFIER',curr_val.appa_id), - name_value_rec('PARAMETER',curr_val.PARAMETER), - name_value_rec('DESCRIPTION',curr_val.DESCRIPTION), - name_value_rec('VALUE',curr_val.VALUE) - ) - ); - -- -END; - --------------------------------------------------------------------------------- --- Name: amadw025$appa.PreUpdate --- --- Description: Provides place holder for code to be run prior to an update --- for the 'APPA' module component (#Maintain Application Parameters#3968#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PreUpdate return boolean is - L_RET_VAL boolean := TRUE; - begin --- PrU_Audit_Update --- --- - -BEGIN - Audit_appa; -END; - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - VF_BODY_ATTRIBUTES, 'amadw025$appa.PreUpdate'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: amadw025$appa.Validate --- --- Description: Provides validation of the 'APPA' module component --- (#Maintain Application Parameters#3968#). --- --- Parameters: Z_MODE Ins(ert) or Upd(ate) --- Z_FORCE_UPDATE Set this to TRUE within this event to force --- Pre and Post-Update triggers to fire even if --- no base item values have changed. --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function Validate(Z_MODE in varchar2, Z_FORCE_UPDATE in out boolean) return boolean is - L_ERROR_MESS varchar2(1000); - L_RET_VAL boolean := TRUE; - begin - - - if Z_MODE = 'UPD' then - begin - CURR_VAL.VALUE := FORM_VAL.VALUE; - CURR_IND.VALUE := TRUE; - exception - when others then - cg$errors.push('#Value#3555#: ' || SQLERRM, - 'E', 'WSG', SQLCODE, 'amadw025$appa.Validate'); - L_RET_VAL := FALSE; - end; - - end if; - - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - VF_BODY_ATTRIBUTES, 'amadw025$appa.Validate'); - return FALSE; - end; --------------------------------------------------------------------------------- --- Name: amadw025$appa.Startup --- --- Description: Entry point for the 'APPA' module --- component (#Maintain Application Parameters#3968#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure Startup( - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2, - Z_FORM in varchar2) is - l_Foundform boolean := FALSE; - l_fs_text varchar2(32767) := '' ; - begin - if not caco_security.security_check('amadw025$appa') then - return; - end if; - - WSGL.RegisterURL('amadw025$appa.startup'); - WSGL.AddURLParam('Z_CHK', Z_CHK); - - - WSGL.StoreURLLink(1, '#Maintain Application Parameters#3968#'); - - -- Either no frames are being used or the query form is on a - -- separate page. - if Z_FORM is not null then - null; - -- Work out which form is required, and check if that is possible - end if; - if l_Foundform = FALSE then - QueryView( - Z_EXECUTE_QUERY=>'Y', - Z_DIRECT_CALL=>TRUE); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - DEF_BODY_ATTRIBUTES, 'amadw025$appa.Startup'); - end; - --------------------------------------------------------------------------------- --- Name: amadw025$appa.QueryHits --- --- Description: Returns the number or rows which matches the given search --- criteria (if any). --- --- Parameters: --- --------------------------------------------------------------------------------- - function QueryHits return number is - I_QUERY varchar2(32767) := ''; - I_CURSOR integer; - I_VOID integer; - I_FROM_POS integer := 0; - I_COUNT number(10); - begin - if not caco_security.security_check('amadw025$appa') then - return -1; - end if; - - if not BuildSQL then - return -1; - end if; - - if not PreQuery then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Maintain Application Parameters#3968#', DEF_BODY_ATTRIBUTES); - return -1; - end if; - - I_FROM_POS := instr(upper(ZONE_SQL), ' FROM '); - - if I_FROM_POS = 0 then - return -1; - end if; - - I_QUERY := 'SELECT count(*)' || - substr(ZONE_SQL, I_FROM_POS); - - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, I_QUERY, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, I_COUNT); - I_VOID := dbms_sql.execute(I_CURSOR); - I_VOID := dbms_sql.fetch_rows(I_CURSOR); - dbms_sql.column_value(I_CURSOR, 1, I_COUNT); - dbms_sql.close_cursor(I_CURSOR); - - return I_COUNT; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - DEF_BODY_ATTRIBUTES, 'amadw025$appa.QueryHits'); - return -1; - end; --------------------------------------------------------------------------------- --- Name: amadw025$appa.BuildSQL --- --- Description: Builds the SQL for the 'APPA' module component (#Maintain Application Parameters#3968#). --- This incorporates all query criteria and Foreign key columns. --- --- Parameters: --- --------------------------------------------------------------------------------- - function BuildSQL( - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean is - - I_WHERE varchar2(32767); - row_idx integer; - begin - - - -- Build up the Where clause - if Z_QUERY_BY_KEY then - I_WHERE := 'WHERE APPA_ID = ' || to_char(CURR_VAL.APPA_ID) || ' '; - elsif Z_ROW_ID is not null then - I_WHERE := 'WHERE CG$ROW_ID = ''' || rowidtochar( Z_ROW_ID ) || ''''; - elsif Z_BIND_ROW_ID then - I_WHERE := 'WHERE CG$ROW_ID = :b_row_id'; - else - - null; - end if; - - ZONE_SQL := 'SELECT PARAMETER, - DESCRIPTION, - VALUE, - APPA_ID - FROM ( SELECT APPA.PARAMETER PARAMETER, - APPA.DESCRIPTION DESCRIPTION, - APPA.VALUE VALUE, - APPA.APPA_ID APPA_ID, - APPA.ROWID CG$ROW_ID -FROM APPLICATION_PARAMETERS APPA - ) '; - ZONE_SQL := ZONE_SQL || I_WHERE; - ZONE_SQL := ZONE_SQL || ' ORDER BY 1'; - - return true; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - DEF_BODY_ATTRIBUTES, 'amadw025$appa.BuildSQL'); - return false; - end; - --------------------------------------------------------------------------------- --- Name: amadw025$appa.OpenZoneSql --- --- Description: Open's the cursor for the zone SQL of --- 'APPA' module component (#Maintain Application Parameters#3968#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure OpenZoneSql - ( I_CURSOR OUT integer - ) - is - begin - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, ZONE_SQL, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, CURR_VAL.PARAMETER, 240); - dbms_sql.define_column(I_CURSOR, 2, CURR_VAL.DESCRIPTION, 240); - dbms_sql.define_column(I_CURSOR, 3, CURR_VAL.VALUE, 240); - dbms_sql.define_column(I_CURSOR, 4, CURR_VAL.APPA_ID); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - '', 'amadw025$appa.OpenZoneSql'); - raise; - end; - --------------------------------------------------------------------------------- --- Name: amadw025$appa.AssignZoneRow --- --- Description: Assign's a row of data and calculates the check sum from the --- zone SQL of 'APPA' module component (#Maintain Application Parameters#3968#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure AssignZoneRow - ( I_CURSOR IN integer - ) - is - begin - dbms_sql.column_value(I_CURSOR, 1, CURR_VAL.PARAMETER); - dbms_sql.column_value(I_CURSOR, 2, CURR_VAL.DESCRIPTION); - dbms_sql.column_value(I_CURSOR, 3, CURR_VAL.VALUE); - dbms_sql.column_value(I_CURSOR, 4, CURR_VAL.APPA_ID); - ZONE_CHECKSUM := to_char(WSGL.Checksum - ( '' - || CURR_VAL.APPA_ID - ) ); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - '', 'amadw025$appa.AssignZoneRow'); - raise; - end; - - - - --------------------------------------------------------------------------------- --- Name: amadw025$appa.FormView --- --- Description: This procedure builds an HTML form for view/update of fields in --- the 'APPA' module component (#Maintain Application Parameters#3968#). --- --- Parameters: Z_FORM_STATUS Status of the form --- --------------------------------------------------------------------------------- - procedure FormView(Z_FORM_STATUS in number, - Z_POST_DML in boolean, - Z_MULTI_PAGE in boolean, - Z_ACTION in varchar2, - Z_START in varchar2) is - - I_CURSOR integer; - I_VOID integer; - I_COUNT integer; - l_row integer := 0; - l_rowset_row integer := null; - l_error varchar2(2000); - l_rows_ret integer; - l_row_deleted boolean := false; - l_row_no_lock boolean := false; - l_total_rows integer := 0; - I_START number(38) := to_number(Z_START); - I_PREV_BUT boolean := false; - I_NEXT_BUT boolean := false; - l_total_text varchar2(200) := ''; - l_ntom_butstr varchar2(2000) := VF_NTOM_BUT_CAPTION; - l_force_upd boolean := false; - l_success boolean := true; - l_skip_data boolean := false; - begin - if not caco_security.security_check('amadw025$appa') then - return; - end if; - - l_success := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => false - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - - - - WSGL.OpenPageHead(''||' : '||'#Maintain Application Parameters#3968#'); - WSGL.METATag; - htp.script('FormType = "Update";'); - amadw025$.TemplateHeader(TRUE,1); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>VF_BODY_ATTRIBUTES || 'onLoad="return APPA_OnLoad()"'); - - amadw025$js$appa.CreateViewJavaScript( - VF_ROWS_UPDATED, - VF_ROWS_DELETED, - VF_ROWS_ERROR, - VF_BODY_ATTRIBUTES, - LOV_FRAME - ); - htp.p(caco_system.menu); - amadw025$.FirstPage(Z_DIRECT_CALL => TRUE - - ); - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - - - htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="VF$AIFormTop"'); - htp.formClose; - - - - if Z_FORM_STATUS = WSGL.FORM_STATUS_ERROR then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Maintain Application Parameters#3968#', VF_BODY_ATTRIBUTES); - htp.script('DataChangeErrors = true;'); - elsif Z_FORM_STATUS = WSGL.FORM_STATUS_UPD then - WSGL.DisplayMessage(WSGL.MESS_SUCCESS, WSGL.MsgGetText(207, WSGLM.MSG207_ROW_UPDATED), - ''||' : '||'#Maintain Application Parameters#3968#', VF_BODY_ATTRIBUTES); - htp.script('DataChange = true;'); - elsif Z_FORM_STATUS = WSGL.FORM_STATUS_INS then - WSGL.DisplayMessage(WSGL.MESS_SUCCESS, WSGL.MsgGetText(208, WSGLM.MSG208_ROW_INSERTED), - ''||' : '||'#Maintain Application Parameters#3968#', VF_BODY_ATTRIBUTES); - elsif Z_FORM_STATUS = WSGL.FORM_STATUS_NO_UPD then - htp.p( ''||WSGL.MsgGetText(136,WSGLM.DSP136_NO_ROW_UPDATED)||'
' ); - end if; - if VF_ROWS_UPDATED > 0 then - htp.p(htf.bold(htf.br || WSGL.MsgGetText(137,WSGLM.DSP137_ROWS_UPDATED)) || ' ' ||to_char(VF_ROWS_UPDATED) ); - end if; - if VF_ROWS_ERROR > 0 then - htp.p(htf.bold(htf.br || WSGL.MsgGetText(138,WSGLM.DSP138_ERRORS)) || ' ' ||to_char(VF_ROWS_ERROR) ); - end if; - if VF_ROWS_DELETED > 0 then - htp.p(htf.bold(htf.br || WSGL.MsgGetText(139,WSGLM.DSP139_ROWS_DELETED)) || ' ' ||to_char(VF_ROWS_DELETED) ); - end if; - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'amadw025$appa.actionview', cattributes => 'NAME="amadw025$appa$VForm"'); - SaveState; - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE); - - WSGL.LayoutRowStart; - WSGL.LayoutHeader(50, 'LEFT', htf.bold('#Parameter Name#2498#')); - WSGL.LayoutHeader(50, 'LEFT', htf.bold('#Value#3555#')); - - - WSGL.LayoutHeader(2,'LEFT',null); - - WSGL.LayoutRowEnd; - if Z_MULTI_PAGE then - if (Z_ACTION = VF_LAST_BUT_ACTION) or (Z_ACTION = VF_LAST_BUT_CAPTION) or - (Z_ACTION = VF_COUNT_BUT_ACTION) or (Z_ACTION = VF_COUNT_BUT_CAPTION) or - (VF_TOTAL_COUNT_REQD) - then - - I_COUNT := QueryHits; - if I_COUNT = -1 then - WSGL.ClosePageBody; - return; - end if; - end if; - - if (Z_ACTION = VF_COUNT_BUT_ACTION) or (Z_ACTION = VF_COUNT_BUT_CAPTION) or (VF_TOTAL_COUNT_REQD) then - l_total_text := ' '||WSGL.MsgGetText(111,WSGLM.DSP111_OF_TOTAL, to_char(I_COUNT)); - end if; - - if Z_START IS NULL or (Z_ACTION = VF_FIRST_BUT_ACTION) or (Z_ACTION = VF_FIRST_BUT_CAPTION) then - I_START := 1; - elsif (Z_ACTION = VF_NEXT_BUT_ACTION) or (Z_ACTION = VF_NEXT_BUT_CAPTION) then - I_START := I_START + VF_RECORD_SET_SIZE; - elsif (Z_ACTION = VF_PREV_BUT_ACTION) or (Z_ACTION = VF_PREV_BUT_CAPTION) then - I_START := I_START - VF_RECORD_SET_SIZE; - elsif (Z_ACTION = VF_LAST_BUT_ACTION) or (Z_ACTION = VF_LAST_BUT_CAPTION) then - I_START := 1 + (floor((I_COUNT-1)/VF_RECORD_SET_SIZE)*VF_RECORD_SET_SIZE); - end if; - - if I_START < 1 then - I_START := 1; - end if; - - I_PREV_BUT := TRUE; - I_NEXT_BUT := FALSE; - if I_START = 1 or Z_ACTION IS NULL then - I_PREV_BUT := FALSE; - end if; - end if; - OpenZoneSql(I_CURSOR); - l_row := 0; - if VF_ROW_SET.count = 0 then - I_VOID := dbms_sql.execute(I_CURSOR); - end if; - while true loop - if not l_row_deleted then - l_row := l_row + 1; - end if; - - l_row_deleted := false; - l_row_no_lock := false; - if VF_ROW_SET.count > 0 then - if l_rowset_row is null then - l_rowset_row := VF_ROW_SET.first; - else - l_rowset_row := VF_ROW_SET.next( l_rowset_row ); - end if; - if l_rowset_row is not null then - if not VF_ROW_SET( l_rowset_row ).ROW_DELETED then - dbms_sql.bind_variable(I_CURSOR, 'b_row_id', rowidtochar(VF_ROW_SET( l_rowset_row ).ROW_ID)); - I_VOID := dbms_sql.execute(I_CURSOR); - else - l_row_deleted := true; - end if; - if not VF_ROW_SET( l_rowset_row ).ROW_NOT_LOCKED then - FORM_VAL.VALUE := WSGL.EscapeItem(VF_ROW_SET( l_rowset_row ).F_VALUE); - l_force_upd := false; - if not PostQuery(Z_POST_DML, l_force_upd) then - if cg$errors.pop(l_error) then - WSGL.LayoutTextLine(htf.bold(''|| - htf.italic(WSGL.MsgGetText(122,WSGLM.DSP122_ERROR))|| ' '||l_error)); - end if; - end if; - - else - l_row_no_lock := true; - end if; - if VF_ROW_SET( l_rowset_row ).SUCCESS_FLAG then - htp.script('DataChange = true;'); - end if; - if not VF_ROW_SET( l_rowset_row ).SUCCESS_FLAG and cg$errors.pop_head( l_error ) then - htp.script('DataChangeErrors = true;'); - WSGL.LayoutTextLine(htf.bold(''||htf.italic(WSGL.MsgGetText(122,WSGLM.DSP122_ERROR))|| ' '||l_error)); - end if; - else - exit; - end if; - end if; - - if not (l_row_deleted) then - if Z_MULTI_PAGE then - while l_total_rows < I_START - 1 loop - l_rows_ret := dbms_sql.fetch_rows(I_CURSOR); - l_total_rows := l_total_rows + l_rows_ret; - if l_rows_ret = 0 then - exit; - end if; - end loop; - end if; - l_rows_ret := dbms_sql.fetch_rows(I_CURSOR); - l_total_rows := l_total_rows + l_rows_ret; - - if (l_rows_ret > 0) and (l_total_rows < (I_START + VF_RECORD_SET_SIZE)) then - AssignZoneRow(I_CURSOR); - else - exit; - end if; - end if; - if (VF_ROW_SET.count = 0 and Z_FORM_STATUS != WSGL.FORM_STATUS_ERROR) or l_row_no_lock then - FORM_VAL.VALUE := WSGL.EscapeItem(CURR_VAL.VALUE); - end if; - FORM_VAL.PARAMETER := WSGL.EscapeItem(CURR_VAL.PARAMETER); - FORM_VAL.DESCRIPTION := WSGL.EscapeItem(CURR_VAL.DESCRIPTION); - FORM_VAL.APPA_ID := WSGL.EscapeItem(CURR_VAL.APPA_ID); - - l_force_upd := false; - if not PostQuery(Z_POST_DML, l_force_upd) then - if cg$errors.pop(l_error) then - WSGL.LayoutTextLine(htf.bold(''|| - htf.italic(WSGL.MsgGetText(122,WSGLM.DSP122_ERROR))|| ' '||l_error)); - end if; - end if; - if not l_row_deleted then - WSGL.HiddenField('P_APPA_ID', CURR_VAL.APPA_ID); - WSGL.HiddenField('O_APPA_ID', CURR_VAL.APPA_ID); - end if; - l_skip_data := false; - WSGL.HiddenField('H_PARAMETER', CURR_VAL.PARAMETER); - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(FORM_VAL.PARAMETER); - WSGL.LayoutRowEnd; - l_skip_data := false; - WSGL.LayoutRowStart('TOP'); - if (l_row_deleted) then - WSGL.LayoutData(FORM_VAL.VALUE); - else - WSGL.LayoutData(WSGL.BuildTextControl('VALUE', '50', '1', '240',FORM_VAL.VALUE, p_onchange=>TRUE, p_row=>(l_row), p_img_path=>'/images/')); - end if; - WSGL.LayoutRowEnd; - if (l_row_deleted) then - WSGL.LayoutData(' '); - else - WSGL.LayoutData(''); - end if; - WSGL.LayoutRowEnd; - - - - - - - - - - - - if not (l_row_deleted) then - htp.p(WSGJSL.OpenScript); - if l_force_upd then - htp.p('document.write('''');'); - else - htp.p('document.write('''');'); - end if; - htp.p(WSGJSL.CloseScript); - WSGL.HiddenField('O_PARAMETER', CURR_VAL.PARAMETER); - WSGL.HiddenField('O_DESCRIPTION', CURR_VAL.DESCRIPTION); - WSGL.HiddenField('O_VALUE', CURR_VAL.VALUE); - - end if; - - end loop; - WSGL.LayoutClose; - - if l_row < 3 then - WSGL.HiddenField('P_APPA_ID',''); - WSGL.HiddenField('P_VALUE',''); - WSGL.HiddenField('O_PARAMETER', ''); - WSGL.HiddenField('O_DESCRIPTION', ''); - WSGL.HiddenField('O_VALUE', ''); - WSGL.HiddenField('H_PARAMETER',''); - WSGL.HiddenField('z_modified','dummy_row'); - end if; - - dbms_sql.close_cursor(I_CURSOR); - - if l_rows_ret > 0 then - I_NEXT_BUT := true; - end if; - - if l_total_rows = 0 then - htp.p(WSGL.MsgGetText(112, WSGLM.DSP112_NO_RECORDS)); - htp.para; - elsif Z_MULTI_PAGE then - if I_START = l_total_rows or VF_RECORD_SET_SIZE = 1 then - htp.p(WSGL.MsgGetText(109,WSGLM.DSP109_RECORD, to_char(I_START))||l_total_text); - else - if I_NEXT_BUT then - htp.p(WSGL.MsgGetText(110,WSGLM.DSP110_RECORDS_N_M, - to_char(I_START), to_char(l_total_rows - 1))||l_total_text); - else - htp.p(WSGL.MsgGetText(110,WSGLM.DSP110_RECORDS_N_M, - to_char(I_START), to_char(l_total_rows))||l_total_text); - end if; - end if; - htp.para; - end if; - - WSGL.SubmitButton('Z_ACTION', htf.escape_sc(VF_UPDATE_BUT_CAPTION), 'btnVFU', 'this.form.Z_ACTION.value=\''' || VF_UPDATE_BUT_ACTION || '\'''); - htp.formReset(htf.escape_sc(VF_CLEAR_BUT_CAPTION), cattributes=>'ID="'||htf.escape_sc(VF_CLEAR_BUT_CAPTION)||'"'||' onClick="return JSLRevertForm( this.form, '|| l_row ||' )"'); - - - if VF_ROW_SET.count > 0 or Z_FORM_STATUS = WSGL.FORM_STATUS_INS then - I_START := nvl(I_START, 1); - l_ntom_butstr := replace(l_ntom_butstr, '%s', to_char(I_START)); - l_ntom_butstr := replace(l_ntom_butstr, '%e', to_char(I_START + VF_RECORD_SET_SIZE - 1)); - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(l_ntom_butstr), p_dojs=>FALSE, - buttonJS => 'onClick="return JSLCheckModified( this.form, \''' || VF_NTOM_BUT_ACTION || '\'', true)"', - p_type_button=>true); - end if; - - if Z_MULTI_PAGE and VF_ROW_SET.count = 0 then - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', htf.escape_sc(VF_FIRST_BUT_CAPTION), WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="return JSLCheckModified( this.form, \''' || VF_FIRST_BUT_ACTION || '\'', true)"', - p_type_button=>true); - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', htf.escape_sc(VF_PREV_BUT_CAPTION), WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="return JSLCheckModified( this.form, \''' || VF_PREV_BUT_ACTION || '\'', true)"', - p_type_button=>true); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', htf.escape_sc(VF_NEXT_BUT_CAPTION), WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="return JSLCheckModified( this.form, \''' || VF_NEXT_BUT_ACTION || '\'', true)"', - p_type_button=>true); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', htf.escape_sc(VF_LAST_BUT_CAPTION), WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="return JSLCheckModified( this.form, \''' || VF_LAST_BUT_ACTION || '\'', true)"', - p_type_button=>true); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(VF_REQUERY_BUT_CAPTION),p_dojs=>FALSE, - buttonJS => 'onClick="return JSLCheckModified( this.form, \''' || VF_REQUERY_BUT_ACTION || '\'', true)"', - p_type_button=>true); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(VF_COUNT_BUT_CAPTION),p_dojs=>FALSE, - buttonJS => 'onClick="return JSLCheckModified( this.form, \''' || VF_COUNT_BUT_ACTION || '\'', true)"', - p_type_button=>true); - end if; - - WSGL.HiddenField('Z_CHK', - to_char(WSGL.Checksum(''||CURR_VAL.APPA_ID))); - - - WSGL.HiddenField('Z_START', to_char(I_START)); - - htp.formClose; - - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - VF_BODY_ATTRIBUTES, 'amadw025$appa.FormView'); - WSGL.ClosePageBody; - end; - --------------------------------------------------------------------------------- --- Name: amadw025$appa.QueryView --- --- Description: Queries the details of a single row in preparation for display. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure QueryView( - K_APPA_ID in varchar2, - Z_EXECUTE_QUERY in varchar2, - Z_POST_DML in boolean, - Z_FORM_STATUS in number, - Z_DIRECT_CALL in boolean, - Z_START in varchar2, - Z_ACTION in varchar2, - Z_CHK in varchar2) is - L_ROW_ID ROWID; - begin - if not caco_security.security_check('amadw025$appa') then - return; - end if; - - - - WSGL.RegisterURL('amadw025$appa.queryview'); - WSGL.AddURLParam('K_APPA_ID', K_APPA_ID); - WSGL.AddURLParam('Z_EXECUTE_QUERY', Z_EXECUTE_QUERY); - WSGL.AddURLParam('Z_START', Z_START); - WSGL.AddURLParam('Z_ACTION', Z_ACTION); - WSGL.AddURLParam('Z_CHK', Z_CHK); - - - if not Z_DIRECT_CALL then - - null; - - end if; - - - - - null; - - - - if K_APPA_ID is not null then - CURR_VAL.APPA_ID := K_APPA_ID; - end if; - - if Z_EXECUTE_QUERY is null then - if VF_ROW_SET.count = 0 then - if BuildSQL( Z_QUERY_BY_KEY=>true) then - FormView(Z_FORM_STATUS=>Z_FORM_STATUS, - Z_POST_DML=>Z_POST_DML, Z_MULTI_PAGE=>false, Z_ACTION=>Z_ACTION, Z_START=>Z_START); - end if; - else - if BuildSQL( z_bind_row_id=>true ) then - FormView(Z_FORM_STATUS=>Z_FORM_STATUS, - Z_POST_DML=>Z_POST_DML, Z_MULTI_PAGE=>false, Z_ACTION=>Z_ACTION, Z_START=>Z_START); - end if; - end if; - - else - if not PreQuery then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Maintain Application Parameters#3968#', VF_BODY_ATTRIBUTES); - return; - end if; - - if BuildSQL - then - FormView(Z_FORM_STATUS=>Z_FORM_STATUS, - Z_POST_DML=>Z_POST_DML, Z_MULTI_PAGE=>true, Z_ACTION=>Z_ACTION, Z_START=>Z_START); - end if; - - end if; - - exception - when NO_DATA_FOUND then - WSGL.DisplayMessage(WSGL.MESS_ERROR, WSGL.MsgGetText(204, WSGLM.MSG204_ROW_DELETED), - ''||' : '||'#Maintain Application Parameters#3968#', VF_BODY_ATTRIBUTES); - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - VF_BODY_ATTRIBUTES, 'amadw025$appa.QueryView'); - end; --------------------------------------------------------------------------------- --- Name: amadw025$appa.QueryViewByKey --- --- Description: Queries the details of a single row in preparation for display. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure QueryViewByKey( - P_APPA_ID in varchar2, - Z_POST_DML in boolean, - Z_FORM_STATUS in number, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2) is -begin - if not caco_security.security_check('amadw025$appa') then - return; - end if; - - QueryView( - K_APPA_ID=>P_APPA_ID, - Z_EXECUTE_QUERY=>null, - Z_POST_DML=>Z_POST_DML, - Z_FORM_STATUS=>Z_FORM_STATUS, - Z_DIRECT_CALL=>Z_DIRECT_CALL, - Z_CHK=>Z_CHK); -end; - --------------------------------------------------------------------------------- --- Name: amadw025$appa.ActionView --- --- Description: This procedure is called when the View Form is submitted to --- action an update, delete or requery request. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure ActionView( - P_APPA_ID in owa_text.vc_arr, - P_VALUE in owa_text.vc_arr, - O_PARAMETER in owa_text.vc_arr, - O_DESCRIPTION in owa_text.vc_arr, - O_VALUE in owa_text.vc_arr, - O_APPA_ID in owa_text.vc_arr, - H_PARAMETER in owa_text.vc_arr, - z_modified in owa_text.vc_arr, - Z_ACTION in varchar2, - Z_START in varchar2, - Z_CHK in varchar2 ) is --- - l_row integer; - l_row_failed boolean := false; - l_success boolean; - l_rowset_row integer := 1; - l_delset_row integer := 1; - l_cbcount integer; - l_do_delete boolean := false; - l_record_lck boolean := false; - l_dummy_bool boolean := false; - - begin - if not caco_security.security_check('amadw025$appa') then - return; - end if; - - - l_dummy_bool := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - -if (Z_ACTION = VF_COUNT_BUT_ACTION or Z_ACTION = VF_COUNT_BUT_CAPTION) or - (Z_ACTION = VF_FIRST_BUT_ACTION or Z_ACTION = VF_FIRST_BUT_CAPTION) or - (Z_ACTION = VF_PREV_BUT_ACTION or Z_ACTION = VF_PREV_BUT_CAPTION) or - (Z_ACTION = VF_NEXT_BUT_ACTION or Z_ACTION = VF_NEXT_BUT_CAPTION) or - (Z_ACTION = VF_LAST_BUT_ACTION or Z_ACTION = VF_LAST_BUT_CAPTION) or - (Z_ACTION = VF_REQUERY_BUT_ACTION or Z_ACTION = VF_REQUERY_BUT_CAPTION) or - (Z_ACTION = VF_NTOM_BUT_ACTION or Z_ACTION = VF_NTOM_BUT_CAPTION) then - QueryView(Z_EXECUTE_QUERY=>'Y', - Z_POST_DML=>FALSE, - Z_DIRECT_CALL=>TRUE, - Z_ACTION=>Z_ACTION, - Z_START=>Z_START); -end if; - -if (Z_ACTION = VF_UPDATE_BUT_ACTION) or (Z_ACTION = VF_UPDATE_BUT_CAPTION) or ltrim(Z_ACTION) is null then - l_row := z_modified.first; - while l_row is not null loop - l_do_delete := false; - if z_modified( l_row ) = 'Y' or l_do_delete then - PROCESSING_VIEW := true; - FORM_VAL.APPA_ID := P_APPA_ID( l_row ); - FORM_VAL.PARAMETER := H_PARAMETER( l_row ); - FORM_VAL.VALUE := P_VALUE( l_row ); - - PREV_VAL.APPA_ID := P_APPA_ID( l_row ); - PREV_IND.APPA_ID := TRUE; - PREV_VAL.PARAMETER := O_PARAMETER( l_row ); - PREV_IND.PARAMETER := TRUE; - PREV_VAL.DESCRIPTION := O_DESCRIPTION( l_row ); - PREV_IND.DESCRIPTION := TRUE; - PREV_VAL.VALUE := O_VALUE( l_row ); - PREV_IND.VALUE := TRUE; - CURR_IND := NULL_IND; - CURR_VAL := PREV_VAL; - CURR_PK.APPA_ID := CURR_VAL.APPA_ID; - ActionUpdate( p_row=>l_row, p_row_success=>l_success, p_row_lck=>l_record_lck ); - - if ( not l_do_delete ) or ( l_do_delete and not l_success ) then - VF_ROW_SET( l_rowset_row ).ROW_DELETED := false; - begin - select ROWID - into VF_ROW_SET( l_rowset_row ).ROW_ID - from APPLICATION_PARAMETERS - where APPA_ID = CURR_VAL.APPA_ID; - exception when no_data_found then - l_success := false; - VF_ROW_SET( l_rowset_row ).ROW_DELETED := true; - end; - VF_ROW_SET( l_rowset_row ).SUCCESS_FLAG := l_success; - VF_ROW_SET( l_rowset_row ).ROW_NOT_LOCKED := ( not l_record_lck ); - VF_ROW_SET( l_rowset_row ).F_PARAMETER := FORM_VAL.PARAMETER; - VF_ROW_SET( l_rowset_row ).F_DESCRIPTION := FORM_VAL.DESCRIPTION; - VF_ROW_SET( l_rowset_row ).F_VALUE := FORM_VAL.VALUE; - VF_ROW_SET( l_rowset_row ).F_APPA_ID := FORM_VAL.APPA_ID; - if l_success then - VF_ROWS_UPDATED := VF_ROWS_UPDATED + 1; - else - VF_ROWS_ERROR := VF_ROWS_ERROR + 1; - end if; - l_rowset_row := l_rowset_row + 1; - end if; - end if; - l_row := z_modified.next( l_row ); - end loop; - - if VF_ROW_SET.count > 0 then - QueryView(Z_EXECUTE_QUERY=>null, - Z_POST_DML=>TRUE, - Z_DIRECT_CALL=>TRUE, - Z_START=>Z_START, - Z_ACTION=>Z_ACTION); - else - QueryView(Z_EXECUTE_QUERY=>'Y', - Z_POST_DML=>FALSE, - Z_DIRECT_CALL=>TRUE, - Z_START=>Z_START, - Z_ACTION=>Z_ACTION); - end if; -end if; - - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - VF_BODY_ATTRIBUTES, 'amadw025$appa.ActionView'); - end; - --------------------------------------------------------------------------------- --- Name: amadw025$appa.ActionUpdate --- --- Description: Called from ActionView to process an update request --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure ActionUpdate (p_row in integer default 0 - ,p_row_success in out boolean - ,p_row_lck in out boolean - ) - is - - I_ERROR_MESS varchar2(2000) := null; - I_RETURN number(6); - l_force_upd boolean := false; - - begin - p_row_success := true; - p_row_lck := true; - begin - CG$APPLICATION_PARAMETERS.Lck(PREV_VAL, PREV_IND); - exception - when cg$errors.cg$error then - p_row_success := false; - p_row_lck := false; - return; - when others then - raise; - end; - - - if not Validate('UPD', l_force_upd) then - rollback; - p_row_success := false; - return; - end if; - - - if not PreUpdate then - rollback; - p_row_success := false; - return; - end if; - - begin - CG$APPLICATION_PARAMETERS.Upd(CURR_VAL, CURR_IND); - exception - when cg$errors.cg$error then - p_row_success := false; - rollback; - return; - when others then - raise; - end; - - if not PostUpdate then - rollback; - p_row_success := false; - return; - end if; - - commit; - - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - VF_BODY_ATTRIBUTES, 'amadw025$appa.ActionUpdate'); - end;-------------------------------------------------------------------------------- --- Name: amadw025$appa.RestoreState --- --- Description: Restore the data state and optional meta data for the --- 'APPA' module component (#Maintain Application Parameters#3968#). --- --- Parameters: --- --------------------------------------------------------------------------------- - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean ) return boolean - is - I_REMAINING_DEPTH integer; - I_CURSOR integer; - I_VOID integer; - I_ROWS_FETCHED integer; - I_FETCH_ERROR boolean := FALSE; - I_SUCCESS boolean := TRUE; - begin - if Z_RESTORE_OWN_ROW then - if ( CURR_VAL.APPA_ID is null - ) then - return FALSE; - end if; - end if; - - if ( Z_RESTORE_OWN_ROW ) then - - -- Use the CURR_VAL fields for UID to get the other values - - if not BuildSQL( Z_QUERY_BY_KEY => true ) then - return FALSE; - end if; - - OpenZoneSql(I_CURSOR); - I_VOID := dbms_sql.execute(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED = 0 then - I_FETCH_ERROR := TRUE; - else - - AssignZoneRow(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED != 0 then - I_FETCH_ERROR := TRUE; - end if; - - end if; - - dbms_sql.close_cursor(I_CURSOR); - if I_FETCH_ERROR then - return FALSE; - end if; - - end if; - return TRUE; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - '', 'amadw025$appa.RestoreState'); - raise; - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: amadw025$appa.SaveState --- --- Description: Saves the data state for the 'APPA' module component (#Maintain Application Parameters#3968#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure SaveState - is - begin - - - null; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - '', 'amadw025$appa.SaveState'); - raise; - end; - - --------------------------------------------------------------------------------- --- Name: amadw025$appa.GetRef --- --- Description: Returns a handle to the component object --- --- Parameters: --- --------------------------------------------------------------------------------- - function GetRef return WSGOC.COMPONENT_REF - is - begin - return ref_Component; - end; - --------------------------------------------------------------------------------- --- Name: amadw025$appa.LoadCache --- --- Description: Populate the object cache with --- 'APPA' module component (#Maintain Application Parameters#3968#). --- --------------------------------------------------------------------------------- - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF - , Z_BRANCH in WSGOC.BRANCH_REF - ) - is - I_VF_FRAME varchar2(20) := null; - begin - - -- Is cache already loaded - if not WSGOC.Is_Null(ref_Component) then - return; - end if; - - - ref_Component := WSGOC.Component - ( pModule => amadw025$.GetRef - , pBranch => Z_BRANCH - , pContext_For=> Z_CONTEXT_FOR - , pName => 'APPA' - , pTitle => '#Maintain Application Parameters#3968#' - , pSystemImagePath=> '/images/' - ); - - r_PARAMETER := WSGOC.Item - ( pName => 'PARAMETER' - , pPrompt => '#Parameter Name#2498#' - , pIsContext=> true - ); - r_DESCRIPTION := WSGOC.Item - ( pName => 'DESCRIPTION' - , pPrompt => 'Description' - ); - r_VALUE := WSGOC.Item - ( pName => 'VALUE' - , pPrompt => '#Value#3555#' - ); - r_APPA_ID := WSGOC.Item - ( pName => 'APPA_ID' - , pPrompt => 'Appa Id' - ); - - WSGOC.Add_Items(ref_Component, r_PARAMETER); - WSGOC.Add_Items(ref_Component, r_DESCRIPTION); - WSGOC.Add_Items(ref_Component, r_VALUE); - WSGOC.Add_Items(ref_Component, r_APPA_ID); - - - if ( Z_OWN_ROW_VALUES ) then - - -- Set the display value for each item - -- ( As would be displayed on the Record List ) - WSGOC.Set_Value( r_PARAMETER, replace(WSGL.EscapeItem(CURR_VAL.PARAMETER), ' -', '
-') ); - WSGOC.Set_Value( r_DESCRIPTION, replace(WSGL.EscapeItem(CURR_VAL.DESCRIPTION), ' -', '
-') ); - WSGOC.Set_Value( r_VALUE, replace(WSGL.EscapeItem(CURR_VAL.VALUE), ' -', '
-') ); - WSGOC.Set_Value( r_APPA_ID, WSGL.EscapeItem(CURR_VAL.APPA_ID) ); - - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - '', 'amadw025$appa.LoadCache'); - raise; - end; - - - --------------------------------------------------------------------------------- --- Name: amadw025$appa.PreQuery --- --- Description: Provides place holder for code to be run prior to a query --- for the 'APPA' module component (#Maintain Application Parameters#3968#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PreQuery return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - DEF_BODY_ATTRIBUTES, 'amadw025$appa.PreQuery'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: amadw025$appa.PostQuery --- --- Description: Provides place holder for code to be run after a query --- for the 'APPA' module component (#Maintain Application Parameters#3968#). --- --- Parameters: Z_POST_DML Flag indicating if Query after insert or update --- Z_UPDATE_ROW Can be set to mark that row as modified when a --- multirow form is displayed, causing it to be --- updated when the form is submitted. --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - DEF_BODY_ATTRIBUTES, 'amadw025$appa.PostQuery'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: amadw025$appa.PostUpdate --- --- Description: Provides place holder for code to be run after an update --- for the 'APPA' module component (#Maintain Application Parameters#3968#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PostUpdate return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - VF_BODY_ATTRIBUTES, 'amadw025$appa.PostUpdate'); - return FALSE; - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$appa.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$appa.spc deleted file mode 100644 index 96e6d7b..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$appa.spc +++ /dev/null @@ -1,60 +0,0 @@ -create or replace package amadw025$appa is - - - CURR_VAL CG$APPLICATION_PARAMETERS.CG$ROW_TYPE; - - - procedure Startup( - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null, - Z_FORM in varchar2 default null); - procedure QueryView( - K_APPA_ID in varchar2 default null, - Z_EXECUTE_QUERY in varchar2 default null, - Z_POST_DML in boolean default false, - Z_FORM_STATUS in number default WSGL.FORM_STATUS_OK, - Z_DIRECT_CALL in boolean default false, - Z_START in varchar2 default '1', - Z_ACTION in varchar2 default null, - Z_CHK in varchar2 default null); - function QueryHits return number; - - procedure ActionView( - P_APPA_ID in owa_text.vc_arr, - P_VALUE in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_PARAMETER in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_DESCRIPTION in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_VALUE in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_APPA_ID in owa_text.vc_arr default WSGL.EmptyVCArrLong, - H_PARAMETER in owa_text.vc_arr default WSGL.EmptyVCArrLong, - z_modified in owa_text.vc_arr, - Z_ACTION in varchar2 default null, - Z_START in varchar2 default '1', - Z_CHK in varchar2 default null ); - procedure QueryViewByKey( - P_APPA_ID in varchar2 default null, - Z_POST_DML in boolean default false, - Z_FORM_STATUS in number default WSGL.FORM_STATUS_OK, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null); - - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean default false - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF default null - , Z_BRANCH in WSGOC.BRANCH_REF default null - ); - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean default true - ) return boolean; - procedure SaveState; - function GetRef return WSGOC.COMPONENT_REF; - -PROCEDURE Audit_appa; - - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$js$appa.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$js$appa.bdy deleted file mode 100644 index 2aa1599..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$js$appa.bdy +++ /dev/null @@ -1,105 +0,0 @@ -create or replace package body amadw025$js$appa is - - --------------------------------------------------------------------------------- --- Name: amadw025$js$appa.CreateViewJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateViewJavaScript( - VF_ROWS_UPDATED in integer, - VF_ROWS_DELETED in integer, - VF_ROWS_ERROR in integer, - VF_BODY_ATTRIBUTES in varchar2, - LOV_FRAME in varchar2) is - begin - if not caco_security.security_check('amadw025$appa') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var index = 0;'); - htp.p( 'var DataChangeErrors = false;' ); - htp.p( 'var DataChange = false;' ); - - - htp.p( 'var P_3 = new Array();' ); - - htp.p(WSGJSL.RtnCheckModified); - htp.p(WSGJSL.RtnRevertForm); - - - htp.p(' -function ResetRadios( form, num_rows ) -{ - return; -}; -'); - - htp.p(WSGJSL.OpenEvent('VALUE','OnChange')); htp.p(' - if (ctl != null) - { - ctl.form.z_modified[index].value = "Y"; - }'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('APPA','Validate'));htp.p('var index = 0;'); -htp.p(' -for (index = 0; index < ctl.form.P_VALUE.length; index++) -{'); -htp.p(' if (!(ctl.form.z_modified[index].value == "Y")) { continue;};'); - -htp.p(' -}'); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('APPA','OnLoad')); - htp.p(' - if ( FormType != "PostDelete") - { - form_num=0; - do - { - elem_num=0; - len = document.forms[form_num].elements.length; - if (len > 0) - { - while (elem_num < len && - document.forms[form_num].elements[elem_num].type != "text" && - document.forms[form_num].elements[elem_num].type != "textarea") - { - elem_num++; - } - if (elem_num < len) - { - document.forms[form_num].elements[elem_num].focus(); - break; - } - } - form_num++; - } while ( form_num < document.forms.length ); - } -'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnVFU','OnClick')); - htp.p(' if (!APPA_Validate(ctl)) { return false; }'); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnVFD','OnClick')); - htp.p(WSGJSL.VerifyDelete(WSGL.MsgGetText(118, WSGLM.DSP118_CONFIRM_DELETE))); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnVFR','OnClick')); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Application Parameters#3968#', - VF_BODY_ATTRIBUTES, 'amadw025$js$appa.CreateViewJavaScript'); - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$js$appa.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$js$appa.spc deleted file mode 100644 index 8656bac..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$js$appa.spc +++ /dev/null @@ -1,11 +0,0 @@ -create or replace package amadw025$js$appa is - - procedure CreateViewJavaScript( - VF_ROWS_UPDATED in integer, - VF_ROWS_DELETED in integer, - VF_ROWS_ERROR in integer, - VF_BODY_ATTRIBUTES in varchar2, - LOV_FRAME in varchar2); - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/caco_security.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/caco_security.bdy deleted file mode 100644 index 2975bdb..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/caco_security.bdy +++ /dev/null @@ -1,2527 +0,0 @@ -CREATE OR REPLACE PACKAGE BODY caco_security IS - -- - -- Constants - -- - c_session_duration_hours CONSTANT NUMBER := TO_NUMBER(cout_system_configuration.get_configuration_item('SESSION_TIMEOUT'),'999.999'); - -- - -- Use the configuration parameter to set when the password expires following a change, if not found use 30 days as a default. - -- - c_password_expiry_period CONSTANT NUMBER := NVL(cout_system_configuration.get_configuration_item('G_ACCOUNT_EXPIRE_PERIOD'),30); - -- - -- Private procedural logic - -- - FUNCTION scramble(p_string IN VARCHAR2) RETURN VARCHAR2 IS - -- - v_return VARCHAR2(30); - -- - BEGIN - -- - v_return := substr(dbms_obfuscation_toolkit.md5(input => utl_raw.cast_to_raw(p_string)) - ,1 - ,30); - -- - RETURN v_return; - -- - END scramble; - -- - -- Get User - -- - FUNCTION get_user RETURN VARCHAR2 IS - BEGIN - -- - RETURN g_current_user; - -- - END get_user; - -- - -- - -- - PROCEDURE get_session_data(p_client_id IN VARCHAR2 DEFAULT NULL) IS - BEGIN - -- - IF g_client_id IS NULL THEN - -- - IF p_client_id IS NULL THEN - -- - g_client_id := wsgl.getclientid; - -- - ELSE - -- - g_client_id := p_client_id; - -- - END IF; - -- - END IF; - -- - IF g_client_id IS NOT NULL THEN - -- - BEGIN - SELECT user_name - ,syus_id - ,inte_id - ,cust_id - INTO g_current_user - ,g_current_syus_id - ,g_current_inte_id - ,g_current_cust_id - FROM sessions - WHERE client_id = g_client_id; - EXCEPTION - WHEN no_data_found THEN - -- - -- the client id is invalid - -- - g_current_user := NULL; - g_current_syus_id := NULL; - g_current_inte_id := NULL; - g_current_cust_id := NULL; - END; - -- - END IF; - -- - END; - -- - -- - -- - PROCEDURE storeclientid(p_client_id_str IN VARCHAR2) IS - l_script_name VARCHAR2(80) := owa_util.get_cgi_env('SCRIPT_NAME'); - BEGIN - -- - IF substr(l_script_name - ,-1 - ,1) = '/' THEN - l_script_name := substr(l_script_name - ,1 - ,length(l_script_name) - 1); - END IF; - - owa_util.mime_header('text/html' - ,FALSE); - -- - owa_cookie.send(wsgl.wsg_clientid_cookie - ,p_client_id_str - ,NULL - ,l_script_name - ,NULL); - -- - owa_util.http_header_close; - -- - END; - -- Check_Session: Check that the supplied client ID is valid - -- for the IP address of the client, that the - -- session is still valid, and that the client - -- ID supplied is not null. - -- - FUNCTION check_session(p_client_id IN VARCHAR2) RETURN BOOLEAN IS - l_stored_ip VARCHAR2(30); - l_current_ip VARCHAR2(30); - l_check_ok BOOLEAN; - l_expires DATE; - l_debugging BOOLEAN := caco_debug.debugging; - BEGIN - -- - IF p_client_id IS NOT NULL THEN - -- - -- Get IP address of client - -- - l_current_ip := owa_util.get_cgi_env('REMOTE_ADDR'); - l_check_ok := TRUE; - -- - -- Check wsgsec_sessions table for an existing session - -- with the specified ID and the current IP address - -- - BEGIN - SELECT ip_address - ,expires - INTO l_stored_ip - ,l_expires - FROM sessions - WHERE client_id = p_client_id - AND ip_address = l_current_ip; - - EXCEPTION - WHEN no_data_found THEN - BEGIN - SELECT ip_address - ,expires - INTO l_stored_ip - ,l_expires - FROM sessions - WHERE client_id = p_client_id; - IF NOT l_debugging THEN - caco_debug.debug_on; - END IF; - caco_debug.putline('Looked for client at ' || l_current_ip || - ' and failed. Found client at IP ' || - l_stored_ip); - IF (NOT l_debugging) - AND caco_debug.debugging THEN - caco_debug.debug_off; - END IF; - EXCEPTION - WHEN no_data_found THEN - IF NOT l_debugging THEN - caco_debug.debug_on; - END IF; - caco_debug.putline('Looked for client at any IP and failed.'); - IF (NOT l_debugging) - AND caco_debug.debugging THEN - caco_debug.debug_off; - END IF; - l_check_ok := FALSE; - l_expires := SYSDATE; - END; - END; - -- - -- Check that the session has not expired - -- - IF (SYSDATE > l_expires) THEN - l_check_ok := FALSE; - END IF; - -- - ELSE - -- - -- Supplied client ID was null, so return fail. - -- - l_check_ok := FALSE; - -- - END IF; - -- - -- Check that the license is valid - -- - IF NOT saco_licensing.check_license THEN - -- - l_check_ok := FALSE; - -- - END IF; - -- - -- If an invalid session was found (either expired or for - -- another IP address) then delete that session. - -- - IF NOT l_check_ok - AND p_client_id IS NOT NULL THEN - -- - BEGIN - -- - dbms_transaction.begin_discrete_transaction; - -- - DELETE FROM sessions - WHERE client_id = p_client_id; - COMMIT; - EXCEPTION - WHEN OTHERS THEN - IF NOT caco_debug.debugging THEN - caco_debug.debug_on; - caco_debug.putline(SQLERRM); - caco_debug.debug_off; - ELSE - caco_debug.putline(SQLERRM); - END IF; - END; - -- - END IF; - -- - RETURN l_check_ok; - -- - END; - -- - -- - -- Generate_Client_Id: Generate a unique identifier for a new session. - -- - FUNCTION generate_client_id RETURN VARCHAR2 IS - -- - l_client_id VARCHAR2(240); - l_is_unique BOOLEAN := FALSE; - l_count INTEGER; - -- - BEGIN - -- - -- Generate a pseudo random number. - SELECT to_char(to_number(userenv('sessionid')) * - to_number(to_char(SYSDATE - ,'DDDSSSS'))) - INTO l_client_id - FROM sys.dual; - -- - -- Check that it is unique in the session table. If it is not, increment - -- it until it is. - -- - WHILE NOT l_is_unique LOOP - BEGIN - SELECT COUNT(*) - INTO l_count - FROM sessions - WHERE client_id = l_client_id; - EXCEPTION - WHEN no_data_found THEN - l_count := 0; - END; - IF l_count = 0 THEN - -- - -- The ID does not already exist in session table - -- - l_is_unique := TRUE; - ELSE - l_client_id := to_number(l_client_id) + 1; - END IF; - END LOOP; - RETURN l_client_id; - END; - - PROCEDURE update_session_expiry(p_client_id sessions.client_id%TYPE) IS - PRAGMA AUTONOMOUS_TRANSACTION; - e_resource_busy EXCEPTION; - PRAGMA EXCEPTION_INIT(e_resource_busy - ,-54); - l_dummy sessions.client_id%TYPE; - BEGIN - SELECT client_id - INTO l_dummy - FROM sessions - WHERE client_id = p_client_id - FOR UPDATE NOWAIT; - - UPDATE sessions - SET expires = SYSDATE + (c_session_duration_hours / 24) - WHERE client_id = p_client_id; - COMMIT; - EXCEPTION - WHEN e_resource_busy THEN - -- - -- Unable to lock the client session, must be another update occurring - COMMIT; - END update_session_expiry; - -- - -- - -- Security_Check: Returns true if the currently logged on user is - -- allowed access to the specified package. If not, - -- will return false. This function will also provide - -- a means for the user to log on. - -- - FUNCTION security_check(p_package_name IN VARCHAR2) RETURN BOOLEAN IS - -- - l_client_id VARCHAR2(240); - l_username VARCHAR2(30); - l_rows INTEGER := 0; - -- - BEGIN - -- - -- Get the current client ID - -- - l_client_id := wsgl.getclientid; - -- - IF l_client_id IS NOT NULL THEN - -- - -- Call check_session to ensure current session - -- is valid - -- - IF check_session(l_client_id) THEN - -- - -- Update the session table to set the expiry date to SYSDATE + session duration - -- - update_session_expiry(l_client_id); - -- - -- Get user name - -- - get_session_data(l_client_id); - -- - -- Check that the current user has a responsibility - -- that allows it to access the specified package name - -- - IF lower(p_package_name) = 'home' THEN - -- - l_rows := 1; - -- - ELSE - -- - BEGIN - -- - SELECT COUNT(*) - INTO l_rows - FROM user_profiles uspr - ,profile_options prop - ,system_options syop - WHERE uspr.syus_id = g_current_syus_id - AND uspr.sypr_id = prop.sypr_id - AND syop.syop_id = prop.syop_id - AND syop.module_name IS NOT NULL - AND upper(substr(syop.module_name - ,1 - ,decode(instr(syop.module_name - ,'$') - ,0 - ,length(syop.module_name) - ,instr(syop.module_name - ,'$')))) = - upper(substr(p_package_name - ,1 - ,decode(instr(p_package_name - ,'$') - ,0 - ,length(p_package_name) - ,instr(p_package_name - ,'$')))); - -- - EXCEPTION - WHEN no_data_found THEN - l_rows := 0; - END; - -- - END IF; - -- - ELSE - -- - -- No valid session was found, so display a - -- logon form. - -- - IF saco_licensing.check_license - AND saco_licensing.check_users THEN - -- - IF lower(p_package_name) = 'home' THEN - -- - show_logon_form(p_embedded => TRUE); - -- - ELSE - -- - show_logon_form(p_embedded => FALSE); - -- - END IF; - -- - END IF; - -- - RETURN FALSE; - -- - END IF; - -- - IF l_rows != 0 THEN - -- - -- User is logged on and has permission to access - -- the specified package. - -- - RETURN TRUE; - -- - ELSE - -- - -- User is logged on but does not have permission - -- to access the specified package - -- - show_no_access; - RETURN FALSE; - -- - END IF; - -- - ELSE - -- - -- No current client ID, so display logon form. - -- - IF lower(p_package_name) = 'home' THEN - -- - show_logon_form(p_embedded => TRUE); - -- - ELSE - -- - show_logon_form(p_embedded => FALSE); - -- - END IF; - -- - RETURN FALSE; - -- - END IF; - -- - END; - -- - -- allow_username_login: allows the user to login using a username or password - -- - FUNCTION allow_username_login RETURN BOOLEAN IS - -- - l_return BOOLEAN := FALSE; - -- - BEGIN - -- - IF cout_system_configuration.get_configuration_item('G_ALLOW_USERNAME_LOGIN') = 'Y' THEN - -- - l_return := TRUE; - -- - END IF; - -- - RETURN l_return; - -- - END allow_username_login; - -- - -- Show_Logon_Form: Renders logon form - -- - PROCEDURE show_logon_form(p_embedded IN BOOLEAN - ,h_href IN VARCHAR2 DEFAULT NULL) IS - BEGIN - -- - IF saco_licensing.check_license - AND saco_licensing.check_users THEN - -- - IF NOT p_embedded THEN - -- - owa_util.mime_header('text/html' - ,FALSE); - htp.p('Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0'); - owa_util.http_header_close; - -- - htp.p(''); - -- - htp.headopen; - -- - htp.title(wsgl.msggettext(605 - ,wsglm.sec605_logon_caption)); - -- - caco_system.content_type; - htp.linkrel('stylesheet' - ,'caco_system.css?p_type=general'); - -- - -- Display the standard menu - -- - htp.print(caco_system.menu); - -- - htp.headclose; - -- - END IF; - -- - -- Output JavaScript for handling onLoad event for setting - -- the focus to the username field upon invocation. - -- - htp.bodyopen(cattributes => 'onLoad="return Logon_OnLoad()"'); - htp.p(''); - htp.formopen(curl => 'caco_security.process_logon' - ,ctarget => '' - ,cmethod => 'POST' - ,cattributes => 'NAME="Logonform"'); - -- - -- Hidden field to store the calling URL - -- - htp.formHidden(cname => 'h_href', cvalue => h_href); - -- - -- - htp.p('
- -
-
-
-
-
- -
-
-

E.ON Földgáz Trade Zrt

'); - -- - IF allow_username_login THEN - -- - htp.p('

- Please log in here -

'); - -- - END IF; - -- - htp.p('
-
-
-
-
-
'); - -- - IF allow_username_login THEN - -- - htp.p('
- Login -

*) required fields

- *) - - - -
-
- - *) - -
-
- - -
-
-
'); - -- - END IF; - -- - htp.p('
- Register - New users register here - -
-
-
-
-
-
-
- -
-
-
-
-
-
'); - -- - htp.formclose; - -- - IF NOT p_embedded THEN - caco_system.footer(p_closebody => TRUE); - END IF; - -- - END IF; - -- - END; - -- - PROCEDURE online_user_registration ( p_register_title IN VARCHAR2 DEFAULT NULL - , p_register_first_name IN VARCHAR2 DEFAULT NULL - , p_register_surname IN VARCHAR2 DEFAULT NULL - , p_register_company IN VARCHAR2 DEFAULT NULL - , p_register_email IN VARCHAR2 DEFAULT NULL - , p_register_phone IN VARCHAR2 DEFAULT NULL - , p_register_submit IN VARCHAR2 DEFAULT NULL - ) IS - -- - l_email_body VARCHAR2(4000); - -- - BEGIN - -- - -- Output the standard pages headings - -- - htp.p(''); - htp.p(' - '); - -- - htp.p(''); - htp.comment(ctext => 'Copyright 2009 GL Industrial Services'); - htp.p('E.ON Földgáz Trade Zrt - User Registration'); - htp.p(' '); - htp.p(''); - htp.p('
- -
    -
-
'); - htp.p('
- - - -
    -
-
-
    -
- -
    -
-
'); - -- - -- Now output the content - -- - IF p_register_submit IS NULL THEN - -- - htp.formopen(curl => 'caco_security.online_user_registration' - ,ctarget => '' - ,cmethod => 'POST' - ,cattributes => ' onsubmit="return validate_form(this.form);"'); - -- - END IF; - -- - htp.p('
- -
-
-
-
-
- -
-
-

User Registration

'); - -- - htp.p('
-
-
-
-
-
'); - -- - IF p_register_submit IS NULL THEN - -- - -- Personal Identification - -- - htp.p('
- Person'); - htp.p(' - -
- - -
- - -
- - -
'); - -- - -- Contact Details - -- - htp.p('
- Contact Details - - -
- - -
-
- -
'); - -- - ELSE - -- - -- Record what we have received - -- - amfr_journal.log_transaction( 'INSERT' - , 'Application Registration Received' - , name_value_tab( - name_value_rec('TITLE' , p_register_title ) - , name_value_rec('FIRST NAME', p_register_first_name ) - , name_value_rec('SURNAME' , p_register_surname ) - , name_value_rec('COMPANY' , p_register_company ) - , name_value_rec('EMAIL' , p_register_email ) - , name_value_rec('PHONE' , p_register_phone ) - ) - , amfr_journal.g_name_value_tab - ); - -- - -- Send it as an email - -- - l_email_body := CHR(13) || caco_utilities.get_module_text(3931)|| CHR(13); - l_email_body := l_email_body || 'Title: ' || CHR(9) || CHR(9) || p_register_title || CHR(13); - l_email_body := l_email_body || 'First Name: ' || CHR(9) || p_register_first_name || CHR(13); - l_email_body := l_email_body || 'Surname: ' || CHR(9) || p_register_surname || CHR(13); - l_email_body := l_email_body || 'Company: ' || CHR(9) || p_register_company || CHR(13); - l_email_body := l_email_body || 'Email: ' || CHR(9) || CHR(9) || p_register_email || CHR(13); - l_email_body := l_email_body || 'Phone Number: ' || CHR(9) || p_register_phone || CHR(13); - -- - amfr_messaging.send_background_email( from_name => cout_system_configuration.get_configuration_item('CONTACT_EMAIL') - , to_names => cout_system_configuration.get_configuration_item('G_SYSADMIN_EMAIL_ADDRESS') - , subject => caco_utilities.get_module_text(3933) - , message => l_email_body - ); - -- - -- Output the details - -- - htp.p(''||caco_utilities.get_module_text(3932)||''); - htp.p('
'); - -- - END IF; - -- - htp.p(' -
-
-
- -
-
-
-
-
-
'); - -- - IF p_register_submit IS NULL THEN - -- - htp.formclose; - -- - END IF; - -- - -- Standard Footer - -- - htp.p('
-
-
-
-

E.ON Földgáz Trade Zrt.

- -
-
- - '); - -- - END online_user_registration; - -- - -- Process_Logon: Accepts submitted logon form and logs user on. If logon - -- fails then notifies user. - -- - PROCEDURE process_logon(p_username IN VARCHAR2 DEFAULT NULL - ,p_password IN VARCHAR2 DEFAULT NULL - ,h_href IN VARCHAR2 DEFAULT NULL - ,p_login_button IN VARCHAR2 DEFAULT NULL - ) IS - -- - l_client_id VARCHAR2(240); - l_success BOOLEAN := FALSE; - l_invalid_password BOOLEAN := FALSE; - l_current_ip VARCHAR2(30); - -- - v_message VARCHAR2(2000); - -- - CURSOR cur_syus(p_username IN system_users.db_username%TYPE) IS - SELECT syus.syus_id - ,syus.cust_id - ,syus.inte_id - ,syus.password_expires - ,syus.grace_logins - ,nvl(syus.user_locked - ,'N') user_locked - ,syus.period_start - ,syus.period_end - ,NVL(syus.failed_login_attempts,0) failed_login_attempts - ,syus.password - FROM system_users syus - WHERE syus.db_username = p_username; - -- - r_syus_rec cur_syus%ROWTYPE; - -- - BEGIN - -- - -- If the request is a login request - -- - IF p_login_button = 'Login' THEN - -- - -- Retrieve details from system users for the passed username and password - -- - IF p_username IS NOT NULL THEN - -- - OPEN cur_syus(p_username); - FETCH cur_syus - INTO r_syus_rec; - IF cur_syus%FOUND - THEN - IF scramble(p_username || '/' || p_password) <> r_syus_rec.password - THEN - l_invalid_password := TRUE; - END IF; - END IF; - CLOSE cur_syus; - -- - -- Get current client ID - -- - l_client_id := wsgl.getclientid; - -- - END IF; - -- - -- If username/password valid - -- - IF r_syus_rec.syus_id IS NOT NULL - AND r_syus_rec.user_locked <> 'Y' - AND saco_licensing.check_users - AND saco_licensing.check_license - AND SYSDATE >= r_syus_rec.period_start -- user validity period - AND SYSDATE < (TRUNC(NVL(r_syus_rec.period_end,SYSDATE)) + 1 - (1/86400)) -- HH24:MI:SS = 23:59:59 - AND p_username IS NOT NULL - AND allow_username_login - AND NOT l_invalid_password - THEN - -- - -- Check that current client ID is valid - -- - IF l_client_id IS NOT NULL - AND check_session(l_client_id) THEN - -- - -- Update the session table for this client with - -- the new user - -- - dbms_transaction.begin_discrete_transaction; - -- - UPDATE sessions - SET user_name = p_username - WHERE client_id = l_client_id; - -- - COMMIT; - -- - l_success := TRUE; - -- - ELSE - -- - -- Current client ID is not valid so create a new one - -- - l_client_id := generate_client_id; - -- - -- Write to browser as a cookie - -- - storeclientid(l_client_id); - -- - -- Get current IP address - -- - l_current_ip := NVL(owa_util.get_cgi_env('REMOTE_ADDR'), '127.0.0.1'); - -- - -- Create new session in session table - -- - dbms_transaction.begin_discrete_transaction; - -- - INSERT INTO sessions - (client_id - ,user_name - ,syus_id - ,cust_id - ,inte_id - ,ip_address - ,expires) - VALUES - (l_client_id - ,p_username - ,r_syus_rec.syus_id - ,r_syus_rec.cust_id - ,r_syus_rec.inte_id - ,l_current_ip - ,SYSDATE + (c_session_duration_hours / 24)); - -- - COMMIT; - -- - l_success := TRUE; - -- - END IF; - -- - UPDATE system_users syus - SET syus.failed_login_attempts = 0 - WHERE syus.syus_id = r_syus_rec.syus_id; - -- - -- - -- User can connect, but check to see if account is nearing expiry - -- - IF r_syus_rec.password_expires IS NOT NULL THEN - IF r_syus_rec.password_expires <= SYSDATE THEN - -- - IF r_syus_rec.grace_logins = 0 THEN - -- - r_syus_rec.user_locked := 'Y'; - -- - UPDATE system_users syus - SET syus.user_locked = r_syus_rec.user_locked - WHERE syus.syus_id = r_syus_rec.syus_id; - -- - l_success := FALSE; - v_message := caco_utilities.get_module_text(1000); - -- - ELSIF r_syus_rec.grace_logins = 1 THEN - -- - -- password has expired with no grace logins remaining - -- - UPDATE system_users syus - SET syus.grace_logins = 0 - WHERE syus.syus_id = r_syus_rec.syus_id; - -- - v_message := caco_utilities.get_module_text(1001); - -- - ELSE - -- - -- Password expired, update grace logins - -- - UPDATE system_users syus - SET syus.grace_logins = nvl(grace_logins - ,3) - 1 - WHERE syus.syus_id = r_syus_rec.syus_id; - -- - v_message := wsgl.msggettext(p_msgno => NULL - ,p_dflttext => caco_utilities.get_module_text(1003) - ,p_subst1 => nvl(r_syus_rec.grace_logins - ,3) - 1); - -- - END IF; - -- - ELSIF trunc(r_syus_rec.password_expires) - trunc(SYSDATE) <= 5 THEN - -- - v_message := wsgl.msggettext(p_msgno => NULL - ,p_dflttext => caco_utilities.get_module_text(1004) - ,p_subst1 => trunc(r_syus_rec.password_expires) - - trunc(SYSDATE)); - -- - END IF; - -- - END IF; - -- - ELSE - -- - -- Invalid username / password - -- - IF NOT allow_username_login THEN - -- - v_message := caco_utilities.get_module_text(3930); -- username authentication has been disabled. - -- - ELSIF l_invalid_password - AND r_syus_rec.syus_id IS NOT NULL - AND NVL(r_syus_rec.user_locked,'N') <> 'Y' - THEN - -- - r_syus_rec.failed_login_attempts := NVL(r_syus_rec.failed_login_attempts,0) + 1; - IF r_syus_rec.failed_login_attempts >= C_password_max_tries - THEN - r_syus_rec.user_locked := 'Y'; - v_message := caco_utilities.get_module_text(3966); - ELSE - v_message := REPLACE(caco_utilities.get_module_text(3965),'',TO_CHAR((C_password_max_tries - r_syus_rec.failed_login_attempts))); - END IF; - -- - UPDATE system_users syus - SET syus.failed_login_attempts = r_syus_rec.failed_login_attempts - , syus.user_locked = r_syus_rec.user_locked - WHERE syus.syus_id = r_syus_rec.syus_id; - -- - - ELSIF r_syus_rec.syus_id IS NULL THEN - -- - v_message := wsgl.msggettext(608 - ,wsglm.sec608_invalid_logon); - -- - ELSIF r_syus_rec.user_locked = 'Y' THEN - -- - v_message := caco_utilities.get_module_text(1000); - -- - ELSIF NOT saco_licensing.check_users THEN - -- - v_message := 'Number of concurrent users exceeded, please try again later.'; - -- - ELSIF NOT saco_licensing.check_license THEN - -- - v_message := 'License is not valid - please contact your system administrator.'; - -- - ELSIF SYSDATE < r_syus_rec.period_start -- user validity period - OR SYSDATE > (TRUNC(NVL(r_syus_rec.period_end,SYSDATE)) + 1 - (1/86400)) -- HH24:MI:SS = 23:59:59 - THEN - -- The user has expired. Please contact your system administrator - v_message := caco_utilities.get_module_text(2518); - -- - END IF; - -- - -- EFT request to log failed logons - amfr_journal.log_transaction( 'FAILED LOGIN' - , caco_utilities.get_system_name - , name_value_tab( - name_value_rec('USERNAME', p_username ) - , name_value_rec('CLIENT_ID', l_client_id ) - , name_value_rec('REMOTE_IP', owa_util.get_cgi_env('REMOTE_ADDR') ) - , name_value_rec('MESSAGE', v_message ) - ) - , amfr_journal.g_name_value_tab - ); - -- - IF l_client_id IS NOT NULL THEN - -- - -- Invalid logon so delete the session for the current client. - -- - dbms_transaction.begin_discrete_transaction; - -- - DELETE FROM sessions - WHERE client_id = l_client_id; - -- - COMMIT; - -- - END IF; - -- - END IF; - -- - -- Output HTML to indicate success or failure - -- - htp.htmlopen; - -- - IF l_success THEN - -- - -- Audit the logon action, if enabled - -- - IF cout_system_configuration.get_configuration_item('AUDIT_LOGON') = 'Y' THEN - -- - -- Populate the global variables for use with other packages - -- - caco_security.g_client_id := l_client_id; - -- - amfr_journal.log_transaction('LOGON' - ,caco_utilities.get_system_name - ,amfr_journal.g_name_value_tab - ,amfr_journal.g_name_value_tab); - -- - END IF; - -- - -- Close the login box and navigate back to the application - -- - IF v_message IS NOT NULL THEN - -- - caco_system.content_type; - htp.linkrel('stylesheet' - ,'caco_system.css'); - -- - -- Display the standard menu - -- - htp.print(caco_system.menu); - - htp.bodyopen; - htp.header(2 - ,wsgl.msggettext(606 - ,wsglm.sec606_logon_success)); - -- - htp.header(4 - ,v_message); - htp.tabledata(htf.formsubmit(cname => 'p_button' - ,cvalue => caco_utilities.get_module_text(992) - ,cattributes => 'onclick="location.href = ''caco_security.change_password'';"') || - ' ' || - htf.formsubmit(cname => 'p_button' - ,cvalue => caco_utilities.get_module_text(993) - ,cattributes => 'onclick="location.href = ''home'';"')); - -- - ELSE - -- - htp.bodyopen; - -- - IF h_href IS NULL - OR UPPER(h_href) LIKE '%/HOME?%' THEN - -- - htp.script(''); - -- - ELSE - -- - htp.script(''); - -- - END IF; - -- - END IF; - -- - ELSE - -- - -- Display failure message - -- - caco_system.content_type; - htp.linkrel('stylesheet' - ,'caco_system.eon_css'); - -- - -- Display the standard menu - -- - htp.p(' - '); - htp.p(''); - htp.p('E.ON Földgáz Trade Zrt - Login - - '); - htp.p(' '); - htp.p('
- -
    -
-
'); - - htp.p(' -
- - - -
    -
-
-
    - -
- -
    -
- -
'); - -- - htp.bodyopen(cattributes => 'onLoad="return Logon_OnLoad()"'); - htp.br; - htp.header(2 - ,v_message); - htp.br; - -- - show_logon_form(TRUE, h_href); - -- - htp.p('
-
-
-
-

© E.ON Földgáz Trade Zrt. 2007

- -
-
- - '); - -- - END IF; - -- - htp.bodyclose; - htp.htmlclose; - -- - ELSIF p_login_button = 'Register' THEN - -- - -- Show the user registration page - -- - online_user_registration; - -- - END IF; - -- - END process_logon; - -- - -- Process_Logon: Overloaded version for client certificate - -- - PROCEDURE process_certificate_logon IS - -- - l_client_id VARCHAR2(240); - l_success BOOLEAN := FALSE; - l_current_ip VARCHAR2(30); - -- - l_client_certificate VARCHAR2(4000) := SUBSTR(owa_util.get_cgi_env('SSL_CLIENT_CERT'),1,4000); - l_client_cert_serial VARCHAR2(4000) := SUBSTR(owa_util.get_cgi_env('SSL_CLIENT_M_SERIAL'),1,4000); - l_client_cert_start VARCHAR2(4000) := SUBSTR(owa_util.get_cgi_env('SSL_CLIENT_V_START'),1,4000); - l_client_cert_end VARCHAR2(4000) := SUBSTR(owa_util.get_cgi_env('SSL_CLIENT_V_END'),1,4000); - l_client_cert_verify VARCHAR2(4000) := SUBSTR(owa_util.get_cgi_env('SSL_CLIENT_VERIFY'),1,4000); - -- - BEGIN - -- - IF l_client_certificate IS NOT NULL - AND l_client_cert_serial IS NOT NULL THEN - -- - -- Client certificate has been presented, let's check it - -- - IF l_client_cert_verify = 'SUCCESS' THEN - -- - -- Certificate is valid, check the date range - -- - IF SYSDATE BETWEEN TO_DATE(SUBSTR(l_client_cert_start,1,20),'Mon DD HH24:MI:SS YYYY') AND TO_DATE(SUBSTR(l_client_cert_end,1,20),'Mon DD HH24:MI:SS YYYY') THEN - -- - -- Change the serial number into a recognised format - -- - l_client_cert_serial := SUBSTR(l_client_cert_serial,3,2)||':'||SUBSTR(l_client_cert_serial,5,2)||':'||SUBSTR(l_client_cert_serial,7,2)||':'||SUBSTR(l_client_cert_serial,9,2)||':'||SUBSTR(l_client_cert_serial,11,2)||':'||SUBSTR(l_client_cert_serial,13,2); - -- - -- Check to see if this certificate is linked to an active user - -- - FOR rec IN (SELECT su.syus_id - ,su.db_username - ,su.inte_id - ,su.cust_id - FROM system_users su - WHERE su.certificate_serial = l_client_cert_serial - AND SYSDATE BETWEEN period_start AND NVL(period_end, SYSDATE) - AND user_locked = 'N' - ) LOOP - -- - l_client_id := wsgl.getclientid; - -- - IF l_client_id IS NOT NULL - AND check_session(l_client_id) THEN - -- - -- Update the session table for this client with - -- the new user - -- - dbms_transaction.begin_discrete_transaction; - -- - UPDATE sessions - SET user_name = rec.db_username - WHERE client_id = l_client_id; - -- - COMMIT; - -- - l_success := TRUE; - -- - ELSE - -- - -- Current client ID is not valid so create a new one - -- - l_client_id := generate_client_id; - -- - -- Write to browser as a cookie - -- - storeclientid(l_client_id); - -- - -- Get current IP address - -- - l_current_ip := NVL(owa_util.get_cgi_env('REMOTE_ADDR'), '127.0.0.1'); - -- - -- Create new session in session table - -- - dbms_transaction.begin_discrete_transaction; - -- - INSERT INTO sessions - (client_id - ,user_name - ,syus_id - ,cust_id - ,inte_id - ,ip_address - ,expires) - VALUES - (l_client_id - ,rec.db_username - ,rec.syus_id - ,rec.cust_id - ,rec.inte_id - ,l_current_ip - ,SYSDATE + (c_session_duration_hours / 24)); - -- - COMMIT; - -- - l_success := TRUE; - get_session_data(l_client_id); - -- - END IF; - -- - END LOOP; - -- - ELSE - -- - -- Current date falls outside valid range, should never happen as AS should catch this - -- - htp.p('Client certificate is not valid at this time. Date from '||l_client_cert_start||' to '||l_client_cert_end); - -- - END IF; - -- - ELSE - -- - -- Client certificate isn't valid - should put out a message, just print out for the moment - -- - htp.p('Client certificate is not valid, status is: '||l_client_cert_verify); - -- - END IF; - -- - -- Journal this request - -- - amfr_journal.log_transaction( 'INSERT' - , 'Certificate Login' - , name_value_tab( - name_value_rec('Serial Number', l_client_cert_serial ) - ) - , amfr_journal.g_name_value_tab - ); - -- - END IF; - -- - END process_certificate_logon; - -- - -- Show_No_Access: Displays message to inform user that they do not - -- have access to the application. Provides a link - -- to the logon form. - -- - PROCEDURE show_no_access IS - BEGIN - htp.htmlopen; - -- - caco_system.content_type; - htp.linkrel('stylesheet' - ,'caco_system.css?p_type=logon'); - -- - htp.headopen; - htp.title('Access Denied'); - htp.headclose; - htp.bodyopen; - htp.script(' -function show_logon() { - frmLogon = open("caco_security.show_logon_form","winLogon","scrollbars=no,resizable=yes,width=400,height=300"); - if (frmLogon.opener == null) { - frmLogon.opener = self; - }; -};'); - htp.header(2 - ,wsgl.msggettext(609 - ,wsglm.sec609_access_denied)); - htp.header(4 - ,wsgl.msggettext(610 - ,wsglm.sec610_no_permission)); - htp.hr; - htp.p(''); - htp.p(''); - htp.bodyclose; - htp.htmlclose; - END; - -- - -- - -- Call_Logon_Form: Outputs javascript to popup logon form in new window, - -- or include logon form in current window if javascript - -- is not available. - -- - PROCEDURE call_logon_form IS - BEGIN - -- - IF saco_licensing.check_license - AND saco_licensing.check_users THEN - -- - htp.htmlopen; - -- - caco_system.content_type; - htp.linkrel('stylesheet' - ,'caco_system.css?p_type=general'); - -- - htp.bodyopen; - -- - htp.script(' -'); - htp.p(''); - -- - htp.bodyclose; - htp.htmlclose; - -- - END IF; - -- - END; - -- - -- - -- Add_Package_Resp: Adds a respondibility to a package, allowing users - -- with that responsibility to access the application. - -- This is called from the generated application - -- installation script if a value is supplied for - -- preference SECRES. - -- - PROCEDURE add_package_resp(p_package_name IN VARCHAR2 - ,p_responsibility IN VARCHAR2) IS - l_rows INTEGER := 0; - l_syop_id NUMBER; - l_sypr_id NUMBER; - v_exists BOOLEAN; - v_module_to_add system_options.module_name%TYPE; - v_syop_id system_options.syop_id%TYPE; - v_sypr_id system_profiles.sypr_id%TYPE; - - FUNCTION get_syop_id(p_module_name IN system_options.module_name%TYPE) - RETURN system_options.syop_id%TYPE IS - v_syop_id system_options.syop_id%TYPE; - BEGIN - v_syop_id := NULL; - FOR v_syop_rec IN (SELECT syop_id - FROM system_options syop - WHERE lower(syop.module_name) = - lower(p_module_name)) LOOP - v_syop_id := v_syop_rec.syop_id; - END LOOP; - IF v_syop_id IS NULL THEN - -- - -- this module does not currently exist - -- - INSERT INTO system_options - (option_type - ,description - ,NAME - ,module_name) - VALUES - ('S' - ,'Generated ' || to_char(SYSDATE - ,'dd-mon-yy hh24:mi:ss') - ,substr(lower(p_module_name) - ,1 - ,40) - ,substr(p_module_name - ,1 - ,255)) - RETURNING syop_id INTO v_syop_id; - END IF; - - RETURN v_syop_id; - END get_syop_id; - - FUNCTION get_sypr_id(p_name IN system_profiles.NAME%TYPE) - RETURN system_profiles.sypr_id%TYPE IS - v_sypr_id system_profiles.sypr_id%TYPE; - BEGIN - v_sypr_id := NULL; - FOR v_sypr_rec IN (SELECT sypr_id - FROM system_profiles sypr - WHERE upper(sypr.NAME) = upper(p_name)) LOOP - v_sypr_id := v_sypr_rec.sypr_id; - END LOOP; - - IF v_sypr_id IS NULL THEN - -- - -- this role does not currently exist - -- - INSERT INTO system_profiles - (NAME - ,description - ,role_name) - VALUES - (p_name - ,'Generated ' || to_char(SYSDATE - ,'dd-mon-yy hh24:mi:ss') || ' ' || - p_name - ,p_name) - RETURNING sypr_id INTO v_sypr_id; - END IF; - RETURN v_sypr_id; - END get_sypr_id; - - BEGIN - -- - -- get the role and the option ids - -- - v_sypr_id := get_sypr_id(p_responsibility); - -- - IF instr(p_package_name - ,'$') > 0 THEN - -- - v_module_to_add := lower(substr(p_package_name - ,1 - ,instr(p_package_name - ,'$'))) || '.startup'; - -- - ELSE - -- - v_module_to_add := p_package_name; - -- - END IF; - -- - v_syop_id := get_syop_id(v_module_to_add); - v_exists := FALSE; - -- - FOR v_package_installed IN (SELECT 1 - FROM profile_options - WHERE sypr_id = v_sypr_id - AND syop_id = v_syop_id) LOOP - v_exists := TRUE; - END LOOP; - - IF NOT v_exists THEN - INSERT INTO profile_options - (sypr_id - ,syop_id) - VALUES - (v_sypr_id - ,v_syop_id); - END IF; - END add_package_resp; - -- - PROCEDURE logout AS - l_client_id VARCHAR2(240); - l_script_name VARCHAR2(80) := owa_util.get_cgi_env('SCRIPT_NAME'); - BEGIN - -- Send a redirect to a public home page - htp.p('Location: ' || caco_system.home_path); - -- Send a cookie to indicate that that you want to logout - owa_cookie.send(NAME => 'WDB_GATEWAY_LOGOUT' - ,VALUE => 'YES' - ,path => '/'); - IF substr(l_script_name - ,-1 - ,1) = '/' THEN - l_script_name := substr(l_script_name - ,1 - ,length(l_script_name) - 1); - END IF; - - -- send a cookie to set the clientid to null - owa_cookie.send(NAME => wsgl.wsg_clientid_cookie - ,VALUE => NULL - ,path => l_script_name); - -- - -- Close the http header - -- - htp.p; - -- - -- Get current client ID - -- - l_client_id := wsgl.getclientid; - IF l_client_id IS NOT NULL THEN - -- - -- Delete session for this client - -- - dbms_transaction.begin_discrete_transaction; - -- - IF cout_system_configuration.get_configuration_item('AUDIT_LOGOFF') = 'Y' THEN - -- - -- Populate the global variables for use with other packages - -- - amfr_journal.log_transaction('LOGOFF' - ,caco_utilities.get_system_name - ,amfr_journal.g_name_value_tab - ,amfr_journal.g_name_value_tab); - -- - END IF; - -- - DELETE FROM sessions - WHERE client_id = l_client_id; - COMMIT; - END IF; - - END; - - -- - -- Logoff: Removes the current user's session, logging them off. Outputs - -- HTML message when complete. - -- - PROCEDURE logoff IS - l_client_id VARCHAR2(240); - BEGIN - htp.htmlopen; - -- - caco_system.content_type; - htp.linkrel('stylesheet' - ,'caco_system.css?p_type=logon'); - -- - htp.headopen; - htp.title(wsgl.msggettext(611 - ,wsglm.sec611_logging_off)); - htp.headclose; - htp.bodyopen; - -- - -- Get current client ID - -- - l_client_id := wsgl.getclientid; - IF l_client_id IS NOT NULL THEN - -- - -- Delete session for this client - -- - dbms_transaction.begin_discrete_transaction; - -- - IF cout_system_configuration.get_configuration_item('AUDIT_LOGOFF') = 'Y' THEN - -- - -- Populate the global variables for use with other packages - -- - amfr_journal.log_transaction('LOGOFF' - ,caco_utilities.get_system_name - ,amfr_journal.g_name_value_tab - ,amfr_journal.g_name_value_tab); - -- - END IF; - -- - DELETE FROM sessions - WHERE client_id = l_client_id; - -- - COMMIT; - -- - END IF; - htp.header(2 - ,wsgl.msggettext(612 - ,wsglm.sec612_logged_off)); - htp.bodyclose; - htp.htmlclose; - END; - -- - --- - -- S E T C U R R E N T I N T E C U S T - --- - PROCEDURE set_current_inte_cust(p_inte_id IN intermediaries.inte_id%TYPE - ,p_cust_id IN customers.cust_id%TYPE) IS - -- - CURSOR cur_cust_inte(p_syus_id IN system_users.syus_id%TYPE, p_inte_id IN intermediaries.inte_id%TYPE, p_cust_id IN customers.cust_id%TYPE) IS - SELECT NULL - FROM intermediary_users inus - ,customer_intermediaries cuin - WHERE cuin.inte_id = inus.inte_id - AND cuin.cust_id = p_cust_id - AND cuin.inte_id = p_inte_id - AND inus.syus_id = p_syus_id; - -- - v_dummy VARCHAR2(10); - -- - BEGIN - -- - caco_utilities.get_user_data; - -- - FOR v_cust_inte IN (SELECT NULL - FROM intermediary_users inus - ,customer_intermediaries cuin - WHERE cuin.inte_id = inus.inte_id - AND cuin.cust_id = p_cust_id - AND cuin.inte_id = p_inte_id - AND inus.syus_id = - caco_security.g_current_syus_id) LOOP - -- - UPDATE sessions sess - SET sess.cust_id = p_cust_id - ,sess.inte_id = nvl(p_inte_id - ,sess.inte_id) - WHERE sess.client_id = caco_security.g_client_id; - -- - caco_utilities.get_user_data(TRUE); - -- - END LOOP; - -- - END set_current_inte_cust; - --- - -- C H A N G E C U S T I N T E - --- - PROCEDURE change_cust_inte(p_inte_id IN intermediaries.inte_id%TYPE DEFAULT NULL - ,p_cust_id IN customers.cust_id%TYPE DEFAULT NULL - ,p_savebtn IN VARCHAR2 DEFAULT NULL - ,p_cancbtn IN VARCHAR2 DEFAULT NULL - ,p_message IN VARCHAR2 DEFAULT NULL) IS - -- - CURSOR cur_inte IS - SELECT inte.inte_id - ,inte.NAME - FROM intermediaries inte - ,intermediary_users inus - WHERE inte.inte_id = inus.inte_id - AND inus.syus_id = caco_utilities.get_syus_id - ORDER BY inte.NAME; - -- - CURSOR cur_cust(p_inte_id IN intermediaries.inte_id%TYPE DEFAULT NULL) IS - SELECT cust.cust_id - ,cust.NAME - FROM customers cust - ,customer_intermediaries cuin - ,intermediary_users inus - WHERE cuin.inte_id = inus.inte_id - AND cust.cust_id = cuin.cust_id - AND inus.syus_id = caco_utilities.get_syus_id - AND (cuin.inte_id = p_inte_id OR p_inte_id IS NULL) - GROUP BY cust.cust_id - ,cust.NAME - ORDER BY cust.NAME; - -- - v_array_string VARCHAR2(2000); - v_first_inte_id NUMBER; - v_first BOOLEAN; - -- - BEGIN - -- - IF NOT caco_security.security_check('caco_security.change_cust_inte') THEN - -- - RETURN; - -- - END IF; - -- - IF p_savebtn IS NULL - AND p_cancbtn IS NULL THEN - -- - -- Draw screen - -- - htp.htmlopen; - caco_System.content_type; - htp.linkrel('stylesheet' - ,'caco_system.css?p_type=general'); - -- - htp.bodyopen; - htp.p(caco_system.menu); - htp.p(caco_system.statusbar); - htp.bodyclose; - -- - htp.p(''); - -- - htp.title(caco_utilities.get_module_text(3540)); - -- - htp.header(1 - ,caco_utilities.get_module_text(3540)); - -- - htp.bodyopen; - -- - IF p_message IS NOT NULL THEN - -- - htp.p(htf.italic(p_message)); - -- - END IF; - -- - htp.formopen(curl => 'caco_security.change_cust_inte' - ,cmethod => 'POST' - ,cattributes => 'NAME="custinte"'); - -- - htp.tableopen(cborder => '0'); - -- - htp.tablerowopen; - -- - htp.tabledata(calign => 'LEFT' - ,cattributes => 'WIDTH="25%"' - ,cvalue => htf.bold(caco_utilities.get_module_text(3541)||': ')); - -- - htp.p(''); - -- - htp.formselectopen(cname => 'p_inte_id' - ,cattributes => 'onChange="populateCustomer(document.custinte,document.custinte.p_inte_id.options[document.custinte.p_inte_id.selectedIndex].value)"'); - -- - v_first := TRUE; - -- - FOR cur_inte_rec IN cur_inte LOOP - -- - htp.formselectoption(cur_inte_rec.NAME - ,NULL - ,cattributes => 'VALUE="' || - to_char(cur_inte_rec.inte_id) || '"'); - -- - IF v_first THEN - -- - -- Get the first inte put into the poplist in order to sync the customers - -- - v_first_inte_id := cur_inte_rec.inte_id; - v_first := FALSE; - -- - END IF; - -- - END LOOP; - -- - htp.formselectclose; - htp.p(''); - htp.tabledata(calign => 'LEFT' - ,cattributes => 'WIDTH="25%"' - ,cvalue => htf.bold(caco_utilities.get_module_text(3542)||': ')); - htp.tabledata(calign => 'LEFT' - ,cattributes => 'WIDTH="25%"' - ,cvalue => caco_utilities.get_inte_name); - htp.tablerowclose; - -- - htp.tablerowopen; - -- - htp.tabledata(cvalue => htf.bold(caco_utilities.get_module_text(3543)||': ')); - -- - htp.p(''); - -- - htp.formselectopen(cname => 'p_cust_id'); - -- - FOR cur_cust_rec IN cur_cust(v_first_inte_id) LOOP - -- - htp.formselectoption(cur_cust_rec.NAME - ,NULL - ,cattributes => 'VALUE="' || - to_char(cur_cust_rec.cust_id) || '"'); - -- - END LOOP; - -- - htp.formselectclose; - htp.p(''); - htp.tabledata(calign => 'LEFT' - ,cattributes => 'WIDTH="25%"' - ,cvalue => htf.bold(caco_utilities.get_module_text(3541)||': ')); - htp.tabledata(calign => 'LEFT' - ,cattributes => 'WIDTH="25%"' - ,cvalue => caco_utilities.get_cust_name); - htp.tablerowclose; - -- - htp.tableclose; - htp.br; - -- - htp.formsubmit('p_savebtn' - ,caco_utilities.get_module_text(837)); - htp.formsubmit('p_cancbtn' - ,caco_utilities.get_module_text(993)); - -- - htp.formclose; - htp.bodyclose; - htp.htmlclose; - -- - ELSIF p_cancbtn IS NOT NULL THEN - -- - change_cust_inte(p_message => caco_utilities.get_module_text(3545)); - -- - ELSIF p_savebtn IS NOT NULL THEN - -- - -- Update current customer and intermediary - -- - set_current_inte_cust(p_inte_id - ,p_cust_id); - -- - change_cust_inte(p_message => caco_utilities.get_module_text(3546)); - -- - END IF; - -- - END change_cust_inte; - -- - PROCEDURE check_password_policies ( p_password IN VARCHAR2 - , p_message IN OUT VARCHAR2 - , p_success IN OUT BOOLEAN - ) IS - -- - c_password_length CONSTANT NUMBER := NVL(cout_system_configuration.get_configuration_item('G_PASSWORD_LENGTH'),1); - c_numeric_chars CONSTANT NUMBER := NVL(cout_system_configuration.get_configuration_item('G_PASSWORD_NUM_CHRS'),0); - c_uppercase_chars CONSTANT NUMBER := NVL(cout_system_configuration.get_configuration_item('G_PASSWORD_UPP_CHRS'),0); - c_lowercase_chars CONSTANT NUMBER := NVL(cout_system_configuration.get_configuration_item('G_PASSWORD_LOW_CHRS'),0); - c_punct_chars CONSTANT NUMBER := NVL(cout_system_configuration.get_configuration_item('G_PASSWORD_SPC_CHRS'),0); - -- - c_digitarray CONSTANT VARCHAR2(20) := '0123456789'; - c_punctarray CONSTANT VARCHAR2(25) := '!"#$%&()``*+,-/:;<=>?_'; - c_upperarray CONSTANT VARCHAR2(26) := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'; - c_lowerarray CONSTANT VARCHAR2(26) := 'abcdefghijklmnopqrstuvwxyz'; - -- - v_password_length NUMBER; - v_numeric_chars NUMBER; - v_uppercase_chars NUMBER; - v_lowercase_chars NUMBER; - v_punct_chars NUMBER; - -- - v_dummy VARCHAR2(50); - v_type VARCHAR2(50); - v_sub_list caco_utilities.g_t_substitution_list; - -- - BEGIN - -- - -- Get password length - -- - v_password_length := LENGTH(p_password); - -- - -- Check for numerics - -- - v_dummy := p_password; - -- - FOR i IN 1..LENGTH(c_digitarray) LOOP - -- - v_dummy := REPLACE(v_dummy, SUBSTR(c_digitarray,i,1),''); - -- - END LOOP; - -- - v_numeric_chars := v_password_length - LENGTH(v_dummy); - -- - -- Check for uppercase characters - -- - v_dummy := p_password; - -- - FOR i IN 1..LENGTH(c_upperarray) LOOP - -- - v_dummy := REPLACE(v_dummy, SUBSTR(c_upperarray,i,1),''); - -- - END LOOP; - -- - v_uppercase_chars := v_password_length - LENGTH(v_dummy); - -- - -- Check for lowercase characters - -- - v_dummy := p_password; - -- - FOR i IN 1..LENGTH(c_lowerarray) LOOP - -- - v_dummy := REPLACE(v_dummy, SUBSTR(c_lowerarray,i,1),''); - -- - END LOOP; - -- - v_lowercase_chars := v_password_length - LENGTH(v_dummy); - -- - -- Check for special characters - -- - v_dummy := p_password; - -- - FOR i IN 1..LENGTH(c_punctarray) LOOP - -- - v_dummy := REPLACE(v_dummy, SUBSTR(c_punctarray,i,1),''); - -- - END LOOP; - -- - v_punct_chars := v_password_length - LENGTH(v_dummy); - -- - -- Gathered all the info, now check and report - -- - IF v_password_length < c_password_length THEN - -- - v_sub_list(1) := c_password_length; - -- - caco_utilities.get_exception_message ( p_exception_number => -20528 - , p_message => p_message - , p_exme_type => v_type - , p_substitution_list => v_sub_list - ); - -- - p_success := FALSE; - -- - ELSIF v_numeric_chars < c_numeric_chars THEN - -- - v_sub_list(1) := c_numeric_chars; - -- - caco_utilities.get_exception_message ( p_exception_number => -20529 - , p_message => p_message - , p_exme_type => v_type - , p_substitution_list => v_sub_list - ); - -- - p_success := FALSE; - -- - ELSIF v_uppercase_chars < c_uppercase_chars THEN - -- - v_sub_list(1) := c_uppercase_chars; - -- - caco_utilities.get_exception_message ( p_exception_number => -20530 - , p_message => p_message - , p_exme_type => v_type - , p_substitution_list => v_sub_list - ); - -- - p_success := FALSE; - -- - ELSIF v_lowercase_chars < c_lowercase_chars THEN - -- - v_sub_list(1) := c_lowercase_chars; - -- - caco_utilities.get_exception_message ( p_exception_number => -20531 - , p_message => p_message - , p_exme_type => v_type - , p_substitution_list => v_sub_list - ); - -- - p_success := FALSE; - -- - ELSIF v_punct_chars < c_punct_chars THEN - -- - v_sub_list(1) := c_punctarray; - v_sub_list(2) := c_punct_chars; - -- - caco_utilities.get_exception_message ( p_exception_number => -20532 - , p_message => p_message - , p_exme_type => v_type - , p_substitution_list => v_sub_list - ); - -- - p_success := FALSE; - -- - END IF; - -- - v_dummy := NULL; - -- - END check_password_policies; - -- - PROCEDURE change_password(p_call_type IN VARCHAR2 DEFAULT NULL - ,p_old_password IN VARCHAR2 DEFAULT NULL - ,p_password IN VARCHAR2 DEFAULT NULL - ,p_confirm IN VARCHAR2 DEFAULT NULL - ,p_button IN VARCHAR2 DEFAULT NULL - ,p_embedded IN BOOLEAN DEFAULT FALSE) IS - -- - CURSOR cur_syop(p_syus_id IN system_users.syus_id%TYPE) IS - SELECT syus.password - FROM system_users syus - WHERE syus.syus_id = p_syus_id; - -- - v_message module_text.text%TYPE; - v_proceed BOOLEAN := TRUE; - v_password system_users.password%TYPE; - -- - BEGIN - -- - -- Standard HTML header. - -- - IF NOT caco_security.security_check('caco_security.change_password') THEN - -- - RETURN; - -- - END IF; - -- - IF NOT p_embedded THEN - -- - htp.htmlopen; - caco_system.content_type; - htp.linkrel('stylesheet' - ,'caco_system.css?p_type=content'); - -- - htp.headopen; - htp.p(caco_system.menu); - htp.p(caco_system.statusbar); - htp.headclose; - -- - htp.bodyopen; - -- - htp.title(caco_utilities.get_module_text(986)); - htp.header(1 - ,caco_utilities.get_module_text(987) || ' ' || - caco_utilities.get_syus_name); - -- - END IF; - -- - IF p_call_type IS NULL THEN - -- - htp.p(''); - -- - htp.para; - htp.p(caco_utilities.get_module_text(988)); - -- - htp.formopen(curl => 'caco_security.change_password' - ,ctarget => '' - ,cattributes => 'NAME="Passwordform"'); - -- - htp.formhidden(cname => 'p_call_type' - ,cvalue => 'C'); - -- - htp.tableopen; - -- - htp.tablerowopen; - htp.tabledata(htf.bold(caco_utilities.get_module_text(345))); - htp.tabledata(htf.bold(caco_utilities.get_syus_name)); - htp.tablerowclose; - -- - htp.tablerowopen; - htp.tabledata(htf.bold(caco_utilities.get_module_text(989))); - htp.tabledata(htf.formpassword(cname => 'p_old_password')); - htp.tablerowclose; - -- - htp.tablerowopen; - htp.tabledata(htf.bold(caco_utilities.get_module_text(990))); - htp.tabledata(htf.formpassword(cname => 'p_password')); - htp.tablerowclose; - -- - htp.tablerowopen; - htp.tabledata(htf.bold(caco_utilities.get_module_text(991))); - htp.tabledata(htf.formpassword(cname => 'p_confirm')); - htp.tablerowclose; - -- - htp.tablerowopen; - htp.tabledata(htf.br); - htp.tabledata(htf.br); - htp.tablerowclose; - -- - htp.tablerowopen; - htp.tabledata(htf.formsubmit(cname => 'p_button' - ,cvalue => caco_utilities.get_module_text(992)) || - ' ' || - htf.formsubmit(cname => 'p_button' - ,cvalue => caco_utilities.get_module_text(993))); - htp.tablerowclose; - -- - htp.tablerowopen; - htp.tabledata('''*'''||caco_utilities.get_module_text(2202)); - htp.tablerowclose; - -- - htp.formclose; - -- - ELSE - -- - -- Not the main screen, therefore validate and process passed data - -- - IF p_button = caco_utilities.get_module_text(992) THEN - -- - -- OK, validate and process password entry - -- - IF p_old_password IS NULL - OR p_password IS NULL - OR p_confirm IS NULL THEN - -- - -- Not all mandatory fields have been entered - -- - v_message := caco_utilities.get_module_text(994); - v_proceed := FALSE; - -- - END IF; - -- - -- Check old password against stored password - -- - OPEN cur_syop(caco_utilities.get_syus_id); - FETCH cur_syop - INTO v_password; - CLOSE cur_syop; - -- - IF v_password <> - scramble(caco_utilities.get_syus_name || '/' || p_old_password) THEN - -- - v_message := caco_utilities.get_module_text(995); - v_proceed := FALSE; - -- - END IF; - -- - -- Check p_password is the same as p_confirm - -- - IF p_password <> p_confirm THEN - -- - v_message := caco_utilities.get_module_text(996); - v_proceed := FALSE; - -- - END IF; - -- - -- Check that p_old_password <> p_password - -- - /*IF scramble(caco_utilities.get_syus_name || '/' || p_password) = - p_old_password THEN*/ - IF p_password = p_old_password THEN - -- - v_message := caco_utilities.get_module_text(997); - v_proceed := FALSE; - -- - END IF; - -- - -- Additional password policies - -- - check_password_policies ( p_password => p_password - , p_message => v_message - , p_success => v_proceed - ); - -- - IF v_proceed THEN - -- - -- Update the system user with the new password - -- also set the expiry date to 30 days from today - -- and reset the grace logins to 3 - -- - v_password := scramble(caco_utilities.get_syus_name || '/' || - p_password); - -- - UPDATE system_users syus - SET syus.password = v_password - ,syus.password_expires = trunc(SYSDATE) + C_password_expiry_period - ,syus.grace_logins = 3 - WHERE syus.syus_id = caco_utilities.get_syus_id; - -- - --amfrw050$syus.update_user_details(caco_utilities.get_syus_name, p_password, 'UPDATE'); - -- - htp.header(4 - ,caco_utilities.get_module_text(998) || ' ' || - to_char(trunc(SYSDATE) + 30 - ,'DD-MON-YYYY')); - -- - ELSE - -- - -- Something is wrong, display the stored error message and redisplay the change password page - -- - htp.header(4 - ,v_message); - htp.hr; - -- - caco_security.change_password(p_embedded => TRUE); - -- - END IF; - -- - ELSIF p_button = caco_utilities.get_module_text(993) THEN - -- - -- Cancel, show cancelation screen - -- - htp.header(4 - ,caco_utilities.get_module_text(999)); - -- - END IF; - -- - END IF; - -- - IF NOT p_embedded THEN - -- - htp.bodyclose; - htp.htmlclose; - -- - END IF; - -- - END change_password; - -- - -- Remove expired sessions - -- - PROCEDURE remove_expired_sessions IS - -- - PRAGMA AUTONOMOUS_TRANSACTION; - -- - BEGIN - -- - DELETE FROM sessions sess - WHERE sess.expires < SYSDATE; - -- - COMMIT; - -- - END remove_expired_sessions; - --- - -- PROCESS INTERFACE LOGON - --- - PROCEDURE process_interface_logon ( p_username IN VARCHAR2 - , p_password IN VARCHAR2 - , p_success OUT BOOLEAN - , p_message OUT VARCHAR2 ) IS - -- - l_client_id VARCHAR2(240); - -- - CURSOR cur_syus ( p_username IN system_users.db_username%TYPE - , p_password IN system_users.password%TYPE - ) IS - SELECT syus.syus_id - ,syus.cust_id - ,syus.inte_id - ,syus.password_expires - ,syus.grace_logins - ,nvl(syus.user_locked - ,'N') user_locked - ,syus.period_start - ,syus.period_end - FROM system_users syus - WHERE syus.db_username = p_username - AND syus.password = p_password; - -- - r_syus_rec cur_syus%ROWTYPE; - -- - BEGIN - -- - -- Initialise boolean with a pessimistic viewpoint - -- - p_success := FALSE; - -- - -- Retrieve details from system users for the passed username and password - -- - OPEN cur_syus(p_username - ,scramble(p_username || '/' || p_password)); - FETCH cur_syus - INTO r_syus_rec; - CLOSE cur_syus; - -- - -- Get current client ID - -- - --l_client_id := wsgl.getclientid; //AG removed - -- - -- If username/password valid - -- - IF r_syus_rec.syus_id IS NOT NULL - AND r_syus_rec.user_locked <> 'Y' - AND saco_licensing.check_users - AND saco_licensing.check_license - AND SYSDATE >= r_syus_rec.period_start -- user validity period - AND SYSDATE < (TRUNC(NVL(r_syus_rec.period_end,SYSDATE)) + 1 - (1/86400)) THEN -- HH24:MI:SS = 23:59:59 - -- - -- Check that current client ID is valid - -- - IF l_client_id IS NOT NULL - AND check_session(l_client_id) THEN - -- - -- Update the session table for this client with - -- the new user - -- --- dbms_transaction.begin_discrete_transaction; - -- - UPDATE sessions s - SET s.user_name = p_username - ,s.syus_id = r_syus_rec.syus_id - ,s.cust_id = r_syus_rec.cust_id - ,s.inte_id = r_syus_rec.inte_id - WHERE client_id = l_client_id; - -- --- COMMIT; - -- - -- - ELSE - -- - -- Current client ID is not valid so create a new one - -- - l_client_id := generate_client_id; - -- - -- Write to browser as a cookie - -- - --storeclientid(l_client_id); //AG removed - -- - -- Create new session in session table - -- --- dbms_transaction.begin_discrete_transaction; - -- - INSERT INTO sessions - (client_id - ,user_name - ,syus_id - ,cust_id - ,inte_id - ,ip_address - ,expires) - VALUES - (l_client_id - ,p_username - ,r_syus_rec.syus_id - ,r_syus_rec.cust_id - ,r_syus_rec.inte_id - ,NVL(owa_util.get_cgi_env('REMOTE_ADDR'),'127.0.0.1') - ,SYSDATE + (c_session_duration_hours / 24)); - -- - g_current_syus_id := r_syus_rec.syus_id; - -- --- COMMIT; - -- - END IF; - -- - -- If I'm here, I'm successful - -- - p_success := TRUE; - -- - -- - -- User can connect, but check to see if account is nearing expiry - -- - IF r_syus_rec.password_expires IS NOT NULL THEN - -- - IF r_syus_rec.password_expires <= SYSDATE THEN - -- - IF r_syus_rec.grace_logins = 0 THEN - -- - r_syus_rec.user_locked := 'Y'; - -- - UPDATE system_users syus - SET syus.user_locked = r_syus_rec.user_locked - WHERE syus.syus_id = r_syus_rec.syus_id; - -- - p_success := FALSE; - p_message := caco_utilities.get_module_text(1000); - -- - ELSIF r_syus_rec.grace_logins = 1 THEN - -- - -- password has expired with no grace logins remaining - -- - UPDATE system_users syus - SET syus.grace_logins = 0 - WHERE syus.syus_id = r_syus_rec.syus_id; - -- - ELSE - -- - -- Password expired, update grace logins - -- - UPDATE system_users syus - SET syus.grace_logins = NVL(grace_logins - ,3) - 1 - WHERE syus.syus_id = r_syus_rec.syus_id; - -- - END IF; - -- - END IF; - -- - END IF; - -- - ELSE - -- - -- Invalid username / password - -- - IF r_syus_rec.syus_id IS NULL THEN - -- - p_message := wsgl.msggettext(608 - ,wsglm.sec608_invalid_logon); - -- - ELSIF r_syus_rec.user_locked = 'Y' THEN - -- - p_message := caco_utilities.get_module_text(1000); - -- - ELSIF NOT saco_licensing.check_license THEN - -- - p_message := 'License is not valid - please contact your system administrator.'; - -- - ELSIF SYSDATE < r_syus_rec.period_start -- user validity period - OR SYSDATE > (TRUNC(NVL(r_syus_rec.period_end,SYSDATE)) + 1 - (1/86400)) -- HH24:MI:SS = 23:59:59 - THEN - -- The user has expired. Please contact your system administrator - p_message := caco_utilities.get_module_text(2518); - -- - END IF; - -- - IF l_client_id IS NOT NULL THEN - -- - -- Invalid logon so delete the session for the current client. - -- --- dbms_transaction.begin_discrete_transaction; - -- - DELETE FROM sessions - WHERE client_id = l_client_id; - -- --- COMMIT; - -- - END IF; - -- - END IF; - -- - END process_interface_logon; - -- -END caco_security; -- of package -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/caco_security.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/caco_security.spc deleted file mode 100644 index e900696..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/caco_security.spc +++ /dev/null @@ -1,170 +0,0 @@ -CREATE OR REPLACE PACKAGE caco_security IS - -- - g_header CONSTANT VARCHAR2(160) := '$Header: /Isle Of Grain/database/PLSQL/caco_security.pck 4 20/10/05 13:33 Gilberta $'; - g_revision CONSTANT VARCHAR2(160) := '$Revision: 4 $ Patch 0.2'; - -- - /* - * $History: caco_security.pck $ - * - * ******** EFT - Nominations - Patch 0.2 ******** - * Added logging of failed login - * - * ***************** Version 4 ***************** - * User: Gilberta Date: 20/10/05 Time: 13:33 - * Updated in $/Isle Of Grain/database/PLSQL - * Modified to size the username and password fields on the login screen - * for the benefit of IE6. - * - * ***************** Version 3 ***************** - * User: Gilberta Date: 18/07/05 Time: 10:22 - * Updated in $/Isle Of Grain/database/PLSQL - * Modified to fix password expiry - * - * ***************** Version 1 ***************** - * User: Gilberta Date: 7/01/05 Time: 12:54 - * Created in $/Isle Of Grain/database/PLSQL - * Initial Version - * - */ - -- - -- Globals - -- - g_current_user VARCHAR2(30); - g_current_syus_id NUMBER; - g_current_cust_id NUMBER; - g_current_inte_id NUMBER; - C_password_max_tries CONSTANT NUMBER := NVL(cout_system_configuration.get_configuration_item('G_PASSWORD_FAILED_LOGINS'),3); - - -- - g_client_id VARCHAR2(240); - -- - --------------------------------------------------------------------- - -- Security API functions - -- These functions may be called from generated WSG applications. - --------------------------------------------------------------------- - -- - -- Security_Check: Returns true if the currently logged on user is - -- allowed access to the specified package. If not, - -- will return false. This function will also provide - -- a means for the user to log on. - -- - FUNCTION security_check(p_package_name IN VARCHAR2) RETURN BOOLEAN; - -- - -- - -- Add_Package_Resp: Adds a respondibility to a package, allowing users - -- with that responsibility to access the application. - -- This is called from the generated application - -- installation script if a value is supplied for - -- preference SECRES. - -- - PROCEDURE add_package_resp(p_package_name IN VARCHAR2 - ,p_responsibility IN VARCHAR2); - -- - -------------------------------------------------------------------------- - -- Implementation specific functions - -- These functions are used only by this implementation of the - -- security package. - -------------------------------------------------------------------------- - -- - -- Get User - -- - FUNCTION get_user RETURN VARCHAR2; - -- - -- get session data - -- - PROCEDURE get_session_data(p_client_id IN VARCHAR2 DEFAULT NULL); - -- - -- - -- Show_Logon_Form: Renders logon form - -- - PROCEDURE show_logon_form(p_embedded IN BOOLEAN DEFAULT FALSE - ,h_href IN VARCHAR2 DEFAULT NULL); - -- - -- - -- Process_Logon: Accepts submitted logon form and logs user on. If logon - -- fails then notifies user. - -- - PROCEDURE process_logon(p_username IN VARCHAR2 DEFAULT NULL - ,p_password IN VARCHAR2 DEFAULT NULL - ,h_href IN VARCHAR2 DEFAULT NULL - ,p_login_button IN VARCHAR2 DEFAULT NULL - ); - -- - -- Process_Logon: Overloaded version for client certificate - -- - PROCEDURE process_certificate_logon; - -- - -- - -- Show_No_Access: Displays message to inform user that they do not - -- have access to the application. Provides a link - -- to the logon form. - -- - PROCEDURE show_no_access; - -- - -- - -- Call_Logon_Form: Output HTML to call the logon form, which - -- may be in a separate window. - -- - PROCEDURE call_logon_form; - -- - -- - -- Logoff: Removes the current user's session, logging them off. Outputs - -- HTML message when complete. - -- - PROCEDURE logoff; - -- - -- Logout: Removes the current user's session, logging them off. Redirects to the - -- home page - -- - PROCEDURE logout; - -- - --- - -- Moved from CACO_UTILITIES 26-APR-2003 - --- - PROCEDURE change_cust_inte(p_inte_id IN intermediaries.inte_id%TYPE DEFAULT NULL - ,p_cust_id IN customers.cust_id%TYPE DEFAULT NULL - ,p_savebtn IN VARCHAR2 DEFAULT NULL - ,p_cancbtn IN VARCHAR2 DEFAULT NULL - ,p_message IN VARCHAR2 DEFAULT NULL); - /** - -- Procedure to allow user to change their password. - -- Call without parameters to display the startup screen, other parameters are used internally. - -- @param p_call_type Used internally to determine which screen to display - -- @param p_old_password Existing password for the user - -- @param p_password New password for the user - -- @param p_confirm New password for the user - -- @param p_button Value returned by a button press - -- - */ - PROCEDURE change_password(p_call_type IN VARCHAR2 DEFAULT NULL - ,p_old_password IN VARCHAR2 DEFAULT NULL - ,p_password IN VARCHAR2 DEFAULT NULL - ,p_confirm IN VARCHAR2 DEFAULT NULL - ,p_button IN VARCHAR2 DEFAULT NULL - ,p_embedded IN BOOLEAN DEFAULT FALSE); - /** - -- Procedure to remove expired sessions - -- No parameters required - */ - PROCEDURE remove_expired_sessions; - /** - -- Procedure to produce the register screen - */ - PROCEDURE online_user_registration ( p_register_title IN VARCHAR2 DEFAULT NULL - , p_register_first_name IN VARCHAR2 DEFAULT NULL - , p_register_surname IN VARCHAR2 DEFAULT NULL - , p_register_company IN VARCHAR2 DEFAULT NULL - , p_register_email IN VARCHAR2 DEFAULT NULL - , p_register_phone IN VARCHAR2 DEFAULT NULL - , p_register_submit IN VARCHAR2 DEFAULT NULL - ); - /** - -- Procedure to process a logon using an interface - */ - PROCEDURE process_interface_logon ( p_username IN VARCHAR2 - , p_password IN VARCHAR2 - , p_success OUT BOOLEAN - , p_message OUT VARCHAR2 ); - -- -END caco_security; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efno_confirmations.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efno_confirmations.bdy deleted file mode 100644 index a33c733..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efno_confirmations.bdy +++ /dev/null @@ -1,4269 +0,0 @@ -CREATE OR REPLACE PACKAGE BODY efno_confirmations IS - -- - g_auto_gen BOOLEAN := FALSE; - -- -PROCEDURE output_nnpcv_tab (p_nnpcv_tab IN nnpcv_tab) IS -BEGIN -caco_debug.putline('------SP_CONF: output_nnpcv_tab 001------'); - FOR i IN 1..p_nnpcv_tab.COUNT LOOP - caco_debug.putline('nnpcv_tab '||i||' nnpcv_id = '||p_nnpcv_tab(i).nnpcv_id); - caco_debug.putline('nnpcv_tab '||i||' coca_id = '||p_nnpcv_tab(i).coca_id); - caco_debug.putline('nnpcv_tab '||i||' conp_id = '||p_nnpcv_tab(i).conp_id); - caco_debug.putline('nnpcv_tab '||i||' coru_id = '||p_nnpcv_tab(i).coru_id); - caco_debug.putline('nnpcv_tab '||i||' value = '||p_nnpcv_tab(i).value); - caco_debug.putline('nnpcv_tab '||i||' nomi_id = '||p_nnpcv_tab(i).nomi_id); - caco_debug.putline('nnpcv_tab '||i||' nomi_received = '||p_nnpcv_tab(i).nomi_received); - caco_debug.putline('nnpcv_tab '||i||' defaulted = '||p_nnpcv_tab(i).defaulted); - caco_debug.putline('nnpcv_tab '||i||' missing = '||p_nnpcv_tab(i).missing); - caco_debug.putline('nnpcv_tab '||i||' gas_day = '||p_nnpcv_tab(i).gas_day); - caco_debug.putline('nnpcv_tab '||i||' in_error = '||sys.diutil.bool_to_int(p_nnpcv_tab(i).in_error)); - END LOOP; -caco_debug.putline('------SP_CONF: output_nnpcv_tab 999------'); -END output_nnpcv_tab; --- -PROCEDURE output_nnpcv_rec (p_nnpcv_rec IN nnpcv_rec) IS -BEGIN -caco_debug.putline('------SP_CONF: output_nnpcv_rec 001------'); - caco_debug.putline('nnpcv_rec nnpcv_id = '||p_nnpcv_rec.nnpcv_id); - caco_debug.putline('nnpcv_tab coca_id = '||p_nnpcv_rec.coca_id); - caco_debug.putline('nnpcv_tab conp_id = '||p_nnpcv_rec.conp_id); - caco_debug.putline('nnpcv_tab coru_id = '||p_nnpcv_rec.coru_id); - caco_debug.putline('nnpcv_tab value = '||p_nnpcv_rec.value); - caco_debug.putline('nnpcv_tab nomi_id = '||p_nnpcv_rec.nomi_id); - caco_debug.putline('nnpcv_tab nomi_received = '||p_nnpcv_rec.nomi_received); - caco_debug.putline('nnpcv_tab defaulted = '||p_nnpcv_rec.defaulted); - caco_debug.putline('nnpcv_tab missing = '||p_nnpcv_rec.missing); - caco_debug.putline('nnpcv_tab gas_day = '||p_nnpcv_rec.gas_day); - caco_debug.putline('nnpcv_tab in_error = '||sys.diutil.bool_to_int(p_nnpcv_rec.in_error)); -caco_debug.putline('------SP_CONF: output_nnpcv_rec 999------'); -END output_nnpcv_rec; -/** --- PROCEDURE upd_conf_timestamp --- Autonomous Transaction --- Updates the confirmation timestamp with the given date --- Used by the timestamping functions when a RETRY has been required --- --- %param p_conf_id Unique Identifier of the confirmation to be updated --- %param p_timestamp Successful timestamp information --- -*/ -PROCEDURE upd_conf_timestamp( p_conf_id IN confirmations.conf_id%TYPE - , p_timestamp IN DATE - ) -IS - PRAGMA AUTONOMOUS_TRANSACTION; -BEGIN - -- - --caco_debug.debug_on('Enter upd_conf_timestamp'); - -- Check we have permission to be using this module. - IF NOT g_auto_gen THEN - -- - IF NOT caco_security.security_check('efnow095$') THEN - RETURN; - END IF; - -- - END IF; - -- - BEGIN - -- - UPDATE confirmations - SET confirmation_sent = p_timestamp - , approved = 'Y' - WHERE conf_id = p_conf_id; - -- - COMMIT; - -- - --caco_debug.debug_on('Exit upd_conf_timestamp'); - -- - EXCEPTION - WHEN others THEN - -- Need to log an error and email system support... - NULL; - END; - -- -END upd_conf_timestamp; --- --- -FUNCTION get_interrupted_value (p_conp_id IN NUMBER, - p_coca_id IN NUMBER, - p_gas_day IN DATE) - RETURN NUMBER -IS - -- - CURSOR c_int IS - SELECT icv.interrupted_value - FROM int_conp_coca_vals icv - WHERE icv.coca_id = p_coca_id - AND icv.conp_id = p_conp_id - AND icv.send_to_customer = 'Y' - AND EXISTS ( SELECT 'x' - FROM interruptions int - WHERE int.int_id = icv.int_id - AND p_gas_day >= int.gas_day_start - AND (p_gas_day <= int.gas_day_end OR int.gas_day_end IS NULL)); - -- - l_interrupted_value NUMBER := NULL; - -- -BEGIN - -- - OPEN c_int; - FETCH c_int - INTO l_interrupted_value; - IF c_int%NOTFOUND THEN - l_interrupted_value := NULL; - END IF; - CLOSE c_int; - -- - RETURN l_interrupted_value; - -- -END get_interrupted_value; --- --- -FUNCTION ins_lookback_cnpcv_vals( p_conf_id IN confirmations.conf_id%TYPE - , p_nnpcv_tab IN OUT nnpcv_tab - , p_nomi_id IN nominations.nomi_id%TYPE - , p_nomi_date IN nominations.created_on%TYPE - , p_return_error OUT VARCHAR2 - ) - RETURN BOOLEAN -IS - PRAGMA AUTONOMOUS_TRANSACTION; - -- - -- Cursor to get the value for the given previous nomination and CONP COCA pair from the nnpcv_tab - CURSOR c_nnpcv( cp_conp_id IN NUMBER - , cp_coca_id IN NUMBER ) - IS - SELECT nnpcv1.nnpcv_id nnpcv_id - , nnpcv1.value value - , nnpcv1.gas_day gas_day - , cnp2.nepo_id nepo_id - FROM nom_net_point_cat_vals nnpcv1 - ,cont_network_points cnp1 - ,cont_network_points cnp2 - ,contract_categories cc1 - ,contract_categories cc2 - WHERE nnpcv1.nomi_id = p_nomi_id - AND cc1.cate_id = cc2.cate_id - AND cc1.coca_id = cp_coca_id - AND cc2.coca_id = nnpcv1.coca_id - AND cnp1.nepo_id = cnp2.nepo_id - AND cnp1.conp_id = cp_conp_id - AND cnp2.conp_id = nnpcv1.conp_id - AND nnpcv1.gas_day = ( SELECT MAX( nnpcv2.gas_day ) - FROM nom_net_point_cat_vals nnpcv2 - WHERE nnpcv2.nomi_id = p_nomi_id ); - -- - l_nnpcv_id nom_net_point_cat_vals.nnpcv_id%TYPE; - l_value nom_net_point_cat_vals.value%TYPE; - l_int_value nom_net_point_cat_vals.value%TYPE; - l_lb_value nom_net_point_cat_vals.value%TYPE; - l_gas_day nom_net_point_cat_vals.gas_day%TYPE; - l_success BOOLEAN := TRUE; - l_nepo_id network_points.nepo_id%TYPE; - l_interrupted conf_net_point_cat_vals.interrupted%TYPE; - -- -BEGIN -caco_debug.putline('SP_CONF: ins_lookback_cnpcv_vals 001'); - -- - caco_debug.putline('Enter ins_lookback_cnpcv_vals with '||NVL(p_nnpcv_tab.COUNT,0)||' elements'); - -- - SAVEPOINT before_ins_cnpcv; - -- - -- Loop through the nnpcv tab and update CNPCV with the nom values - IF NVL(p_nnpcv_tab.COUNT,0) > 0 THEN - -- - <> - FOR i IN 1..p_nnpcv_tab.COUNT LOOP - -- check if there is an interruption active - l_int_value := get_interrupted_value( p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id - , p_nnpcv_tab(i).gas_day ); -IF l_int_value IS NOT NULL THEN - caco_debug.putline('l_int_value: '||l_int_value); -END IF; - -- - -- Get the value for the specific conp and coca for the given nomination - -- for the latest gas day in the valid nomination - -- - OPEN c_nnpcv( p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id ); - FETCH c_nnpcv INTO l_nnpcv_id, l_lb_value, l_gas_day, l_nepo_id; - IF c_nnpcv%NOTFOUND THEN - l_success := FALSE; - END IF; - CLOSE c_nnpcv; - -- Compare the lookback value and the interrupted value and go with the lowest value - IF l_int_value IS NULL THEN - l_interrupted := 'N'; - ELSE - l_interrupted := 'Y'; - END IF; - -- - l_value := l_lb_value; - -- - IF l_success THEN - -- - caco_debug.putline('Inserting values'); - -- ---output_nnpcv_rec(p_nnpcv_tab(i)); - BEGIN - INSERT INTO conf_net_point_cat_vals - ( nnpcv_id - , conf_id - , nomi_id - , value - , gas_day - , conp_id - , coca_id - , valid - , last_nomi_id - , last_nom_received - , last_gas_day - , defaulted - , interrupted ) - VALUES - ( l_nnpcv_id - , p_conf_id - , p_nomi_id - , l_value - , p_nnpcv_tab(i).gas_day - , p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id - , 'Y' - , p_nomi_id - , p_nomi_date - , l_gas_day - , 'N' - , l_interrupted ); - -- - EXCEPTION - WHEN dup_val_on_index THEN - NULL; - WHEN others THEN - ROLLBACK TO SAVEPOINT before_ins_cnpcv; - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2311); - -- Unable to force confirm invalid nomination. Please contact support - caco_debug.putline('efno_confirmations.ins_lookback_cnpcv_vals:' - ||' Failed to insert lookback confirmation value: ' - ||' CONP_ID : '||p_nnpcv_tab(i).conp_id||' and ' - ||' COCA_ID : '||p_nnpcv_tab(i).coca_id||' on ' - ||TO_CHAR(p_nnpcv_tab(i).gas_day,'DD-MON-YYYY') - ||chr(10)||'SQLERRM : '||sqlerrm(sqlcode) ); - -- - -- Write an error and carry on - -- - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => ' Failed to insert lookback confirmation value: ' - ||' CONP_ID : '||p_nnpcv_tab(i).conp_id||' and ' - ||' COCA_ID : '||p_nnpcv_tab(i).coca_id||' on ' - ||TO_CHAR(p_nnpcv_tab(i).gas_day,'DD-MON-YYYY') - ||chr(10)||'SQLERRM : '||sqlerrm(sqlcode) - , p_source => 'efno_confirmations.ins_lookback_cnpcv_vals'); - -- - EXIT cnpcv_insert_loop; - END; - -- - END IF; - -- - END LOOP cnpcv_insert_loop; - -- - COMMIT; - -- - END IF; - -- - caco_debug.putline('SP_CONF: ins_lookback_cnpcv_vals 999'); - RETURN l_success; - -- -END ins_lookback_cnpcv_vals; --- --- -FUNCTION default_lookback( p_conf_id IN confirmations.conf_id%TYPE - , p_nomi_id IN nominations.nomi_id%TYPE - , p_contract_id IN contracts.cont_id%TYPE - , p_lookback_date IN DATE - , p_lookback_action IN contracts.lookback_action%TYPE - , p_nnpcv_tab IN nnpcv_tab - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- Require a cursor to list all "tip" nominations for the contract - CURSOR c_nominations(cp_lookback_action IN VARCHAR2) IS - SELECT nomi.nomi_id - , nomi.created_on - , nomi.status - , cont1.cust_id - FROM nominations nomi - ,contracts cont1 - WHERE nomi.cont_id = cont1.cont_id - AND cont1.cont_id IN (SELECT cont2.cont_id - FROM contracts cont2 - CONNECT BY PRIOR cont2.prev_cont_id = cont2.cont_id - START WITH cont2.cont_id = p_contract_id) - AND ( nomi.nomi_id < p_nomi_id - OR p_nomi_id IS NULL ) - AND EXISTS ( SELECT NULL - FROM nom_net_point_cat_vals nnpcv - WHERE nnpcv.nomi_id = nomi.nomi_id - GROUP BY nnpcv.gas_day - HAVING MIN(nnpcv.gas_day) <= (SELECT gas_day FROM confirmations WHERE conf_id = p_conf_id) - AND MIN(nnpcv.gas_day) >= p_lookback_date ) --- AND ( ( nomi.status = 'A' -- 'A' will be the TIP each day - AND ( cp_lookback_action = 'T' - AND ( nomi_id IN ((SELECT nomi_id - FROM ( SELECT DISTINCT n.nomi_id, n.gas_day, no.created_on, RANK() OVER (partition by gas_day ORDER BY gas_day, no.created_on DESC) nom_rank - FROM nom_net_point_cat_vals n - ,nominations no - ,contracts c - WHERE n.nomi_id = no.nomi_id - AND no.cont_id = c.cont_id - AND no.status = 'A' -- SP 19/10/2009 moved here to improve performance - AND c.cont_id IN (SELECT c2.cont_id - FROM contracts c2 - CONNECT BY PRIOR c2.prev_cont_id = c2.cont_id - START WITH c2.cont_id = p_contract_id) - ) - WHERE nom_rank = 1)) - ) - -- ) - OR ( cp_lookback_action = 'A' - ) - ) - ORDER BY ( SELECT MAX(nnpcv.gas_day) - FROM nom_net_point_cat_vals nnpcv - WHERE nnpcv.nomi_id = nomi.nomi_id - ) DESC, nomi.created_on DESC; -/* - SELECT nomi.nomi_id - , nomi.created_on - , nomi.status - , cont1.cust_id - FROM nominations nomi - ,contracts cont1 - ,contracts cont2 - WHERE nomi.cont_id = cont1.cont_id - AND cont1.cust_id = cont2.cust_id - AND cont2.cont_id = p_contract_id - AND ( nomi.nomi_id < p_nomi_id - OR p_nomi_id IS NULL ) - AND EXISTS ( SELECT NULL - FROM nom_net_point_cat_vals nnpcv - WHERE nnpcv.nomi_id = nomi.nomi_id - GROUP BY nnpcv.gas_day - HAVING MIN(nnpcv.gas_day) <= (SELECT gas_day FROM confirmations WHERE conf_id = p_conf_id) - AND MIN(nnpcv.gas_day) >= p_lookback_date ) --- AND ( ( nomi.status = 'A' -- 'A' will be the TIP each day - AND ( cp_lookback_action = 'T' - AND ( nomi_id IN ((SELECT nomi_id - FROM ( SELECT DISTINCT n.nomi_id, n.gas_day, no.created_on, RANK() OVER (partition by gas_day ORDER BY gas_day, no.created_on DESC) nom_rank - FROM nom_net_point_cat_vals n - ,nominations no - ,contracts c - ,contracts c2 - WHERE n.nomi_id = no.nomi_id - AND no.cont_id = c.cont_id - AND no.status = 'A' -- SP 19/10/2009 moved here to improve performance - AND c.cust_id = c2.cust_id - AND c2.cont_id = p_contract_id - ) - WHERE nom_rank = 1)) - ) - -- ) - OR ( cp_lookback_action = 'A' - ) - ) - ORDER BY ( SELECT MAX(nnpcv.gas_day) - FROM nom_net_point_cat_vals nnpcv - WHERE nnpcv.nomi_id = nomi.nomi_id - ) DESC, nomi.created_on DESC; -*/ - -- - l_nnpcv_tab nnpcv_tab; - -- - l_success BOOLEAN := FALSE; - -- - BEGIN - -- - caco_debug.putline('SP_CONF: default_lookback 001'); - caco_debug.putline('p_conf_id: '||p_conf_id|| - ' p_nomi_id: '||p_nomi_id|| - ' p_contract_id: '||p_contract_id|| - ' p_lookback_date: '||p_lookback_date|| - ' p_lookback_action: '||p_lookback_action|| - ' p_return_error: '||p_return_error); - -- - l_nnpcv_tab := p_nnpcv_tab; - -- - <> - FOR r IN c_nominations(NVL(p_lookback_action, 'A')) LOOP - -- - l_success := TRUE; - caco_debug.putline('we have a nom to look back at: nomi_id = '||r.nomi_id); - -- - -- - caco_debug.putline('Update nominated values'); - -- - l_success := ins_lookback_cnpcv_vals( p_conf_id => p_conf_id - , p_nnpcv_tab => l_nnpcv_tab - , p_nomi_id => r.nomi_id - , p_nomi_date => r.created_on - , p_return_error => p_return_error - ); - -- - -- Exit the loop - we got values for the cnpcv_id's.. - -- so there is no point looking back any further. - -- - EXIT nom_lookback_loop; - -- - END LOOP nom_lookback_loop; - -- - caco_debug.putline('SP_CONF: default_lookback 999'); - RETURN l_success; - -- - EXCEPTION - WHEN others THEN - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => ' Failed in default_lookback: ' - ||' Error : '||sqlerrm(sqlcode) - , p_source => 'efno_confirmations.default_lookback' ); - -- - caco_debug.putline('SP_CONF: error in default_lookback: '||sqlerrm); - l_success := FALSE; - -- An unexpected error has occurred while creating confirmation. Please contact support - p_return_error := caco_utilities.get_module_text(2212); -END default_lookback; --- --- -/** --- FUNCTION remove_surplus_cnpcv RETURN BOOLEAN --- Autonomous Transaction --- Returns TRUE if successful --- If the contract has been amended between nomination and confirmation this --- Ensures that the confirmation contains only network points and categories --- that are valid for the contract at point of confirmation --- --- %param p_conf_id Unique Identifier of the confirmation to be updated --- %param p_cont_id Unique identifier of the contract to which this confirmation relates --- %param p_return_error OUT: Error message in the case of an unexpected error --- -*/ -FUNCTION remove_surplus_cnpcv( p_conf_id IN confirmations.conf_id%TYPE - , p_cont_id IN contracts.cont_id%TYPE - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - PRAGMA AUTONOMOUS_TRANSACTION; - -- - l_success BOOLEAN := TRUE; - l_tmpstr VARCHAR2(1000); - -- -BEGIN - -- - p_return_error := NULL; - -- - SAVEPOINT before_delete; - -- Anonymous block to handle exceptions - BEGIN - -- - -- Remove invalid network points - -- - DELETE conf_net_point_cat_vals - WHERE conf_id = p_conf_id - AND conp_id NOT IN ( SELECT conp.conp_id - FROM cont_network_points conp - WHERE conp.cont_id = p_cont_id ); - -- - -- Remove invalid categories - -- - DELETE conf_net_point_cat_vals - WHERE conf_id = p_conf_id - AND coca_id NOT IN ( SELECT coca.coca_id - FROM contract_categories coca - WHERE coca.cont_id = p_cont_id ); - -- - COMMIT; - -- - EXCEPTION - WHEN others THEN - ROLLBACK TO SAVEPOINT before_delete; - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => ' Failed to delete surplus cnppv: ' - ||' CONF_ID : '||p_conf_id||chr(10) - ||' CONT_ID : '||p_cont_id||chr(10) - ||' Error : '||sqlerrm(sqlcode) - , p_source => 'efno_confirmations.remove_surplus_cnpcv' ); - -- - l_success := FALSE; - -- An unexpected error has occurred while creating confirmation. Please contact support - p_return_error := caco_utilities.get_module_text(2212); - -- - END; - -- - RETURN l_success; - -- -END remove_surplus_cnpcv; --- --- Function to calculate the exception value based on the percentage split and virtual network point values --- -FUNCTION get_cnppv_emo_exp_value (p_conp_id IN NUMBER - , p_coca_id IN NUMBER - , p_exception IN VARCHAR2 - , p_cont_id IN contracts.cont_id%TYPE - , p_success OUT BOOLEAN - , p_return_error OUT VARCHAR2 ) - RETURN NUMBER -IS - -- - -- Cursor to get the Percentage Split value of the virtual network point from cnppv table - CURSOR c_vnp_per_split IS - SELECT cnppv.value value - FROM parameters pars - , cont_network_points conp - , contract_parameters copa - , network_points nepo - , cont_net_point_param_vals cnppv - WHERE copa.pars_id = pars.pars_id - AND copa.copa_id = cnppv.copa_id - AND conp.conp_id = cnppv.conp_id - AND conp.cont_id = p_cont_id - AND conp.nepo_id = nepo.nepo_id - AND nepo.nepo_type = 'V' - AND pars.name IN (g_perc_split_en, g_perc_split_hu); - -- - -- Cursor to get the Percentage Split values from cnppv table - CURSOR c_cnppv_per_split(cp_conp_id IN NUMBER) IS - SELECT cnppv.value value - FROM parameters pars - , cont_network_points conp - , contract_parameters copa - , cont_net_point_param_vals cnppv - WHERE copa.pars_id = pars.pars_id - AND copa.copa_id = cnppv.copa_id - AND conp.conp_id = cnppv.conp_id - AND conp.conp_id = cp_conp_id - AND conp.cont_id = p_cont_id - AND pars.name IN (g_perc_split_en, g_perc_split_hu); - -- - -- Cursor to get the exception value for the virtual network point of a given - -- contract category - CURSOR c_cnppv_emo_exp(cp_coca_id IN NUMBER, - cp_exception IN VARCHAR2) IS - SELECT cnppv.value - FROM cont_net_point_param_vals cnppv - , contract_parameters copa - , parameters pars - , contract_categories coca - , cont_network_points conp - , network_points nepo - WHERE cnppv.copa_id = copa.copa_id - AND copa.pars_id = pars.pars_id - AND SUBSTR(UPPER(pars.code),-3) = cp_exception - AND pars.cate_id = coca.cate_id - AND coca.coca_id = cp_coca_id - AND conp.cont_id = p_cont_id - AND cnppv.conp_id = conp.conp_id - AND nepo.nepo_id = conp.nepo_id - AND nepo.nepo_type = 'V'; - -- - l_perc_split cont_net_point_param_vals.value%TYPE; - l_emo_exp_value cont_net_point_param_vals.value%TYPE; - l_tot_perc_split cont_net_point_param_vals.value%TYPE; - l_cont_value cont_net_point_param_vals.value%TYPE := 0; - l_success BOOLEAN := TRUE; - -- -BEGIN - caco_debug.putline('SP_CONF: get_cnppv_emo_exp_value 001'); - -- get the Percentage Split value of the virtual network point from cnppv table - OPEN c_vnp_per_split; - FETCH c_vnp_per_split INTO l_tot_perc_split; - CLOSE c_vnp_per_split; - -- - -- get the percentage split value of the network point - OPEN c_cnppv_per_split(p_conp_id); - FETCH c_cnppv_per_split INTO l_perc_split; - IF c_cnppv_per_split%NOTFOUND THEN - CLOSE c_cnppv_per_split; - -- - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2337); - -- Unable to find contracted value for invalid nomination. Please contact support - caco_debug.putline('efno_confirmations.create_missing_cnpcv: Unable to locate Percentage Split parameter for: ' - ||' CONP_ID : '||p_conp_id); - -- - END IF; - CLOSE c_cnppv_per_split; - -- get the virtual network point validation exception value - IF l_success THEN - OPEN c_cnppv_emo_exp(p_coca_id, - p_exception); - FETCH c_cnppv_emo_exp INTO l_emo_exp_value; - IF c_cnppv_emo_exp%NOTFOUND THEN - CLOSE c_cnppv_emo_exp; - -- - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2337); - -- Unable to find contracted value for invalid nomination. Please contact support - caco_debug.putline('efno_confirmations.create_missing_cnpcv: Unable to locate VNP CTR value for: ' - ||' COCA_ID : '||p_coca_id); - -- - END IF; - CLOSE c_cnppv_emo_exp; - -- calculate the exception value based on the percentage split and virtual network point values - l_cont_value := ROUND((l_perc_split/l_tot_perc_split)*l_emo_exp_value); - -- - END IF; - p_success := l_success; - caco_debug.putline('SP_CONF: get_cnppv_emo_exp_value 999'); - RETURN l_cont_value; - -- -END get_cnppv_emo_exp_value; --- --- --- -/** --- FUNCTION create_missing_cnpcv RETURN BOOLEAN --- Autonomous Transaction --- Returns TRUE if successful --- If the contract has been amended between nomination and confirmation this --- Ensures that the confirmation contains any additional network points and categories --- that have been added --- --- %param p_conf_id Unique Identifier of the confirmation to be updated --- %param p_nomi_id Unique identifier of the nomination to which this confirmation relates --- %param p_nnpcv_tab --- %param p_return_error OUT: Error message in the case of an unexpected error --- -*/ -PROCEDURE create_missing_cnpcv( p_conf_id IN confirmations.conf_id%TYPE - , p_nomi_id IN nominations.nomi_id%TYPE - , p_nnpcv_tab IN OUT nnpcv_tab - , p_exception IN contracts.validation_exception%TYPE - , p_validation_action IN contracts.validation_action%TYPE - , p_success OUT BOOLEAN - , p_return_error OUT VARCHAR2 - , p_defaulted IN VARCHAR2 DEFAULT 'Y' - , p_cont_id IN contracts.cont_id%TYPE - , p_lookback_date IN DATE - , p_lookback_action IN contracts.lookback_action%TYPE) -IS - PRAGMA AUTONOMOUS_TRANSACTION; - -- - -- Cursor to get the minimum value for a given CONP and COCA pair - CURSOR c_cnppv_min( cp_conp_id IN NUMBER - , cp_coca_id IN NUMBER ) - IS - SELECT cnppv.value - FROM cont_net_point_param_vals cnppv - , contract_parameters copa - , parameters pars - , contract_categories coca - WHERE cnppv.conp_id = cp_conp_id - AND cnppv.copa_id = copa.copa_id - AND copa.pars_id = pars.pars_id - AND SUBSTR(UPPER(pars.code),-3) = 'MIN' -- Need the MIN parameter - AND pars.cate_id = coca.cate_id - AND coca.coca_id = cp_coca_id; - -- - -- Cursor to get the contracted value for a given CONP and COCA pair - CURSOR c_cnppv_ctr( cp_conp_id IN NUMBER - , cp_coca_id IN NUMBER ) - IS - SELECT cnppv.value - FROM cont_net_point_param_vals cnppv - , contract_parameters copa - , parameters pars - , contract_categories coca - WHERE cnppv.conp_id = cp_conp_id - AND cnppv.copa_id = copa.copa_id - AND copa.pars_id = pars.pars_id - AND SUBSTR(UPPER(pars.code),-3) = 'CTR' -- Need the CTR parameter - AND pars.cate_id = coca.cate_id - AND coca.coca_id = cp_coca_id; - -- - -- Cursor to get the maximum value for a given CONP and COCA pair - CURSOR c_cnppv_max( cp_conp_id IN NUMBER - , cp_coca_id IN NUMBER ) - IS - SELECT cnppv.value - FROM cont_net_point_param_vals cnppv - , contract_parameters copa - , parameters pars - , contract_categories coca - WHERE cnppv.conp_id = cp_conp_id - AND cnppv.copa_id = copa.copa_id - AND copa.pars_id = pars.pars_id - AND SUBSTR(UPPER(pars.code),-3) = 'MAX' -- Need the MAX parameter - AND pars.cate_id = coca.cate_id - AND coca.coca_id = cp_coca_id; - -- - l_value conf_net_point_cat_vals.value%TYPE; - l_int_value conf_net_point_cat_vals.value%TYPE; - l_cont_value conf_net_point_cat_vals.value%TYPE; - l_success BOOLEAN := TRUE; - l_interrupted conf_net_point_cat_vals.interrupted%TYPE; - -- -BEGIN -caco_debug.putline('SP_CONF: create_missing_cnpcv 001'); - SAVEPOINT before_create_missing; - p_success := TRUE; - p_return_error := NULL; - -- ---output_nnpcv_tab(p_nnpcv_tab); - IF NVL(p_nnpcv_tab.COUNT,0) > 0 THEN - IF p_validation_action = 'B' THEN - - l_success := default_lookback( p_conf_id - , p_nomi_id - , p_cont_id - , p_lookback_date - , p_lookback_action - , p_nnpcv_tab - , p_return_error ); - END IF; -/* - if sub OR lookback failed - ...existing code, remove +10 - end if; -*/ - IF NOT l_success OR p_validation_action = 'T' THEN - caco_debug.putline('SP_CONF: create_missing_cnpcv 555: using contract vals'); - <> - FOR i IN 1..p_nnpcv_tab.COUNT LOOP - IF NVL(p_nnpcv_tab(i).missing, 'N') = 'Y' THEN - -- - -- Get the interrupted value if there is one - l_int_value := get_interrupted_value( p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id - , p_nnpcv_tab(i).gas_day ); - -- - -- Get the contract value depending on the validation exception - IF p_exception = 'CO' THEN - -- - IF efno_contracts.emo_contract(p_cont_id) = 'Y' THEN - -- - -- calculate the exception value based on the percentage split and - -- virtual network point values - l_cont_value := get_cnppv_emo_exp_value(p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id - , 'CTR' - , p_cont_id - , p_success - , p_return_error); - IF NOT p_success THEN - EXIT cnppv_loop; - END IF; - ELSE - OPEN c_cnppv_ctr( p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id ); - FETCH c_cnppv_ctr INTO l_cont_value; - IF c_cnppv_ctr%NOTFOUND THEN - CLOSE c_cnppv_ctr; - -- - p_success := FALSE; - p_return_error := caco_utilities.get_module_text(2337); - -- Unable to find contracted value for invalid nomination. Please contact support - caco_debug.putline('efno_confirmations.create_missing_cnpcv: Unable to locate Contract parameter CTR for: ' - ||' CONP_ID : '||p_nnpcv_tab(i).conp_id||' and ' - ||' COCA_ID : '||p_nnpcv_tab(i).coca_id ); - -- - EXIT cnppv_loop; - END IF; - CLOSE c_cnppv_ctr; - END IF; - -- - ELSIF p_exception = 'MI' THEN -- Minimum - -- - IF efno_contracts.emo_contract(p_cont_id) = 'Y' THEN - -- - -- calculate the exception value based on the percentage split and - -- virtual network point values - l_cont_value := get_cnppv_emo_exp_value(p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id - , 'MIN' - , p_cont_id - , p_success - , p_return_error); - IF NOT p_success THEN - EXIT cnppv_loop; - END IF; - ELSE - OPEN c_cnppv_min( p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id ); - FETCH c_cnppv_min INTO l_cont_value; - IF c_cnppv_min%NOTFOUND THEN - CLOSE c_cnppv_min; - -- - p_success := FALSE; - p_return_error := caco_utilities.get_module_text(2310); - -- Unable to find minimum value for invalid nomination. Please contact support - caco_debug.putline('efno_confirmations.create_missing_cnpcv: Unable to locate Contract parameter MIN for: ' - ||' CONP_ID : '||p_nnpcv_tab(i).conp_id||' and ' - ||' COCA_ID : '||p_nnpcv_tab(i).coca_id ); - -- - EXIT cnppv_loop; - END IF; - CLOSE c_cnppv_min; - END IF; - -- - ELSIF p_exception IN ('MA', 'EX') THEN -- Maximum - -- - IF efno_contracts.emo_contract(p_cont_id) = 'Y' THEN - -- - -- calculate the exception value based on the percentage split and - -- virtual network point values - l_cont_value := get_cnppv_emo_exp_value(p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id - , 'MAX' - , p_cont_id - , p_success - , p_return_error); - IF NOT p_success THEN - EXIT cnppv_loop; - END IF; - ELSE - OPEN c_cnppv_max( p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id ); - FETCH c_cnppv_max INTO l_cont_value; - IF c_cnppv_max%NOTFOUND THEN - CLOSE c_cnppv_max; - -- - p_success := FALSE; - p_return_error := caco_utilities.get_module_text(2310); - -- Unable to find minimum value for invalid nomination. Please contact support - caco_debug.putline('efno_confirmations.create_missing_cnpcv: Unable to locate Contract parameter MAX for: ' - ||' CONP_ID : '||p_nnpcv_tab(i).conp_id||' and ' - ||' COCA_ID : '||p_nnpcv_tab(i).coca_id ); - -- - EXIT cnppv_loop; - END IF; - CLOSE c_cnppv_max; - END IF; - -- -/* IF p_exception = 'EX' THEN -caco_debug.putline('SP_CONF: create_missing_cnpcv (adding + 10) 500'); - l_value := l_value + 10; - END IF;*/ - -- - END IF; - -- Compare the contract value and the interrupted value and go with the lowest value - IF l_int_value IS NULL THEN - l_value := l_cont_value; - l_interrupted := 'N'; - ELSE - IF l_int_value > l_cont_value THEN - l_value := l_cont_value; - ELSE - l_value := l_int_value; - END IF; - l_interrupted := 'Y'; - END IF; - -- ---output_nnpcv_rec(p_nnpcv_tab(i)); - BEGIN - INSERT INTO conf_net_point_cat_vals - ( conf_id - , nomi_id - , value - , gas_day - , conp_id - , coca_id - , valid - , defaulted - , interrupted - , last_gas_day ) - VALUES - ( p_conf_id - , p_nomi_id - , l_value - , p_nnpcv_tab(i).gas_day - , p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id - , 'Y' --- , p_defaulted --05/03/08 SP replaced with 'Y' to repress nom date on confirmation - , 'Y' - , l_interrupted - , NULL ); - EXCEPTION - WHEN dup_val_on_index THEN - NULL; - WHEN others THEN - ROLLBACK TO SAVEPOINT before_create_missing; - p_success := FALSE; - p_return_error := caco_utilities.get_module_text(2311); - -- Unable to force confirm invalid nomination. Please contact support - caco_debug.putline('efno_confirmations.create_missing_cnpcv:' - ||' Failed to insert default confirmation value: ' - ||' CONP_ID : '||p_nnpcv_tab(i).conp_id||' and ' - ||' COCA_ID : '||p_nnpcv_tab(i).coca_id||' on ' - ||TO_CHAR(p_nnpcv_tab(i).gas_day,'DD-MON-YYYY') - ||chr(10)||'SQLERRM : '||sqlerrm(sqlcode) ); - -- - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => ' Failed to insert default confirmation value: ' - ||' CONP_ID : '||p_nnpcv_tab(i).conp_id||' and ' - ||' COCA_ID : '||p_nnpcv_tab(i).coca_id||' on ' - ||TO_CHAR(p_nnpcv_tab(i).gas_day,'DD-MON-YYYY') - ||chr(10)||'SQLERRM : '||sqlerrm(sqlcode) - , p_source => 'efno_confirmations.create_missing_cnpcv'); - -- - EXIT cnppv_loop; - END; - -- - END IF; - -- - END LOOP cnppv_loop; - END IF; - -- - -- - IF p_success THEN - COMMIT; - END IF; - -- - END IF; - -- -caco_debug.putline('SP_CONF: create_missing_cnpcv 999'); -END create_missing_cnpcv; --- --- -FUNCTION add_missing_cnpcv( p_conf_id IN confirmations.conf_id%TYPE - , p_nomi_id IN nominations.nomi_id%TYPE - , p_contract_row IN contracts%ROWTYPE - , p_gas_day IN DATE - , p_return_error OUT VARCHAR2 - , p_defaulted IN VARCHAR2 DEFAULT 'Y' ) - RETURN BOOLEAN -IS - l_success BOOLEAN := TRUE; - -- - l_cnpcv_tab nnpcv_tab; - l_counter NUMBER := 0; - l_lookback_date DATE; - -- - l_only_short_day VARCHAR2(1) := 'N'; - l_cont_long_day VARCHAR2(1) := 'N'; - -- -BEGIN -caco_debug.putline('SP_CONF: add_missing_cnpcv 001'); - p_return_error := NULL; - l_lookback_date := p_gas_day - p_contract_row.validation_window; - -- Check to see if the gas day we are looking at is a long or short day - IF cout_dates.hours_in_gas_day(p_gas_day) = 25 THEN - l_cont_long_day := 'Y'; - END IF; - IF cout_dates.hours_in_gas_day(p_gas_day) = 23 THEN - l_only_short_day := 'Y'; - END IF; - -- - -- Check if there are missing Network Points - caco_debug.putline('Enter add missing'||p_contract_row.cont_id||':'||p_conf_id); - FOR r IN ( SELECT DISTINCT conp.conp_id conp_id - FROM cont_network_points conp - WHERE conp.cont_id = p_contract_row.cont_id - AND NOT EXISTS ( SELECT 'x' - FROM conf_net_point_cat_vals cnpcv - WHERE cnpcv.conf_id = p_conf_id - AND cnpcv.conp_id = conp.conp_id ) - ) - LOOP - caco_debug.putline('In nepo: '||r.conp_id); - -- Add a missing entry for each network point for all categories - FOR r2 IN ( SELECT coca.coca_id coca_id - FROM contract_categories coca - ,categories cate - WHERE coca.cont_id = p_contract_row.cont_id - AND cate.cate_id = coca.cate_id - AND ((cate.display_cond = 'LO' AND l_cont_long_day = 'Y') OR - (cate.display_cond = 'SH' AND l_only_short_day = 'N') OR - cate.display_cond = 'AL')) - LOOP - l_counter := l_counter + 1; - -- - l_cnpcv_tab(l_counter).conp_id := r.conp_id; - l_cnpcv_tab(l_counter).coca_id := r2.coca_id; - l_cnpcv_tab(l_counter).gas_day := p_gas_day; - l_cnpcv_tab(l_counter).missing := 'Y'; - -- - END LOOP; - -- - END LOOP; - -- - IF l_counter > 0 THEN - -- create the missing entries - caco_debug.putline('SP_CONF: add_missing_cnpcv missing nepo 100'); - create_missing_cnpcv( p_conf_id => p_conf_id - , p_nomi_id => p_nomi_id - , p_nnpcv_tab => l_cnpcv_tab - , p_exception => p_contract_row.validation_exception - , p_validation_action => p_contract_row.validation_action - , p_success => l_success - , p_return_error => p_return_error - , p_defaulted => p_defaulted - , p_cont_id => p_contract_row.cont_id - , p_lookback_date => l_lookback_date - , p_lookback_action => p_contract_row.lookback_action ); - -- - END IF; - -- - IF l_success THEN - -- - l_counter := 0; - l_cnpcv_tab.DELETE; - -- - -- Now check for missing Categories - FOR r IN ( SELECT DISTINCT coca.coca_id coca_id - FROM contract_categories coca - ,categories cate - WHERE coca.cont_id = p_contract_row.cont_id - AND cate.cate_id = coca.cate_id - AND ((cate.display_cond = 'LO' AND l_cont_long_day = 'Y') OR - (cate.display_cond = 'SH' AND l_only_short_day = 'N') OR - cate.display_cond = 'AL') - AND NOT EXISTS ( SELECT 'x' - FROM conf_net_point_cat_vals cnpcv - WHERE cnpcv.conf_id = p_conf_id - AND cnpcv.coca_id = coca.coca_id ) - ) - LOOP - caco_debug.putline('In coca: '||r.coca_id); - -- Add a missing entry for each category for all network point - FOR r2 IN ( SELECT conp.conp_id conp_id - FROM cont_network_points conp - WHERE conp.cont_id = p_contract_row.cont_id ) - LOOP - l_counter := l_counter + 1; - -- - l_cnpcv_tab(l_counter).conp_id := r2.conp_id; - l_cnpcv_tab(l_counter).coca_id := r.coca_id; - l_cnpcv_tab(l_counter).gas_day := p_gas_day; - l_cnpcv_tab(l_counter).missing := 'Y'; - -- - END LOOP; - -- - END LOOP; - -- - IF l_counter > 0 THEN - -- create the missing entries - caco_debug.putline('SP_CONF: add_missing_cnpcv missing cate 200'); - create_missing_cnpcv( p_conf_id => p_conf_id - , p_nomi_id => p_nomi_id - , p_nnpcv_tab => l_cnpcv_tab - , p_exception => p_contract_row.validation_exception - , p_validation_action => p_contract_row.validation_action - , p_success => l_success - , p_return_error => p_return_error - , p_defaulted => p_defaulted - , p_cont_id => p_contract_row.cont_id - , p_lookback_date => l_lookback_date - , p_lookback_action => p_contract_row.lookback_action ); - -- - END IF; - -- - END IF; - -- - caco_debug.putline('SP_CONF: add_missing_cnpcv 999'); - RETURN l_success; - -- -END add_missing_cnpcv; --- -FUNCTION replace_cnpcv( p_conf_id IN confirmations.conf_id%TYPE - , p_nnpcv_tab IN nnpcv_tab - , p_exception IN contracts.validation_exception%TYPE - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - PRAGMA AUTONOMOUS_TRANSACTION; - -- Cursor to select the Contract Category Maximum - CURSOR c_contract_val( cp_conp_id IN NUMBER - , cp_coca_id IN NUMBER - , cp_type IN VARCHAR2 ) - IS - SELECT cnppv.value - FROM cont_net_point_param_vals cnppv - , contract_parameters copa - , parameters pars - , contract_categories coca - , categories cate - , contracts cont - WHERE cnppv.conp_id = cp_conp_id - AND cnppv.copa_id = copa.copa_id - AND cont.cont_id = coca.cont_id - AND copa.pars_id = pars.pars_id - AND SUBSTR(UPPER(pars.code),-3) = NVL(DECODE(cont.validation_exception, 'CO','CTR','MI','MIN','MA','MAX'),'MAX') - AND pars.cate_id = cate.cate_id - AND coca.cate_id = cate.cate_id - AND coca.coca_id = cp_coca_id; - -- - -- Cursor to get the correct row from CNPCV table - CURSOR c_cnpcv( cp_conp_id IN NUMBER - , cp_coca_id IN NUMBER - , cp_gas_day IN DATE ) - IS - SELECT cnpcv.* - FROM conf_net_point_cat_vals cnpcv - WHERE conf_id = p_conf_id - AND conp_id = cp_conp_id - AND coca_id = cp_coca_id - AND gas_day = cp_gas_day - FOR UPDATE; - -- - l_cnpcv_row c_cnpcv%ROWTYPE; - l_contract_value NUMBER := 0; - -- - l_success BOOLEAN := TRUE; - -- -BEGIN - caco_debug.putline('SP_CONF: replace_cnpcv 001'); - -- - SAVEPOINT before_replace; - -- - IF NVL(p_nnpcv_tab.COUNT,0) > 0 THEN - -- - <> - FOR i IN 1..p_nnpcv_tab.COUNT LOOP - -- Reset temp variables - l_cnpcv_row := NULL; - l_contract_value := 0; - -- - IF p_nnpcv_tab(i).in_error THEN - -- - caco_debug.putline('REPLACE(conp|coca) '||p_exception||': '||p_nnpcv_tab(i).conp_id||':'||p_nnpcv_tab(i).coca_id||':-'||sys.diutil.bool_to_int(p_nnpcv_tab(i).in_error)); - -- - OPEN c_contract_val( p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id - , p_exception - ); - FETCH c_contract_val - INTO l_contract_value; - IF c_contract_val%NOTFOUND THEN - -- - CLOSE c_contract_val; - -- bit of a problem - contract is messaed up somewhere... - -- don't know what to do here - no guidance. - ROLLBACK TO SAVEPOINT before_replace; - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2313); - -- Unable to locate contract parameter maximum. Please contact support - caco_debug.putline('efno_confirmations.replace_cnpcv: Unable to locate Contract parameter '||p_exception||' for: ' - ||' CONP_ID : '||p_nnpcv_tab(i).conp_id||' and ' - ||' COCA_ID : '||p_nnpcv_tab(i).coca_id ); - EXIT replace_loop; - -- - ELSE - CLOSE c_contract_val; - END IF; - -- - OPEN c_cnpcv( p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id --con_val.coca_id --p_nnpcv_tab(i).coca_id - , p_nnpcv_tab(i).gas_day ); - FETCH c_cnpcv - INTO l_cnpcv_row; - IF c_cnpcv%FOUND THEN - -- - caco_debug.putline('DEBUG1'); - UPDATE conf_net_point_cat_vals cnpcv - SET cnpcv.value = l_contract_value - ,cnpcv.defaulted = 'Y' - ,cnpcv.last_nomi_id = NULL - ,cnpcv.last_nom_received = NULL - WHERE CURRENT OF c_cnpcv; - -- - caco_debug.putline('Updated conf_id: '||l_cnpcv_row.conf_id||' conp_id: '||l_cnpcv_row.conp_id||' coca_id: '||l_cnpcv_row.coca_id); - -- - -- Now update the others that are for the same network point - -- - caco_debug.putline('DEBUG2'); - UPDATE conf_net_point_cat_vals cnpcvz - SET ( cnpcvz.value - , cnpcvz.defaulted - , cnpcvz.last_nomi_id - , cnpcvz.last_nom_received - ) = - ( SELECT cnppv.value - , 'Y' - , NULL - , NULL - FROM cont_net_point_param_vals cnppv - , contract_parameters copa - , parameters pars - , contract_categories coca - , categories cate - , contracts cont - WHERE cnppv.conp_id = p_nnpcv_tab(i).conp_id - AND cnppv.copa_id = copa.copa_id - AND cont.cont_id = coca.cont_id - AND copa.pars_id = pars.pars_id - AND SUBSTR(UPPER(pars.code),-3) = NVL(DECODE(cont.validation_exception, 'CO','CTR','MI','MIN','MA','MAX'),'MAX') - AND pars.cate_id = cate.cate_id - AND coca.cate_id = cate.cate_id - AND coca.coca_id = cnpcvz.coca_id - ) - WHERE cnpcvz.conf_id = p_conf_id - AND cnpcvz.conp_id = p_nnpcv_tab(i).conp_id - AND cnpcvz.coca_id <> p_nnpcv_tab(i).coca_id; - -- - CLOSE c_cnpcv; - ELSE - CLOSE c_cnpcv; - -- Problem - couldnt find the nnpcv_id in the CNPCV table - ROLLBACK TO SAVEPOINT before_replace; - -- - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2314); - -- Unable to locate data. Please contact support - caco_debug.putline('efno_confirmations.replace_cnpcv: Unable to locate data in conf_net_point_cat_vals: ' - ||' CONF_ID : '||p_conf_id - ||' CONP_ID : '||p_nnpcv_tab(i).conp_id - ||' COCA_ID : '||p_nnpcv_tab(i).coca_id - ||' GAS_DAY : '||TO_DATE(p_nnpcv_tab(i).gas_day,'DD-MON-YYYY') ); - EXIT replace_loop; - -- - END IF; - -- - END IF; - -- - END LOOP truncate_to_max_loop; - -- - IF l_success THEN - -- - COMMIT; - -- - END IF; - -- - END IF; - -- - caco_debug.putline('SP_CONF: replace_cnpcv 999'); - -- - RETURN l_success; - -- -EXCEPTION - WHEN OTHERS THEN - ROLLBACK TO SAVEPOINT before_replace; - caco_debug.putline('efno_confirmations.truncate_cnpcv_to_max: Unexpected Error ' - ||' CONF_ID : '||p_conf_id - ||CHR(10)||' Error Msg : '||sqlerrm(sqlcode) ); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Unexpected Error ' - ||' CONF_ID : '||p_conf_id - ||chr(10)||' Error Msg : '||sqlerrm(sqlcode) - , p_source => 'efno_confirmations.truncate_cnpcv_to_max'); - -- - RETURN FALSE; - -- -END replace_cnpcv; --- -FUNCTION default_cnpcv_values( p_gas_day IN DATE - , p_conf_id IN confirmations.conf_id%TYPE - , p_nnpcv_tab IN nnpcv_tab - , p_exception IN contracts.validation_exception%TYPE - , p_return_error OUT VARCHAR2 - , p_check IN BOOLEAN DEFAULT FALSE ) - RETURN BOOLEAN -IS - PRAGMA AUTONOMOUS_TRANSACTION; - -- - -- Cursor to get the minimum value for a given CONP and COCA pair - CURSOR c_cnppv_min( cp_conp_id IN NUMBER - , cp_coca_id IN NUMBER ) - IS - SELECT cnppv.value - FROM cont_net_point_param_vals cnppv - , contract_parameters copa - , parameters pars - , contract_categories coca - WHERE cnppv.conp_id = cp_conp_id - AND cnppv.copa_id = copa.copa_id - AND copa.pars_id = pars.pars_id - AND SUBSTR(pars.code,-3) = 'MIN' -- Need the MIN parameter - AND pars.cate_id = coca.cate_id - AND coca.coca_id = cp_coca_id; - -- - -- Cursor to get the contracted value for a given CONP and COCA pair - CURSOR c_cnppv_ctr( cp_conp_id IN NUMBER - , cp_coca_id IN NUMBER ) - IS - SELECT cnppv.value - FROM cont_net_point_param_vals cnppv - , contract_parameters copa - , parameters pars - , contract_categories coca - WHERE cnppv.conp_id = cp_conp_id - AND cnppv.copa_id = copa.copa_id - AND copa.pars_id = pars.pars_id - AND SUBSTR(pars.code,-3) = 'CTR' -- Need the CTR parameter - AND pars.cate_id = coca.cate_id - AND coca.coca_id = cp_coca_id; - -- - -- Cursor to get the contracted value for a given CONP and COCA pair - CURSOR c_cnppv_max( cp_conp_id IN NUMBER - , cp_coca_id IN NUMBER ) - IS - SELECT cnppv.value - FROM cont_net_point_param_vals cnppv - , contract_parameters copa - , parameters pars - , contract_categories coca - WHERE cnppv.conp_id = cp_conp_id - AND cnppv.copa_id = copa.copa_id - AND copa.pars_id = pars.pars_id - AND SUBSTR(pars.code,-3) = 'MAX' -- Need the CTR parameter - AND pars.cate_id = coca.cate_id - AND coca.coca_id = cp_coca_id; - -- - l_value cont_net_point_param_vals.value%TYPE; - l_int_value conf_net_point_cat_vals.value%TYPE; - l_cont_value conf_net_point_cat_vals.value%TYPE; - l_cont_id NUMBER; - -- - l_success BOOLEAN := TRUE; - l_interrupted conf_net_point_cat_vals.interrupted%TYPE; - -- -BEGIN - caco_debug.putline('SP_CONF: default_cnpcv_values 001'); - SAVEPOINT before_default; - -- quite simply, we should loop through the table of given nnpcv and update the values - -- to the Minimum or Contracted values for the contract - -- - IF NVL(p_nnpcv_tab.COUNT,0) > 0 THEN - -- - -- get the contract id - SELECT conp.cont_id INTO l_cont_id - FROM cont_network_points conp - WHERE conp.conp_id = p_nnpcv_tab(1).conp_id; - -- - caco_debug.putline('SP_CONF: default_cnpcv_values cont_id: '||l_cont_id); - -- - <> - FOR i IN 1..p_nnpcv_tab.COUNT LOOP - -- - IF NOT p_check OR (p_check AND p_nnpcv_tab(i).in_error) THEN - -- - l_value := 0; - -- Get the interrupted value if there is one - l_int_value := get_interrupted_value( p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id --- , p_nnpcv_tab(i).gas_day ); - , p_gas_day ); - -- - -- - IF p_exception = 'CO' THEN - -- - IF efno_contracts.emo_contract(l_cont_id) = 'Y' THEN - -- - -- calculate the exception value based on the percentage split and - -- virtual network point values - l_cont_value := get_cnppv_emo_exp_value(p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id - , 'CTR' - , l_cont_id - , l_success - , p_return_error); - IF NOT l_success THEN - EXIT cnppv_loop; - END IF; - ELSE - OPEN c_cnppv_ctr( p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id ); - FETCH c_cnppv_ctr INTO l_cont_value; - IF c_cnppv_ctr%NOTFOUND THEN - CLOSE c_cnppv_ctr; - -- - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2337); - -- Unable to find contracted value for invalid nomination. Please contact support - caco_debug.putline('efno_confirmations.default_gtcv_values: Unable to locate Contract parameter CTR for: ' - ||' CONP_ID : '||p_nnpcv_tab(i).conp_id||' and ' - ||' COCA_ID : '||p_nnpcv_tab(i).coca_id ); - -- - EXIT cnppv_loop; - END IF; - CLOSE c_cnppv_ctr; - END IF; - -- - ELSIF p_exception = 'MI' THEN -- must be MI (minimum) - -- - IF efno_contracts.emo_contract(l_cont_id) = 'Y' THEN - -- - -- calculate the exception value based on the percentage split and - -- virtual network point values - l_cont_value := get_cnppv_emo_exp_value(p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id - , 'MIN' - , l_cont_id - , l_success - , p_return_error); - IF NOT l_success THEN - EXIT cnppv_loop; - END IF; - ELSE - OPEN c_cnppv_min( p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id ); - FETCH c_cnppv_min INTO l_cont_value; - IF c_cnppv_min%NOTFOUND THEN - CLOSE c_cnppv_min; - -- - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2310); - -- Unable to find minimum value for invalid nomination. Please contact support - caco_debug.putline('efno_confirmations.default_gtcv_values: Unable to locate Contract parameter MIN for: ' - ||' CONP_ID : '||p_nnpcv_tab(i).conp_id||' and ' - ||' COCA_ID : '||p_nnpcv_tab(i).coca_id ); - -- - EXIT cnppv_loop; - ELSE - CLOSE c_cnppv_min; - END IF; - END IF; - -- - ELSIF p_exception = 'MA' THEN -- must be MA (Maximum) - -- - IF efno_contracts.emo_contract(l_cont_id) = 'Y' THEN - -- - -- calculate the exception value based on the percentage split and - -- virtual network point values - l_cont_value := get_cnppv_emo_exp_value(p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id - , 'MIN' - , l_cont_id - , l_success - , p_return_error); - IF NOT l_success THEN - EXIT cnppv_loop; - END IF; - ELSE - OPEN c_cnppv_max( p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id ); - FETCH c_cnppv_max INTO l_cont_value; - IF c_cnppv_max%NOTFOUND THEN - CLOSE c_cnppv_max; - -- - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2310); - -- Unable to find minimum value for invalid nomination. Please contact support - caco_debug.putline('efno_confirmations.default_gtcv_values: Unable to locate Contract parameter MAX for: ' - ||' CONP_ID : '||p_nnpcv_tab(i).conp_id||' and ' - ||' COCA_ID : '||p_nnpcv_tab(i).coca_id ); - -- - EXIT cnppv_loop; - ELSE - CLOSE c_cnppv_max; - END IF; - END IF; - -- - END IF; - -- Compare the contract value and the interrupted value and go with the lowest value - caco_debug.putline('l_int_value: '||l_int_value); - caco_debug.putline('l_cont_value: '||l_cont_value); - IF l_int_value IS NULL THEN - l_value := l_cont_value; - l_interrupted := 'N'; - ELSE - IF l_int_value > l_cont_value THEN - l_value := l_cont_value; - ELSE - l_value := l_int_value; - END IF; - l_interrupted := 'Y'; - END IF; - caco_debug.putline('l_value: '||l_value); - caco_debug.putline('l_interrupted: '||l_interrupted); - -- - BEGIN - -- So now update the value in conf_ and set the defaulted flag - caco_debug.putline('DEBUG3'); - UPDATE conf_net_point_cat_vals - SET last_nom_received = NULL - , last_nomi_id = NULL - , last_gas_day = NULL - , last_coru_id = NULL - , defaulted = 'Y' - , valid = 'Y' - , value = l_value - , interrupted = l_interrupted - WHERE conf_id = p_conf_id - AND conp_id = p_nnpcv_tab(i).conp_id - AND coca_id = p_nnpcv_tab(i).coca_id; - -- - caco_debug.putline('Valu: '||l_value||' : '||p_nnpcv_tab(i).coca_id); --- SP 3/3/08 - commented update back in and now setting last_gas_day to null to stop --- nomination date appearing on confirmation - UPDATE conf_net_point_cat_vals - SET defaulted = 'Y', - last_gas_day = NULL - WHERE conf_id = p_conf_id - AND conp_id = p_nnpcv_tab(i).conp_id; - -- - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2257); - -- Error defaulting invalid nomination values. Please contact support - caco_debug.putline('efno_confirmations.default_gtcv_values: Update failed : ' - ||' CONP_ID : '||p_nnpcv_tab(i).conp_id||' and ' - ||' COCA_ID : '||p_nnpcv_tab(i).coca_id - ||chr(10)||' Error Msg : '||sqlerrm(sqlcode) ); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Update failed : ' - ||' CONP_ID : '||p_nnpcv_tab(i).conp_id||' and ' - ||' COCA_ID : '||p_nnpcv_tab(i).coca_id - ||chr(10)||' Error Msg : '||sqlerrm(sqlcode) - , p_source => 'efno_confirmations.default_cnpcv_values'); - -- - END; - -- - END IF; - -- - END LOOP cnppv_loop; - -- - END IF; - -- - IF NOT l_success THEN - ROLLBACK TO SAVEPOINT before_default; - ELSE - COMMIT; - END IF; - -- - caco_debug.putline('SP_CONF: default_cnpcv_values 999'); - -- - RETURN l_success; - -- -END default_cnpcv_values; --- -FUNCTION upd_cnpcv_vals_with_nom( p_conf_id IN confirmations.conf_id%TYPE - , p_nnpcv_tab IN OUT nnpcv_tab - , p_coru_id IN contract_rules.coru_id%TYPE - , p_nomi_id IN nominations.nomi_id%TYPE - , p_nomi_date IN nominations.created_on%TYPE - , p_return_error OUT VARCHAR2 - , p_nom_table IN efno_rules.nom_validation_table - ) - RETURN BOOLEAN -IS - PRAGMA AUTONOMOUS_TRANSACTION; - -- - -- Cursor to get the value for the given previous nomination and CONP COCA pair from the nnpcv_tab - CURSOR c_nnpcv( cp_conp_id IN NUMBER - , cp_coca_id IN NUMBER ) - IS - SELECT nnpcv1.value value - , nnpcv1.gas_day gas_day - , cnp2.nepo_id nepo_id - FROM nom_net_point_cat_vals nnpcv1 - ,cont_network_points cnp1 - ,cont_network_points cnp2 - ,contract_categories cc1 - ,contract_categories cc2 - WHERE nnpcv1.nomi_id = p_nomi_id - AND cc1.cate_id = cc2.cate_id - AND cc1.coca_id = cp_coca_id - AND cc2.coca_id = nnpcv1.coca_id - AND cnp1.nepo_id = cnp2.nepo_id - AND cnp1.conp_id = cp_conp_id - AND cnp2.conp_id = nnpcv1.conp_id - AND nnpcv1.gas_day = ( SELECT MAX( nnpcv2.gas_day ) - FROM nom_net_point_cat_vals nnpcv2 - WHERE nnpcv2.nomi_id = p_nomi_id ); - -- - l_value nom_net_point_cat_vals.value%TYPE; - l_gas_day nom_net_point_cat_vals.gas_day%TYPE; - l_success BOOLEAN := TRUE; - l_nepo_id network_points.nepo_id%TYPE; - -- -BEGIN - -- - caco_debug.putline('SP_CONF: upd_cnpcv_vals_with_nom 001'); - -- - SAVEPOINT before_upd_cnpcv; - -- - -- Loop through the nnpcv tab and update CNPCV with the nom values - IF NVL(p_nnpcv_tab.COUNT,0) > 0 THEN - -- - <> - FOR i IN 1..p_nnpcv_tab.COUNT LOOP - -- - IF p_nnpcv_tab(i).in_error THEN - -- - -- Only update if the row is in error - -- - l_value := 0; - -- - -- Get the value for the specific conp and coca for the given nomination - -- for the latest gas day in the valid nomination - -- - OPEN c_nnpcv( p_nnpcv_tab(i).conp_id - , p_nnpcv_tab(i).coca_id ); - FETCH c_nnpcv INTO l_value, l_gas_day, l_nepo_id; - IF c_nnpcv%NOTFOUND THEN - CLOSE c_nnpcv; - -- - NULL; - -- - ELSE - -- - CLOSE c_nnpcv; - -- - IF p_nom_table.COUNT > 0 THEN - -- - <> - FOR n IN 1..p_nom_table.COUNT LOOP - -- - IF p_nom_table(n).nr_nepo_id = l_nepo_id AND p_nom_table(n).nr_valid THEN - -- - -- Update the conf_net_point_cat_vals table with the found and provided values - -- - caco_debug.putline('Update confimation for: '||p_nnpcv_tab(i).conp_id); - -- - caco_debug.putline('UPDATE!'||l_value); - -- - caco_debug.putline('DEBUG4'); - UPDATE conf_net_point_cat_vals - SET last_nom_received = p_nomi_date - , last_nomi_id = p_nomi_id - , last_coru_id = p_coru_id - , last_gas_day = l_gas_day - , value = l_value - WHERE conf_id = p_conf_id - AND conp_id = p_nnpcv_tab(i).conp_id - AND coca_id = p_nnpcv_tab(i).coca_id; - -- - IF SQL%ROWCOUNT = 0 THEN - -- - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2212); - -- An unexpected error has occurred while creating confirmation. Please contact support - caco_debug.putline('efno_confirmations.upd_cnpcv_vals_with_nom: Unable to UPDATE conf_net_point_cat_vals : ' - ||' CONF_ID : '||p_conf_id - ||' CONP_ID : '||p_nnpcv_tab(i).conp_id - ||' COCA_ID : '||p_nnpcv_tab(i).coca_id ||sqlerrm(sqlcode)); - -- - ROLLBACK TO SAVEPOINT before_upd_cnpcv; - EXIT cnpcv_update_loop; - -- - ELSE - -- - p_nnpcv_tab(i).in_error := FALSE; - -- - END IF; - -- - -- Update the rest of the values - -- - caco_debug.putline('DEBUG5'); - UPDATE conf_net_point_cat_vals c - SET ( last_nom_received - , last_nomi_id - , last_coru_id - , last_gas_day - , value - ) = ( - SELECT p_nomi_date - ,p_nomi_id - ,p_coru_id - ,l_gas_day - ,nn.value - FROM nominations n - ,nom_net_point_cat_vals nn - ,cont_network_points cnp1 - ,cont_network_points cnp2 - ,contract_categories cc1 - ,contract_categories cc2 - WHERE nn.nomi_id = n.nomi_id - AND n.nomi_id = p_nomi_id - AND nn.coca_id = cc1.coca_id - AND nn.conp_id = cnp1.conp_id - AND c.coca_id = cc2.coca_id - AND c.conp_id = cnp2.conp_id - AND cnp1.nepo_id = cnp2.nepo_id - AND cc1.cate_id = cc2.cate_id - AND nn.gas_day = ( SELECT MAX( nnpcv2.gas_day ) - FROM nom_net_point_cat_vals nnpcv2 - WHERE nnpcv2.nomi_id = p_nomi_id ) - ) WHERE c.conf_id = p_conf_id - AND c.coca_id <> p_nnpcv_tab(i).coca_id - AND c.conp_id = p_nnpcv_tab(i).conp_id - AND EXISTS ( SELECT NULL - FROM nom_net_point_cat_vals nz1 - ,cont_network_points cnpz1 - ,cont_network_points cnpz2 - ,contract_categories ccz1 - ,contract_categories ccz2 - WHERE nz1.nomi_id = p_nomi_id - AND nz1.coca_id = ccz1.coca_id - AND nz1.conp_id = cnpz1.conp_id - AND cnpz1.nepo_id = cnpz2.nepo_id - AND ccz1.cate_id = ccz2.cate_id - AND cnpz2.conp_id = c.conp_id - AND ccz2.coca_id = c.coca_id - AND nz1.value IS NOT NULL); - -- - -- Now we need to update all other values to zero - -- - caco_debug.putline('DEBUG7'); - UPDATE conf_net_point_cat_vals - SET last_nom_received = p_nomi_date - , last_nomi_id = p_nomi_id - , last_coru_id = p_coru_id - , last_gas_day = l_gas_day - , value = 0 - , defaulted = 'N' - WHERE conf_id = p_conf_id - AND conp_id = p_nnpcv_tab(i).conp_id - AND last_nom_received IS NULL; - -- - END IF; - -- - END LOOP; - -- - END IF; - -- - END IF; - -- - END IF; - -- - END LOOP cnpcv_update_loop; - -- - -- - END IF; - -- - COMMIT; - caco_debug.putline('SP_CONF: upd_cnpcv_vals_with_nom 999'); - RETURN l_success; - -- -END upd_cnpcv_vals_with_nom; --- --- --- --- -/** --- FUNCTION evaluate_rule --- Validates a single EXISTING rule previously defined through the EFT Nominations Web interface --- and optionally validates the data stored --- --- Examples --- To just parse an existing ROW rule (not assigned to a contract or contract template) --- l_boolean := validate_rule( 12, 'ROW', TRUE, l_dummy_nom_data_table ); --- --- To parse a Rule for a specified contract template --- l_boolean := validate_rule( 12, 'ROW', TRUE, l_dummy_nom_data_table, 1 ); --- --- To parse a Rule for a specified contract --- l_boolean := validate_rule( 12, 'ROW', TRUE, l_dummy_nom_data_table, p_contract_id => 2 ); --- OR l_boolean := validate_rule( 12, 'ROW', TRUE, l_dummy_nom_data_table, NULL, 2 ); --- --- To parse a Rule for a contract AND validate the data for a nomination --- l_boolean := validate_rule( 12, 'ROW', FALSE, l_nom_data_table, p_contract_id => 2, p_nomination_id => 3 ); --- OR l_boolean := validate_rule( 12, 'ROW', FALSE, l_nom_data_table, NULL, 2, 3 ); --- --- %param p_rule_id The Unique identifier of the ROW or SHEET rule --- %param p_rule_type ROW or SHEET --- %param p_parse_only TRUE indicates that only syntax checking is required --- %param p_nom_table Table of resulting values passed out to the calling routine for evaluation --- %param p_template_id Unique identifier of a contract template --- %param p_contract_id Unique identifier of a contract --- %param p_nomination_id Unique identifier of a Nomination - used if not parsing --- --- %return BOOLEAN TRUE indicating that the rule is valid syntactically if parse only or that the data passed the test --- and values have been returned for further checking -*/ -FUNCTION evaluate_rule ( p_rule_id IN rules.rule_id%TYPE - , p_rule_type IN VARCHAR2 - , p_conf_id IN confirmations.conf_id%TYPE - , p_gas_day IN DATE - , p_nnpcv_tab OUT nnpcv_tab - , p_contract_id IN contracts.cont_id%TYPE DEFAULT 0 - , p_nomination_id IN nominations.nomi_id%TYPE DEFAULT 0 - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- Cursor to grab the parts of the row rule required - CURSOR c_row_rule IS - SELECT left_side - , right_side - , rule_relation - , error_message_hu - , error_message_en - FROM rules - WHERE rule_id = p_rule_id; - -- - -- Cursor to grab sheet based rule information - CURSOR c_sheet_rule IS - SELECT left_side - , right_side - , rule_relation - , error_message_hu - , error_message_en - FROM contract_rules - WHERE coru_id = p_rule_id; - -- - -- Cursor to get the date from a SHEET based nomination (our Confirmation copy of it) - -- (sheet based rules can only work against a single day nomination) - CURSOR c_sheet_nom IS - SELECT gas_day - FROM conf_net_point_cat_vals - WHERE conf_id = p_conf_id - AND ROWNUM = 1; - -- - -- Cursor to get the specific Network Points for the given nomination confirmation - -- 9/10/2009 SP for entry mandatory offer contracts we only need to - -- select the virtual network point for row based rules - CURSOR c_row_nom IS - SELECT DISTINCT conp.nepo_id network_point - , conp.display_sequence display_sequence - , conp.conp_id - FROM conf_net_point_cat_vals cnpcv - , cont_network_points conp - , network_points nepo - WHERE cnpcv.conf_id = p_conf_id - AND cnpcv.conp_id = conp.conp_id - AND nepo.nepo_id = conp.nepo_id - AND ((efno_contracts.emo_contract(p_contract_id) = 'Y' AND nepo.nepo_type = 'V') - OR efno_contracts.emo_contract(p_contract_id) = 'N') - ORDER BY conp.display_sequence ASC; - -- - -- - l_success BOOLEAN := TRUE; - -- - l_rule_row c_row_rule%ROWTYPE; - left_is_valid BOOLEAN := FALSE; - right_is_valid BOOLEAN := FALSE; - -- - -- - l_left_sql VARCHAR2(32767) := NULL; - l_left_select VARCHAR2(32767) := NULL; - l_left_from VARCHAR2(32767) := NULL; - l_left_where VARCHAR2(32767) := NULL; - l_left_side_value NUMBER := 0; - l_left_error VARCHAR2(255) := NULL; - -- - l_right_sql VARCHAR2(32767) := NULL; - l_right_select VARCHAR2(32767) := NULL; - l_right_from VARCHAR2(32767) := NULL; - l_right_where VARCHAR2(32767) := NULL; - l_right_side_value NUMBER := 0; - l_right_error VARCHAR2(255) := NULL; - -- - -- - l_gas_day DATE := NULL; - l_gas_day_char VARCHAR2(40) := NULL; - -- - rule_found BOOLEAN := FALSE; - l_no_data BOOLEAN := FALSE; - invalid_row_rules BOOLEAN := FALSE; - -- - l_element_count NUMBER := 0; - -- - l_nom_sites_count NUMBER := 0; - -- - BEGIN - -- - -- Get the rule information - caco_debug.putline('SP_CONF: evaluate_rule 001'); - -- - l_element_count := NVL(p_nnpcv_tab.COUNT, 0); - -- - IF UPPER(p_rule_type) = 'ROW' THEN - -- - OPEN c_row_rule; - FETCH c_row_rule INTO l_rule_row; - IF c_row_rule%FOUND THEN - rule_found := TRUE; - END IF; - CLOSE c_row_rule; - -- - ELSIF UPPER(p_rule_type) = 'SHEET' THEN - -- - OPEN c_sheet_rule; - FETCH c_sheet_rule INTO l_rule_row; - IF c_sheet_rule%FOUND THEN - rule_found := TRUE; - END IF; - CLOSE c_sheet_rule; - -- - -- Get the specific gas day for the SHEET rule - OPEN c_sheet_nom; - FETCH c_sheet_nom INTO l_gas_day; - -- - IF c_sheet_nom%NOTFOUND THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2267); - -- Invalid Nomination - Gas Day not found. Please contact support - END IF; - CLOSE c_sheet_nom; - -- - END IF; - -- - IF rule_found - AND l_success - THEN - -- - -- Need to fully evaluate the rule against the nomination data as we are not just parsing - IF p_nomination_id IS NOT NULL AND p_nomination_id > 0 - AND p_contract_id IS NOT NULL AND p_contract_id > 0 - THEN - -- - -- Find the specific gas day if the rule is a sheet based rule - IF UPPER(p_rule_type) = 'SHEET' THEN - -- Process/validate the left side - output used specifically for SHEET rules - left_is_valid := efno_rules.rule_text( p_text => l_rule_row.left_side - , p_rule_type => p_rule_type - , p_select => l_left_select - , p_from => l_left_from - , p_where => l_left_where - , p_nnpcv_tab => p_nnpcv_tab - , p_contract_id => p_contract_id - , p_nomination_id => p_nomination_id - , p_conf_id => p_conf_id - , p_force_conf => TRUE - , p_return_error => l_left_error ); - -- - -- Process/validate the Right side - right_is_valid := efno_rules.rule_text( p_text => l_rule_row.right_side - , p_rule_type => p_rule_type - , p_select => l_right_select - , p_from => l_right_from - , p_where => l_right_where - , p_nnpcv_tab => p_nnpcv_tab - , p_contract_id => p_contract_id - , p_nomination_id => p_nomination_id - , p_conf_id => p_conf_id - , p_force_conf => TRUE - , p_return_error => l_right_error ); - -- - IF l_left_error IS NOT NULL THEN - p_return_error := l_left_error; - ELSIF l_right_error IS NOT NULL THEN - p_return_error := l_right_error; - END IF; - -- - IF left_is_valid - AND right_is_valid - AND p_return_error IS NULL - THEN - -- Ensure that the FROMs and the WHEREs are not null - IF l_left_from IS NULL THEN - l_left_from := 'dual'; - END IF; - IF l_right_from IS NULL THEN - l_right_from := 'dual'; - END IF; - IF l_left_where IS NOT NULL THEN - l_left_where := ' WHERE '||l_left_where; - END IF; - IF l_right_where IS NOT NULL THEN - l_right_where := ' WHERE '||l_right_where; - END IF; - -- - -- We need to get the values - build the sql statements - l_left_sql := 'SELECT ('||l_left_select||') sql_value FROM '||l_left_from||l_left_where; - -- - l_right_sql := 'SELECT ('||l_right_select||') sql_value FROM '||l_right_from||l_right_where; - -- - -- We will have to replace any p_gas_day token with a TO_DATE conversion of the gas day - -- due to needing to submit a text SQL statement to DBMS_SQL - l_gas_day_char := 'TO_DATE('''||TO_CHAR(l_gas_day, 'DD-MON-YYYY')||''',''DD-MON-YYYY'')'; - -- - l_left_sql := REPLACE( l_left_sql, 'p_gas_day', l_gas_day_char ); - -- - l_right_sql := REPLACE( l_right_sql, 'p_gas_day', l_gas_day_char ); - -- - -- There should be only a single returned value from each side of the rule - efno_rules.evaluate_rule_sql( l_left_sql - , l_success - , l_no_data - , l_left_side_value ); - -- - IF l_success THEN - -- - -- Not worth doing this unless the left side was a success! - efno_rules.evaluate_rule_sql( l_right_sql - , l_success - , l_no_data - , l_right_side_value ); - -- - END IF; - -- - -- Success variable has already been set on result of evaluating each side of the SQL - -- So see if the values satisfy the relation - IF l_success THEN - -- - IF NOT efno_rules.rule_test_passed( l_left_side_value - , l_right_side_value - , l_rule_row.rule_relation ) THEN - -- - l_success := FALSE; - -- - END IF; - -- - END IF; - -- - ELSE - -- Either the left side or the right side of the rule is invalid - how much should we report? - -- If p_return_error is NULL then we have missing nnpcv records (contract changed) - -- Need to check for this in the calling package. - -- - -- Set the gas day in the nnpcv_tab for sheet nominations - -- (Row rules automatically have to do this) - IF NVL(p_nnpcv_tab.COUNT,0) > 0 THEN - FOR i IN 1..p_nnpcv_tab.COUNT LOOP - p_nnpcv_tab(i).gas_day := l_gas_day; - END LOOP; - END IF; - -- - l_success := FALSE; - -- - END IF; - -- - ELSE -- Row Rules - -- We need to run the rule for each and every site of the nomination - -- So we need to construct an array of left side values and the result - -- of the comparsion with the rule relation - FOR r IN c_row_nom LOOP - caco_debug.putline('Row Nom Loop: '||r.network_point); - END LOOP; - <> - FOR r IN c_row_nom LOOP - -- - caco_debug.putline('c_row_nom'); - -- - l_nom_sites_count := l_nom_sites_count + 1; - left_is_valid := FALSE; - right_is_valid := FALSE; - -- - l_no_data := FALSE; - l_left_sql := NULL; - l_right_sql := NULL; - l_left_error := NULL; - l_right_error := NULL; - -- - left_is_valid := efno_rules.rule_text( p_text => l_rule_row.left_side - , p_rule_type => p_rule_type - , p_select => l_left_select - , p_from => l_left_from - , p_where => l_left_where - , p_nnpcv_tab => p_nnpcv_tab - , p_contract_id => p_contract_id - , p_conf_id => p_conf_id - , p_nomination_id => p_nomination_id - , p_net_point_id => r.network_point - , p_gas_day => p_gas_day - , p_force_conf => TRUE - , p_return_error => l_left_error ); - -- - -- Process/validate the Right side - right_is_valid := efno_rules.rule_text( p_text => l_rule_row.right_side - , p_rule_type => p_rule_type - , p_select => l_right_select - , p_from => l_right_from - , p_where => l_right_where - , p_nnpcv_tab => p_nnpcv_tab - , p_contract_id => p_contract_id - , p_conf_id => p_conf_id - , p_nomination_id => p_nomination_id - , p_net_point_id => r.network_point - , p_gas_day => p_gas_day - , p_force_conf => TRUE - , p_return_error => l_right_error ); - -- - IF l_left_error IS NOT NULL THEN - p_return_error := l_left_error; - ELSIF l_right_error IS NOT NULL THEN - p_return_error := l_right_error; - END IF; - -- - IF left_is_valid - AND right_is_valid - AND p_return_error IS NULL - THEN - -- - -- Ensure that the FROMs and the WHEREs are not null - IF l_left_from IS NULL THEN - l_left_from := 'dual'; - END IF; - IF l_right_from IS NULL THEN - l_right_from := 'dual'; - END IF; - IF l_left_where IS NOT NULL THEN - l_left_where := ' WHERE '||l_left_where; - END IF; - IF l_right_where IS NOT NULL THEN - l_right_where := ' WHERE '||l_right_where; - END IF; - -- - -- We need to get the values so lets build the sql statements - l_left_sql := 'SELECT ('||l_left_select||') sql_value FROM '||l_left_from||l_left_where; - -- - l_right_sql := 'SELECT ('||l_right_select||') sql_value FROM '||l_right_from||l_right_where; - -- - -- - -- We will have to replace any p_gas_day token with a TO_DATE conversion of the gas day - -- due to needing to submit a text SQL statement to DBMS_SQL - l_gas_day_char := 'TO_DATE('''||TO_CHAR(p_gas_day, 'DD-MON-YYYY')||''',''DD-MON-YYYY'')'; - -- - l_left_sql := REPLACE( l_left_sql, 'p_gas_day', l_gas_day_char ); - l_right_sql := REPLACE( l_right_sql, 'p_gas_day', l_gas_day_char ); - -- - -- Get the fully evaluated Numeric Value of each side of the rule - -- for the given information and this specific network point - efno_rules.evaluate_rule_sql( l_left_sql - , l_success - , l_no_data - , l_left_side_value ); - -- --- IF l_success THEN - -- Not worth doing this unless the left side was a success! - efno_rules.evaluate_rule_sql( l_right_sql - , l_success - , l_no_data - , l_right_side_value ); --- END IF; - -- - IF NOT l_success THEN - -- Exit Loop as the rule won't validate... - caco_debug.putline('EXIT 1'); --- EXIT row_nom_loop2; - END IF; - -- - IF NOT efno_rules.rule_test_passed( l_left_side_value - , l_right_side_value - , l_rule_row.rule_relation ) THEN - -- - l_success := FALSE; - -- - FOR i IN l_element_count+1..p_nnpcv_tab.COUNT LOOP - -- - IF p_nnpcv_tab(i).conp_id = r.conp_id THEN - p_nnpcv_tab(i).in_error := TRUE; - caco_debug.putline('Element '||i||' in error'); - END IF; - -- - IF p_nnpcv_tab(i).in_error IS NULL THEN - -- - p_nnpcv_tab(i).in_error := FALSE; - -- - END IF; - -- - END LOOP; - -- - END IF; - -- - -- - ELSIF p_return_error IS NULL THEN - -- Dont want to Exit Loop even though the rule won't validate... - -- we need to check for every network point before failing - invalid_row_rules := TRUE; - -- - ELSE - -- Exit the loop - something went wrong that we havent dealt with - l_success := FALSE; - caco_debug.putline('EXIT 2'); - EXIT row_nom_loop2; - -- - END IF; - -- - END LOOP row_nom_loop; - -- - IF c_row_nom%ISOPEN THEN - CLOSE c_row_nom; - END IF; - -- - END IF; - -- - ELSE - -- - -- To evaluate the rule - we need the nomination id and contract id so this fails - -- - caco_debug.putline('Eval without nomination'); - -- - IF p_nomination_id IS NULL THEN - -- - -- Find the specific gas day if the rule is a sheet based rule - IF UPPER(p_rule_type) = 'SHEET' THEN - -- Process/validate the left side - output used specifically for SHEET rules - left_is_valid := efno_rules.rule_text( p_text => l_rule_row.left_side - , p_rule_type => p_rule_type - , p_select => l_left_select - , p_from => l_left_from - , p_where => l_left_where - , p_nnpcv_tab => p_nnpcv_tab - , p_contract_id => p_contract_id - , p_nomination_id => p_nomination_id - , p_conf_id => p_conf_id - , p_force_conf => TRUE - , p_return_error => l_left_error ); - -- - -- Process/validate the Right side - right_is_valid := efno_rules.rule_text( p_text => l_rule_row.right_side - , p_rule_type => p_rule_type - , p_select => l_right_select - , p_from => l_right_from - , p_where => l_right_where - , p_nnpcv_tab => p_nnpcv_tab - , p_contract_id => p_contract_id - , p_nomination_id => p_nomination_id - , p_conf_id => p_conf_id - , p_force_conf => TRUE - , p_return_error => l_right_error ); - -- - IF l_left_error IS NOT NULL THEN - p_return_error := l_left_error; - ELSIF l_right_error IS NOT NULL THEN - p_return_error := l_right_error; - END IF; - -- - IF left_is_valid - AND right_is_valid - AND p_return_error IS NULL - THEN - -- Ensure that the FROMs and the WHEREs are not null - IF l_left_from IS NULL THEN - l_left_from := 'dual'; - END IF; - IF l_right_from IS NULL THEN - l_right_from := 'dual'; - END IF; - IF l_left_where IS NOT NULL THEN - l_left_where := ' WHERE '||l_left_where; - END IF; - IF l_right_where IS NOT NULL THEN - l_right_where := ' WHERE '||l_right_where; - END IF; - -- - -- We need to get the values - build the sql statements - l_left_sql := 'SELECT ('||l_left_select||') sql_value FROM '||l_left_from||l_left_where; - -- - l_right_sql := 'SELECT ('||l_right_select||') sql_value FROM '||l_right_from||l_right_where; - -- - -- We will have to replace any p_gas_day token with a TO_DATE conversion of the gas day - -- due to needing to submit a text SQL statement to DBMS_SQL - l_gas_day_char := 'TO_DATE('''||TO_CHAR(l_gas_day, 'DD-MON-YYYY')||''',''DD-MON-YYYY'')'; - -- - l_left_sql := REPLACE( l_left_sql, 'p_gas_day', l_gas_day_char ); - -- - l_right_sql := REPLACE( l_right_sql, 'p_gas_day', l_gas_day_char ); - -- - -- There should be only a single returned value from each side of the rule - efno_rules.evaluate_rule_sql( l_left_sql - , l_success - , l_no_data - , l_left_side_value ); - -- - IF l_success THEN - -- - -- Not worth doing this unless the left side was a success! - efno_rules.evaluate_rule_sql( l_right_sql - , l_success - , l_no_data - , l_right_side_value ); - -- - END IF; - -- - -- Success variable has already been set on result of evaluating each side of the SQL - -- So see if the values satisfy the relation - IF l_success THEN - -- - IF NOT efno_rules.rule_test_passed( l_left_side_value - , l_right_side_value - , l_rule_row.rule_relation ) THEN - -- - l_success := FALSE; - -- - END IF; - -- - END IF; - -- - ELSE - -- Either the left side or the right side of the rule is invalid - how much should we report? - -- If p_return_error is NULL then we have missing nnpcv records (contract changed) - -- Need to check for this in the calling package. - -- - -- Set the gas day in the nnpcv_tab for sheet nominations - -- (Row rules automatically have to do this) - IF NVL(p_nnpcv_tab.COUNT,0) > 0 THEN - FOR i IN 1..p_nnpcv_tab.COUNT LOOP - p_nnpcv_tab(i).gas_day := l_gas_day; - END LOOP; - END IF; - -- - l_success := FALSE; - -- - END IF; - -- - ELSE -- Row Rules - -- We need to run the rule for each and every site of the nomination - -- So we need to construct an array of left side values and the result - -- of the comparsion with the rule relation - <> - FOR r IN c_row_nom LOOP - -- - caco_debug.putline('c_row_nom2 nepo:'||r.network_point); - -- - l_nom_sites_count := l_nom_sites_count + 1; - left_is_valid := FALSE; - right_is_valid := FALSE; - -- - l_no_data := FALSE; - l_left_sql := NULL; - l_right_sql := NULL; - l_left_error := NULL; - l_right_error := NULL; - -- - left_is_valid := efno_rules.rule_text( p_text => l_rule_row.left_side - , p_rule_type => p_rule_type - , p_select => l_left_select - , p_from => l_left_from - , p_where => l_left_where - , p_nnpcv_tab => p_nnpcv_tab - , p_contract_id => p_contract_id - , p_conf_id => p_conf_id - , p_nomination_id => p_nomination_id - , p_net_point_id => r.network_point - , p_gas_day => p_gas_day - , p_force_conf => TRUE - , p_return_error => l_left_error ); - -- - -- Process/validate the Right side - right_is_valid := efno_rules.rule_text( p_text => l_rule_row.right_side - , p_rule_type => p_rule_type - , p_select => l_right_select - , p_from => l_right_from - , p_where => l_right_where - , p_nnpcv_tab => p_nnpcv_tab - , p_contract_id => p_contract_id - , p_conf_id => p_conf_id - , p_nomination_id => p_nomination_id - , p_net_point_id => r.network_point - , p_gas_day => p_gas_day - , p_force_conf => TRUE - , p_return_error => l_right_error ); - -- - IF l_left_error IS NOT NULL THEN - p_return_error := l_left_error; - ELSIF l_right_error IS NOT NULL THEN - p_return_error := l_right_error; - END IF; - -- - IF left_is_valid - AND right_is_valid - AND p_return_error IS NULL - THEN - -- - -- Ensure that the FROMs and the WHEREs are not null - IF l_left_from IS NULL THEN - l_left_from := 'dual'; - END IF; - IF l_right_from IS NULL THEN - l_right_from := 'dual'; - END IF; - IF l_left_where IS NOT NULL THEN - l_left_where := ' WHERE '||l_left_where; - END IF; - IF l_right_where IS NOT NULL THEN - l_right_where := ' WHERE '||l_right_where; - END IF; - -- - -- We need to get the values so lets build the sql statements - l_left_sql := 'SELECT ('||l_left_select||') sql_value FROM '||l_left_from||l_left_where; - -- - l_right_sql := 'SELECT ('||l_right_select||') sql_value FROM '||l_right_from||l_right_where; - -- - -- - -- We will have to replace any p_gas_day token with a TO_DATE conversion of the gas day - -- due to needing to submit a text SQL statement to DBMS_SQL - l_gas_day_char := 'TO_DATE('''||TO_CHAR(p_gas_day, 'DD-MON-YYYY')||''',''DD-MON-YYYY'')'; - -- - l_left_sql := REPLACE( l_left_sql, 'p_gas_day', l_gas_day_char ); - l_right_sql := REPLACE( l_right_sql, 'p_gas_day', l_gas_day_char ); - --caco_debug.putline('Right: '|| l_right_sql); - --caco_debug.putline('Left: '|| l_left_sql); - -- - -- Get the fully evaluated Numeric Value of each side of the rule - -- for the given information and this specific network point - efno_rules.evaluate_rule_sql( l_left_sql - , l_success - , l_no_data - , l_left_side_value ); - -- --- IF l_success THEN - -- Not worth doing this unless the left side was a success! - caco_debug.putline('Eval right'); - efno_rules.evaluate_rule_sql( l_right_sql - , l_success - , l_no_data - , l_right_side_value ); --- END IF; - -- - IF NOT l_success THEN - -- Exit Loop as the rule won't validate... - caco_debug.putline('Rule not valid - EXIT1'); --- EXIT row_nom_loop; - END IF; - -- - caco_debug.putline(l_left_side_value||l_rule_row.rule_relation||l_right_side_value); - - IF NOT efno_rules.rule_test_passed( l_left_side_value - , l_right_side_value - , l_rule_row.rule_relation ) THEN - -- - -- Leave this in as it doesn't work without - -- - l_success := FALSE; - -- - FOR i IN l_element_count+1..p_nnpcv_tab.COUNT LOOP - -- - IF p_nnpcv_tab(i).conp_id = r.conp_id THEN - p_nnpcv_tab(i).in_error := TRUE; - caco_debug.putline('Element '||i||' in error'); - END IF; - -- - END LOOP; - -- - END IF; - -- - ELSIF p_return_error IS NULL THEN - -- Dont want to Exit Loop even though the rule won't validate... - -- we need to check for every network point before failing - invalid_row_rules := TRUE; - caco_debug.putline('**INVALID ROW RULES**'); - -- - ELSE - -- Exit the loop - something went wrong that we havent dealt with - l_success := FALSE; - caco_debug.putline('EXIT2'); - EXIT row_nom_loop; - -- - END IF; - -- - END LOOP row_nom_loop; - -- - IF c_row_nom%ISOPEN THEN - CLOSE c_row_nom; - END IF; - -- - END IF; - -- - END IF; - END IF; - -- - ELSIF NOT rule_found THEN - -- No rule found - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2433); - -- Rule not found. Please contact support - -- - END IF; - -- - IF invalid_row_rules THEN - l_success := FALSE; - END IF; - -- - caco_debug.putline('SP_CONF: evaluate_rule 999'); - RETURN l_success; - -- -EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(3581); - -- Error - caco_debug.putline('efno_confirmations.evaluate_rule - : Error : '||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Unexpected Error: '||sqlerrm(sqlcode) - ||chr(10)||'NOMI_ID: '||p_nomination_id - ||'Failed evaluating rules ' - ||'for gas day : '||TO_CHAR(p_gas_day,'DD-MON-YYYY') - , p_source => 'efno_confirmations.evaluate_rule'); - -- -END evaluate_rule; --- --- --- --- -FUNCTION fix_nom_with_lookback( p_conf_id IN confirmations.conf_id%TYPE - , p_gas_day IN DATE - , p_nomination_row IN nominations%ROWTYPE - , p_contract_id IN contracts.cont_id%TYPE - , p_rule_record IN efno_contracts.contract_rules_rec - , p_lookback_date IN DATE - , p_exception IN contracts.validation_exception%TYPE - , p_lookback_action IN contracts.lookback_action%TYPE - , p_nnpcv_tab IN nnpcv_tab - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- Require a cursor to list all "tip" nominations for the contract - CURSOR c_nominations( cp_last_nomi_date IN DATE - , cp_lookback_action IN VARCHAR2 - ) IS - SELECT nomi.nomi_id - , nomi.created_on - , nomi.status - , cont1.cust_id - FROM nominations nomi - ,contracts cont1 - WHERE nomi.cont_id = cont1.cont_id - AND cont1.cont_id IN (SELECT cont2.cont_id - FROM contracts cont2 - CONNECT BY PRIOR cont2.prev_cont_id = cont2.cont_id - START WITH cont2.cont_id = p_contract_id) - AND ( nomi.nomi_id < p_nomination_row.nomi_id - OR p_nomination_row.nomi_id IS NULL ) - AND EXISTS ( SELECT NULL - FROM nom_net_point_cat_vals nnpcv - WHERE nnpcv.nomi_id = nomi.nomi_id - GROUP BY nnpcv.gas_day - HAVING MIN(nnpcv.gas_day) <= (SELECT gas_day FROM confirmations WHERE conf_id = p_conf_id) - AND MIN(nnpcv.gas_day) >= p_lookback_date ) - AND ( ( nomi.status = 'A' -- 'A' will be the TIP each day - AND cp_lookback_action = 'T' - AND ( nomi_id IN ((SELECT nomi_id - FROM ( SELECT DISTINCT n.nomi_id, n.gas_day, no.created_on, RANK() OVER (partition by gas_day ORDER BY gas_day, no.created_on DESC) nom_rank - FROM nom_net_point_cat_vals n - ,nominations no - ,contracts c - WHERE n.nomi_id = no.nomi_id - AND no.cont_id = c.cont_id - AND c.cont_id IN (SELECT c2.cont_id - FROM contracts c2 - CONNECT BY PRIOR c2.prev_cont_id = c2.cont_id - START WITH c2.cont_id = p_contract_id) - ) - WHERE nom_rank = 1)) - ) - ) - OR ( cp_lookback_action = 'A' - ) - ) - ORDER BY ( SELECT MIN(nnpcv.gas_day) - FROM nom_net_point_cat_vals nnpcv - WHERE nnpcv.nomi_id = nomi.nomi_id - ) DESC, nomi.created_on DESC; -/* - SELECT nomi.nomi_id - , nomi.created_on - , nomi.status - , cont1.cust_id - FROM nominations nomi - ,contracts cont1 - ,contracts cont2 - WHERE nomi.cont_id = cont1.cont_id - AND cont1.cust_id = cont2.cust_id - AND cont2.cont_id = p_contract_id - AND ( nomi.nomi_id < p_nomination_row.nomi_id - OR p_nomination_row.nomi_id IS NULL ) - AND EXISTS ( SELECT NULL - FROM nom_net_point_cat_vals nnpcv - WHERE nnpcv.nomi_id = nomi.nomi_id - GROUP BY nnpcv.gas_day - HAVING MIN(nnpcv.gas_day) <= (SELECT gas_day FROM confirmations WHERE conf_id = p_conf_id) - AND MIN(nnpcv.gas_day) >= p_lookback_date ) - AND ( ( nomi.status = 'A' -- 'A' will be the TIP each day - AND cp_lookback_action = 'T' - AND ( nomi_id IN ((SELECT nomi_id - FROM ( SELECT DISTINCT n.nomi_id, n.gas_day, no.created_on, RANK() OVER (partition by gas_day ORDER BY gas_day, no.created_on DESC) nom_rank - FROM nom_net_point_cat_vals n - ,nominations no - ,contracts c - ,contracts c2 - WHERE n.nomi_id = no.nomi_id - AND no.cont_id = c.cont_id - AND c.cust_id = c2.cust_id - AND c2.cont_id = p_contract_id - ) - WHERE nom_rank = 1)) - ) - ) - OR ( cp_lookback_action = 'A' - ) - ) - ORDER BY ( SELECT MIN(nnpcv.gas_day) - FROM nom_net_point_cat_vals nnpcv - WHERE nnpcv.nomi_id = nomi.nomi_id - ) DESC, nomi.created_on DESC; -*/ - -- - -- Cursor to lookup the current status of the CNPCV value - CURSOR c_cnpcv_val( cp_conp_id IN NUMBER - , cp_coca_id IN NUMBER - , cp_gas_day IN DATE ) - IS - SELECT cnpcv.* - FROM conf_net_point_cat_vals cnpcv - ,cont_network_points t - ,cont_network_points t2 - ,contract_categories c - ,contract_categories c2 - WHERE cnpcv.conf_id = p_conf_id - AND t2.conp_id = cnpcv.conp_id - AND t.conp_id = cp_conp_id - AND t.nepo_id = t2.nepo_id - AND c.cate_id = c2.cate_id - AND c2.coca_id = cnpcv.coca_id - AND c.coca_id = cp_coca_id - AND gas_day = cp_gas_day; - -- - -- Cursor to get the days before figure that the nominations can be input - CURSOR c_days_before IS - SELECT receive_before_start - FROM contracts - WHERE cont_id = p_contract_id; - -- - l_cnpcv_val_rec c_cnpcv_val%ROWTYPE; - -- - l_temp_rule_id rules.rule_id%TYPE; - -- - l_nom_table efno_rules.nom_validation_table; - l_dummy_nnpcv_tab nnpcv_tab; - l_nnpcv_tab nnpcv_tab; - l_days_before NUMBER := 0; - l_oldest_nom_date DATE; - -- - values_defaulted BOOLEAN := FALSE; - found_valid_nom BOOLEAN := FALSE; - -- - l_success BOOLEAN := TRUE; - -- - BEGIN - -- - -- Get local copy to allow valid/invalid to be updated - -- - --caco_debug.debug_on; - caco_debug.putline('SP_CONF: fix_nom_with_lookback 001'); - l_nnpcv_tab := p_nnpcv_tab; - -- - FOR i IN 1..l_nnpcv_tab.COUNT LOOP - caco_debug.putline('*'||l_nnpcv_tab(i).conp_id||'-'||sys.diutil.bool_to_int(l_nnpcv_tab(i).in_error)); - END LOOP; - -- - caco_debug.putline('Enter fix with lookback'); - -- - -- Work out the temp_rule (to pass to "evaluate_rule" - -- - IF p_rule_record.rule_type = 'SHEET' THEN - l_temp_rule_id := p_rule_record.coru_id; - ELSE - l_temp_rule_id := p_rule_record.rule_id; - END IF; - -- - -- Get the Days before figure to add to sysdate to default the "oldest Nom date" - -- - OPEN c_days_before; - FETCH c_days_before - INTO l_days_before; - CLOSE c_days_before; - -- - l_oldest_nom_date := SYSDATE + l_days_before; - -- - -- We know the current nomination is invalid - and that it affects the given - -- nomination categories values within the p_nnpcv_tab. - -- So we need to find a previous nomination that still satisfies the given rule - -- If we cant find a previous nomination within the lookback window that satisifies - -- the given rule then we need to default the category values to the validation_exception - -- type - which will be the contracted value or the minimum. - -- - -- The values that satisfy the given rule should be placed onto the conf_net_point_cat_vals table - -- - -- We need to check if we have already updated the nom values previously - -- Get the oldest nomination id and date created for each of the items - -- - IF NVL(l_nnpcv_tab.COUNT,0) > 0 THEN - -- - <> - FOR i IN 1..l_nnpcv_tab.COUNT LOOP - -- - OPEN c_cnpcv_val( l_nnpcv_tab(i).conp_id - , l_nnpcv_tab(i).coca_id - , l_nnpcv_tab(i).gas_day ); - FETCH c_cnpcv_val INTO l_cnpcv_val_rec; - IF c_cnpcv_val%NOTFOUND THEN - CLOSE c_cnpcv_val; - -- problem - -- cant fix the value if it isn't found - this should never happen. - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2315); - -- Unable to locate required data. Please contact support - caco_debug.putline('efno_confirmations.fix_nom_with_lookback: Unable to locate data in conf_net_point_cat_vals: ' - ||' CONF_ID : '||p_conf_id - ||' CONP_ID : '||l_nnpcv_tab(i).conp_id - ||' COCA_ID : '||l_nnpcv_tab(i).coca_id ); - EXIT cnpcv_lookup_loop; - -- - ELSE - CLOSE c_cnpcv_val; - -- - -- Check to see if the CNPCV value has already been defaulted - IF l_cnpcv_val_rec.defaulted = 'Y' THEN - -- - caco_debug.putline('values have been defaulted'); - values_defaulted := TRUE; - -- - ELSIF NVL(l_cnpcv_val_rec.last_nom_received, SYSDATE + l_days_before) < l_oldest_nom_date THEN - -- - caco_debug.putline('oldest nom date : '||to_char(l_oldest_nom_date,'DD-MON-YYYY HH24:MI:SS') - ||' : Last nom received : ' - ||to_char(l_cnpcv_val_rec.last_nom_received,'DD-MON-YYYY HH24:MI:SS')); - -- Set the oldest nom date to be the oldest date already used to set a value - l_oldest_nom_date := l_cnpcv_val_rec.last_nom_received; - -- - END IF; - -- - END IF; - END LOOP cnpcv_lookup_loop; - -- - END IF; - -- - IF l_success THEN - -- now we can loop through the previous tip nominations and see if any of them are valid - IF values_defaulted THEN - -- - -- We should just default each of the categories in the list as at least one of them - -- has already been defaulted to either the MIN or CTR value - -- Call the routine to default the values for the categories in our table - l_success := default_cnpcv_values( p_gas_day - , p_conf_id - , l_nnpcv_tab - , p_exception - , p_return_error ); - -- - ELSE -caco_debug.putline('cp_last_nomi_date: '||l_oldest_nom_date||' lookback_date: '||p_lookback_date||' action: '||NVL(p_lookback_action, 'A')); - caco_debug.putline('Contract: '||p_contract_id||' Nomi : '||p_nomination_row.nomi_id||' conf: '||p_conf_id); - -- We should look back for a valid value from a previous nomination if there is one... - <> - FOR r IN c_nominations( l_oldest_nom_date - , NVL(p_lookback_action, 'A')) LOOP - -- - caco_debug.putline('we have a nom to look back at: nomi_id = '||r.nomi_id); - -- - l_nom_table.DELETE; - -- - -- We want to validate the nomination - not force the confirmation here..... - -- - <> - FOR rec_nom_lookback_gas_day IN (SELECT gas_day - FROM (SELECT gas_day - FROM nom_net_point_cat_vals - WHERE nomi_id = r.nomi_id - GROUP BY gas_day) - ORDER BY gas_day DESC) - LOOP - found_valid_nom := efno_rules.validate_rule_conf( p_gas_day => rec_nom_lookback_gas_day.gas_day -- p_gas_day - , p_rule_id => l_temp_rule_id - , p_rule_type => p_rule_record.rule_type - , p_parse_only => FALSE - , p_nnpcv_tab => l_nnpcv_tab - , p_nom_table => l_nom_table - , p_contract_id => p_contract_id - , p_nomination_id => r.nomi_id); - -- - IF found_valid_nom - THEN - EXIT nom_lookback_gas_day_loop; - END IF; - END LOOP; - -- ---caco_debug.debug_on; - FOR i IN 1..l_nnpcv_tab.COUNT LOOP - caco_debug.putline('*'||l_nnpcv_tab(i).conp_id||'-'||sys.diutil.bool_to_int(l_nnpcv_tab(i).in_error)); - END LOOP; - -- - caco_debug.putline('RETURN FROM efno_rules.evaluate_rules:'||l_nom_table.COUNT||':'||l_nnpcv_tab.COUNT); - -- - IF NVL(l_nom_table.COUNT,0) > 0 THEN - -- - found_valid_nom := FALSE; - -- - <> - FOR i IN 1..l_nom_table.COUNT LOOP - -- - caco_debug.putline('Value returned: '||l_nom_table(i).nr_nepo_id||':'||sys.diutil.bool_to_int(l_nom_table(i).nr_valid)); - -- - IF l_nom_table(i).nr_valid THEN - found_valid_nom := TRUE; - EXIT nom_loop; - END IF; - -- - END LOOP nom_loop; - -- - END IF; - -- - IF found_valid_nom THEN - -- - caco_debug.putline('Update nominated values'); - -- - -- Put the details of this nomination (l_lookback_nnpcv_tab) onto the p_nnpcv_tab entries - -- - l_success := upd_cnpcv_vals_with_nom( p_conf_id => p_conf_id - , p_nnpcv_tab => l_nnpcv_tab - , p_coru_id => p_rule_record.coru_id - , p_nomi_id => r.nomi_id - , p_nomi_date => r.created_on - , p_return_error => p_return_error - , p_nom_table => l_nom_table - ); - -- - -- Exit the loop - we got good values for the cnpcv_id's.. - -- so there is no point looking back any further. - -- --- EXIT nom_lookback_loop; - -- - END IF; - -- - END LOOP nom_lookback_loop; - -- - -- Now look to see if we still have any invalid values left over - -- - IF l_nnpcv_tab.COUNT > 0 THEN - -- - <> - FOR j IN 1..l_nnpcv_tab.COUNT LOOP - -- - IF l_nnpcv_tab(j).in_error THEN - -- - found_valid_nom := FALSE; - -- - EXIT l_nnpcv_loop; - -- - END IF; - -- - END LOOP; - -- - END IF; - -- - -- Did we find a valid nomination? If not, we need to default the values - -- - IF NOT found_valid_nom THEN - -- - caco_debug.putline('No valid nominations'); - -- Call the routine to default the values for the categories in our table - l_success := default_cnpcv_values( p_gas_day - , p_conf_id - , l_nnpcv_tab - , p_exception - , p_return_error - , TRUE ); - -- - END IF; - -- - END IF; -- values defaulted or not - -- - END IF; --successful GTT lookups - -- - caco_debug.putline('SP_CONF: fix_nom_with_lookback 999'); - RETURN l_success; - -- -END fix_nom_with_lookback; --- -FUNCTION fetch_contract_number( p_nomi_id IN nominations.nomi_id%TYPE ) - RETURN VARCHAR2 -IS - CURSOR c_cont IS - SELECT cont.contract_number - FROM contracts cont - , nominations nomi - WHERE nomi.cont_id = cont.cont_id - AND nomi.nomi_id = p_nomi_id; - -- - l_contract_number contracts.contract_number%TYPE := NULL; - -- -BEGIN - -- - OPEN c_cont; - FETCH c_cont INTO l_contract_number; - CLOSE c_cont; - -- - RETURN l_contract_number; - -- -END fetch_contract_number; --- -FUNCTION fetch_nom_identifier( p_nomi_id IN nominations.nomi_id%TYPE ) - RETURN VARCHAR2 -IS - CURSOR c_nomi IS - SELECT identifier - FROM nominations - WHERE nomi_id = p_nomi_id; - -- - l_identifier nominations.identifier%TYPE := NULL; - -- -BEGIN - -- - OPEN c_nomi; - FETCH c_nomi INTO l_identifier; - CLOSE c_nomi; - -- - RETURN l_identifier; - -- -END fetch_nom_identifier; --- -FUNCTION force_validate_cnpcv_nom( p_conf_id IN confirmations.conf_id%TYPE - , p_nomination_row IN nominations%ROWTYPE - , p_contract_id IN contracts.cont_id%TYPE - , p_gas_day IN DATE - , p_replace IN BOOLEAN DEFAULT FALSE - , p_ignore IN BOOLEAN DEFAULT FALSE - , p_window IN contracts.validation_window%TYPE DEFAULT 0 - , p_exception IN contracts.validation_exception%TYPE DEFAULT NULL - , p_lookback_action IN contracts.lookback_action%TYPE DEFAULT NULL - , p_validation_action IN contracts.validation_action%TYPE DEFAULT NULL - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- - l_lookback_date DATE; - l_rule_record efno_contracts.contract_rules_rec; - l_temp_rule rules.rule_id%TYPE; - l_nnpcv_tab nnpcv_tab; - rule_valid BOOLEAN := TRUE; - nom_invalid BOOLEAN := FALSE; - missing_nnpcv BOOLEAN := FALSE; - -- - l_success BOOLEAN := TRUE; - -- - l_count_rules NUMBER := 0; - -- -BEGIN -caco_debug.putline('SP_CONF: force_validate_cnpcv_nom 001'); - -- Check we have permission to be using this module. -/* IF NOT caco_security.security_check('efnow095$') THEN - p_return_error := caco_utilities.get_module_text(960); -- You do not have permission to use this application - RETURN FALSE; - END IF; -*/ -- - -- The full lookback date is the confirmation gas day minus the lookback window - l_lookback_date := p_gas_day - p_window; - -- - caco_debug.putline('Lookback window date is : '||to_char(l_lookback_date,'DD-MON-YYYY')); - -- - -- Need to loop through the contract rules and validate the nomination held in the global temporary table - -- If a rule fails, we need to perform the appropriate action as depicted by the received parameters - -- If we are truncating values to Max then we complete all rules - -- If we are looking back for a validation window, we fix the failed rule and exit - -- - OPEN efno_contracts.c_rules( p_contract_id ); - FETCH efno_contracts.c_rules INTO l_rule_record; - -- - <> - WHILE efno_contracts.c_rules%FOUND LOOP - -- - l_count_rules := l_count_rules + 1; - l_temp_rule := 0; - l_nnpcv_tab.DELETE; - -- - IF l_rule_record.rule_type = 'SHEET' THEN - l_temp_rule := l_rule_record.coru_id; - ELSE - l_temp_rule := l_rule_record.rule_id; - END IF; - -- - rule_valid := evaluate_rule( l_temp_rule - , l_rule_record.rule_type - , p_conf_id - , p_gas_day - , l_nnpcv_tab - , p_contract_id - , p_nomination_row.nomi_id - , p_return_error ); - -- - caco_debug.putline('Z0 post evaluate rule: '||p_return_error||':bool:'||sys.diutil.bool_to_int(rule_valid)); - -- - IF NOT rule_valid - AND p_return_error IS NULL - THEN - -- Check to see if any of the nnpcv values were missing - IF NVL(l_nnpcv_tab.COUNT,0) > 0 THEN - <> - FOR i IN 1..l_nnpcv_tab.COUNT LOOP - -- - IF l_nnpcv_tab(i).missing = 'Y' THEN - missing_nnpcv := TRUE; - EXIT missing_nnpcv_loop; - END IF; - -- - END LOOP missing_nnpcv_loop; - END IF; - -- - IF missing_nnpcv THEN - -- - caco_debug.putline('Have missing nnpcv so must create them : rule_type :' - ||l_rule_record.rule_type||': rule/coru number : '||l_temp_rule); - -- - create_missing_cnpcv( p_conf_id => p_conf_id - , p_nomi_id => p_nomination_row.nomi_id - , p_nnpcv_tab => l_nnpcv_tab - , p_exception => p_exception - , p_validation_action => p_validation_action - , p_success => l_success - , p_return_error => p_return_error - , p_cont_id => p_contract_id - , p_lookback_date => l_lookback_date - , p_lookback_action => p_lookback_action ); - -- - END IF; - -- - caco_debug.putline('Pre-lookback'); - -- - IF l_success THEN - -- - IF p_replace THEN - -- - caco_debug.putline('about to replace'); - -- - l_success := replace_cnpcv( p_conf_id - , l_nnpcv_tab - , p_exception - , p_return_error ); - -- - IF NOT l_success THEN - EXIT contract_rules_loop; - END IF; - -- - ELSIF p_ignore THEN - -- - NULL; - -- - ELSE - -- - caco_debug.putline('about to fix nom with lookback'); - -- - l_success := fix_nom_with_lookback( p_conf_id - , p_gas_day - , p_nomination_row - , p_contract_id - , l_rule_record - , l_lookback_date - , p_exception - , p_lookback_action - , l_nnpcv_tab - , p_return_error ); - -- - IF NOT l_success THEN - EXIT contract_rules_loop; - END IF; - -- - nom_invalid := TRUE; - -- EXIT contract_rules_loop; -- commented 05/06 AG, not sure if this should be here? - -- - END IF; - -- - ELSIF p_return_error IS NOT NULL THEN - -- Something went wrong in creating the missing cnpcv records - -- We have to abandon the attempt - nom_invalid := TRUE; - EXIT contract_rules_loop; - END IF; - -- - ELSIF p_return_error IS NOT NULL THEN - -- Something went wrong in the force of the nomination - -- We have to abandon the attempt - nom_invalid := TRUE; - EXIT contract_rules_loop; - -- - END IF; - -- - -- Fetch the next rule record - FETCH efno_contracts.c_rules INTO l_rule_record; - -- - END LOOP contract_rules_loop; - -- - CLOSE efno_contracts.c_rules; - -- - caco_debug.putline('SP_CONF: force_validate_cnpcv_nom 999'); - RETURN nom_invalid; - -- -END force_validate_cnpcv_nom; --- --- -FUNCTION insert_comm_conf( p_nomi_id IN nominations.nomi_id%TYPE - , p_cont_id IN contracts.cont_id%TYPE - , p_gas_day IN DATE - , p_conf_id OUT confirmations.conf_id%TYPE - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - PRAGMA AUTONOMOUS_TRANSACTION; - -- - l_success BOOLEAN := TRUE; - -- -BEGIN - -- - caco_debug.putline('SP_CONF: insert_comm_conf 001'); - -- - SAVEPOINT before_insert; - -- - BEGIN - INSERT INTO confirmations - ( conf_id - , confirmation_type - , nomi_id - , approved - , cont_id - , gas_day ) - VALUES - ( conf_seq.NEXTVAL - , 'CO' - , p_nomi_id - , 'N' - , p_cont_id - , p_gas_day ) - RETURNING conf_id INTO p_conf_id; - -- - COMMIT; - -- - EXCEPTION - WHEN others THEN - ROLLBACK TO SAVEPOINT before_insert; - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2330); - -- An unexpected error has occurred. Please contact support - caco_debug.putline('efno_confirmations.insert_comm_conf : NOMI_ID :' - ||p_nomi_id||' : Error : '||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Insert failed : ' - ||'NOMI_ID :'||p_nomi_id - ||' : Error : '||sqlerrm(sqlcode) - , p_source => 'efno_confirmations.insert_comm_conf'); - -- - END; - -- - caco_debug.putline('SP_CONF: insert_comm_conf 999'); - RETURN l_success; - -- -END insert_comm_conf; --- --- --- --- -FUNCTION update_comm_conf( p_conf_id IN confirmations.conf_id%TYPE - , p_spreadsheet IN BLOB - , p_conf_text IN CLOB - , p_conf_type IN contract_options.conf_type%TYPE - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - PRAGMA AUTONOMOUS_TRANSACTION; - -- - l_success BOOLEAN := TRUE; - -- -BEGIN - SAVEPOINT before_update; - -- - BEGIN - -- - UPDATE confirmations conf - SET conf.confirmation = p_spreadsheet - , conf.confirmation_text = p_conf_text - , conf.conf_file_type = p_conf_type - WHERE conf_id = p_conf_id; - -- - COMMIT; - -- - EXCEPTION - WHEN others THEN - ROLLBACK TO SAVEPOINT before_update; - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2330); - -- An unexpected error has occurred. Please contact support - caco_debug.putline('efno_confirmations.update_comm_conf : CONF_ID :'||p_conf_id - ||chr(10)||' : Error : '||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Update failed : ' - ||'CONF_ID :'||p_conf_id||chr(10) - ||' : Error : '||sqlerrm(sqlcode) - , p_source => 'efno_confirmations.update_comm_conf'); - -- - END; - -- - RETURN l_success; - -- -END update_comm_conf; --- --- --- --- -PROCEDURE clearup_failed_comm_conf( p_conf_id IN confirmations.conf_id%TYPE ) -IS - PRAGMA AUTONOMOUS_TRANSACTION; -BEGIN - -- - DELETE conf_net_point_cat_vals - WHERE conf_id = p_conf_id; - -- - DELETE confirmations - WHERE conf_id = p_conf_id; - -- - COMMIT; - -- -EXCEPTION - WHEN others THEN - ROLLBACK; - caco_debug.putline('efno_confirmations.clearup_failed_comm_conf : CONF_ID :'||p_conf_id - ||chr(10)||' : Error : '||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed to clear up commercial confirmation - this needs to be done manually : ' - ||chr(10)||'CONF_ID :'||p_conf_id - ||chr(10)||': Error : '||sqlerrm(sqlcode) - , p_source => 'efno_confirmations.clearup_failed_comm_conf'); - -- - RAISE; -END clearup_failed_comm_conf; --- --- --- --- --- --- -FUNCTION copy_nom_to_cnpcv( p_conf_id IN confirmations.conf_id%TYPE - , p_nomi_id IN nominations.nomi_id%TYPE - , p_cont_id IN contracts.cont_id%TYPE - , p_gas_day IN DATE - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - PRAGMA AUTONOMOUS_TRANSACTION; - -- - CURSOR c_cnpcv IS - SELECT p_conf_id conf_id - , nnpcv_id nnpcv_id - , value value - , gas_day gas_day - , c.coca_id coca_id - , nomi_id nomi_id - , t.conp_id conp_id - FROM nom_net_point_cat_vals n - ,cont_network_points t - ,cont_network_points t2 - ,contract_categories c - ,contract_categories c2 - WHERE n.nomi_id = p_nomi_id - AND t.cont_id = p_cont_id - AND t.nepo_id = t2.nepo_id - AND t2.conp_id = n.conp_id - AND c.cont_id = p_cont_id - AND c.cate_id = c2.cate_id - AND c2.coca_id = n.coca_id - AND gas_day = p_gas_day; - -- - l_success BOOLEAN := TRUE; - l_dummy VARCHAR2(100); - l_value conf_net_point_cat_vals.value%TYPE; - l_interrupted conf_net_point_cat_vals.interrupted%TYPE; - -- -BEGIN -caco_debug.putline('SP_CONF: copy_nom_to_cnpcv 001'); -caco_debug.putline('p_conf_id: '||p_conf_id); -caco_debug.putline('p_nomi_id: '||p_nomi_id); -caco_debug.putline('p_cont_id: '||p_cont_id); -caco_debug.putline('p_gas_day: '||p_gas_day); - SAVEPOINT before_insert; - -- - FOR r IN c_cnpcv LOOP - -- check for an active interruption - l_value := get_interrupted_value( r.conp_id - , r.coca_id - , r.gas_day ); - -- - /* IF l_value IS NULL THEN - l_value := r.value; - l_interrupted := 'N'; - ELSE - IF l_value > r.value THEN - l_value := r.value; - END IF; - l_interrupted := 'Y'; - END IF; */ -- removed 13/02 to stop interruptions taking priority - IF l_value IS NOT NULL THEN - l_interrupted := 'Y'; - END IF; - -- - l_value := r.value; - -- - BEGIN - INSERT INTO conf_net_point_cat_vals - ( conf_id - , nnpcv_id - , value - , gas_day - , coca_id - , nomi_id - , conp_id - , interrupted ) - VALUES - ( p_conf_id - , r.nnpcv_id - , l_value - , r.gas_day - , r.coca_id - , r.nomi_id - , r.conp_id - , l_interrupted ); - EXCEPTION - WHEN others THEN - ROLLBACK TO SAVEPOINT before_insert; - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2266); - -- Internal error copying nomination detail records for confirmation. Please contact support - caco_debug.putline('efno_confirmations.copy_nom_to_cnpcv - : NOMI_ID :'||p_nomi_id - ||' : Error : '||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Unexpected Error: '||sqlerrm(sqlcode) - ||chr(10)||'NOMI_ID: '||p_nomi_id - ||'Failed inserting into conf_net_point_cat_vals ' - ||'for gas day : '||TO_CHAR(p_gas_day,'DD-MON-YYYY') - , p_source => 'efno_confirmations.copy_nom_to_cnpcv'); - -- - END; - -- - END LOOP; - COMMIT; - -- - caco_debug.putline('SP_CONF: copy_nom_to_cnpcv 999'); - RETURN l_success; - -- -END copy_nom_to_cnpcv; --- -FUNCTION force_comm_conf( p_conf_id IN confirmations.conf_id%TYPE - , p_nomination_row IN nominations%ROWTYPE - , p_contract_row IN contracts%ROWTYPE - , p_gas_day IN DATE - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN IS - -- - nom_invalid BOOLEAN := TRUE; - l_success BOOLEAN := TRUE; - l_tip_nomi_id nominations.nomi_id%TYPE; - l_cont_id_used contracts.cont_id%TYPE; - l_nnpcv_tab nnpcv_tab; - l_contract_row contracts%ROWTYPE; - -- -BEGIN - caco_debug.putline('SP_CONF: force_comm_conf 001'); - -- We know that the nomination didn't fully validate as we are having to force the confirmation - -- Copy the nomination category values to a global temporary table - IF p_nomination_row.nomi_id IS NOT NULL THEN - -- - -- - -- - l_success := copy_nom_to_cnpcv( p_conf_id - , p_nomination_row.nomi_id - , p_contract_row.cont_id - , p_gas_day - , p_return_error ); - -- - l_success := remove_surplus_cnpcv ( p_conf_id => p_conf_id - , p_cont_id => p_contract_row.cont_id - , p_return_error => p_return_error - ); - -- - l_contract_row := p_contract_row; --- l_contract_row.validation_exception := 'EX'; - -- - l_success := add_missing_cnpcv ( p_conf_id => p_conf_id - , p_nomi_id => p_nomination_row.nomi_id - , p_contract_row => l_contract_row - , p_gas_day => p_gas_day - , p_return_error => p_return_error - , p_defaulted => 'N' - ); - -- - ELSE - -- - -- No nomination found, precreate the confirmation details (perhaps invalid?) - -- - IF p_contract_row.validation_action = 'B' THEN - -- - l_contract_row := p_contract_row; ---caco_debug.putline('SP_CONF: force_comm_conf(setting to EX) 500'); --- l_contract_row.validation_exception := 'EX'; - - l_success := add_missing_cnpcv ( p_conf_id => p_conf_id - , p_nomi_id => NULL - , p_contract_row => l_contract_row - , p_gas_day => p_gas_day - , p_return_error => p_return_error - , p_defaulted => 'N' - ); - -- - END IF; - -- - END IF; - --- - -- Look below, if didn't have a nomi_id nothing happened - -- as previously the condition above switches l_success to FALSE - -- now we should have a nomi_id so the remainder should handle all the - -- pitfalls of validating a nomination entered on one contract - -- against another contract! - --- - -- - -- Now we need to validate the nomination and mark the invalid category/ies - IF l_success THEN - -- - -- So what here? - -- We need to know what fails. - -- - -- IF l_contract_row.validation_action = 'I' - -- I - leave Invalid - -- Leave the nomination invalid - so nothing to do - -- otherwise.... - IF p_contract_row.validation_action = 'T' THEN - -- T - Replace (with exception value) - -- nom_invalid is throwaway here as we wont try to make the nomination valid - -- we will just replace those values that are invalid to the specified value - IF p_nomination_row.nomi_id IS NULL THEN - -- - -- If no nom, might as well do as we did before as there is nothing to look back at today - -- - nom_invalid := force_validate_cnpcv_nom( p_conf_id => p_conf_id - , p_nomination_row => p_nomination_row - , p_contract_id => p_contract_row.cont_id - , p_gas_day => p_gas_day - , p_replace => TRUE - , p_return_error => p_return_error ); - ELSE - -- - -- Fix with lookback for today only - -- --- caco_debug.debug_on; - caco_debug.putline('Lookback 0 days'); - nom_invalid := force_validate_cnpcv_nom( p_conf_id => p_conf_id - , p_nomination_row => p_nomination_row - , p_contract_id => p_contract_row.cont_id - , p_gas_day => p_gas_day - , p_window => 0 - , p_exception => p_contract_row.validation_exception - , p_lookback_action => 'A' - , p_validation_action => p_contract_row.validation_action - , p_return_error => p_return_error ); - -- - END IF; - -- - IF p_return_error IS NOT NULL THEN - -- Have been unable to force the nomination to validate (or unable to fix missing nnpcv) - -- Has to be a serious error! - l_success := FALSE; - -- - END IF; - -- - ELSIF p_contract_row.validation_action = 'B' THEN - -- B - lookBack - -- Look back - use a loop to keep recalling the validate routine - -- until we have either got a valid nomination or have used min or contracted values --- <> --- WHILE nom_invalid LOOP - -- - nom_invalid := force_validate_cnpcv_nom( p_conf_id => p_conf_id - , p_nomination_row => p_nomination_row - , p_contract_id => p_contract_row.cont_id - , p_gas_day => p_gas_day - , p_window => p_contract_row.validation_window - , p_exception => p_contract_row.validation_exception - , p_lookback_action => p_contract_row.lookback_action - , p_validation_action => p_contract_row.validation_action - , p_return_error => p_return_error ); - -- - IF p_return_error IS NOT NULL THEN - -- Have been unable to force the nomination to validate - -- Has to be a serious error! - l_success := FALSE; --- EXIT lookback_loop; - -- - END IF; - - --EXIT lookback_loop; - -- --- END LOOP lookback_loop; - -- - ELSE - -- - -- Ignore - replace with eith min, max or contracted, do not attempt lookback. - -- - nom_invalid := force_validate_cnpcv_nom( p_conf_id => p_conf_id - , p_nomination_row => p_nomination_row - , p_contract_id => p_contract_row.cont_id - , p_gas_day => p_gas_day - , p_ignore => TRUE - , p_return_error => p_return_error ); - -- - IF p_return_error IS NOT NULL THEN - -- Have been unable to force the nomination to validate (or unable to fix missing nnpcv) - -- Has to be a serious error! - l_success := FALSE; - -- - END IF; - -- - END IF; - -- - END IF; - -- - caco_debug.putline('SP_CONF: force_comm_conf 999'); - RETURN l_success; - -- -END force_comm_conf; --- --- --- --- --- -FUNCTION create_comm_conf( p_nomi_id IN nominations.nomi_id%TYPE - , p_force IN VARCHAR2 - , p_gas_day IN DATE - , p_cont_id IN contracts.cont_id%TYPE - , p_conf_id OUT confirmations.conf_id%TYPE - , p_return_error OUT VARCHAR2 ) RETURN BOOLEAN IS - -- - CURSOR c_contract IS - SELECT * - FROM contracts - WHERE cont_id = p_cont_id; - -- - CURSOR c_contract_options IS - SELECT * - FROM contract_options - WHERE cont_id = p_cont_id; - -- - CURSOR c_customer( cp_cust_id IN NUMBER ) IS - SELECT * - FROM customers - WHERE cust_id = cp_cust_id; - -- - CURSOR c_nomination IS - SELECT * - FROM nominations - WHERE nomi_id = p_nomi_id; - -- - -- - l_contract_row c_contract%ROWTYPE; - l_cont_opt_row c_contract_options%ROWTYPE; - l_nomination_row c_nomination%ROWTYPE; - l_customer_row c_customer%ROWTYPE; - -- - l_confirmation_id confirmations.conf_id%TYPE; - l_spreadsheet BLOB; - l_conf_text_clob CLOB; - l_conf_text VARCHAR2(32767); - l_timestamp DATE; - -- - l_success BOOLEAN := TRUE; - -- -BEGIN -caco_debug.putline('SP_CONF: create_comm_conf 001: '||P_NOMI_ID); - -- Default the conf_id - p_conf_id := -1; - -- - -- Get the required details - IF p_nomi_id IS NOT NULL THEN - -- - OPEN c_nomination; - FETCH c_nomination - INTO l_nomination_row; - IF c_nomination%NOTFOUND THEN - -- - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2261); - -- Failed to find Nomination Details - -- - END IF; - CLOSE c_nomination; - -- - END IF; - -- - IF l_success THEN - -- - OPEN c_contract; - FETCH c_contract - INTO l_contract_row; - IF c_contract%NOTFOUND THEN - -- - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2260); - -- Failed to find Contract details for nomination - -- - END IF; - CLOSE c_contract; - -- - END IF; - -- - IF l_success THEN - -- - OPEN c_contract_options; - FETCH c_contract_options - INTO l_cont_opt_row; - IF c_contract_options%NOTFOUND THEN - -- - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2260); - -- Failed to find Contract details for nomination - -- - END IF; - CLOSE c_contract_options; - -- - END IF; - -- - IF l_success THEN - -- - OPEN c_customer( l_contract_row.cust_id ); - FETCH c_customer INTO l_customer_row; - IF c_customer%NOTFOUND THEN - -- - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2239); - -- Customer not found - -- - END IF; - CLOSE c_customer; - -- - END IF; - -- - -- If everything went well so far then we should create a "stub" of a confirmation - IF l_success THEN - -- - l_success := insert_comm_conf( p_nomi_id - , p_cont_id - , p_gas_day - , l_confirmation_id - , p_return_error ); - -- - END IF; - -- - -- - IF l_success THEN - -- - -- Create the confirmation text as a combination of various bits - l_conf_text := l_cont_opt_row.com_conf_subject; - l_conf_text := l_conf_text||chr(10)||chr(10); - l_conf_text := l_cont_opt_row.com_conf_content; - -- Replace any tokens within the text - l_conf_text := REPLACE(l_conf_text, '{NOMINATION_IDENTIFIER}', l_nomination_row.identifier); - l_conf_text := REPLACE(l_conf_text, '{GAS_DAY}', TO_CHAR(p_gas_day, cout_system_configuration.get_configuration_item('G_DATE_FORMAT'))); - l_conf_text := REPLACE(l_conf_text, '{CONFIRMATION_IDENTIFIER}', l_confirmation_id ); - -- - -- Add this to the temporary CLOB - l_conf_text_clob := NVL(l_conf_text,' '); - -- - IF p_force = 'N' THEN - -- Copy the nomination to the confirmation detail table - l_success := copy_nom_to_cnpcv( l_confirmation_id - , p_nomi_id - , p_cont_id - , p_gas_day - , p_return_error ); - -- - ELSIF p_force = 'Y' THEN - -- - -- Need to create a temporary table of the nomination - l_success := force_comm_conf( l_confirmation_id - , l_nomination_row -- currently will be empty if no nomination found (e.g. contract closed) - , l_contract_row - , p_gas_day - , p_return_error ); - -- - ELSE - -- - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2330); - -- An unexpected error has occurred. Please contact support - -- - END IF; - -- - -- If the contract has changed and removed a Network Point or Category - -- then we need to remove those nominated network points or categories - -- (it is theoretically possible that the rules wont check everything) - IF l_success THEN - -- - l_success := remove_surplus_cnpcv( l_confirmation_id - , l_contract_row.cont_id - , p_return_error ); - -- - END IF; - -- - -- Final check for the created Confirmation. - -- If the contract has changed and Added a Network Point or Category - -- then we need to add the default values for those nepo or cate - -- (it is theoretically possible that the rules wont check everything) - IF l_success THEN - -- - l_success := add_missing_cnpcv( l_confirmation_id - , l_nomination_row.nomi_id - , l_contract_row - , p_gas_day - , p_return_error ); - -- - END IF; - -- - IF l_success THEN - -- Create the spreadsheet from the confirmation (conf_net_point_cat_vals) - BEGIN - l_spreadsheet := amfr_excel.return_conf(p_conf_id => l_confirmation_id); - EXCEPTION - WHEN OTHERS THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2212); - -- An unexpected error has occurred while creating confirmation. Please contact support - END; - END IF; - -- - IF l_success THEN - -- - -- Finally, Insert it all into the confirmations table - l_success := update_comm_conf( l_confirmation_id - , l_spreadsheet - , l_conf_text_clob - , l_customer_row.conf_type - , p_return_error ); - -- - IF l_success THEN - -- Set the return confirmation id - p_conf_id := l_confirmation_id; - END IF; - -- - ELSE - -- clear up after a failure - clearup_failed_comm_conf( p_conf_id => l_confirmation_id ); - -- - END IF; - -- - END IF; - -- - caco_debug.putline('SP_CONF: create_comm_conf 999'); - RETURN l_success; - -- - EXCEPTION - WHEN OTHERS THEN - caco_debug.putline('efno_confirmations.create_comm_conf - Error : '||sqlerrm(sqlcode)); - -- -END create_comm_conf; --- --- --- --- -PROCEDURE send_comm_conf( p_gas_day IN VARCHAR2 - , p_nomi_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_cont_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_accept IN owa_util.vc_arr DEFAULT g_vc_arr - , p_force IN owa_util.vc_arr DEFAULT g_vc_arr ) -IS - -- - l_s_conf_id owa_util.vc_arr; - l_f_nomi_id owa_util.vc_arr; - l_f_nom_identifier owa_util.vc_arr; - l_f_cont_num owa_util.vc_arr; - l_f_conf_error owa_util.vc_arr; - l_conf_id confirmations.conf_id%TYPE; - l_conf_error VARCHAR2(255); - -- - l_gas_day DATE; - l_count_nom NUMBER := 0; - l_successful_nom NUMBER := 0; - l_failed_comm_con NUMBER := 0; - successful_comm_conf BOOLEAN := TRUE; - process_this_nom BOOLEAN := TRUE; - l_success BOOLEAN := TRUE; - -- - BEGIN - -- --- caco_debug.debug_on; - -- - caco_debug.putline('SP_CONF: send_comm_conf 001'); - -- Check we have permission to be using this module. - IF NOT caco_security.security_check('efnow095$') THEN - RETURN; - END IF; - -- - -- Check that we have had some data delivered - l_count_nom := NVL(p_nomi_id.COUNT,0); - -- - IF l_count_nom = 0 - OR NVL(p_accept.COUNT,0) != l_count_nom - OR NVL(p_force.COUNT,0) != l_count_nom - THEN - -- Either no data was passed to the routine or there is a mismatch in the number - -- of data items presented in the three arrays - -- Either way we shouldnt continue as something has gone wrong - l_success := FALSE; - -- - END IF; - -- - -- Ensure that the passed VARCHAR date converts to DATE - IF l_success THEN - -- - BEGIN - SELECT TO_DATE(p_gas_day, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) - INTO l_gas_day - FROM dual; - EXCEPTION - WHEN others THEN - l_success := FALSE; - END; - -- - END IF; - -- - IF l_success THEN - -- - FOR i IN 1..p_nomi_id.COUNT LOOP - -- - -- Reset any variables - successful_comm_conf := TRUE; - process_this_nom := TRUE; - l_conf_error := NULL; - -- - -- Lets deal with simplicity first. - IF p_accept(i) = 'Y' THEN - -- - -- We just need to create the commercial confirmation spreadsheet directly from - -- the nomination as we know that the nomination was correct (can only 'accept' if it was valid) - -- this saves us from revalidating the entire nomination - successful_comm_conf := create_comm_conf( p_nomi_id(i) - , 'N' - , l_gas_day - , p_cont_id(i) - , l_conf_id - , l_conf_error ); - -- - ELSIF p_force(i) = 'Y' THEN - -- - -- In this scenario, the nomination is not valid - -- We have to revalidate every nominated category against the contract - -- For those items that are invalid, we have to attempt to find valid values either - -- by traversing through all previous tip nominations until we find a valid value - - -- if one is not found then we have to take the contracted or minimum amount from the - -- contract parameter values - or we truncate the value to the contracted or minimum - -- - -- If we cannot find a value due to missing nnpcv entries, we should create one based - -- upon the Validation Exception of the Contract - i.e. create a cnpcv entry specifically - -- for the confirmation (only stored in cnpcv - not in nnpcv). - -- - caco_debug.putline('efno_confirmation point A10'); - successful_comm_conf := create_comm_conf( p_nomi_id(i) - , 'Y' - , l_gas_day - , p_cont_id(i) - , l_conf_id - , l_conf_error - ); - caco_debug.putline('efno_confirmation point A20'); - -- - ELSE - -- - -- Dont want to process this one - not accepted and not forced. - -- - process_this_nom := FALSE; - -- - END IF; - -- - -- - IF NOT successful_comm_conf - AND process_this_nom - THEN - -- - -- We need to record details to pass back to the user - use some arrays - l_failed_comm_con := l_failed_comm_con + 1; - -- - -- Get the Nomination Identifier and Contract number - l_f_nomi_id(l_failed_comm_con) := p_nomi_id(i); - l_f_nom_identifier(l_failed_comm_con) := fetch_nom_identifier( p_nomi_id(i) ); - l_f_cont_num(l_failed_comm_con) := p_cont_id(i); - l_f_conf_error(l_failed_comm_con) := l_conf_error; - -- - ELSIF process_this_nom THEN - -- - -- Successful - store info for showing as a mini report - l_successful_nom := l_successful_nom + 1; - -- - l_s_conf_id(l_successful_nom) := l_conf_id; - -- - END IF; - -- - END LOOP; - -- - -- need to call the send confirmation screen with appropriate success and failure report. - -- probably better to be a different screen within the efnow095$ package - -- - efnow095$.approve_confirmations( 'CREATED' - , l_s_conf_id - , l_f_nomi_id - , l_f_nom_identifier - , l_f_cont_num - , l_f_conf_error ); - -- - ELSE - -- We should just report an error back to the Send Confirmation screen - efnow095$.startup( p_error => 'Y' - , p_error_text => caco_utilities.get_module_text(2330) ); - -- An unexpected error has occurred. Please contact support - -- - END IF; - -- - caco_debug.putline('SP_CONF: send_comm_conf 999'); - -- -END send_comm_conf; --- --- --- --- -PROCEDURE app_or_del_comm_conf( p_conf_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_approve IN owa_util.vc_arr DEFAULT g_vc_arr - , p_delete IN owa_util.vc_arr DEFAULT g_vc_arr - ) -IS - -- - -- Cursor to get Commercial confirmation details - CURSOR c_conf( cp_conf_id IN NUMBER ) IS - SELECT conf.confirmation - , conf.confirmation_text - , nomi.identifier - , cont.cust_id - , coop.com_conf_subject - , conf.gas_day - , cust.code - , conf.conf_file_type - FROM confirmations conf - , nominations nomi - , contracts cont - , customers cust - , contract_options coop - WHERE conf.conf_id = cp_conf_id - AND conf.nomi_id = nomi.nomi_id (+) - AND conf.cont_id = cont.cont_id - AND cust.cust_id = cont.cust_id - AND coop.cont_id = cont.cont_id; - -- - l_conf_rec c_conf%ROWTYPE; - l_timestamp DATE; - l_sms_msg_en VARCHAR2(160); - l_sms_msg_hu VARCHAR2(160); - -- - l_document_name documents.name%TYPE; - -- -BEGIN - -- - -- Check we have permission to be using this module. - IF NOT g_auto_gen THEN - -- - IF NOT caco_security.security_check('efnow095$') THEN - RETURN; - END IF; - -- - END IF; - -- - IF NVL(p_conf_id.COUNT,0) > 0 - AND NVL(p_conf_id.COUNT,0) = NVL(p_approve.COUNT,0) - AND NVL(p_conf_id.COUNT,0) = NVL(p_delete.COUNT,0) - THEN - -- We have some data to deal with. - FOR i IN 1..p_conf_id.COUNT LOOP - -- - l_conf_rec := NULL; - l_timestamp := NULL; - -- - IF p_approve(i) = 'Y' - AND p_delete(i) = 'N' - THEN - -- - OPEN c_conf( p_conf_id(i) ); - FETCH c_conf INTO l_conf_rec; - IF c_conf%FOUND THEN - -- - -- Timestamping - l_timestamp := amfr_timestamp.timestamp_document( p_identifier => p_conf_id(i) - , p_doctype => amfr_timestamp.c_confirmation - , p_file_for_hash => l_conf_rec.confirmation ); - -- - upd_conf_timestamp( p_conf_id(i) - , l_timestamp - ); - -- - -- Confirmation Acceptance for Nomination sent at - -- Define the English SMS content - l_sms_msg_en := caco_utilities.get_module_text( p_text_number => 2233 - , p_language => 'EN' ); - l_sms_msg_en := REPLACE( l_sms_msg_en, '', l_conf_rec.identifier ); - l_sms_msg_en := REPLACE( l_sms_msg_en, '', TO_CHAR(l_timestamp, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')||' HH24:MI:SS') ); - -- - -- Define the Hungarian SMS content - l_sms_msg_hu := caco_utilities.get_module_text( p_text_number => 2233 - , p_language => 'HU' ); - l_sms_msg_hu := REPLACE( l_sms_msg_hu, '', l_conf_rec.identifier ); - l_sms_msg_hu := REPLACE( l_sms_msg_hu, '', TO_CHAR(l_timestamp, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')||' HH24:MI:SS') ); - -- - -- Replace the tags in the SMS content - -- - l_conf_rec.com_conf_subject := REPLACE(l_conf_rec.com_conf_subject, '{NOMINATION_IDENTIFIER}', l_conf_rec.identifier); - l_conf_rec.com_conf_subject := REPLACE(l_conf_rec.com_conf_subject, '{GAS_DAY}', TO_CHAR(l_conf_rec.gas_day, cout_system_configuration.get_configuration_item('G_DATE_FORMAT'))); - l_conf_rec.com_conf_subject := REPLACE(l_conf_rec.com_conf_subject, '{CONFIRMATION_IDENTIFIER}', p_conf_id(i) ); - -- - l_document_name := REPLACE(l_conf_rec.code,' ','_')||'_'||TO_CHAR(l_conf_rec.gas_day, 'YYYYMMDD')||'_'||TO_CHAR(p_conf_id(i)); - -- - IF l_conf_rec.conf_file_type = 'E' THEN - -- - l_document_name := l_document_name||'.xls'; - -- - ELSIF l_conf_rec.conf_file_type = 'X' THEN - -- - l_document_name := l_document_name||'.xml'; - -- - END IF; - -- - efno_msgsubs.send_messages( p_cust_id => l_conf_rec.cust_id - , p_suca_id => efno_msgsubs.get_suca_id( p_suca_group => 'CONFIRMATION' - , p_suca_name => 'ACCEPTANCE' ) - , p_email_content_en => DBMS_LOB.SUBSTR(l_conf_rec.confirmation_text,32767,1) - , p_email_subject_en => l_conf_rec.com_conf_subject - , p_sms_content_en => l_sms_msg_en - , p_sms_content_hu => l_sms_msg_hu - , p_file => l_conf_rec.confirmation - , p_filename => l_document_name - , p_file_mime_type => 'application/vnd.ms-excel' ); - -- - END IF; - CLOSE c_conf; - -- - ELSIF p_approve(i) = 'N' - AND p_delete(i) = 'Y' - THEN - -- - clearup_failed_comm_conf( p_conf_id(i) ); - -- - END IF; - -- - END LOOP; - -- - END IF; - -- - -- Finally just recall the approve confirmations screen with no values - -- (if nothing was passed - nothing will have happened) - -- Only call if proc was called from the screen and not through auto generation of confirmations - IF NOT g_auto_gen THEN - efnow095$.approve_confirmations; - END IF; - -- -END app_or_del_comm_conf; --- --- -/** --- PROCEDURE auto_gen_confirmations --- Automatically generate confirmations for the given gas day. --- and Customer type (if provided otherwaise all customers) --- --- %param p_gas_day Gas Day that Commercial confirmations shuold be created for --- %param p_cuty_id Customer Type ID. All customer if excluded --- -*/ -PROCEDURE auto_gen_confirmations( p_gas_day IN DATE - , p_cuty_id IN customer_types.cuty_id%TYPE - , p_cnrt_id IN conf_run_times.cnrt_id%TYPE DEFAULT NULL ) IS - -- - l_found_nomination BOOLEAN; - l_nomination_valid BOOLEAN; - l_nomi_id nominations.nomi_id%TYPE; - l_dummy VARCHAR2(255); - l_success BOOLEAN; - -- - l_conf_id confirmations.conf_id%TYPE; - l_return_error VARCHAR2(255); - -- - l_conf_id_arr owa_util.vc_arr; - l_conf_a_arr owa_util.vc_arr; - l_conf_d_arr owa_util.vc_arr; - -- - l_cfrl_id conf_run_log.cfrl_id%TYPE; - -- - l_cont_count NUMBER := 0; - l_nom_count NUMBER := 0; - l_force_count NUMBER := 0; - l_conf_sent NUMBER := 0; - l_log_details VARCHAR2(1000); - l_run_date DATE := SYSDATE; - -- - BEGIN - -- - -- Set global flag to indicate to other confirmation processes we are being called by a job - -- - g_auto_gen := TRUE; - -- - -- Loop around all active contracts for the cuty - -- - caco_debug.putline('Entered efno_confirmation.auto_gen_confirmation with:'); - caco_debug.putline('p_gas_day '||p_gas_day); - caco_debug.putline('p_cuty_id '||p_cuty_id); - caco_debug.putline('p_cnrt_id '||p_cnrt_id); - -- - IF p_cnrt_id IS NOT NULL THEN - -- - INSERT INTO conf_run_log ( cnrt_id - , start_time - ) - VALUES ( p_cnrt_id - , SYSDATE - ) - RETURNING cfrl_id INTO l_cfrl_id; - -- - END IF; - -- - FOR cont_rec IN ( SELECT cont.cont_id - ,coop.auto_gen_conf - FROM contracts cont - ,customers cust - ,contract_options coop - WHERE cont.cust_id = cust.cust_id - AND cust.cuty_id = p_cuty_id - AND cont.cont_id = coop.cont_id - AND p_gas_day BETWEEN cont.valid_from AND cont.valid_until - AND cont.status = 'O' ) LOOP - -- - l_found_nomination := FALSE; - l_nomination_valid := FALSE; - l_nomi_id := NULL; - l_cont_count := l_cont_count + 1; - -- - -- Now look for an active nomination - -- - FOR nomi_rec IN ( SELECT nomi.nomi_id - FROM nominations nomi - , nom_net_point_cat_vals nnpcv - WHERE nomi.cont_id = cont_rec.cont_id - AND nnpcv.nomi_id = nomi.nomi_id - AND nomi.status = 'A' - GROUP BY nomi.nomi_id - HAVING p_gas_day BETWEEN MIN(nnpcv.gas_day) AND MAX(nnpcv.gas_day) - ) LOOP - -- - l_found_nomination := TRUE; - l_nomi_id := nomi_rec.nomi_id; - -- - EXIT; - -- - END LOOP; - -- - IF l_found_nomination THEN - -- - -- We have a nomination, lets check that its valid - -- - l_nomination_valid := efno_contracts.validate_nomination( cont_rec.cont_id - , l_nomi_id - , l_dummy - ); - -- - END IF; - -- - -- If a nomination was found which is valid, no need to force, otherwise force the commercial confirmation - -- - IF l_found_nomination AND l_nomination_valid THEN - -- - l_nom_count := l_nom_count + 1; - -- - l_success := create_comm_conf( l_nomi_id - , 'N' - , p_gas_day - , cont_rec.cont_id - , l_conf_id - , l_return_error - ); - -- - ELSE - -- - l_force_count := l_force_count + 1; - -- - l_success := create_comm_conf( NULL - , 'Y' - , p_gas_day - , cont_rec.cont_id - , l_conf_id - , l_return_error - ); - -- - END IF; - -- - IF l_success AND cont_rec.auto_gen_conf = 'Y' THEN - -- - l_conf_sent := l_conf_sent + 1; - -- - l_conf_id_arr.DELETE; - l_conf_a_arr.DELETE; - l_conf_d_arr.DELETE; - -- - l_conf_id_arr(1):= l_conf_id; - l_conf_a_arr(1) := 'Y'; - l_conf_d_arr(1) := 'N'; - -- - app_or_del_comm_conf( p_conf_id => l_conf_id_arr - , p_approve => l_conf_a_arr - , p_delete => l_conf_d_arr - ); - -- - ELSIF NOT l_success THEN - -- - cout_err.report_and_go( p_exception_number => 20001 - , p_exception_message => 'Unable to create confirmation for : ' - ||' CONT_ID : ' - ||cont_rec.cont_id - ||' : NOMI_ID : ' - ||l_nomi_id - ||CHR(10) - ||' Error Msg : ' - ||l_return_error - , p_source => 'efno_confirmations.auto_gen_confirmations' - ); - -- - END IF; - -- - END LOOP; - -- - l_log_details := TO_CHAR(l_cont_count)||' contracts processed, '||TO_CHAR(l_nom_count)||' valid nominations, '||TO_CHAR(l_force_count)||' confirmations forced and '||TO_CHAR(l_conf_sent)||' confirmations automatically sent.'; - -- - IF p_cnrt_id IS NOT NULL THEN - -- - UPDATE conf_run_log - SET end_time = SYSDATE - ,log_details = l_log_details - WHERE cfrl_id = l_cfrl_id; - -- - END IF; - -- - caco_debug.putline('End auto_gen_confirmations'); - -- -EXCEPTION - -- - WHEN OTHERS THEN - -- - -- Write an error and stop - -- - cout_err.report_and_stop( p_exception_number => SQLCODE - , p_exception_message => 'Automatic Generation of confirmations failed : ' - ||' Gas Day : ' - ||TO_CHAR(p_gas_day,'DD-MON-YYYY') - ||CHR(10) - ||' Error Msg : ' - ||SQLERRM(SQLCODE) - , p_source => 'efno_confirmations.auto_gen_confirmations' - ); - -- -END auto_gen_confirmations; --- --- --- --- -/** --- FUNCTION about --- --- Returns the version number and VSS header for this package --- --- %return The version number and VSS header for this package -*/ -FUNCTION about RETURN VARCHAR2 IS -BEGIN - RETURN ( g_revision || CHR(10) || g_header ); -END about; --- --- -BEGIN - -- Initialization - NULL; - -- -END efno_confirmations; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efno_contracts.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efno_contracts.bdy deleted file mode 100644 index 3c5733c..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efno_contracts.bdy +++ /dev/null @@ -1,5009 +0,0 @@ -CREATE OR REPLACE PACKAGE BODY efno_contracts IS - --- Single point of finding Contract rules in the correct order. -CURSOR c_rules( cp_cont_id IN NUMBER ) - RETURN contract_rules_rec -IS - SELECT display_sequence - , rule_name - , rule_type - , coru_id - , rule_id - , inherited - FROM ( - SELECT coru.display_sequence display_sequence - , rule.rule_name rule_name - , coru.coru_type rule_type - , coru.coru_id coru_id - , coru.rule_id rule_id - , coru.inherited inherited - FROM contract_rules coru - , rules rule - WHERE rule.rule_id = coru.rule_id - AND coru.cont_id = cp_cont_id - UNION ALL - SELECT display_sequence - , rule_name - , coru_type - , coru_id - , rule_id - , inherited - FROM contract_rules - WHERE cont_id = cp_cont_id - AND rule_id IS NULL - ) - ORDER BY rule_type DESC -- SHEET rules first (contract specific) - , inherited DESC -- Inherited (Y) first - , display_sequence ASC - , rule_name ASC; --- --- -FUNCTION invalidate_inty( p_contract_id IN contracts.cont_id%TYPE) - RETURN BOOLEAN -IS - CURSOR c_inty IS - SELECT inty_id - FROM interruption_types - WHERE cate_id IN (SELECT cate_id - FROM contract_categories - WHERE cont_id = p_contract_id) - AND status = 'A' - AND expiry_date > SYSDATE; - -- - l_success BOOLEAN := TRUE; - -- -BEGIN - SAVEPOINT before_upd_inty; - -- - <> - FOR r IN c_inty LOOP - -- - BEGIN - -- - UPDATE interruption_types - SET status = 'I' - WHERE inty_id = r.inty_id; - -- - EXCEPTION - WHEN others THEN - l_success := FALSE; - caco_debug.putline('efno_contracts.invalidate_inty: ' - ||'Update of interruption types failed: ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed updating INTY: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.invalidate_inty'); - -- - ROLLBACK TO SAVEPOINT before_upd_inty; - EXIT upd_inty_loop; - END; - END LOOP; - -- - RETURN l_success; - -- -END invalidate_inty; - /** - -- FUNCTION contract_active - -- - -- Determines whether a given contract ID is active and current - -- - -- %param p_cont_id The unique identifier for a contract - -- - -- %return BOOLEAN Indicates whether the contract is active - */ - FUNCTION contract_active ( p_cont_id IN contracts.cont_id%TYPE ) RETURN BOOLEAN IS - -- - l_return BOOLEAN := FALSE; - -- - BEGIN - -- - FOR cont IN ( SELECT NULL - FROM contracts cont - WHERE cont.cont_id = p_cont_id - AND cont.status = 'O' - AND TRUNC(SYSDATE) BETWEEN cont.valid_from AND cont.valid_until ) LOOP - -- - -- will only retuen one row as unique key lookup - -- - l_return := TRUE; - -- - END LOOP; - -- - RETURN l_return; - -- - END contract_active; --- --- -/** --- FUNCTION validate_nomination --- Fairly Simplistic function that will just return TRUE or FALSE --- to indicate if the given nomination is valid for the contract as it stands --- --- %param p_contract_id The Unique identifier of a Contract --- %param p_nomination_id The Unique identifier of a Nomination --- %param p_return_error OUT: Message giving brief reason why the rule is invalid if indeed it is --- --- %return BOOLEAN TRUE indicating that the nomination is valid -*/ -FUNCTION validate_nomination( p_contract_id IN contracts.cont_id%TYPE - , p_nomination_id IN nominations.nomi_id%TYPE - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- - -- Cursor to get the contract details - CURSOR c_contract IS - SELECT * - FROM contracts - WHERE cont_id = p_contract_id; - -- - -- Cursor to get the nomination identifier and the min and max days of the nom - -- this is required to ensure that the nominations fall within the contract validity period - CURSOR c_nomination IS - SELECT nomi.identifier identifier - , MIN(nnpcv.gas_day) gas_day_from - , MAX(nnpcv.gas_day) gas_day_to - FROM nominations nomi - , nom_net_point_cat_vals nnpcv - WHERE nnpcv.nomi_id = nomi.nomi_id - AND nomi.nomi_id = p_nomination_id - GROUP BY nomi.identifier; - -- - -- - l_contract_row c_contract%ROWTYPE; - l_nom_row c_nomination%ROWTYPE; - l_rule_id NUMBER := 0; - l_nnpcv_tab efno_confirmations.nnpcv_tab; - l_nom_validation_table efno_rules.nom_validation_table; - -- - rule_valid BOOLEAN := TRUE; - -- - l_success BOOLEAN := TRUE; - -- -BEGIN - -- - -- Check we have permission to be using this module. - -- Only called from the Create commercial confirmation screen - IF NOT caco_security.security_check('efnow095$') THEN - RETURN FALSE; - END IF; - -- - -- Get the Contract row - OPEN c_contract; - FETCH c_contract INTO l_contract_row; - IF c_contract%NOTFOUND THEN - -- problem - no contract! - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2235); -- Contract not found - END IF; - CLOSE c_contract; - -- - IF l_success THEN - -- Get the nomination details - OPEN c_nomination; - FETCH c_nomination INTO l_nom_row; - IF c_nomination%NOTFOUND THEN - -- no nomination! How can this happen? - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2288); -- Nomination not found - END IF; - CLOSE c_nomination; - -- - END IF; - -- - IF l_success THEN - -- Lets check that the nomination gas days are within the contract period - IF l_contract_row.valid_from > l_nom_row.gas_day_from - OR l_contract_row.valid_until < l_nom_row.gas_day_to - THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2285); -- Nomination Gas Days are not within the Contract validity period - END IF; - END IF; - -- - IF l_success THEN - -- Lets loop through all the rules for the contract and check that the - -- nomination data is valid for them - <> - FOR r IN c_rules( p_contract_id ) LOOP - -- - l_nom_validation_table.DELETE; - rule_valid := FALSE; - l_rule_id := 0; - -- - IF r.rule_type = 'SHEET' THEN - l_rule_id := r.coru_id; - ELSE - l_rule_id := r.rule_id; - END IF; - -- - rule_valid := efno_rules.validate_rule( p_rule_id => l_rule_id - , p_rule_type => r.rule_type - , p_parse_only => FALSE - , p_nnpcv_tab => l_nnpcv_tab - , p_nom_table => l_nom_validation_table - , p_contract_id => p_contract_id - , p_nomination_id => p_nomination_id ); - -- - IF rule_valid THEN - -- We now need to check that all of the data satisified the conditions of the rule - -- just need to check nr_valid in the validation_table - IF NVL(l_nom_validation_table.COUNT,0) > 0 THEN - -- - FOR i IN 1..l_nom_validation_table.COUNT LOOP - -- - IF NOT l_nom_validation_table(i).nr_valid THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2284); -- Nomination Data failed Contract Rule validation - EXIT nom_rule_loop; - END IF; - END LOOP; - -- - END IF; - -- - ELSE - -- The nommination failed rule validation - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2234); -- Contract Rule is invalid - EXIT nom_rule_loop; - END IF; - -- - END LOOP nom_rule_loop; - -- - -- - END IF; - -- - RETURN l_success; - -- -END validate_nomination; - - - - - -PROCEDURE find_passed_net_points( p_nepo_array IN owa_util.vc_arr - , p_network_point_array OUT network_point_array ) -IS - l_count NUMBER := 0; -BEGIN - -- - IF NVL(p_nepo_array.COUNT,0) > 0 THEN - FOR i IN p_nepo_array.FIRST .. p_nepo_array.LAST LOOP - -- - l_count := l_count + 1; - p_network_point_array(l_count) := TO_NUMBER(p_nepo_array(i)); - -- - END LOOP; - END IF; - -- -END find_passed_net_points; - - - - - -PROCEDURE find_passed_categories( p_cate_array IN owa_util.vc_arr - , p_category_array OUT category_array ) -IS - l_count NUMBER := 0; -BEGIN - -- - IF NVL(p_cate_array.COUNT,0) > 0 THEN - FOR i IN p_cate_array.FIRST .. p_cate_array.LAST LOOP - -- - l_count := l_count + 1; - -- - p_category_array(l_count).cate_id := TO_NUMBER(p_cate_array(i)); - p_category_array(l_count).inherited := 'N'; - -- - -- Set sequence to added sequence rather than inherited sequence - -- - p_category_array(l_count).display_sequence := l_count; - -- - END LOOP; - END IF; - -- -END find_passed_categories; - - - - - - -PROCEDURE find_passed_parameters( p_pars_array IN owa_util.vc_arr - , p_parameter_array OUT parameter_array ) -IS - l_count NUMBER := 0; -BEGIN - -- - IF NVL(p_pars_array.COUNT,0) > 0 THEN - FOR i IN p_pars_array.FIRST .. p_pars_array.LAST LOOP - -- - l_count := l_count + 1; - -- - p_parameter_array(l_count).pars_id := TO_NUMBER(p_pars_array(i)); - p_parameter_array(l_count).inherited := 'N'; -- default value - replace it later (for contracts) - -- - END LOOP; - END IF; - -- -END find_passed_parameters; - --- Function to check if the nomination gate closure has occured for a given date -FUNCTION check_gate_closure ( p_cont_id IN contracts.cont_id%TYPE - , p_date IN DATE - ) RETURN BOOLEAN IS - -- - l_return BOOLEAN := TRUE; - l_deadline VARCHAR2(5) := NULL; - l_active_date DATE := NULL; - l_date DATE := NULL; - l_cust_id NUMBER := NULL; - -- - FUNCTION in_a_renom_window - RETURN BOOLEAN IS - -- - l_return BOOLEAN := FALSE; - -- - BEGIN - -- - FOR i IN ( SELECT NULL - FROM nomination_windows nw - ,nom_window_contracts nwc - WHERE nw.nowi_id = nwc.nowi_id - AND nwc.cont_id = p_cont_id - AND nw.gas_day = TRUNC(SYSDATE - cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24) + cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24 - AND SYSDATE BETWEEN nw.window_start AND nw.window_end - ) LOOP - -- - l_return := TRUE; - -- - EXIT; - -- - END LOOP; - -- - RETURN l_return; - -- - END in_a_renom_window; - -- - FUNCTION get_deadline ( p_cust_id IN customers.cust_id%TYPE ) RETURN VARCHAR2 IS - -- - l_return VARCHAR2(5) := NULL; - -- - BEGIN - -- - SELECT cust.ind_deadline_for_nom_submit - INTO l_return - FROM customers cust - WHERE cust.cust_id = p_cust_id; - -- - IF l_return IS NULL THEN - -- - l_return := cout_system_configuration.get_configuration_item('G_SUBMISSION_DEADLINE'); - -- - END IF; - -- - RETURN l_return; - -- - END get_deadline; - -- - BEGIN - -- - -- get the cust_id from contracts table - SELECT cust_id - INTO l_cust_id - FROM contracts - WHERE cont_id = p_cont_id; - -- - l_date := TRUNC(SYSDATE - cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24)+ - NVL(cout_system_configuration.get_configuration_item('G_NOM_DATE_OFFSET'),1); - IF l_date = p_date THEN - -- - -- There is a nomination for tomorrow, need to check gate closure - -- - l_deadline := get_deadline(p_cust_id => l_cust_id); - -- - IF l_deadline IS NOT NULL THEN - -- - IF TO_NUMBER(RTRIM(SUBSTR(l_deadline,1,2),':')) < cout_system_configuration.get_configuration_item(p_parameter => 'GAS_DAY_OFFSET') THEN - -- - -- Is tomorrow, add one to the date - -- - l_active_date := TO_DATE(TO_CHAR(TRUNC(SYSDATE - cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24),'DD/MM/YYYY')||l_deadline, 'DD/MM/YYYYHH24:MI')+1; - -- - ELSE - -- - -- same calendar date, OK - -- - l_active_date := TO_DATE(TO_CHAR(TRUNC(SYSDATE - cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24),'DD/MM/YYYY')||l_deadline, 'DD/MM/YYYYHH24:MI'); - -- - END IF; - -- - -- Determined what the deadline is, now check it - -- - IF SYSDATE > l_active_date THEN - -- - l_return := FALSE; - -- - END IF; -- p_date > l_active_date - -- - END IF; -- l_deadline not null - -- - END IF; -- nominating for tomorrow - -- - -- Renom window check - -- - IF l_date > p_date THEN - -- - -- Nominating for today, check for renom window - -- - IF NOT in_a_renom_window THEN - -- - l_return := FALSE; - -- - END IF; - -- - END IF; - -- - RETURN l_return; - -- - END check_gate_closure; - --- FUNCTION recalc_emo_noms --- --- recalculate any nominations for the entry mandatory offer contract which are before gate closure --- --- %param p_cont_id The unique identifier for a contract --- %param p_err_msg to return an error message to calling program --- %return BOOLEAN Indicates whether the function succeeded -FUNCTION recalc_emo_noms ( p_cont_id IN contracts.cont_id%TYPE - ,p_err_msg OUT VARCHAR2 ) RETURN BOOLEAN IS - -- - l_success BOOLEAN := TRUE; - l_tot_perc_split NUMBER := 0; - -- - CURSOR c_vnepo_coca (cp_nomi_id NUMBER - ,cp_gas_day DATE) IS - SELECT nnpcv.coca_id - , nnpcv.value value - FROM nom_net_point_cat_vals nnpcv - , contracts cont - , cont_network_points conp - , network_points nepo - WHERE nnpcv.nomi_id = cp_nomi_id - AND nnpcv.gas_day = cp_gas_day - AND cont.cont_id = p_cont_id - AND nnpcv.conp_id = conp.conp_id - AND conp.nepo_id = nepo.nepo_id - AND nepo.nepo_type = 'V' - ORDER BY 1; - -- -BEGIN - caco_debug.putline('efno_contracts.recalc_emo_noms - start'); - -- get the total of the percentage split values - OPEN efnow098$.c_tot_perc_split(p_cont_id); - FETCH efnow098$.c_tot_perc_split INTO l_tot_perc_split; - CLOSE efnow098$.c_tot_perc_split; - -- - -- loop round all active nominations for the contract to see if they need recalculating - -- starting with two days back to be safe. - FOR nom IN ( SELECT nomi.nomi_id - ,nnpcv.gas_day - FROM nominations nomi - ,nom_net_point_cat_vals nnpcv - WHERE nomi.nomi_id = nnpcv.nomi_id - AND nomi.cont_id = p_cont_id - AND nomi.status = 'A' - GROUP BY nnpcv.gas_day - ,nomi.nomi_id - HAVING nnpcv.gas_day > trunc(SYSDATE) - 2 - ORDER BY gas_day ) LOOP - -- - -- check nomination gate closure for the gas day - IF check_gate_closure(p_cont_id,nom.gas_day) THEN - -- loop round the virtual network point nomination categories for the gas day - FOR v IN c_vnepo_coca(nom.nomi_id - ,nom.gas_day) LOOP - -- loop round each non virtual network point assigned to the contract - -- retrieving the percentage split parameters - FOR i IN efnow098$.c_conp(p_cont_id) LOOP - -- update the existing nominated values - caco_debug.putline('efno_contracts.recalc_emo_noms - updating nominations'); - UPDATE nom_net_point_cat_vals nnpcv - SET value = ROUND((i.perc_split/l_tot_perc_split)*v.value) - WHERE nnpcv.nomi_id = nom.nomi_id - AND nnpcv.gas_day = nom.gas_day - AND nnpcv.coca_id = v.coca_id - AND nnpcv.conp_id = i.conp_id; - -- - END LOOP; - END LOOP; - -- save new spreadsheet for updated nomination - amfr_excel.get_template(p_id => p_cont_id - ,p_type => amfr_excel.gc_nomination - ,p_nomi_conf_id => nom.nomi_id - ,p_mode => 'INSERT' - ); - END IF; - -- - END LOOP; - -- - caco_debug.putline('efno_contracts.recalc_emo_noms - end'); - RETURN l_success; - -- -EXCEPTION - WHEN others THEN - caco_debug.putline('efno_contracts.recalc_emo_noms failed'); - l_success := FALSE; - p_err_msg := caco_utilities.get_module_text(3918); - RETURN l_success; - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => sqlerrm(sqlcode) - , p_source => 'efno_contracts.recalc_emo_noms'); - -- -END recalc_emo_noms; - --- --- For returning the number of network points assigned to a contract -FUNCTION nepo_count( p_contract_id IN NUMBER ) - RETURN NUMBER -IS - CURSOR c_conp IS - SELECT count(*) - FROM cont_network_points - WHERE cont_id = p_contract_id; - -- - l_count NUMBER := 0; - -- -BEGIN - OPEN c_conp; - FETCH c_conp INTO l_count; - CLOSE c_conp; - RETURN l_count; -END nepo_count; - -PROCEDURE upd_cnppv_records( p_contract_id IN NUMBER - , p_page_no IN NUMBER DEFAULT 1 - , p_cnppv_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_value IN owa_util.vc_arr DEFAULT g_vc_arr ) -IS - -- Cursor used to find the appropriate Number Format for the given id/value pair - CURSOR c_cnppv( cp_cnppv_id IN NUMBER ) IS - SELECT cate.number_format num_format - ,cate.interuptible interruptible - ,cate.cate_id cate_id - ,cnppv.conp_id conp_id - FROM cont_net_point_param_vals cnppv - , contract_parameters copa - , parameters pars - , categories cate - WHERE cnppv.cnppv_id = cp_cnppv_id - AND cnppv.copa_id = copa.copa_id - AND copa.pars_id = pars.pars_id - AND pars.cate_id = cate.cate_id; - -- - -- Find the category parameter type (if it is one!) - CURSOR c_cate_par_type( cp_cnppv_id IN NUMBER ) IS - SELECT SUBSTR(pars.code,-3) code - FROM parameters pars - , contract_parameters copa - , cont_net_point_param_vals cnppv - WHERE cnppv.cnppv_id = cp_cnppv_id - AND cnppv.copa_id = copa.copa_id - AND copa.pars_id = pars.pars_id - AND pars.cate_id IS NOT NULL; - -- - -- Find if contract has Percentage Split parameter - CURSOR c_copa IS - SELECT copa.copa_id copa_id - FROM parameters pars - , contract_parameters copa - , contracts cont - WHERE cont.cont_id = p_contract_id - AND copa.cont_id = cont.cont_id - AND copa.pars_id = pars.pars_id - AND pars.name IN (g_perc_split_en, g_perc_split_hu); - -- - -- Find the Percentage Split total - CURSOR c_perc_split(cp_vnepo IN VARCHAR2) IS - SELECT NVL(SUM(cnppv.value),0) - FROM parameters pars - , contract_parameters copa - , cont_net_point_param_vals cnppv - , contracts cont - , cont_network_points conp - , network_points nepo - WHERE cont.cont_id = p_contract_id - AND copa.cont_id = cont.cont_id - AND cnppv.copa_id = copa.copa_id - AND copa.pars_id = pars.pars_id - AND cnppv.conp_id = conp.conp_id - AND conp.nepo_id = nepo.nepo_id - AND ((nepo.nepo_type IN ('N','X') AND cp_vnepo = 'N') OR - (nepo.nepo_type = 'V' AND cp_vnepo = 'Y')) - AND pars.name IN (g_perc_split_en, g_perc_split_hu); - -- - -- Find the Percentage Split values from cnppv table - CURSOR c_cnppv_per_split IS - SELECT cnppv.conp_id conp_id - , cnppv.value value - FROM parameters pars - , contract_parameters copa - , cont_net_point_param_vals cnppv - WHERE copa.cont_id = p_contract_id - AND copa.pars_id = pars.pars_id - AND copa.copa_id = cnppv.copa_id - AND pars.name IN (g_perc_split_en, g_perc_split_hu) - order by 1; - -- - l_number_format categories.number_format%TYPE; - l_cate_int categories.interuptible%TYPE; - l_cate_id categories.cate_id%TYPE; - l_conp_id cont_network_points.conp_id%TYPE; - l_current_type VARCHAR2(3) := NULL; - prev_valid_num BOOLEAN := TRUE; - prev2_valid_num BOOLEAN := TRUE; - curr_valid_num BOOLEAN := TRUE; - l_temp_number NUMBER := 0; - l_prev_value NUMBER := 0; - -- - l_array_length NUMBER := 0; - l_data_error owa_util.vc_arr; - -- - l_error_message VARCHAR2(400) := NULL; - l_success BOOLEAN := TRUE; - l_invalid_number BOOLEAN := FALSE; - l_invalid_format BOOLEAN := FALSE; - l_update_error BOOLEAN := FALSE; - l_negatives BOOLEAN := FALSE; - l_min_gt_max BOOLEAN := FALSE; - l_ctr_lt_min BOOLEAN := FALSE; - l_ctr_gt_max BOOLEAN := FALSE; - -- - l_copa_id NUMBER; - l_tot_per_split NUMBER := 0; - l_vnepo_per_split NUMBER := 0; - l_perc_split_array perc_split_array; - l_count NUMBER := 0; - recalc_noms BOOLEAN := FALSE; - -- - -- array to contain p_value array contents with no thousand separators - l_val_no_thou_sep owa_util.vc_arr; - -- - BEGIN - -- Check we have permission to be using this module. - -- Only called from the Create contracts screen - IF NOT caco_security.security_check('efnow050$') THEN - RETURN; - END IF; - -- - SAVEPOINT before_upd_cnppv; - -- - -- remove thousand separators from p_value array - -- - l_val_no_thou_sep := caco_utilities.thousand_separated_to_char(p_value); - -- Check that the number of values in the arrays is consistent - IF NVL(p_cnppv_id.COUNT,0) > 0 - AND NVL(l_val_no_thou_sep.COUNT,0) > 0 - AND NVL(p_cnppv_id.COUNT,0) = NVL(l_val_no_thou_sep.COUNT,0) - THEN - -- We are on good ground - l_array_length := p_cnppv_id.COUNT; - ELSE - -- - l_success := FALSE; - -- - IF NVL(p_cnppv_id.COUNT,0) = 0 - AND NVL(l_val_no_thou_sep.COUNT,0) = 0 - THEN - l_error_message := caco_utilities.get_module_text(2278); -- No Data passed to update routine - -- - ELSE - l_error_message := caco_utilities.get_module_text(2275); -- Mismatched Id and Value arrays. Check contract details before returning to this page - END IF; - -- - END IF; - -- Check if contract has Percentage Split parameter assigned to it - OPEN c_copa; - FETCH c_copa INTO l_copa_id; - CLOSE c_copa; - -- - IF l_copa_id IS NOT NULL THEN - -- put the current saved percentage split parameters into an array - OPEN c_cnppv_per_split; - FETCH c_cnppv_per_split BULK COLLECT INTO l_perc_split_array; - CLOSE c_cnppv_per_split; - -- - END IF; - -- - -- Lets check all the passed data; - IF l_success THEN - FOR i IN 1..l_array_length LOOP - -- - l_temp_number := 0; - l_number_format := NULL; - l_current_type := NULL; - prev2_valid_num := prev_valid_num; - prev_valid_num := curr_valid_num; - curr_valid_num := TRUE; - l_data_error(i) := 'N'; - -- - IF NVL(l_val_no_thou_sep(i),'#~^!$') != '#~^!$' THEN -- should this be IS NOT NULL - -- - OPEN c_cnppv( p_cnppv_id(i) ); - FETCH c_cnppv - INTO l_number_format - ,l_cate_int - ,l_cate_id - ,l_conp_id; - IF c_cnppv%FOUND THEN - -- we need to check that the entered value matches the number format found - BEGIN - SELECT TO_NUMBER(l_val_no_thou_sep(i),l_number_format) - INTO l_temp_number - FROM dual; - -- - -- Check to ensure that the data is gte zero - IF l_val_no_thou_sep(i) < 0 THEN - -- An error -- ALL values must be positive (including zero) - l_success := FALSE; - l_negatives := TRUE; - l_data_error(i) := 'Y'; - END IF; - -- - EXCEPTION - WHEN others THEN - l_success := FALSE; - l_data_error(i) := 'Y'; - l_invalid_format := TRUE; - curr_valid_num := FALSE; - END; - -- - ELSE - -- Just ensure that the data is numeric - BEGIN - SELECT TO_NUMBER(l_val_no_thou_sep(i)) - INTO l_temp_number - FROM dual; - -- - -- Check to ensure that the data is gte zero - IF l_val_no_thou_sep(i) < 0 THEN - -- An error -- ALL values must be positive (or zero) - l_success := FALSE; - l_negatives := TRUE; - l_data_error(i) := 'Y'; - END IF; - -- - EXCEPTION - WHEN others THEN - l_success := FALSE; - l_data_error(i) := 'Y'; - l_invalid_number := TRUE; - curr_valid_num := FALSE; - END; - -- - END IF; - CLOSE c_cnppv; - -- - ELSE - l_success := FALSE; - l_data_error(i) := 'Y'; - l_invalid_number := TRUE; - curr_valid_num := FALSE; - END IF; - -- - -- If numeric and correct format - ensure that max is greater than min - -- min is less than max and contracted is between the two. - -- Slightly easier than it sounds as we know that these three values are consecutive - -- we just need to know which one this is.... - -- We should only do the checks when we have found the CTR amount otherwise we wont know - -- if all the values are numeric... - -- Find out if we are a category parameter (dont check standalone parameters) - OPEN c_cate_par_type(p_cnppv_id(i)); - FETCH c_cate_par_type INTO l_current_type; - IF c_cate_par_type%FOUND THEN - IF l_current_type = 'CTR' THEN - -- lets check MIN, MAX and CTR are valid together. - IF prev_valid_num - AND prev2_valid_num - AND TO_NUMBER(l_val_no_thou_sep(i-2)) > TO_NUMBER(l_val_no_thou_sep(i-1)) - THEN - -- Min > Max - l_success := FALSE; - l_min_gt_max := TRUE; - l_data_error(i-2) := 'Y'; - l_data_error(i-1) := 'Y'; - END IF; - IF curr_valid_num - AND prev2_valid_num - AND TO_NUMBER(l_val_no_thou_sep(i)) < TO_NUMBER(l_val_no_thou_sep(i-2)) - THEN - -- CTR < MIN - l_success := FALSE; - l_ctr_lt_min := TRUE; - l_data_error(i) := 'Y'; - END IF; - IF curr_valid_num - AND prev_valid_num - AND TO_NUMBER(l_val_no_thou_sep(i)) > TO_NUMBER(l_val_no_thou_sep(i-1)) - THEN - -- CTR > MAX - l_success := FALSE; - l_ctr_gt_max := TRUE; - l_data_error(i) := 'Y'; - END IF; - END IF; - END IF; - CLOSE c_cate_par_type; - -- - -- If the above is ok and no previous error has been found - update the DB - IF l_success THEN - -- - BEGIN - -- - IF l_current_type = 'MAX' THEN - -- - -- If the current value is a maximum value, lookup the current value before updating - -- - SELECT value - INTO l_prev_value - FROM cont_net_point_param_vals cnppv - WHERE cnppv.cnppv_id = p_cnppv_id(i); - -- - END IF; - -- - UPDATE cont_net_point_param_vals - SET value = l_temp_number - WHERE cnppv_id = p_cnppv_id(i); - -- - EXCEPTION - WHEN others THEN - caco_debug.putline('efno_contracts.upd_cnppv_records : Failed Update - CNPPV_ID : ' - ||p_cnppv_id(i)||' : Value : '||l_val_no_thou_sep(i)); - l_success := FALSE; - l_update_error := TRUE; - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => sqlerrm(sqlcode) - , p_source => 'efno_contracts.upd_cnppv_records'); - -- - END; - -- - END IF; - -- - -- Addition to activate/deactive inty_conp_params - -- - IF l_success THEN - -- - -- Check that the contract is active and current - -- - IF contract_active(p_contract_id) THEN - -- - -- If we're looking at a maximum value - -- - IF l_current_type = 'MAX' THEN - -- - -- And the previous value was 0 and the new value isn't, or the - -- - IF (l_temp_number = 0 AND l_prev_value <> 0) - OR (l_prev_value = 0 AND l_temp_number <> 0) THEN - -- - -- And the category is classified as interruptible - -- - IF l_cate_int = 'Y' THEN - -- - -- Finally, check for an active interruption type - -- - FOR inty IN ( SELECT inty.inty_id - FROM interruption_types inty - WHERE inty.status = 'A' - AND inty.cate_id = l_cate_id - ) LOOP - -- - -- Now update/insert inty_conp_params - -- - /* -- problem with merge statement and table API - MERGE INTO inty_conp_params incp - USING (SELECT inty.inty_id inty_id - , l_conp_id conp_id - , 0 max_int - , 0 max_days - , 0 max_len - , DECODE(l_temp_number, 0, 'N', 'Y') flag - FROM DUAL) sq1 - ON ( incp.inty_id = sq1.inty_id - AND incp.conp_id = sq1.conp_id ) - WHEN MATCHED THEN - UPDATE SET incp.limits_enabled = sq1.flag - WHEN NOT MATCHED THEN - INSERT - (icp_id - ,inty_id - ,conp_id - ,max_interruptions - ,max_interruption_days - ,max_interruption_length - ,limits_enabled - ) - VALUES - ( icp_seq.NEXTVAL - , sq1.inty_id - , sq1.conp_id - , sq1.max_int - , sq1.max_days - , sq1.max_len - , sq1.flag - ) - WHERE DECODE(l_temp_number, 0, 'N', 'Y') = 'Y'; - */ - UPDATE inty_conp_params incp - SET incp.limits_enabled = DECODE(l_temp_number, 0, 'N', 'Y') - WHERE incp.inty_id = inty.inty_id - AND incp.conp_id = l_conp_id; - -- - IF SQL%NOTFOUND THEN - -- - INSERT INTO inty_conp_params incp - ( icp_id - , inty_id - , conp_id - , max_interruptions - , max_interruption_days - , max_interruption_length - , limits_enabled - ) - VALUES - ( icp_seq.NEXTVAL - , inty.inty_id - , l_conp_id - , 0 - , 0 - , 0 - , DECODE(l_temp_number, 0, 'N', 'Y') - ); - -- - END IF; - -- - END LOOP; - -- - END IF; -- category interruptable - -- - END IF; -- last number zero, new number not OR new number zero, last number not - -- - END IF; -- Maximum Value - -- - END IF; -- contract active - -- - END IF; -- if l_success - -- - END LOOP; - END IF; - -- - IF l_success THEN - -- - IF l_copa_id IS NOT NULL THEN - -- Validate Percentage Split values - -- get the percentage split of the virtual network point - OPEN c_perc_split('Y'); - FETCH c_perc_split INTO l_vnepo_per_split; - CLOSE c_perc_split; - -- - -- get the percentage split total of the network points - OPEN c_perc_split('N'); - FETCH c_perc_split INTO l_tot_per_split; - CLOSE c_perc_split; - -- - -- check that all of the network points are displayed on one page - IF nepo_count(p_contract_id) <= 25 THEN - IF l_vnepo_per_split <> l_tot_per_split THEN - -- - l_success := FALSE; - -- - l_error_message := caco_utilities.get_module_text(3924); - -- Percentage Split values of network points must add up to the Percentage Split value of the virtual network point - END IF; - ELSE - -- there are more than 25 network points so we have to be more lenient on the percentage - -- split validation as the network points are displayed on multiple pages - IF l_vnepo_per_split < l_tot_per_split THEN - -- - l_success := FALSE; - -- - l_error_message := caco_utilities.get_module_text(3915); - -- Percentage Split values of network points must add up to less than or equal to the Percentage Split value of the virtual network point - END IF; - END IF; - -- Check if the contract is an entry mandatory offer contract - IF l_success THEN - IF efno_contracts.emo_contract(p_contract_id) = 'Y' THEN - -- check if the percentage split values have changed - FOR i IN c_cnppv_per_split LOOP - l_count := l_count + 1; - caco_debug.putline('comparing '||i.value||' with '||l_perc_split_array(l_count).value); - IF i.value <> l_perc_split_array(l_count).value THEN - recalc_noms := TRUE; - EXIT; - END IF; - END LOOP; - IF recalc_noms THEN - -- recalculate any nominations for the contract which are before gate closure - caco_debug.putline('recalculating noms'); - l_success := recalc_emo_noms(p_contract_id, l_error_message); - END IF; - END IF; - END IF; - END IF; - END IF; - -- - IF l_success THEN - -- - -- Call the values screen with just the contract id and the success flag - efnow092$.contract_values_p2( p_contract_id => p_contract_id - , p_page_no => p_page_no - , p_success => 'Y' ); - -- - ELSE - ROLLBACK TO SAVEPOINT before_upd_cnppv; - -- - -- If the supplied values had invalid formats - IF l_error_message IS NULL THEN - IF l_update_error THEN - l_error_message := caco_utilities.get_module_text(2210); - -- An error occurred whilst updating the contract values. Please contact support stating Contract Number - END IF; - IF l_invalid_format THEN - l_error_message := l_error_message||' '||caco_utilities.get_module_text(2240)||'.'; -- Data supplied with invalid number formats - END IF; - IF l_invalid_number THEN - l_error_message := l_error_message||' '||caco_utilities.get_module_text(2289)||'.'; -- Non numeric data supplied - END IF; - IF l_min_gt_max THEN - l_error_message := l_error_message||' '||caco_utilities.get_module_text(2354)||'.'; -- Minimum greater than Maximum - END IF; - IF l_ctr_lt_min THEN - l_error_message := l_error_message||' '||caco_utilities.get_module_text(2355)||'.'; -- Contracted less than Minimum - END IF; - IF l_ctr_gt_max THEN - l_error_message := l_error_message||' '||caco_utilities.get_module_text(2356)||'.'; -- Contracted greater than Maximum - END IF; - IF l_negatives THEN - l_error_message := l_error_message||' '||caco_utilities.get_module_text(2357); -- All values must be zero or greater - END IF; - END IF; - -- - -- pass the data back... - efnow092$.contract_values_p2( p_contract_id => p_contract_id - , p_page_no => p_page_no - , p_error => 'Y' - , p_err_msg => l_error_message - , p_cnppv_id => p_cnppv_id - , p_value => l_val_no_thou_sep - , p_data_error => l_data_error ); - -- - END IF; - -- - -- -END upd_cnppv_records; - -PROCEDURE upd_cotc ( p_cote_id IN contract_templates.cote_id%TYPE - , p_cate_id IN categories.cate_id%TYPE - , p_display_sequence IN NUMBER - ) IS -BEGIN - -- - -- Update the template category - -- - UPDATE contract_template_categories ctc - SET ctc.display_sequence = p_display_sequence - WHERE ctc.cote_id = p_cote_id - AND ctc.cate_id = p_cate_id; - -- - -- Now update the related contract categories - -- - UPDATE contract_categories cc - SET cc.display_sequence = p_display_sequence - WHERE cc.cate_id = p_cate_id - AND cc.cont_id IN ( SELECT cont_id - FROM contracts c - WHERE c.cote_id = p_cote_id - ); - -- -END upd_cotc; - - - --- Insert or Update Contract Rules inherited from a Contract Template --- needs to be called immediately after insert of a new contract --- or immediately before update of an existing contract --- (otherwise the template id will already be changed!) -FUNCTION ins_or_upd_inh_rules( p_ins_or_upd IN VARCHAR2 - , p_contract_id IN NUMBER - , p_template_id IN NUMBER - , p_err_message OUT VARCHAR2 ) - RETURN BOOLEAN -IS - CURSOR c_cont IS - SELECT cote_id - FROM contracts - WHERE cont_id = p_contract_id; - -- - -- Cursor to list the inherited rules for the new contract template - CURSOR c_inh_rules IS - SELECT rule_id - , display_sequence - FROM contract_template_rules - WHERE cote_id = p_template_id; - -- - l_temp_cote_id contracts.cote_id%TYPE := NULL; - -- - l_success BOOLEAN := TRUE; - -- -BEGIN - -- - SAVEPOINT before_inh_rules; - -- - IF p_ins_or_upd = 'UPDATE' THEN - -- Firstly, lets check that the contract template has changed - -- if not - we have no work to do! - OPEN c_cont; - FETCH c_cont INTO l_temp_cote_id; - CLOSE c_cont; - -- - ELSE - -- Inserting - just set to zero - l_temp_cote_id := 0; - END IF; - -- - IF NVL(l_temp_cote_id,0) != NVL(p_template_id,0) THEN - -- - -- The Template has been changed - -- We need to remove the existing inherited contract rules - -- and add the new ones from the new contract template - IF p_ins_or_upd = 'UPDATE' - AND NVL(l_temp_cote_id,0) != 0 - THEN - -- If we are updating and the old template is not null then - -- we need to remove the existing inherited rules from contract_rules - BEGIN - DELETE contract_rules - WHERE cont_id = p_contract_id - AND NVL(inherited,'N') = 'Y'; - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_err_message := caco_utilities.get_module_text(2293); -- Removal of old template inherited rules failed. Please contact support - caco_debug.putline('efno_contracts.ins_or_upd_inh_rules failed deleting inherited rules : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed deleting inherited rules: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_or_upd_inh_rules'); - -- - END; - -- - END IF; - -- - IF l_success THEN - -- We can insert the inherited rules - <> - FOR r IN c_inh_rules LOOP - -- - BEGIN - INSERT INTO contract_rules - ( coru_id - , display_sequence - , inherited - , cont_id - , coru_type - , rule_id ) - VALUES - ( coru_seq.NEXTVAL - , r.display_sequence - , 'Y' - , p_contract_id - , 'ROW' - , r.rule_id ); - EXCEPTION - WHEN others THEN - l_success := FALSE; - caco_debug.putline('efno_contracts.ins_or_upd_inh_rules failed inserting inherited rules : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed inserting inherited rules: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_or_upd_inh_rules'); - -- - EXIT ins_inh_rules_loop; - END; - -- - END LOOP ins_inh_rules_loop; - -- - END IF; - -- - END IF; - -- - IF NOT l_success THEN - ROLLBACK TO SAVEPOINT before_inh_rules; - END IF; - -- - RETURN l_success; - -- -END ins_or_upd_inh_rules; - - - -FUNCTION del_conp_cnppv( p_conp_id IN cont_network_points.conp_id%TYPE - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- - l_success BOOLEAN := TRUE; - -- -BEGIN - SAVEPOINT before_del_cnppv; - -- - BEGIN - DELETE cont_net_point_param_vals - WHERE conp_id = p_conp_id; - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2213); - -- An unexpected error has occurred while deleting contract network point. Please contact support - caco_debug.putline('efno_contracts.del_conp_cnppv : ' - ||'Delete of contract network point parameter values failed : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed deleting cnppv: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.del_conp_cnppv'); - -- - END; - -- - IF NOT l_success THEN - ROLLBACK TO SAVEPOINT before_del_cnppv; - END IF; - -- - RETURN l_success; - -- -END del_conp_cnppv; - -FUNCTION del_conp_icp( p_conp_id IN cont_network_points.conp_id%TYPE - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- - l_success BOOLEAN := TRUE; - -- -BEGIN - -- - SAVEPOINT before_del_icp; - -- - BEGIN - DELETE inty_conp_params - WHERE conp_id = p_conp_id; - EXCEPTION - WHEN OTHERS THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2213); - -- An unexpected error has occurred while deleting contract network point. Please contact support - caco_debug.putline('efno_contracts.del_conp_icp: ' - ||'Delete of interruption type contract network point parameter values failed : ' - ||SQLERRM(SQLCODE)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => SQLCODE - , p_exception_message => 'Failed deleting icp: '||SQLERRM(SQLCODE) - , p_source => 'efno_contracts.del_conp_icp'); - -- - END; - -- - IF NOT l_success THEN - ROLLBACK TO SAVEPOINT before_del_icp; - END IF; - -- - RETURN l_success; - -- -END del_conp_icp; - - -FUNCTION ins_conp_cnppv( p_contract_id IN contracts.cont_id%TYPE - , p_conp_id IN cont_network_points.conp_id%TYPE - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- Cursor to list all parameters stored for this contract - CURSOR c_copa IS - SELECT copa_id - FROM contract_parameters - WHERE cont_id = p_contract_id; - -- - l_success BOOLEAN := TRUE; - -- -BEGIN - SAVEPOINT before_ins_cnppv; - -- - <> - FOR r IN c_copa LOOP - -- - BEGIN - INSERT INTO cont_net_point_param_vals - ( cnppv_id - , value - , conp_id - , copa_id ) - VALUES - ( cnppv_seq.NEXTVAL - , 0 - , p_conp_id - , r.copa_id ); - EXCEPTION - WHEN others THEN - ROLLBACK TO SAVEPOINT before_ins_cnppv; - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2215); - -- An unexpected error has occurred while inserting contract network point. Please contact support - caco_debug.putline('efno_contracts.ins_conp_cnppv : ' - ||'Insert of contract network point parameter values failed : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed inserting cnppv: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_conp_cnppv'); - -- - EXIT ins_cnppv_loop; - END; - -- - END LOOP ins_cnppv_loop; - -- - RETURN l_success; - -- -END ins_conp_cnppv; - - - - - -FUNCTION insert_cont_nepo( p_contract_id IN contracts.cont_id%TYPE - , p_network_point_array IN network_point_array - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- - l_conp_id cont_network_points.conp_id%TYPE := 0; - l_success BOOLEAN := TRUE; - -- -BEGIN - SAVEPOINT before_ins_cont_nepo; - -- - <> - FOR i IN 1..p_network_point_array.COUNT LOOP - -- - BEGIN - INSERT INTO cont_network_points - ( conp_id - , display_sequence - , nepo_id - , cont_id ) - VALUES - ( conp_seq.NEXTVAL - , ( SELECT NVL(MAX(display_sequence),0)+10 - FROM cont_network_points - WHERE cont_id = p_contract_id ) - , p_network_point_array(i) - , p_contract_id ) - RETURNING conp_id INTO l_conp_id; - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2327); - -- An unexpected error has occurred while inserting new contract. Please contact support - caco_debug.putline('efno_contracts.insert_cont_nepo : ' - ||'Insert of new contract network points failed : '||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed inserting new CONP: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.insert_conp_nepo'); - -- - ROLLBACK TO SAVEPOINT before_ins_cont_nepo; - EXIT ins_net_point_loop; - END; - -- - l_success := ins_conp_cnppv( p_contract_id - , l_conp_id - , p_return_error ); - IF NOT l_success THEN - EXIT ins_net_point_loop; - END IF; - -- - END LOOP ins_net_point_loop; - -- - -- Invalidate any interruption types related to this contract --- IF p_network_point_array.COUNT > 0 THEN - -- --- l_success := invalidate_inty(p_contract_id); - -- --- END IF; -- removed as part of INT027 - RETURN l_success; - -- -END insert_cont_nepo; - - - - -FUNCTION ins_copa_cnppv( p_contract_id IN contracts.cont_id%TYPE - , p_copa_id IN contract_parameters.copa_id%TYPE - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- Cursor to loop through all network points for the given contract - CURSOR c_conp IS - SELECT conp_id - FROM cont_network_points - WHERE cont_id = p_contract_id; - -- - l_success BOOLEAN := TRUE; - -- -BEGIN - SAVEPOINT before_ins_cnppv; - -- - <> - FOR r IN c_conp LOOP - -- - BEGIN - INSERT INTO cont_net_point_param_vals - ( cnppv_id - , value - , conp_id - , copa_id ) - VALUES - ( cnppv_seq.NEXTVAL - , 0 - , r.conp_id - , p_copa_id ); - EXCEPTION - WHEN others THEN - ROLLBACK TO SAVEPOINT before_ins_cnppv; - caco_debug.putline('efno_contracts.ins_copa_cnppv failed : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed inserting cnppv: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_copa_cnppv'); - -- - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2265); - -- Inserting Contract values failed. Please contact support - EXIT ins_cnppv_loop; - END; - -- - END LOOP ins_cnppv_loop; - -- - RETURN l_success; - -- -END ins_copa_cnppv; - - - - -FUNCTION ins_contract_pars( p_contract_id IN contracts.cont_id%TYPE - , p_pars_id IN parameters.pars_id%TYPE - , p_inherited IN VARCHAR2 - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- - l_copa_id contract_parameters.copa_id%TYPE := 0; - l_success BOOLEAN := TRUE; - -- -BEGIN - SAVEPOINT before_ins_cont_pars; - -- - BEGIN - INSERT INTO contract_parameters - ( copa_id - , inherited - , display_sequence - , cont_id - , pars_id ) - VALUES - ( copa_seq.NEXTVAL - , p_inherited - , 0 -- parameters are not inherited from a category - , p_contract_id - , p_pars_id ) - RETURNING copa_id INTO l_copa_id; - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2216); - -- An unexpected error has occurred while inserting contract parameter. Please contact support - caco_debug.putline('efno_contracts.ins_contract_pars: ' - ||'Insert of contract parameter failed : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed inserting contract parameters: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_contract_pars'); - -- - END; - -- - IF l_success THEN - -- insert the relevant contract network point parameter values - l_success := ins_copa_cnppv( p_contract_id - , l_copa_id - , p_return_error ); - -- - END IF; - -- - IF NOT l_success THEN - ROLLBACK TO SAVEPOINT before_ins_cont_pars; - END IF; - -- - RETURN l_success; - -- -END ins_contract_pars; - - - - -FUNCTION upd_contract_cate( p_contract_id IN contracts.cont_id%TYPE - , p_cate_id IN categories.cate_id%TYPE - , p_inherited IN VARCHAR2 - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- - l_success BOOLEAN := TRUE; - -- -BEGIN - SAVEPOINT before_upd_cont_cate; - -- - -- But if the category DOES exist - make sure it is correctly inherited - BEGIN - UPDATE contract_categories coca - SET inherited = p_inherited - WHERE cont_id = p_contract_id - AND cate_id = p_cate_id; - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2221); - -- An unexpected error has occurred while updating contract category. Please contact support - caco_debug.putline('efno_contracts.upd_contract_cae: ' - ||'Update of contract category failed : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed updating contract categories: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.upd_contract_cate'); - -- - END; - -- - IF l_success THEN - -- Also check the parameters.... - BEGIN - UPDATE contract_parameters copa - SET inherited = p_inherited - WHERE cont_id = p_contract_id - AND copa.copa_id IN ( SELECT copa2.copa_id - FROM contract_parameters copa2 - , parameters pars - WHERE copa2.pars_id = pars.pars_id - AND copa2.cont_id = p_contract_id - AND pars.cate_id = p_cate_id - ); - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2221); - -- An unexpected error has occurred while updating contract category. Please contact support - caco_debug.putline('efno_contracts.upd_contract_cate: ' - ||'Update of contract category failed (updating parameters): ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed updating contract category related parameters: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.upd_contract_cate'); - -- - END; - -- - END IF; - -- - IF NOT l_success THEN - ROLLBACK TO SAVEPOINT before_upd_cont_cate; - END IF; - -- - RETURN l_success; - -- -END upd_contract_cate; - - - - - - -FUNCTION del_contract_cate( p_contract_id IN contracts.cont_id%TYPE - , p_cate_id IN categories.cate_id%TYPE - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- - l_success BOOLEAN := TRUE; - -- -BEGIN - SAVEPOINT before_del_cont_cate; - -- - -- Delete contract parameter values for this category - BEGIN - DELETE cont_net_point_param_vals cnppv - WHERE cnppv.copa_id IN ( SELECT copa.copa_id - FROM contract_parameters copa - , parameters pars - WHERE copa.cont_id = p_contract_id - AND copa.pars_id = pars.pars_id - AND pars.cate_id = p_cate_id ); - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2329); - -- An unexpected error has occurred while updating contract. Please contact support - caco_debug.putline('efno_contracts.del_contract_cate: ' - ||'Update of contract category failed ' - ||'(deleting associated parameter values) : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed deleting cnppv: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.del_contract_cate'); - -- - END; - -- - IF l_success THEN - -- Delete contract parameters inherited from this category - BEGIN - DELETE contract_parameters copa - WHERE copa.cont_id = p_contract_id - AND copa.pars_id IN ( SELECT pars.pars_id - FROM parameters pars - WHERE pars.cate_id = p_cate_id ); - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2329); - -- An unexpected error has occurred while updating contract. Please contact support - caco_debug.putline('efno_contracts.del_contract_cate: ' - ||'Update of contract category failed ' - ||'(deleting associated parameters) : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed deleting COPA: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.del_contract_cate'); - -- - END; - END IF; - -- - IF l_success THEN - -- Delete the given contract category - BEGIN - DELETE contract_categories - WHERE cont_id = p_contract_id - AND cate_id = p_cate_id; - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2329); - -- An unexpected error has occurred while updating contract. Please contact support - caco_debug.putline('efno_contracts.del_contract_cate: ' - ||'Update of contract category failed (deleting category): ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed deleting COCA: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.del_contract_cate'); - -- - END; - END IF; - -- - IF NOT l_success THEN - ROLLBACK TO SAVEPOINT before_del_cont_cate; - END IF; - -- - RETURN l_success; - -- -END del_contract_cate; - - - - - - -FUNCTION ins_contract_cate( p_contract_id IN contracts.cont_id%TYPE - , p_cate_id IN categories.cate_id%TYPE - , p_display_sequence IN categories.display_sequence%TYPE DEFAULT NULL - , p_inherited IN VARCHAR2 - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- Cursor to get associated parameters for INSERTed categories - CURSOR c_cate_pars IS - SELECT pars.pars_id pars_id - , cate.display_sequence display_sequence - FROM parameters pars - , categories cate - WHERE pars.cate_id = p_cate_id - AND pars.cate_id = cate.cate_id; - -- - l_copa_id contract_parameters.copa_id%TYPE := 0; - l_success BOOLEAN := TRUE; - -- - BEGIN - -- - SAVEPOINT before_ins_cont_cate; - -- - BEGIN - IF p_display_sequence IS NULL THEN - INSERT INTO contract_categories - ( coca_id - , inherited - , display_sequence - , cont_id - , cate_id ) - VALUES - ( coca_seq.NEXTVAL - , p_inherited - , ( SELECT cate.display_sequence - FROM categories cate - WHERE cate.cate_id = p_cate_id ) - , p_contract_id - , p_cate_id ); - ELSE - INSERT INTO contract_categories - ( coca_id - , inherited - , display_sequence - , cont_id - , cate_id ) - VALUES - ( coca_seq.NEXTVAL - , p_inherited - , p_display_sequence - , p_contract_id - , p_cate_id ); - END IF; - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2214); - -- An unexpected error has occurred while inserting contract category. Please contact support - caco_debug.putline('efno_contracts.ins_contract_cate: ' - ||'Insert of contract category failed : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed inserting COCA: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_contract_cate'); - -- - END; - -- - -- We also need to insert any parameters associated with this category - IF l_success THEN - -- - <> - FOR r IN c_cate_pars LOOP - -- - l_copa_id := 0; - -- - BEGIN - INSERT INTO contract_parameters - ( copa_id - , display_sequence - , inherited - , cont_id - , pars_id ) - VALUES - ( copa_seq.NEXTVAL - , r.display_sequence - , p_inherited - , p_contract_id - , r.pars_id ) - RETURNING copa_id INTO l_copa_id; - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2214); - -- An unexpected error has occurred while inserting contract category. Please contact support - caco_debug.putline('efno_contracts.ins_contract_cate: ' - ||'Update of contract category associated parameters failed : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed inserting COCA associated COPA'||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_contract_cate'); - -- - EXIT cont_cate_loop; - END; - -- - IF l_success THEN - -- insert the relevant contract network point parameter values - l_success := ins_copa_cnppv( p_contract_id - , l_copa_id - , p_return_error ); - -- - IF NOT l_success THEN - EXIT cont_cate_loop; - END IF; - -- - END IF; - -- - END LOOP cont_cate_loop; -- end of inserting associated parameters - -- - END IF; - -- - IF NOT l_success THEN - ROLLBACK TO SAVEPOINT before_ins_cont_cate; - END IF; - -- - RETURN l_success; - -- -END ins_contract_cate; - - - - --- For Updating Contract Network Points - to enable delete of those no longer attached -FUNCTION nepo_in_array( p_id IN NUMBER - , p_nepo_array IN network_point_array ) - RETURN BOOLEAN -IS - l_success BOOLEAN := FALSE; -BEGIN - IF NVL(p_nepo_array.COUNT,0) > 0 THEN - FOR i IN p_nepo_array.FIRST..p_nepo_array.LAST LOOP - IF p_nepo_array(i) = p_id THEN - l_success := TRUE; - END IF; - END LOOP; - END IF; - RETURN l_success; -END nepo_in_array; - - - - - --- --- For Updating Contract Network Points - to determine if we need to insert into DB -FUNCTION nepo_in_db( p_nepo_id IN NUMBER - , p_contract_id IN NUMBER ) - RETURN BOOLEAN -IS - CURSOR c_nepo IS - SELECT 'Y' - FROM cont_network_points - WHERE cont_id = p_contract_id - AND nepo_id = p_nepo_id; - -- - l_success BOOLEAN := FALSE; - l_dummy VARCHAR2(1) := 'X'; - -- -BEGIN - OPEN c_nepo; - FETCH c_nepo INTO l_dummy; - IF c_nepo%FOUND THEN - l_success := TRUE; - END IF; - CLOSE c_nepo; - RETURN l_success; -END nepo_in_db; - - - - - --- --- For Updating Contract Categories - to enable delete of those no longer attached -FUNCTION coca_in_array( p_id IN NUMBER - , p_cate_array IN category_array ) - RETURN BOOLEAN -IS - l_success BOOLEAN := FALSE; -BEGIN - IF NVL(p_cate_array.COUNT,0) > 0 THEN - FOR i IN p_cate_array.FIRST..p_cate_array.LAST LOOP - IF p_cate_array(i).cate_id = p_id THEN - l_success := TRUE; - END IF; - END LOOP; - END IF; - RETURN l_success; -END coca_in_array; - - - - - --- --- Function to check if an virtual network point exists in an array of nepo_ids -FUNCTION vnepo_count( p_network_point_array IN network_point_array ) - RETURN NUMBER -IS - -- - CURSOR c_vnepo(cp_nepo_id network_points.nepo_id%TYPE) IS - SELECT nepo.nepo_type - FROM network_points nepo - WHERE nepo_id = cp_nepo_id; - -- - l_count NUMBER := 0; - l_nepo_type network_points.nepo_type%TYPE; - -- -BEGIN - FOR i IN 1..p_network_point_array.COUNT LOOP - OPEN c_vnepo(p_network_point_array(i)); - FETCH c_vnepo INTO l_nepo_type; - CLOSE c_vnepo; - -- - IF l_nepo_type = 'V' THEN - l_count := l_count + 1; - END IF; - -- - END LOOP; - RETURN l_count; -END vnepo_count; - --- --- Function to check if a template is an Entry Mandatory Offer template -FUNCTION emo_template( p_template_id IN NUMBER ) - RETURN BOOLEAN -IS - -- - CURSOR c_emo IS - SELECT cote.entry_mandatory_offer - FROM contract_templates cote - WHERE cote_id = p_template_id; - -- - l_return BOOLEAN := FALSE; - l_emo contract_templates.entry_mandatory_offer%TYPE; - -- -BEGIN - OPEN c_emo; - FETCH c_emo INTO l_emo; - CLOSE c_emo; - -- - IF l_emo = 'Y' THEN - l_return := TRUE; - END IF; - -- - RETURN l_return; -END emo_template; - --- Function to check if a contract is an Entry Mandatory Offer contract -FUNCTION emo_contract( p_contract_id IN NUMBER ) - RETURN VARCHAR2 -IS - -- - CURSOR c_emo IS - SELECT cote.entry_mandatory_offer - FROM contract_templates cote - ,contracts cont - WHERE cote.cote_id = cont.cote_id - AND cont.cont_id = p_contract_id; - -- - l_return VARCHAR2(1) := 'N'; - l_emo contract_templates.entry_mandatory_offer%TYPE; - -- -BEGIN - OPEN c_emo; - FETCH c_emo INTO l_emo; - CLOSE c_emo; - -- - IF l_emo = 'Y' THEN - l_return := 'Y'; - END IF; - -- - RETURN l_return; -END emo_contract; - --- Function to check if a contract network point is a virtual network point -FUNCTION virtual_nepo( p_conp_id IN NUMBER ) - RETURN BOOLEAN -IS - -- - CURSOR c_nepo IS - SELECT nepo.nepo_type - FROM network_points nepo - ,cont_network_points conp - WHERE nepo.nepo_id = conp.nepo_id - AND conp.conp_id = p_conp_id; - -- - l_return BOOLEAN := FALSE; - l_nepo_type network_points.nepo_type%TYPE; - -- -BEGIN - OPEN c_nepo; - FETCH c_nepo INTO l_nepo_type; - CLOSE c_nepo; - -- - IF l_nepo_type = 'V' THEN - l_return := TRUE; - END IF; - -- - RETURN l_return; -END virtual_nepo; - - -/** --- FUNCTION nepo_in_contract --- --- Determines whether a given network point ID is being used in a contract --- --- used in EFNOW030 - maintain network points --- --- %param p_nepo_id The unique identifier for a network point --- --- %return BOOLEAN Indicates whether the network point is being used -*/ -FUNCTION nepo_in_contract ( p_nepo_id IN network_points.nepo_id%TYPE ) RETURN BOOLEAN IS - -- - l_return BOOLEAN := FALSE; - -- -BEGIN - -- - FOR cont IN ( SELECT NULL - FROM cont_network_points conp, - network_points nepo - WHERE conp.nepo_id = nepo.nepo_id - AND nepo.nepo_id = p_nepo_id ) LOOP - -- - l_return := TRUE; - -- - END LOOP; - -- - RETURN l_return; - -- -END nepo_in_contract; - --- --- For Updating Contract Categories - to determine if we need to insert into DB -FUNCTION coca_in_db( p_cate_id IN NUMBER - , p_contract_id IN NUMBER ) - RETURN BOOLEAN -IS - CURSOR c_coca IS - SELECT 'Y' - FROM contract_categories - WHERE cont_id = p_contract_id - AND cate_id = p_cate_id; - -- - l_success BOOLEAN := FALSE; - l_dummy VARCHAR2(1) := 'X'; - -- -BEGIN - OPEN c_coca; - FETCH c_coca INTO l_dummy; - IF c_coca%FOUND THEN - l_success := TRUE; - END IF; - CLOSE c_coca; - RETURN l_success; -END coca_in_db; - - - - - - - - --- For Updating Contract Parameters - to enable delete of those no longer attached -FUNCTION copa_in_array( p_id IN NUMBER - , p_pars_array IN parameter_array ) - RETURN BOOLEAN -IS - l_success BOOLEAN := FALSE; -BEGIN - IF NVL(p_pars_array.COUNT,0) > 0 THEN - FOR i IN p_pars_array.FIRST..p_pars_array.LAST LOOP - IF p_pars_array(i).pars_id = p_id THEN - l_success := TRUE; - END IF; - END LOOP; - END IF; - RETURN l_success; -END copa_in_array; - - - - --- For Updating Contract Parameters - to determine if we need to insert into DB --- Note: We are relying on the contract screen to only show those parameters --- that are NOT associated with categories -FUNCTION copa_in_db( p_pars_id IN NUMBER - , p_contract_id IN NUMBER ) - RETURN BOOLEAN -IS - CURSOR c_copa IS - SELECT 'Y' - FROM contract_parameters - WHERE cont_id = p_contract_id - AND pars_id = p_pars_id; - -- - l_success BOOLEAN := FALSE; - l_dummy VARCHAR2(1) := 'X'; - -- -BEGIN - OPEN c_copa; - FETCH c_copa INTO l_dummy; - IF c_copa%FOUND THEN - l_success := TRUE; - END IF; - CLOSE c_copa; - RETURN l_success; -END copa_in_db; - - - - - - - -PROCEDURE del_redundant_nepo( p_contract_id IN contracts.cont_id%TYPE - , p_network_point_array IN network_point_array - , p_success OUT BOOLEAN - , p_return_error OUT VARCHAR2 ) -IS - -- - l_dummy NUMBER := 0; - -- - CURSOR c_cont_nepo( cp_cont_id IN NUMBER) IS - SELECT nepo_id - , conp_id - FROM cont_network_points - WHERE cont_id = cp_cont_id - FOR UPDATE; - -- -BEGIN - p_success := TRUE; - -- - <> - FOR r IN c_cont_nepo( p_contract_id ) LOOP - -- - IF NOT nepo_in_array( r.nepo_id - , p_network_point_array ) - THEN - -- - -- This network point doesn't exist in the new set, needs to be removed if possible - -- Check for any nominations for this network point - -- - SELECT COUNT(*) - INTO l_dummy - FROM nom_net_point_cat_vals n - WHERE n.conp_id = r.conp_id; - -- - IF l_dummy > 0 THEN - -- - p_success := FALSE; - p_return_error := caco_utilities.get_module_text(2520); -- a nomination exists - -- - EXIT upd_del_net_point_loop; - -- - END IF; - -- - -- Check for any interruptions for this network point - -- - SELECT COUNT(*) - INTO l_dummy - FROM int_conp_coca_vals iccv - WHERE iccv.conp_id = r.conp_id; - -- - IF l_dummy > 0 THEN - -- - p_success := FALSE; - p_return_error := caco_utilities.get_module_text(3857); -- an interruption exists - -- - EXIT upd_del_net_point_loop; - -- - END IF; - -- - -- delete the associated CNPPV records - -- - p_success := del_conp_cnppv( r.conp_id - , p_return_error ); - -- - IF NOT p_success THEN - EXIT upd_del_net_point_loop; - END IF; - -- - -- Remove any interruption types - -- - p_success := del_conp_icp( r.conp_id - , p_return_error ); - -- - IF NOT p_success THEN - EXIT upd_del_net_point_loop; - END IF; - -- - -- Finally, remove the conp record - -- - BEGIN - DELETE cont_network_points - WHERE CURRENT OF c_cont_nepo; - EXCEPTION - WHEN others THEN - p_success := FALSE; - p_return_error := caco_utilities.get_module_text(2329); - -- An unexpected error has occurred while updating contract. Please contact support - caco_debug.putline('efno_contracts.ins_or_upd_contract_p1: ' - ||'Update of contract network points failed (delete): '||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed deleting CONP: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.del_redundant_nepo'); - -- - EXIT upd_del_net_point_loop; - END; - END IF; - -- - END LOOP upd_del_net_point_loop; - -- -END del_redundant_nepo; - - - - - -PROCEDURE ins_required_nepo( p_contract_id IN contracts.cont_id%TYPE - , p_network_point_array IN network_point_array - , p_success OUT BOOLEAN - , p_return_error OUT VARCHAR2 ) -IS - l_conp_id cont_network_points.conp_id%TYPE; -BEGIN - SAVEPOINT before_ins_nepo; - -- - p_success := TRUE; - -- - <> - FOR i IN 1..p_network_point_array.COUNT LOOP - -- - IF NOT nepo_in_db( p_network_point_array(i) - , p_contract_id ) - THEN - l_conp_id := 0; - -- - BEGIN - INSERT INTO cont_network_points - ( conp_id - , display_sequence - , nepo_id - , cont_id ) - VALUES - ( conp_seq.NEXTVAL - , ( SELECT NVL(MAX(display_sequence),0)+10 - FROM cont_network_points - WHERE cont_id = p_contract_id ) - , p_network_point_array(i) - , p_contract_id ) - RETURNING conp_id INTO l_conp_id; - EXCEPTION - WHEN others THEN - p_success := FALSE; - p_return_error := caco_utilities.get_module_text(2329); - -- An unexpected error has occurred while updating contract. Please contact support - caco_debug.putline('efno_contracts.ins_or_upd_contract_p1: ' - ||'Update of contract network points failed (insert): ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed inserting CONP: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_required_nepov'); - -- - ROLLBACK TO SAVEPOINT before_ins_nepo; - EXIT upd_ins_net_point_loop; - END; - -- - -- Now insert the relevant CNPPV records - p_success := ins_conp_cnppv( p_contract_id - , l_conp_id - , p_return_error ); - -- - IF NOT p_success THEN - EXIT upd_ins_net_point_loop; - END IF; - -- - END IF; - -- - END LOOP upd_ins_net_point_loop; - -- - -- Invalidate any interruption types related to this contract --- IF p_network_point_array.COUNT > 0 THEN - -- --- p_success := invalidate_inty(p_contract_id); - -- --- END IF; -- INT027 - -- -END ins_required_nepo; - - - - - - -PROCEDURE del_redundant_cate( p_contract_id IN contracts.cont_id%TYPE - , p_category_array IN category_array - , p_success OUT BOOLEAN - , p_return_error OUT VARCHAR2 ) -IS - -- - CURSOR c_cont_cate( cp_cont_id IN NUMBER ) IS - SELECT cate_id - FROM contract_categories - WHERE cont_id = cp_cont_id - FOR UPDATE; - -- -BEGIN - p_success := TRUE; - -- - <> - FOR r IN c_cont_cate( p_contract_id ) LOOP - -- - IF NOT coca_in_array( r.cate_id - , p_category_array ) - THEN - -- This Category doesn't exist in the new set - p_success := del_contract_cate( p_contract_id - , r.cate_id - , p_return_error ); - -- - IF NOT p_success THEN - EXIT upd_del_coca_loop; - END IF; - -- - END IF; - -- - END LOOP upd_del_coca_loop; - -- -END del_redundant_cate; - - - - - -PROCEDURE ins_required_cate( p_contract_id IN contracts.cont_id%TYPE - , p_template_id IN contract_templates.cote_id%TYPE - , p_category_array IN category_array - , p_success OUT BOOLEAN - , p_return_error OUT VARCHAR2 ) -IS - -- - CURSOR c_cotc( cp_cote_id IN NUMBER - , cp_cate_id IN NUMBER ) IS - SELECT 'Y' - FROM contract_template_categories - WHERE cote_id = cp_cote_id - AND cate_id = cp_cate_id; - -- - l_inherited VARCHAR2(1) := 'N'; - -- -BEGIN - p_success := TRUE; - -- - <> - FOR i IN 1..p_category_array.COUNT LOOP - -- - l_inherited := 'N'; - -- Test if this category was inherited - OPEN c_cotc( p_template_id, p_category_array(i).cate_id ); - FETCH c_cotc INTO l_inherited; - CLOSE c_cotc; - -- - IF NOT coca_in_db( p_category_array(i).cate_id - , p_contract_id ) - THEN - -- - -- Current category does not exist in the DB so we need to INSERT - p_success := ins_contract_cate( p_contract_id - , p_category_array(i).cate_id - , NULL - , l_inherited - , p_return_error ); - -- - IF NOT p_success THEN - EXIT upd_ins_coca_loop; - END IF; - -- - ELSE - -- But if the category DOES exist - make sure it is correctly inherited - p_success := upd_contract_cate( p_contract_id - , p_category_array(i).cate_id - , l_inherited - , p_return_error ); - -- - IF NOT p_success THEN - EXIT upd_ins_coca_loop; - END IF; - -- - END IF; -- end of if contract category not already in DB - END LOOP upd_ins_coca_loop; - -- -END ins_required_cate; - - - - - -PROCEDURE del_redundant_pars( p_contract_id IN contracts.cont_id%TYPE - , p_parameter_array IN parameter_array - , p_success OUT BOOLEAN - , p_return_error OUT VARCHAR2 ) -IS - -- - CURSOR c_cont_pars( cp_cont_id IN NUMBER ) IS - SELECT copa.pars_id pars_id - , copa.copa_id copa_id - FROM contract_parameters copa - , parameters pars - WHERE copa.pars_id = pars.pars_id - AND copa.cont_id = cp_cont_id - AND pars.cate_id IS NULL; - -- -BEGIN - SAVEPOINT before_del_pars; - p_success := TRUE; - -- - <> - FOR r IN c_cont_pars( p_contract_id ) LOOP - -- - IF NOT copa_in_array( r.pars_id - , p_parameter_array ) - THEN - -- This Parameter doesn't exist in the new set - -- We need to delete the parameter after deleting the contract net point param values - -- can use WHERE CURRENT OF cursor for deleting the COPA - BEGIN - DELETE cont_net_point_param_vals - WHERE copa_id = r.copa_id; - -- - DELETE contract_parameters - WHERE copa_id = r.copa_id; - EXCEPTION - WHEN others THEN - p_success := FALSE; - p_return_error := caco_utilities.get_module_text(2329); - -- An unexpected error has occurred while updating contract. Please contact support - caco_debug.putline('efno_contracts.ins_or_upd_contract_p1: ' - ||'Update of contract parameters failed (deleting parameter): ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed deleting CNPPV or COPA: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.del_redundant_pars'); - -- - ROLLBACK TO SAVEPOINT before_del_pars; - EXIT upd_del_copa_loop; - END; - -- - END IF; -- end when the parameter has been removed from the contract - -- - END LOOP upd_del_copa_loop; - -- -END del_redundant_pars; - - - -PROCEDURE ins_required_pars( p_contract_id IN contracts.cont_id%TYPE - , p_template_id IN contract_templates.cote_id%TYPE - , p_parameter_array IN parameter_array - , p_success OUT BOOLEAN - , p_return_error OUT VARCHAR2 ) -IS - -- - CURSOR c_cotp( cp_cote_id IN NUMBER - , cp_pars_id IN NUMBER ) IS - SELECT 'Y' - FROM contract_template_params - WHERE cote_id = cp_cote_id - AND pars_id = cp_pars_id; - -- - l_inherited VARCHAR2(1) := 'N'; -BEGIN - SAVEPOINT before_ins_pars; - -- - p_success := TRUE; - -- - <> - FOR i IN 1..p_parameter_array.COUNT LOOP - -- - l_inherited := 'N'; - -- Test if this parameter was inherited - OPEN c_cotp( p_template_id, p_parameter_array(i).pars_id ); - FETCH c_cotp INTO l_inherited; - CLOSE c_cotp; - -- - IF NOT copa_in_db( p_parameter_array(i).pars_id - , p_contract_id ) - THEN - -- Current Parameter does not exist in the DB so we need to INSERT - p_success := ins_contract_pars( p_contract_id - , p_parameter_array(i).pars_id - , l_inherited - , p_return_error ); - -- - IF NOT p_success THEN - EXIT upd_ins_copa_loop; - END IF; - -- - ELSE - -- But if the parameter DOES exist - make sure it has the correct contract template id - -- in case there has been a change of contract template.... - BEGIN - UPDATE contract_parameters - SET inherited = l_inherited - WHERE cont_id = p_contract_id - AND pars_id = p_parameter_array(i).pars_id; - EXCEPTION - WHEN others THEN - p_success := FALSE; - p_return_error := caco_utilities.get_module_text(2222); - -- An unexpected error has occurred while updating contract parameters. Please contact support - caco_debug.putline('efno_contracts.ins_or_upd_contract_p1: ' - ||'Update of contract parameters failed (update): ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed inserting COPA: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_required_pars'); - -- - ROLLBACK TO SAVEPOINT before_ins_pars; - EXIT upd_ins_copa_loop; - END; - -- - END IF; -- end of parameter doesnt exist in DB - END LOOP upd_ins_copa_loop; - -- -END ins_required_pars; - - -PROCEDURE ins_or_upd_cont_opt(p_cont_id IN contract_options.cont_id%TYPE, - p_ind_deadline_for_nom_submit IN contract_options.ind_deadline_for_nom_submit%TYPE, - p_shipper IN contract_options.shipper%TYPE, - p_auto_gen_conf IN contract_options.auto_gen_conf%TYPE, - p_conf_type IN contract_options.conf_type%TYPE, - p_com_conf_subject IN contract_options.com_conf_subject%TYPE, - p_com_conf_content IN contract_options.com_conf_content%TYPE, - p_nom_conf_subject IN contract_options.nom_conf_subject%TYPE, - p_nom_conf_content IN contract_options.nom_conf_content%TYPE, - p_ind_deadline_hr IN contract_options.ind_deadline_for_nom_submit%TYPE, - p_ind_deadline_mi IN contract_options.ind_deadline_for_nom_submit%TYPE, - p_int_subject IN contract_options.int_subject%TYPE, - p_int_content IN contract_options.int_content%TYPE, - p_int_sms_content IN contract_options.int_sms_content%TYPE) IS - -- - l_error VARCHAR2(1); - l_return_error VARCHAR2(250); -- If the insert or update fails - put an error message in here. - l_success BOOLEAN := TRUE; -- Used to track how well we are doing in this code.. - l_success_char VARCHAR2(1) := NULL; - l_contract_exists VARCHAR2(1) := 'N'; - l_conf_type_found BOOLEAN := FALSE; - -- - l_cont_id contract_options.cont_id%TYPE; - l_ind_deadline_for_nom_submit contract_options.ind_deadline_for_nom_submit%TYPE; - l_shipper contract_options.shipper%TYPE; - l_auto_gen_conf contract_options.auto_gen_conf%TYPE; --not null - l_conf_type contract_options.conf_type%TYPE; --not null - l_com_conf_subject contract_options.com_conf_subject%TYPE; --not null - l_com_conf_content contract_options.com_conf_content%TYPE; --not null - l_nom_conf_subject contract_options.nom_conf_subject%TYPE; --not null - l_nom_conf_content contract_options.nom_conf_content%TYPE; --not null - l_ind_deadline_hr contract_options.ind_deadline_for_nom_submit%TYPE; - l_ind_deadline_mi contract_options.ind_deadline_for_nom_submit%TYPE; - l_int_subject contract_options.int_subject%TYPE; - l_int_content contract_options.int_content%TYPE; - l_int_sms_content contract_options.int_sms_content%TYPE; - -- - CURSOR c_cont(cp_contract_id IN NUMBER) IS - SELECT 'Y' FROM contract_options WHERE cont_id = cp_contract_id; - -- - CURSOR c_conf_type IS - SELECT rv_low_value, - rv_meaning - FROM cg_ref_codes - WHERE rv_domain = 'CONTRACT_OPTIONS.CONF_TYPE' - ORDER BY rv_meaning; -BEGIN - -- Check we have permission to be using this module. - -- Only called from the Create contracts screen - IF NOT caco_security.security_check('efnow050$') THEN - RETURN; - END IF; - -- - -- Validation - -- Valid Contract ID - OPEN c_cont(p_cont_id); - FETCH c_cont - INTO l_contract_exists; - CLOSE c_cont; - IF l_contract_exists != 'Y' THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(3969); - -- Data is not linked to a valid contract number. Please contact support - END IF; - -- - IF l_success THEN - l_cont_id := p_cont_id; - l_ind_deadline_for_nom_submit := p_ind_deadline_for_nom_submit; - l_shipper := p_shipper; - l_auto_gen_conf := p_auto_gen_conf; - l_conf_type := p_conf_type; - l_com_conf_subject := TRIM(p_com_conf_subject); - l_com_conf_content := TRIM(p_com_conf_content); - l_nom_conf_subject := TRIM(p_nom_conf_subject); - l_nom_conf_content := TRIM(p_nom_conf_content); - l_ind_deadline_hr := TRIM(p_ind_deadline_hr); - l_ind_deadline_mi := TRIM(p_ind_deadline_mi); - l_int_subject := p_int_subject; - l_int_content := p_int_content; - l_int_sms_content := p_int_sms_content; - END IF; - -- - -- Mandatory Fields - -- - --Auto Generate Confirm - must be Y or N - IF l_auto_gen_conf != 'Y' - AND l_auto_gen_conf != 'N' - AND l_success THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(3970); - -- Auto Generate Confirm is a mandatory field - END IF; - --Confirmation Type - is it in the list? - IF l_success THEN - FOR r IN c_conf_type LOOP - IF r.rv_low_value = l_conf_type THEN - l_conf_type_found := TRUE; - END IF; - END LOOP; - IF NOT l_conf_type_found THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(3971); - -- Confirmation Format is a mandatory field - END IF; - END IF; - --Com Confirmation Subject - IF (l_com_conf_subject IS NULL OR l_com_conf_subject = '') - AND l_success THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(3972); - -- Com Confirmation Subject is a mandatory field - END IF; - --Com Confirmation Content - IF (l_com_conf_content IS NULL OR l_com_conf_content = '') - AND l_success THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(3973); - -- Com Confirmation Content is a mandatory field - END IF; - --Nom Confirmation Subject - IF (l_nom_conf_subject IS NULL OR l_nom_conf_subject = '') - AND l_success THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(3974); - -- Nom Confirmation Subject is a mandatory field - END IF; - --Nom Confirmation Content - IF (l_nom_conf_content IS NULL OR l_nom_conf_content = '') - AND l_success THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(3975); - -- Nom Confirmation Content is a mandatory field - END IF; - -- - -- Making sense of the Ind Sub Deadline - IF l_success THEN - IF length(l_ind_deadline_hr) = 2 - AND length(l_ind_deadline_mi) = 2 THEN - l_ind_deadline_for_nom_submit := l_ind_deadline_hr || ':' || - l_ind_deadline_mi; - ELSIF length(l_ind_deadline_hr) < 2 - AND length(l_ind_deadline_mi) = 2 THEN - l_ind_deadline_for_nom_submit := '00:' || l_ind_deadline_mi; - ELSIF length(l_ind_deadline_hr) = 2 - AND length(l_ind_deadline_mi) < 2 THEN - l_ind_deadline_for_nom_submit := l_ind_deadline_hr || ':00'; - ELSE - l_ind_deadline_for_nom_submit := ''; - END IF; - END IF; - -- - -- If we are happy and we know it update the table - IF l_success THEN - BEGIN - UPDATE contract_options - SET nom_conf_subject = l_nom_conf_subject, - nom_conf_content = l_nom_conf_content, - com_conf_subject = l_com_conf_subject, - com_conf_content = l_com_conf_content, - auto_gen_conf = l_auto_gen_conf, - conf_type = l_conf_type, - ind_deadline_for_nom_submit = l_ind_deadline_for_nom_submit, - shipper = l_shipper, - int_subject = l_int_subject, - int_content = l_int_content, - int_sms_content = l_int_sms_content - WHERE cont_id = l_cont_id; - EXCEPTION - WHEN OTHERS THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(3976); - -- An unexpected error has occurred while updating contract options. Please contact support - caco_debug.putline('efno_contracts.ins_or_upd_contract_p1: ' || - 'Insert of new contract failed : ' || - SQLERRM(SQLCODE)); - -- Write an error and carry on - cout_err.report_and_go(p_exception_number => SQLCODE, - p_exception_message => 'Failed updating contract options: ' || - SQLERRM(SQLCODE), - p_source => 'efno_contracts.ins_or_upd_cont_opt'); - -- - END; - IF l_success THEN - -- Commit the changes - COMMIT; - -- - l_success_char := 'Y'; - l_error := NULL; - l_return_error := NULL; - -- - ELSE - -- Failed somewhere - -- Rollback any partially made inserts/updates - ROLLBACK; - -- - l_success_char := NULL; - l_error := 'Y'; - -- - END IF; - -- - -- Call the contract options screen - efnow050$.contract_options_p(p_contract_id => l_cont_id, - p_success => l_success_char, - p_error => l_error, - p_err_msg => l_return_error); - -- - END IF; -END ins_or_upd_cont_opt; - - -PROCEDURE ins_or_upd_contract_p1( p_ins_or_upd IN VARCHAR2 DEFAULT 'INSERT' - , p_contract_id IN contracts.cont_id%TYPE DEFAULT 0 - , p_contract_number IN VARCHAR2 DEFAULT NULL - , p_pre_contract_id IN contracts.prev_cont_id%TYPE DEFAULT 0 - , p_customer_id IN customers.cust_id%TYPE DEFAULT 0 - , p_template_id IN contract_templates.cote_id%TYPE DEFAULT 0 - , p_spte_id IN spreadsheet_templates.spte_id%TYPE DEFAULT 0 - , p_ops_contact IN VARCHAR2 DEFAULT NULL - , p_bus_contact IN VARCHAR2 DEFAULT NULL - , p_status IN contracts.status%TYPE DEFAULT NULL - , p_days_before IN VARCHAR2 DEFAULT NULL - , p_date_from IN VARCHAR2 DEFAULT NULL - , p_date_to IN VARCHAR2 DEFAULT NULL - , p_val_window IN VARCHAR2 DEFAULT NULL - , p_val_action IN contracts.validation_action%TYPE DEFAULT NULL - , p_val_exception IN contracts.validation_exception%TYPE DEFAULT NULL - , p_lookback_action IN contracts.lookback_action%TYPE DEFAULT NULL - , p_nepo_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_cate_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_pars_id IN owa_util.vc_arr DEFAULT g_vc_arr ) -IS - -- - CURSOR c_cont (cp_contract_id IN NUMBER) IS - SELECT * - FROM contracts - WHERE cont_id = cp_contract_id; - -- - CURSOR c_cotc( cp_cote_id IN NUMBER - , cp_cate_id IN NUMBER ) IS - SELECT 'Y' - FROM contract_template_categories - WHERE cote_id = cp_cote_id - AND cate_id = cp_cate_id; - -- - CURSOR c_cotp( cp_cote_id IN NUMBER - , cp_pars_id IN NUMBER ) IS - SELECT 'Y' - FROM contract_template_params - WHERE cote_id = cp_cote_id - AND pars_id = cp_pars_id; - -- - -- Cursor to determine if the contract number has been used previously for the customer TYPE - CURSOR c_unique_cont_num( cp_cont_num IN VARCHAR2 ) IS - SELECT 'X' - FROM contracts cont - , customers cust - WHERE cust.cust_id = cont.cust_id - AND cust.cuty_id = caco_utilities.cuty_id_for_user - AND cont.contract_number = cp_cont_num - AND cont.cont_id != NVL(p_contract_id,0); - -- - -- Cursor to check if there are any open contracts for this customer - -- for the date range given - CURSOR c_active_cont_check( cp_date_from IN DATE - , cp_date_to IN DATE ) - IS - SELECT 'X' - FROM contracts - WHERE cust_id = p_customer_id -- this customer - AND cont_id != NVL(p_contract_id,0) -- Not this contract (if updating) - AND status = 'O' -- Open - AND ( valid_from BETWEEN cp_date_from AND cp_date_to - OR valid_until BETWEEN cp_date_from AND cp_date_to - OR cp_date_from BETWEEN valid_from AND valid_until ); - -- - -- Cursor to check if the previous contract is consistent following - -- a change of valid_from date - CURSOR c_pre_cont(cp_pre_cont_id in number, cp_date_from IN DATE) IS - SELECT 'X' - FROM contracts - WHERE cont_id = cp_pre_cont_id - AND valid_until < cp_date_from; - -- - l_error VARCHAR2(1); - l_return_error VARCHAR2(250); -- If the insert or update fails - put an error message in here. - -- - l_contract_id contracts.cont_id%TYPE := 0; - l_pre_contract_id contracts.prev_cont_id%TYPE := 0; - l_contract_number VARCHAR2(2000) := NULL; - l_template_id contracts.cote_id%TYPE := NULL; - l_customer_id contracts.cust_id%TYPE := 0; - l_spte_id contracts.spte_id%TYPE := 0; - l_ops_contact VARCHAR2(2000) := NULL; - l_bus_contact VARCHAR2(2000) := NULL; - l_status contracts.status%TYPE := NULL; - l_days_before VARCHAR2(2000) := NULL; - l_date_from VARCHAR2(2000) := NULL; - l_date_to VARCHAR2(2000) := NULL; - l_val_window VARCHAR2(2000) := NULL; - l_val_action contracts.validation_action%TYPE := NUlL; - l_val_exception contracts.validation_exception%TYPE := NULL; - l_lookback_action contracts.lookback_action%TYPE := NULL; - -- - l_inherited VARCHAR2(1) := 'N'; - -- - l_network_point_array network_point_array; - l_category_array category_array; - l_parameter_array parameter_array; - -- - l_dummy_date_from DATE; - l_dummy_date_to DATE; - l_dummy_char VARCHAR2(1); - -- - l_nepo_id owa_util.vc_arr; - l_cate_id owa_util.vc_arr; - l_pars_id owa_util.vc_arr; - -- - l_success BOOLEAN := TRUE; -- Used to track how well we are doing in this code.. - l_success_char VARCHAR2(1) := NULL; - -- - l_code_position VARCHAR2(4) := '0000'; - -- - l_contract contracts%ROWTYPE; - -- -BEGIN - -- Check we have permission to be using this module. - -- Only called from the Create contracts screen - IF NOT caco_security.security_check('efnow050$') THEN - RETURN; - END IF; - -- - -- Look for whether we are inserting or updating - IF p_ins_or_upd IS NULL - AND l_success - OR ( UPPER(p_ins_or_upd) != 'INSERT' AND UPPER(p_ins_or_upd) != 'UPDATE' ) - THEN - -- Cannot tell if we should be inserting or updating. Well, we could - -- but it's easier to enforce this on the calling prog instead of Assuming. - -- and you know the old adage about ASSUME eh? - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2331); - -- Could not determine if Inserting or Updating - -- - END IF; - -- - -- Only check contract id if updating - IF l_success - AND p_ins_or_upd = 'UPDATE' - AND ( p_contract_id IS NULL OR p_contract_id = 0 ) - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2317); - -- Update of Contract failed - No Contract Id was provided - END IF; - -- - -- Get Contract Template Id (do this first in case no contract number provided. - -- (for re-creating the maintain contract screen correctly with error message) - IF l_success - AND ( p_template_id IS NULL OR p_template_id = 0 ) - THEN - l_template_id := NULL; - -- - ELSIF l_success THEN - l_template_id := p_template_id; - END IF; - -- - -- Get Contract Number - IF l_success - AND ( p_contract_number IS NULL OR LENGTH(p_contract_number) > 30 ) - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2236); - -- Contract number must be present with a maximum length of 30 characters - -- - ELSIF l_success THEN - -- Need to ensure that the contract number is unique within OMT or PUW - OPEN c_unique_cont_num( p_contract_number ); - FETCH c_unique_cont_num INTO l_dummy_char; - IF c_unique_cont_num%FOUND THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2252); - -- Duplicate Contract Number already exists - END IF; - CLOSE c_unique_cont_num; - -- - END IF; - -- - -- Get Customer ID - IF l_success - AND ( p_customer_id IS NULL OR p_customer_id = 0 ) - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2325); - -- You must select a Customer for this Contract - END IF; - -- - -- Get Spreadsheet Template - IF l_success - AND ( p_spte_id IS NULL OR p_spte_id = 0 ) - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2207); - -- A Spreadsheet Template must be selected - END IF; - -- - -- Get Ops Contact - IF l_success - AND ( p_ops_contact IS NULL OR LENGTH(p_ops_contact) > 25 ) - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2291); - -- Ops Contact must be present with a maximum length of 25 characters - END IF; - -- - -- Get Business Contact - IF l_success - AND ( p_bus_contact IS NULL OR LENGTH(p_bus_contact) > 25 ) - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2227); - -- Bus Contact must be present with a maximum length of 25 characters - END IF; - -- - -- Get Status - IF l_success - AND ( p_status IS NULL - OR ( p_status != 'O' AND p_status != 'C' ) ) - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2300); - -- Status must be present as either OPEN or CLOSED - END IF; - -- - -- Get Days Before - IF l_success - AND p_days_before IS NULL - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2247); - -- Days Before must be entered - ELSIF l_success THEN - BEGIN - SELECT TO_NUMBER(p_days_before) - INTO l_days_before - FROM dual; - -- - IF l_days_before < 1 THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2516); - -- Days Before must be greater than 0 (zero) - END IF; - EXCEPTION - WHEN others THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2416); - -- Days Before must be a valid number - END; - END IF; - -- - l_code_position := '0200'; - -- - -- Get Date From - IF l_success - AND p_date_from IS NOT NULL - THEN - BEGIN - SELECT TO_DATE(p_date_from, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) - INTO l_dummy_date_from - FROM dual; - EXCEPTION - WHEN others THEN - l_success := FALSE; - -- Date From must be a valid date - l_return_error := caco_utilities.get_module_text(2242); - END; - ELSIF l_success - AND p_date_from IS NULL - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2243); - -- Date From must be entered - END IF; - -- - -- Get Date To - IF l_success - AND p_date_to IS NOT NULL - THEN - BEGIN - SELECT TO_DATE(p_date_to, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) - INTO l_dummy_date_to - FROM dual; - EXCEPTION - WHEN others THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2245); - -- Date To must be a valid date - END; - ELSIF l_success - AND p_date_to IS NULL - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2246); - -- Date To must be entered - END IF; - -- - -- Check that Date from is before Date To - IF l_success - AND l_dummy_date_to <= l_dummy_date_from - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2417); - -- Date To must be after Date From - END IF; - -- Check that Date From is consistent with the named Previous Contract - IF l_success AND p_pre_contract_id <> 0 AND p_pre_contract_id is not null - THEN - open c_pre_cont(p_pre_contract_id, l_dummy_date_from); - fetch c_pre_cont into l_dummy_char; - if c_pre_cont%notfound then - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(3962); - -- Date From must be after Previous Contract Date To - end if; - END IF; - -- - -- AWG October 2010 - Change Requests August 2010 Section 3.1 - -- This validation will be removed so that a customer can have more than one open - -- contract for a date period. - /* - -- - -- Can create a CLOSED contract at any time - -- but need to check for open contracts when creating or updating to OPEN - IF l_success - AND p_status = 'O' - THEN - -- Need to ensure that there is only ever one OPEN contract for the customer for a date period - -- An OPEN contract CAN overlap a CLOSED one - OPEN c_active_cont_check( l_dummy_date_from - , l_dummy_date_to ); - FETCH c_active_cont_check INTO l_dummy_char; - IF c_active_cont_check%FOUND THEN - -- An existing contract is open for part (or all) of the period specified for this contract - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2434); - -- Open contracts exist for this date period - -- - END IF; - CLOSE c_active_cont_check; - -- - END IF; - */ - -- - -- Get validation window - IF l_success - AND p_val_window IS NULL - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2323); - -- Validation Window must be a number with a value between 0 and 365 - ELSIF l_success THEN - BEGIN - SELECT TO_NUMBER(p_val_window) - INTO l_val_window - FROM dual; - -- - IF l_val_window < 0 OR l_val_window > 365 THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2323); - -- Validation Window must be a number with a value between 0 and 365 - END IF; - EXCEPTION - WHEN others THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2323); - -- Validation Window must be a number with a value between 0 and 365 - END; - END IF; - -- - -- Get validation action - IF l_success - AND ( p_val_action IS NULL OR p_val_action NOT IN ('I','T','B') ) - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2319); - -- Validation action must be selected - END IF; - -- - -- Get validation exception - IF l_success - AND ( p_val_exception IS NULL OR p_val_exception NOT IN ('CO','MI','MA') ) - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2321); - -- Validation Exception must be selected - END IF; - -- - -- Get lookback action - IF l_success - AND ( p_lookback_action IS NULL OR p_lookback_action NOT IN ('T','A') ) - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2321); - -- Validation Exception must be selected - END IF; - -- - -- Check that the virtual network point is only selected for entry mandatory offer contracts - l_code_position := '0300'; - IF l_success - THEN - find_passed_net_points( p_nepo_id - , l_network_point_array ); - IF vnepo_count(l_network_point_array) > 0 AND NOT emo_template(l_template_id) THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(3913); - -- Virtual Network Point can only be assigned to an Entry Mandatory Offer Contract - ELSIF vnepo_count(l_network_point_array) = 0 AND emo_template(l_template_id) THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(3914); - -- An Entry Mandatory Offer Contract must have a Virtual Network Point assigned - ELSIF vnepo_count(l_network_point_array) > 1 AND emo_template(l_template_id) THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(3922); - -- A contract can only contain one Virtual Network Point - END IF; - END IF; - -- - -- Hokey Cokey. Insert or Update the basic part of the contract/template - -- and then the network points, categories and parameters - -- Remember - for each category, add its associated parameters. - -- - l_code_position := '0900'; - -- - IF l_success THEN - l_code_position := '1000'; - -- Lets look at Inserting the contract first... - IF p_ins_or_upd = 'INSERT' THEN - BEGIN - INSERT INTO contracts - ( cont_id - , contract_number - , spte_id - , operations_contact - , business_contact - , receive_before_start - , valid_from - , valid_until - , status - , cote_id - , cust_id - , validation_window - , validation_action - , validation_exception - , lookback_action - , prev_cont_id ) - VALUES - ( cont_seq.NEXTVAL - , p_contract_number - , p_spte_id - , p_ops_contact - , p_bus_contact - , p_days_before - , TO_DATE(p_date_from, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) - , TO_DATE(p_date_to, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) - , p_status - , l_template_id - , p_customer_id - , p_val_window - , p_val_action - , p_val_exception - , p_lookback_action - , p_pre_contract_id ) - RETURNING cont_id INTO l_contract_id; - EXCEPTION - WHEN others THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2327); - -- An unexpected error has occurred while inserting new contract. Please contact support - caco_debug.putline('efno_contracts.ins_or_upd_contract_p1: ' - ||'Insert of new contract failed : '||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed inserting new contract: '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_or_upd_contract_p1'); - -- - END; - -- - IF l_success THEN - l_success := ins_or_upd_inh_rules( p_ins_or_upd - , l_contract_id - , l_template_id - , l_return_error ); - END IF; - -- - ELSE - l_code_position := '1100'; - -- - l_success := ins_or_upd_inh_rules( p_ins_or_upd - , p_contract_id - , l_template_id - , l_return_error ); - -- - -- Only want to update the contract if the inherited rules have updated correctly - IF l_success THEN - -- get the currect contract values before updating so we can check for changes - OPEN c_cont(p_contract_id); - FETCH c_cont INTO l_contract; - CLOSE c_cont; - -- Update - BEGIN - UPDATE contracts - SET contract_number = p_contract_number - , spte_id = p_spte_id - , operations_contact = p_ops_contact - , business_contact = p_bus_contact - , receive_before_start = p_days_before - , valid_from = TO_DATE(p_date_from, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) - , valid_until = TO_DATE(p_date_to, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) - , status = p_status - , cote_id = l_template_id - , cust_id = p_customer_id - , validation_window = p_val_window - , validation_action = p_val_action - , validation_exception = p_val_exception - , lookback_action = p_lookback_action - , prev_cont_id = p_pre_contract_id - WHERE cont_id = p_contract_id; - -- - EXCEPTION - WHEN others THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2329); - -- An unexpected error has occurred while updating contract. Please contact support - caco_debug.putline('efno_contracts.ins_or_upd_contract_p1: ' - ||'Update of contract failed : '||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed updating contract (ID = '||p_contract_id||'): '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_or_upd_contract_p1'); - -- - END; - -- - -- Invalidate any related interruption types if key column values have changed - IF l_contract.valid_from <> TO_DATE(p_date_from, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) OR - l_contract.valid_until <> TO_DATE(p_date_to, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) OR - l_contract.status <> p_status THEN - -- - l_success := invalidate_inty(p_contract_id); - -- - END IF; - -- - l_contract_id := p_contract_id; - -- - END IF; - END IF; -- Insert or Update of contract - END IF; -- End of basic insert - -- - l_code_position := '1200'; - -- - -- Get Network Points - IF l_success THEN - l_code_position := '2000'; - -- Find passed network points - -- SP 7/7/09 find_passed_net_points is now done in validation so no longer required here -/* find_passed_net_points( p_nepo_id - , l_network_point_array );*/ - -- - IF p_ins_or_upd = 'INSERT' THEN - l_code_position := '2100'; - -- Insert all Network Points - l_success := insert_cont_nepo( l_contract_id - , l_network_point_array - , l_return_error ); - -- - ELSE - l_code_position := '2200'; - -- Update - -- This is easier to get to grips with as a two pass process - -- First, zip through the existing DB data for the contract and delete existing rows not in our array - del_redundant_nepo( l_contract_id - , l_network_point_array - , l_success - , l_return_error ); - -- - l_code_position := '2250'; - -- Second time around go through the passed array and insert those that dont exist. - IF l_success THEN - -- - ins_required_nepo( l_contract_id - , l_network_point_array - , l_success - , l_return_error ); - -- - END IF; -- end of if successful delete of existing cont net points - -- - END IF; -- end of insert or update contract network points - END IF; -- end of network points - -- - l_code_position := '2900'; - -- - -- Get Categories - IF l_success THEN - find_passed_categories( p_cate_id - , l_category_array ); - -- - IF p_ins_or_upd = 'INSERT' THEN - -- - <> - FOR i IN 1..l_category_array.COUNT LOOP - -- - l_inherited := 'N'; - -- Test if this category was inherited - OPEN c_cotc( l_template_id, l_category_array(i).cate_id ); - FETCH c_cotc INTO l_inherited; - CLOSE c_cotc; - -- - l_success := ins_contract_cate( l_contract_id - , l_category_array(i).cate_id - , NULL - , l_inherited - , l_return_error ); - -- - IF NOT l_success THEN - EXIT ins_coca_loop; - END IF; - -- - END LOOP ins_coca_loop; - -- - ELSE - -- This is easier to get to grips with as a two pass process - -- First, zip through the existing DB data for the contract and delete existing rows not in our array - del_redundant_cate( l_contract_id - , l_category_array - , l_success - , l_return_error ); - -- - -- Second, go through the passed array and insert those categories that dont already exist. - IF l_success THEN - -- - ins_required_cate( l_contract_id - , l_template_id - , l_category_array - , l_success - , l_return_error ); - -- - END IF; - -- - END IF; -- contract categories insert or update - END IF; -- end of categories - -- - l_code_position := '3990'; - -- - IF l_success THEN - l_code_position := '4000'; - -- Get Parameters - find_passed_parameters( p_pars_id - , l_parameter_array ); - -- - IF p_ins_or_upd = 'INSERT' THEN - l_code_position := '4010'; - -- Easy, just insert all passed parameters once you know if it is inherited or not. - -- - <> - FOR i IN 1..l_parameter_array.COUNT LOOP - -- - l_inherited := 'N'; - -- Test if this parameter was inherited - OPEN c_cotp( l_template_id, l_parameter_array(i).pars_id ); - FETCH c_cotp INTO l_inherited; - CLOSE c_cotp; - -- - l_success := ins_contract_pars( l_contract_id - , l_parameter_array(i).pars_id - , l_inherited - , l_return_error ); - -- - IF NOT l_success THEN - EXIT ins_copa_loop; - END IF; - -- - END LOOP ins_copa_loop; -- end of inserting new parameters - -- - ELSE - l_code_position := '4100'; - -- UPDATE. This is easier to get to grips with as a two pass process - -- First, zip through the existing DB data for the contract - -- and delete existing rows not in our array - del_redundant_pars( l_contract_id - , l_parameter_array - , l_success - , l_return_error ); - -- - l_code_position := '4150'; - -- Second, go through the passed array and insert those parameters that dont already exist. - -- - IF l_success THEN - -- - ins_required_pars( l_contract_id - , l_template_id - , l_parameter_array - , l_success - , l_return_error ); - -- - END IF; - -- - END IF; -- contract template insert or update parameter. - -- - END IF; -- end of parameters - -- - -- - IF l_success THEN - -- Commit the changes - COMMIT; - -- - l_code_position := '9010'; - -- - l_success_char := 'Y'; - l_error := NULL; - l_return_error := NULL; - l_contract_number := NULL; - l_customer_id := 0; - l_spte_id := 0; - l_ops_contact := NULL; - l_bus_contact := NULL; - l_status := NULL; - l_days_before := NULL; - l_date_from := NULL; - l_date_to := NULL; - l_val_window := NULL; - l_val_action := NULL; - l_val_exception := NULL; - l_lookback_action := NULL; - l_nepo_id := g_vc_arr; - l_cate_id := g_vc_arr; - l_pars_id := g_vc_arr; - -- - ELSE - l_code_position := '9020'; - -- - -- Failed somewhere - -- Rollback any partially made inserts/updates - ROLLBACK; - -- - IF l_contract_id = 0 - AND p_ins_or_upd = 'UPDATE' - THEN - l_contract_id := p_contract_id; - END IF; - -- - l_success_char := NULL; - l_error := 'Y'; - l_contract_number := p_contract_number; - l_customer_id := p_customer_id; - l_spte_id := p_spte_id; - l_ops_contact := p_ops_contact; - l_bus_contact := p_bus_contact; - l_status := p_status; - l_days_before := p_days_before; - l_date_from := p_date_from; - l_date_to := p_date_to; - l_val_window := p_val_window; - l_val_action := p_val_action; - l_val_exception := p_val_exception; - l_lookback_action := p_lookback_action; - l_nepo_id := p_nepo_id; - l_cate_id := p_cate_id; - l_pars_id := p_pars_id; - -- - END IF; - -- - l_code_position := '9100'; - -- - caco_debug.putline('efno_contracts.ins_or_upd_contract_p1: '||chr(10) - ||chr(10)||'p_ins_or_upd : '||p_ins_or_upd - ||chr(10)||'p_success : '||l_success_char - ||chr(10)||'p_error : '|| l_error - ||chr(10)||'p_err_msg : '||l_return_error - ||chr(10)||'p_contract_id : '||l_contract_id - ||chr(10)||'p_contract_number : '||l_contract_number - ||chr(10)||'p_template_id : '||l_template_id - ||chr(10)||'p_customer_id : '||l_customer_id - ||chr(10)||'p_spte_id : '||l_spte_id - ||chr(10)||'p_ops_contact : '||l_ops_contact - ||chr(10)||'p_bus_contact : '||l_bus_contact - ||chr(10)||'p_status : '||l_status - ||chr(10)||'p_days_before : '||l_days_before - ||chr(10)||'p_date_from : '||l_date_from - ||chr(10)||'p_date_to : '||l_date_to - ||chr(10)||'p_val_window : '||l_val_window - ||chr(10)||'p_val_action : '||l_val_action - ||chr(10)||'p_val_exception : '||l_val_exception - ||chr(10)||'p_lookback_action : '||l_lookback_action - ); - -- - -- Call the contracts screen - efnow050$.contract_startup( p_screen_type => 'CONTRACT' - , p_ins_or_upd => p_ins_or_upd - , p_success => l_success_char - , p_error => l_error - , p_err_msg => l_return_error - , p_contract_id => l_contract_id - , p_contract_number => l_contract_number - , p_template_id => l_template_id - , p_customer_id => l_customer_id - , p_spte_id => l_spte_id - , p_ops_contact => l_ops_contact - , p_bus_contact => l_bus_contact - , p_status => l_status - , p_days_before => l_days_before - , p_date_from => l_date_from - , p_date_to => l_date_to - , p_val_window => l_val_window - , p_val_action => l_val_action - , p_val_exception => l_val_exception - , p_lookback_action => l_lookback_action - , p_nepo_id => l_nepo_id - , p_cate_id => l_cate_id - , p_pars_id => l_pars_id ); - -- -EXCEPTION - WHEN others THEN - caco_debug.debug_on; - caco_debug.putline('efno_contracts.ins_or_upd_contract_p1: ' - ||'Position in Code : '||l_code_position||' : '||chr(10) - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed at position : '||l_code_position||' : '||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_or_upd_contract_p1'); - -- - ROLLBACK; - RAISE; -END ins_or_upd_contract_p1; - - - -FUNCTION del_template_pars( p_template_id IN contract_templates.cote_id%TYPE - , p_pars_id IN parameters.pars_id%TYPE - , p_contracts_exist IN BOOLEAN - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- Cursor to loop through all contracts that have the specified contract template - CURSOR c_cont IS - SELECT cont_id - FROM contracts - WHERE cote_id = p_template_id; - -- - l_success BOOLEAN := TRUE; - -- -BEGIN - SAVEPOINT before_del_cotp; - -- - IF p_contracts_exist THEN - -- - <> - FOR r IN c_cont LOOP - -- Delete contract parameter values - BEGIN - DELETE cont_net_point_param_vals cnppv - WHERE cnppv.copa_id IN ( SELECT copa.copa_id - FROM contract_parameters copa - , parameters pars - WHERE copa.cont_id = r.cont_id - AND copa.pars_id = p_pars_id ); - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2328); - -- An unexpected error has occurred while updating contract template. Please contact support - caco_debug.putline('efno_contracts.del_template_pars: ' - ||'Update of contract template parameters failed ' - ||'(deleting associated parameters values from contracts) : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed deleting template parameters associated contract parameter values: ' - ||chr(10)||sqlerrm(sqlcode) - , p_source => 'efno_contracts.delete_template_pars'); - -- - EXIT cont_pars_loop; - END; - -- - -- Delete contract parameters - BEGIN - DELETE contract_parameters - WHERE cont_id = r.cont_id - AND pars_id = p_pars_id; - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2328); - -- An unexpected error has occurred while updating contract template. Please contact support - caco_debug.putline('efno_contracts.del_template_pars: ' - ||'Update of contract template parameters failed ' - ||'(deleting contract parameters): ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed deleting template parameters from associated contracts: ' - ||chr(10)||sqlerrm(sqlcode) - , p_source => 'efno_contracts.delete_template_pars'); - -- - EXIT cont_pars_loop; - END; - -- - END LOOP cont_pars_loop; - -- - END IF; - -- - IF l_success THEN - -- - BEGIN - DELETE contract_template_params - WHERE cote_id = p_template_id - AND pars_id = p_pars_id; - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2328); - -- An unexpected error has occurred while updating contract template. Please contact support - caco_debug.putline('efno_contracts.ins_or_upd_template_p1: ' - ||'Update of contract template parameters failed (deleting parameter): ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed deleting contract template parameters: ' - ||chr(10)||sqlerrm(sqlcode) - , p_source => 'efno_contracts.delete_template_pars'); - -- - END; - -- - END IF; - -- - IF NOT l_success THEN - ROLLBACK TO SAVEPOINT before_del_cotp; - END IF; - -- - RETURN l_success; - -- -END del_template_pars; - - - -FUNCTION ins_template_pars( p_template_id IN contract_templates.cote_id%TYPE - , p_pars_id IN parameters.pars_id%TYPE - , p_contracts_exist IN BOOLEAN - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- Cursor to loop through all contracts that have the specified contract template - CURSOR c_cont IS - SELECT cont_id - FROM contracts - WHERE cote_id = p_template_id; - -- - l_success BOOLEAN := TRUE; - -- - l_copa_id contract_parameters.copa_id%TYPE; - -- -BEGIN - SAVEPOINT before_ins_cotp; - -- - -- Insert the parameter to all contracts that have the specified contract template - IF p_contracts_exist THEN - -- - <> - FOR r IN c_cont LOOP - -- - BEGIN - INSERT INTO contract_parameters - ( copa_id - , display_sequence - , inherited - , cont_id - , pars_id ) - VALUES - ( copa_seq.NEXTVAL - , 0 -- these parameters are not from a category - , 'Y' - , r.cont_id - , p_pars_id ) - RETURNING copa_id INTO l_copa_id; - -- - -- Now insert the values as we know it can be a little fragile without... - -- - l_success := ins_copa_cnppv ( p_contract_id => r.cont_id - , p_copa_id => l_copa_id - , p_return_error => p_return_error - ); - -- - IF NOT l_success THEN - -- - EXIT cont_pars_loop; - -- - END IF; - -- - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2217); - -- An unexpected error has occurred while inserting contract template parameters. Please contact support - caco_debug.putline('efno_contracts.ins_template_pars: ' - ||'Insert of contract template parameters failed ' - ||'(inserting parameter to associated contracts) : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed inserting parameters into associated contracts: ' - ||chr(10)||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_template_pars'); - -- - EXIT cont_pars_loop; - END; - -- - END LOOP cont_pars_loop; - -- - END IF; -- contracts exist - -- - -- Insert the template parameter. - IF l_success THEN - BEGIN - INSERT INTO contract_template_params - ( cotp_id - , display_sequence - , inherited - , cote_id - , pars_id ) - VALUES - ( cotp_seq.NEXTVAL - , ( SELECT NVL(MAX(cotp2.display_sequence),0)+10 - FROM contract_template_params cotp2 - WHERE cotp2.cote_id = p_template_id ) - , 'N' - , p_template_id - , p_pars_id ); - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2217); - -- An unexpected error has occurred while inserting contract template parameters. Please contact support - caco_debug.putline('efno_contracts.ins_or_upd_template_p1: ' - ||'Insert of contract template parameters failed : '||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed inserting contract template parameters: ' - ||chr(10)||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_or_upd_contract_p1'); - -- - END; - END IF; - -- - IF NOT l_success THEN - ROLLBACK TO SAVEPOINT before_ins_cotp; - END IF; - -- - RETURN l_success; - -- -END ins_template_pars; - -FUNCTION del_template_cate( p_template_id IN contract_templates.cote_id%TYPE - , p_cate_id IN categories.cate_id%TYPE - , p_contracts_exist IN BOOLEAN - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN -IS - -- Cursor to loop through all contracts that have the specified contract template - CURSOR c_cont IS - SELECT cont_id - FROM contracts - WHERE cote_id = p_template_id; - -- - l_success BOOLEAN := TRUE; - -- -BEGIN - SAVEPOINT before_del_cotc; - -- - -- Delete the categories and their associated parameters from all - -- contracts that have the specified contract template - IF p_contracts_exist THEN - -- - <> - FOR r IN c_cont LOOP - -- - l_success := del_contract_cate( r.cont_id - , p_cate_id - , p_return_error ); - -- - IF NOT l_success THEN - EXIT cont_cate_loop; - END IF; - -- - END LOOP cont_cate_loop; - -- - END IF; -- contracts exist - -- - -- Delete the parameters inherited from the category for this template - IF l_success THEN - BEGIN - DELETE contract_template_params cotp - WHERE cotp.cote_id = p_template_id - AND cotp.pars_id IN ( SELECT pars.pars_id - FROM parameters pars - WHERE pars.cate_id = p_cate_id ); - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2328); - -- An unexpected error has occurred while updating contract template. Please contact support - caco_debug.putline('efno_contracts.del_template_cate: ' - ||'Update of contract template categories failed (deleting associated parameters): ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed deleting contract template categories associated parameters: ' - ||chr(10)||sqlerrm(sqlcode) - , p_source => 'efno_contracts.del_template_cate'); - -- - END; - END IF; - -- - -- - IF l_success THEN - -- Now we need to delete the category from the template - BEGIN - DELETE contract_template_categories - WHERE cote_id = p_template_id - AND cate_id = p_cate_id; - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2328); - -- An unexpected error has occurred while updating contract template. Please contact support - caco_debug.putline('efno_contracts.del_template_cate: ' - ||'Update of contract template categories failed (deleting category): ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed deleting contract template categories: ' - ||chr(10)||sqlerrm(sqlcode) - , p_source => 'efno_contracts.del_template_cate'); - -- - END; - -- - END IF; - -- - IF NOT l_success THEN - ROLLBACK TO SAVEPOINT before_del_cotc; - END IF; - -- - RETURN l_success; - -- -END del_template_cate; - - - - -FUNCTION ins_template_cate( p_template_id IN contract_templates.cote_id%TYPE - , p_cate_id IN categories.cate_id%TYPE - , p_display_sequence IN categories.display_sequence%TYPE - , p_contracts_exist IN BOOLEAN - , p_return_error OUT VARCHAR2 ) RETURN BOOLEAN IS - -- - -- Cursor to loop through all contracts that have the specified contract template - -- - CURSOR c_cont IS - SELECT cont_id - FROM contracts - WHERE cote_id = p_template_id; - -- - -- Cursor to get associated parameters for INSERTed categories - CURSOR c_cate_pars IS - SELECT pars.pars_id pars_id - , cate.display_sequence display_sequence - FROM parameters pars - , categories cate - WHERE pars.cate_id = p_cate_id - AND pars.cate_id = cate.cate_id; - -- - l_success BOOLEAN := TRUE; - -- - -- For Updating Contract Categories - to determine if we need to insert into DB - FUNCTION coca_in_db( p_cate_id IN NUMBER - , p_contract_id IN NUMBER ) - RETURN BOOLEAN - IS - CURSOR c_coca IS - SELECT 'Y' - FROM contract_categories - WHERE cont_id = p_contract_id - AND cate_id = p_cate_id; - -- - l_success BOOLEAN := FALSE; - l_dummy VARCHAR2(1) := 'X'; - -- - BEGIN - OPEN c_coca; - FETCH c_coca INTO l_dummy; - IF c_coca%FOUND THEN - l_success := TRUE; - END IF; - CLOSE c_coca; - RETURN l_success; - END coca_in_db; - -- -BEGIN - SAVEPOINT before_ins_cotc; - -- - -- Insert the category and its associated parameters to all - -- contracts that have the specified contract template - IF p_contracts_exist THEN - -- - <> - FOR r IN c_cont LOOP - -- - IF NOT coca_in_db( p_cate_id - , r.cont_id ) - THEN - -- - l_success := ins_contract_cate( r.cont_id - , p_cate_id - , p_display_sequence - , 'Y' -- inherited - , p_return_error ); - -- - IF NOT l_success THEN - EXIT cont_cate_loop; - END IF; - -- - ELSE - -- Already in the DB for this contract - BEGIN - UPDATE contract_categories - SET inherited = 'Y' - ,display_sequence = p_display_sequence - WHERE cate_id = p_cate_id - AND cont_id = r.cont_id; - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2223); - -- An unexpected error has occurred while updating contract template categories. Please contact support - caco_debug.putline('efno_contracts.ins_template_cate : ' - ||'Update of contract template categories failed ' - ||'(updating existing contract categories) : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed updating contract categories to be inherited: ' - ||chr(10)||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_template_cate'); - -- - EXIT cont_cate_loop; - END; - -- we dont need to touch the parameters as they are "inherited" from the category - -- - END IF; -- already in DB or not - -- - END LOOP cont_cate_loop; - -- - END IF; -- contracts exist - -- - IF l_success THEN - BEGIN - INSERT INTO contract_template_categories - ( cotc_id - , display_sequence - , cote_id - , cate_id ) - VALUES - ( cotc_seq.NEXTVAL - , p_display_sequence - , p_template_id - , p_cate_id ); - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2223); - -- An unexpected error has occurred while updating contract template categories. Please contact support - caco_debug.putline('efno_contracts.ins_or_upd_template_p1: ' - ||'Update of contract template categories failed : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed inserting contract template categories: ' - ||chr(10)||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_template_cate'); - -- - END; - END IF; - -- - -- We also need to insert any parameters associated with this category - IF l_success THEN - FOR r IN c_cate_pars LOOP - BEGIN - INSERT INTO contract_template_params - ( cotp_id - , display_sequence - , inherited - , cote_id - , pars_id ) - VALUES - ( cotp_seq.NEXTVAL - , r.display_sequence - , 'Y' - , p_template_id - , r.pars_id ); - EXCEPTION - WHEN others THEN - l_success := FALSE; - p_return_error := caco_utilities.get_module_text(2223); - -- An unexpected error has occurred while updating contract template categories. Please contact support - caco_debug.putline('efno_contracts.ins_or_upd_template_p1: ' - ||'Update of contract template categories associated parameters failed : ' - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed inserting contract template categories associated parameters: ' - ||chr(10)||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_template_cate'); - -- - END; - END LOOP; -- end of inserting associated parameters - END IF; - -- - IF NOT l_success THEN - ROLLBACK TO SAVEPOINT before_ins_cotc; - END IF; - -- - RETURN l_success; - -- -END ins_template_cate; - - - - - --- For Updating Contract Template Categories - to enable delete of those no longer attached -FUNCTION cotc_in_array( p_id IN NUMBER - , p_cate_array IN category_array ) - RETURN BOOLEAN -IS - l_success BOOLEAN := FALSE; -BEGIN - IF NVL(p_cate_array.COUNT,0) > 0 THEN - FOR i IN p_cate_array.FIRST..p_cate_array.LAST LOOP - IF p_cate_array(i).cate_id = p_id THEN - l_success := TRUE; - END IF; - END LOOP; - END IF; - RETURN l_success; -END cotc_in_array; - - - - --- For Updating Contract Template Categories - to determine if we need to insert into DB -FUNCTION cotc_in_db( p_cate_id IN NUMBER - , p_template_id IN NUMBER ) - RETURN BOOLEAN -IS - CURSOR c_cotc IS - SELECT 'Y' - FROM contract_template_categories - WHERE cote_id = p_template_id - AND cate_id = p_cate_id; - -- - l_success BOOLEAN := FALSE; - l_dummy VARCHAR2(1) := 'X'; - -- -BEGIN - OPEN c_cotc; - FETCH c_cotc INTO l_dummy; - IF c_cotc%FOUND THEN - l_success := TRUE; - END IF; - CLOSE c_cotc; - RETURN l_success; -END cotc_in_db; - - - - --- For Updating Contract Template Parameters - to enable delete of those no longer attached -FUNCTION cotp_in_array( p_id IN NUMBER - , p_pars_array IN parameter_array ) - RETURN BOOLEAN -IS - l_success BOOLEAN := FALSE; -BEGIN - IF NVL(p_pars_array.COUNT,0) > 0 THEN - FOR i IN p_pars_array.FIRST..p_pars_array.LAST LOOP - IF p_pars_array(i).pars_id = p_id THEN - l_success := TRUE; - END IF; - END LOOP; - END IF; - RETURN l_success; -END cotp_in_array; - - - - --- For Updating Contract Template Parameters - to determine if we need to insert into DB --- Note: We are relying on the contract template screen to only show those parameters --- that are NOT associated with categories -FUNCTION cotp_in_db( p_pars_id IN NUMBER - , p_template_id IN NUMBER ) - RETURN BOOLEAN -IS - CURSOR c_cotp IS - SELECT 'Y' - FROM contract_template_params - WHERE cote_id = p_template_id - AND pars_id = p_pars_id; - -- - l_success BOOLEAN := FALSE; - l_dummy VARCHAR2(1) := 'X'; - -- -BEGIN - OPEN c_cotp; - FETCH c_cotp INTO l_dummy; - IF c_cotp%FOUND THEN - l_success := TRUE; - END IF; - CLOSE c_cotp; - RETURN l_success; -END cotp_in_db; - - - - - - - -PROCEDURE ins_or_upd_template_p1( p_ins_or_upd IN VARCHAR2 DEFAULT NULL - , p_template_id IN NUMBER DEFAULT 0 - , p_template_name IN VARCHAR2 DEFAULT NULL - , p_template_desc IN VARCHAR2 DEFAULT NULL - , p_emo IN VARCHAR2 DEFAULT NULL - , p_cate_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_pars_id IN owa_util.vc_arr DEFAULT g_vc_arr ) -IS - -- Cursor to list all contracts using the given template - CURSOR c_cont IS - SELECT cont_id - FROM contracts - WHERE cote_id = p_template_id; - -- - CURSOR c_cote_cate( cp_cote_id IN NUMBER ) IS - SELECT cate_id - FROM contract_template_categories - WHERE cote_id = cp_cote_id - FOR UPDATE; - -- - CURSOR c_cote_pars( cp_cote_id IN NUMBER ) IS - SELECT pars_id - FROM contract_template_params - WHERE cote_id = cp_cote_id - AND NVL(inherited,'N') = 'N' - FOR UPDATE; - -- - l_error VARCHAR2(1); - l_return_error VARCHAR2(250); -- If the insert or update fails - put an error message in here. - -- - l_template_id NUMBER := 0; - l_template_name contract_templates.name%TYPE := NULL; - l_template_desc contract_templates.description%TYPE := NULL; - l_emo_flag contract_templates.entry_mandatory_offer%TYPE := NULL; - l_dummy_cont_id contracts.cont_id%TYPE := 0; - -- - l_cate_id owa_util.vc_arr; - l_pars_id owa_util.vc_arr; - -- - l_category_array category_array; - l_parameter_array parameter_array; - -- - l_success BOOLEAN := TRUE; -- Used to track how well we are doing in this code.. - l_success_char VARCHAR2(1); - contracts_exist BOOLEAN := FALSE; - -- - l_code_position VARCHAR2(4) := '0000'; - -- -BEGIN - -- Check we have permission to be using this module. - -- Only called from the Create contracts screen - IF NOT caco_security.security_check('efnow050$') THEN - RETURN; - END IF; - -- - l_code_position := '0010'; - -- - IF p_ins_or_upd IS NULL - OR ( UPPER(p_ins_or_upd) != 'INSERT' AND UPPER(p_ins_or_upd) != 'UPDATE' ) - THEN - -- Cannot tell if we should be inserting or updating. Well, we could - -- but it's easier to enforce this on the calling prog instead of Assuming. - l_code_position := '0015'; - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2331); - -- Could not determine if Inserting or Updating - -- - END IF; - -- - IF l_success THEN - l_code_position := '0020'; - -- - IF UPPER(p_ins_or_upd) = 'UPDATE' - AND ( p_template_id IS NULL OR p_template_id = 0 ) - THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2316); - -- Update of Contract Template failed - No Template ID was provided - END IF; - -- - l_code_position := '0030'; - -- - IF l_success - AND ( p_template_name IS NULL OR LENGTH(p_template_name) > 50 ) - THEN - -- - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2304); - -- Template Name must be present with a maximum length of 50 characters - -- - END IF; - -- - l_code_position := '0040'; - -- - IF l_success - AND ( p_template_desc IS NULL OR LENGTH(p_template_desc) > 250 ) - THEN - -- - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2303); - -- Template Description must be present with a maximum length of 250 characters - -- - END IF; - -- - -- Hokey Cokey. Insert or Update the basic part of the template - -- and then the categories and parameters - -- Remember - for each category, add its associated parameters. - -- - l_code_position := '0050'; - -- - IF l_success THEN - -- Lets look at Inserting the contract template first... - IF p_ins_or_upd = 'INSERT' THEN - -- - l_code_position := '0060'; - -- - BEGIN - INSERT INTO contract_templates - ( cote_id - , name - , description - , entry_mandatory_offer ) - VALUES - ( cote_seq.NEXTVAL - , p_template_name - , p_template_desc - , p_emo ) - RETURNING cote_id INTO l_template_id; - EXCEPTION - WHEN dup_val_on_index THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2253); - -- Duplicate Contract Template Name already exists - WHEN others THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2219); - -- An unexpected error has occurred while inserting new contract template. Please contact support - caco_debug.putline('efno_contracts.ins_or_upd_template_p1: ' - ||'Insert of new contract template failed : '||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed inserting contract template: ' - ||chr(10)||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_or_upd_template_p1'); - -- - END; - -- - ELSE - l_code_position := '0070'; - -- Update - BEGIN - UPDATE contract_templates - SET name = p_template_name - , description = p_template_desc - , entry_mandatory_offer = p_emo - WHERE cote_id = p_template_id; - EXCEPTION - WHEN dup_val_on_index THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2253); - -- Duplicate Contract Template Name already exists - WHEN others THEN - l_success := FALSE; - l_return_error := caco_utilities.get_module_text(2328); - -- An unexpected error has occurred while updating contract template. Please contact support - caco_debug.putline('efno_contracts.ins_or_upd_template_p1: ' - ||'Update of contract template failed : '||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Failed updating contract template: ' - ||chr(10)||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_or_upd_template_p1'); - -- - END; - -- - -- Do we have any contracts for the given template id? - IF l_success THEN - OPEN c_cont; - FETCH c_cont INTO l_dummy_cont_id; - IF c_cont%FOUND THEN - contracts_exist := TRUE; - END IF; - CLOSE c_cont; - END IF; - -- - END IF; -- end of "if insert or update contract template" - -- - END IF; -- End of basic insert - -- - l_code_position := '0080'; - -- - -- Get Categories - IF l_success THEN - l_code_position := '1000'; - -- - l_template_name := p_template_name; - l_template_desc := p_template_desc; - l_emo_flag := p_emo; - -- - find_passed_categories( p_cate_id - , l_category_array ); - -- - IF p_ins_or_upd = 'INSERT' THEN - -- - l_code_position := '1010'; - -- - <> - FOR i IN 1..l_category_array.COUNT LOOP - -- - l_code_position := '1020'; - -- - l_success := ins_template_cate( l_template_id - , l_category_array(i).cate_id - , i+1 - , FALSE - , l_return_error ); - -- - IF NOT l_success THEN - EXIT ins_cotc_loop; - END IF; - -- - END LOOP ins_cotc_loop; -- end of inserting new categories - -- - ELSE - -- Update - l_code_position := '1200'; - -- - l_template_id := p_template_id; - -- - -- This is easier to get to grips with as a two pass process - -- First, zip through the existing DB data for the contract and delete existing rows not in our array - <> - FOR r IN c_cote_cate( p_template_id ) LOOP - -- - IF NOT cotc_in_array( r.cate_id - , l_category_array ) - THEN - l_code_position := '1210'; - -- This Category doesn't exist in the new set - -- So we need to delete any parameters associated with this category and then - -- delete the category itself. If any contracts have this template - we need - -- to remove the parameters and categories from those also. - -- - l_success := del_template_cate( p_template_id - , r.cate_id - , contracts_exist - , l_return_error ); - -- - IF NOT l_success THEN - EXIT upd_del_cotc_loop; - END IF; - -- - END IF; - -- - END LOOP upd_del_cotc_loop; - -- - l_code_position := '1300'; - -- - -- Second, go through the passed array and insert those categories that dont already exist. - -- - <> - FOR i IN 1..l_category_array.COUNT LOOP - -- - IF NOT cotc_in_db( l_category_array(i).cate_id - , p_template_id ) - THEN - l_code_position := '1310'; - -- - -- Current category does not exist in the DB so we need to INSERT - -- Also need to add the category and associated parameters to all contracts - -- that have this contract template - -- - l_success := ins_template_cate( p_template_id - , l_category_array(i).cate_id - , i+1 - , contracts_exist - , l_return_error ); - -- - IF NOT l_success THEN - EXIT upd_ins_cotc_loop; - END IF; - -- - ELSE - -- - -- Contract template category DOES exist, just update it's sequence - -- - upd_cotc( p_template_id - , l_category_array(i).cate_id - , i+1); - -- - END IF; - -- - END LOOP upd_ins_cotc_loop; - -- - END IF; -- contract template insert or update categories. - -- - END IF; -- End of categories - -- - l_code_position := '2000'; - -- - IF l_success THEN - l_code_position := '2010'; - -- - -- Get Parameters - find_passed_parameters( p_pars_id - , l_parameter_array ); - -- - IF p_ins_or_upd = 'INSERT' THEN - l_code_position := '2020'; - -- - -- Easy, just insert all passed parameters. - <> - FOR i IN 1..l_parameter_array.COUNT LOOP - -- - l_success := ins_template_pars( l_template_id - , l_parameter_array(i).pars_id - , contracts_exist - , l_return_error ); - -- - IF NOT l_success THEN - EXIT ins_cotp_loop; - END IF; - -- - END LOOP ins_cotp_loop; -- end of inserting new parameters - -- - ELSE - l_code_position := '2300'; - -- UPDATE. This is easier to get to grips with as a two pass process - -- First, zip through the existing DB data for the contract template - -- and delete existing rows not in our array - <> - FOR r IN c_cote_pars( p_template_id ) LOOP - -- - IF NOT cotp_in_array( r.pars_id - , l_parameter_array ) - THEN - -- This Parameterory doesn't exist in the new set - -- We need to delete the parameter - -- - l_success := del_template_pars( p_template_id - , r.pars_id - , contracts_exist - , l_return_error ); - -- - IF NOT l_success THEN - EXIT upd_del_cotp_loop; - END IF; - -- - END IF; -- end when the parameter has been removed from the contract template - -- - END LOOP upd_del_cotp_loop; - -- - l_code_position := '2310'; - -- - -- Second, go through the passed array and insert those parameters that dont already exist. - <> - FOR i IN 1..l_parameter_array.COUNT LOOP - -- - l_code_position := '2320'; - -- - IF NOT cotp_in_db( l_parameter_array(i).pars_id - , p_template_id ) - THEN - l_code_position := '2330'; - -- Current Parameter does not exist in the DB so we need to INSERT - l_success := ins_template_pars( p_template_id - , l_parameter_array(i).pars_id - , contracts_exist - , l_return_error ); - -- - IF NOT l_success THEN - EXIT upd_ins_cotp_loop; - END IF; - -- - END IF; -- end of parameter doesnt exist in DB - -- - END LOOP upd_ins_cotp_loop; - -- - END IF; -- contract template insert or update parameter. - -- - END IF; -- end of contract template parameters - -- - END IF; - -- - l_code_position := '9000'; - -- - IF l_success THEN - -- Commit the changes - COMMIT; - -- - l_success_char := 'Y'; - l_error := NULL; - l_return_error := NULL; - -- - l_code_position := '9010'; - -- - l_cate_id := g_vc_arr; - l_pars_id := g_vc_arr; - -- - ELSE - l_code_position := '9020'; - -- - l_success_char := NULL; - l_error := 'Y'; - -- - -- Failed somewhere - -- Rollback any partially made inserts/updates - ROLLBACK; - -- - l_cate_id := p_cate_id; - l_pars_id := p_pars_id; - -- - END IF; - -- - l_code_position := '9100'; - -- Call the contracts screen - efnow050$.contract_startup( p_screen_type => 'TEMPLATE' - , p_ins_or_upd => p_ins_or_upd - , p_success => l_success_char - , p_error => l_error - , p_err_msg => l_return_error - , p_template_id => l_template_id - , p_template_name => l_template_name - , p_template_desc => l_template_desc - , p_emo => l_emo_flag - , p_cate_id => l_cate_id - , p_pars_id => l_pars_id ); - -- -EXCEPTION - WHEN others THEN - ROLLBACK; - caco_debug.putline('efno_contracts.ins_or_upd_template_p1: ' - ||'Position in Code : '||l_code_position||' : '||chr(10) - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Unexpected error: Position in Code :'||l_code_position - ||chr(10)||sqlerrm(sqlcode) - , p_source => 'efno_contracts.ins_or_upd_template_p1'); - -- - RAISE; -END ins_or_upd_template_p1; --- - -PROCEDURE copy_contract_opts(p_cont_id_from IN contracts.cont_id%TYPE, - p_cont_id_to IN contracts.cont_id%TYPE) IS - -- Cursor to collect current options exist - CURSOR c_options_from IS - SELECT * FROM contract_options WHERE cont_id = p_cont_id_from; - -- Cursor to see if new options already exist - CURSOR c_options_to IS - SELECT cont_id FROM contract_options WHERE cont_id = p_cont_id_to; - l_contract_opt_record contract_options%ROWTYPE; - l_contract_id contract_options.cont_id%TYPE; - l_success BOOLEAN := TRUE; -BEGIN - IF p_cont_id_from IS NOT NULL - AND p_cont_id_from > 0 THEN - OPEN c_options_from; - FETCH c_options_from - INTO l_contract_opt_record; - IF c_options_from%NOTFOUND THEN - l_success := FALSE; - END IF; - CLOSE c_options_from; - ELSE - l_success := FALSE; - END IF; - -- - IF l_success - AND p_cont_id_to IS NOT NULL - AND p_cont_id_to > 0 THEN - OPEN c_options_to; - FETCH c_options_to - INTO l_contract_id; - IF c_options_to%FOUND THEN - l_success := FALSE; - UPDATE contract_options - SET nom_conf_subject = l_contract_opt_record.nom_conf_subject, - nom_conf_content = l_contract_opt_record.nom_conf_content, - com_conf_subject = l_contract_opt_record.com_conf_subject, - com_conf_content = l_contract_opt_record.com_conf_content, - auto_gen_conf = l_contract_opt_record.auto_gen_conf, - conf_type = l_contract_opt_record.conf_type, - ind_deadline_for_nom_submit = l_contract_opt_record.ind_deadline_for_nom_submit, - shipper = l_contract_opt_record.shipper, - int_subject = l_contract_opt_record.int_subject, - int_content = l_contract_opt_record.int_content, - int_sms_content = l_contract_opt_record.int_sms_content - WHERE cont_id = p_cont_id_to; - END IF; - CLOSE c_options_to; - ELSE - l_success := FALSE; - END IF; - -- Copy contract options across - IF l_success THEN - INSERT INTO contract_options - (cont_id, - nom_conf_subject, - nom_conf_content, - com_conf_subject, - com_conf_content, - auto_gen_conf, - conf_type, - ind_deadline_for_nom_submit, - shipper, - int_subject, - int_content, - int_sms_content) - VALUES - (p_cont_id_to, - l_contract_opt_record.nom_conf_subject, - l_contract_opt_record.nom_conf_content, - l_contract_opt_record.com_conf_subject, - l_contract_opt_record.com_conf_content, - l_contract_opt_record.auto_gen_conf, - l_contract_opt_record.conf_type, - l_contract_opt_record.ind_deadline_for_nom_submit, - l_contract_opt_record.shipper, - l_contract_opt_record.int_subject, - l_contract_opt_record.int_content, - l_contract_opt_record.int_sms_content); - END IF; -END copy_contract_opts; - -PROCEDURE copy_contract ( p_cont_id_from contracts.cont_id%TYPE - , p_cont_number_to contracts.contract_number%TYPE - ) IS - -- - l_contract_row contracts%ROWTYPE; - l_old_cont_id contracts.cont_id%TYPE; - -- - l_nepo_array owa_util.vc_arr; - l_cate_array owa_util.vc_arr; - l_pars_array owa_util.vc_arr; - -- -BEGIN - -- - -- Security check (Only called from the Create contracts screen) - -- - IF NOT caco_security.security_check('efnow050$') THEN - RETURN; - END IF; - -- - -- OK, get the contract values - -- - SELECT c.* - INTO l_contract_row - FROM contracts c - WHERE c.cont_id = p_cont_id_from; - -- - SELECT cnp.nepo_id - BULK COLLECT INTO l_nepo_array - FROM cont_network_points cnp - WHERE cnp.cont_id = p_cont_id_from; - -- - SELECT cc.cate_id - BULK COLLECT INTO l_cate_array - FROM contract_categories cc - WHERE cc.cont_id = p_cont_id_from; - -- - SELECT cp.pars_id - BULK COLLECT INTO l_pars_array - FROM contract_parameters cp - WHERE cp.cont_id = p_cont_id_from - AND cp.pars_id IN (SELECT pars_id - FROM parameters p - WHERE p.cate_id IS NULL); --- AND cp.inherited = 'N'; --- 31/07/07 SP Commented out above line so all parameters are copied including parameters inherited from template. --- 31/08/07 SP Commented back in as caused duplicate columns on contract set values screen for copied contracts. --- 19/09/07 SP Replaced with new AND clause to allow copying without duplication. - -- - -- Override specific settings - new contract must be closed - -- - l_contract_row.status := 'C'; - -- - SELECT cont_seq.nextval - INTO l_old_cont_id - FROM DUAL; - -- - commit; - -- - -- AWG Dec 2010 Requested modification to the copied contract - -- The new contract will have the original as its previous contract to - -- start the day after and last for 30 days. - ins_or_upd_contract_p1 ( p_ins_or_upd => 'INSERT' - , p_contract_id => 0 - , p_contract_number => p_cont_number_to - --, p_pre_contract_id => l_contract_row.prev_cont_id - , p_pre_contract_id => l_contract_row.cont_id - , p_customer_id => l_contract_row.cust_id - , p_template_id => l_contract_row.cote_id - , p_spte_id => l_contract_row.spte_id - , p_ops_contact => l_contract_row.operations_contact - , p_bus_contact => l_contract_row.business_contact - , p_status => l_contract_row.status - , p_days_before => l_contract_row.receive_before_start - --, p_date_from => TO_CHAR(l_contract_row.valid_from, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) - --, p_date_to => TO_CHAR(l_contract_row.valid_until, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) - , p_date_from => TO_CHAR(l_contract_row.valid_until + 1, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) - , p_date_to => TO_CHAR(l_contract_row.valid_until + 31, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) - , p_val_window => l_contract_row.validation_window - , p_val_action => l_contract_row.validation_action - , p_val_exception => l_contract_row.validation_exception - , p_lookback_action => l_contract_row.lookback_action - , p_nepo_id => l_nepo_array - , p_cate_id => l_cate_array - , p_pars_id => l_pars_array - ); - -- - SELECT cont_seq.currval - INTO l_contract_row.cont_id - FROM DUAL; - -- - IF l_contract_row.cont_id > l_old_cont_id THEN - -- - -- Copy the contract options - -- - copy_contract_opts(p_cont_id_from, l_contract_row.cont_id); - -- - -- Copy The network point group parameters - -- - INSERT INTO network_point_gp_params ( nepg_id - , cont_id - , name - , code - , value - ) - SELECT nepg_id - , l_contract_row.cont_id - , name - , code - , value - FROM network_point_gp_params npgp - WHERE npgp.cont_id = p_cont_id_from; - -- - -- Now copy the rules - -- - INSERT INTO contract_rules ( coru_id - , display_sequence - , inherited - , cont_id - , coru_type - , rule_name - , left_side - , rule_relation - , right_side - , error_message_hu - , error_message_en - , rule_id - ) - SELECT coru_seq.NEXTVAL - , cr.display_sequence - , cr.inherited - , l_contract_row.cont_id - , cr.coru_type - , cr.rule_name - , cr.left_side - , cr.rule_relation - , cr.right_side - , cr.error_message_hu - , cr.error_message_en - , cr.rule_id - FROM contract_rules cr - WHERE cr.cont_id = p_cont_id_from - AND cr.inherited = 'N'; - -- - -- Finally copy the values - -- - MERGE INTO cont_net_point_param_vals cnppv - USING ( SELECT cnppv2.value - ,cnpt.conp_id - ,cpt.copa_id - FROM cont_net_point_param_vals cnppv2 - ,contract_parameters cpf - ,contract_parameters cpt - ,cont_network_points cnpf - ,cont_network_points cnpt - WHERE cnppv2.copa_id = cpf.copa_id - AND cnppv2.conp_id = cnpf.conp_id - AND cpf.cont_id = p_cont_id_from - AND cpf.pars_id = cpt.pars_id - AND cnpf.nepo_id = cnpt.nepo_id - AND cpt.cont_id = l_contract_row.cont_id - AND cnpt.cont_id = l_contract_row.cont_id ) cnppv_sq1 - ON ( cnppv.conp_id = cnppv_sq1.conp_id - AND cnppv.copa_id = cnppv_sq1.copa_id ) - WHEN MATCHED THEN - UPDATE SET cnppv.value = cnppv_sq1.value - WHEN NOT MATCHED THEN - INSERT ( cnppv.cnppv_id - , cnppv.value - , cnppv.conp_id - , cnppv.copa_id - ) - VALUES ( cnppv_seq.NEXTVAL - , cnppv_sq1.value - , cnppv_sq1.conp_id - , cnppv_sq1.copa_id - ); - -- - END IF; - -- -END copy_contract; --- -PROCEDURE efnow050$copy ( p_contract_id IN NUMBER DEFAULT NULL - , p_contract_name IN VARCHAR2 DEFAULT NULL - , p_action IN VARCHAR2 DEFAULT NULL - ) IS - -- - l_in_error BOOLEAN := FALSE; - -- -BEGIN - -- - -- Security check (Only called from the Create contracts screen) - -- - IF NOT caco_security.security_check('efnow050$') THEN - RETURN; - END IF; - -- - -- Build the screen - -- - IF p_contract_name IS NOT NULL THEN - -- - FOR i IN ( SELECT NULL - FROM contracts c - WHERE c.contract_number = p_contract_name ) LOOP - -- - l_in_error := TRUE; - EXIT; - -- - END LOOP; - -- - END IF; - -- - IF p_action IS NULL OR l_in_error THEN - -- - -- OK, let's build the form. - -- - wsgl.openpagehead(caco_utilities.get_module_text(2099)); -- Maintain Contract Template Rules - caco_system.content_type; - htp.p(''); - wsgl.closepagehead; - wsgl.openpagebody(FALSE); - htp.p(caco_system.menu); - htp.header( nsize => 1 - , cheader => caco_utilities.get_module_text(3549) - ); - -- - IF l_in_error THEN - -- - wsgl.displaymessage(p_type => WSGL.MESS_ERROR - ,p_mess => caco_utilities.get_module_text(2252) - ); - -- - END IF; - -- - htp.p('
'); - -- - htp.p('
'); - -- - htp.p(''); - htp.p(''); - htp.p(''); - htp.p(''); - htp.p('
'||caco_utilities.get_module_text(3552)||':
'||caco_utilities.get_module_text(3553)||':
'); - -- - htp.p('
'); - -- - htp.p(''); - -- - htp.p('
'); - -- - caco_system.footer(p_closebody => TRUE); - -- - ELSE - -- - -- Otherwise, copy the contract - -- - efno_contracts.copy_contract ( p_cont_id_from => p_contract_id - , p_cont_number_to => p_contract_name - ); - -- - END IF; - -- -END efnow050$copy; --- -/** --- FUNCTION about -- --- Returns the version number and VSS header for this package --- --- %return The version number and VSS header for this package -*/ -FUNCTION about RETURN VARCHAR2 IS -BEGIN - RETURN ( g_revision || CHR(10) || g_header ); -END about; - - -BEGIN - -- Initialization - NULL; -END efno_contracts; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efno_contracts.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efno_contracts.spc deleted file mode 100644 index b0b7e53..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efno_contracts.spc +++ /dev/null @@ -1,142 +0,0 @@ -CREATE OR REPLACE PACKAGE efno_contracts IS --- --- Purpose : Nomination Rule engine functions --- #version $Revision: 1 $ --- #author $Author: Laceyk $ --- Created : 12/02/2007 16:15:16 --- -g_package_name CONSTANT VARCHAR2(30) := 'efno_contracts'; -g_header CONSTANT VARCHAR2(160) := '$Header: $'; -g_revision CONSTANT VARCHAR2(160) := '$Revision: $ Patch 0.3'; --- -g_perc_split_en module_text.text%TYPE := caco_utilities.get_module_text(3921,'EN'); -g_perc_split_hu module_text.text%TYPE := caco_utilities.get_module_text(3921,'HU'); --- - -- - g_vc_arr owa_util.vc_arr; - g_num_arr owa_util.num_arr; - -- - TYPE network_point_array IS TABLE OF network_points.nepo_id%TYPE INDEX BY BINARY_INTEGER; - -- - TYPE category_record IS RECORD ( cate_id categories.cate_id%TYPE - , inherited VARCHAR2(1) - , display_sequence NUMBER ); - -- - TYPE category_array IS TABLE OF category_record INDEX BY BINARY_INTEGER; - -- - TYPE parameter_record IS RECORD ( pars_id parameters.pars_id%TYPE - , inherited VARCHAR2(1) ); - -- - TYPE parameter_array IS TABLE OF parameter_record INDEX BY BINARY_INTEGER; - -- - TYPE contract_rules_rec IS RECORD ( display_sequence contract_rules.display_sequence%TYPE - , rule_name contract_rules.rule_name%TYPE - , rule_type contract_rules.coru_type%TYPE - , coru_id contract_rules.coru_id%TYPE - , rule_id rules.rule_id%TYPE - , inherited contract_rules.inherited%TYPE ); - -- - TYPE perc_split_record IS RECORD ( conp_id cont_net_point_param_vals.conp_id%TYPE - , value cont_net_point_param_vals.value%TYPE); - -- - TYPE perc_split_array IS TABLE OF perc_split_record INDEX BY BINARY_INTEGER; - -- - -- - CURSOR c_rules( cp_cont_id IN NUMBER ) - RETURN contract_rules_rec; - -- - /** - -- FUNCTION validate_nomination - -- Fairly Simplistic function that will just return TRUE or FALSE - -- to indicate if the given nomination is valid for the contract as it stands - -- - -- %param p_contract_id The Unique identifier of a Contract - -- %param p_nomination_id The Unique identifier of a Nomination - -- %param p_return_error OUT: Message giving brief reason why the rule is invalid if indeed it is - -- - -- %return BOOLEAN TRUE indicating that the nomination is valid - */ - FUNCTION validate_nomination( p_contract_id IN contracts.cont_id%TYPE - , p_nomination_id IN nominations.nomi_id%TYPE - , p_return_error OUT VARCHAR2 ) - RETURN BOOLEAN; - -- - -- -PROCEDURE upd_cnppv_records( p_contract_id IN NUMBER - , p_page_no IN NUMBER DEFAULT 1 - , p_cnppv_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_value IN owa_util.vc_arr DEFAULT g_vc_arr ); - -- -PROCEDURE ins_or_upd_cont_opt(p_cont_id IN contract_options.cont_id%TYPE, - p_ind_deadline_for_nom_submit IN contract_options.ind_deadline_for_nom_submit%TYPE, - p_shipper IN contract_options.shipper%TYPE, - p_auto_gen_conf IN contract_options.auto_gen_conf%TYPE, - p_conf_type IN contract_options.conf_type%TYPE, - p_com_conf_subject IN contract_options.com_conf_subject%TYPE, - p_com_conf_content IN contract_options.com_conf_content%TYPE, - p_nom_conf_subject IN contract_options.nom_conf_subject%TYPE, - p_nom_conf_content IN contract_options.nom_conf_content%TYPE, - p_ind_deadline_hr IN contract_options.ind_deadline_for_nom_submit%TYPE, - p_ind_deadline_mi IN contract_options.ind_deadline_for_nom_submit%TYPE, - p_int_subject IN contract_options.int_subject%TYPE, - p_int_content IN contract_options.int_content%TYPE, - p_int_sms_content IN contract_options.int_sms_content%TYPE); - -PROCEDURE ins_or_upd_contract_p1( p_ins_or_upd IN VARCHAR2 DEFAULT 'INSERT' - , p_contract_id IN contracts.cont_id%TYPE DEFAULT 0 - , p_contract_number IN VARCHAR2 DEFAULT NULL - , p_pre_contract_id IN contracts.prev_cont_id%TYPE DEFAULT 0 - , p_customer_id IN customers.cust_id%TYPE DEFAULT 0 - , p_template_id IN contract_templates.cote_id%TYPE DEFAULT 0 - , p_spte_id IN spreadsheet_templates.spte_id%TYPE DEFAULT 0 - , p_ops_contact IN VARCHAR2 DEFAULT NULL - , p_bus_contact IN VARCHAR2 DEFAULT NULL - , p_status IN contracts.status%TYPE DEFAULT NULL - , p_days_before IN VARCHAR2 DEFAULT NULL - , p_date_from IN VARCHAR2 DEFAULT NULL - , p_date_to IN VARCHAR2 DEFAULT NULL - , p_val_window IN VARCHAR2 DEFAULT NULL - , p_val_action IN contracts.validation_action%TYPE DEFAULT NULL - , p_val_exception IN contracts.validation_exception%TYPE DEFAULT NULL - , p_lookback_action IN contracts.lookback_action%TYPE DEFAULT NULL - , p_nepo_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_cate_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_pars_id IN owa_util.vc_arr DEFAULT g_vc_arr ); - - -PROCEDURE ins_or_upd_template_p1( p_ins_or_upd IN VARCHAR2 DEFAULT NULL - , p_template_id IN NUMBER DEFAULT 0 - , p_template_name IN VARCHAR2 DEFAULT NULL - , p_template_desc IN VARCHAR2 DEFAULT NULL - , p_emo IN VARCHAR2 DEFAULT NULL - , p_cate_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_pars_id IN owa_util.vc_arr DEFAULT g_vc_arr ); - -- - -- Procedure to copy an existing contract - -- - PROCEDURE copy_contract ( p_cont_id_from contracts.cont_id%TYPE - , p_cont_number_to contracts.contract_number%TYPE - ); - -- - PROCEDURE efnow050$copy ( p_contract_id IN NUMBER DEFAULT NULL - , p_contract_name IN VARCHAR2 DEFAULT NULL - , p_action IN VARCHAR2 DEFAULT NULL - ); - -- - -- Function to check if a contract is an Entry Mandatory Offer contract - FUNCTION emo_contract( p_contract_id IN NUMBER ) - RETURN VARCHAR2; - -- Function to check if a contract network point is a virtual network point - FUNCTION virtual_nepo( p_conp_id IN NUMBER ) - RETURN BOOLEAN; - -- Function to check if a network poinr is being used by a contract - FUNCTION nepo_in_contract ( p_nepo_id IN network_points.nepo_id%TYPE ) - RETURN BOOLEAN; -/** --- FUNCTION about -- --- %return A textual description of the version number and VSS header for this package -*/ -FUNCTION about RETURN VARCHAR2; --- -END efno_contracts; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efno_interruption.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efno_interruption.bdy deleted file mode 100644 index 2815c2e..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efno_interruption.bdy +++ /dev/null @@ -1,908 +0,0 @@ -CREATE OR REPLACE PACKAGE BODY efno_interruption IS - -- - FUNCTION j_writeworkbook(p_spreadsheet_id IN VARCHAR2 - ,p_sheet_name IN VARCHAR2) RETURN NUMBER AS - LANGUAGE JAVA NAME 'advantica.oracle.accessmanager.amfr_excel_j.amfr_excel_j.writeWorkBook(java.lang.String, java.lang.String) return long'; - -- - PROCEDURE replace_text_tags( p_int_id IN interruptions.int_id%TYPE - , p_cust_id IN customers.cust_id%TYPE DEFAULT NULL - , p_text IN OUT VARCHAR2 - ) IS - -- - c_cust_name CONSTANT VARCHAR2(100) := '{CUSTOMER_NAME}'; - c_start_date CONSTANT VARCHAR2(100) := '{START_DATE}'; - c_end_date CONSTANT VARCHAR2(100) := '{END_DATE}'; - -- - CURSOR cur_int ( p_int_id IN interruptions.int_id%TYPE ) IS - SELECT int.gas_day_start - ,int.gas_day_end - FROM interruptions int - WHERE int.int_id = p_int_id; - -- - lr_interruption cur_int%ROWTYPE; - -- - BEGIN - -- - OPEN cur_int ( p_int_id => p_int_id ); - FETCH cur_int - INTO lr_interruption; - CLOSE cur_int; - -- - p_text := REPLACE(p_text, c_cust_name, caco_utilities.get_cust_name(p_cust_id)); - p_text := REPLACE(p_text, c_start_date, TO_CHAR(lr_interruption.gas_day_start, cout_system_configuration.get_configuration_item('G_DATE_FORMAT'))); - p_text := REPLACE(p_text, c_end_date, NVL(TO_CHAR(lr_interruption.gas_day_end, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')),' ')); - -- - END replace_text_tags; - -- - -- - -- - FUNCTION return_int_ss ( p_int_id IN interruptions.int_id%TYPE - , p_cont_id IN contracts.cont_id%TYPE - ) RETURN BLOB IS - -- - -- - -- - c_spte_id CONSTANT spreadsheet_templates.spte_id%TYPE := 90; - -- - -- Generated Document - -- - l_return BLOB; - -- - -- Generic spreadsheet variables - -- - l_spreadsheet_id gtt_spreadsheet.spreadsheet_id%TYPE; - l_docu_id documents.docu_id%TYPE; - l_cust_id customers.cust_id%TYPE; - -- - -- Generic value for tag replacement - -- - l_value VARCHAR2(1000); - l_start_date DATE; - l_num_days NUMBER; - l_offset_reduction NUMBER := 0; - -- - -- Known tags - -- - c_cust_name CONSTANT VARCHAR2(100) := '{CUSTOMER_NAME}'; - c_cont_name CONSTANT VARCHAR2(100) := '{CONTRACT_NAME}'; - c_start_date CONSTANT VARCHAR2(100) := '{START_DATE}'; - c_end_date CONSTANT VARCHAR2(100) := '{END_DATE}'; - c_nepo_code CONSTANT VARCHAR2(100) := '{NETWORK_POINT_CODE}'; - c_nepo_name CONSTANT VARCHAR2(100) := '{NETWORK_POINT_NAME}'; - c_cate_name CONSTANT VARCHAR2(100) := '{CATE_NAME}'; - c_cate_units CONSTANT VARCHAR2(100) := '{CATE_UNITS}'; - c_iccv_placeholder CONSTANT VARCHAR2(100) := '{INT_CONT_CAT_VALS}'; - -- - -- Combination cursor - confirmation template and nomination type, it is correct! - -- - CURSOR cur_spte ( p_spte_id IN spreadsheet_templates.spte_id%TYPE ) IS - SELECT l_spreadsheet_id - ,sptv.x_axis - ,sptv.y_axis - ,sptv.cell_value - ,sptv.cell_datatype - ,sptv.cell_format_mask - ,sptv.cell_border - ,sptv.cell_background - ,sptv.cell_merge - ,sptv.cell_font - ,sptv.cell_fontsize - ,sptv.cell_align - ,sptv.col_width - ,sptv.row_height - ,sptv.cell_wrap - ,spte.name - FROM spreadsheet_templates spte - ,spreadsheet_template_values sptv - WHERE spte.spte_id = sptv.spte_id - AND sptv.spte_id = c_spte_id; - -- - l_r_spte cur_spte%ROWTYPE; - -- - CURSOR cur_int (p_int_id IN interruptions.int_id%TYPE) IS - SELECT int.* - FROM interruptions int - WHERE int.int_id = p_int_id; - -- - lr_int cur_int%ROWTYPE; - -- - CURSOR cur_grid ( p_int_id IN interruptions.int_id%TYPE ) IS - SELECT iccv.iccv_id - , cust.code cust - , iccv.conp_id - , coca.cate_id - , iccv.send_to_customer - , iccv.contracted_value - , iccv.interrupted_value - , iccv.confirmed_value - ,nepo.name||':'||cust.name neponame - ,ROW_NUMBER() OVER (PARTITION BY cate.name ORDER BY cust.code NULLS LAST) grid_row - FROM int_conp_coca_vals iccv - ,contract_categories coca - ,categories cate - ,cont_network_points conp - ,network_points nepo - ,contracts cont - ,customers cust - WHERE iccv.int_id = p_int_id - AND iccv.coca_id = coca.coca_id - AND coca.cate_id = cate.cate_id - AND iccv.conp_id = conp.conp_id - AND coca.cont_id = cont.cont_id - AND conp.nepo_id = nepo.nepo_id - AND cont.cust_id = cust.cust_id - AND cont.cont_id = p_cont_id - ORDER BY cust.code - ,nepo.code - ,cate.display_sequence; - -- - lr_grid_row cur_grid%ROWTYPE; - -- - PROCEDURE insert_cell ( p_r_spte IN cur_spte%ROWTYPE - , p_value_overload IN VARCHAR2 DEFAULT NULL - , p_x_increment IN NUMBER DEFAULT 0 - , p_y_increment IN NUMBER DEFAULT 0 - , p_span IN NUMBER DEFAULT NULL - ) IS - -- - l_x_axis VARCHAR2(2) := NULL; - -- - BEGIN - -- - IF p_x_increment > 0 THEN - -- - l_x_axis := CHR(ASCII(p_r_spte.x_axis)+p_x_increment); - -- - END IF; - -- - INSERT INTO gtt_spreadsheet ( spreadsheet_id - , x_axis - , y_axis - , cell_value - , cell_datatype - , cell_format_mask - , cell_border - , cell_background - , cell_merge - , cell_font - , cell_fontsize - , cell_align - , col_width - , row_height - , cell_wrap - ) - VALUES ( p_r_spte.l_spreadsheet_id - , NVL(l_x_axis, p_r_spte.x_axis) - , p_r_spte.y_axis + p_y_increment - , NVL(p_value_overload, p_r_spte.cell_value) - , p_r_spte.cell_datatype - , p_r_spte.cell_format_mask - , p_r_spte.cell_border - , p_r_spte.cell_background - , NVL(p_span, p_r_spte.cell_merge) - , p_r_spte.cell_font - , p_r_spte.cell_fontsize - , p_r_spte.cell_align - , p_r_spte.col_width - , p_r_spte.row_height - , p_r_spte.cell_wrap - ); - -- - END insert_cell; - -- - BEGIN - -- - -- Get the details from interruptions - -- - OPEN cur_int(p_int_id => p_int_id); - FETCH cur_int - INTO lr_int; - CLOSE cur_int; - -- - -- - -- Get the next sequence value - -- - SELECT spte_seq.NEXTVAL - INTO l_spreadsheet_id - FROM DUAL; - -- - -- Get the cust ID - -- - SELECT cont.cust_id - INTO l_cust_id - FROM contracts cont - WHERE cont.cont_id = p_cont_id; - -- - -- Now loop around the template - -- - OPEN cur_spte ( c_spte_id ); - -- - LOOP - -- - FETCH cur_spte - INTO l_r_spte; - -- - EXIT WHEN cur_spte%NOTFOUND; - -- - IF l_r_spte.cell_value LIKE '{%}' THEN - -- - -- Candidate for tag replacement, loop through our known tags - -- - -- {CAT_NAME} - -- {CAT_UNITS} - -- {CONTRACT_ID} - -- {CUSTOMER_NAME} - -- {CONTRACT_NAME} - -- {CUSTOMER_EMAIL} - -- {CUSTOMER_FAX} - -- {GAS_DAY} - -- {NETWORK_POINT_CODE} - -- {NETWORK_POINT_NAME} - -- {INT_CONT_CAT_VALS} - -- - l_value := NULL; - -- - IF INSTR(l_r_spte.cell_value, c_cust_name) > 0 THEN - -- - SELECT cust.name - INTO l_value - FROM customers cust - ,contracts cont - WHERE cont.cust_id = cust.cust_id - AND cont.cont_id = p_cont_id; - -- - l_value := REPLACE(l_r_spte.cell_value, c_cust_name, l_value); - -- - insert_cell ( p_r_spte => l_r_spte - , p_value_overload => l_value - ); - -- - END IF; - -- - IF INSTR(l_r_spte.cell_value, c_cont_name) > 0 THEN - -- - SELECT cont.contract_number - INTO l_value - FROM customers cust - ,contracts cont - WHERE cont.cust_id = cust.cust_id - AND cont.cont_id = p_cont_id; - -- - l_value := REPLACE(l_r_spte.cell_value, c_cont_name, l_value); - -- - insert_cell ( p_r_spte => l_r_spte - , p_value_overload => l_value - ); - -- - END IF; - -- - IF INSTR(l_r_spte.cell_value, c_start_date) > 0 OR INSTR(l_r_spte.cell_value, c_end_date) > 0 THEN - -- - l_value := l_r_spte.cell_value; - -- - l_value := REPLACE(l_value, c_start_date, NVL(TO_CHAR( lr_int.gas_day_start, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')),'')); - l_value := REPLACE(l_value, c_end_date, NVL(TO_CHAR( lr_int.gas_day_end, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')),'')); - -- - insert_cell ( p_r_spte => l_r_spte - , p_value_overload => l_value - ); - -- - -- - ELSIF INSTR(l_r_spte.cell_value, c_start_date) > 0 THEN - -- - l_value := NVL(TO_CHAR( lr_int.gas_day_start, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')),''); - -- - l_value := REPLACE(l_r_spte.cell_value, c_start_date, l_value); - -- - insert_cell ( p_r_spte => l_r_spte - , p_value_overload => l_value - ); - -- - ELSIF INSTR(l_r_spte.cell_value, c_end_date) > 0 THEN - -- - l_value := NVL(TO_CHAR( lr_int.gas_day_end, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')),''); - -- - l_value := REPLACE(l_r_spte.cell_value, c_end_date, l_value); - -- - insert_cell ( p_r_spte => l_r_spte - , p_value_overload => l_value - ); - -- - END IF; - -- - IF l_r_spte.cell_value = c_nepo_code THEN - -- - FOR site_rec IN ( SELECT site - ,rownum FROM ( - SELECT nepo.code AS site - FROM int_conp_coca_vals int - ,cont_network_points conp - ,network_points nepo - WHERE int.int_id = p_int_id - AND int.conp_id = conp.conp_id - AND conp.nepo_id = nepo.nepo_id - AND conp.cont_id = p_cont_id - GROUP BY nepo.code - ORDER BY nepo.code - ) - ) LOOP - -- - insert_cell ( p_r_spte => l_r_spte - , p_value_overload => site_rec.site - , p_y_increment => (site_rec.rownum - 1) - ); - -- - END LOOP; - -- - END IF; - -- - IF l_r_spte.cell_value = c_nepo_name THEN - -- - FOR site_rec IN ( SELECT site - ,rownum FROM ( - SELECT nepo.name AS site - FROM int_conp_coca_vals int - ,cont_network_points conp - ,network_points nepo - WHERE int.int_id = p_int_id - AND int.conp_id = conp.conp_id - AND conp.nepo_id = nepo.nepo_id - AND conp.cont_id = p_cont_id - GROUP BY nepo.name - ,nepo.code - ORDER BY nepo.code - ) - ) LOOP - -- - insert_cell ( p_r_spte => l_r_spte - , p_value_overload => site_rec.site - , p_y_increment => (site_rec.rownum - 1) - ); - -- - END LOOP; - -- - END IF; - -- - IF l_r_spte.cell_value = c_cate_name THEN - -- - -- Populate cell with Category Name - -- - FOR cat IN ( SELECT rownum, cate_id, name FROM (SELECT coca.cate_id - , cate.name - , cate.display_sequence - FROM int_conp_coca_vals iccv - ,contract_categories coca - ,categories cate - WHERE iccv.int_id = p_int_id - AND iccv.coca_id = coca.coca_id - AND coca.cate_id = cate.cate_id - GROUP BY coca.cate_id - , cate.name - , cate.display_sequence - ORDER BY cate.display_sequence - )) LOOP - -- - insert_cell ( p_r_spte => l_r_spte - , p_value_overload => cat.name - , p_x_increment => cat.rownum - 1 - ); - -- - END LOOP; - -- - END IF; - -- - IF l_r_spte.cell_value = c_cate_units THEN - -- - -- Populate cell with Category Units - -- - FOR cat IN ( SELECT rownum, cate_id, name, units FROM (SELECT coca.cate_id - , cate.name - , cate.units - , cate.display_sequence - FROM int_conp_coca_vals iccv - ,contract_categories coca - ,categories cate - WHERE iccv.int_id = p_int_id - AND iccv.coca_id = coca.coca_id - AND coca.cate_id = cate.cate_id - GROUP BY coca.cate_id - , cate.name - , cate.units - , cate.display_sequence - ORDER BY cate.display_sequence - )) LOOP - -- - insert_cell ( p_r_spte => l_r_spte - , p_value_overload => cat.units - , p_x_increment => cat.rownum - 1 - ); - -- - END LOOP; - -- - END IF; - -- - IF l_r_spte.cell_value = c_iccv_placeholder THEN - -- - OPEN cur_grid(p_int_id => p_int_id); - FETCH cur_grid - INTO lr_grid_row; - -- - FOR custnepo IN ( SELECT rownum-1 AS yincr - ,sq.* FROM ( - SELECT cust.code cust - , nepo.code nepo - , nepo.name neponame - , iccv.conp_id conp - FROM int_conp_coca_vals iccv - ,cont_network_points conp - ,network_points nepo - ,contracts cont - ,customers cust - WHERE iccv.int_id = p_int_id - AND iccv.conp_id = conp.conp_id - AND conp.cont_id = cont.cont_id - AND conp.nepo_id = nepo.nepo_id - AND cont.cust_id = cust.cust_id - AND cont.cont_id = p_cont_id - GROUP BY cust.code - , nepo.code - , nepo.name - , iccv.conp_id - ORDER BY cust.code - ,nepo.code ) sq ) LOOP - -- - FOR griddetail IN (SELECT rownum-1 AS xincr, cate_id, name, inty_code FROM ( - SELECT coca.cate_id - , cate.name - , cate.display_sequence - , inty.code AS inty_code - FROM int_conp_coca_vals iccv - ,contract_categories coca - ,categories cate - ,interruption_types inty - WHERE iccv.int_id = p_int_id - AND iccv.coca_id = coca.coca_id - AND coca.cate_id = cate.cate_id - AND inty.cate_id (+) = cate.cate_id - AND inty.status (+) = 'A' - GROUP BY coca.cate_id - , cate.name - , cate.display_sequence - , inty.code - ORDER BY cate.display_sequence - )) LOOP - -- - -- fetch cursor - -- - IF lr_grid_row.cate_id = griddetail.cate_id - AND lr_grid_row.conp_id = custnepo.conp THEN - -- - IF lr_grid_row.send_to_customer = 'Y' THEN - -- - insert_cell ( p_r_spte => l_r_spte - , p_value_overload => caco_utilities.to_thousand_separated(lr_grid_row.interrupted_value) - , p_x_increment => griddetail.xincr - , p_y_increment => custnepo.yincr - ); - ELSE - insert_cell ( p_r_spte => l_r_spte - , p_value_overload => caco_utilities.to_thousand_separated(lr_grid_row.contracted_value) - , p_x_increment => griddetail.xincr - , p_y_increment => custnepo.yincr - ); - - END IF; - -- - FETCH cur_grid - INTO lr_grid_row; - -- - END IF; - -- - END LOOP; --cate - -- - END LOOP;--custnepo - -- - CLOSE cur_grid; - -- - END IF; - -- - ELSE - -- - insert_cell ( p_r_spte => l_r_spte - ); - -- - END IF; - -- - END LOOP; - -- - CLOSE cur_spte; - -- - -- dbms_java.set_output(2000); - -- - l_docu_id := j_writeworkbook( l_spreadsheet_id - , caco_utilities.get_module_text(p_text_number => 3803) - ); - -- - -- Get the document into the return variable - -- - SELECT docu.blob_content - INTO l_return - FROM documents docu - WHERE docu_id = l_docu_id; - -- - -- Now remove the document - -- - DELETE - FROM documents d - WHERE d.docu_id = l_docu_id; - -- - -- And return - -- - RETURN l_return; - -- - EXCEPTION - WHEN OTHERS THEN - cout_err.report_and_go(p_exception_number => sqlcode, p_exception_message => sqlerrm); - END return_int_ss; - -- - PROCEDURE download ( p_remd_id IN rec_message_details.remd_id%TYPE ) IS - -- - l_document_contents documents.blob_content%TYPE; - l_mime_type documents.mime_type%TYPE; - -- - l_document_name documents.name%TYPE; - -- - BEGIN - -- - -- Get the document out of the table ready for direct transmission - -- - BEGIN - -- - SELECT remd.message_attachment - INTO l_document_contents - FROM rec_message_details remd - WHERE remd.remd_id = p_remd_id; - -- - EXCEPTION - WHEN OTHERS THEN - -- - NULL; - -- - END; - -- - l_document_name := caco_utilities.get_module_text(3803)||'.xls'; - l_mime_type := 'application/vnd.ms-excel'; - -- - owa_util.mime_header(l_mime_type, FALSE); - htp.p('Content-Length: '||dbms_lob.getlength(l_document_contents)); - htp.p('Content-Disposition: attachment; filename='||l_document_name); - owa_util.http_header_close; - -- - IF l_document_contents IS NOT NULL THEN - wpg_docload.download_file(l_document_contents); - END IF; - -- - END download; - -- - FUNCTION get_global( p_var IN VARCHAR2 ) RETURN VARCHAR2 IS - -- - l_return VARCHAR2(30); - -- - BEGIN - -- - IF p_var = 'g_query_id' THEN - -- - l_return := g_query_id; - -- - ELSIF p_var = 'g_query_start' THEN - -- - l_return := g_query_start; - -- - ELSIF p_var = 'g_query_end' THEN - -- - l_return := g_query_end; - -- - END IF; - -- - RETURN l_return; - -- - END get_global; - -- - PROCEDURE send_messages ( p_int_id IN interruptions.int_id%TYPE DEFAULT NULL - ) IS - -- - v_substitution_list caco_utilities.g_t_substitution_list; - -- - CURSOR cur_cust (p_cust_id IN customers.cust_id%TYPE ) IS - SELECT cust.int_subject - ,cust.int_content - ,cust.int_sms_content - FROM customers cust - WHERE cust.cust_id = p_cust_id; - -- - lr_cust_rec cur_cust%ROWTYPE; - -- - l_intr_ss BLOB; - -- - BEGIN - -- - -- security check - check for access to base package - -- - IF NOT caco_security.security_check('efnow210$') THEN - RETURN; - END IF; - -- - IF p_int_id IS NOT NULL THEN - -- - -- loop around all distinct recipients - -- - FOR cust_rec IN ( SELECT cont.cust_id - ,cont.cont_id - FROM int_conp_coca_vals iccv - , cont_network_points conp - , contracts cont - WHERE iccv.int_id = p_int_id - AND iccv.conp_id = conp.conp_id - AND conp.cont_id = cont.cont_id - AND iccv.send_to_customer = 'Y' - GROUP BY cont.cust_id - , cont.cont_id - ) LOOP - -- - -- Get static details - -- - OPEN cur_cust ( cust_rec.cust_id ); - FETCH cur_cust - INTO lr_cust_rec; - CLOSE cur_cust; - -- - -- Sustitute any tags - -- - replace_text_tags( p_int_id => p_int_id - , p_cust_id => cust_rec.cust_id - , p_text => lr_cust_rec.int_content - ); - -- - -- Generate details to be sent - -- - l_intr_ss := return_int_ss ( p_int_id => p_int_id - , p_cont_id => cust_rec.cont_id - ); - -- - -- Now send the details - -- - efno_msgsubs.send_recorded_messages( p_cust_id => cust_rec.cust_id - , p_suca_id => efno_msgsubs.get_suca_id( p_suca_group => 'Notification' - , p_suca_name => 'Commercial' ) - , p_message_type => 'Interruption' - , p_message_id => p_int_id - , p_email_content_en => lr_cust_rec.int_content - , p_email_subject_en => lr_cust_rec.int_subject - , p_sms_content_en => lr_cust_rec.int_sms_content - , p_file => l_intr_ss - , p_filename => caco_utilities.get_module_text(3803)||'.xls' - , p_file_mime_type => 'application/vnd.ms-excel' - ); - -- - END LOOP; -- cust_rec - -- - ELSE - -- - v_substitution_list(1) := 'p_int_id'; - -- - caco_utilities.raise_exception_error( p_exception_number => -20100 - , p_substitution_list => v_substitution_list - ); - -- - END IF; - -- - END send_messages; - -- - -- - -- - FUNCTION get_int_val ( p_val IN NUMBER - , p_conp_id IN NUMBER - , p_copa_id IN NUMBER - , p_gasday IN DATE - ) RETURN NUMBER IS - -- - l_return NUMBER; - -- - BEGIN - -- - l_return := p_val; - -- - FOR int IN (SELECT int.int_id - FROM interruptions int - WHERE p_gasday BETWEEN int.gas_day_start AND NVL(int.gas_day_end, p_gasday) - ) LOOP - -- - -- Interruption is in place on this gas day, check if value is reduced - -- - FOR iccv IN ( SELECT iccv.interrupted_value AS value - FROM int_conp_coca_vals iccv - ,contract_categories coca - ,parameters pars - ,contract_parameters copa - WHERE iccv.int_id = int.int_id - AND iccv.coca_id = coca.coca_id - AND coca.cate_id = pars.cate_id - AND pars.pars_id = copa.pars_id - AND copa.cont_id = coca.cont_id - AND iccv.conp_id = p_conp_id - AND copa.copa_id = p_copa_id - AND iccv.send_to_customer = 'Y' - AND (pars.code LIKE '%MAX' - OR pars.code LIKE '%CTR') - ) LOOP - -- - -- Only substitue MAX and contracted, and only if the interrupted value is lower - -- - l_return := LEAST(iccv.value, l_return); - -- - END LOOP; - -- - END LOOP; - -- - RETURN l_return; - -- - END get_int_val; - -- - FUNCTION am_i_interrrupted ( p_conp_id IN cont_network_points.conp_id%TYPE - , p_coca_id IN contract_categories.coca_id%TYPE - , p_gasday IN DATE - ) RETURN BOOLEAN IS - -- - l_return BOOLEAN := FALSE; - -- - BEGIN - -- - FOR int IN (SELECT int.int_id - FROM interruptions int - WHERE p_gasday BETWEEN int.gas_day_start AND NVL(int.gas_day_end, p_gasday) - ) LOOP - -- - -- Interruption is in place on this gas day, check if value is reduced - -- - FOR iccv IN ( SELECT iccv.interrupted_value AS int_val - ,iccv.contracted_value AS cont_val - FROM int_conp_coca_vals iccv - WHERE iccv.int_id = int.int_id - AND iccv.coca_id = p_coca_id - AND iccv.conp_id = p_conp_id - AND iccv.send_to_customer = 'Y' - ) LOOP - -- - -- Only substitue MAX and contracted, and only if the interrupted value is lower - -- --- IF iccv.int_val < iccv.cont_val THEN -- quantity check removed in line with interruption comments received on 13/02/2008, AG - -- - l_return := TRUE; - -- --- END IF; -- quantity check removed in line with interruption comments received on 13/02/2008, AG - -- - END LOOP; - -- - END LOOP; - -- - RETURN l_return; - -- - END am_i_interrrupted; - -- - -- - -- - PROCEDURE daily_message IS - -- - l_date DATE; - l_min_days NUMBER; - -- - CURSOR cur_inte ( p_inte_id IN interruptions.int_id%TYPE ) IS - SELECT MIN(incp.max_interruption_days) - FROM int_conp_coca_vals iccv - ,inty_conp_params incp - ,interruption_types inty - ,contract_categories coca - WHERE iccv.int_id = p_inte_id - AND inty.cate_id = coca.cate_id - AND incp.inty_id = inty.inty_id - AND iccv.coca_id = coca.coca_id - AND iccv.conp_id = incp.conp_id - AND inty.status = 'A'; - -- - BEGIN - -- - l_date := TRUNC(SYSDATE-cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24); - -- - FOR int IN ( SELECT inte.int_id - ,l_date - inte.gas_day_start AS days_so_far - FROM interruptions inte - WHERE l_date >= inte.gas_day_start - AND inte.gas_day_end IS NULL - ) LOOP - -- - OPEN cur_inte (int.int_id); - FETCH cur_inte - INTO l_min_days; - CLOSE cur_inte; - -- - IF int.days_so_far = l_min_days THEN - -- - FOR user_rec IN (SELECT DISTINCT syus_id - FROM user_profiles - WHERE sypr_id IN (SELECT sypr_id - FROM system_profiles - WHERE role_name LIKE 'EFT Admin' - OR role_name LIKE 'EFT User' - OR role_name LIKE '%KAM%')) LOOP - -- - efno_msgsubs.send_messages(p_syus_id => user_rec.syus_id - ,p_suca_id => efno_msgsubs.get_suca_id( p_suca_group => 'Notification' - , p_suca_name => 'Service' ) - ,p_email_content_en => caco_utilities.get_module_text(3849, caco_utilities.get_syus_lang(user_rec.syus_id)) - ,p_email_subject_en => caco_utilities.get_module_text(3848, caco_utilities.get_syus_lang(user_rec.syus_id)) - ,p_sms_content_en => caco_utilities.get_module_text(3849, caco_utilities.get_syus_lang(user_rec.syus_id)) - ); - -- - END LOOP; - -- - ELSIF int.days_so_far >= l_min_days THEN - -- - FOR user_rec IN (SELECT DISTINCT syus_id - FROM user_profiles - WHERE sypr_id IN (SELECT sypr_id - FROM system_profiles - WHERE role_name LIKE 'EFT Admin' - OR role_name LIKE 'EFT User' - OR role_name LIKE '%KAM%')) LOOP - -- - efno_msgsubs.send_messages(p_syus_id => user_rec.syus_id - ,p_suca_id => efno_msgsubs.get_suca_id( p_suca_group => 'Notification' - , p_suca_name => 'Service' ) - ,p_email_content_en => caco_utilities.get_module_text(3850, caco_utilities.get_syus_lang(user_rec.syus_id)) - ,p_email_subject_en => caco_utilities.get_module_text(3848, caco_utilities.get_syus_lang(user_rec.syus_id)) - ,p_sms_content_en => caco_utilities.get_module_text(3850, caco_utilities.get_syus_lang(user_rec.syus_id)) - ); - -- - END LOOP; - -- - END IF; - -- - END LOOP; - -- - END daily_message; - -- - -- - -- - PROCEDURE submit_job IS - -- - i_job binary_integer; - -- - BEGIN - -- - dbms_job.submit ( i_job - , 'efno_interruption.daily_message;' - , (TRUNC(SYSDATE-cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24) + 10/24) - , '(TRUNC(SYSDATE-cout_system_configuration.get_configuration_item(''GAS_DAY_OFFSET'')/24) + 10/24)+1' - ); - -- - END submit_job; - -- - /** - -- FUNCTION about - -- - -- Returns the version number and VSS header for this package - -- - -- %return The version number and VSS header for this package - */ - FUNCTION about RETURN VARCHAR2 IS - BEGIN - RETURN(g_revision || CHR(10) || g_header); - END about; - -- --- -BEGIN - -- Initialization - NULL; - -- -END efno_interruption; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$.bdy deleted file mode 100644 index 8b1055e..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$.bdy +++ /dev/null @@ -1,426 +0,0 @@ -create or replace package body efnow050$ is - private_ModuleRef WSGOC.MODULE_REF; - - - procedure CreateStartupJavaScript; -PROCEDURE contract_options_P( p_contract_id IN NUMBER - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL ) -IS - --- contract_options --- --- - - - -BEGIN - -- Check we have permission to be using this module. - IF NOT caco_security.security_check('efnow050$') THEN - RETURN; - END IF; - -- - efnow092$.g_package_name := 'efnow050$'; - -- - efnow092$.contract_options_P( p_contract_id => p_contract_id - , p_success => p_success - , p_error => p_error - , p_err_msg => p_err_msg ); - -- -END; -PROCEDURE contract_rules( p_contract_id IN NUMBER - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL ) -IS - --- contract_rules --- --- - - - -BEGIN - -- Check we have permission to be using this module. - IF NOT caco_security.security_check('efnow050$') THEN - RETURN; - END IF; - -- - efnow092$.g_package_name := 'efnow050$'; - -- - efnow092$.contract_rules( p_contract_id => p_contract_id - , p_success => p_success - , p_error => p_error - , p_err_msg => p_err_msg ); - -- -END; -PROCEDURE contract_startup( p_screen_type IN VARCHAR2 DEFAULT 'CONTRACT' - , p_ins_or_upd IN VARCHAR2 DEFAULT 'INSERT' - , p_success IN VARCHAR2 DEFAULT NULL - , p_contract_id IN contracts.cont_id%TYPE DEFAULT 0 - , p_contract_number IN VARCHAR2 DEFAULT NULL - , p_pre_contract_id IN contracts.prev_cont_id%TYPE DEFAULT 0 - , p_template_id IN contract_templates.cote_id%TYPE DEFAULT 0 - , p_template_name IN VARCHAR2 DEFAULT NULL - , p_template_desc IN VARCHAR2 DEFAULT NULL - , p_emo IN VARCHAR2 DEFAULT NULL - , p_customer_id IN customers.cust_id%TYPE DEFAULT 0 - , p_spte_id IN spreadsheet_templates.spte_id%TYPE DEFAULT 0 - , p_ops_contact IN VARCHAR2 DEFAULT NULL - , p_bus_contact IN VARCHAR2 DEFAULT NULL - , p_status IN contracts.status%TYPE DEFAULT NULL - , p_days_before IN VARCHAR2 DEFAULT NULL - , p_date_from IN VARCHAR2 DEFAULT NULL - , p_date_to IN VARCHAR2 DEFAULT NULL - , p_val_window IN VARCHAR2 DEFAULT 0 - , p_val_action IN contracts.validation_action%TYPE DEFAULT NULL - , p_val_exception IN contracts.validation_exception%TYPE DEFAULT NULL - , p_lookback_action IN contracts.lookback_action%TYPE DEFAULT NULL - , p_template_changed IN VARCHAR2 DEFAULT NULL - , p_prev_template_id IN NUMBER DEFAULT NULL - , p_error IN VARCHAR2 DEFAULT NULL - , p_err_msg IN VARCHAR2 DEFAULT NULL - , p_nepo_id IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr - , p_cate_id IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr - , p_pars_id IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr ) -IS - --- contract_startup --- --- - - - -BEGIN - -- Check we have permission to be using this module. - IF NOT caco_security.security_check('efnow050$') THEN - RETURN; - END IF; - -- - -- Set the package name in efnow092$ - efnow092$.g_package_name := 'efnow050$'; - -- - -- Call the contracts startup - efnow092$.startup( p_screen_type => p_screen_type - , p_ins_or_upd => p_ins_or_upd - , p_success => p_success - , p_contract_id => p_contract_id - , p_contract_number => p_contract_number - , p_template_id => p_template_id - , p_template_name => p_template_name - , p_template_desc => p_template_desc - , p_emo => p_emo - , p_customer_id => p_customer_id - , p_spte_id => p_spte_id - , p_ops_contact => p_ops_contact - , p_bus_contact => p_bus_contact - , p_status => p_status - , p_days_before => p_days_before - , p_date_from => p_date_from - , p_date_to => p_date_to - , p_val_window => p_val_window - , p_val_action => p_val_action - , p_val_exception => p_val_exception - , p_lookback_action => p_lookback_action - , p_template_changed => p_template_changed - , p_prev_template_id => p_prev_template_id - , p_error => p_error - , p_err_msg => p_err_msg - , p_nepo_id => p_nepo_id - , p_cate_id => p_cate_id - , p_pars_id => p_pars_id ); - -- -END contract_startup; -PROCEDURE contract_values_p2( p_contract_id IN NUMBER - , p_page_no IN NUMBER DEFAULT 1 - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL - , p_cnppv_id IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr - , p_value IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr - , p_data_error IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr ) -IS - --- contract_values_p2 --- --- - - - -BEGIN - -- Check we have permission to be using this module. - IF NOT caco_security.security_check('efnow050$') THEN - RETURN; - END IF; - -- - -- Set the package name - efnow092$.g_package_name := 'efnow050$'; - -- - -- Call efno092$ - efnow092$.contract_values_p2( p_contract_id => p_contract_id - , p_page_no => p_page_no - , p_success => p_success - , p_error => p_error - , p_err_msg => p_err_msg - , p_cnppv_id => p_cnppv_id - , p_value => p_value - , p_data_error => p_data_error ); - -- -END; -PROCEDURE template_rules( p_template_id IN NUMBER - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL ) -IS - --- template_rules --- --- - - - -BEGIN - -- Check we have permission to be using this module. - IF NOT caco_security.security_check('efnow050$') THEN - RETURN; - END IF; - -- - efnow092$.g_package_name := 'efnow050$'; - -- - efnow092$.template_rules( p_template_id => p_template_id - , p_success => p_success - , p_error => p_error - , p_err_msg => p_err_msg ); - -- -END; --------------------------------------------------------------------------------- --- Name: efnow050$.Startup --- --- Description: This procedure is the entry point for the 'efnow050$' --- module. --- --- Parameters: None --- --------------------------------------------------------------------------------- - procedure Startup - is - begin - if not caco_security.security_check('efnow050$') then - return; - end if; - - WSGL.RegisterURL('efnow050$.startup'); - if WSGL.NotLowerCase then - return; - end if; - WSGL.StoreURLLink(0, WSGL.MsgGetText(21,WSGLM.CAP021_TOP_LEVEL)); - efnow050$cont.startup( - Z_DIRECT_CALL => TRUE - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow050$.Startup'); - end; --------------------------------------------------------------------------------- --- Name: efnow050$.firstpage --- --- Description: This procedure creates the first page for the 'efnow050$' --- module. --- --- Parameters: Z_DIRECT_CALL - --- --------------------------------------------------------------------------------- - procedure FirstPage(Z_DIRECT_CALL in boolean - -) is - begin - if not caco_security.security_check('efnow050$') then - return; - end if; - - WSGL.OpenPageHead(''); - WSGL.METATag; - WSGL.ClosePageHead; - WSGL.OpenPageBody(FALSE, p_attributes=>''); - - CreateStartupJavaScript; - - WSGL.DefaultPageCaption('', 1); - htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="SP$AIForm"'); - WSGL.NavLinks(WSGL.MENU_LONG, 'EFNOW060', 0, 'efnow060$.startup',p_output_line=>FALSE, p_target=>'_top'); - WSGL.NavLinks(WSGL.MENU_LONG, 'EFNOW020', 0, 'efnow020$.startup',p_output_line=>FALSE, p_target=>'_top'); - WSGL.NavLinks(WSGL.MENU_LONG, 'EFNOW092', 0, 'efnow092$.startup',p_output_line=>FALSE, p_target=>'_top'); - WSGL.NavLinks(WSGL.MENU_LONG, WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT), 0, 'efnow050$.showabout', '_top', p_output_line=>FALSE); - WSGL.NavLinks; - htp.formClose; - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow050$.FirstPage'); - end; - - --------------------------------------------------------------------------------- --- Name: efnow050$.showabout --- --- Description: This procedure is used to display an 'About' page for the --- 'efnow050$' module. --- --------------------------------------------------------------------------------- - procedure showabout is - l_usr varchar2(255) := null; - begin - if not caco_security.security_check('efnow050$') then - return; - end if; - l_usr := caco_security.get_user; - - WSGL.RegisterURL('efnow050$.showabout'); - if WSGL.NotLowerCase then - return; - end if; - - WSGL.OpenPageHead(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' '); - WSGL.METATag; - TemplateHeader(TRUE,2); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>''); - - htp.p(caco_system.menu); - - WSGL.DefaultPageCaption(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' '); - - htp.para; - htp.p(' -$Revision: 1.4 $'); - htp.para; - - htp.para; - - htp.p(WSGL.MsgGetText(108,WSGLM.DSP108_GENERATED_BY, 'PL/SQL Web Generator', '10.1.2.6.18')); - htp.para; - - WSGL.Info(FALSE, 'Nominations', 'EFNOW050', l_usr); - - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow050$.ShowAbout'); - end; --------------------------------------------------------------------------------- --- Name: efnow050$.TemplateHeader --- --- Description: --- --------------------------------------------------------------------------------- - procedure TemplateHeader(Z_DIRECT_CALL in boolean, - Z_TEMPLATE_ID in number) is - begin - if not caco_security.security_check('efnow050$') then - return; - end if; - - if Z_TEMPLATE_ID = 1 then - -- Template defined in \\loordv01\framework\css2\css_content.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 2 then - -- Template defined in \\loordv01\framework\css2\css_about.htm - htp.p(' '); - elsif Z_TEMPLATE_ID = 3 then - -- Template defined in \\loordv01\framework\css2\css_query.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 4 then - -- Template defined in \\loordv01\framework\css2\css_view.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 5 then - -- Template defined in \\loordv01\framework\css2\css_insert.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 6 then - -- Template defined in \\loordv01\framework\css2\css_recordlist.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 7 then - -- Template defined in \\loordv01\framework\css2\css_lov.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 8 then - -- Template defined in \\loordv01\framework\css2\css_text.htm - htp.p(' - -'); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow050$.TemplateHeader'); - end; --------------------------------------------------------------------------------- --- Name: efnow050$.GetRef --- --- Description: Returns a handle to the display data for the --- 'efnow050$' module. --- If the display object does not exist then it creates it first. --- --- Parameters: --- --------------------------------------------------------------------------------- - - function GetRef return WSGOC.MODULE_REF - is - begin - if ( WSGOC.Is_Null(private_ModuleRef)) then - private_ModuleRef := WSGOC.Module - ( pShortName => 'efnow050$' - , pFirstTitle => '' - ); - end if; - return private_ModuleRef; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow050$.GetRef'); - raise; - end; - - - --------------------------------------------------------------------------------- --- Name: efnow050$.CreateStartupJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateStartupJavaScript is - begin - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "Startup";'); - htp.p(WSGJSL.CloseScript); - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$.spc deleted file mode 100644 index 66156a6..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$.spc +++ /dev/null @@ -1,68 +0,0 @@ -create or replace package efnow050$ is - - procedure Startup -; - procedure FirstPage(Z_DIRECT_CALL in boolean - -); - procedure ShowAbout; - procedure TemplateHeader(Z_DIRECT_CALL in boolean, - Z_TEMPLATE_ID in number); - function GetRef return WSGOC.MODULE_REF; -PROCEDURE contract_options_P( p_contract_id IN NUMBER - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL ); - -PROCEDURE contract_rules( p_contract_id IN NUMBER - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL ); - -PROCEDURE contract_startup( p_screen_type IN VARCHAR2 DEFAULT 'CONTRACT' - , p_ins_or_upd IN VARCHAR2 DEFAULT 'INSERT' - , p_success IN VARCHAR2 DEFAULT NULL - , p_contract_id IN contracts.cont_id%TYPE DEFAULT 0 - , p_contract_number IN VARCHAR2 DEFAULT NULL - , p_pre_contract_id IN contracts.prev_cont_id%TYPE DEFAULT 0 - , p_template_id IN contract_templates.cote_id%TYPE DEFAULT 0 - , p_template_name IN VARCHAR2 DEFAULT NULL - , p_template_desc IN VARCHAR2 DEFAULT NULL - , p_emo IN VARCHAR2 DEFAULT NULL - , p_customer_id IN customers.cust_id%TYPE DEFAULT 0 - , p_spte_id IN spreadsheet_templates.spte_id%TYPE DEFAULT 0 - , p_ops_contact IN VARCHAR2 DEFAULT NULL - , p_bus_contact IN VARCHAR2 DEFAULT NULL - , p_status IN contracts.status%TYPE DEFAULT NULL - , p_days_before IN VARCHAR2 DEFAULT NULL - , p_date_from IN VARCHAR2 DEFAULT NULL - , p_date_to IN VARCHAR2 DEFAULT NULL - , p_val_window IN VARCHAR2 DEFAULT 0 - , p_val_action IN contracts.validation_action%TYPE DEFAULT NULL - , p_val_exception IN contracts.validation_exception%TYPE DEFAULT NULL - , p_lookback_action IN contracts.lookback_action%TYPE DEFAULT NULL - , p_template_changed IN VARCHAR2 DEFAULT NULL - , p_prev_template_id IN NUMBER DEFAULT NULL - , p_error IN VARCHAR2 DEFAULT NULL - , p_err_msg IN VARCHAR2 DEFAULT NULL - , p_nepo_id IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr - , p_cate_id IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr - , p_pars_id IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr ); - -PROCEDURE contract_values_p2( p_contract_id IN NUMBER - , p_page_no IN NUMBER DEFAULT 1 - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL - , p_cnppv_id IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr - , p_value IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr - , p_data_error IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr ); - -PROCEDURE template_rules( p_template_id IN NUMBER - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL ); - - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$cont.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$cont.bdy deleted file mode 100644 index f052a54..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$cont.bdy +++ /dev/null @@ -1,2117 +0,0 @@ -create or replace package body efnow050$cont is - - function L_CUST_NAME_LOV( - P_VALUE in varchar2 default null, - P_CTRL in number default 0, - P_MODE in varchar2 default 'Q', - p_select_first in boolean default false, - p_onclick in boolean default false, - p_onchange in boolean default false, - p_onblur in boolean default false, - p_onfocus in boolean default false, - p_onselect in boolean default false, - p_row in number default null) return varchar2; - function BuildSQL( - P_STATUS in varchar2 default null, - P_CONTRACT_NUMBER in varchar2 default null, - P_L_CUST_NAME in varchar2 default null, - P_VALID_FROM in varchar2 default null, - U_VALID_FROM in varchar2 default null, - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean; - procedure OpenZoneSql ( I_CURSOR OUT integer ); - procedure AssignZoneRow( I_CURSOR IN integer ); - - function PreQuery( - P_STATUS in varchar2 default null, - P_CONTRACT_NUMBER in varchar2 default null, - P_L_CUST_NAME in varchar2 default null, - P_VALID_FROM in varchar2 default null, - U_VALID_FROM in varchar2 default null) return boolean; - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean; - - QF_BODY_ATTRIBUTES constant varchar2(500) := ''; - QF_QUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(3,WSGLM.CAP003_QF_FIND); - QF_CLEAR_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(4,WSGLM.CAP004_QF_CLEAR); - QF_QUERY_BUT_ACTION constant varchar2(10) := 'QUERY'; - QF_CLEAR_BUT_ACTION constant varchar2(10) := 'CLEAR'; - QF_NUMBER_OF_COLUMNS constant number(4) := 1; - VF_BODY_ATTRIBUTES constant varchar2(500) := ''; - IF_BODY_ATTRIBUTES constant varchar2(500) := ''; - RL_BODY_ATTRIBUTES constant varchar2(500) := ''; - RL_NEXT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(11,WSGLM.CAP011_RL_NEXT); - RL_PREV_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(12,WSGLM.CAP012_RL_PREVIOUS); - RL_FIRST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(13,WSGLM.CAP013_RL_FIRST); - RL_LAST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(14,WSGLM.CAP014_RL_LAST); - RL_COUNT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(15,WSGLM.CAP015_RL_COUNT); - RL_REQUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(16,WSGLM.CAP016_RL_REQUERY); - RL_QUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(24,WSGLM.CAP024_RL_QUERY); - RL_QUERY_BUT_ACTION constant varchar2(10) := 'QUERY'; - RL_NEXT_BUT_ACTION constant varchar2(10) := 'NEXT'; - RL_PREV_BUT_ACTION constant varchar2(10) := 'PREV'; - RL_FIRST_BUT_ACTION constant varchar2(10) := 'FIRST'; - RL_LAST_BUT_ACTION constant varchar2(10) := 'LAST'; - RL_COUNT_BUT_ACTION constant varchar2(10) := 'COUNT'; - RL_REQUERY_BUT_ACTION constant varchar2(10) := 'REQUERY'; - RL_RECORD_SET_SIZE constant number(4) := 0; - RL_TOTAL_COUNT_REQD constant boolean := FALSE; - RL_NUMBER_OF_COLUMNS constant number(4) := 1; - LOV_BODY_ATTRIBUTES constant varchar2(500) := ''; - LOV_FIND_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(17,WSGLM.CAP017_LOV_FIND); - LOV_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP018_LOV_CLOSE); - LOV_FIND_BUT_ACTION constant varchar2(10) := 'FIND'; - LOV_CLOSE_BUT_ACTION constant varchar2(10) := 'CLOSE'; - LOV_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - LOV_FRAME constant varchar2(20) := null; - CAL_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - CAL_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP025_CAL_CLOSE); - CAL_BODY_ATTRIBUTES constant varchar2(500) := ''; - TF_BODY_ATTRIBUTES constant varchar2(500) := ''; - DEF_BODY_ATTRIBUTES constant varchar2(500) := ''; - - type FORM_REC is record - (UI_CUST varchar2(24000) - ,UI_CONTRACT varchar2(24000) - ,UI_STATUS varchar2(24000) - ,UI_CONT_FROM varchar2(40) - ,UI_CONT_TO varchar2(40) - ,UI_EDIT_URL varchar2(24000) - ,UI_COPY_URL varchar2(24000) - ,VALID_UNTIL varchar2(12) - ,STATUS varchar2(36) - ,CONTRACT_NUMBER varchar2(180) - ,L_CUST_NAME varchar2(600) - ,CONT_ID varchar2(40) - ,CUST_ID varchar2(40) - ,VALID_FROM varchar2(12) - ); - FORM_VAL FORM_REC; - - PROCESSING_VIEW boolean := false; - ZONE_SQL varchar2(32767) := null; - ZONE_CHECKSUM varchar2(10); - - REF_COMPONENT WSGOC.COMPONENT_REF; - R_UI_CUST WSGOC.ITEM_REF; - R_UI_CONTRACT WSGOC.ITEM_REF; - R_UI_STATUS WSGOC.ITEM_REF; - R_UI_CONT_FROM WSGOC.ITEM_REF; - R_UI_CONT_TO WSGOC.ITEM_REF; - R_UI_EDIT_URL WSGOC.ITEM_REF; - R_UI_COPY_URL WSGOC.ITEM_REF; - R_VALID_UNTIL WSGOC.ITEM_REF; - R_STATUS WSGOC.ITEM_REF; - R_CONTRACT_NUMBER WSGOC.ITEM_REF; - R_L_CUST_NAME WSGOC.ITEM_REF; - R_CONT_ID WSGOC.ITEM_REF; - R_CUST_ID WSGOC.ITEM_REF; - R_VALID_FROM WSGOC.ITEM_REF; - - - -FUNCTION FormatDate ( p_date IN VARCHAR2 ) RETURN VARCHAR2 IS - --- FormatDate --- --- - - - - -- - v_return VARCHAR2(100); - v_mask VARCHAR2(34) := cout_system_configuration.get_configuration_item('G_DATE_FORMAT'); - -- -BEGIN - -- - v_return := TO_CHAR(TO_DATE(p_date,v_mask),v_mask); - -- - RETURN v_return; - -- -EXCEPTION - WHEN OTHERS THEN - RETURN p_date; -END FormatDate; -procedure ncalendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ) IS - --- ncalendar --- --- - - - - - Field_Caption Varchar2 (2000); - - procedure Output_Calendar - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_VALUE in Varchar2, - Z_FIELD_FORMAT in Varchar2, - Page_Header in Varchar2, - Body_Attributes in Varchar2, - PKG_Name in Varchar2, - Close_But_Caption in Varchar2, - First_Part in Boolean, - Z_DEFAULT_FORMAT in varchar2 - ) is - day_of_week Integer := 0; - first_day_of_week Integer := 0; - -function CALJavaScript (field_value in varchar2, field_date_format in varchar2, default_format in varchar2) return varchar2 is - - l_date date; - in_date varchar2 (10); - the_date_field varchar2 (16); - l_valid_date boolean; - l_offset_unit varchar2(4); - l_offset number; - l_sysdate date; - l_territory_offset pls_integer; - -begin - l_valid_date := false; - begin - l_date := to_date( field_value, field_date_format ); - l_valid_date := true; - exception when others then - null; - end; - - if not l_valid_date then - begin - l_date := to_date( field_value, default_format ); - l_valid_date := true; - exception when others then - null; - end; - end if; - - if not l_valid_date then - begin - l_date := to_date( field_value ); - l_valid_date := true; - exception when others then - null; - end; - end if; - - if not l_valid_date then - if substr( field_value, 1, 1 ) in ('+',' ','-') then - l_offset_unit := upper( substr( field_value, 2, 1 ) ); - begin - if l_offset_unit not in ('D','M','Y') then - l_offset := to_number( substr( field_value, 2 ) ); - else - l_offset := to_number( substr( field_value, 3 ) ); - end if; - if substr( field_value, 1, 1 ) = '-' then - l_offset := -1 * l_offset; - end if; - if l_offset_unit = 'D' then - l_date := sysdate + l_offset; - l_valid_date := true; - elsif l_offset_unit = 'M' then - l_date := add_months( sysdate, l_offset ); - l_valid_date := true; - elsif l_offset_unit = 'Y' then - l_date := add_months( sysdate, 12 * l_offset ); - l_valid_date := true; - else - l_date := sysdate + l_offset; - l_valid_date := true; - end if; - exception when others then - null; - end; - end if; - end if; - - if not l_valid_date then - l_date := sysdate; - end if; - - -- Internal date format that MUST NOT be changed - this is the same format that the JS uses to - -- parse an incoming date from the field. - in_date := to_char (l_date, 'MM-DD-YYYY'); - - if in_date is null then - the_date_field := 'dateField.value'; - else - the_date_field := '''' || in_date || ''''; - end if; - - -- Calculate the offset necessary due to territorial differences in the first day of the week. - -- We know that 31st October 1999 is a Sunday, so we can see what day of the week the database thinks this is - select to_number(to_char(to_date('31-10-1999','DD-MM-YYYY'),'D'))-1 into l_territory_offset from dual; - - return ' -function setDate() { - this.dateField = opener.dateField; - this.inDate = ' || the_date_field || '; - - // SET DAY MONTH AND YEAR TO TODAYS DATE - var now = new Date(); - var day = now.getDate(); - var month = now.getMonth(); - var year = now.getFullYear(); - - // IF A DATE WAS PASSED IN THEN PARSE THAT DATE - if (inDate.indexOf(''-'')) { - var inMonth = inDate.substring(0,inDate.indexOf("-")); - if (inMonth.substring(0,1) == "0" && inMonth.length > 1) - inMonth = inMonth.substring(1,inMonth.length); - inMonth = parseInt(inMonth); - var inDay = inDate.substring(inDate.indexOf("-") + 1, inDate.lastIndexOf("-")); - if (inDay.substring(0,1) == "0" && inDay.length > 1) - inDay = inDay.substring(1,inDay.length); - inDay = parseInt(inDay); - var inYear = parseInt(inDate.substring(inDate.lastIndexOf("-") + 1, inDate.length)); - - if (inDay) { - day = inDay; - } - if (inMonth) { - month = inMonth-1; - } - if (inYear) { - year = inYear; - } - } - this.focusDay = day; - document.calControl.month.selectedIndex = month; - document.calControl.year.value = year; - displayCalendar(day, month, year); -} - - -function setToday() { - // SET DAY MONTH AND YEAR TO TODAYS DATE - var now = new Date(); - var day = now.getDate(); - var month = now.getMonth(); - var year = now.getFullYear(); - - this.focusDay = day; - document.calControl.month.selectedIndex = month; - document.calControl.year.value = year; - displayCalendar(day, month, year); -} - - -function isFourDigitYear(year) { - if (year.length != 4 || isNaN(year)) { - alert ("'||WSGL.MsgGetText(234,WSGLM.MSG234_FOUR_DIGIT_YEAR)||'"); - document.calControl.year.select(); - document.calControl.year.focus(); - } - else { - return true; - } -} - - -function selectDate() { - var year = document.calControl.year.value; - if (isFourDigitYear(year)) { - var day = 0; - var month = document.calControl.month.selectedIndex; - displayCalendar(day, month, year); - } -} - - -function setPreviousYear() { - var year = document.calControl.year.value; - if (isFourDigitYear(year)) { - var day = 0; - var month = document.calControl.month.selectedIndex; - year--; - document.calControl.year.value = year; - displayCalendar(day, month, year); - } -} - - -function setPreviousMonth() { - var year = document.calControl.year.value; - if (isFourDigitYear(year)) { - var day = 0; - var month = document.calControl.month.selectedIndex; - if (month == 0) { - month = 11; - if (year > 1000) { - year--; - document.calControl.year.value = year; - } - } - else { - month--; - } - document.calControl.month.selectedIndex = month; - displayCalendar(day, month, year); - } -} - - -function setNextMonth() { - var year = document.calControl.year.value; - if (isFourDigitYear(year)) { - var day = 0; - var month = document.calControl.month.selectedIndex; - if (month == 11) { - month = 0; - year++; - document.calControl.year.value = year; - } - else { - month++; - } - document.calControl.month.selectedIndex = month; - displayCalendar(day, month, year); - } -} - - -function setNextYear() { - var year = document.calControl.year.value; - if (isFourDigitYear(year)) { - var day = 0; - var month = document.calControl.month.selectedIndex; - year++; - document.calControl.year.value = year; - displayCalendar(day, month, year); - } -} - - -function displayCalendar(day, month, year) { - - day = parseInt(day); - month = parseInt(month); - year = parseInt(year); - var i = 0; - var offset = 11; - var now = new Date(); - - if (day == 0) { - var nowDay = now.getDate(); - } - else { - var nowDay = day; - } - var days = getDaysInMonth(month+1,year); - var firstOfMonth = new Date (year, month, 1); - var startingPos = (firstOfMonth.getDay()+'||l_territory_offset||')%7; - days += startingPos; - - // MAKE BEGINNING NON-DATE BUTTONS BLANK - for (i = 0; i < startingPos; i++) { - document.calControl.elements[i + offset].value = "__"; - } - - // SET VALUES FOR DAYS OF THE MONTH - for (i = startingPos; i < days; i++) - { - var datestr = (i-startingPos+1) + ""; - if ((i-startingPos+1) < 10) - { - datestr = "0" + datestr; - } - document.calControl.elements[i + offset].value = datestr; - document.calControl.elements[i + offset].onClick = "returnDate" - } - - // MAKE REMAINING NON-DATE BUTTONS BLANK - for (i=days; i<42; i++) { - document.calControl.elements[i + offset].value = "__"; - } - - // GIVE FOCUS TO CORRECT DAY - document.calControl.elements[focusDay+startingPos-1 + offset].focus(); - document.calControl.day.value = day; - -} - - -// GET NUMBER OF DAYS IN MONTH -function getDaysInMonth(month,year) { - var days; - if (month==1 || month==3 || month==5 || month==7 || month==8 || - month==10 || month==12) days=31; - else if (month==4 || month==6 || month==9 || month==11) days=30; - else if (month==2) { - if (isLeapYear(year)) { - days=29; - } - else { - days=28; - } - } - return (days); -} - - -// CHECK TO SEE IF YEAR IS A LEAP YEAR -function isLeapYear (Year) { - if (((Year % 4)==0) && ((Year % 100)!=0) || ((Year % 400)==0)) { - return (true); - } - else { - return (false); - } -} - - -// SET FORM FIELD VALUE TO THE DATE SELECTED -function returnDate(inDay) -{ - var day = inDay; - var month = (document.calControl.month.selectedIndex)+1; - var year = document.calControl.year.value; - - if ((""+month).length == 1) - { - month="0"+month; - } - if ((""+day).length == 1) - { - day="0"+day; - } - if (day != "__") { - document.calControl.day.value = day; - document.calControl.submit(); - } -} -'; - -end CALJavaScript; - -begin - if First_Part - then - -- Output the HTML that needs to go before the user defined template header - wsgl.OpenPageHead (Page_Header); - htp.p (WSGJSL.OpenScript); - htp.p ('function Close_OnClick() { close(); }'); - htp.p (CALJavaScript (Z_FIELD_VALUE, Z_FIELD_FORMAT, Z_DEFAULT_FORMAT)); - htp.p (WSGJSL.CloseScript); - else - -- The rest of the calendar comes after the user defined template header - wsgl.ClosePageHead; - wsgl.OpenPageBody(FALSE, p_attributes => Body_Attributes || ' ONLOAD="setDate()"'); - htp.header(2, htf.italic(Page_Header)); - htp.formOpen(curl=> PKG_Name || '.nformat_cal_date', cattributes => 'name="calControl"'); - wsgl.HiddenField('Z_FIELD_NAME', Z_FIELD_NAME); - wsgl.HiddenField('Z_FIELD_FORMAT', Z_FIELD_FORMAT); - wsgl.HiddenField('day', 1); - htp.p(''); - -- Create the calendar - htp.p (' -
- -'); - -- Now display the movement buttons - htp.p (' - - - -'); - -- Display the days of the week along the top of the calendar - htp.p (''); - -- Find the first day of the week - day_of_week := to_number (to_char (to_date ('1', 'DD'), 'D')); - first_day_of_week := (8 - day_of_week) + 1; - for i in first_day_of_week..(first_day_of_week + 6) - loop - htp.prn (''); - end loop; - htp.p (''); - -- Now display a button for each day on the calendar - -- The calendar is made up of 6 rows - for i in 1..6 - loop - htp.p (''); - for j in 1..7 - loop - -- 7 days in each row - htp.p (''); - end loop; -- j in 1..7 - htp.p (''); - end loop; -- i in 1..6 - htp.p ('
-
-'); - -- Create the month drop down - htp.formSelectOpen (cname => 'month', cattributes => 'onChange=''selectDate()'''||' ID="month"'); - -- Output the names of the months in the appropriate language for the database - NLS Compliance - for i in 1..12 - loop - htp.formSelectOption (initcap (to_char (to_date (i, 'MM'), 'MONTH'))); - end loop; - htp.formSelectClose; - -- Now the year field - htp.p (''); - -- Finish this part of the table - htp.p ('
-
- - - - - -
-
'); - htp.prn (initcap (substr (to_char (to_date (i, 'DD'), 'DAY'), 1, 2))); - htp.p ('
'); - htp.formclose; - wsgl.ClosePageBody; - end if; -- First_Part -end Output_Calendar; - - - - begin - - if Z_FIELD_PROMPT is null then - Field_Caption := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - else - Field_Caption := initcap (replace (Z_FIELD_PROMPT, '_', ' ')); - end if; - - - WSGL.RegisterURL('efnow050$cont.calendar'); - WSGL.AddURLParam('Z_FIELD_NAME', Z_FIELD_NAME); - WSGL.AddURLParam('Z_CALLER_URL', Z_CALLER_URL); - - if WSGL.NotLowerCase then - return; - end if; - - Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow050$cont', - CAL_CLOSE_BUT_CAPTION, - True, - 'DD-MON-RRRR' - ); - - efnow050$.TemplateHeader(TRUE,7); - - Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow050$cont', - CAL_CLOSE_BUT_CAPTION, - False, - 'DD-MON-RRRR' - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - CAL_BODY_ATTRIBUTES, 'efnow050$cont.calendar'); - end ncalendar; -procedure nformat_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ) IS - --- nformat_cal_date --- --- - - - - - Field_Caption Varchar2 (2000) := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - l_day varchar2(15) := day; - l_date_fmt VARCHAR2(255) := NVL(cout_system_configuration.get_configuration_item('G_DATE_FORMAT'),'DD-MON-YYYY'); - -procedure Output_Format_Cal_JS - ( - Page_Header in Varchar2, - Body_Attributes in Varchar2, - Chosen_Date in Varchar2, - Field_Format in Varchar2 - ) is - -- This date format mask is internal and *intentional* DO NOT CHANGE - -- DD for day number - -- MONTH for actual text supplied by calendar drop down list - -- YYYY y2k compliant year - the_date date := to_date(Chosen_Date, 'DD-MONTH-YYYY'); -begin - WSGL.OpenPageHead(Page_Header); - WSGL.ClosePageHead; - WSGL.OpenPageBody(FALSE, p_attributes => Body_Attributes); - htp.p (''); - WSGL.ClosePageBody; -end Output_Format_Cal_JS; - -begin - - if l_day = '0' then - l_day := '01'; - end if; - - Output_Format_Cal_JS - ( - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - l_day || '-' || month || '-' || year, - --Z_FIELD_FORMAT - l_date_fmt - ); - -end nformat_cal_date; --------------------------------------------------------------------------------- --- Name: efnow050$cont.L_CUST_NAME_LOV --- --- Description: Builds a GUI control to display the values returned by --- LOV 'L_CUST_NAME'. --- --- --------------------------------------------------------------------------------- - function L_CUST_NAME_LOV( - P_VALUE in varchar2, - P_CTRL in number, - P_MODE in varchar2 default 'Q', - p_select_first in boolean default false, - p_onclick in boolean, - p_onchange in boolean, - p_onblur in boolean, - p_onfocus in boolean, - p_onselect in boolean, - p_row in number) return varchar2 is - - L_RET_VALUE varchar2(32766) := null; - l_events varchar2(1000) := null; - l_valid boolean := false; - l_first boolean := true; - - cursor c1( z_mode in varchar2 - , z_filter in varchar2 - , z_uu in varchar2 - , z_ul in varchar2 - , z_lu in varchar2 - , z_ll in varchar2 - ) - is - SELECT DISTINCT L_CUST.NAME L_CUST_NAME, - L_CUST.NAME CG$DISPLAY -FROM CUSTOMERS L_CUST -WHERE ( - ( ( Z_MODE='Q') - AND ( /* CG$MDTU_QWC_START CONT.L_CUST */ - (( EXISTS ( SELECT cust1.cust_id FROM customer_intermediaries cuin1 , customers cust1 , customer_types cuty WHERE cust1.cust_id = cuin1.cust_id AND cust1.cuty_id = cuty.cuty_id AND l_cust.cust_id = cust1.cust_id AND cuty.cuty_id = caco_utilities.cuty_id_for_user AND cust1.cust_id != caco_utilities.get_system_customer ) OR caco_utilities.user_has_system = 'Y' )) - /* CG$MDTU_QWC_END CONT.L_CUST */ - ) - ) - OR - ( ( NOT Z_MODE='Q') - AND ( /* CG$MDTU_VWC_START CONT.L_CUST */ - (( EXISTS ( SELECT cust1.cust_id FROM customer_intermediaries cuin1 , customers cust1 , customer_types cuty WHERE cust1.cust_id = cuin1.cust_id AND cust1.cuty_id = cuty.cuty_id AND l_cust.cust_id = cust1.cust_id AND cuty.cuty_id = caco_utilities.cuty_id_for_user AND cust1.cust_id != caco_utilities.get_system_customer ) OR caco_utilities.user_has_system = 'Y' )) - /* CG$MDTU_VWC_END CONT.L_CUST */ - ) - ) - ) -ORDER BY L_CUST.NAME -; - - l_rownum_txt varchar2(30); - begin - if p_row is not null then - l_rownum_txt := ', ' || to_char(p_row - 1); - end if; - if p_onclick then - l_events := l_events || ' onClick="return L_CUST_NAME_OnClick(this'||l_rownum_txt||')"'; - end if; - if p_onchange then - l_events := l_events || ' onChange="return L_CUST_NAME_OnChange(this'||l_rownum_txt||')"'; - end if; - if p_onblur then - l_events := l_events || ' onBlur="return L_CUST_NAME_OnBlur(this'||l_rownum_txt||')"'; - end if; - if p_onfocus then - l_events := l_events || ' onFocus="return L_CUST_NAME_OnFocus(this'||l_rownum_txt||')"'; - end if; - if p_onselect then - l_events := l_events || ' onSelect="return L_CUST_NAME_OnSelect(this'||l_rownum_txt||')"'; - end if; - - -- IDs Feature: - if P_CTRL = WSGL.CTL_QUERY and 1 <> 1 then - L_RET_VALUE := htf.formSelectOpen('P_L_CUST_NAME', - nsize=>'1', - cattributes=>'MULTIPLE CLASS = cglovlist'||l_events||' ID="'||'P_L_CUST_NAME'||'"'); - else - L_RET_VALUE := htf.formSelectOpen('P_L_CUST_NAME', - nsize=>'1', - cattributes=>'CLASS = cglovlist'||l_events||' ID="'||'P_L_CUST_NAME'||'"'); - end if; - - if P_CTRL = WSGL.CTL_QUERY and p_select_first then - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(' ', 'SELECTED'); - l_first := false; - l_valid := true; - end if; - - for c1rec in c1( P_MODE, '%',null,null,null,null) loop - if ((WSGL.EscapeItem(c1rec.L_CUST_NAME) = P_VALUE) or c1rec.L_CUST_NAME = P_VALUE) or (p_select_first and l_first) then - l_valid := true; - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.EscapeItem(c1rec.CG$DISPLAY), 'SELECTED', - cattributes=>'VALUE="'||WSGL.EscapeItem(c1rec.L_CUST_NAME)||'"'); - else - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.EscapeItem(c1rec.CG$DISPLAY), null, - cattributes=>'VALUE="'||WSGL.EscapeItem(c1rec.L_CUST_NAME)||'"'); - end if; - l_first := false; - end loop; - - if not l_valid then - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.MsgGetText(28,WSGLM.CAP028_INVALID_VAL), 'SELECTED', - 'VALUE="'||WSGL.MsgGetText(28,WSGLM.CAP028_INVALID_VAL)||'"'); - end if; - L_RET_VALUE := L_RET_VALUE || htf.formSelectClose; - - return L_RET_VALUE; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - DEF_BODY_ATTRIBUTES, 'efnow050$cont.L_CUST_NAME_LOV'); - return L_RET_VALUE; - end; --------------------------------------------------------------------------------- --- Name: efnow050$cont.InitialiseDomain --- --- Description: Initialises the Domain Record for the given Column Usage --- --- Parameters: P_ALIAS The alias of the column usage --- --------------------------------------------------------------------------------- - procedure InitialiseDomain(P_ALIAS in varchar2) is - begin - if not caco_security.security_check('efnow050$cont') then - return; - end if; - - if P_ALIAS = 'STATUS' and not D_STATUS.Initialised then - D_STATUS.ColAlias := 'STATUS'; - D_STATUS.ControlType := WSGL.DV_LIST; - D_STATUS.DispWidth := 6; - D_STATUS.DispHeight := 1; - D_STATUS.MaxWidth := 6; - D_STATUS.UseMeanings := True; - D_STATUS.ColOptional := False; - D_STATUS.Vals(1) := 'O'; - D_STATUS.Meanings(1) := 'Open'; - D_STATUS.Abbreviations(1) := 'Open'; - D_STATUS.Vals(2) := 'C'; - D_STATUS.Meanings(2) := 'Closed'; - D_STATUS.Abbreviations(2) := 'Closed'; - D_STATUS.NumOfVV := 2; - D_STATUS.Initialised := True; - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - DEF_BODY_ATTRIBUTES, 'efnow050$cont.InitialseDomain'); - end; - --------------------------------------------------------------------------------- --- Name: efnow050$cont.calendar --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - - procedure calendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ) is - - Field_Caption Varchar2 (2000); - - begin - - if Z_FIELD_PROMPT is null then - Field_Caption := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - else - Field_Caption := initcap (replace (Z_FIELD_PROMPT, '_', ' ')); - end if; - - - WSGL.RegisterURL('efnow050$cont.calendar'); - WSGL.AddURLParam('Z_FIELD_NAME', Z_FIELD_NAME); - WSGL.AddURLParam('Z_CALLER_URL', Z_CALLER_URL); - - if WSGL.NotLowerCase then - return; - end if; - - WSGL.Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow050$cont', - CAL_CLOSE_BUT_CAPTION, - True, - 'DD-MON-RRRR' - ); - - efnow050$.TemplateHeader(TRUE,7); - - WSGL.Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow050$cont', - CAL_CLOSE_BUT_CAPTION, - False, - 'DD-MON-RRRR' - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - CAL_BODY_ATTRIBUTES, 'efnow050$cont.calendar'); - end calendar; - --------------------------------------------------------------------------------- --- Name: efnow050$cont.format_cal_date --- --- Description: Converts the chosen date into the correct format using the format mask assigned --- to the field that the calendar was popped up for --- --------------------------------------------------------------------------------- - -procedure format_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ) is - - Field_Caption Varchar2 (2000) := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - l_day varchar2(15) := day; - -begin - - if l_day = '0' then - l_day := '01'; - end if; - - WSGL.Output_Format_Cal_JS - ( - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - l_day || '-' || month || '-' || year, - Z_FIELD_FORMAT - ); - -end format_cal_date; - --------------------------------------------------------------------------------- --- Name: efnow050$cont.Startup --- --- Description: Entry point for the 'CONT' module --- component (#Maintain Contracts#2080#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure Startup( - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2, - Z_FORM in varchar2) is - l_Foundform boolean := FALSE; - l_fs_text varchar2(32767) := '' ; - begin - if not caco_security.security_check('efnow050$cont') then - return; - end if; - - WSGL.RegisterURL('efnow050$cont.startup'); - WSGL.AddURLParam('Z_CHK', Z_CHK); - - - WSGL.StoreURLLink(1, '#Maintain Contracts#2080#'); - - -- Either no frames are being used or the query form is on a - -- separate page. - if Z_FORM is not null then - null; - -- Work out which form is required, and check if that is possible - if Z_FORM = 'QUERY' then - FormQuery( - Z_DIRECT_CALL=>TRUE); - l_Foundform := TRUE; - end if; - if Z_FORM = 'LIST' then - QueryList( - Z_DIRECT_CALL=>TRUE); - l_Foundform := TRUE; - end if; - end if; - if l_Foundform = FALSE then - FormQuery( - Z_DIRECT_CALL=>TRUE); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - DEF_BODY_ATTRIBUTES, 'efnow050$cont.Startup'); - end; - --------------------------------------------------------------------------------- --- Name: efnow050$cont.ActionQuery --- --- Description: Called when a Query form is subitted to action the query request. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure ActionQuery( - P_STATUS in varchar2, - P_CONTRACT_NUMBER in varchar2, - P_L_CUST_NAME in varchar2, - P_VALID_FROM in varchar2, - U_VALID_FROM in varchar2, - Z_DIRECT_CALL in boolean default false, - Z_ACTION in varchar2, - Z_CHK in varchar2 ) is - - L_CHK varchar2(10) := Z_CHK; - L_BUTCHK varchar2(100):= null; - l_dummy_bool boolean := false; - begin - if not caco_security.security_check('efnow050$cont') then - return; - end if; - - if not Z_DIRECT_CALL then - null; - end if; - - l_dummy_bool := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - QueryList( - P_STATUS, - P_CONTRACT_NUMBER, - P_L_CUST_NAME, - P_VALID_FROM, - U_VALID_FROM, - Z_START=>null, - Z_ACTION=>L_BUTCHK, - Z_DIRECT_CALL=>TRUE); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - DEF_BODY_ATTRIBUTES, 'efnow050$cont.ActionQuery'); - end; - --------------------------------------------------------------------------------- --- Name: efnow050$cont.QueryHits --- --- Description: Returns the number or rows which matches the given search --- criteria (if any). --- --- Parameters: --- --------------------------------------------------------------------------------- - function QueryHits( - P_STATUS in varchar2, - P_CONTRACT_NUMBER in varchar2, - P_L_CUST_NAME in varchar2, - P_VALID_FROM in varchar2, - U_VALID_FROM in varchar2) return number is - I_QUERY varchar2(32767) := ''; - I_CURSOR integer; - I_VOID integer; - I_FROM_POS integer := 0; - I_COUNT number(10); - begin - if not caco_security.security_check('efnow050$cont') then - return -1; - end if; - - if not BuildSQL(P_STATUS, - P_CONTRACT_NUMBER, - P_L_CUST_NAME, - P_VALID_FROM, - U_VALID_FROM) then - return -1; - end if; - - if not PreQuery(P_STATUS, - P_CONTRACT_NUMBER, - P_L_CUST_NAME, - P_VALID_FROM, - U_VALID_FROM) then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Maintain Contracts#2080#', DEF_BODY_ATTRIBUTES); - return -1; - end if; - - I_FROM_POS := instr(upper(ZONE_SQL), ' FROM '); - - if I_FROM_POS = 0 then - return -1; - end if; - - I_QUERY := 'SELECT count(*)' || - substr(ZONE_SQL, I_FROM_POS); - - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, I_QUERY, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, I_COUNT); - I_VOID := dbms_sql.execute(I_CURSOR); - I_VOID := dbms_sql.fetch_rows(I_CURSOR); - dbms_sql.column_value(I_CURSOR, 1, I_COUNT); - dbms_sql.close_cursor(I_CURSOR); - - return I_COUNT; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - DEF_BODY_ATTRIBUTES, 'efnow050$cont.QueryHits'); - return -1; - end; --------------------------------------------------------------------------------- --- Name: efnow050$cont.BuildSQL --- --- Description: Builds the SQL for the 'CONT' module component (#Maintain Contracts#2080#). --- This incorporates all query criteria and Foreign key columns. --- --- Parameters: --- --------------------------------------------------------------------------------- - function BuildSQL( - P_STATUS in varchar2, - P_CONTRACT_NUMBER in varchar2, - P_L_CUST_NAME in varchar2, - P_VALID_FROM in varchar2, - U_VALID_FROM in varchar2, - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean is - - I_WHERE varchar2(32767); - row_idx integer; - begin - - InitialiseDomain('STATUS'); - - -- Build up the Where clause - if Z_QUERY_BY_KEY then - I_WHERE := 'WHERE CONT_ID = ' || to_char(CURR_VAL.CONT_ID) || ' '; - elsif Z_ROW_ID is not null then - I_WHERE := 'WHERE CG$ROW_ID = ''' || rowidtochar( Z_ROW_ID ) || ''''; - elsif Z_BIND_ROW_ID then - I_WHERE := 'WHERE CG$ROW_ID = :b_row_id'; - else - WSGL.BuildWhere(WSGL.DomainValue(D_STATUS, P_STATUS), 'STATUS', WSGL.TYPE_CHAR, I_WHERE); - WSGL.BuildWhere(P_CONTRACT_NUMBER, 'CONTRACT_NUMBER', WSGL.TYPE_CHAR, I_WHERE); - WSGL.BuildWhere(P_L_CUST_NAME, 'L_CUST_NAME', WSGL.TYPE_CHAR, I_WHERE); - begin - WSGL.BuildWhere(P_VALID_FROM, U_VALID_FROM, 'VALID_FROM', WSGL.TYPE_DATE, I_WHERE, 'DD.MM.YYYY'); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_ERROR_QRY, SQLERRM, - ''||' : '||'#Maintain Contracts#2080#', DEF_BODY_ATTRIBUTES, NULL, - WSGL.MsgGetText(210,WSGLM.MSG210_INVALID_QRY,'#Valid From#2441#'), - WSGL.MsgGetText(211,WSGLM.MSG211_EXAMPLE_TODAY,to_char(sysdate, 'DD.MM.YYYY'))); - return false; - end; - - end if; - - ZONE_SQL := 'SELECT UI_CUST, - UI_CONTRACT, - UI_STATUS, - UI_CONT_FROM, - UI_CONT_TO, - UI_EDIT_URL, - UI_COPY_URL, - VALID_UNTIL, - STATUS, - CONTRACT_NUMBER, - L_CUST_NAME, - CONT_ID, - CUST_ID, - VALID_FROM - FROM ( SELECT L_CUST.NAME UI_CUST, - CONT.CONTRACT_NUMBER UI_CONTRACT, - DECODE(CONT.STATUS,''O'',''Open'',''Closed'') UI_STATUS, - CONT.VALID_FROM UI_CONT_FROM, - CONT.VALID_UNTIL UI_CONT_TO, - ''efnow050$.contract_startup?p_screen_type=CONTRACT&p_contract_id=''||CONT.CONT_ID UI_EDIT_URL, - ''efno_contracts.efnow050$copy?p_contract_id=''||CONT.CONT_ID UI_COPY_URL, - CONT.VALID_UNTIL VALID_UNTIL, - CONT.STATUS STATUS, - CONT.CONTRACT_NUMBER CONTRACT_NUMBER, - L_CUST.NAME L_CUST_NAME, - CONT.CONT_ID CONT_ID, - CONT.CUST_ID CUST_ID, - CONT.VALID_FROM VALID_FROM -FROM CONTRACTS CONT, - CUSTOMERS L_CUST -WHERE ( /* CG$MDTU_QWC_START CONT.L_CUST */ - (( EXISTS ( SELECT cust1.cust_id FROM customer_intermediaries cuin1 , customers cust1 , customer_types cuty WHERE cust1.cust_id = cuin1.cust_id AND cust1.cuty_id = cuty.cuty_id AND l_cust.cust_id = cust1.cust_id AND cuty.cuty_id = caco_utilities.cuty_id_for_user AND cust1.cust_id != caco_utilities.get_system_customer ) OR caco_utilities.user_has_system = ''Y'' )) - /* CG$MDTU_QWC_END CONT.L_CUST */ - ) AND - CONT.CUST_ID = L_CUST.CUST_ID - ) '; - ZONE_SQL := ZONE_SQL || I_WHERE; - ZONE_SQL := ZONE_SQL || ' ORDER BY L_CUST_NAME, - VALID_FROM'; - return true; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - DEF_BODY_ATTRIBUTES, 'efnow050$cont.BuildSQL'); - return false; - end; - --------------------------------------------------------------------------------- --- Name: efnow050$cont.OpenZoneSql --- --- Description: Open's the cursor for the zone SQL of --- 'CONT' module component (#Maintain Contracts#2080#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure OpenZoneSql - ( I_CURSOR OUT integer - ) - is - begin - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, ZONE_SQL, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, NBT_VAL.UI_CUST, 4000); - dbms_sql.define_column(I_CURSOR, 2, NBT_VAL.UI_CONTRACT, 4000); - dbms_sql.define_column(I_CURSOR, 3, NBT_VAL.UI_STATUS, 4000); - dbms_sql.define_column(I_CURSOR, 4, NBT_VAL.UI_CONT_FROM); - dbms_sql.define_column(I_CURSOR, 5, NBT_VAL.UI_CONT_TO); - dbms_sql.define_column(I_CURSOR, 6, NBT_VAL.UI_EDIT_URL, 4000); - dbms_sql.define_column(I_CURSOR, 7, NBT_VAL.UI_COPY_URL, 4000); - dbms_sql.define_column(I_CURSOR, 8, CURR_VAL.VALID_UNTIL); - dbms_sql.define_column(I_CURSOR, 9, CURR_VAL.STATUS, 1); - dbms_sql.define_column(I_CURSOR, 10, CURR_VAL.CONTRACT_NUMBER, 30); - dbms_sql.define_column(I_CURSOR, 11, NBT_VAL.L_CUST_NAME, 100); - dbms_sql.define_column(I_CURSOR, 12, CURR_VAL.CONT_ID); - dbms_sql.define_column(I_CURSOR, 13, CURR_VAL.CUST_ID); - dbms_sql.define_column(I_CURSOR, 14, CURR_VAL.VALID_FROM); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - '', 'efnow050$cont.OpenZoneSql'); - raise; - end; - --------------------------------------------------------------------------------- --- Name: efnow050$cont.AssignZoneRow --- --- Description: Assign's a row of data and calculates the check sum from the --- zone SQL of 'CONT' module component (#Maintain Contracts#2080#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure AssignZoneRow - ( I_CURSOR IN integer - ) - is - begin - dbms_sql.column_value(I_CURSOR, 1, NBT_VAL.UI_CUST); - dbms_sql.column_value(I_CURSOR, 2, NBT_VAL.UI_CONTRACT); - dbms_sql.column_value(I_CURSOR, 3, NBT_VAL.UI_STATUS); - dbms_sql.column_value(I_CURSOR, 4, NBT_VAL.UI_CONT_FROM); - dbms_sql.column_value(I_CURSOR, 5, NBT_VAL.UI_CONT_TO); - dbms_sql.column_value(I_CURSOR, 6, NBT_VAL.UI_EDIT_URL); - dbms_sql.column_value(I_CURSOR, 7, NBT_VAL.UI_COPY_URL); - dbms_sql.column_value(I_CURSOR, 8, CURR_VAL.VALID_UNTIL); - dbms_sql.column_value(I_CURSOR, 9, CURR_VAL.STATUS); - dbms_sql.column_value(I_CURSOR, 10, CURR_VAL.CONTRACT_NUMBER); - dbms_sql.column_value(I_CURSOR, 11, NBT_VAL.L_CUST_NAME); - dbms_sql.column_value(I_CURSOR, 12, CURR_VAL.CONT_ID); - dbms_sql.column_value(I_CURSOR, 13, CURR_VAL.CUST_ID); - dbms_sql.column_value(I_CURSOR, 14, CURR_VAL.VALID_FROM); - ZONE_CHECKSUM := to_char(WSGL.Checksum - ( '' - || CURR_VAL.CONT_ID - ) ); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - '', 'efnow050$cont.AssignZoneRow'); - raise; - end; - - - - --------------------------------------------------------------------------------- --- Name: efnow050$cont.FormQuery --- --- Description: This procedure builds an HTML form for entry of query criteria. --- The criteria entered are to restrict the query of the 'CONT' --- module component (#Maintain Contracts#2080#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure FormQuery( - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2) is - L_SUCCESS boolean := TRUE; - begin - if not caco_security.security_check('efnow050$cont') then - return; - end if; - - if not Z_DIRECT_CALL then - - null; - end if; - - L_SUCCESS := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - WSGL.OpenPageHead(''||' : '||'#Maintain Contracts#2080#'); - WSGL.METATag; - efnow050$.TemplateHeader(TRUE,1); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>QF_BODY_ATTRIBUTES || 'onLoad="return CONT_OnLoad()"'); - efnow050$js$cont.CreateQueryJavaScript(LOV_FRAME,QF_BODY_ATTRIBUTES); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => false - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - htp.p(caco_system.menu); - efnow050$.FirstPage(Z_DIRECT_CALL => TRUE - - ); - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - htp.p(WSGL.MsgGetText(116,WSGLM.DSP116_ENTER_QRY_CAPTION,'#Maintain Contracts#2080#')); - htp.para; - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow050$cont.actionquery', cattributes => 'NAME="efnow050$cont$QForm"'); - - SaveState; - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE); - WSGL.LayoutRowStart; - for i in 1..QF_NUMBER_OF_COLUMNS loop - WSGL.LayoutHeader(23, 'LEFT', NULL); - WSGL.LayoutHeader(40, 'LEFT', NULL); - end loop; - WSGL.LayoutRowEnd; - - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Status#2114#:')); - InitialiseDomain('STATUS'); - WSGL.LayoutData(WSGL.BuildDVControl(D_STATUS, WSGL.CTL_QUERY)); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Contract Number#2013#:')); - WSGL.LayoutData(WSGL.BuildQueryControl('CONTRACT_NUMBER', '30', FALSE, p_maxlength=>'30')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Name#116#:')); - WSGL.LayoutData(L_CUST_NAME_LOV(NULL, WSGL.CTL_QUERY, 'Q', true)); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Valid From#2441#:')); - WSGL.LayoutData(WSGL.BuildQueryControl('VALID_FROM', '11', TRUE, p_maxlength=>'10' - , p_cal_but_text => CAL_BUTTON_TEXT - , p_cal_date_format => 'DD.MM.YYYY' - , p_cal_prompt => '#Valid From#2441#' - , p_form=>'efnow050$cont$QForm')); - WSGL.LayoutRowEnd; - - WSGL.LayoutClose; - - WSGL.SubmitButton('Z_ACTION', htf.escape_sc(QF_QUERY_BUT_CAPTION), 'btnQFQ', 'this.form.Z_ACTION.value=\''' || QF_QUERY_BUT_ACTION || '\'''); - htp.formReset(htf.escape_sc(QF_CLEAR_BUT_CAPTION), 'ID="'||htf.escape_sc(QF_CLEAR_BUT_CAPTION)||'"'); - - - WSGL.HiddenField('Z_CHK', to_char(WSGL.Checksum - (''))); - htp.formClose; - - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="QF$AIFormBottom"'); - htp.formClose; - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - QF_BODY_ATTRIBUTES, 'efnow050$cont.FormQuery'); - WSGL.ClosePageBody; - end; - --------------------------------------------------------------------------------- --- Name: efnow050$cont.QueryList --- --- Description: This procedure builds the Record list for the 'CONT' --- module component (#Maintain Contracts#2080#). --- --- The Record List displays context information for records which --- match the specified query criteria. --- Sets of records are displayed (0 records at a time) --- with Next/Previous buttons to get other record sets. --- --- Parameters: P_STATUS - #Status#2114# --- P_CONTRACT_NUMBER - #Contract Number#2013# --- P_L_CUST_NAME - #Name#116# --- P_VALID_FROM - #Valid From#2441# --- U_VALID_FROM - #Valid From#2441# (upper bound) --- Z_START - First record to display --- Z_ACTION - Next or Previous set --- --------------------------------------------------------------------------------- - procedure QueryList( - P_STATUS in varchar2, - P_CONTRACT_NUMBER in varchar2, - P_L_CUST_NAME in varchar2, - P_VALID_FROM in varchar2, - U_VALID_FROM in varchar2, - Z_START in varchar2, - Z_ACTION in varchar2, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2 ) is - - I_VF_FRAME varchar2(20) := null; - I_WHERE varchar2(2000) := ''; - I_CURSOR integer; - I_VOID integer; - I_ROWS_FETCHED integer := 0; - I_TOTAL_ROWS integer := 0; - I_START number(38) := to_number(Z_START); - I_COUNT number(10) := 0; - I_OF_TOTAL_TEXT varchar2(200) := ''; - I_NEXT_BUT boolean; - I_PREV_BUT boolean; - I_COL_COUNT integer; - I_SUCCESS boolean := true; - l_row integer := 0; - l_id varchar2(35) := null; - -- Reset break group? - RSIG_CUST boolean := true; - -- Reset break group? - RSIG_REST boolean := true; - I_LAST_BASE CURR_VAL%TYPE; - I_LAST_NBT NBT_REC; - - - - begin - - if not caco_security.security_check('efnow050$cont') then - return; - end if; - - - WSGL.RegisterURL('efnow050$cont.querylist'); - WSGL.AddURLParam('P_STATUS', P_STATUS); - WSGL.AddURLParam('P_CONTRACT_NUMBER', P_CONTRACT_NUMBER); - WSGL.AddURLParam('P_L_CUST_NAME', P_L_CUST_NAME); - WSGL.AddURLParam('P_VALID_FROM', P_VALID_FROM); - WSGL.AddURLParam('U_VALID_FROM', U_VALID_FROM); - WSGL.AddURLParam('Z_START', Z_START); - WSGL.AddURLParam('Z_ACTION', Z_ACTION); - WSGL.AddURLParam('Z_CHK', Z_CHK); - if (not Z_DIRECT_CALL) then - - null; - - - end if; - if (Z_ACTION = RL_QUERY_BUT_ACTION) or (Z_ACTION = RL_QUERY_BUT_CAPTION) then - FormQuery( - Z_DIRECT_CALL=>TRUE); - return; - end if; - - -- Set up any master context values that may be required - I_SUCCESS := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - - - WSGL.OpenPageHead(''||' : '||'#Maintain Contracts#2080#'); - WSGL.METATag; - efnow050$.TemplateHeader(TRUE,6); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>RL_BODY_ATTRIBUTES); - efnow050$js$cont.CreateListJavaScript(RL_BODY_ATTRIBUTES); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => false - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - - - htp.p(caco_system.menu); - - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - if (Z_ACTION = RL_LAST_BUT_ACTION) or (Z_ACTION = RL_LAST_BUT_CAPTION) or - (Z_ACTION = RL_COUNT_BUT_ACTION) or (Z_ACTION = RL_COUNT_BUT_CAPTION) or - (RL_TOTAL_COUNT_REQD) - then - - I_COUNT := QueryHits( - P_STATUS, - P_CONTRACT_NUMBER, - P_L_CUST_NAME, - P_VALID_FROM, - U_VALID_FROM); - if I_COUNT = -1 then - WSGL.ClosePageBody; - return; - end if; - end if; - - if (Z_ACTION = RL_COUNT_BUT_ACTION) or (Z_ACTION = RL_COUNT_BUT_CAPTION) or - RL_TOTAL_COUNT_REQD then - I_OF_TOTAL_TEXT := ' '||WSGL.MsgGetText(111,WSGLM.DSP111_OF_TOTAL, to_char(I_COUNT)); - end if; - I_START := 1; - - I_PREV_BUT := TRUE; - I_NEXT_BUT := FALSE; - if I_START = 1 or Z_ACTION IS NULL then - I_PREV_BUT := FALSE; - end if; - - if nvl(Z_ACTION, 'X') != 'DONTQUERY' then - - if ZONE_SQL IS NULL then - if not BuildSQL( - P_STATUS, - P_CONTRACT_NUMBER, - P_L_CUST_NAME, - P_VALID_FROM, - U_VALID_FROM) then - WSGL.ClosePageBody; - return; - end if; - end if; - - if not PreQuery( - P_STATUS, - P_CONTRACT_NUMBER, - P_L_CUST_NAME, - P_VALID_FROM, - U_VALID_FROM) then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Maintain Contracts#2080#', RL_BODY_ATTRIBUTES); - return; - end if; - - InitialiseDomain('STATUS'); - - - OpenZoneSql( I_CURSOR ); - I_VOID := dbms_sql.execute(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - else - I_ROWS_FETCHED := 0; - end if; - I_TOTAL_ROWS := I_ROWS_FETCHED; - - if I_ROWS_FETCHED != 0 then - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE, P_BORDER=>TRUE); - - WSGL.LayoutRowStart(p_attrs=>'class = cgrlheaderrow'); - for i in 1..RL_NUMBER_OF_COLUMNS loop - WSGL.LayoutHeader(30, 'LEFT', '#Customer#1047#',''); - WSGL.LayoutHeader(30, 'LEFT', '#Contract Name#2082#',''); - WSGL.LayoutHeader(10, 'LEFT', '#Status#2114#',''); - WSGL.LayoutHeader(11, 'LEFT', '#Valid From#2441#',''); - WSGL.LayoutHeader(11, 'LEFT', '#Valid To#2442#',''); - WSGL.LayoutHeader(30, 'LEFT', '#Edit#2008#',''); - WSGL.LayoutHeader(30, 'LEFT', '#Copy#3547#',''); - end loop; - WSGL.LayoutRowEnd; - - while I_ROWS_FETCHED <> 0 loop - - if I_TOTAL_ROWS >= I_START then - AssignZoneRow(I_CURSOR); - - if (NBT_VAL.UI_CUST != I_LAST_NBT.UI_CUST or (NBT_VAL.UI_CUST is null and I_LAST_NBT.UI_CUST is not null) or (NBT_VAL.UI_CUST is not null and I_LAST_NBT.UI_CUST is null) ) then - RSIG_CUST := true; - else - RSIG_CUST := false; - end if; - if (CURR_VAL.VALID_UNTIL != I_LAST_BASE.VALID_UNTIL or (CURR_VAL.VALID_UNTIL is null and I_LAST_BASE.VALID_UNTIL is not null) or (CURR_VAL.VALID_UNTIL is not null and I_LAST_BASE.VALID_UNTIL is null) ) or - (CURR_VAL.STATUS != I_LAST_BASE.STATUS or (CURR_VAL.STATUS is null and I_LAST_BASE.STATUS is not null) or (CURR_VAL.STATUS is not null and I_LAST_BASE.STATUS is null) ) or - (CURR_VAL.CONTRACT_NUMBER != I_LAST_BASE.CONTRACT_NUMBER or (CURR_VAL.CONTRACT_NUMBER is null and I_LAST_BASE.CONTRACT_NUMBER is not null) or (CURR_VAL.CONTRACT_NUMBER is not null and I_LAST_BASE.CONTRACT_NUMBER is null) ) or - (NBT_VAL.L_CUST_NAME != I_LAST_NBT.L_CUST_NAME or (NBT_VAL.L_CUST_NAME is null and I_LAST_NBT.L_CUST_NAME is not null) or (NBT_VAL.L_CUST_NAME is not null and I_LAST_NBT.L_CUST_NAME is null) ) or - (CURR_VAL.CONT_ID != I_LAST_BASE.CONT_ID or (CURR_VAL.CONT_ID is null and I_LAST_BASE.CONT_ID is not null) or (CURR_VAL.CONT_ID is not null and I_LAST_BASE.CONT_ID is null) ) or - (CURR_VAL.CUST_ID != I_LAST_BASE.CUST_ID or (CURR_VAL.CUST_ID is null and I_LAST_BASE.CUST_ID is not null) or (CURR_VAL.CUST_ID is not null and I_LAST_BASE.CUST_ID is null) ) or - (CURR_VAL.VALID_FROM != I_LAST_BASE.VALID_FROM or (CURR_VAL.VALID_FROM is null and I_LAST_BASE.VALID_FROM is not null) or (CURR_VAL.VALID_FROM is not null and I_LAST_BASE.VALID_FROM is null) ) or - (NBT_VAL.UI_CONTRACT != I_LAST_NBT.UI_CONTRACT or (NBT_VAL.UI_CONTRACT is null and I_LAST_NBT.UI_CONTRACT is not null) or (NBT_VAL.UI_CONTRACT is not null and I_LAST_NBT.UI_CONTRACT is null) ) or - (NBT_VAL.UI_STATUS != I_LAST_NBT.UI_STATUS or (NBT_VAL.UI_STATUS is null and I_LAST_NBT.UI_STATUS is not null) or (NBT_VAL.UI_STATUS is not null and I_LAST_NBT.UI_STATUS is null) ) or - (NBT_VAL.UI_CONT_FROM != I_LAST_NBT.UI_CONT_FROM or (NBT_VAL.UI_CONT_FROM is null and I_LAST_NBT.UI_CONT_FROM is not null) or (NBT_VAL.UI_CONT_FROM is not null and I_LAST_NBT.UI_CONT_FROM is null) ) or - (NBT_VAL.UI_CONT_TO != I_LAST_NBT.UI_CONT_TO or (NBT_VAL.UI_CONT_TO is null and I_LAST_NBT.UI_CONT_TO is not null) or (NBT_VAL.UI_CONT_TO is not null and I_LAST_NBT.UI_CONT_TO is null) ) or - (NBT_VAL.UI_EDIT_URL != I_LAST_NBT.UI_EDIT_URL or (NBT_VAL.UI_EDIT_URL is null and I_LAST_NBT.UI_EDIT_URL is not null) or (NBT_VAL.UI_EDIT_URL is not null and I_LAST_NBT.UI_EDIT_URL is null) ) or - (NBT_VAL.UI_COPY_URL != I_LAST_NBT.UI_COPY_URL or (NBT_VAL.UI_COPY_URL is null and I_LAST_NBT.UI_COPY_URL is not null) or (NBT_VAL.UI_COPY_URL is not null and I_LAST_NBT.UI_COPY_URL is null) ) then - RSIG_REST := true; - else - RSIG_REST := false; - end if; - if RSIG_CUST then - RSIG_REST := true; - end if; - - - I_LAST_NBT.UI_CUST := NBT_VAL.UI_CUST; - I_LAST_BASE.VALID_UNTIL := CURR_VAL.VALID_UNTIL; - I_LAST_BASE.STATUS := CURR_VAL.STATUS; - I_LAST_BASE.CONTRACT_NUMBER := CURR_VAL.CONTRACT_NUMBER; - I_LAST_NBT.L_CUST_NAME := NBT_VAL.L_CUST_NAME; - I_LAST_BASE.CONT_ID := CURR_VAL.CONT_ID; - I_LAST_BASE.CUST_ID := CURR_VAL.CUST_ID; - I_LAST_BASE.VALID_FROM := CURR_VAL.VALID_FROM; - I_LAST_NBT.UI_CONTRACT := NBT_VAL.UI_CONTRACT; - I_LAST_NBT.UI_STATUS := NBT_VAL.UI_STATUS; - I_LAST_NBT.UI_CONT_FROM := NBT_VAL.UI_CONT_FROM; - I_LAST_NBT.UI_CONT_TO := NBT_VAL.UI_CONT_TO; - I_LAST_NBT.UI_EDIT_URL := NBT_VAL.UI_EDIT_URL; - I_LAST_NBT.UI_COPY_URL := NBT_VAL.UI_COPY_URL; - l_row := l_row + 1; - - - WSGL.LayoutRowStart('TOP', p_attrs=>'class = cgrldatarow'); - l_id := '' || l_row; - if RSIG_CUST and NBT_VAL.UI_CUST is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.UI_CUST), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSIG_REST and NBT_VAL.UI_CONTRACT is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.UI_CONTRACT), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSIG_REST and NBT_VAL.UI_STATUS is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.UI_STATUS), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSIG_REST and NBT_VAL.UI_CONT_FROM is not null then - WSGL.LayoutData(p_text=>EFNOW050$CONT.FORMATDATE(WSGL.EscapeItem(ltrim(to_char(NBT_VAL.UI_CONT_FROM, 'DD-MON-RRRR')))), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSIG_REST and NBT_VAL.UI_CONT_TO is not null then - WSGL.LayoutData(p_text=>EFNOW050$CONT.FORMATDATE(WSGL.EscapeItem(ltrim(to_char(NBT_VAL.UI_CONT_TO, 'DD-MON-RRRR')))), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSIG_REST and NBT_VAL.UI_EDIT_URL is not null then - WSGL.LayoutData(p_text=>replace(wsgl.anchor2(WSGL.EscapeItem(NBT_VAL.UI_EDIT_URL), '#Edit#2008#'), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSIG_REST and NBT_VAL.UI_COPY_URL is not null then - WSGL.LayoutData(p_text=>replace(wsgl.anchor2(WSGL.EscapeItem(NBT_VAL.UI_COPY_URL), '#Copy#3547#'), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - - WSGL.LayoutRowEnd; - - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - else - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - end if; - - I_TOTAL_ROWS := I_TOTAL_ROWS + I_ROWS_FETCHED; - - end loop; - - WSGL.LayoutClose; - - if I_START = I_TOTAL_ROWS then - htp.p(WSGL.MsgGetText(109,WSGLM.DSP109_RECORD, to_char(I_TOTAL_ROWS))||I_OF_TOTAL_TEXT); - else - htp.p(WSGL.MsgGetText(110,WSGLM.DSP110_RECORDS_N_M, - to_char(I_START), to_char(I_TOTAL_ROWS))|| - I_OF_TOTAL_TEXT); - end if; - htp.para; - else - htp.p(WSGL.MsgGetText(112,WSGLM.DSP112_NO_RECORDS)); - end if; - - if nvl(Z_ACTION, 'X') != 'DONTQUERY' then - dbms_sql.close_cursor(I_CURSOR); - end if; - - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow050$cont.querylist', cattributes => 'NAME="efnow050$cont$LForm"'); - SaveState; - WSGL.HiddenField('P_STATUS', P_STATUS); - WSGL.HiddenField('P_CONTRACT_NUMBER', P_CONTRACT_NUMBER); - WSGL.HiddenField('P_L_CUST_NAME', P_L_CUST_NAME); - WSGL.HiddenField('P_VALID_FROM', P_VALID_FROM); - WSGL.HiddenField('U_VALID_FROM', U_VALID_FROM); - WSGL.HiddenField('Z_START', to_char(I_START)); - htp.p (''); - - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', htf.escape_sc(RL_FIRST_BUT_CAPTION), WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_FIRST_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', htf.escape_sc(RL_PREV_BUT_CAPTION), WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_PREV_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', htf.escape_sc(RL_NEXT_BUT_CAPTION), WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_NEXT_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', htf.escape_sc(RL_LAST_BUT_CAPTION), WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_LAST_BUT_ACTION || '\''"'); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(RL_REQUERY_BUT_CAPTION),p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_REQUERY_BUT_ACTION || '\''"'); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(RL_COUNT_BUT_CAPTION),p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_COUNT_BUT_ACTION || '\''"'); - htp.para; - - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(RL_QUERY_BUT_CAPTION),p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_QUERY_BUT_ACTION || '\''"'); - WSGL.HiddenField('Z_CHK', - to_char(WSGL.Checksum(''))); - htp.formClose; - - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="RL$AIFormBottom"'); - htp.para; - WSGL.SubmitButton('Z_ACTION', '#New Contract#2085#', 'AI_NEW_CONTRACT', p_target=>'_top'); - htp.formClose; - WSGL.ReturnLinks('0.1', WSGL.MENU_LONG, p_target=>'_top'); - WSGL.NavLinks; - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - RL_BODY_ATTRIBUTES, 'efnow050$cont.QueryList'); - WSGL.ClosePageBody; - end; --------------------------------------------------------------------------------- --- Name: efnow050$cont.RestoreState --- --- Description: Restore the data state and optional meta data for the --- 'CONT' module component (#Maintain Contracts#2080#). --- --- Parameters: --- --------------------------------------------------------------------------------- - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean ) return boolean - is - I_REMAINING_DEPTH integer; - I_CURSOR integer; - I_VOID integer; - I_ROWS_FETCHED integer; - I_FETCH_ERROR boolean := FALSE; - I_SUCCESS boolean := TRUE; - begin - if Z_RESTORE_OWN_ROW then - if ( CURR_VAL.CONT_ID is null - ) then - return FALSE; - end if; - end if; - - if ( Z_RESTORE_OWN_ROW ) then - - -- Use the CURR_VAL fields for UID to get the other values - - if not BuildSQL( Z_QUERY_BY_KEY => true ) then - return FALSE; - end if; - - OpenZoneSql(I_CURSOR); - I_VOID := dbms_sql.execute(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED = 0 then - I_FETCH_ERROR := TRUE; - else - - AssignZoneRow(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED != 0 then - I_FETCH_ERROR := TRUE; - end if; - - end if; - - dbms_sql.close_cursor(I_CURSOR); - if I_FETCH_ERROR then - return FALSE; - end if; - - end if; - return TRUE; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - '', 'efnow050$cont.RestoreState'); - raise; - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow050$cont.SaveState --- --- Description: Saves the data state for the 'CONT' module component (#Maintain Contracts#2080#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure SaveState - is - begin - - - null; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - '', 'efnow050$cont.SaveState'); - raise; - end; - - --------------------------------------------------------------------------------- --- Name: efnow050$cont.GetRef --- --- Description: Returns a handle to the component object --- --- Parameters: --- --------------------------------------------------------------------------------- - function GetRef return WSGOC.COMPONENT_REF - is - begin - return ref_Component; - end; - --------------------------------------------------------------------------------- --- Name: efnow050$cont.LoadCache --- --- Description: Populate the object cache with --- 'CONT' module component (#Maintain Contracts#2080#). --- --------------------------------------------------------------------------------- - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF - , Z_BRANCH in WSGOC.BRANCH_REF - ) - is - I_VF_FRAME varchar2(20) := null; - begin - - -- Is cache already loaded - if not WSGOC.Is_Null(ref_Component) then - return; - end if; - - InitialiseDomain('STATUS'); - - ref_Component := WSGOC.Component - ( pModule => efnow050$.GetRef - , pBranch => Z_BRANCH - , pContext_For=> Z_CONTEXT_FOR - , pName => 'CONT' - , pTitle => '#Maintain Contracts#2080#' - , pSystemImagePath=> '/images/' - ); - - r_UI_CUST := WSGOC.Item - ( pName => 'UI_CUST' - , pPrompt => '#Customer#1047#' - , pIsContext=> true - ); - r_UI_CONTRACT := WSGOC.Item - ( pName => 'UI_CONTRACT' - , pPrompt => '#Contract Name#2082#' - , pIsContext=> true - ); - r_UI_STATUS := WSGOC.Item - ( pName => 'UI_STATUS' - , pPrompt => '#Status#2114#' - , pIsContext=> true - ); - r_UI_CONT_FROM := WSGOC.Item - ( pName => 'UI_CONT_FROM' - , pPrompt => '#Valid From#2441#' - , pIsContext=> true - ); - r_UI_CONT_TO := WSGOC.Item - ( pName => 'UI_CONT_TO' - , pPrompt => '#Valid To#2442#' - , pIsContext=> true - ); - r_UI_EDIT_URL := WSGOC.Item - ( pName => 'UI_EDIT_URL' - , pPrompt => '#Edit#2008#' - , pIsContext=> true - ); - r_UI_COPY_URL := WSGOC.Item - ( pName => 'UI_COPY_URL' - , pPrompt => '#Copy#3547#' - , pIsContext=> true - ); - r_VALID_UNTIL := WSGOC.Item - ( pName => 'VALID_UNTIL' - , pPrompt => '#Valid Until#2440#' - ); - r_STATUS := WSGOC.Item - ( pName => 'STATUS' - , pPrompt => '#Status#2114#' - ); - r_CONTRACT_NUMBER := WSGOC.Item - ( pName => 'CONTRACT_NUMBER' - , pPrompt => '#Contract Number#2013#' - ); - r_L_CUST_NAME := WSGOC.Item - ( pName => 'L_CUST_NAME' - , pPrompt => '#Name#116#' - ); - r_CONT_ID := WSGOC.Item - ( pName => 'CONT_ID' - , pPrompt => '#Cont Id#2443#' - ); - r_CUST_ID := WSGOC.Item - ( pName => 'CUST_ID' - , pPrompt => 'Cust Id' - ); - r_VALID_FROM := WSGOC.Item - ( pName => 'VALID_FROM' - , pPrompt => '#Valid From#2441#' - ); - - WSGOC.Add_Items(ref_Component, r_UI_CUST); - WSGOC.Add_Items(ref_Component, r_UI_CONTRACT); - WSGOC.Add_Items(ref_Component, r_UI_STATUS); - WSGOC.Add_Items(ref_Component, r_UI_CONT_FROM); - WSGOC.Add_Items(ref_Component, r_UI_CONT_TO); - WSGOC.Add_Items(ref_Component, r_UI_EDIT_URL); - WSGOC.Add_Items(ref_Component, r_UI_COPY_URL); - WSGOC.Add_Items(ref_Component, r_VALID_UNTIL); - WSGOC.Add_Items(ref_Component, r_STATUS); - WSGOC.Add_Items(ref_Component, r_CONTRACT_NUMBER); - WSGOC.Add_Items(ref_Component, r_L_CUST_NAME); - WSGOC.Add_Items(ref_Component, r_CONT_ID); - WSGOC.Add_Items(ref_Component, r_CUST_ID); - WSGOC.Add_Items(ref_Component, r_VALID_FROM); - - - if ( Z_OWN_ROW_VALUES ) then - - -- Set the display value for each item - -- ( As would be displayed on the Record List ) - WSGOC.Set_Value( r_UI_CUST, replace(WSGL.EscapeItem(NBT_VAL.UI_CUST), ' -', '
-') ); - WSGOC.Set_Value( r_UI_CONTRACT, replace(WSGL.EscapeItem(NBT_VAL.UI_CONTRACT), ' -', '
-') ); - WSGOC.Set_Value( r_UI_STATUS, replace(WSGL.EscapeItem(NBT_VAL.UI_STATUS), ' -', '
-') ); - WSGOC.Set_Value( r_UI_CONT_FROM, EFNOW050$CONT.FORMATDATE(WSGL.EscapeItem(ltrim(to_char(NBT_VAL.UI_CONT_FROM, 'DD-MON-RRRR')))) ); - WSGOC.Set_Value( r_UI_CONT_TO, EFNOW050$CONT.FORMATDATE(WSGL.EscapeItem(ltrim(to_char(NBT_VAL.UI_CONT_TO, 'DD-MON-RRRR')))) ); - WSGOC.Set_Value( r_UI_EDIT_URL, replace(wsgl.anchor2(WSGL.EscapeItem(NBT_VAL.UI_EDIT_URL), '#Edit#2008#'), ' -', '
-') ); - WSGOC.Set_Value( r_UI_COPY_URL, replace(wsgl.anchor2(WSGL.EscapeItem(NBT_VAL.UI_COPY_URL), '#Copy#3547#'), ' -', '
-') ); - WSGOC.Set_Value( r_VALID_UNTIL, WSGL.EscapeItem(ltrim(to_char(CURR_VAL.VALID_UNTIL, 'DD.MM.YYYY'))) ); - WSGOC.Set_Value( r_STATUS, replace(WSGL.EscapeItem(WSGL.DomainMeaning(D_STATUS, CURR_VAL.STATUS)), ' -', '
-') ); - WSGOC.Set_Value( r_CONTRACT_NUMBER, replace(WSGL.EscapeItem(CURR_VAL.CONTRACT_NUMBER), ' -', '
-') ); - WSGOC.Set_Value( r_L_CUST_NAME, replace(WSGL.EscapeItem(NBT_VAL.L_CUST_NAME), ' -', '
-') ); - WSGOC.Set_Value( r_CONT_ID, WSGL.EscapeItem(CURR_VAL.CONT_ID) ); - WSGOC.Set_Value( r_CUST_ID, WSGL.EscapeItem(CURR_VAL.CUST_ID) ); - WSGOC.Set_Value( r_VALID_FROM, WSGL.EscapeItem(ltrim(to_char(CURR_VAL.VALID_FROM, 'DD.MM.YYYY'))) ); - - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - '', 'efnow050$cont.LoadCache'); - raise; - end; - - - --------------------------------------------------------------------------------- --- Name: efnow050$cont.PreQuery --- --- Description: Provides place holder for code to be run prior to a query --- for the 'CONT' module component (#Maintain Contracts#2080#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PreQuery( - P_STATUS in varchar2, - P_CONTRACT_NUMBER in varchar2, - P_L_CUST_NAME in varchar2, - P_VALID_FROM in varchar2, - U_VALID_FROM in varchar2) return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - DEF_BODY_ATTRIBUTES, 'efnow050$cont.PreQuery'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow050$cont.PostQuery --- --- Description: Provides place holder for code to be run after a query --- for the 'CONT' module component (#Maintain Contracts#2080#). --- --- Parameters: Z_POST_DML Flag indicating if Query after insert or update --- Z_UPDATE_ROW Can be set to mark that row as modified when a --- multirow form is displayed, causing it to be --- updated when the form is submitted. --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - DEF_BODY_ATTRIBUTES, 'efnow050$cont.PostQuery'); - return FALSE; - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$cont.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$cont.spc deleted file mode 100644 index 0d35924..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$cont.spc +++ /dev/null @@ -1,110 +0,0 @@ -create or replace package efnow050$cont is - - type NBT_REC is record - ( UI_CUST varchar2(24000) - , UI_CONTRACT varchar2(24000) - , UI_STATUS varchar2(24000) - , UI_CONT_FROM date - , UI_CONT_TO date - , UI_EDIT_URL varchar2(24000) - , UI_COPY_URL varchar2(24000) - , L_CUST_NAME CUSTOMERS.NAME%type - ); - - NBT_VAL NBT_REC; - CURR_VAL CONTRACTS%rowtype; - - - procedure Startup( - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null, - Z_FORM in varchar2 default null); - procedure ActionQuery( - P_STATUS in varchar2 default null, - P_CONTRACT_NUMBER in varchar2 default null, - P_L_CUST_NAME in varchar2 default null, - P_VALID_FROM in varchar2 default null, - U_VALID_FROM in varchar2 default null, - Z_DIRECT_CALL in boolean default false, - Z_ACTION in varchar2 default null, - Z_CHK in varchar2 default null ); - - procedure FormQuery( - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null); - - procedure QueryList( - P_STATUS in varchar2 default null, - P_CONTRACT_NUMBER in varchar2 default null, - P_L_CUST_NAME in varchar2 default null, - P_VALID_FROM in varchar2 default null, - U_VALID_FROM in varchar2 default null, - Z_START in varchar2 default null, - Z_ACTION in varchar2 default null, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null ); - function QueryHits( - P_STATUS in varchar2 default null, - P_CONTRACT_NUMBER in varchar2 default null, - P_L_CUST_NAME in varchar2 default null, - P_VALID_FROM in varchar2 default null, - U_VALID_FROM in varchar2 default null) return number; - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean default false - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF default null - , Z_BRANCH in WSGOC.BRANCH_REF default null - ); - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean default true - ) return boolean; - procedure SaveState; - function GetRef return WSGOC.COMPONENT_REF; - - - procedure InitialiseDomain(P_ALIAS in varchar2); - - procedure calendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ); - - procedure format_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ); - - D_STATUS WSGL.typDVRecord;FUNCTION FormatDate ( p_date IN VARCHAR2 ) RETURN VARCHAR2; - -procedure ncalendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ); - -procedure nformat_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ); - - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$js$cont.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$js$cont.bdy deleted file mode 100644 index e987ee0..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$js$cont.bdy +++ /dev/null @@ -1,171 +0,0 @@ -create or replace package body efnow050$js$cont is - - --------------------------------------------------------------------------------- --- Name: efnow050$js$cont.CreateQueryJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateQueryJavaScript ( - LOV_FRAME in varchar2, - QF_BODY_ATTRIBUTES in varchar2) - is - begin - if not caco_security.security_check('efnow050$cont') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "Query";'); - - - - WSGJSL.Output_Invoke_CAL_JS ('efnow050$cont', 'scrollbars=no,resizable=no,width=320,height=350'); - - - htp.p(WSGJSL.OpenEvent('L_CUST_NAME','LOV')); htp.p(' - var depStr = ""; - var modeStr = "" - index = -1; - modeStr = "Q"; -'); - - if LOV_FRAME is not null then - htp.p(' var lovFra = "'||LOV_FRAME||'";'); - htp.p(' var winpar = "";'); - else - htp.p(' var lovFra = "winLOV";'); - htp.p(' var winpar = "scrollbars=yes,resizable=yes,width=400,height=400";'); - end if; - htp.p(' var filterprompt = "";'); - htp.p(' - - var lovTitle = "'||replace('','"','\"')||'"; - window.current_lov_title = lovTitle; - - JSLOpenLOV( ctl, index, modeStr, "efnow050$cont.l_cust_name_lov", depStr, lovFra, winpar, filterprompt ); - -'); - - htp.p(WSGJSL.CloseEvent); - - htp.p( -'// CAL -// -// - -function CAL(the_fieldname, the_value, the_format, the_prompt) { - var filter = ""; - var the_pathname = location.pathname; - var i = the_pathname.indexOf (''/:''); - var j = the_pathname.indexOf (''/'', ++i); - //var frmCAL; //B1777722 Needs to be global to remember state between calls. - - if (i != -1) - { - - // Syntactically incorrect url so it needs to be corrected - - the_pathname = the_pathname.substring (j, the_pathname.length); - - }; // (i != -1) - - // B1777722 and B1854252 for IE5 - if ( navigator.appName == "Microsoft Internet Explorer" && typeof frmCAL == "object" ) - { - frmCAL.close(); - } - - frmCAL = open ("efnow050$cont.ncalendar" + - "?Z_FIELD_NAME=" + escape(the_fieldname) + - "&Z_CALLER_URL=" + escape(location.protocol + ''//'' + location.host + the_pathname + location.search) + - "&Z_FIELD_VALUE=" + escape(the_value) + - "&Z_FIELD_FORMAT=" + escape(the_format) + - "&Z_FIELD_PROMPT=" + escape(the_prompt), - "winCAL", "scrollbars=no,resizable=no,width=320,height=350"); - - if (frmCAL.opener == null) - { - frmCAL.opener = self; - } -} '); - htp.p(WSGJSL.OpenEvent('CONT','OnLoad')); - htp.p(' - if ( FormType != "PostDelete") - { - form_num=0; - do - { - elem_num=0; - len = document.forms[form_num].elements.length; - if (len > 0) - { - while (elem_num < len && - document.forms[form_num].elements[elem_num].type != "text" && - document.forms[form_num].elements[elem_num].type != "textarea") - { - elem_num++; - } - if (elem_num < len) - { - document.forms[form_num].elements[elem_num].focus(); - break; - } - } - form_num++; - } while ( form_num < document.forms.length ); - } -'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnQFQ','OnClick')); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - QF_BODY_ATTRIBUTES, 'efnow050$js$cont.CreateQueryJavaScript'); - end; - --------------------------------------------------------------------------------- --- Name: efnow050$js$cont.CreateListJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateListJavaScript ( - RL_BODY_ATTRIBUTES in varchar2) - is - begin - if not caco_security.security_check('efnow050$cont') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "List";'); - - - htp.p( 'var P_7 = new Array();' ); - - htp.p(WSGJSL.OpenEvent('AI_NEW_CONTRACT','OnClick')); - htp.p( -' -// AI_NEW_CONTRACT_OnClick -// -// -location.href = "efnow050$.contract_startup?p_screen_type=CONTRACT";'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Contracts#2080#', - RL_BODY_ATTRIBUTES, 'efnow050$js$cont.CreateListJavaScript'); - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$js$cont.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$js$cont.spc deleted file mode 100644 index 73663f0..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow050$js$cont.spc +++ /dev/null @@ -1,11 +0,0 @@ -create or replace package efnow050$js$cont is - - procedure CreateQueryJavaScript( - LOV_FRAME in varchar2, - QF_BODY_ATTRIBUTES in varchar2); - - procedure CreateListJavaScript( - RL_BODY_ATTRIBUTES in varchar2); - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$.bdy deleted file mode 100644 index f5f4e8f..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$.bdy +++ /dev/null @@ -1,266 +0,0 @@ -create or replace package body efnow055$ is - private_ModuleRef WSGOC.MODULE_REF; - - - procedure CreateStartupJavaScript; -PROCEDURE contract_values_ro( p_contract_id IN NUMBER - , p_page_no IN NUMBER DEFAULT 1 - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL - , p_cnppv_id IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr - , p_value IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr - , p_data_error IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr ) -IS - --- contract_values_ro --- --- - - - -BEGIN - -- Check we have permission to be using this module. - IF NOT caco_security.security_check('efnow050$') THEN - RETURN; - END IF; - -- - -- Set the package name - efnow092$.g_package_name := 'efnow050$'; - -- - -- Call efno092$ - efnow092$.contract_values_ro( p_contract_id => p_contract_id - , p_page_no => p_page_no - , p_success => p_success - , p_error => p_error - , p_err_msg => p_err_msg - , p_cnppv_id => p_cnppv_id - , p_value => p_value - , p_data_error => p_data_error ); - -- -END; - --------------------------------------------------------------------------------- --- Name: efnow055$.Startup --- --- Description: This procedure is the entry point for the 'efnow055$' --- module. --- --- Parameters: None --- --------------------------------------------------------------------------------- - procedure Startup - is - begin - if not caco_security.security_check('efnow055$') then - return; - end if; - - WSGL.RegisterURL('efnow055$.startup'); - if WSGL.NotLowerCase then - return; - end if; - WSGL.StoreURLLink(0, WSGL.MsgGetText(21,WSGLM.CAP021_TOP_LEVEL)); - efnow055$cont.startup( - Z_DIRECT_CALL => TRUE - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow055$.Startup'); - end; --------------------------------------------------------------------------------- --- Name: efnow055$.firstpage --- --- Description: This procedure creates the first page for the 'efnow055$' --- module. --- --- Parameters: Z_DIRECT_CALL - --- --------------------------------------------------------------------------------- - procedure FirstPage(Z_DIRECT_CALL in boolean - -) is - begin - if not caco_security.security_check('efnow055$') then - return; - end if; - - WSGL.OpenPageHead(''); - WSGL.METATag; - WSGL.ClosePageHead; - WSGL.OpenPageBody(FALSE, p_attributes=>''); - - CreateStartupJavaScript; - - WSGL.DefaultPageCaption('', 1); - htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="SP$AIForm"'); - WSGL.NavLinks(WSGL.MENU_LONG, 'EFNOW092', 0, 'efnow092$.startup',p_output_line=>FALSE, p_target=>'_top'); - WSGL.NavLinks(WSGL.MENU_LONG, WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT), 0, 'efnow055$.showabout', '_top', p_output_line=>FALSE); - WSGL.NavLinks; - htp.formClose; - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow055$.FirstPage'); - end; - - --------------------------------------------------------------------------------- --- Name: efnow055$.showabout --- --- Description: This procedure is used to display an 'About' page for the --- 'efnow055$' module. --- --------------------------------------------------------------------------------- - procedure showabout is - l_usr varchar2(255) := null; - begin - if not caco_security.security_check('efnow055$') then - return; - end if; - l_usr := caco_security.get_user; - - WSGL.RegisterURL('efnow055$.showabout'); - if WSGL.NotLowerCase then - return; - end if; - - WSGL.OpenPageHead(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' '); - WSGL.METATag; - TemplateHeader(TRUE,2); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>''); - - htp.p(caco_system.menu); - - WSGL.DefaultPageCaption(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' '); - - - htp.para; - - htp.p(WSGL.MsgGetText(108,WSGLM.DSP108_GENERATED_BY, 'PL/SQL Web Generator', '10.1.2.6.18')); - htp.para; - - WSGL.Info(FALSE, 'Nominations', 'EFNOW055', l_usr); - - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow055$.ShowAbout'); - end; --------------------------------------------------------------------------------- --- Name: efnow055$.TemplateHeader --- --- Description: --- --------------------------------------------------------------------------------- - procedure TemplateHeader(Z_DIRECT_CALL in boolean, - Z_TEMPLATE_ID in number) is - begin - if not caco_security.security_check('efnow055$') then - return; - end if; - - if Z_TEMPLATE_ID = 1 then - -- Template defined in \\loordv01\framework\css2\css_content.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 2 then - -- Template defined in \\loordv01\framework\css2\css_about.htm - htp.p(' '); - elsif Z_TEMPLATE_ID = 3 then - -- Template defined in \\loordv01\framework\css2\css_query.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 4 then - -- Template defined in \\loordv01\framework\css2\css_view.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 5 then - -- Template defined in \\loordv01\framework\css2\css_insert.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 6 then - -- Template defined in \\loordv01\framework\css2\css_recordlist.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 7 then - -- Template defined in \\loordv01\framework\css2\css_lov.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 8 then - -- Template defined in \\loordv01\framework\css2\css_text.htm - htp.p(' - -'); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow055$.TemplateHeader'); - end; --------------------------------------------------------------------------------- --- Name: efnow055$.GetRef --- --- Description: Returns a handle to the display data for the --- 'efnow055$' module. --- If the display object does not exist then it creates it first. --- --- Parameters: --- --------------------------------------------------------------------------------- - - function GetRef return WSGOC.MODULE_REF - is - begin - if ( WSGOC.Is_Null(private_ModuleRef)) then - private_ModuleRef := WSGOC.Module - ( pShortName => 'efnow055$' - , pFirstTitle => '' - ); - end if; - return private_ModuleRef; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow055$.GetRef'); - raise; - end; - - - --------------------------------------------------------------------------------- --- Name: efnow055$.CreateStartupJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateStartupJavaScript is - begin - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "Startup";'); - htp.p(WSGJSL.CloseScript); - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$.spc deleted file mode 100644 index f92d654..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$.spc +++ /dev/null @@ -1,23 +0,0 @@ -create or replace package efnow055$ is - - procedure Startup -; - procedure FirstPage(Z_DIRECT_CALL in boolean - -); - procedure ShowAbout; - procedure TemplateHeader(Z_DIRECT_CALL in boolean, - Z_TEMPLATE_ID in number); - function GetRef return WSGOC.MODULE_REF; -PROCEDURE contract_values_ro( p_contract_id IN NUMBER - , p_page_no IN NUMBER DEFAULT 1 - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL - , p_cnppv_id IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr - , p_value IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr - , p_data_error IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr ); - - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$cont.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$cont.bdy deleted file mode 100644 index 0c49ff6..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$cont.bdy +++ /dev/null @@ -1,2085 +0,0 @@ -create or replace package body efnow055$cont is - - function L_CUST_NAME_LOV( - P_VALUE in varchar2 default null, - P_CTRL in number default 0, - P_MODE in varchar2 default 'Q', - p_select_first in boolean default false, - p_onclick in boolean default false, - p_onchange in boolean default false, - p_onblur in boolean default false, - p_onfocus in boolean default false, - p_onselect in boolean default false, - p_row in number default null) return varchar2; - function BuildSQL( - P_STATUS in varchar2 default null, - P_CONTRACT_NUMBER in varchar2 default null, - P_L_CUST_NAME in varchar2 default null, - P_VALID_FROM in varchar2 default null, - U_VALID_FROM in varchar2 default null, - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean; - procedure OpenZoneSql ( I_CURSOR OUT integer ); - procedure AssignZoneRow( I_CURSOR IN integer ); - - function PreQuery( - P_STATUS in varchar2 default null, - P_CONTRACT_NUMBER in varchar2 default null, - P_L_CUST_NAME in varchar2 default null, - P_VALID_FROM in varchar2 default null, - U_VALID_FROM in varchar2 default null) return boolean; - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean; - - QF_BODY_ATTRIBUTES constant varchar2(500) := ''; - QF_QUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(3,WSGLM.CAP003_QF_FIND); - QF_CLEAR_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(4,WSGLM.CAP004_QF_CLEAR); - QF_QUERY_BUT_ACTION constant varchar2(10) := 'QUERY'; - QF_CLEAR_BUT_ACTION constant varchar2(10) := 'CLEAR'; - QF_NUMBER_OF_COLUMNS constant number(4) := 1; - VF_BODY_ATTRIBUTES constant varchar2(500) := ''; - IF_BODY_ATTRIBUTES constant varchar2(500) := ''; - RL_BODY_ATTRIBUTES constant varchar2(500) := ''; - RL_NEXT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(11,WSGLM.CAP011_RL_NEXT); - RL_PREV_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(12,WSGLM.CAP012_RL_PREVIOUS); - RL_FIRST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(13,WSGLM.CAP013_RL_FIRST); - RL_LAST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(14,WSGLM.CAP014_RL_LAST); - RL_COUNT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(15,WSGLM.CAP015_RL_COUNT); - RL_REQUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(16,WSGLM.CAP016_RL_REQUERY); - RL_QUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(24,WSGLM.CAP024_RL_QUERY); - RL_QUERY_BUT_ACTION constant varchar2(10) := 'QUERY'; - RL_NEXT_BUT_ACTION constant varchar2(10) := 'NEXT'; - RL_PREV_BUT_ACTION constant varchar2(10) := 'PREV'; - RL_FIRST_BUT_ACTION constant varchar2(10) := 'FIRST'; - RL_LAST_BUT_ACTION constant varchar2(10) := 'LAST'; - RL_COUNT_BUT_ACTION constant varchar2(10) := 'COUNT'; - RL_REQUERY_BUT_ACTION constant varchar2(10) := 'REQUERY'; - RL_RECORD_SET_SIZE constant number(4) := 0; - RL_TOTAL_COUNT_REQD constant boolean := FALSE; - RL_NUMBER_OF_COLUMNS constant number(4) := 1; - LOV_BODY_ATTRIBUTES constant varchar2(500) := ''; - LOV_FIND_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(17,WSGLM.CAP017_LOV_FIND); - LOV_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP018_LOV_CLOSE); - LOV_FIND_BUT_ACTION constant varchar2(10) := 'FIND'; - LOV_CLOSE_BUT_ACTION constant varchar2(10) := 'CLOSE'; - LOV_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - LOV_FRAME constant varchar2(20) := null; - CAL_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - CAL_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP025_CAL_CLOSE); - CAL_BODY_ATTRIBUTES constant varchar2(500) := ''; - TF_BODY_ATTRIBUTES constant varchar2(500) := ''; - DEF_BODY_ATTRIBUTES constant varchar2(500) := ''; - - type FORM_REC is record - (UI_CUST varchar2(24000) - ,UI_CONTRACT varchar2(24000) - ,UI_STATUS varchar2(24000) - ,UI_CONT_FROM varchar2(40) - ,UI_CONT_TO varchar2(40) - ,UI_VIEW_URL varchar2(24000) - ,CONT_ID varchar2(40) - ,STATUS varchar2(36) - ,CONTRACT_NUMBER varchar2(180) - ,L_CUST_NAME varchar2(600) - ,VALID_UNTIL varchar2(12) - ,VALID_FROM varchar2(12) - ,CUST_ID varchar2(40) - ); - FORM_VAL FORM_REC; - - PROCESSING_VIEW boolean := false; - ZONE_SQL varchar2(32767) := null; - ZONE_CHECKSUM varchar2(10); - - REF_COMPONENT WSGOC.COMPONENT_REF; - R_UI_CUST WSGOC.ITEM_REF; - R_UI_CONTRACT WSGOC.ITEM_REF; - R_UI_STATUS WSGOC.ITEM_REF; - R_UI_CONT_FROM WSGOC.ITEM_REF; - R_UI_CONT_TO WSGOC.ITEM_REF; - R_UI_VIEW_URL WSGOC.ITEM_REF; - R_CONT_ID WSGOC.ITEM_REF; - R_STATUS WSGOC.ITEM_REF; - R_CONTRACT_NUMBER WSGOC.ITEM_REF; - R_L_CUST_NAME WSGOC.ITEM_REF; - R_VALID_UNTIL WSGOC.ITEM_REF; - R_VALID_FROM WSGOC.ITEM_REF; - R_CUST_ID WSGOC.ITEM_REF; - - - -FUNCTION FormatDate ( p_date IN VARCHAR2 ) RETURN VARCHAR2 IS - --- FormatDate --- --- - - - - -- - v_return VARCHAR2(100); - v_mask VARCHAR2(34) := cout_system_configuration.get_configuration_item('G_DATE_FORMAT'); - -- -BEGIN - -- - v_return := TO_CHAR(TO_DATE(p_date,v_mask),v_mask); - -- - RETURN v_return; - -- -EXCEPTION - WHEN OTHERS THEN - RETURN p_date; -END FormatDate; -procedure ncalendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ) IS - --- ncalendar --- --- - - - - - Field_Caption Varchar2 (2000); - - procedure Output_Calendar - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_VALUE in Varchar2, - Z_FIELD_FORMAT in Varchar2, - Page_Header in Varchar2, - Body_Attributes in Varchar2, - PKG_Name in Varchar2, - Close_But_Caption in Varchar2, - First_Part in Boolean, - Z_DEFAULT_FORMAT in varchar2 - ) is - day_of_week Integer := 0; - first_day_of_week Integer := 0; - -function CALJavaScript (field_value in varchar2, field_date_format in varchar2, default_format in varchar2) return varchar2 is - - l_date date; - in_date varchar2 (10); - the_date_field varchar2 (16); - l_valid_date boolean; - l_offset_unit varchar2(4); - l_offset number; - l_sysdate date; - l_territory_offset pls_integer; - -begin - l_valid_date := false; - begin - l_date := to_date( field_value, field_date_format ); - l_valid_date := true; - exception when others then - null; - end; - - if not l_valid_date then - begin - l_date := to_date( field_value, default_format ); - l_valid_date := true; - exception when others then - null; - end; - end if; - - if not l_valid_date then - begin - l_date := to_date( field_value ); - l_valid_date := true; - exception when others then - null; - end; - end if; - - if not l_valid_date then - if substr( field_value, 1, 1 ) in ('+',' ','-') then - l_offset_unit := upper( substr( field_value, 2, 1 ) ); - begin - if l_offset_unit not in ('D','M','Y') then - l_offset := to_number( substr( field_value, 2 ) ); - else - l_offset := to_number( substr( field_value, 3 ) ); - end if; - if substr( field_value, 1, 1 ) = '-' then - l_offset := -1 * l_offset; - end if; - if l_offset_unit = 'D' then - l_date := sysdate + l_offset; - l_valid_date := true; - elsif l_offset_unit = 'M' then - l_date := add_months( sysdate, l_offset ); - l_valid_date := true; - elsif l_offset_unit = 'Y' then - l_date := add_months( sysdate, 12 * l_offset ); - l_valid_date := true; - else - l_date := sysdate + l_offset; - l_valid_date := true; - end if; - exception when others then - null; - end; - end if; - end if; - - if not l_valid_date then - l_date := sysdate; - end if; - - -- Internal date format that MUST NOT be changed - this is the same format that the JS uses to - -- parse an incoming date from the field. - in_date := to_char (l_date, 'MM-DD-YYYY'); - - if in_date is null then - the_date_field := 'dateField.value'; - else - the_date_field := '''' || in_date || ''''; - end if; - - -- Calculate the offset necessary due to territorial differences in the first day of the week. - -- We know that 31st October 1999 is a Sunday, so we can see what day of the week the database thinks this is - select to_number(to_char(to_date('31-10-1999','DD-MM-YYYY'),'D'))-1 into l_territory_offset from dual; - - return ' -function setDate() { - this.dateField = opener.dateField; - this.inDate = ' || the_date_field || '; - - // SET DAY MONTH AND YEAR TO TODAYS DATE - var now = new Date(); - var day = now.getDate(); - var month = now.getMonth(); - var year = now.getFullYear(); - - // IF A DATE WAS PASSED IN THEN PARSE THAT DATE - if (inDate.indexOf(''-'')) { - var inMonth = inDate.substring(0,inDate.indexOf("-")); - if (inMonth.substring(0,1) == "0" && inMonth.length > 1) - inMonth = inMonth.substring(1,inMonth.length); - inMonth = parseInt(inMonth); - var inDay = inDate.substring(inDate.indexOf("-") + 1, inDate.lastIndexOf("-")); - if (inDay.substring(0,1) == "0" && inDay.length > 1) - inDay = inDay.substring(1,inDay.length); - inDay = parseInt(inDay); - var inYear = parseInt(inDate.substring(inDate.lastIndexOf("-") + 1, inDate.length)); - - if (inDay) { - day = inDay; - } - if (inMonth) { - month = inMonth-1; - } - if (inYear) { - year = inYear; - } - } - this.focusDay = day; - document.calControl.month.selectedIndex = month; - document.calControl.year.value = year; - displayCalendar(day, month, year); -} - - -function setToday() { - // SET DAY MONTH AND YEAR TO TODAYS DATE - var now = new Date(); - var day = now.getDate(); - var month = now.getMonth(); - var year = now.getFullYear(); - - this.focusDay = day; - document.calControl.month.selectedIndex = month; - document.calControl.year.value = year; - displayCalendar(day, month, year); -} - - -function isFourDigitYear(year) { - if (year.length != 4 || isNaN(year)) { - alert ("'||WSGL.MsgGetText(234,WSGLM.MSG234_FOUR_DIGIT_YEAR)||'"); - document.calControl.year.select(); - document.calControl.year.focus(); - } - else { - return true; - } -} - - -function selectDate() { - var year = document.calControl.year.value; - if (isFourDigitYear(year)) { - var day = 0; - var month = document.calControl.month.selectedIndex; - displayCalendar(day, month, year); - } -} - - -function setPreviousYear() { - var year = document.calControl.year.value; - if (isFourDigitYear(year)) { - var day = 0; - var month = document.calControl.month.selectedIndex; - year--; - document.calControl.year.value = year; - displayCalendar(day, month, year); - } -} - - -function setPreviousMonth() { - var year = document.calControl.year.value; - if (isFourDigitYear(year)) { - var day = 0; - var month = document.calControl.month.selectedIndex; - if (month == 0) { - month = 11; - if (year > 1000) { - year--; - document.calControl.year.value = year; - } - } - else { - month--; - } - document.calControl.month.selectedIndex = month; - displayCalendar(day, month, year); - } -} - - -function setNextMonth() { - var year = document.calControl.year.value; - if (isFourDigitYear(year)) { - var day = 0; - var month = document.calControl.month.selectedIndex; - if (month == 11) { - month = 0; - year++; - document.calControl.year.value = year; - } - else { - month++; - } - document.calControl.month.selectedIndex = month; - displayCalendar(day, month, year); - } -} - - -function setNextYear() { - var year = document.calControl.year.value; - if (isFourDigitYear(year)) { - var day = 0; - var month = document.calControl.month.selectedIndex; - year++; - document.calControl.year.value = year; - displayCalendar(day, month, year); - } -} - - -function displayCalendar(day, month, year) { - - day = parseInt(day); - month = parseInt(month); - year = parseInt(year); - var i = 0; - var offset = 11; - var now = new Date(); - - if (day == 0) { - var nowDay = now.getDate(); - } - else { - var nowDay = day; - } - var days = getDaysInMonth(month+1,year); - var firstOfMonth = new Date (year, month, 1); - var startingPos = (firstOfMonth.getDay()+'||l_territory_offset||')%7; - days += startingPos; - - // MAKE BEGINNING NON-DATE BUTTONS BLANK - for (i = 0; i < startingPos; i++) { - document.calControl.elements[i + offset].value = "__"; - } - - // SET VALUES FOR DAYS OF THE MONTH - for (i = startingPos; i < days; i++) - { - var datestr = (i-startingPos+1) + ""; - if ((i-startingPos+1) < 10) - { - datestr = "0" + datestr; - } - document.calControl.elements[i + offset].value = datestr; - document.calControl.elements[i + offset].onClick = "returnDate" - } - - // MAKE REMAINING NON-DATE BUTTONS BLANK - for (i=days; i<42; i++) { - document.calControl.elements[i + offset].value = "__"; - } - - // GIVE FOCUS TO CORRECT DAY - document.calControl.elements[focusDay+startingPos-1 + offset].focus(); - document.calControl.day.value = day; - -} - - -// GET NUMBER OF DAYS IN MONTH -function getDaysInMonth(month,year) { - var days; - if (month==1 || month==3 || month==5 || month==7 || month==8 || - month==10 || month==12) days=31; - else if (month==4 || month==6 || month==9 || month==11) days=30; - else if (month==2) { - if (isLeapYear(year)) { - days=29; - } - else { - days=28; - } - } - return (days); -} - - -// CHECK TO SEE IF YEAR IS A LEAP YEAR -function isLeapYear (Year) { - if (((Year % 4)==0) && ((Year % 100)!=0) || ((Year % 400)==0)) { - return (true); - } - else { - return (false); - } -} - - -// SET FORM FIELD VALUE TO THE DATE SELECTED -function returnDate(inDay) -{ - var day = inDay; - var month = (document.calControl.month.selectedIndex)+1; - var year = document.calControl.year.value; - - if ((""+month).length == 1) - { - month="0"+month; - } - if ((""+day).length == 1) - { - day="0"+day; - } - if (day != "__") { - document.calControl.day.value = day; - document.calControl.submit(); - } -} -'; - -end CALJavaScript; - -begin - if First_Part - then - -- Output the HTML that needs to go before the user defined template header - wsgl.OpenPageHead (Page_Header); - htp.p (WSGJSL.OpenScript); - htp.p ('function Close_OnClick() { close(); }'); - htp.p (CALJavaScript (Z_FIELD_VALUE, Z_FIELD_FORMAT, Z_DEFAULT_FORMAT)); - htp.p (WSGJSL.CloseScript); - else - -- The rest of the calendar comes after the user defined template header - wsgl.ClosePageHead; - wsgl.OpenPageBody(FALSE, p_attributes => Body_Attributes || ' ONLOAD="setDate()"'); - htp.header(2, htf.italic(Page_Header)); - htp.formOpen(curl=> PKG_Name || '.nformat_cal_date', cattributes => 'name="calControl"'); - wsgl.HiddenField('Z_FIELD_NAME', Z_FIELD_NAME); - wsgl.HiddenField('Z_FIELD_FORMAT', Z_FIELD_FORMAT); - wsgl.HiddenField('day', 1); - htp.p(''); - -- Create the calendar - htp.p (' -
- -'); - -- Now display the movement buttons - htp.p (' - - - -'); - -- Display the days of the week along the top of the calendar - htp.p (''); - -- Find the first day of the week - day_of_week := to_number (to_char (to_date ('1', 'DD'), 'D')); - first_day_of_week := (8 - day_of_week) + 1; - for i in first_day_of_week..(first_day_of_week + 6) - loop - htp.prn (''); - end loop; - htp.p (''); - -- Now display a button for each day on the calendar - -- The calendar is made up of 6 rows - for i in 1..6 - loop - htp.p (''); - for j in 1..7 - loop - -- 7 days in each row - htp.p (''); - end loop; -- j in 1..7 - htp.p (''); - end loop; -- i in 1..6 - htp.p ('
-
-'); - -- Create the month drop down - htp.formSelectOpen (cname => 'month', cattributes => 'onChange=''selectDate()'''||' ID="month"'); - -- Output the names of the months in the appropriate language for the database - NLS Compliance - for i in 1..12 - loop - htp.formSelectOption (initcap (to_char (to_date (i, 'MM'), 'MONTH'))); - end loop; - htp.formSelectClose; - -- Now the year field - htp.p (''); - -- Finish this part of the table - htp.p ('
-
- - - - - -
-
'); - htp.prn (initcap (substr (to_char (to_date (i, 'DD'), 'DAY'), 1, 2))); - htp.p ('
'); - htp.formclose; - wsgl.ClosePageBody; - end if; -- First_Part -end Output_Calendar; - - - - begin - - if Z_FIELD_PROMPT is null then - Field_Caption := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - else - Field_Caption := initcap (replace (Z_FIELD_PROMPT, '_', ' ')); - end if; - - - WSGL.RegisterURL('efnow050$cont.calendar'); - WSGL.AddURLParam('Z_FIELD_NAME', Z_FIELD_NAME); - WSGL.AddURLParam('Z_CALLER_URL', Z_CALLER_URL); - - if WSGL.NotLowerCase then - return; - end if; - - Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow050$cont', - CAL_CLOSE_BUT_CAPTION, - True, - 'DD-MON-RRRR' - ); - - efnow050$.TemplateHeader(TRUE,7); - - Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow050$cont', - CAL_CLOSE_BUT_CAPTION, - False, - 'DD-MON-RRRR' - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - CAL_BODY_ATTRIBUTES, 'efnow050$cont.calendar'); - end ncalendar; - -procedure nformat_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ) IS - --- nformat_cal_date --- --- - - - - - Field_Caption Varchar2 (2000) := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - l_day varchar2(15) := day; - l_date_fmt VARCHAR2(255) := NVL(cout_system_configuration.get_configuration_item('G_DATE_FORMAT'),'DD-MON-YYYY'); - -procedure Output_Format_Cal_JS - ( - Page_Header in Varchar2, - Body_Attributes in Varchar2, - Chosen_Date in Varchar2, - Field_Format in Varchar2 - ) is - -- This date format mask is internal and *intentional* DO NOT CHANGE - -- DD for day number - -- MONTH for actual text supplied by calendar drop down list - -- YYYY y2k compliant year - the_date date := to_date(Chosen_Date, 'DD-MONTH-YYYY'); -begin - WSGL.OpenPageHead(Page_Header); - WSGL.ClosePageHead; - WSGL.OpenPageBody(FALSE, p_attributes => Body_Attributes); - htp.p (''); - WSGL.ClosePageBody; -end Output_Format_Cal_JS; - -begin - - if l_day = '0' then - l_day := '01'; - end if; - - Output_Format_Cal_JS - ( - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - l_day || '-' || month || '-' || year, - --Z_FIELD_FORMAT - l_date_fmt - ); - -end nformat_cal_date; - --------------------------------------------------------------------------------- --- Name: efnow055$cont.L_CUST_NAME_LOV --- --- Description: Builds a GUI control to display the values returned by --- LOV 'L_CUST_NAME'. --- --- --------------------------------------------------------------------------------- - function L_CUST_NAME_LOV( - P_VALUE in varchar2, - P_CTRL in number, - P_MODE in varchar2 default 'Q', - p_select_first in boolean default false, - p_onclick in boolean, - p_onchange in boolean, - p_onblur in boolean, - p_onfocus in boolean, - p_onselect in boolean, - p_row in number) return varchar2 is - - L_RET_VALUE varchar2(32766) := null; - l_events varchar2(1000) := null; - l_valid boolean := false; - l_first boolean := true; - - cursor c1( z_mode in varchar2 - , z_filter in varchar2 - , z_uu in varchar2 - , z_ul in varchar2 - , z_lu in varchar2 - , z_ll in varchar2 - ) - is - SELECT DISTINCT L_CUST.NAME L_CUST_NAME, - L_CUST.NAME CG$DISPLAY -FROM CUSTOMERS L_CUST -WHERE ( - ( ( Z_MODE='Q') - AND ( /* CG$MDTU_QWC_START CONT.L_CUST */ - (( EXISTS ( SELECT cust1.cust_id FROM customer_intermediaries cuin1 , customers cust1 , customer_types cuty , intermediary_users inus WHERE cust1.cust_id = cuin1.cust_id AND cust1.cuty_id = cuty.cuty_id AND l_cust.cust_id = cust1.cust_id AND cuin1.inte_id = inus.inte_id AND inus.syus_id = caco_utilities.get_syus_id AND cuty.cuty_id = caco_utilities.cuty_id_for_user AND cust1.cust_id != caco_utilities.get_system_customer ) OR caco_utilities.user_has_system = 'Y' )) - /* CG$MDTU_QWC_END CONT.L_CUST */ - ) - ) - OR - ( ( NOT Z_MODE='Q') - AND ( /* CG$MDTU_VWC_START CONT.L_CUST */ - (( EXISTS ( SELECT cust1.cust_id FROM customer_intermediaries cuin1 , customers cust1 , customer_types cuty , intermediary_users inus WHERE cust1.cust_id = cuin1.cust_id AND cust1.cuty_id = cuty.cuty_id AND l_cust.cust_id = cust1.cust_id AND cuin1.inte_id = inus.inte_id AND inus.syus_id = caco_utilities.get_syus_id AND cuty.cuty_id = caco_utilities.cuty_id_for_user AND cust1.cust_id != caco_utilities.get_system_customer ) OR caco_utilities.user_has_system = 'Y' )) - /* CG$MDTU_VWC_END CONT.L_CUST */ - ) - ) - ) -ORDER BY L_CUST.NAME -; - - l_rownum_txt varchar2(30); - begin - if p_row is not null then - l_rownum_txt := ', ' || to_char(p_row - 1); - end if; - if p_onclick then - l_events := l_events || ' onClick="return L_CUST_NAME_OnClick(this'||l_rownum_txt||')"'; - end if; - if p_onchange then - l_events := l_events || ' onChange="return L_CUST_NAME_OnChange(this'||l_rownum_txt||')"'; - end if; - if p_onblur then - l_events := l_events || ' onBlur="return L_CUST_NAME_OnBlur(this'||l_rownum_txt||')"'; - end if; - if p_onfocus then - l_events := l_events || ' onFocus="return L_CUST_NAME_OnFocus(this'||l_rownum_txt||')"'; - end if; - if p_onselect then - l_events := l_events || ' onSelect="return L_CUST_NAME_OnSelect(this'||l_rownum_txt||')"'; - end if; - - -- IDs Feature: - if P_CTRL = WSGL.CTL_QUERY and 1 <> 1 then - L_RET_VALUE := htf.formSelectOpen('P_L_CUST_NAME', - nsize=>'1', - cattributes=>'MULTIPLE CLASS = cglovlist'||l_events||' ID="'||'P_L_CUST_NAME'||'"'); - else - L_RET_VALUE := htf.formSelectOpen('P_L_CUST_NAME', - nsize=>'1', - cattributes=>'CLASS = cglovlist'||l_events||' ID="'||'P_L_CUST_NAME'||'"'); - end if; - - if P_CTRL = WSGL.CTL_QUERY and p_select_first then - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(' ', 'SELECTED'); - l_first := false; - l_valid := true; - end if; - - for c1rec in c1( P_MODE, '%',null,null,null,null) loop - if ((WSGL.EscapeItem(c1rec.L_CUST_NAME) = P_VALUE) or c1rec.L_CUST_NAME = P_VALUE) or (p_select_first and l_first) then - l_valid := true; - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.EscapeItem(c1rec.CG$DISPLAY), 'SELECTED', - cattributes=>'VALUE="'||WSGL.EscapeItem(c1rec.L_CUST_NAME)||'"'); - else - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.EscapeItem(c1rec.CG$DISPLAY), null, - cattributes=>'VALUE="'||WSGL.EscapeItem(c1rec.L_CUST_NAME)||'"'); - end if; - l_first := false; - end loop; - - if not l_valid then - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.MsgGetText(28,WSGLM.CAP028_INVALID_VAL), 'SELECTED', - 'VALUE="'||WSGL.MsgGetText(28,WSGLM.CAP028_INVALID_VAL)||'"'); - end if; - L_RET_VALUE := L_RET_VALUE || htf.formSelectClose; - - return L_RET_VALUE; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - DEF_BODY_ATTRIBUTES, 'efnow055$cont.L_CUST_NAME_LOV'); - return L_RET_VALUE; - end; --------------------------------------------------------------------------------- --- Name: efnow055$cont.InitialiseDomain --- --- Description: Initialises the Domain Record for the given Column Usage --- --- Parameters: P_ALIAS The alias of the column usage --- --------------------------------------------------------------------------------- - procedure InitialiseDomain(P_ALIAS in varchar2) is - begin - if not caco_security.security_check('efnow055$cont') then - return; - end if; - - if P_ALIAS = 'STATUS' and not D_STATUS.Initialised then - D_STATUS.ColAlias := 'STATUS'; - D_STATUS.ControlType := WSGL.DV_LIST; - D_STATUS.DispWidth := 6; - D_STATUS.DispHeight := 1; - D_STATUS.MaxWidth := 6; - D_STATUS.UseMeanings := True; - D_STATUS.ColOptional := False; - D_STATUS.Vals(1) := 'O'; - D_STATUS.Meanings(1) := 'Open'; - D_STATUS.Abbreviations(1) := 'Open'; - D_STATUS.Vals(2) := 'C'; - D_STATUS.Meanings(2) := 'Closed'; - D_STATUS.Abbreviations(2) := 'Closed'; - D_STATUS.NumOfVV := 2; - D_STATUS.Initialised := True; - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - DEF_BODY_ATTRIBUTES, 'efnow055$cont.InitialseDomain'); - end; - --------------------------------------------------------------------------------- --- Name: efnow055$cont.calendar --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - - procedure calendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ) is - - Field_Caption Varchar2 (2000); - - begin - - if Z_FIELD_PROMPT is null then - Field_Caption := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - else - Field_Caption := initcap (replace (Z_FIELD_PROMPT, '_', ' ')); - end if; - - - WSGL.RegisterURL('efnow055$cont.calendar'); - WSGL.AddURLParam('Z_FIELD_NAME', Z_FIELD_NAME); - WSGL.AddURLParam('Z_CALLER_URL', Z_CALLER_URL); - - if WSGL.NotLowerCase then - return; - end if; - - WSGL.Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow055$cont', - CAL_CLOSE_BUT_CAPTION, - True, - 'DD-MON-RRRR' - ); - - efnow055$.TemplateHeader(TRUE,7); - - WSGL.Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow055$cont', - CAL_CLOSE_BUT_CAPTION, - False, - 'DD-MON-RRRR' - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - CAL_BODY_ATTRIBUTES, 'efnow055$cont.calendar'); - end calendar; - --------------------------------------------------------------------------------- --- Name: efnow055$cont.format_cal_date --- --- Description: Converts the chosen date into the correct format using the format mask assigned --- to the field that the calendar was popped up for --- --------------------------------------------------------------------------------- - -procedure format_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ) is - - Field_Caption Varchar2 (2000) := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - l_day varchar2(15) := day; - -begin - - if l_day = '0' then - l_day := '01'; - end if; - - WSGL.Output_Format_Cal_JS - ( - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - l_day || '-' || month || '-' || year, - Z_FIELD_FORMAT - ); - -end format_cal_date; - --------------------------------------------------------------------------------- --- Name: efnow055$cont.Startup --- --- Description: Entry point for the 'CONT' module --- component (#View Contract Values#3980#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure Startup( - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2, - Z_FORM in varchar2) is - l_Foundform boolean := FALSE; - l_fs_text varchar2(32767) := '' ; - begin - if not caco_security.security_check('efnow055$cont') then - return; - end if; - - WSGL.RegisterURL('efnow055$cont.startup'); - WSGL.AddURLParam('Z_CHK', Z_CHK); - - - WSGL.StoreURLLink(1, '#View Contract Values#3980#'); - - -- Either no frames are being used or the query form is on a - -- separate page. - if Z_FORM is not null then - null; - -- Work out which form is required, and check if that is possible - if Z_FORM = 'QUERY' then - FormQuery( - Z_DIRECT_CALL=>TRUE); - l_Foundform := TRUE; - end if; - if Z_FORM = 'LIST' then - QueryList( - Z_DIRECT_CALL=>TRUE); - l_Foundform := TRUE; - end if; - end if; - if l_Foundform = FALSE then - FormQuery( - Z_DIRECT_CALL=>TRUE); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - DEF_BODY_ATTRIBUTES, 'efnow055$cont.Startup'); - end; - --------------------------------------------------------------------------------- --- Name: efnow055$cont.ActionQuery --- --- Description: Called when a Query form is subitted to action the query request. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure ActionQuery( - P_STATUS in varchar2, - P_CONTRACT_NUMBER in varchar2, - P_L_CUST_NAME in varchar2, - P_VALID_FROM in varchar2, - U_VALID_FROM in varchar2, - Z_DIRECT_CALL in boolean default false, - Z_ACTION in varchar2, - Z_CHK in varchar2 ) is - - L_CHK varchar2(10) := Z_CHK; - L_BUTCHK varchar2(100):= null; - l_dummy_bool boolean := false; - begin - if not caco_security.security_check('efnow055$cont') then - return; - end if; - - if not Z_DIRECT_CALL then - null; - end if; - - l_dummy_bool := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - QueryList( - P_STATUS, - P_CONTRACT_NUMBER, - P_L_CUST_NAME, - P_VALID_FROM, - U_VALID_FROM, - Z_START=>null, - Z_ACTION=>L_BUTCHK, - Z_DIRECT_CALL=>TRUE); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - DEF_BODY_ATTRIBUTES, 'efnow055$cont.ActionQuery'); - end; - --------------------------------------------------------------------------------- --- Name: efnow055$cont.QueryHits --- --- Description: Returns the number or rows which matches the given search --- criteria (if any). --- --- Parameters: --- --------------------------------------------------------------------------------- - function QueryHits( - P_STATUS in varchar2, - P_CONTRACT_NUMBER in varchar2, - P_L_CUST_NAME in varchar2, - P_VALID_FROM in varchar2, - U_VALID_FROM in varchar2) return number is - I_QUERY varchar2(32767) := ''; - I_CURSOR integer; - I_VOID integer; - I_FROM_POS integer := 0; - I_COUNT number(10); - begin - if not caco_security.security_check('efnow055$cont') then - return -1; - end if; - - if not BuildSQL(P_STATUS, - P_CONTRACT_NUMBER, - P_L_CUST_NAME, - P_VALID_FROM, - U_VALID_FROM) then - return -1; - end if; - - if not PreQuery(P_STATUS, - P_CONTRACT_NUMBER, - P_L_CUST_NAME, - P_VALID_FROM, - U_VALID_FROM) then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#View Contract Values#3980#', DEF_BODY_ATTRIBUTES); - return -1; - end if; - - I_FROM_POS := instr(upper(ZONE_SQL), ' FROM '); - - if I_FROM_POS = 0 then - return -1; - end if; - - I_QUERY := 'SELECT count(*)' || - substr(ZONE_SQL, I_FROM_POS); - - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, I_QUERY, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, I_COUNT); - I_VOID := dbms_sql.execute(I_CURSOR); - I_VOID := dbms_sql.fetch_rows(I_CURSOR); - dbms_sql.column_value(I_CURSOR, 1, I_COUNT); - dbms_sql.close_cursor(I_CURSOR); - - return I_COUNT; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - DEF_BODY_ATTRIBUTES, 'efnow055$cont.QueryHits'); - return -1; - end; --------------------------------------------------------------------------------- --- Name: efnow055$cont.BuildSQL --- --- Description: Builds the SQL for the 'CONT' module component (#View Contract Values#3980#). --- This incorporates all query criteria and Foreign key columns. --- --- Parameters: --- --------------------------------------------------------------------------------- - function BuildSQL( - P_STATUS in varchar2, - P_CONTRACT_NUMBER in varchar2, - P_L_CUST_NAME in varchar2, - P_VALID_FROM in varchar2, - U_VALID_FROM in varchar2, - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean is - - I_WHERE varchar2(32767); - row_idx integer; - begin - - InitialiseDomain('STATUS'); - - -- Build up the Where clause - if Z_QUERY_BY_KEY then - I_WHERE := 'WHERE CONT_ID = ' || to_char(CURR_VAL.CONT_ID) || ' '; - elsif Z_ROW_ID is not null then - I_WHERE := 'WHERE CG$ROW_ID = ''' || rowidtochar( Z_ROW_ID ) || ''''; - elsif Z_BIND_ROW_ID then - I_WHERE := 'WHERE CG$ROW_ID = :b_row_id'; - else - WSGL.BuildWhere(WSGL.DomainValue(D_STATUS, P_STATUS), 'STATUS', WSGL.TYPE_CHAR, I_WHERE); - WSGL.BuildWhere(P_CONTRACT_NUMBER, 'CONTRACT_NUMBER', WSGL.TYPE_CHAR, I_WHERE); - WSGL.BuildWhere(P_L_CUST_NAME, 'L_CUST_NAME', WSGL.TYPE_CHAR, I_WHERE); - begin - WSGL.BuildWhere(P_VALID_FROM, U_VALID_FROM, 'VALID_FROM', WSGL.TYPE_DATE, I_WHERE, 'DD/MM/YYYY'); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_ERROR_QRY, SQLERRM, - ''||' : '||'#View Contract Values#3980#', DEF_BODY_ATTRIBUTES, NULL, - WSGL.MsgGetText(210,WSGLM.MSG210_INVALID_QRY,'#Valid From#2441#'), - WSGL.MsgGetText(211,WSGLM.MSG211_EXAMPLE_TODAY,to_char(sysdate, 'DD/MM/YYYY'))); - return false; - end; - - end if; - - ZONE_SQL := 'SELECT UI_CUST, - UI_CONTRACT, - UI_STATUS, - UI_CONT_FROM, - UI_CONT_TO, - UI_VIEW_URL, - CONT_ID, - STATUS, - CONTRACT_NUMBER, - L_CUST_NAME, - VALID_UNTIL, - VALID_FROM, - CUST_ID - FROM ( SELECT L_CUST.NAME UI_CUST, - CONT.CONTRACT_NUMBER UI_CONTRACT, - DECODE(CONT.STATUS,''O'',''Open'',''Closed'') UI_STATUS, - CONT.VALID_FROM UI_CONT_FROM, - CONT.VALID_UNTIL UI_CONT_TO, - ''efnow055$.contract_values_ro?p_contract_id=''||CONT.CONT_ID UI_VIEW_URL, - CONT.CONT_ID CONT_ID, - CONT.STATUS STATUS, - CONT.CONTRACT_NUMBER CONTRACT_NUMBER, - L_CUST.NAME L_CUST_NAME, - CONT.VALID_UNTIL VALID_UNTIL, - CONT.VALID_FROM VALID_FROM, - CONT.CUST_ID CUST_ID -FROM CONTRACTS CONT, - CUSTOMERS L_CUST -WHERE ( /* CG$MDTU_QWC_START CONT.L_CUST */ - (( EXISTS ( SELECT cust1.cust_id FROM customer_intermediaries cuin1 , customers cust1 , customer_types cuty , intermediary_users inus WHERE cust1.cust_id = cuin1.cust_id AND cust1.cuty_id = cuty.cuty_id AND l_cust.cust_id = cust1.cust_id AND cuin1.inte_id = inus.inte_id AND inus.syus_id = caco_utilities.get_syus_id AND cuty.cuty_id = caco_utilities.cuty_id_for_user AND cust1.cust_id != caco_utilities.get_system_customer ) OR caco_utilities.user_has_system = ''Y'' )) - /* CG$MDTU_QWC_END CONT.L_CUST */ - ) AND - CONT.CUST_ID = L_CUST.CUST_ID - ) '; - ZONE_SQL := ZONE_SQL || I_WHERE; - ZONE_SQL := ZONE_SQL || ' ORDER BY L_CUST_NAME, - VALID_FROM'; - return true; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - DEF_BODY_ATTRIBUTES, 'efnow055$cont.BuildSQL'); - return false; - end; - --------------------------------------------------------------------------------- --- Name: efnow055$cont.OpenZoneSql --- --- Description: Open's the cursor for the zone SQL of --- 'CONT' module component (#View Contract Values#3980#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure OpenZoneSql - ( I_CURSOR OUT integer - ) - is - begin - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, ZONE_SQL, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, NBT_VAL.UI_CUST, 4000); - dbms_sql.define_column(I_CURSOR, 2, NBT_VAL.UI_CONTRACT, 4000); - dbms_sql.define_column(I_CURSOR, 3, NBT_VAL.UI_STATUS, 4000); - dbms_sql.define_column(I_CURSOR, 4, NBT_VAL.UI_CONT_FROM); - dbms_sql.define_column(I_CURSOR, 5, NBT_VAL.UI_CONT_TO); - dbms_sql.define_column(I_CURSOR, 6, NBT_VAL.UI_VIEW_URL, 4000); - dbms_sql.define_column(I_CURSOR, 7, CURR_VAL.CONT_ID); - dbms_sql.define_column(I_CURSOR, 8, CURR_VAL.STATUS, 1); - dbms_sql.define_column(I_CURSOR, 9, CURR_VAL.CONTRACT_NUMBER, 30); - dbms_sql.define_column(I_CURSOR, 10, NBT_VAL.L_CUST_NAME, 100); - dbms_sql.define_column(I_CURSOR, 11, CURR_VAL.VALID_UNTIL); - dbms_sql.define_column(I_CURSOR, 12, CURR_VAL.VALID_FROM); - dbms_sql.define_column(I_CURSOR, 13, CURR_VAL.CUST_ID); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - '', 'efnow055$cont.OpenZoneSql'); - raise; - end; - --------------------------------------------------------------------------------- --- Name: efnow055$cont.AssignZoneRow --- --- Description: Assign's a row of data and calculates the check sum from the --- zone SQL of 'CONT' module component (#View Contract Values#3980#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure AssignZoneRow - ( I_CURSOR IN integer - ) - is - begin - dbms_sql.column_value(I_CURSOR, 1, NBT_VAL.UI_CUST); - dbms_sql.column_value(I_CURSOR, 2, NBT_VAL.UI_CONTRACT); - dbms_sql.column_value(I_CURSOR, 3, NBT_VAL.UI_STATUS); - dbms_sql.column_value(I_CURSOR, 4, NBT_VAL.UI_CONT_FROM); - dbms_sql.column_value(I_CURSOR, 5, NBT_VAL.UI_CONT_TO); - dbms_sql.column_value(I_CURSOR, 6, NBT_VAL.UI_VIEW_URL); - dbms_sql.column_value(I_CURSOR, 7, CURR_VAL.CONT_ID); - dbms_sql.column_value(I_CURSOR, 8, CURR_VAL.STATUS); - dbms_sql.column_value(I_CURSOR, 9, CURR_VAL.CONTRACT_NUMBER); - dbms_sql.column_value(I_CURSOR, 10, NBT_VAL.L_CUST_NAME); - dbms_sql.column_value(I_CURSOR, 11, CURR_VAL.VALID_UNTIL); - dbms_sql.column_value(I_CURSOR, 12, CURR_VAL.VALID_FROM); - dbms_sql.column_value(I_CURSOR, 13, CURR_VAL.CUST_ID); - ZONE_CHECKSUM := to_char(WSGL.Checksum - ( '' - || CURR_VAL.CONT_ID - ) ); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - '', 'efnow055$cont.AssignZoneRow'); - raise; - end; - - - - --------------------------------------------------------------------------------- --- Name: efnow055$cont.FormQuery --- --- Description: This procedure builds an HTML form for entry of query criteria. --- The criteria entered are to restrict the query of the 'CONT' --- module component (#View Contract Values#3980#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure FormQuery( - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2) is - L_SUCCESS boolean := TRUE; - begin - if not caco_security.security_check('efnow055$cont') then - return; - end if; - - if not Z_DIRECT_CALL then - - null; - end if; - - L_SUCCESS := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - WSGL.OpenPageHead(''||' : '||'#View Contract Values#3980#'); - WSGL.METATag; - efnow055$.TemplateHeader(TRUE,1); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>QF_BODY_ATTRIBUTES || 'onLoad="return CONT_OnLoad()"'); - efnow055$js$cont.CreateQueryJavaScript(LOV_FRAME,QF_BODY_ATTRIBUTES); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => false - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - htp.p(caco_system.menu); - efnow055$.FirstPage(Z_DIRECT_CALL => TRUE - - ); - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - htp.p(WSGL.MsgGetText(116,WSGLM.DSP116_ENTER_QRY_CAPTION,'#View Contract Values#3980#')); - htp.para; - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow055$cont.actionquery', cattributes => 'NAME="efnow055$cont$QForm"'); - - SaveState; - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE); - WSGL.LayoutRowStart; - for i in 1..QF_NUMBER_OF_COLUMNS loop - WSGL.LayoutHeader(23, 'LEFT', NULL); - WSGL.LayoutHeader(40, 'LEFT', NULL); - end loop; - WSGL.LayoutRowEnd; - - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Status#2114#:')); - InitialiseDomain('STATUS'); - WSGL.LayoutData(WSGL.BuildDVControl(D_STATUS, WSGL.CTL_QUERY)); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Contract Number#2013#:')); - WSGL.LayoutData(WSGL.BuildQueryControl('CONTRACT_NUMBER', '30', FALSE, p_maxlength=>'30')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Name#116#:')); - WSGL.LayoutData(L_CUST_NAME_LOV(NULL, WSGL.CTL_QUERY, 'Q', true)); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Valid From#2441#:')); - WSGL.LayoutData(WSGL.BuildQueryControl('VALID_FROM', '11', TRUE, p_maxlength=>'10' - , p_cal_but_text => CAL_BUTTON_TEXT - , p_cal_date_format => 'DD/MM/YYYY' - , p_cal_prompt => '#Valid From#2441#' - , p_form=>'efnow055$cont$QForm')); - WSGL.LayoutRowEnd; - - WSGL.LayoutClose; - - WSGL.SubmitButton('Z_ACTION', htf.escape_sc(QF_QUERY_BUT_CAPTION), 'btnQFQ', 'this.form.Z_ACTION.value=\''' || QF_QUERY_BUT_ACTION || '\'''); - htp.formReset(htf.escape_sc(QF_CLEAR_BUT_CAPTION), 'ID="'||htf.escape_sc(QF_CLEAR_BUT_CAPTION)||'"'); - - - WSGL.HiddenField('Z_CHK', to_char(WSGL.Checksum - (''))); - htp.formClose; - - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - QF_BODY_ATTRIBUTES, 'efnow055$cont.FormQuery'); - WSGL.ClosePageBody; - end; - --------------------------------------------------------------------------------- --- Name: efnow055$cont.QueryList --- --- Description: This procedure builds the Record list for the 'CONT' --- module component (#View Contract Values#3980#). --- --- The Record List displays context information for records which --- match the specified query criteria. --- Sets of records are displayed (0 records at a time) --- with Next/Previous buttons to get other record sets. --- --- Parameters: P_STATUS - #Status#2114# --- P_CONTRACT_NUMBER - #Contract Number#2013# --- P_L_CUST_NAME - #Name#116# --- P_VALID_FROM - #Valid From#2441# --- U_VALID_FROM - #Valid From#2441# (upper bound) --- Z_START - First record to display --- Z_ACTION - Next or Previous set --- --------------------------------------------------------------------------------- - procedure QueryList( - P_STATUS in varchar2, - P_CONTRACT_NUMBER in varchar2, - P_L_CUST_NAME in varchar2, - P_VALID_FROM in varchar2, - U_VALID_FROM in varchar2, - Z_START in varchar2, - Z_ACTION in varchar2, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2 ) is - - I_VF_FRAME varchar2(20) := null; - I_WHERE varchar2(2000) := ''; - I_CURSOR integer; - I_VOID integer; - I_ROWS_FETCHED integer := 0; - I_TOTAL_ROWS integer := 0; - I_START number(38) := to_number(Z_START); - I_COUNT number(10) := 0; - I_OF_TOTAL_TEXT varchar2(200) := ''; - I_NEXT_BUT boolean; - I_PREV_BUT boolean; - I_COL_COUNT integer; - I_SUCCESS boolean := true; - l_row integer := 0; - l_id varchar2(35) := null; - -- Reset break group? - RSIG_CUST boolean := true; - -- Reset break group? - RSIG_REST boolean := true; - I_LAST_BASE CURR_VAL%TYPE; - I_LAST_NBT NBT_REC; - - - - begin - - if not caco_security.security_check('efnow055$cont') then - return; - end if; - - - WSGL.RegisterURL('efnow055$cont.querylist'); - WSGL.AddURLParam('P_STATUS', P_STATUS); - WSGL.AddURLParam('P_CONTRACT_NUMBER', P_CONTRACT_NUMBER); - WSGL.AddURLParam('P_L_CUST_NAME', P_L_CUST_NAME); - WSGL.AddURLParam('P_VALID_FROM', P_VALID_FROM); - WSGL.AddURLParam('U_VALID_FROM', U_VALID_FROM); - WSGL.AddURLParam('Z_START', Z_START); - WSGL.AddURLParam('Z_ACTION', Z_ACTION); - WSGL.AddURLParam('Z_CHK', Z_CHK); - if (not Z_DIRECT_CALL) then - - null; - - - end if; - if (Z_ACTION = RL_QUERY_BUT_ACTION) or (Z_ACTION = RL_QUERY_BUT_CAPTION) then - FormQuery( - Z_DIRECT_CALL=>TRUE); - return; - end if; - - -- Set up any master context values that may be required - I_SUCCESS := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - - - WSGL.OpenPageHead(''||' : '||'#View Contract Values#3980#'); - WSGL.METATag; - efnow055$.TemplateHeader(TRUE,6); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>RL_BODY_ATTRIBUTES); - efnow055$js$cont.CreateListJavaScript(RL_BODY_ATTRIBUTES); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => false - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - - - htp.p(caco_system.menu); - - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - if (Z_ACTION = RL_LAST_BUT_ACTION) or (Z_ACTION = RL_LAST_BUT_CAPTION) or - (Z_ACTION = RL_COUNT_BUT_ACTION) or (Z_ACTION = RL_COUNT_BUT_CAPTION) or - (RL_TOTAL_COUNT_REQD) - then - - I_COUNT := QueryHits( - P_STATUS, - P_CONTRACT_NUMBER, - P_L_CUST_NAME, - P_VALID_FROM, - U_VALID_FROM); - if I_COUNT = -1 then - WSGL.ClosePageBody; - return; - end if; - end if; - - if (Z_ACTION = RL_COUNT_BUT_ACTION) or (Z_ACTION = RL_COUNT_BUT_CAPTION) or - RL_TOTAL_COUNT_REQD then - I_OF_TOTAL_TEXT := ' '||WSGL.MsgGetText(111,WSGLM.DSP111_OF_TOTAL, to_char(I_COUNT)); - end if; - I_START := 1; - - I_PREV_BUT := TRUE; - I_NEXT_BUT := FALSE; - if I_START = 1 or Z_ACTION IS NULL then - I_PREV_BUT := FALSE; - end if; - - if nvl(Z_ACTION, 'X') != 'DONTQUERY' then - - if ZONE_SQL IS NULL then - if not BuildSQL( - P_STATUS, - P_CONTRACT_NUMBER, - P_L_CUST_NAME, - P_VALID_FROM, - U_VALID_FROM) then - WSGL.ClosePageBody; - return; - end if; - end if; - - if not PreQuery( - P_STATUS, - P_CONTRACT_NUMBER, - P_L_CUST_NAME, - P_VALID_FROM, - U_VALID_FROM) then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#View Contract Values#3980#', RL_BODY_ATTRIBUTES); - return; - end if; - - InitialiseDomain('STATUS'); - - - OpenZoneSql( I_CURSOR ); - I_VOID := dbms_sql.execute(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - else - I_ROWS_FETCHED := 0; - end if; - I_TOTAL_ROWS := I_ROWS_FETCHED; - - if I_ROWS_FETCHED != 0 then - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE, P_BORDER=>TRUE); - - WSGL.LayoutRowStart(p_attrs=>'class = cgrlheaderrow'); - for i in 1..RL_NUMBER_OF_COLUMNS loop - WSGL.LayoutHeader(30, 'LEFT', '#Customer#1047#',''); - WSGL.LayoutHeader(30, 'LEFT', '#Contract Name#2082#',''); - WSGL.LayoutHeader(30, 'LEFT', '#Status#2114#',''); - WSGL.LayoutHeader(11, 'LEFT', '#Valid From#2441#',''); - WSGL.LayoutHeader(11, 'LEFT', '#Valid To#2442#',''); - WSGL.LayoutHeader(30, 'LEFT', '#View#2062#',''); - end loop; - WSGL.LayoutRowEnd; - - while I_ROWS_FETCHED <> 0 loop - - if I_TOTAL_ROWS >= I_START then - AssignZoneRow(I_CURSOR); - - if (NBT_VAL.UI_CUST != I_LAST_NBT.UI_CUST or (NBT_VAL.UI_CUST is null and I_LAST_NBT.UI_CUST is not null) or (NBT_VAL.UI_CUST is not null and I_LAST_NBT.UI_CUST is null) ) then - RSIG_CUST := true; - else - RSIG_CUST := false; - end if; - if (CURR_VAL.CONT_ID != I_LAST_BASE.CONT_ID or (CURR_VAL.CONT_ID is null and I_LAST_BASE.CONT_ID is not null) or (CURR_VAL.CONT_ID is not null and I_LAST_BASE.CONT_ID is null) ) or - (CURR_VAL.STATUS != I_LAST_BASE.STATUS or (CURR_VAL.STATUS is null and I_LAST_BASE.STATUS is not null) or (CURR_VAL.STATUS is not null and I_LAST_BASE.STATUS is null) ) or - (CURR_VAL.CONTRACT_NUMBER != I_LAST_BASE.CONTRACT_NUMBER or (CURR_VAL.CONTRACT_NUMBER is null and I_LAST_BASE.CONTRACT_NUMBER is not null) or (CURR_VAL.CONTRACT_NUMBER is not null and I_LAST_BASE.CONTRACT_NUMBER is null) ) or - (NBT_VAL.L_CUST_NAME != I_LAST_NBT.L_CUST_NAME or (NBT_VAL.L_CUST_NAME is null and I_LAST_NBT.L_CUST_NAME is not null) or (NBT_VAL.L_CUST_NAME is not null and I_LAST_NBT.L_CUST_NAME is null) ) or - (CURR_VAL.VALID_UNTIL != I_LAST_BASE.VALID_UNTIL or (CURR_VAL.VALID_UNTIL is null and I_LAST_BASE.VALID_UNTIL is not null) or (CURR_VAL.VALID_UNTIL is not null and I_LAST_BASE.VALID_UNTIL is null) ) or - (CURR_VAL.VALID_FROM != I_LAST_BASE.VALID_FROM or (CURR_VAL.VALID_FROM is null and I_LAST_BASE.VALID_FROM is not null) or (CURR_VAL.VALID_FROM is not null and I_LAST_BASE.VALID_FROM is null) ) or - (CURR_VAL.CUST_ID != I_LAST_BASE.CUST_ID or (CURR_VAL.CUST_ID is null and I_LAST_BASE.CUST_ID is not null) or (CURR_VAL.CUST_ID is not null and I_LAST_BASE.CUST_ID is null) ) or - (NBT_VAL.UI_CONTRACT != I_LAST_NBT.UI_CONTRACT or (NBT_VAL.UI_CONTRACT is null and I_LAST_NBT.UI_CONTRACT is not null) or (NBT_VAL.UI_CONTRACT is not null and I_LAST_NBT.UI_CONTRACT is null) ) or - (NBT_VAL.UI_STATUS != I_LAST_NBT.UI_STATUS or (NBT_VAL.UI_STATUS is null and I_LAST_NBT.UI_STATUS is not null) or (NBT_VAL.UI_STATUS is not null and I_LAST_NBT.UI_STATUS is null) ) or - (NBT_VAL.UI_CONT_FROM != I_LAST_NBT.UI_CONT_FROM or (NBT_VAL.UI_CONT_FROM is null and I_LAST_NBT.UI_CONT_FROM is not null) or (NBT_VAL.UI_CONT_FROM is not null and I_LAST_NBT.UI_CONT_FROM is null) ) or - (NBT_VAL.UI_CONT_TO != I_LAST_NBT.UI_CONT_TO or (NBT_VAL.UI_CONT_TO is null and I_LAST_NBT.UI_CONT_TO is not null) or (NBT_VAL.UI_CONT_TO is not null and I_LAST_NBT.UI_CONT_TO is null) ) or - (NBT_VAL.UI_VIEW_URL != I_LAST_NBT.UI_VIEW_URL or (NBT_VAL.UI_VIEW_URL is null and I_LAST_NBT.UI_VIEW_URL is not null) or (NBT_VAL.UI_VIEW_URL is not null and I_LAST_NBT.UI_VIEW_URL is null) ) then - RSIG_REST := true; - else - RSIG_REST := false; - end if; - if RSIG_CUST then - RSIG_REST := true; - end if; - - - I_LAST_NBT.UI_CUST := NBT_VAL.UI_CUST; - I_LAST_BASE.CONT_ID := CURR_VAL.CONT_ID; - I_LAST_BASE.STATUS := CURR_VAL.STATUS; - I_LAST_BASE.CONTRACT_NUMBER := CURR_VAL.CONTRACT_NUMBER; - I_LAST_NBT.L_CUST_NAME := NBT_VAL.L_CUST_NAME; - I_LAST_BASE.VALID_UNTIL := CURR_VAL.VALID_UNTIL; - I_LAST_BASE.VALID_FROM := CURR_VAL.VALID_FROM; - I_LAST_BASE.CUST_ID := CURR_VAL.CUST_ID; - I_LAST_NBT.UI_CONTRACT := NBT_VAL.UI_CONTRACT; - I_LAST_NBT.UI_STATUS := NBT_VAL.UI_STATUS; - I_LAST_NBT.UI_CONT_FROM := NBT_VAL.UI_CONT_FROM; - I_LAST_NBT.UI_CONT_TO := NBT_VAL.UI_CONT_TO; - I_LAST_NBT.UI_VIEW_URL := NBT_VAL.UI_VIEW_URL; - l_row := l_row + 1; - - - WSGL.LayoutRowStart('TOP', p_attrs=>'class = cgrldatarow'); - l_id := '' || l_row; - if RSIG_CUST and NBT_VAL.UI_CUST is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.UI_CUST), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSIG_REST and NBT_VAL.UI_CONTRACT is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.UI_CONTRACT), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSIG_REST and NBT_VAL.UI_STATUS is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.UI_STATUS), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSIG_REST and NBT_VAL.UI_CONT_FROM is not null then - WSGL.LayoutData(p_text=>EFNOW055$CONT.FORMATDATE(WSGL.EscapeItem(ltrim(to_char(NBT_VAL.UI_CONT_FROM, 'DD-MON-RRRR')))), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSIG_REST and NBT_VAL.UI_CONT_TO is not null then - WSGL.LayoutData(p_text=>EFNOW055$CONT.FORMATDATE(WSGL.EscapeItem(ltrim(to_char(NBT_VAL.UI_CONT_TO, 'DD-MON-RRRR')))), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSIG_REST and NBT_VAL.UI_VIEW_URL is not null then - WSGL.LayoutData(p_text=>replace(wsgl.anchor2(WSGL.EscapeItem(NBT_VAL.UI_VIEW_URL), '#View#2062#'), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - - WSGL.LayoutRowEnd; - - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - else - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - end if; - - I_TOTAL_ROWS := I_TOTAL_ROWS + I_ROWS_FETCHED; - - end loop; - - WSGL.LayoutClose; - - if I_START = I_TOTAL_ROWS then - htp.p(WSGL.MsgGetText(109,WSGLM.DSP109_RECORD, to_char(I_TOTAL_ROWS))||I_OF_TOTAL_TEXT); - else - htp.p(WSGL.MsgGetText(110,WSGLM.DSP110_RECORDS_N_M, - to_char(I_START), to_char(I_TOTAL_ROWS))|| - I_OF_TOTAL_TEXT); - end if; - htp.para; - else - htp.p(WSGL.MsgGetText(112,WSGLM.DSP112_NO_RECORDS)); - end if; - - if nvl(Z_ACTION, 'X') != 'DONTQUERY' then - dbms_sql.close_cursor(I_CURSOR); - end if; - - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow055$cont.querylist', cattributes => 'NAME="efnow055$cont$LForm"'); - SaveState; - WSGL.HiddenField('P_STATUS', P_STATUS); - WSGL.HiddenField('P_CONTRACT_NUMBER', P_CONTRACT_NUMBER); - WSGL.HiddenField('P_L_CUST_NAME', P_L_CUST_NAME); - WSGL.HiddenField('P_VALID_FROM', P_VALID_FROM); - WSGL.HiddenField('U_VALID_FROM', U_VALID_FROM); - WSGL.HiddenField('Z_START', to_char(I_START)); - htp.p (''); - - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', htf.escape_sc(RL_FIRST_BUT_CAPTION), WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_FIRST_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', htf.escape_sc(RL_PREV_BUT_CAPTION), WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_PREV_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', htf.escape_sc(RL_NEXT_BUT_CAPTION), WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_NEXT_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', htf.escape_sc(RL_LAST_BUT_CAPTION), WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_LAST_BUT_ACTION || '\''"'); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(RL_REQUERY_BUT_CAPTION),p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_REQUERY_BUT_ACTION || '\''"'); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(RL_COUNT_BUT_CAPTION),p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_COUNT_BUT_ACTION || '\''"'); - htp.para; - - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(RL_QUERY_BUT_CAPTION),p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_QUERY_BUT_ACTION || '\''"'); - WSGL.HiddenField('Z_CHK', - to_char(WSGL.Checksum(''))); - htp.formClose; - - WSGL.ReturnLinks('0.1', WSGL.MENU_LONG, p_target=>'_top'); - WSGL.NavLinks; - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - RL_BODY_ATTRIBUTES, 'efnow055$cont.QueryList'); - WSGL.ClosePageBody; - end; --------------------------------------------------------------------------------- --- Name: efnow055$cont.RestoreState --- --- Description: Restore the data state and optional meta data for the --- 'CONT' module component (#View Contract Values#3980#). --- --- Parameters: --- --------------------------------------------------------------------------------- - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean ) return boolean - is - I_REMAINING_DEPTH integer; - I_CURSOR integer; - I_VOID integer; - I_ROWS_FETCHED integer; - I_FETCH_ERROR boolean := FALSE; - I_SUCCESS boolean := TRUE; - begin - if Z_RESTORE_OWN_ROW then - if ( CURR_VAL.CONT_ID is null - ) then - return FALSE; - end if; - end if; - - if ( Z_RESTORE_OWN_ROW ) then - - -- Use the CURR_VAL fields for UID to get the other values - - if not BuildSQL( Z_QUERY_BY_KEY => true ) then - return FALSE; - end if; - - OpenZoneSql(I_CURSOR); - I_VOID := dbms_sql.execute(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED = 0 then - I_FETCH_ERROR := TRUE; - else - - AssignZoneRow(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED != 0 then - I_FETCH_ERROR := TRUE; - end if; - - end if; - - dbms_sql.close_cursor(I_CURSOR); - if I_FETCH_ERROR then - return FALSE; - end if; - - end if; - return TRUE; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - '', 'efnow055$cont.RestoreState'); - raise; - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow055$cont.SaveState --- --- Description: Saves the data state for the 'CONT' module component (#View Contract Values#3980#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure SaveState - is - begin - - - null; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - '', 'efnow055$cont.SaveState'); - raise; - end; - - --------------------------------------------------------------------------------- --- Name: efnow055$cont.GetRef --- --- Description: Returns a handle to the component object --- --- Parameters: --- --------------------------------------------------------------------------------- - function GetRef return WSGOC.COMPONENT_REF - is - begin - return ref_Component; - end; - --------------------------------------------------------------------------------- --- Name: efnow055$cont.LoadCache --- --- Description: Populate the object cache with --- 'CONT' module component (#View Contract Values#3980#). --- --------------------------------------------------------------------------------- - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF - , Z_BRANCH in WSGOC.BRANCH_REF - ) - is - I_VF_FRAME varchar2(20) := null; - begin - - -- Is cache already loaded - if not WSGOC.Is_Null(ref_Component) then - return; - end if; - - InitialiseDomain('STATUS'); - - ref_Component := WSGOC.Component - ( pModule => efnow055$.GetRef - , pBranch => Z_BRANCH - , pContext_For=> Z_CONTEXT_FOR - , pName => 'CONT' - , pTitle => '#View Contract Values#3980#' - , pSystemImagePath=> '/images/' - ); - - r_UI_CUST := WSGOC.Item - ( pName => 'UI_CUST' - , pPrompt => '#Customer#1047#' - , pIsContext=> true - ); - r_UI_CONTRACT := WSGOC.Item - ( pName => 'UI_CONTRACT' - , pPrompt => '#Contract Name#2082#' - , pIsContext=> true - ); - r_UI_STATUS := WSGOC.Item - ( pName => 'UI_STATUS' - , pPrompt => '#Status#2114#' - , pIsContext=> true - ); - r_UI_CONT_FROM := WSGOC.Item - ( pName => 'UI_CONT_FROM' - , pPrompt => '#Valid From#2441#' - , pIsContext=> true - ); - r_UI_CONT_TO := WSGOC.Item - ( pName => 'UI_CONT_TO' - , pPrompt => '#Valid To#2442#' - , pIsContext=> true - ); - r_UI_VIEW_URL := WSGOC.Item - ( pName => 'UI_VIEW_URL' - , pPrompt => '#View#2062#' - , pIsContext=> true - ); - r_CONT_ID := WSGOC.Item - ( pName => 'CONT_ID' - , pPrompt => '#Cont Id#2443#' - ); - r_STATUS := WSGOC.Item - ( pName => 'STATUS' - , pPrompt => '#Status#2114#' - ); - r_CONTRACT_NUMBER := WSGOC.Item - ( pName => 'CONTRACT_NUMBER' - , pPrompt => '#Contract Number#2013#' - ); - r_L_CUST_NAME := WSGOC.Item - ( pName => 'L_CUST_NAME' - , pPrompt => '#Name#116#' - ); - r_VALID_UNTIL := WSGOC.Item - ( pName => 'VALID_UNTIL' - , pPrompt => '#Valid Until#2440#' - ); - r_VALID_FROM := WSGOC.Item - ( pName => 'VALID_FROM' - , pPrompt => '#Valid From#2441#' - ); - r_CUST_ID := WSGOC.Item - ( pName => 'CUST_ID' - , pPrompt => 'Cust Id' - ); - - WSGOC.Add_Items(ref_Component, r_UI_CUST); - WSGOC.Add_Items(ref_Component, r_UI_CONTRACT); - WSGOC.Add_Items(ref_Component, r_UI_STATUS); - WSGOC.Add_Items(ref_Component, r_UI_CONT_FROM); - WSGOC.Add_Items(ref_Component, r_UI_CONT_TO); - WSGOC.Add_Items(ref_Component, r_UI_VIEW_URL); - WSGOC.Add_Items(ref_Component, r_CONT_ID); - WSGOC.Add_Items(ref_Component, r_STATUS); - WSGOC.Add_Items(ref_Component, r_CONTRACT_NUMBER); - WSGOC.Add_Items(ref_Component, r_L_CUST_NAME); - WSGOC.Add_Items(ref_Component, r_VALID_UNTIL); - WSGOC.Add_Items(ref_Component, r_VALID_FROM); - WSGOC.Add_Items(ref_Component, r_CUST_ID); - - - if ( Z_OWN_ROW_VALUES ) then - - -- Set the display value for each item - -- ( As would be displayed on the Record List ) - WSGOC.Set_Value( r_UI_CUST, replace(WSGL.EscapeItem(NBT_VAL.UI_CUST), ' -', '
-') ); - WSGOC.Set_Value( r_UI_CONTRACT, replace(WSGL.EscapeItem(NBT_VAL.UI_CONTRACT), ' -', '
-') ); - WSGOC.Set_Value( r_UI_STATUS, replace(WSGL.EscapeItem(NBT_VAL.UI_STATUS), ' -', '
-') ); - WSGOC.Set_Value( r_UI_CONT_FROM, EFNOW055$CONT.FORMATDATE(WSGL.EscapeItem(ltrim(to_char(NBT_VAL.UI_CONT_FROM, 'DD-MON-RRRR')))) ); - WSGOC.Set_Value( r_UI_CONT_TO, EFNOW055$CONT.FORMATDATE(WSGL.EscapeItem(ltrim(to_char(NBT_VAL.UI_CONT_TO, 'DD-MON-RRRR')))) ); - WSGOC.Set_Value( r_UI_VIEW_URL, replace(wsgl.anchor2(WSGL.EscapeItem(NBT_VAL.UI_VIEW_URL), '#View#2062#'), ' -', '
-') ); - WSGOC.Set_Value( r_CONT_ID, WSGL.EscapeItem(CURR_VAL.CONT_ID) ); - WSGOC.Set_Value( r_STATUS, replace(WSGL.EscapeItem(WSGL.DomainMeaning(D_STATUS, CURR_VAL.STATUS)), ' -', '
-') ); - WSGOC.Set_Value( r_CONTRACT_NUMBER, replace(WSGL.EscapeItem(CURR_VAL.CONTRACT_NUMBER), ' -', '
-') ); - WSGOC.Set_Value( r_L_CUST_NAME, replace(WSGL.EscapeItem(NBT_VAL.L_CUST_NAME), ' -', '
-') ); - WSGOC.Set_Value( r_VALID_UNTIL, WSGL.EscapeItem(ltrim(to_char(CURR_VAL.VALID_UNTIL, 'DD/MM/YYYY'))) ); - WSGOC.Set_Value( r_VALID_FROM, WSGL.EscapeItem(ltrim(to_char(CURR_VAL.VALID_FROM, 'DD/MM/YYYY'))) ); - WSGOC.Set_Value( r_CUST_ID, WSGL.EscapeItem(CURR_VAL.CUST_ID) ); - - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - '', 'efnow055$cont.LoadCache'); - raise; - end; - - - --------------------------------------------------------------------------------- --- Name: efnow055$cont.PreQuery --- --- Description: Provides place holder for code to be run prior to a query --- for the 'CONT' module component (#View Contract Values#3980#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PreQuery( - P_STATUS in varchar2, - P_CONTRACT_NUMBER in varchar2, - P_L_CUST_NAME in varchar2, - P_VALID_FROM in varchar2, - U_VALID_FROM in varchar2) return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - DEF_BODY_ATTRIBUTES, 'efnow055$cont.PreQuery'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow055$cont.PostQuery --- --- Description: Provides place holder for code to be run after a query --- for the 'CONT' module component (#View Contract Values#3980#). --- --- Parameters: Z_POST_DML Flag indicating if Query after insert or update --- Z_UPDATE_ROW Can be set to mark that row as modified when a --- multirow form is displayed, causing it to be --- updated when the form is submitted. --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - DEF_BODY_ATTRIBUTES, 'efnow055$cont.PostQuery'); - return FALSE; - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$cont.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$cont.spc deleted file mode 100644 index d744f4f..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$cont.spc +++ /dev/null @@ -1,109 +0,0 @@ -create or replace package efnow055$cont is - - type NBT_REC is record - ( UI_CUST varchar2(24000) - , UI_CONTRACT varchar2(24000) - , UI_STATUS varchar2(24000) - , UI_CONT_FROM date - , UI_CONT_TO date - , UI_VIEW_URL varchar2(24000) - , L_CUST_NAME CUSTOMERS.NAME%type - ); - - NBT_VAL NBT_REC; - CURR_VAL CONTRACTS%rowtype; - - - procedure Startup( - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null, - Z_FORM in varchar2 default null); - procedure ActionQuery( - P_STATUS in varchar2 default null, - P_CONTRACT_NUMBER in varchar2 default null, - P_L_CUST_NAME in varchar2 default null, - P_VALID_FROM in varchar2 default null, - U_VALID_FROM in varchar2 default null, - Z_DIRECT_CALL in boolean default false, - Z_ACTION in varchar2 default null, - Z_CHK in varchar2 default null ); - - procedure FormQuery( - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null); - - procedure QueryList( - P_STATUS in varchar2 default null, - P_CONTRACT_NUMBER in varchar2 default null, - P_L_CUST_NAME in varchar2 default null, - P_VALID_FROM in varchar2 default null, - U_VALID_FROM in varchar2 default null, - Z_START in varchar2 default null, - Z_ACTION in varchar2 default null, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null ); - function QueryHits( - P_STATUS in varchar2 default null, - P_CONTRACT_NUMBER in varchar2 default null, - P_L_CUST_NAME in varchar2 default null, - P_VALID_FROM in varchar2 default null, - U_VALID_FROM in varchar2 default null) return number; - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean default false - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF default null - , Z_BRANCH in WSGOC.BRANCH_REF default null - ); - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean default true - ) return boolean; - procedure SaveState; - function GetRef return WSGOC.COMPONENT_REF; - - - procedure InitialiseDomain(P_ALIAS in varchar2); - - procedure calendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ); - - procedure format_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ); - - D_STATUS WSGL.typDVRecord;FUNCTION FormatDate ( p_date IN VARCHAR2 ) RETURN VARCHAR2; - -procedure ncalendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ); - -procedure nformat_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ); - - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$js$cont.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$js$cont.bdy deleted file mode 100644 index 63936a8..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$js$cont.bdy +++ /dev/null @@ -1,122 +0,0 @@ -create or replace package body efnow055$js$cont is - - --------------------------------------------------------------------------------- --- Name: efnow055$js$cont.CreateQueryJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateQueryJavaScript ( - LOV_FRAME in varchar2, - QF_BODY_ATTRIBUTES in varchar2) - is - begin - if not caco_security.security_check('efnow055$cont') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "Query";'); - - - - WSGJSL.Output_Invoke_CAL_JS ('efnow055$cont', 'scrollbars=no,resizable=no,width=320,height=350'); - - - htp.p(WSGJSL.OpenEvent('L_CUST_NAME','LOV')); htp.p(' - var depStr = ""; - var modeStr = "" - index = -1; - modeStr = "Q"; -'); - - if LOV_FRAME is not null then - htp.p(' var lovFra = "'||LOV_FRAME||'";'); - htp.p(' var winpar = "";'); - else - htp.p(' var lovFra = "winLOV";'); - htp.p(' var winpar = "scrollbars=yes,resizable=yes,width=400,height=400";'); - end if; - htp.p(' var filterprompt = "";'); - htp.p(' - - var lovTitle = "'||replace('','"','\"')||'"; - window.current_lov_title = lovTitle; - - JSLOpenLOV( ctl, index, modeStr, "efnow055$cont.l_cust_name_lov", depStr, lovFra, winpar, filterprompt ); - -'); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('CONT','OnLoad')); - htp.p(' - if ( FormType != "PostDelete") - { - form_num=0; - do - { - elem_num=0; - len = document.forms[form_num].elements.length; - if (len > 0) - { - while (elem_num < len && - document.forms[form_num].elements[elem_num].type != "text" && - document.forms[form_num].elements[elem_num].type != "textarea") - { - elem_num++; - } - if (elem_num < len) - { - document.forms[form_num].elements[elem_num].focus(); - break; - } - } - form_num++; - } while ( form_num < document.forms.length ); - } -'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnQFQ','OnClick')); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - QF_BODY_ATTRIBUTES, 'efnow055$js$cont.CreateQueryJavaScript'); - end; - --------------------------------------------------------------------------------- --- Name: efnow055$js$cont.CreateListJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateListJavaScript ( - RL_BODY_ATTRIBUTES in varchar2) - is - begin - if not caco_security.security_check('efnow055$cont') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "List";'); - - - htp.p( 'var P_4 = new Array();' ); - - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Contract Values#3980#', - RL_BODY_ATTRIBUTES, 'efnow055$js$cont.CreateListJavaScript'); - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$js$cont.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$js$cont.spc deleted file mode 100644 index cf36069..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow055$js$cont.spc +++ /dev/null @@ -1,11 +0,0 @@ -create or replace package efnow055$js$cont is - - procedure CreateQueryJavaScript( - LOV_FRAME in varchar2, - QF_BODY_ATTRIBUTES in varchar2); - - procedure CreateListJavaScript( - RL_BODY_ATTRIBUTES in varchar2); - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$.bdy deleted file mode 100644 index eadc11b..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$.bdy +++ /dev/null @@ -1,232 +0,0 @@ -create or replace package body efnow070$ is - private_ModuleRef WSGOC.MODULE_REF; - - - procedure CreateStartupJavaScript; --------------------------------------------------------------------------------- --- Name: efnow070$.Startup --- --- Description: This procedure is the entry point for the 'efnow070$' --- module. --- --- Parameters: None --- --------------------------------------------------------------------------------- - procedure Startup - is - begin - if not caco_security.security_check('efnow070$') then - return; - end if; - - WSGL.RegisterURL('efnow070$.startup'); - if WSGL.NotLowerCase then - return; - end if; - WSGL.StoreURLLink(0, WSGL.MsgGetText(21,WSGLM.CAP021_TOP_LEVEL)); - efnow070$gttd.startup( - Z_DIRECT_CALL => TRUE - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow070$.Startup'); - end; --------------------------------------------------------------------------------- --- Name: efnow070$.firstpage --- --- Description: This procedure creates the first page for the 'efnow070$' --- module. --- --- Parameters: Z_DIRECT_CALL - --- --------------------------------------------------------------------------------- - procedure FirstPage(Z_DIRECT_CALL in boolean - -) is - begin - if not caco_security.security_check('efnow070$') then - return; - end if; - - WSGL.OpenPageHead(''); - WSGL.METATag; - WSGL.ClosePageHead; - WSGL.OpenPageBody(FALSE, p_attributes=>''); - - CreateStartupJavaScript; - - WSGL.DefaultPageCaption('', 1); - htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="SP$AIForm"'); - WSGL.NavLinks(WSGL.MENU_LONG, WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT), 0, 'efnow070$.showabout', '_top', p_output_line=>FALSE); - WSGL.NavLinks; - htp.formClose; - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow070$.FirstPage'); - end; - - --------------------------------------------------------------------------------- --- Name: efnow070$.showabout --- --- Description: This procedure is used to display an 'About' page for the --- 'efnow070$' module. --- --------------------------------------------------------------------------------- - procedure showabout is - l_usr varchar2(255) := null; - begin - if not caco_security.security_check('efnow070$') then - return; - end if; - l_usr := caco_security.get_user; - - WSGL.RegisterURL('efnow070$.showabout'); - if WSGL.NotLowerCase then - return; - end if; - - WSGL.OpenPageHead(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' '); - WSGL.METATag; - TemplateHeader(TRUE,2); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>''); - - htp.p(caco_system.menu); - - WSGL.DefaultPageCaption(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' '); - - htp.para; - htp.p(' -$Revision: 1.2 $'); - htp.para; - - htp.para; - - htp.p(WSGL.MsgGetText(108,WSGLM.DSP108_GENERATED_BY, 'PL/SQL Web Generator', '10.1.2.6.18')); - htp.para; - - WSGL.Info(FALSE, 'Nominations', 'EFNOW070', l_usr); - - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow070$.ShowAbout'); - end; --------------------------------------------------------------------------------- --- Name: efnow070$.TemplateHeader --- --- Description: --- --------------------------------------------------------------------------------- - procedure TemplateHeader(Z_DIRECT_CALL in boolean, - Z_TEMPLATE_ID in number) is - begin - if not caco_security.security_check('efnow070$') then - return; - end if; - - if Z_TEMPLATE_ID = 1 then - -- Template defined in \\loordv01\framework\css2\css_content.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 2 then - -- Template defined in \\loordv01\framework\css2\css_about.htm - htp.p(' '); - elsif Z_TEMPLATE_ID = 3 then - -- Template defined in \\loordv01\framework\css2\css_query.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 4 then - -- Template defined in \\loordv01\framework\css2\css_view.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 5 then - -- Template defined in \\loordv01\framework\css2\css_insert.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 6 then - -- Template defined in \\loordv01\framework\css2\css_recordlist.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 7 then - -- Template defined in \\loordv01\framework\css2\css_lov.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 8 then - -- Template defined in \\loordv01\framework\css2\css_text.htm - htp.p(' - -'); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow070$.TemplateHeader'); - end; --------------------------------------------------------------------------------- --- Name: efnow070$.GetRef --- --- Description: Returns a handle to the display data for the --- 'efnow070$' module. --- If the display object does not exist then it creates it first. --- --- Parameters: --- --------------------------------------------------------------------------------- - - function GetRef return WSGOC.MODULE_REF - is - begin - if ( WSGOC.Is_Null(private_ModuleRef)) then - private_ModuleRef := WSGOC.Module - ( pShortName => 'efnow070$' - , pFirstTitle => '' - ); - end if; - return private_ModuleRef; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow070$.GetRef'); - raise; - end; - - - --------------------------------------------------------------------------------- --- Name: efnow070$.CreateStartupJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateStartupJavaScript is - begin - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "Startup";'); - htp.p(WSGJSL.CloseScript); - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$.spc deleted file mode 100644 index 746ae4d..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$.spc +++ /dev/null @@ -1,14 +0,0 @@ -create or replace package efnow070$ is - - procedure Startup -; - procedure FirstPage(Z_DIRECT_CALL in boolean - -); - procedure ShowAbout; - procedure TemplateHeader(Z_DIRECT_CALL in boolean, - Z_TEMPLATE_ID in number); - function GetRef return WSGOC.MODULE_REF; - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$gttd.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$gttd.bdy deleted file mode 100644 index cf1dce0..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$gttd.bdy +++ /dev/null @@ -1,1087 +0,0 @@ -create or replace package body efnow070$gttd is - - function BuildSQL( - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean; - procedure OpenZoneSql ( I_CURSOR OUT integer ); - procedure AssignZoneRow( I_CURSOR IN integer ); - - function PreQuery return boolean; - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean; - - QF_BODY_ATTRIBUTES constant varchar2(500) := ''; - VF_BODY_ATTRIBUTES constant varchar2(500) := ''; - IF_BODY_ATTRIBUTES constant varchar2(500) := ''; - RL_BODY_ATTRIBUTES constant varchar2(500) := ''; - RL_NEXT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(11,WSGLM.CAP011_RL_NEXT); - RL_PREV_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(12,WSGLM.CAP012_RL_PREVIOUS); - RL_FIRST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(13,WSGLM.CAP013_RL_FIRST); - RL_LAST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(14,WSGLM.CAP014_RL_LAST); - RL_COUNT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(15,WSGLM.CAP015_RL_COUNT); - RL_REQUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(16,WSGLM.CAP016_RL_REQUERY); - RL_NEXT_BUT_ACTION constant varchar2(10) := 'NEXT'; - RL_PREV_BUT_ACTION constant varchar2(10) := 'PREV'; - RL_FIRST_BUT_ACTION constant varchar2(10) := 'FIRST'; - RL_LAST_BUT_ACTION constant varchar2(10) := 'LAST'; - RL_COUNT_BUT_ACTION constant varchar2(10) := 'COUNT'; - RL_REQUERY_BUT_ACTION constant varchar2(10) := 'REQUERY'; - RL_RECORD_SET_SIZE constant number(4) := 20; - RL_TOTAL_COUNT_REQD constant boolean := FALSE; - RL_NUMBER_OF_COLUMNS constant number(4) := 1; - LOV_BODY_ATTRIBUTES constant varchar2(500) := ''; - LOV_FIND_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(17,WSGLM.CAP017_LOV_FIND); - LOV_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP018_LOV_CLOSE); - LOV_FIND_BUT_ACTION constant varchar2(10) := 'FIND'; - LOV_CLOSE_BUT_ACTION constant varchar2(10) := 'CLOSE'; - LOV_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - LOV_FRAME constant varchar2(20) := null; - CAL_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - CAL_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP025_CAL_CLOSE); - CAL_BODY_ATTRIBUTES constant varchar2(500) := ''; - TF_BODY_ATTRIBUTES constant varchar2(500) := ''; - DEF_BODY_ATTRIBUTES constant varchar2(500) := ''; - - type FORM_REC is record - (UI_VALID_FROM varchar2(24000) - ,VALID_FROM varchar2(12) - ,UI_VALID_UNTIL varchar2(24000) - ,VALID_UNTIL varchar2(12) - ,CONTRACT_NUMBER varchar2(180) - ,STATUS varchar2(6) - ,UI_HYPERLINK varchar2(24000) - ,L_CUST_CODE varchar2(120) - ,CONT_ID varchar2(40) - ,CUST_ID varchar2(40) - ); - FORM_VAL FORM_REC; - - PROCESSING_VIEW boolean := false; - ZONE_SQL varchar2(32767) := null; - ZONE_CHECKSUM varchar2(10); - - REF_COMPONENT WSGOC.COMPONENT_REF; - R_UI_VALID_FROM WSGOC.ITEM_REF; - R_VALID_FROM WSGOC.ITEM_REF; - R_UI_VALID_UNTIL WSGOC.ITEM_REF; - R_VALID_UNTIL WSGOC.ITEM_REF; - R_CONTRACT_NUMBER WSGOC.ITEM_REF; - R_STATUS WSGOC.ITEM_REF; - R_UI_HYPERLINK WSGOC.ITEM_REF; - R_L_CUST_CODE WSGOC.ITEM_REF; - R_CONT_ID WSGOC.ITEM_REF; - R_CUST_ID WSGOC.ITEM_REF; - - - -FUNCTION FormatDate ( p_date IN VARCHAR2 ) RETURN VARCHAR2 IS - --- formatdate --- --- - - - - -- - v_return VARCHAR2(100); - v_mask VARCHAR2(34) := cout_system_configuration.get_configuration_item('G_DATE_FORMAT'); - -- -BEGIN - -- - v_return := TO_CHAR(TO_DATE(p_date, 'DD/MM/YYYY HH24:MI'),v_mask); - -- - RETURN v_return; - -- -EXCEPTION - WHEN OTHERS THEN - RETURN p_date; -END FormatDate; -PROCEDURE get_template ( p_temp_id IN VARCHAR2 ) IS - --- get_template --- --- - - - -BEGIN - amfr_excel.get_template( p_temp_id - , 'NOMINATION' - ); -END; --------------------------------------------------------------------------------- --- Name: efnow070$gttd.InitialiseDomain --- --- Description: Initialises the Domain Record for the given Column Usage --- --- Parameters: P_ALIAS The alias of the column usage --- --------------------------------------------------------------------------------- - procedure InitialiseDomain(P_ALIAS in varchar2) is - begin - if not caco_security.security_check('efnow070$gttd') then - return; - end if; - - if P_ALIAS = 'STATUS' and not D_STATUS.Initialised then - D_STATUS.ColAlias := 'STATUS'; - D_STATUS.ControlType := WSGL.DV_TEXT; - D_STATUS.DispWidth := 6; - D_STATUS.DispHeight := 1; - D_STATUS.MaxWidth := 1; - D_STATUS.UseMeanings := False; - D_STATUS.ColOptional := True; - D_STATUS.Vals(1) := 'O'; - D_STATUS.Meanings(1) := 'O'; - D_STATUS.Abbreviations(1) := 'Open'; - D_STATUS.Vals(2) := 'C'; - D_STATUS.Meanings(2) := 'C'; - D_STATUS.Abbreviations(2) := 'Closed'; - D_STATUS.NumOfVV := 2; - D_STATUS.Initialised := True; - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Download Excel Template#2109#', - DEF_BODY_ATTRIBUTES, 'efnow070$gttd.InitialseDomain'); - end; - --------------------------------------------------------------------------------- --- Name: efnow070$gttd.calendar --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - - procedure calendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ) is - - Field_Caption Varchar2 (2000); - - begin - - if Z_FIELD_PROMPT is null then - Field_Caption := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - else - Field_Caption := initcap (replace (Z_FIELD_PROMPT, '_', ' ')); - end if; - - - WSGL.RegisterURL('efnow070$gttd.calendar'); - WSGL.AddURLParam('Z_FIELD_NAME', Z_FIELD_NAME); - WSGL.AddURLParam('Z_CALLER_URL', Z_CALLER_URL); - - if WSGL.NotLowerCase then - return; - end if; - - WSGL.Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow070$gttd', - CAL_CLOSE_BUT_CAPTION, - True, - 'DD-MON-RRRR' - ); - - efnow070$.TemplateHeader(TRUE,7); - - WSGL.Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow070$gttd', - CAL_CLOSE_BUT_CAPTION, - False, - 'DD-MON-RRRR' - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - CAL_BODY_ATTRIBUTES, 'efnow070$gttd.calendar'); - end calendar; - --------------------------------------------------------------------------------- --- Name: efnow070$gttd.format_cal_date --- --- Description: Converts the chosen date into the correct format using the format mask assigned --- to the field that the calendar was popped up for --- --------------------------------------------------------------------------------- - -procedure format_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ) is - - Field_Caption Varchar2 (2000) := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - l_day varchar2(15) := day; - -begin - - if l_day = '0' then - l_day := '01'; - end if; - - WSGL.Output_Format_Cal_JS - ( - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - l_day || '-' || month || '-' || year, - Z_FIELD_FORMAT - ); - -end format_cal_date; - --------------------------------------------------------------------------------- --- Name: efnow070$gttd.Startup --- --- Description: Entry point for the 'GTTD' module --- component (#Download Excel Template#2109#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure Startup( - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2, - Z_FORM in varchar2) is - l_Foundform boolean := FALSE; - l_fs_text varchar2(32767) := '' ; - begin - if not caco_security.security_check('efnow070$gttd') then - return; - end if; - - WSGL.RegisterURL('efnow070$gttd.startup'); - WSGL.AddURLParam('Z_CHK', Z_CHK); - - - WSGL.StoreURLLink(1, '#Download Excel Template#2109#'); - - -- Either no frames are being used or the query form is on a - -- separate page. - if Z_FORM is not null then - null; - -- Work out which form is required, and check if that is possible - if Z_FORM = 'LIST' then - QueryList( - Z_DIRECT_CALL=>TRUE); - l_Foundform := TRUE; - end if; - end if; - if l_Foundform = FALSE then - QueryList( - Z_DIRECT_CALL=>TRUE); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Download Excel Template#2109#', - DEF_BODY_ATTRIBUTES, 'efnow070$gttd.Startup'); - end; - --------------------------------------------------------------------------------- --- Name: efnow070$gttd.QueryHits --- --- Description: Returns the number or rows which matches the given search --- criteria (if any). --- --- Parameters: --- --------------------------------------------------------------------------------- - function QueryHits return number is - I_QUERY varchar2(32767) := ''; - I_CURSOR integer; - I_VOID integer; - I_FROM_POS integer := 0; - I_COUNT number(10); - begin - if not caco_security.security_check('efnow070$gttd') then - return -1; - end if; - - if not BuildSQL then - return -1; - end if; - - if not PreQuery then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Download Excel Template#2109#', DEF_BODY_ATTRIBUTES); - return -1; - end if; - - I_FROM_POS := instr(upper(ZONE_SQL), ' FROM '); - - if I_FROM_POS = 0 then - return -1; - end if; - - I_QUERY := 'SELECT count(*)' || - substr(ZONE_SQL, I_FROM_POS); - - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, I_QUERY, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, I_COUNT); - I_VOID := dbms_sql.execute(I_CURSOR); - I_VOID := dbms_sql.fetch_rows(I_CURSOR); - dbms_sql.column_value(I_CURSOR, 1, I_COUNT); - dbms_sql.close_cursor(I_CURSOR); - - return I_COUNT; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Download Excel Template#2109#', - DEF_BODY_ATTRIBUTES, 'efnow070$gttd.QueryHits'); - return -1; - end; --------------------------------------------------------------------------------- --- Name: efnow070$gttd.BuildSQL --- --- Description: Builds the SQL for the 'GTTD' module component (#Download Excel Template#2109#). --- This incorporates all query criteria and Foreign key columns. --- --- Parameters: --- --------------------------------------------------------------------------------- - function BuildSQL( - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean is - - I_WHERE varchar2(32767); - row_idx integer; - begin - - - -- Build up the Where clause - if Z_QUERY_BY_KEY then - I_WHERE := 'WHERE CONT_ID = ' || to_char(CURR_VAL.CONT_ID) || ' '; - elsif Z_ROW_ID is not null then - I_WHERE := 'WHERE CG$ROW_ID = ''' || rowidtochar( Z_ROW_ID ) || ''''; - elsif Z_BIND_ROW_ID then - I_WHERE := 'WHERE CG$ROW_ID = :b_row_id'; - else - - null; - end if; - - ZONE_SQL := 'SELECT UI_VALID_FROM, - VALID_FROM, - UI_VALID_UNTIL, - VALID_UNTIL, - CONTRACT_NUMBER, - STATUS, - UI_HYPERLINK, - L_CUST_CODE, - CONT_ID, - CUST_ID - FROM ( SELECT efnow070$gttd.formatdate(TO_CHAR(CONT.VALID_FROM,''DD/MM/YYYY HH24:MI'')) UI_VALID_FROM, - CONT.VALID_FROM VALID_FROM, - efnow070$gttd.formatdate(TO_CHAR(CONT.VALID_UNTIL,''DD/MM/YYYY HH24:MI'')) UI_VALID_UNTIL, - CONT.VALID_UNTIL VALID_UNTIL, - CONT.CONTRACT_NUMBER CONTRACT_NUMBER, - CONT.STATUS STATUS, - ''efnow070$gttd.get_template?p_temp_id=''||CONT.CONT_ID UI_HYPERLINK, - L_CUST.CODE L_CUST_CODE, - CONT.CONT_ID CONT_ID, - CONT.CUST_ID CUST_ID -FROM CONTRACTS CONT, - CUSTOMERS L_CUST -WHERE ( /* CG$MDTU_QWC_START GTTD.CONT */ - (CONT.VALID_UNTIL >= TRUNC(SYSDATE) AND CONT.STATUS = ''O'') - /* CG$MDTU_QWC_END GTTD.CONT */ - ) AND - ( /* CG$MDTU_QWC_START GTTD.L_CUST */ - (CONT.CUST_ID = caco_utilities.get_cust_id) - /* CG$MDTU_QWC_END GTTD.L_CUST */ - ) AND - CONT.CUST_ID = L_CUST.CUST_ID - ) '; - ZONE_SQL := ZONE_SQL || I_WHERE; - ZONE_SQL := ZONE_SQL || ' ORDER BY VALID_FROM Desc '; - return true; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Download Excel Template#2109#', - DEF_BODY_ATTRIBUTES, 'efnow070$gttd.BuildSQL'); - return false; - end; - --------------------------------------------------------------------------------- --- Name: efnow070$gttd.OpenZoneSql --- --- Description: Open's the cursor for the zone SQL of --- 'GTTD' module component (#Download Excel Template#2109#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure OpenZoneSql - ( I_CURSOR OUT integer - ) - is - begin - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, ZONE_SQL, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, NBT_VAL.UI_VALID_FROM, 4000); - dbms_sql.define_column(I_CURSOR, 2, CURR_VAL.VALID_FROM); - dbms_sql.define_column(I_CURSOR, 3, NBT_VAL.UI_VALID_UNTIL, 4000); - dbms_sql.define_column(I_CURSOR, 4, CURR_VAL.VALID_UNTIL); - dbms_sql.define_column(I_CURSOR, 5, CURR_VAL.CONTRACT_NUMBER, 30); - dbms_sql.define_column(I_CURSOR, 6, CURR_VAL.STATUS, 1); - dbms_sql.define_column(I_CURSOR, 7, NBT_VAL.UI_HYPERLINK, 4000); - dbms_sql.define_column(I_CURSOR, 8, NBT_VAL.L_CUST_CODE, 20); - dbms_sql.define_column(I_CURSOR, 9, CURR_VAL.CONT_ID); - dbms_sql.define_column(I_CURSOR, 10, CURR_VAL.CUST_ID); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Download Excel Template#2109#', - '', 'efnow070$gttd.OpenZoneSql'); - raise; - end; - --------------------------------------------------------------------------------- --- Name: efnow070$gttd.AssignZoneRow --- --- Description: Assign's a row of data and calculates the check sum from the --- zone SQL of 'GTTD' module component (#Download Excel Template#2109#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure AssignZoneRow - ( I_CURSOR IN integer - ) - is - begin - dbms_sql.column_value(I_CURSOR, 1, NBT_VAL.UI_VALID_FROM); - dbms_sql.column_value(I_CURSOR, 2, CURR_VAL.VALID_FROM); - dbms_sql.column_value(I_CURSOR, 3, NBT_VAL.UI_VALID_UNTIL); - dbms_sql.column_value(I_CURSOR, 4, CURR_VAL.VALID_UNTIL); - dbms_sql.column_value(I_CURSOR, 5, CURR_VAL.CONTRACT_NUMBER); - dbms_sql.column_value(I_CURSOR, 6, CURR_VAL.STATUS); - dbms_sql.column_value(I_CURSOR, 7, NBT_VAL.UI_HYPERLINK); - dbms_sql.column_value(I_CURSOR, 8, NBT_VAL.L_CUST_CODE); - dbms_sql.column_value(I_CURSOR, 9, CURR_VAL.CONT_ID); - dbms_sql.column_value(I_CURSOR, 10, CURR_VAL.CUST_ID); - ZONE_CHECKSUM := to_char(WSGL.Checksum - ( '' - || CURR_VAL.CONT_ID - ) ); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Download Excel Template#2109#', - '', 'efnow070$gttd.AssignZoneRow'); - raise; - end; - - - - --------------------------------------------------------------------------------- --- Name: efnow070$gttd.QueryList --- --- Description: This procedure builds the Record list for the 'GTTD' --- module component (#Download Excel Template#2109#). --- --- The Record List displays context information for records which --- match the specified query criteria. --- Sets of records are displayed (20 records at a time) --- with Next/Previous buttons to get other record sets. --- --- Parameters: Z_START - First record to display --- Z_ACTION - Next or Previous set --- --------------------------------------------------------------------------------- - procedure QueryList( - Z_START in varchar2, - Z_ACTION in varchar2, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2 ) is - - I_VF_FRAME varchar2(20) := null; - I_WHERE varchar2(2000) := ''; - I_CURSOR integer; - I_VOID integer; - I_ROWS_FETCHED integer := 0; - I_TOTAL_ROWS integer := 0; - I_START number(38) := to_number(Z_START); - I_COUNT number(10) := 0; - I_OF_TOTAL_TEXT varchar2(200) := ''; - I_NEXT_BUT boolean; - I_PREV_BUT boolean; - I_COL_COUNT integer; - I_SUCCESS boolean := true; - l_row integer := 0; - l_id varchar2(35) := null; - -- Reset break group? - RSGTTD boolean := true; - I_LAST_BASE CURR_VAL%TYPE; - I_LAST_NBT NBT_REC; - - - - begin - - if not caco_security.security_check('efnow070$gttd') then - return; - end if; - - - WSGL.RegisterURL('efnow070$gttd.querylist'); - WSGL.AddURLParam('Z_START', Z_START); - WSGL.AddURLParam('Z_ACTION', Z_ACTION); - WSGL.AddURLParam('Z_CHK', Z_CHK); - if (not Z_DIRECT_CALL) then - - null; - - - end if; - -- Set up any master context values that may be required - I_SUCCESS := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - - - WSGL.OpenPageHead(''||' : '||'#Download Excel Template#2109#'); - WSGL.METATag; - efnow070$.TemplateHeader(TRUE,1); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>RL_BODY_ATTRIBUTES); - efnow070$js$gttd.CreateListJavaScript(RL_BODY_ATTRIBUTES); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => false - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - - - htp.p(caco_system.menu); - efnow070$.FirstPage(Z_DIRECT_CALL => TRUE - - ); - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - if (Z_ACTION = RL_LAST_BUT_ACTION) or (Z_ACTION = RL_LAST_BUT_CAPTION) or - (Z_ACTION = RL_COUNT_BUT_ACTION) or (Z_ACTION = RL_COUNT_BUT_CAPTION) or - (RL_TOTAL_COUNT_REQD) - then - - I_COUNT := QueryHits; - if I_COUNT = -1 then - WSGL.ClosePageBody; - return; - end if; - end if; - - if (Z_ACTION = RL_COUNT_BUT_ACTION) or (Z_ACTION = RL_COUNT_BUT_CAPTION) or - RL_TOTAL_COUNT_REQD then - I_OF_TOTAL_TEXT := ' '||WSGL.MsgGetText(111,WSGLM.DSP111_OF_TOTAL, to_char(I_COUNT)); - end if; - if Z_START IS NULL or (Z_ACTION = RL_FIRST_BUT_ACTION) or (Z_ACTION = RL_FIRST_BUT_CAPTION) then - I_START := 1; - elsif (Z_ACTION = RL_NEXT_BUT_ACTION) or (Z_ACTION = RL_NEXT_BUT_CAPTION) then - I_START := I_START + RL_RECORD_SET_SIZE; - elsif (Z_ACTION = RL_PREV_BUT_ACTION) or (Z_ACTION = RL_PREV_BUT_CAPTION) then - I_START := I_START - RL_RECORD_SET_SIZE; - elsif (Z_ACTION = RL_LAST_BUT_ACTION) or (Z_ACTION = RL_LAST_BUT_CAPTION) then - I_START := 1 + (floor((I_COUNT-1)/RL_RECORD_SET_SIZE)*RL_RECORD_SET_SIZE); - elsif Z_ACTION is null and I_START = 1 then - null; - elsif Z_ACTION IS NULL then - WSGL.DisplayMessage(WSGL.MESS_ERROR, WSGL.MsgGetText(215,WSGLM.MSG215_NO_MULTIPLE_SUBMITS), - ''||' : '||'#Download Excel Template#2109#', RL_BODY_ATTRIBUTES); - WSGL.ClosePageBody; - return; - end if; - - if I_START < 1 then - I_START := 1; - end if; - - I_PREV_BUT := TRUE; - I_NEXT_BUT := FALSE; - if I_START = 1 or Z_ACTION IS NULL then - I_PREV_BUT := FALSE; - end if; - - if nvl(Z_ACTION, 'X') != 'DONTQUERY' then - - if ZONE_SQL IS NULL then - if not BuildSQL then - WSGL.ClosePageBody; - return; - end if; - end if; - - if not PreQuery then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Download Excel Template#2109#', RL_BODY_ATTRIBUTES); - return; - end if; - - InitialiseDomain('STATUS'); - - - OpenZoneSql( I_CURSOR ); - I_VOID := dbms_sql.execute(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - else - I_ROWS_FETCHED := 0; - end if; - I_TOTAL_ROWS := I_ROWS_FETCHED; - - if I_ROWS_FETCHED != 0 then - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE, p_no_spacing=>true); - - WSGL.LayoutRowStart(p_attrs=>'class = cgrlheaderrow'); - for i in 1..RL_NUMBER_OF_COLUMNS loop - WSGL.LayoutHeader(30, 'LEFT', '#Valid From#2441#',''); - WSGL.LayoutHeader(30, 'LEFT', '#Valid Until#2440#',''); - WSGL.LayoutHeader(30, 'LEFT', '#Contract Number#2013#','CONTRACT_NUMBER'); - WSGL.LayoutHeader(30, 'LEFT', '#Download Template#2446#',''); - end loop; - WSGL.LayoutRowEnd; - - while I_ROWS_FETCHED <> 0 loop - - if I_TOTAL_ROWS >= I_START then - AssignZoneRow(I_CURSOR); - - if (NBT_VAL.UI_VALID_FROM != I_LAST_NBT.UI_VALID_FROM or (NBT_VAL.UI_VALID_FROM is null and I_LAST_NBT.UI_VALID_FROM is not null) or (NBT_VAL.UI_VALID_FROM is not null and I_LAST_NBT.UI_VALID_FROM is null) ) or - (CURR_VAL.VALID_FROM != I_LAST_BASE.VALID_FROM or (CURR_VAL.VALID_FROM is null and I_LAST_BASE.VALID_FROM is not null) or (CURR_VAL.VALID_FROM is not null and I_LAST_BASE.VALID_FROM is null) ) or - (NBT_VAL.UI_VALID_UNTIL != I_LAST_NBT.UI_VALID_UNTIL or (NBT_VAL.UI_VALID_UNTIL is null and I_LAST_NBT.UI_VALID_UNTIL is not null) or (NBT_VAL.UI_VALID_UNTIL is not null and I_LAST_NBT.UI_VALID_UNTIL is null) ) or - (CURR_VAL.VALID_UNTIL != I_LAST_BASE.VALID_UNTIL or (CURR_VAL.VALID_UNTIL is null and I_LAST_BASE.VALID_UNTIL is not null) or (CURR_VAL.VALID_UNTIL is not null and I_LAST_BASE.VALID_UNTIL is null) ) or - (CURR_VAL.CONTRACT_NUMBER != I_LAST_BASE.CONTRACT_NUMBER or (CURR_VAL.CONTRACT_NUMBER is null and I_LAST_BASE.CONTRACT_NUMBER is not null) or (CURR_VAL.CONTRACT_NUMBER is not null and I_LAST_BASE.CONTRACT_NUMBER is null) ) or - (CURR_VAL.STATUS != I_LAST_BASE.STATUS or (CURR_VAL.STATUS is null and I_LAST_BASE.STATUS is not null) or (CURR_VAL.STATUS is not null and I_LAST_BASE.STATUS is null) ) or - (NBT_VAL.UI_HYPERLINK != I_LAST_NBT.UI_HYPERLINK or (NBT_VAL.UI_HYPERLINK is null and I_LAST_NBT.UI_HYPERLINK is not null) or (NBT_VAL.UI_HYPERLINK is not null and I_LAST_NBT.UI_HYPERLINK is null) ) or - (NBT_VAL.L_CUST_CODE != I_LAST_NBT.L_CUST_CODE or (NBT_VAL.L_CUST_CODE is null and I_LAST_NBT.L_CUST_CODE is not null) or (NBT_VAL.L_CUST_CODE is not null and I_LAST_NBT.L_CUST_CODE is null) ) or - (CURR_VAL.CONT_ID != I_LAST_BASE.CONT_ID or (CURR_VAL.CONT_ID is null and I_LAST_BASE.CONT_ID is not null) or (CURR_VAL.CONT_ID is not null and I_LAST_BASE.CONT_ID is null) ) or - (CURR_VAL.CUST_ID != I_LAST_BASE.CUST_ID or (CURR_VAL.CUST_ID is null and I_LAST_BASE.CUST_ID is not null) or (CURR_VAL.CUST_ID is not null and I_LAST_BASE.CUST_ID is null) ) then - RSGTTD := true; - else - RSGTTD := false; - end if; - - - I_LAST_NBT.UI_VALID_FROM := NBT_VAL.UI_VALID_FROM; - I_LAST_BASE.VALID_FROM := CURR_VAL.VALID_FROM; - I_LAST_NBT.UI_VALID_UNTIL := NBT_VAL.UI_VALID_UNTIL; - I_LAST_BASE.VALID_UNTIL := CURR_VAL.VALID_UNTIL; - I_LAST_BASE.CONTRACT_NUMBER := CURR_VAL.CONTRACT_NUMBER; - I_LAST_BASE.STATUS := CURR_VAL.STATUS; - I_LAST_NBT.UI_HYPERLINK := NBT_VAL.UI_HYPERLINK; - I_LAST_NBT.L_CUST_CODE := NBT_VAL.L_CUST_CODE; - I_LAST_BASE.CONT_ID := CURR_VAL.CONT_ID; - I_LAST_BASE.CUST_ID := CURR_VAL.CUST_ID; - l_row := l_row + 1; - - - WSGL.LayoutRowStart('TOP', p_attrs=>'class = cgrldatarow'); - l_id := '' || l_row; - if RSGTTD and NBT_VAL.UI_VALID_FROM is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.UI_VALID_FROM), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSGTTD and NBT_VAL.UI_VALID_UNTIL is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.UI_VALID_UNTIL), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := 'CONTRACT_NUMBER' || l_row; - if RSGTTD and CURR_VAL.CONTRACT_NUMBER is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(CURR_VAL.CONTRACT_NUMBER), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSGTTD and NBT_VAL.UI_HYPERLINK is not null then - WSGL.LayoutData(p_text=>replace(wsgl.anchor2(WSGL.EscapeItem(NBT_VAL.UI_HYPERLINK), '#Download Template#2446#'), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - - WSGL.LayoutRowEnd; - - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - if I_TOTAL_ROWS = I_START + RL_RECORD_SET_SIZE - 1 then - if I_ROWS_FETCHED <> 0 then - I_NEXT_BUT := TRUE; - end if; - exit; - end if; - else - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - end if; - - I_TOTAL_ROWS := I_TOTAL_ROWS + I_ROWS_FETCHED; - - end loop; - - WSGL.LayoutClose; - - end if; - - if nvl(Z_ACTION, 'X') != 'DONTQUERY' then - dbms_sql.close_cursor(I_CURSOR); - end if; - - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow070$gttd.querylist', cattributes => 'NAME="efnow070$gttd$LForm"'); - SaveState; - WSGL.HiddenField('Z_START', to_char(I_START)); - htp.p (''); - - - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(RL_REQUERY_BUT_CAPTION),p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_REQUERY_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', htf.escape_sc(RL_PREV_BUT_CAPTION), WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_PREV_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', htf.escape_sc(RL_NEXT_BUT_CAPTION), WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_NEXT_BUT_ACTION || '\''"'); - WSGL.HiddenField('Z_CHK', - to_char(WSGL.Checksum(''))); - htp.formClose; - - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Download Excel Template#2109#', - RL_BODY_ATTRIBUTES, 'efnow070$gttd.QueryList'); - WSGL.ClosePageBody; - end; --------------------------------------------------------------------------------- --- Name: efnow070$gttd.RestoreState --- --- Description: Restore the data state and optional meta data for the --- 'GTTD' module component (#Download Excel Template#2109#). --- --- Parameters: --- --------------------------------------------------------------------------------- - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean ) return boolean - is - I_REMAINING_DEPTH integer; - I_CURSOR integer; - I_VOID integer; - I_ROWS_FETCHED integer; - I_FETCH_ERROR boolean := FALSE; - I_SUCCESS boolean := TRUE; - begin - if Z_RESTORE_OWN_ROW then - if ( CURR_VAL.CONT_ID is null - ) then - return FALSE; - end if; - end if; - - if ( Z_RESTORE_OWN_ROW ) then - - -- Use the CURR_VAL fields for UID to get the other values - - if not BuildSQL( Z_QUERY_BY_KEY => true ) then - return FALSE; - end if; - - OpenZoneSql(I_CURSOR); - I_VOID := dbms_sql.execute(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED = 0 then - I_FETCH_ERROR := TRUE; - else - - AssignZoneRow(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED != 0 then - I_FETCH_ERROR := TRUE; - end if; - - end if; - - dbms_sql.close_cursor(I_CURSOR); - if I_FETCH_ERROR then - return FALSE; - end if; - - end if; - return TRUE; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Download Excel Template#2109#', - '', 'efnow070$gttd.RestoreState'); - raise; - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow070$gttd.SaveState --- --- Description: Saves the data state for the 'GTTD' module component (#Download Excel Template#2109#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure SaveState - is - begin - - - null; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Download Excel Template#2109#', - '', 'efnow070$gttd.SaveState'); - raise; - end; - - --------------------------------------------------------------------------------- --- Name: efnow070$gttd.GetRef --- --- Description: Returns a handle to the component object --- --- Parameters: --- --------------------------------------------------------------------------------- - function GetRef return WSGOC.COMPONENT_REF - is - begin - return ref_Component; - end; - --------------------------------------------------------------------------------- --- Name: efnow070$gttd.LoadCache --- --- Description: Populate the object cache with --- 'GTTD' module component (#Download Excel Template#2109#). --- --------------------------------------------------------------------------------- - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF - , Z_BRANCH in WSGOC.BRANCH_REF - ) - is - I_VF_FRAME varchar2(20) := null; - begin - - -- Is cache already loaded - if not WSGOC.Is_Null(ref_Component) then - return; - end if; - - InitialiseDomain('STATUS'); - - ref_Component := WSGOC.Component - ( pModule => efnow070$.GetRef - , pBranch => Z_BRANCH - , pContext_For=> Z_CONTEXT_FOR - , pName => 'GTTD' - , pTitle => '#Download Excel Template#2109#' - , pSystemImagePath=> '/images/' - ); - - r_UI_VALID_FROM := WSGOC.Item - ( pName => 'UI_VALID_FROM' - , pPrompt => '#Valid From#2441#' - , pIsContext=> true - ); - r_VALID_FROM := WSGOC.Item - ( pName => 'VALID_FROM' - , pPrompt => '#Valid From#2441#' - ); - r_UI_VALID_UNTIL := WSGOC.Item - ( pName => 'UI_VALID_UNTIL' - , pPrompt => '#Valid Until#2440#' - , pIsContext=> true - ); - r_VALID_UNTIL := WSGOC.Item - ( pName => 'VALID_UNTIL' - , pPrompt => '#Valid Until#2440#' - ); - r_CONTRACT_NUMBER := WSGOC.Item - ( pName => 'CONTRACT_NUMBER' - , pPrompt => '#Contract Number#2013#' - , pIsContext=> true - ); - r_STATUS := WSGOC.Item - ( pName => 'STATUS' - , pPrompt => '#Status#2114#' - ); - r_UI_HYPERLINK := WSGOC.Item - ( pName => 'UI_HYPERLINK' - , pPrompt => '#Download Template#2446#' - , pIsContext=> true - ); - r_L_CUST_CODE := WSGOC.Item - ( pName => 'L_CUST_CODE' - , pPrompt => '#Code#19#' - ); - r_CONT_ID := WSGOC.Item - ( pName => 'CONT_ID' - , pPrompt => '#Cont Id#2443#' - ); - r_CUST_ID := WSGOC.Item - ( pName => 'CUST_ID' - , pPrompt => 'Cust Id' - ); - - WSGOC.Add_Items(ref_Component, r_UI_VALID_FROM); - WSGOC.Add_Items(ref_Component, r_VALID_FROM); - WSGOC.Add_Items(ref_Component, r_UI_VALID_UNTIL); - WSGOC.Add_Items(ref_Component, r_VALID_UNTIL); - WSGOC.Add_Items(ref_Component, r_CONTRACT_NUMBER); - WSGOC.Add_Items(ref_Component, r_STATUS); - WSGOC.Add_Items(ref_Component, r_UI_HYPERLINK); - WSGOC.Add_Items(ref_Component, r_L_CUST_CODE); - WSGOC.Add_Items(ref_Component, r_CONT_ID); - WSGOC.Add_Items(ref_Component, r_CUST_ID); - - - if ( Z_OWN_ROW_VALUES ) then - - -- Set the display value for each item - -- ( As would be displayed on the Record List ) - WSGOC.Set_Value( r_UI_VALID_FROM, replace(WSGL.EscapeItem(NBT_VAL.UI_VALID_FROM), ' -', '
-') ); - WSGOC.Set_Value( r_VALID_FROM, WSGL.EscapeItem(ltrim(to_char(CURR_VAL.VALID_FROM, 'DD-MON-RRRR'))) ); - WSGOC.Set_Value( r_UI_VALID_UNTIL, replace(WSGL.EscapeItem(NBT_VAL.UI_VALID_UNTIL), ' -', '
-') ); - WSGOC.Set_Value( r_VALID_UNTIL, WSGL.EscapeItem(ltrim(to_char(CURR_VAL.VALID_UNTIL, 'DD-MON-RRRR'))) ); - WSGOC.Set_Value( r_CONTRACT_NUMBER, replace(WSGL.EscapeItem(CURR_VAL.CONTRACT_NUMBER), ' -', '
-') ); - WSGOC.Set_Value( r_STATUS, replace(WSGL.EscapeItem(WSGL.DomainMeaning(D_STATUS, CURR_VAL.STATUS)), ' -', '
-') ); - WSGOC.Set_Value( r_UI_HYPERLINK, replace(wsgl.anchor2(WSGL.EscapeItem(NBT_VAL.UI_HYPERLINK), '#Download Template#2446#'), ' -', '
-') ); - WSGOC.Set_Value( r_L_CUST_CODE, replace(WSGL.EscapeItem(NBT_VAL.L_CUST_CODE), ' -', '
-') ); - WSGOC.Set_Value( r_CONT_ID, WSGL.EscapeItem(CURR_VAL.CONT_ID) ); - WSGOC.Set_Value( r_CUST_ID, WSGL.EscapeItem(CURR_VAL.CUST_ID) ); - - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Download Excel Template#2109#', - '', 'efnow070$gttd.LoadCache'); - raise; - end; - - - --------------------------------------------------------------------------------- --- Name: efnow070$gttd.PreQuery --- --- Description: Provides place holder for code to be run prior to a query --- for the 'GTTD' module component (#Download Excel Template#2109#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PreQuery return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Download Excel Template#2109#', - DEF_BODY_ATTRIBUTES, 'efnow070$gttd.PreQuery'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow070$gttd.PostQuery --- --- Description: Provides place holder for code to be run after a query --- for the 'GTTD' module component (#Download Excel Template#2109#). --- --- Parameters: Z_POST_DML Flag indicating if Query after insert or update --- Z_UPDATE_ROW Can be set to mark that row as modified when a --- multirow form is displayed, causing it to be --- updated when the form is submitted. --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Download Excel Template#2109#', - DEF_BODY_ATTRIBUTES, 'efnow070$gttd.PostQuery'); - return FALSE; - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$gttd.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$gttd.spc deleted file mode 100644 index 0d185f1..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$gttd.spc +++ /dev/null @@ -1,66 +0,0 @@ -create or replace package efnow070$gttd is - - type NBT_REC is record - ( UI_VALID_FROM varchar2(24000) - , UI_VALID_UNTIL varchar2(24000) - , UI_HYPERLINK varchar2(24000) - , L_CUST_CODE CUSTOMERS.CODE%type - ); - - NBT_VAL NBT_REC; - CURR_VAL CONTRACTS%rowtype; - - - procedure Startup( - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null, - Z_FORM in varchar2 default null); - procedure QueryList( - Z_START in varchar2 default null, - Z_ACTION in varchar2 default null, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null ); - function QueryHits return number; - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean default false - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF default null - , Z_BRANCH in WSGOC.BRANCH_REF default null - ); - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean default true - ) return boolean; - procedure SaveState; - function GetRef return WSGOC.COMPONENT_REF; - - - procedure InitialiseDomain(P_ALIAS in varchar2); - - procedure calendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ); - - procedure format_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ); - - D_STATUS WSGL.typDVRecord;FUNCTION FormatDate ( p_date IN VARCHAR2 ) RETURN VARCHAR2; - -PROCEDURE get_template ( p_temp_id IN VARCHAR2 ); - - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$js$gttd.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$js$gttd.bdy deleted file mode 100644 index 8b1262f..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$js$gttd.bdy +++ /dev/null @@ -1,33 +0,0 @@ -create or replace package body efnow070$js$gttd is - - --------------------------------------------------------------------------------- --- Name: efnow070$js$gttd.CreateListJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateListJavaScript ( - RL_BODY_ATTRIBUTES in varchar2) - is - begin - if not caco_security.security_check('efnow070$gttd') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "List";'); - - - htp.p( 'var P_8 = new Array();' ); - - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Download Excel Template#2109#', - RL_BODY_ATTRIBUTES, 'efnow070$js$gttd.CreateListJavaScript'); - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$js$gttd.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$js$gttd.spc deleted file mode 100644 index 9e010e3..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow070$js$gttd.spc +++ /dev/null @@ -1,7 +0,0 @@ -create or replace package efnow070$js$gttd is - - procedure CreateListJavaScript( - RL_BODY_ATTRIBUTES in varchar2); - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow092$.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow092$.bdy deleted file mode 100644 index 26ec663..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow092$.bdy +++ /dev/null @@ -1,6821 +0,0 @@ -CREATE OR REPLACE PACKAGE BODY efnow092$ IS - -PROCEDURE calendar( z_field_name IN VARCHAR2 - , z_caller_url IN VARCHAR2 - , z_field_value IN VARCHAR2 DEFAULT NULL - , z_field_format IN VARCHAR2 DEFAULT NULL - , z_field_prompt IN VARCHAR2 DEFAULT NULL ) -IS - -- - field_caption VARCHAR2(2000); - -- -BEGIN - -- - IF z_field_prompt IS NULL THEN - -- - field_caption := initcap(REPLACE( substr( z_field_name - , 3 - , length(z_field_name) - 2) - , '_' - , ' ' )); - -- - ELSE - -- - field_caption := initcap(REPLACE( z_field_prompt - , '_' - , ' ' )); - -- - END IF; - -- - wsgl.registerurl( g_package_name || '.calendar'); - wsgl.addurlparam( 'Z_FIELD_NAME', z_field_name ); - wsgl.addurlparam( 'Z_CALLER_URL', z_caller_url ); - -- - IF wsgl.notlowercase THEN - RETURN; - END IF; - -- - wsgl.output_calendar( z_field_name - , z_field_value - , z_field_format - , wsgl.msggettext( 123 - , wsglm.dsp128_cal_caption - , field_caption ) - , NULL - , g_package_name - , 'Close' - , TRUE - , 'DD-MON-RRRR' ); - -- - wsgl.output_calendar( z_field_name - , z_field_value - , z_field_format - , wsgl.msggettext( 123 - , wsglm.dsp128_cal_caption - , field_caption ) - , NULL - , g_package_name - , 'Close' - , FALSE - , 'DD-MON-RRRR' ); - -- -EXCEPTION - WHEN OTHERS THEN - wsgl.displaymessage( wsgl.mess_exception - , SQLERRM - , '' - , NULL - , g_package_name || '.calendar' ); -END calendar; --- - --- -PROCEDURE format_cal_date( z_field_name IN VARCHAR2 - , z_field_format IN VARCHAR2 - , DAY IN VARCHAR2 - , MONTH IN VARCHAR2 - , YEAR IN VARCHAR2 ) -IS - -- - field_caption VARCHAR2(2000) := initcap(REPLACE( substr( z_field_name - , 3 - , length(z_field_name) - 2 ) - , '_' - , ' ' )); - l_day VARCHAR2(15) := DAY; - -- - PROCEDURE output_format_cal_js( page_header IN VARCHAR2 - , body_attributes IN VARCHAR2 - , chosen_date IN VARCHAR2 - , field_format IN VARCHAR2 ) - IS - -- - -- Copied from WSGL - -- - the_date DATE := to_date(chosen_date, 'DD-MONTH-YYYY'); - -- - BEGIN - -- - wsgl.openpagehead(page_header); - wsgl.closepagehead; - wsgl.openpagebody(FALSE, p_attributes => body_attributes); - htp.p(''); - wsgl.closepagebody; - -- - END output_format_cal_js; -BEGIN - -- - IF l_day = '0' THEN - l_day := '01'; - END IF; - -- - output_format_cal_js( wsgl.msggettext( 123 - , wsglm.dsp128_cal_caption - , field_caption ) - , NULL - , l_day || '-' || MONTH || '-' || YEAR - , z_field_format ); - -- -END format_cal_date; - - - -FUNCTION dad_path - RETURN VARCHAR2 -IS -BEGIN - RETURN(lower(owa_util.get_cgi_env('REQUEST_PROTOCOL') || '://' || - owa_util.get_cgi_env('HTTP_HOST') || - owa_util.get_cgi_env('SCRIPT_NAME') || '/')); -END dad_path; - - - -PROCEDURE find_passed_net_points( p_nepo_array IN owa_util.vc_arr - , p_network_point_array OUT network_point_array ) -IS - CURSOR c_nepo( cp_id IN NUMBER ) IS - SELECT REPLACE(REPLACE(name,chr(13),''),chr(10),'') name - FROM network_points - WHERE nepo_id = cp_id; - -- - l_count NUMBER := 0; - l_name network_points.name%TYPE; - -- -BEGIN - -- - IF NVL(p_nepo_array.COUNT,0) > 0 THEN - FOR i IN p_nepo_array.FIRST .. p_nepo_array.LAST LOOP - -- - l_name := NULL; - l_count := l_count + 1; - -- - -- Fetch the network point name - OPEN c_nepo( TO_NUMBER(p_nepo_array(i)) ); - FETCH c_nepo INTO l_name; - IF c_nepo%FOUND THEN - -- valid network point - p_network_point_array(l_count).nepo_id := TO_NUMBER(p_nepo_array(i)); - p_network_point_array(l_count).name := l_name; - ELSE - l_count := l_count - 1; - END IF; - CLOSE c_nepo; - -- - END LOOP; - END IF; - -- -END find_passed_net_points; - - - - - -PROCEDURE find_passed_categories( p_cate_array IN owa_util.vc_arr - , p_template_id IN NUMBER - , p_category_array OUT category_array - , p_prev_template_id IN NUMBER DEFAULT 0 ) -IS - -- Template categories (if template_id supplied) - CURSOR c_cotc IS - SELECT REPLACE(REPLACE(cate.name,chr(13),''),chr(10),'')||' ('||cate.units||')' category_name - , cate.cate_id category_id - FROM contract_template_categories cotc - , categories cate - WHERE cate.cate_id = cotc.cate_id - AND cotc.cote_id = p_template_id - ORDER BY cotc.display_sequence; --cate.name||' ('||cate.units||')' ASC; - -- - CURSOR c_cate( cp_id IN NUMBER ) IS - SELECT REPLACE(REPLACE(name,chr(13),''),chr(10),'')||' ('||units||')' category_name - FROM categories - WHERE cate_id = cp_id; - -- - l_count NUMBER := 0; - l_inh_count NUMBER := 0; - l_name VARCHAR2(200); - -- - FUNCTION cat_exists( p_id IN NUMBER - , p_category_array IN category_array ) - RETURN BOOLEAN - IS - l_success BOOLEAN := FALSE; - BEGIN - IF NVL(p_category_array.COUNT,0) > 0 THEN - FOR i IN p_category_array.FIRST..p_category_array.LAST LOOP - IF p_category_array(i).cate_id = p_id THEN - l_success := TRUE; - END IF; - END LOOP; - END IF; - RETURN l_success; - END cat_exists; - -- - FUNCTION from_prev_template( p_prev_template_id IN NUMBER - , p_cate_id IN NUMBER ) - RETURN BOOLEAN - IS - CURSOR c_cotc IS - SELECT 'x' - FROM contract_template_categories - WHERE cote_id = p_prev_template_id - AND cate_id = p_cate_id; - -- - l_success BOOLEAN := FALSE; - l_dummy VARCHAR2(1); - -- - BEGIN - OPEN c_cotc; - FETCH c_cotc INTO l_dummy; - IF c_cotc%FOUND THEN - l_success := TRUE; - END IF; - CLOSE c_cotc; - RETURN l_success; - END from_prev_template; - -- -BEGIN - -- - IF p_template_id IS NOT NULL - AND p_template_id > 0 - THEN - FOR r IN c_cotc LOOP - l_inh_count := l_inh_count + 1; - p_category_array(l_inh_count).name := r.category_name; - p_category_array(l_inh_count).cate_id := r.category_id; - p_category_array(l_inh_count).inherited := 'Y'; - END LOOP; - END IF; - -- - l_count := l_inh_count; - -- - IF NVL(p_cate_array.COUNT,0) > 0 THEN - FOR i IN p_cate_array.FIRST .. p_cate_array.LAST LOOP - -- - -- Check that we dont already have it in the array - -- and check it isnt from a previous template (we need to remove it..) - IF NOT cat_exists( TO_NUMBER(p_cate_array(i)), p_category_array ) - AND NOT from_prev_template( p_prev_template_id, TO_NUMBER(p_cate_array(i)) ) - THEN - -- We dont have this one yet - -- Reinitialise the variable - l_name := NULL; - -- - -- Fetch the category name - OPEN c_cate( TO_NUMBER(p_cate_array(i)) ); - FETCH c_cate INTO l_name; - IF c_cate%FOUND THEN - -- - l_count := l_count + 1; - -- valid category - p_category_array(l_count).cate_id := TO_NUMBER(p_cate_array(i)); - p_category_array(l_count).name := l_name; - p_category_array(l_count).inherited := 'N'; - END IF; - CLOSE c_cate; - -- - END IF; - -- - END LOOP; - END IF; - -- -END find_passed_categories; - - - - -PROCEDURE find_passed_parameters( p_pars_array IN owa_util.vc_arr - , p_template_id IN NUMBER - , p_parameter_array OUT parameter_array - , p_prev_template_id IN NUMBER DEFAULT 0 ) -IS - -- Template parameters (if template_id supplied) - CURSOR c_cotp IS - SELECT REPLACE(REPLACE(pars.name,chr(13),''),chr(10),'') parameter_name - , pars.pars_id parameter_id - FROM contract_template_params cotp - , parameters pars - WHERE pars.pars_id = cotp.pars_id - AND cotp.cote_id = p_template_id - AND pars.cate_id IS NULL - ORDER BY pars.name ASC; - -- - CURSOR c_pars( cp_id IN NUMBER ) IS - SELECT REPLACE(REPLACE(name,chr(13),''),chr(10),'') name - FROM parameters - WHERE pars_id = cp_id - AND cate_id IS NULL; - -- - l_count NUMBER := 0; - l_inh_count NUMBER := 0; - l_name parameters.name%TYPE; - -- - FUNCTION par_exists( p_id IN NUMBER - , p_parameter_array IN parameter_array ) - RETURN BOOLEAN - IS - l_success BOOLEAN := FALSE; - BEGIN - IF NVL(p_parameter_array.COUNT,0) > 0 THEN - FOR i IN p_parameter_array.FIRST..p_parameter_array.LAST LOOP - IF p_parameter_array(i).pars_id = p_id THEN - l_success := TRUE; - END IF; - END LOOP; - END IF; - RETURN l_success; - END par_exists; - -- - FUNCTION from_prev_template( p_prev_template_id IN NUMBER - , p_pars_id IN NUMBER ) - RETURN BOOLEAN - IS - CURSOR c_cotp IS - SELECT 'x' - FROM contract_template_params - WHERE cote_id = p_prev_template_id - AND pars_id = p_pars_id; - -- - l_success BOOLEAN := FALSE; - l_dummy VARCHAR2(1); - -- - BEGIN - OPEN c_cotp; - FETCH c_cotp INTO l_dummy; - IF c_cotp%FOUND THEN - l_success := TRUE; - END IF; - CLOSE c_cotp; - RETURN l_success; - END from_prev_template; - -- -BEGIN - -- - IF p_template_id IS NOT NULL - AND p_template_id > 0 - THEN - FOR r IN c_cotp LOOP - l_inh_count := l_inh_count + 1; - p_parameter_array(l_inh_count).name := r.parameter_name; - p_parameter_array(l_inh_count).pars_id := r.parameter_id; - p_parameter_array(l_inh_count).inherited := 'Y'; - END LOOP; - END IF; - -- - l_count := l_inh_count; - -- - IF NVL(p_pars_array.COUNT,0) > 0 THEN - FOR i IN p_pars_array.FIRST .. p_pars_array.LAST LOOP - -- - -- Check that we dont already have it in the array - -- and check it isnt from a previous template (we need to remove it..) - IF NOT par_exists( TO_NUMBER(p_pars_array(i)), p_parameter_array ) - AND NOT from_prev_template( p_prev_template_id, TO_NUMBER(p_pars_array(i)) ) - THEN - -- Reinitialise the name variable - l_name := NULL; - -- We dont have this one yet - -- Fetch the parameter name - OPEN c_pars( TO_NUMBER(p_pars_array(i)) ); - FETCH c_pars INTO l_name; - IF c_pars%FOUND THEN - -- valid parameter - l_count := l_count + 1; - -- - p_parameter_array(l_count).pars_id := TO_NUMBER(p_pars_array(i)); - p_parameter_array(l_count).name := l_name; - p_parameter_array(l_count).inherited := 'N'; - END IF; - CLOSE c_pars; - -- - END IF; - -- - END LOOP; - END IF; - -- -END find_passed_parameters; - - - - - -PROCEDURE set_contract_options(p_contract_id IN NUMBER) IS - -- Cursor to get the default options - CURSOR c_option_defaults IS - SELECT substr(parameter, instr(parameter, '.') + 1) parameter, - VALUE - FROM application_parameters - WHERE upper(substr(parameter, 1, instr(parameter, '.') - 1)) = 'COOP' - ORDER BY appa_id; - -- Cursor to see if current options exist - CURSOR c_options IS - SELECT cont_id FROM contract_options WHERE cont_id = p_contract_id; - p_contract_opt_record contract_options%ROWTYPE; - l_contract_id contract_options.cont_id%TYPE; - l_new_contract BOOLEAN := FALSE; -BEGIN - IF p_contract_id IS NOT NULL - AND p_contract_id > 0 THEN - OPEN c_options; - FETCH c_options - INTO l_contract_id; - IF c_options%NOTFOUND THEN - l_new_contract := TRUE; - END IF; - CLOSE c_options; - --ELSE - --l_new_contract := TRUE; - END IF; - -- This is a new contract or there is no record of options for this contract - IF l_new_contract THEN - p_contract_opt_record.cont_id := p_contract_id; - FOR r IN c_option_defaults LOOP - IF upper(r.parameter) = 'NOM_CONF_SUBJECT' THEN - p_contract_opt_record.nom_conf_subject := r.value; - ELSIF upper(r.parameter) = 'NOM_CONF_CONTENT' THEN - p_contract_opt_record.nom_conf_content := r.value; - ELSIF upper(r.parameter) = 'COM_CONF_SUBJECT' THEN - p_contract_opt_record.com_conf_subject := r.value; - ELSIF upper(r.parameter) = 'COM_CONF_CONTENT' THEN - p_contract_opt_record.com_conf_content := r.value; - ELSIF upper(r.parameter) = 'AUTO_GEN_CONF' THEN - p_contract_opt_record.auto_gen_conf := r.value; - ELSIF upper(r.parameter) = 'CONF_TYPE' THEN - p_contract_opt_record.conf_type := r.value; - ELSIF upper(r.parameter) = 'IND_DEADLINE_FOR_NOM_SUBMIT' THEN - p_contract_opt_record.ind_deadline_for_nom_submit := r.value; - ELSIF upper(r.parameter) = 'SHIPPER' THEN - p_contract_opt_record.shipper := r.value; - ELSIF upper(r.parameter) = 'INT_SUBJECT' THEN - p_contract_opt_record.int_subject := r.value; - ELSIF upper(r.parameter) = 'INT_CONTENT' THEN - p_contract_opt_record.int_content := r.value; - ELSIF upper(r.parameter) = 'INT_SMS_CONTENT' THEN - p_contract_opt_record.int_sms_content := r.value; - END IF; - END LOOP; - -- - INSERT INTO contract_options - (cont_id, - nom_conf_subject, - nom_conf_content, - com_conf_subject, - com_conf_content, - auto_gen_conf, - conf_type, - ind_deadline_for_nom_submit, - shipper, - int_subject, - int_content, - int_sms_content) - VALUES - (p_contract_opt_record.cont_id, - p_contract_opt_record.nom_conf_subject, - p_contract_opt_record.nom_conf_content, - p_contract_opt_record.com_conf_subject, - p_contract_opt_record.com_conf_content, - p_contract_opt_record.auto_gen_conf, - p_contract_opt_record.conf_type, - p_contract_opt_record.ind_deadline_for_nom_submit, - p_contract_opt_record.shipper, - p_contract_opt_record.int_subject, - p_contract_opt_record.int_content, - p_contract_opt_record.int_sms_content); - -- - END IF; -END set_contract_options; - - - - - -PROCEDURE get_contract_options(p_contract_id IN NUMBER, - p_contract_opt_record OUT contract_options%ROWTYPE) IS - -- Cursor to get the default options - CURSOR c_option_defaults IS - SELECT substr(parameter, instr(parameter, '.') + 1) parameter, - VALUE - FROM application_parameters - WHERE upper(substr(parameter, 1, instr(parameter, '.') - 1)) = 'COOP' - ORDER BY appa_id; - -- Cursor to get the current options - CURSOR c_options IS - SELECT cont_id, - nom_conf_subject, - nom_conf_content, - com_conf_subject, - com_conf_content, - auto_gen_conf, - conf_type, - ind_deadline_for_nom_submit, - shipper, - int_subject, - int_content, - int_sms_content - FROM contract_options - WHERE cont_id = p_contract_id; - l_new_contract BOOLEAN; -BEGIN - l_new_contract := FALSE; - IF p_contract_id IS NOT NULL - AND p_contract_id > 0 THEN - OPEN c_options; - FETCH c_options - INTO p_contract_opt_record; - IF c_options%NOTFOUND THEN - l_new_contract := TRUE; - END IF; - CLOSE c_options; - ELSE - l_new_contract := TRUE; - END IF; - -- This is a new contract or there is no record of options for this contract - IF l_new_contract THEN - p_contract_opt_record.cont_id := p_contract_id; - FOR r IN c_option_defaults LOOP - IF upper(r.parameter) = 'NOM_CONF_SUBJECT' THEN - p_contract_opt_record.nom_conf_subject := r.value; - ELSIF upper(r.parameter) = 'NOM_CONF_CONTENT' THEN - p_contract_opt_record.nom_conf_content := r.value; - ELSIF upper(r.parameter) = 'COM_CONF_SUBJECT' THEN - p_contract_opt_record.com_conf_subject := r.value; - ELSIF upper(r.parameter) = 'COM_CONF_CONTENT' THEN - p_contract_opt_record.com_conf_content := r.value; - ELSIF upper(r.parameter) = 'AUTO_GEN_CONF' THEN - p_contract_opt_record.auto_gen_conf := r.value; - ELSIF upper(r.parameter) = 'CONF_TYPE' THEN - p_contract_opt_record.conf_type := r.value; - ELSIF upper(r.parameter) = 'IND_DEADLINE_FOR_NOM_SUBMIT' THEN - p_contract_opt_record.ind_deadline_for_nom_submit := r.value; - ELSIF upper(r.parameter) = 'SHIPPER' THEN - p_contract_opt_record.shipper := r.value; - ELSIF upper(r.parameter) = 'INT_SUBJECT' THEN - p_contract_opt_record.int_subject := r.value; - ELSIF upper(r.parameter) = 'INT_CONTENT' THEN - p_contract_opt_record.int_content := r.value; - ELSIF upper(r.parameter) = 'INT_SMS_CONTENT' THEN - p_contract_opt_record.int_sms_content := r.value; - END IF; - END LOOP; - END IF; -END get_contract_options; - - - - - -PROCEDURE get_contract_details_p1( p_contract_id IN NUMBER - , p_contract_record OUT contracts%ROWTYPE - , p_network_point_array OUT network_point_array - , p_category_array OUT category_array - , p_parameter_array OUT parameter_array ) -IS - -- Cursor to get the full contract details row - CURSOR c_contract IS - SELECT * - FROM contracts - WHERE cont_id = p_contract_id; - -- - -- Cursor to get all network points for this contract - CURSOR c_nepo IS - SELECT conp.nepo_id net_point_id - , nepo.name nepo_name - FROM cont_network_points conp - , network_points nepo - WHERE conp.nepo_id = nepo.nepo_id - AND conp.cont_id = p_contract_id - ORDER BY nepo.name; - -- - -- Cursor to get all valid categories for this contract - CURSOR c_cate IS - SELECT coca.cate_id category_id - , cate.name||' ('||cate.units||')' category_name - , coca.inherited inherited - FROM contract_categories coca - , categories cate - WHERE coca.cate_id = cate.cate_id - AND coca.cont_id = p_contract_id - ORDER BY coca.inherited DESC, coca.display_sequence; --cate.name||' ('||cate.units||')'; - -- - -- Cursor to get all valid parameters for this contract - CURSOR c_pars IS - SELECT copa.pars_id parameter_id - , pars.name parameter_name - , copa.inherited inherited - FROM contract_parameters copa - , parameters pars - WHERE copa.pars_id = pars.pars_id - AND copa.cont_id = p_contract_id - AND pars.cate_id IS NULL - ORDER BY pars.name; - -- - l_count NUMBER := 0; - -- -BEGIN - -- - OPEN c_contract; - FETCH c_contract INTO p_contract_record; - CLOSE c_contract; - -- - FOR r IN c_nepo LOOP - l_count := l_count + 1; - -- - p_network_point_array(l_count).nepo_id := r.net_point_id; - p_network_point_array(l_count).name := r.nepo_name; - -- - END LOOP; - -- - l_count := 0; - -- - FOR r IN c_cate LOOP - l_count := l_count + 1; - -- - p_category_array(l_count).cate_id := r.category_id; - p_category_array(l_count).name := r.category_name; - p_category_array(l_count).inherited := r.inherited; - -- - END LOOP; - -- - l_count := 0; - -- - FOR r IN c_pars LOOP - l_count := l_count + 1; - -- - p_parameter_array(l_count).pars_id := r.parameter_id; - p_parameter_array(l_count).name := r.parameter_name; - p_parameter_array(l_count).inherited := r.inherited; - -- - END LOOP; - -- -END get_contract_details_p1; - - - -PROCEDURE get_template_details_p1( p_template_id IN NUMBER - , p_template_record OUT contract_templates%ROWTYPE - , p_category_array OUT category_array - , p_parameter_array OUT parameter_array ) -IS - -- Cursor to get the full contract template details row - CURSOR c_template IS - SELECT * - FROM contract_templates - WHERE cote_id = p_template_id; - -- - -- Cursor to get all valid categories for this contract template - CURSOR c_cate IS - SELECT cotc.cate_id category_id - , cate.name||' ('||cate.units||')' category_name - , 'N' inherited - FROM contract_template_categories cotc - , categories cate - WHERE cotc.cate_id = cate.cate_id - AND cotc.cote_id = p_template_id - ORDER BY cotc.display_sequence; --cate.name||' ('||cate.units||')'; - -- - -- Cursor to get all valid parameters for this contract template - CURSOR c_pars IS - SELECT cotp.pars_id parameter_id - , pars.name parameter_name - , 'N' inherited - FROM contract_template_params cotp - , parameters pars - WHERE cotp.pars_id = pars.pars_id - AND cotp.cote_id = p_template_id - AND pars.cate_id IS NULL - ORDER BY pars.name; - -- - l_count NUMBER := 0; - -- -BEGIN - -- - OPEN c_template; - FETCH c_template INTO p_template_record; - CLOSE c_template; - -- - FOR r IN c_cate LOOP - l_count := l_count + 1; - -- - p_category_array(l_count).cate_id := r.category_id; - p_category_array(l_count).name := r.category_name; - p_category_array(l_count).inherited := r.inherited; - -- - END LOOP; - -- - l_count := 0; - -- - FOR r IN c_pars LOOP - l_count := l_count + 1; - -- - p_parameter_array(l_count).pars_id := r.parameter_id; - p_parameter_array(l_count).name := r.parameter_name; - p_parameter_array(l_count).inherited := r.inherited; - -- - END LOOP; - -- -END get_template_details_p1; - - - -PROCEDURE get_avail_net_points( p_network_point_array IN OUT network_point_array - , p_avail_net_points OUT network_point_array ) -IS - -- Cursor to select ALL network points - CURSOR c_nepo IS - SELECT nepo_id - , REPLACE(REPLACE(name,chr(13),''),chr(10),'') name - FROM network_points - ORDER BY name; - -- - l_array_pos NUMBER := 0; - l_out_pos NUMBER := 0; - -- - l_holder_record network_point_record; - -- -BEGIN - -- - -- Need to ensure that we are dealing with like on like - -- i.e. both the given array and the cursor must be sorted by name - -- So sort the array - this is belt and braces approach as the array SHOULD arrive sorted correctly - -- The Bubble Sort method. - -- (yes there are MUCH better ways to sort - this algorithm I remember off the top off my head though) - IF NVL(p_network_point_array.COUNT,0) > 0 THEN - FOR i IN 1..p_network_point_array.COUNT LOOP - -- - FOR j IN 1..(p_network_point_array.COUNT-1) LOOP - -- - IF p_network_point_array(j).name > p_network_point_array(j+1).name THEN - -- - l_holder_record := p_network_point_array(j+1); - p_network_point_array(j+1) := p_network_point_array(j); - p_network_point_array(j) := l_holder_record; - -- - END IF; - -- - END LOOP; - -- - END LOOP; - END IF; - -- - -- Ok, so lets go - l_array_pos := 1; - OPEN c_nepo; - FETCH c_nepo INTO l_holder_record; - -- - WHILE c_nepo%FOUND AND l_array_pos <= p_network_point_array.COUNT LOOP - -- - IF p_network_point_array(l_array_pos).name > l_holder_record.name THEN - -- Output the current cursor detail to the OUT array - l_out_pos := l_out_pos + 1; - p_avail_net_points(l_out_pos).nepo_id := l_holder_record.nepo_id; - p_avail_net_points(l_out_pos).name := l_holder_record.name; - -- - FETCH c_nepo INTO l_holder_record; - -- - ELSIF p_network_point_array(l_array_pos).name = l_holder_record.name THEN - -- Move both on - l_array_pos := l_array_pos + 1; - FETCH c_nepo INTO l_holder_record; - -- - ELSE - -- Move the array position on - shouldn't realy happen as this means there - -- will be a foreign key violation soon... - l_array_pos := l_array_pos + 1; - END IF; - -- - END LOOP; - -- - -- If we still have rows in the cursor - output the values - WHILE c_nepo%FOUND LOOP - -- Output the current cursor detail to the OUT array - l_out_pos := l_out_pos + 1; - p_avail_net_points(l_out_pos).nepo_id := l_holder_record.nepo_id; - p_avail_net_points(l_out_pos).name := l_holder_record.name; - -- - FETCH c_nepo INTO l_holder_record; - -- - END LOOP; - -- - CLOSE c_nepo; - -- -END get_avail_net_points; - - - -PROCEDURE get_avail_categories( p_category_array IN OUT category_array - , p_avail_categories OUT category_array ) -IS - -- Cursor to select ALL categories - CURSOR c_cate IS - SELECT cate_id - , REPLACE(REPLACE(name,chr(13),''),chr(10),'')||' ('||units||')' name - , 'N' - FROM categories - ORDER BY display_sequence; --name||' ('||units||')'; - -- - l_array_pos NUMBER := 0; - l_out_pos NUMBER := 0; - -- - l_holder_record category_record; - -- -BEGIN - -- - -- Need to ensure that we are dealing with like on like - -- i.e. both the given array and the cursor must be sorted by name - -- So sort the array - this is belt and braces approach as the array SHOULD arrive sorted correctly - -- The Bubble Sort method. - -- (yes there are MUCH better ways to sort - this algorithm I remember off the top off my head though) -/* IF NVL(p_category_array.COUNT,0) > 0 THEN - FOR i IN 1..p_category_array.COUNT LOOP - -- - FOR j IN 1..(p_category_array.COUNT-1) LOOP - -- - IF p_category_array(j).name > p_category_array(j+1).name THEN - -- - l_holder_record := p_category_array(j+1); - p_category_array(j+1) := p_category_array(j); - p_category_array(j) := l_holder_record; - -- - END IF; - -- - END LOOP; - -- - END LOOP; - END IF;*/ - -- - -- Reinitialise the holder record - l_holder_record := NULL; - -- - OPEN c_cate; - FETCH c_cate INTO l_holder_record; - -- - WHILE c_cate%FOUND LOOP - -- - l_array_pos := 0; - -- - <> - FOR idx IN 1..p_category_array.COUNT LOOP - -- - -- Search the array for the category - -- - IF p_category_array(idx).name = l_holder_record.name THEN - -- - -- Found, mark as found and exit - -- - NULL; - -- - l_array_pos := idx; - -- - EXIT array_loop; - -- - END IF; - -- - END LOOP; - -- - IF l_array_pos = 0 THEN - -- - -- Not found, mark as available - -- - l_out_pos := l_out_pos + 1; - p_avail_categories(l_out_pos).cate_id := l_holder_record.cate_id; - p_avail_categories(l_out_pos).name := l_holder_record.name; - p_avail_categories(l_out_pos).inherited := 'N'; - -- - END IF; - -- - FETCH c_cate INTO l_holder_record; - -- - l_array_pos := p_category_array.FIRST; - -- - END LOOP; - -- - CLOSE c_cate; - -- -END get_avail_categories; - - -FUNCTION inherited_categories( p_category_array IN category_array ) - RETURN VARCHAR2 -IS - l_name_list VARCHAR2(26000) := NULL; - l_temp_cate VARCHAR2(200) := NULL; -BEGIN - -- - IF NVL(p_category_array.COUNT,0) > 0 THEN - FOR i IN 1..p_category_array.COUNT LOOP - -- - IF p_category_array(i).inherited = 'Y' THEN - -- - l_temp_cate := p_category_array(i).name; - -- - -- Remove any newline/carriage returns (these cause problems) - l_temp_cate := REPLACE(REPLACE(l_temp_cate,chr(13),''),chr(10),''); - -- Now escape any metacharacters - l_temp_cate := REPLACE(l_temp_cate,'\','\\\'); - l_temp_cate := REPLACE(l_temp_cate,'|','\\|'); - l_temp_cate := REPLACE(l_temp_cate,'(','\\('); - l_temp_cate := REPLACE(l_temp_cate,')','\\)'); - l_temp_cate := REPLACE(l_temp_cate,'[','\\['); - l_temp_cate := REPLACE(l_temp_cate,'{','\\{'); - l_temp_cate := REPLACE(l_temp_cate,'^','\\^'); - l_temp_cate := REPLACE(l_temp_cate,'$','\\$'); - l_temp_cate := REPLACE(l_temp_cate,'*','\\*'); - l_temp_cate := REPLACE(l_temp_cate,'+','\\+'); - l_temp_cate := REPLACE(l_temp_cate,'?','\\?'); - -- Add name to list - l_name_list := l_name_list||'|'||l_temp_cate; - -- - END IF; - -- - END LOOP; - END IF; - -- - IF LENGTH(l_name_list) > 0 THEN - l_name_list := SUBSTR(l_name_list, 2); -- Strip the first | symbol - END IF; - -- - RETURN l_name_list; - -- -END inherited_categories; - - - - - -PROCEDURE get_avail_parameters( p_parameter_array IN OUT parameter_array - , p_avail_parameters OUT parameter_array ) -IS - -- Cursor to select ALL parameters not associated with categories - CURSOR c_pars IS - SELECT pars_id parameter_name - , REPLACE(REPLACE(name,chr(13),''),chr(10),'') parameter_name - , 'N' inherited - FROM parameters - WHERE cate_id IS NULL - ORDER BY name; - -- - l_array_pos NUMBER := 0; - l_out_pos NUMBER := 0; - -- - l_holder_record parameter_record; - -- -BEGIN - -- - -- Need to ensure that we are dealing with like on like - -- i.e. both the given array and the cursor must be sorted by name - -- So sort the array - this is belt and braces approach as the array SHOULD arrive sorted correctly - -- The Bubble Sort method. - -- (yes there are MUCH better ways to sort - this algorithm I remember off the top off my head though) - FOR i IN 1..p_parameter_array.COUNT LOOP - -- - FOR j IN 1..(p_parameter_array.COUNT-1) LOOP - -- - IF p_parameter_array(j).name > p_parameter_array(j+1).name THEN - -- - l_holder_record := p_parameter_array(j+1); - p_parameter_array(j+1) := p_parameter_array(j); - p_parameter_array(j) := l_holder_record; - -- - END IF; - -- - END LOOP; - -- - END LOOP; - -- - -- Ok, so lets go - l_array_pos := 1; - OPEN c_pars; - FETCH c_pars INTO l_holder_record; - -- - WHILE c_pars%FOUND AND l_array_pos <= NVL(p_parameter_array.COUNT,0) LOOP - -- - IF p_parameter_array(l_array_pos).name > l_holder_record.name THEN - -- Output the current cursor detail to the OUT array - l_out_pos := l_out_pos + 1; - p_avail_parameters(l_out_pos).pars_id := l_holder_record.pars_id; - p_avail_parameters(l_out_pos).name := l_holder_record.name; - p_avail_parameters(l_out_pos).inherited := 'N'; - -- - FETCH c_pars INTO l_holder_record; - -- - ELSIF p_parameter_array(l_array_pos).name = l_holder_record.name THEN - -- Move both on - l_array_pos := l_array_pos + 1; - FETCH c_pars INTO l_holder_record; - -- - ELSE - -- Move the array position on - shouldn't realy happen as this means there - -- will be a foreign key violation soon... - l_array_pos := l_array_pos + 1; - END IF; - -- - END LOOP; - -- - -- If we still have rows in the cursor - output the values - WHILE c_pars%FOUND LOOP - -- Output the current cursor detail to the OUT array - l_out_pos := l_out_pos + 1; - p_avail_parameters(l_out_pos).pars_id := l_holder_record.pars_id; - p_avail_parameters(l_out_pos).name := l_holder_record.name; - p_avail_parameters(l_out_pos).inherited := 'N'; - -- - FETCH c_pars INTO l_holder_record; - -- - END LOOP; - -- - CLOSE c_pars; - -- -END get_avail_parameters; - - - -FUNCTION inherited_parameters( p_parameter_array IN parameter_array ) - RETURN VARCHAR2 -IS - l_name_list VARCHAR2(26000) := NULL; - l_temp_pars VARCHAR2(200) := NULL; -BEGIN - -- - IF NVL(p_parameter_array.COUNT,0) > 0 THEN - FOR i IN 1..p_parameter_array.COUNT LOOP - -- - IF p_parameter_array(i).inherited = 'Y' THEN - -- - l_temp_pars := p_parameter_array(i).name; - -- - -- Remove any newline/carriage returns (these cause problems) - l_temp_pars := REPLACE(REPLACE(l_temp_pars,chr(13),''),chr(10),''); - -- Now escape any metacharacters - l_temp_pars := REPLACE(l_temp_pars,'\','\\\'); - l_temp_pars := REPLACE(l_temp_pars,'|','\\|'); - l_temp_pars := REPLACE(l_temp_pars,'(','\\('); - l_temp_pars := REPLACE(l_temp_pars,')','\\)'); - l_temp_pars := REPLACE(l_temp_pars,'[','\\['); - l_temp_pars := REPLACE(l_temp_pars,'{','\\{'); - l_temp_pars := REPLACE(l_temp_pars,'^','\\^'); - l_temp_pars := REPLACE(l_temp_pars,'$','\\$'); - l_temp_pars := REPLACE(l_temp_pars,'*','\\*'); - l_temp_pars := REPLACE(l_temp_pars,'+','\\+'); - l_temp_pars := REPLACE(l_temp_pars,'?','\\?'); - -- Add name to list - l_name_list := l_name_list||'|'||l_temp_pars; - -- - END IF; - -- - END LOOP; - END IF; - -- - IF LENGTH(l_name_list) > 0 THEN - l_name_list := SUBSTR(l_name_list, 2); -- Strip the first | symbol - END IF; - -- - RETURN l_name_list; - -- -END inherited_parameters; - - - -PROCEDURE templateRules_js -IS -BEGIN - -- - htp.p(' - function addTemplateRule( locURL ) { - var theRule = document.getElementById(''addTempRule''); - - if (theRule.selectedIndex >= 0) { - var theRuleId = theRule.options[theRule.selectedIndex].value; - var theURL = locURL + theRuleId; - - location.href = theURL; - } - } - - function validateSequence( cotrId, locURL ) { - var theRuleSeq = document.getElementById( cotrId ); - - // Check that the value in the "sequence" is integer numeric - if (parseInt(theRuleSeq.value)) { - //go for the update - location.href = locURL + theRuleSeq.value; - } - else { - // Let the user know they entered invalid data - alert('''||caco_utilities.get_module_text(2336)||'''); - } - } - - function checkCotrDelete( locURL ) { - //check if the hidden contractsExist item exists - if (document.getElementById(''contractsExist'')) { - // lets ask for confirmation - if (confirm('''||caco_utilities.get_module_text(2309)||''')) { - location.href = locURL; - } - } - else { - //Just process the delete link - location.href = locURL; - } - } - - function checkCotrAdd( locURL ) { - //check if the hidden contractsExist item exists - if (document.getElementById(''contractsExist'')) { - // lets ask for confirmation - if (confirm('''||caco_utilities.get_module_text(2308)||''')) { - addTemplateRule( locURL ); - } - } - else { - //Just process the add link - addTemplateRule( locURL ); - } - } - - '); -END templateRules_js; - - -PROCEDURE contractRules_js -IS -BEGIN - -- - htp.p(' - function addContractRule( locURL ) { - var theRule = document.getElementById(''addContRule''); - - if (theRule.selectedIndex >= 0) { - var theRuleId = theRule.options[theRule.selectedIndex].value; - var theURL = locURL + theRuleId; - - location.href = theURL; - } - } - - function validateSequence( coruId, locURL ) { - var theRuleSeq = document.getElementById( coruId ); - - // Check that the value in the "sequence" is integer numeric - if (parseInt(theRuleSeq.value)) { - //go for the update - location.href = locURL + theRuleSeq.value; - } - else { - // Let the user know they entered invalid data - alert('''||caco_utilities.get_module_text(2336)||'''); - } - } - - '); -END contractRules_js; - - - -PROCEDURE contractP2_js -IS -BEGIN - -- - htp.p(' - function setChanged( obj ) { - if( obj.value != obj.getAttribute(''origval'') ) { - var pc = document.getElementById(''p_changes''); - pc.value = ''changed''; - } - } - - function gotoPage( locURL ) { - var pc = document.getElementById(''p_changes''); - - if( pc.value == ''changed'' ) { - if (confirm('''||caco_utilities.get_module_text(2343)||''')){ - location.href = locURL; - } - } - else { - location.href = locURL; - } - } - - function submitPage2() { - var theForm = document.getElementById(''contractFormP2''); - theForm.submit(); - } - '); - caco_utilities.thousand_separator_js; - -- -END contractP2_js; - - - -PROCEDURE contract_js -IS -BEGIN - -- - htp.p(' - function setListForSubmit( onOff, listId ) { - var theList = document.getElementById( listId ); - - if (onOff == "on") { - for (var i=0; i -// WWW: http://www.mattkruse.com/ -// -// NOTICE: You may use this code for any purpose, commercial or -// private, without any further permission from the author. You may -// remove this notice from your final code if you wish, however it is -// appreciated by the author if at least my web site address is kept. -// =================================================================== - '); -htp.p(' -/* -OptionTransfer.js -Last Modified: 7/12/2004 - -DESCRIPTION: This widget is used to easily and quickly create an interface -where the user can transfer choices from one select box to another. For -example, when selecting which columns to show or hide in search results. -This object adds value by automatically storing the values that were added -or removed from each list, as well as the state of the final list. - -COMPATABILITY: Should work on all Javascript-compliant browsers. - -USAGE: -// Create a new OptionTransfer object. Pass it the field names of the left -// select box and the right select box. -var ot = new OptionTransfer("from","to"); - -// Optionally tell the lists whether or not to auto-sort when options are -// moved. By default, the lists will be sorted. -ot.setAutoSort(true); - -// Optionally set the delimiter to be used to separate values that are -// stored in hidden fields for the added and removed options, as well as -// final state of the lists. Defaults to a comma. -ot.setDelimiter("|"); - -// You can set a regular expression for option texts which are _not_ allowed to -// be transferred in either direction -ot.setStaticOptionRegex("static");'); -htp.p(' -// These functions assign the form fields which will store the state of -// the lists. Each one is optional, so you can pick to only store the -// new options which were transferred to the right list, for example. -// Each function takes the name of a HIDDEN or TEXT input field. - -// Store list of options removed from left list into an input field -ot.saveRemovedLeftOptions("removedLeft"); -// Store list of options removed from right list into an input field -ot.saveRemovedRightOptions("removedRight"); -// Store list of options added to left list into an input field -ot.saveAddedLeftOptions("addedLeft"); -// Store list of options radded to right list into an input field -ot.saveAddedRightOptions("addedRight"); -// Store all options existing in the left list into an input field -ot.saveNewLeftOptions("newLeft"); -// Store all options existing in the right list into an input field -ot.saveNewRightOptions("newRight"); - -// IMPORTANT: This step is required for the OptionTransfer object to work -// correctly. -// Add a call to the BODY onLoad="" tag of the page, and pass a reference to -// the form which contains the select boxes and input fields. -BODY onLoad="ot.init(document.forms[0])" - -// ADDING ACTIONS INTO YOUR PAGE -// Finally, add calls to the object to move options back and forth, either -// from links in your page or from double-clicking the options themselves. -// See example page, and use the following methods: -ot.transferRight(); -ot.transferAllRight(); -ot.transferLeft(); -ot.transferAllLeft();'); - -htp.p(' -NOTES: -1) Requires the functions in selectbox.js - -*/ -function OT_transferLeft() { moveSelectedOptions(this.right,this.left,this.autoSort,this.staticOptionRegex); this.update(); } -function OT_transferRight() { moveSelectedOptions(this.left,this.right,this.autoSort,this.staticOptionRegex); this.update(); } -function OT_transferAllLeft() { moveAllOptions(this.right,this.left,this.autoSort,this.staticOptionRegex); this.update(); } -function OT_transferAllRight() { moveAllOptions(this.left,this.right,this.autoSort,this.staticOptionRegex); this.update(); } -function OT_saveRemovedLeftOptions(f) { this.removedLeftField = f; } -function OT_saveRemovedRightOptions(f) { this.removedRightField = f; } -function OT_saveAddedLeftOptions(f) { this.addedLeftField = f; } -function OT_saveAddedRightOptions(f) { this.addedRightField = f; } -function OT_saveNewLeftOptions(f) { this.newLeftField = f; } -function OT_saveNewRightOptions(f) { this.newRightField = f; } -function OT_update() { - var removedLeft = new Object(); - var removedRight = new Object(); - var addedLeft = new Object(); - var addedRight = new Object(); - var newLeft = new Object(); - var newRight = new Object(); - for (var i=0;i0) { str=str+delimiter; } - str=str+val; - } - return str; - } -function OT_setDelimiter(val) { this.delimiter=val; } -function OT_setAutoSort(val) { this.autoSort=val; } -function OT_setStaticOptionRegex(val) { this.staticOptionRegex=val; } -function OT_init(theform) { - this.form = theform; - if(!theform[this.left]){alert("OptionTransfer init(): Left select list does not exist in form!");return false;} - if(!theform[this.right]){alert("OptionTransfer init(): Right select list does not exist in form!");return false;} - this.left=theform[this.left]; - this.right=theform[this.right]; - for(var i=0;i -// WWW: http://www.mattkruse.com/ -// -// NOTICE: You may use this code for any purpose, commercial or -// private, without any further permission from the author. You may -// remove this notice from your final code if you wish, however it is -// appreciated by the author if at least my web site address is kept. -// =================================================================== - -// ------------------------------------------------------------------- -// autoComplete (text_input, select_input, ["text"|"value"], [true|false]) -// Use this function when you have a SELECT box of values and a text -// input box with a fill-in value. Often, onChange of the SELECT box -// will fill in the selected value into the text input (working like -// a Windows combo box). Using this function, typing into the text -// box will auto-select the best match in the SELECT box and do -// auto-complete in supported browsers. -// Arguments: -// field = text input field object -// select = select list object containing valid values -// property = either "text" or "value". This chooses which of the -// SELECT properties gets filled into the text box - -// the ''value'' or ''text'' of the selected option -// forcematch = true or false. Set to ''true'' to not allow any text -// in the text box that does not match an option. Only -// supported in IE (possible future Netscape). -// ------------------------------------------------------------------- -function autoComplete (field, select, property, forcematch) { - var found = false; - for (var i = 0; i < select.options.length; i++) { - if (select.options[i][property].toUpperCase().indexOf(field.value.toUpperCase()) == 0) { - found=true; break; - } - } - if (found) { select.selectedIndex = i; } - else { select.selectedIndex = -1; } - if (field.createTextRange) { - if (forcematch && !found) { - field.value=field.value.substring(0,field.value.length-1); - return; - } - var cursorKeys ="8;46;37;38;39;40;33;34;35;36;45;"; - if (cursorKeys.indexOf(event.keyCode+";") == -1) { - var r1 = field.createTextRange(); - var oldValue = r1.text; - var newValue = found ? select.options[i][property] : oldValue; - if (newValue != field.value) { - field.value = newValue; - var rNew = field.createTextRange(); - rNew.moveStart(''character'', oldValue.length) ; - rNew.select(); - } - } - } - } -'); -END autocomplete_js; - -PROCEDURE selectbox_js IS -BEGIN -htp.p('// =================================================================== -// Author: Matt Kruse -// WWW: http://www.mattkruse.com/ -// -// NOTICE: You may use this code for any purpose, commercial or -// private, without any further permission from the author. You may -// remove this notice from your final code if you wish, however it is -// appreciated by the author if at least my web site address is kept. -// =================================================================== - -// HISTORY -// ------------------------------------------------------------------ -// April 20, 2005: Fixed the removeSelectedOptions() function to -// correctly handle single selects -// June 12, 2003: Modified up and down functions to support more than -// one selected option -/* -DESCRIPTION: These are general functions to deal with and manipulate -select boxes. Also see the OptionTransfer library to more easily -handle transferring options between two lists - -COMPATABILITY: These are fairly basic functions - they should work on -all browsers that support Javascript. -*/ - - -// ------------------------------------------------------------------- -// hasOptions(obj) -// Utility function to determine if a select object has an options array -// ------------------------------------------------------------------- -function hasOptions(obj) { - if (obj!=null && obj.options!=null) { return true; } - return false; - } - -// ------------------------------------------------------------------- -// selectUnselectMatchingOptions(select_object,regex,select/unselect,true/false) -// This is a general function used by the select functions below, to -// avoid code duplication -// ------------------------------------------------------------------- -function selectUnselectMatchingOptions(obj,regex,which,only) { - if (window.RegExp) { - if (which == "select") { - var selected1=true; - var selected2=false; - } - else if (which == "unselect") { - var selected1=false; - var selected2=true; - } - else { - return; - } - var re = new RegExp(regex); - if (!hasOptions(obj)) { return; } - for (var i=0; i (b.text+"")) { return 1; } - return 0; - } - ); - - for (var i=0; i object as follows: -// onDblClick="moveSelectedOptions(this,this.form.target) -// This way, when the user double-clicks on a value in one box, it -// will be transferred to the other (in browsers that support the -// onDblClick() event handler). -// ------------------------------------------------------------------- -function moveSelectedOptions(from,to) { - // Unselect matching options, if required - if (arguments.length>3) { - var regex = arguments[3]; - if (regex != "") { - unSelectMatchingOptions(from,regex); - } - } - // Move them over - if (!hasOptions(from)) { return; } - for (var i=0; i=0; i--) { - var o = from.options[i]; - if (o.selected) { - from.options[i] = null; - } - } - if ((arguments.length<3) || (arguments[2]==true)) { - sortSelect(from); - sortSelect(to); - } - from.selectedIndex = -1; - to.selectedIndex = -1; - } - -// ------------------------------------------------------------------- -// copySelectedOptions(select_object,select_object[,autosort(true/false)]) -// This function copies options between select boxes instead of -// moving items. Duplicates in the target list are not allowed. -// ------------------------------------------------------------------- -function copySelectedOptions(from,to) { - var options = new Object(); - if (hasOptions(to)) { - for (var i=0; i=0; i--) { - if (obj.options[i].selected) { - if (i != (obj.options.length-1) && ! obj.options[i+1].selected) { - swapOptions(obj,i,i+1); - obj.options[i+1].selected = true; - } - } - } - } - -// ------------------------------------------------------------------- -// removeSelectedOptions(select_object) -// Remove all selected options from a list -// (Thanks to Gene Ninestein) -// ------------------------------------------------------------------- -function removeSelectedOptions(from) { - if (!hasOptions(from)) { return; } - if (from.type=="select-one") { - from.options[from.selectedIndex] = null; - } - else { - for (var i=(from.options.length-1); i>=0; i--) { - var o=from.options[i]; - if (o.selected) { - from.options[i] = null; - } - } - } - from.selectedIndex = -1; - } - -// ------------------------------------------------------------------- -// removeAllOptions(select_object) -// Remove all options from a list -// ------------------------------------------------------------------- -function removeAllOptions(from) { - if (!hasOptions(from)) { return; } - for (var i=(from.options.length-1); i>=0; i--) { - from.options[i] = null; - } - from.selectedIndex = -1; - } - -// ------------------------------------------------------------------- -// addOption(select_object,display_text,value,selected) -// Add an option to a list -// ------------------------------------------------------------------- -function addOption(obj,text,value,selected) { - if (obj!=null && obj.options!=null) { - obj.options[obj.options.length] = new Option(text, value, false, selected); - } - } -'); -END selectbox_js; - - - -PROCEDURE templateRules_css IS -BEGIN - htp.p(' - #ruleListDiv { - width : 95%; - } - - .ruleTH { - text-align : center; - font-weight : normal; - height : 16px; - background-color : #D9D9D9; - border-left-width : 1px; - border-left-style : solid; - border-left-color : #F21C0A; - border-right-width : 1px; - border-right-style : solid; - border-right-color : #F21C0A; - border-top-width : 1px; - border-top-style : solid; - border-top-color : #F21C0A; - border-bottom-width : 1px; - border-bottom-style : solid; - border-bottom-color : #F21C0A; - } - - .ruleTHname { - text-align : center; - font-weight : normal; - height : 16px; - background-color : #D9D9D9; - border-left-width : 1px; - border-left-style : solid; - border-left-color : #F21C0A; - border-right-width : 1px; - border-right-style : solid; - border-right-color : #F21C0A; - border-top-width : 1px; - border-top-style : solid; - border-top-color : #F21C0A; - border-bottom-width : 1px; - border-bottom-style : solid; - border-bottom-color : #F21C0A; - width : 250px; - } - - .inhRuleTR { - background-color : #E6E6E6; - border-style : 1px solid; - } - - .ruleTR { - background-color : #FFFFFF; - border-style : 1px solid; - } - - .invalidRuleTR { - background-color : #FF9F98; - border-style : 1px solid; - } - - .updSeqInput { - background-color : #FFFFFF; - text-align : right; - width : 50px; - } - - .smallTextButton { - font-size : smaller; - } - - '); -END templateRules_css; - - - -PROCEDURE contractRules_css IS -BEGIN - htp.p(' - #ruleListDiv { - width : 95%; - } - - .ruleTH { - text-align : center; - font-weight : normal; - height : 16px; - background-color : #D9D9D9; - border-left-width : 1px; - border-left-style : solid; - border-left-color : #F21C0A; - border-right-width : 1px; - border-right-style : solid; - border-right-color : #F21C0A; - border-top-width : 1px; - border-top-style : solid; - border-top-color : #F21C0A; - border-bottom-width : 1px; - border-bottom-style : solid; - border-bottom-color : #F21C0A; - } - - .ruleTHname { - text-align : center; - font-weight : normal; - height : 16px; - background-color : #D9D9D9; - border-left-width : 1px; - border-left-style : solid; - border-left-color : #F21C0A; - border-right-width : 1px; - border-right-style : solid; - border-right-color : #F21C0A; - border-top-width : 1px; - border-top-style : solid; - border-top-color : #F21C0A; - border-bottom-width : 1px; - border-bottom-style : solid; - border-bottom-color : #F21C0A; - width : 250px; - } - - .inhRuleTR { - background-color : #E6E6E6; - border-style : 1px solid; - } - - .ruleTR { - background-color : #FFFFFF; - border-style : 1px solid; - } - - .invalidRuleTR { - background-color : #FF9F98; - border-style : 1px solid; - } - - .updSeqInput { - background-color : #FFFFFF; - text-align : right; - width : 50px; - } - - .smallTextButton { - font-size : smaller; - } - - '); -END contractRules_css; - - -PROCEDURE contractP2_css IS -BEGIN -htp.p(' - #nepoListDiv { - width : 170px; - float : left; - overflow-x : scroll; - } - - #cnppvDiv { - overflow-x : scroll; - overflow-y : hidden; - } - - * html body centrecontent{ /*IE6 hack*/ - padding: 175px 0 45px 0; /*Set value to (HeightOfTopFrameDiv 0 HeightOfBottomFrameDiv 0)*/ - } - - .cnppvNepoTable { - border : 1px solid; - } - - .cnppvNepoTH { - background-color : #D9D9D9; - text-align : center; - width : 165px; - border-left-width : 1px; - border-left-style : solid; - border-left-color : #F21C0A; - border-right-width : 1px; - border-right-style : solid; - border-right-color : #F21C0A; - border-top-width : 1px; - border-top-style : solid; - border-top-color : #F21C0A; - border-bottom-width : 1px; - border-bottom-style : solid; - border-bottom-color : #F21C0A; - font-weight : normal; - height : 48px; - } - - .cnppvNepoInput1 { - background-color : #FFFFFF; - color : #000000; - text-shadow : none; - text-decoration : none; - border-style : none; - width : 165px; - height : 16px; - padding : 0px; - margin : 0px; - } - - .cnppvNepoInput2 { - background-color : #F5F5F5; - color : #000000; - text-shadow : none; - text-decoration : none; - border-style : none; - width : 165px; - height : 16px; - padding : 0px; - margin : 0px; - } - - .cnppvTable { - border : 1px solid; - } - - .cnppvTH1 { - background-color : #D9D9D9; - text-align : center; - font-weight : normal; - border-left-width : 1px; - border-left-style : solid; - border-left-color : #F21C0A; - border-right-width : 1px; - border-right-style : solid; - border-right-color : #F21C0A; - border-top-width : 1px; - border-top-style : solid; - border-top-color : #F21C0A; - border-bottom-width : 1px; - border-bottom-style : solid; - border-bottom-color : #F21C0A; - height : 24px; - white-space : nowrap; - overflow : hidden; - } - - .cnppvTH { - background-color : #D9D9D9; - text-align : center; - //width : 140px; - font-weight : normal; - border-left-width : 1px; - border-left-style : solid; - border-left-color : #F21C0A; - border-right-width : 1px; - border-right-style : solid; - border-right-color : #F21C0A; - border-top-width : 1px; - border-top-style : solid; - border-top-color : #F21C0A; - border-bottom-width : 1px; - border-bottom-style : solid; - border-bottom-color : #F21C0A; - height : 24px; - white-space : nowrap; - overflow : hidden; - } - - .rowspanTH { - background-color : #D9D9D9; - text-align : center; - font-weight : normal; - border-left-width : 1px; - border-left-style : solid; - border-left-color : #F21C0A; - border-right-width : 1px; - border-right-style : solid; - border-right-color : #F21C0A; - border-top-width : 1px; - border-top-style : solid; - border-top-color : #F21C0A; - border-bottom-width : 1px; - border-bottom-style : solid; - border-bottom-color : #F21C0A; - white-space : nowrap; - overflow : hidden; - } - - - .cnppvTR1 { - background-color : #FFFFFF; - text-align : right; - border-style : none; - } - - .cnppvTR2 { - background-color : #F5F5F5; - text-align : right; - border-style : none; - } - - .cnppvInput1 { - background-color : #FFFFFF; - width : 80px; - text-align : right; - border-style : none; - height : 16px; - padding-top : 0px; - padding-left : 0px; - padding-right : 0px; - padding-bottom : 0px; - margin : 0px; - } - - .cnppvInput2 { - background-color : #F5F5F5; - width : 80px; - text-align : right; - border-style : none; - height : 16px; - padding-top : 0px; - padding-left : 0px; - padding-right : 0px; - padding-bottom : 0px; - margin : 0px; - } - - .cnppvError { - background-color : #FF9F98; - width : 80px; - text-align : right; - border-style : none; - height : 16px; - padding-top : 0px; - padding-left : 5px; - padding-right : 5px; - padding-bottom : 0px; - margin : 0px; - } - - * HTML #p_spreadsheet {height: 24px;} -'); -END contractP2_css; - - -PROCEDURE contractP1_css IS -BEGIN - -- - htp.p(' - #p_customer_id { - width : 250px; - } - #p_customer_name { - width : 250px; - } - #p_contract_number { - width : 250px; - } - #p_template_name { - width : 250px; - } - #p_template_desc { - width : 400px; - } - .contact { - width : 250px; - } - .datefield { - width : 80px; - } - .selectItemsDiv { - position : relative; - top : 10px; - float : left; - width : 270px; - border : 1px solid; - } - .selectBoxDiv { - height : 87px; - overflow : hide; - border : 1px solid; - } - .inheritedCat { - background-color : #E6E6E6; - } - .inheritedPar { - background-color : #E6E6E6; - } - .listTableHeadRow { - background-color : #D9D9D9; - border-left-width : 1px; - border-left-style : solid; - border-left-color : #F21C0A; - border-right-width : 1px; - border-right-style : solid; - border-right-color : #F21C0A; - border-top-width : 1px; - border-top-style : solid; - border-top-color : #F21C0A; - border-bottom-width : 1px; - border-bottom-style : solid; - border-bottom-color : #F21C0A; - } - .selectListWidth { - width : 264px; - } - .selectListWidthTH { - background-color : #D9D9D9; - border-left-width : 1px; - border-left-style : solid; - border-left-color : #F21C0A; - border-right-width : 1px; - border-right-style : solid; - border-right-color : #F21C0A; - border-top-width : 1px; - border-top-style : solid; - border-top-color : #F21C0A; - border-bottom-width : 1px; - border-bottom-style : solid; - border-bottom-color : #F21C0A; - } - - .selectListButtonTD { - text-align : center - } - .selectListButton { - font-size : smaller; - } - '); - -- -END contractP1_css; - - - -PROCEDURE display_lookback_action( p_lookback_action IN contracts.lookback_action%TYPE ) -IS -BEGIN - -- Validation Action - htp.p(' '||caco_utilities.get_module_text(2549)||''); -- Validation Action - htp.p(' - - -  '); - -- -END display_lookback_action; - - - - -PROCEDURE display_message( p_success IN VARCHAR2 - , p_error IN VARCHAR2 - , p_err_msg IN VARCHAR2 - , p_ins_or_upd IN VARCHAR2 ) -IS -BEGIN - -- - IF p_success = 'Y' THEN - -- Success! - htp.p(''||caco_utilities.get_module_text(876)||'

'); - ELSIF p_error = 'Y' THEN - htp.p(''); - IF p_ins_or_upd = 'INSERT' THEN - htp.p(caco_utilities.get_module_text(2334)); -- Insert failed - ELSE - htp.p(caco_utilities.get_module_text(2340)); -- Update failed - END IF; - htp.p('
'); - htp.p(''||p_err_msg||'

'); - ELSIF p_error = 'N' AND p_err_msg IS NOT NULL THEN - -- - -- Spreadsheet update failed - -- - htp.p(''); - htp.p(caco_utilities.get_module_text(2340)); -- Update failed - htp.p('
'); - htp.p(''||p_err_msg||'

'); - END IF; - -- -END display_message; - -PROCEDURE template_rules( p_template_id IN NUMBER - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL ) -IS - -- Cursor to get the contract number - CURSOR c_template IS - SELECT name - FROM contract_templates - WHERE cote_id = p_template_id; - -- - -- Cursor to list all the existing rules for this contract - CURSOR c_rules IS - SELECT cotr.display_sequence display_sequence - , rule.rule_name rule_name - , cotr.cotr_id cotr_id - , cotr.rule_id rule_id - FROM contract_template_rules cotr - , rules rule - WHERE rule.rule_id = cotr.rule_id - AND cotr.cote_id = p_template_id - ORDER BY display_sequence ASC - , rule_name ASC; - -- - -- Cursor to get all remaining ROW rules that could be added to the contract template - CURSOR c_possible_row_rules IS - SELECT rule_name - , rule_id - FROM rules rule - WHERE NOT EXISTS ( - SELECT 'X' - FROM contract_template_rules cotr - WHERE cotr.cote_id = p_template_id - AND cotr.rule_id = rule.rule_id - ) - ORDER BY rule_name; - -- - -- Cursor to determine if there are existing contracts with this template - CURSOR c_contracts_exist IS - SELECT 'X' - FROM contracts - WHERE cote_id = p_template_id; - -- - l_template_name contract_templates.name%TYPE; - l_rule_rec c_rules%ROWTYPE; - l_dummy VARCHAR2(1); - -- - l_temp_link VARCHAR2(255) := NULL; - l_upd_seq_link VARCHAR2(255) := NULL; - -- - l_dummy_nnpcv_tab efno_confirmations.nnpcv_tab; - l_dummy_nom_data_table efno_rules.nom_validation_table; - -- - l_success BOOLEAN := TRUE; - l_first_rule BOOLEAN := TRUE; - no_rules BOOLEAN := TRUE; - contracts_exist BOOLEAN := FALSE; - valid_rule BOOLEAN := TRUE; - -- -BEGIN - -- - OPEN c_template; - FETCH c_template INTO l_template_name; - IF c_template%NOTFOUND THEN - l_success := FALSE; - END IF; - CLOSE c_template; - -- - -- List out all the existing rules associated with this contract template - IF l_success THEN - -- Find out if any contracts already exist with this template - -- - OPEN c_contracts_exist; - FETCH c_contracts_exist INTO l_dummy; - IF c_contracts_exist%FOUND THEN - contracts_exist := TRUE; - END IF; - CLOSE c_contracts_exist; - -- - -- htp.p(''); - -- htp.p(''); - wsgl.openpagehead(caco_utilities.get_module_text(2099)); -- Maintain Contract Template Rules --- wsgl.metatag; --- htp.p('');'); - caco_system.content_type; - htp.p(''); - htp.p(' '); - htp.p(' '); - wsgl.closepagehead; - wsgl.openpagebody(FALSE); - htp.p(caco_system.menu); - -- - htp.p(' -
-
-

'||caco_utilities.get_module_text(2099)||'

'); -- Maintain Contract Template Rules - -- - -- Put out success or error messages from completed or failed update - display_message( p_success => p_success - , p_error => p_error - , p_err_msg => p_err_msg - , p_ins_or_upd => 'UPDATE' ); - -- - htp.p(' - - - '); -- Contract Template Name - htp.p(' - - -
'||caco_utilities.get_module_text(2090)||'  '||l_template_name||'
-

- '); - -- - -- Add button to allow creation of brand new ROW rule - -- The new Row rule will be available for all contracts/templates - l_temp_link := dad_path||'efnow080$.rule_startup'; - l_temp_link := l_temp_link||'?p_item_name_array=P_CATEGORY&p_item_value_array=TEMPLATE'; - l_temp_link := l_temp_link||'&p_item_name_array=P_TEMPLATE_ID&p_item_value_array='||p_template_id; - -- - htp.p(''); - -- - htp.p('

'); - -- - -- Current Contract Template Rules - htp.p('

'||caco_utilities.get_module_text(2102)||'

'); - -- - -- If contracts exist for this template, put a hidden input that can be used in javascript check routines - IF contracts_exist THEN - htp.p(''); - END IF; - - -- Now lets produce the list of existing Rules for this contract template in a table - -- Have we got any? - OPEN c_rules; - FETCH c_rules INTO l_rule_rec; - IF c_rules%FOUND THEN - no_rules := FALSE; - END IF; - CLOSE c_rules; - -- - IF no_rules THEN - -- No Rules attached to this contract template - htp.p('

'||caco_utilities.get_module_text(2279)||'

'); - -- - ELSE - -- Output the list of rules. - htp.p(' -
- - '); - htp.p(' '); -- Display Sequence - htp.p(' '); -- Rule Name - htp.p(' '); -- Edit - htp.p(' '); -- Delete - htp.p(' - '); - -- - FOR r IN c_rules LOOP - -- - l_temp_link := NULL; - l_upd_seq_link := NULL; - valid_rule := TRUE; - -- - -- Lets check if the rule is currently valid for the template - -- (user may have removed required categories) - valid_rule := efno_rules.validate_rule( p_rule_id => r.rule_id - , p_rule_type => 'ROW' - , p_parse_only => TRUE - , p_nnpcv_tab => l_dummy_nnpcv_tab - , p_nom_table => l_dummy_nom_data_table - , p_template_id => p_template_id ); - -- - IF valid_rule THEN - htp.p(''); - ELSE - htp.p(''); - END IF; - -- - htp.p(''); - -- - -- Build a link to enable update of sequence - call a js function with a URL to go to - l_upd_seq_link := 'validateSequence('||r.cotr_id||','''||dad_path - ||'efno_rules.upd_cotr_seq?p_template_id='||p_template_id - ||'&p_cotr_id='||r.cotr_id||'&p_sequence='');'; - -- - htp.p(''); - -- - htp.p(''); - -- - -- Build the href path - l_temp_link := dad_path||'efnow080$.rule_startup'; - l_temp_link := l_temp_link||'?p_item_name_array=P_CATEGORY&p_item_value_array=TEMPLATE'; - l_temp_link := l_temp_link||'&p_item_name_array=P_TEMPLATE_ID&p_item_value_array='||p_template_id; - l_temp_link := l_temp_link||'&p_item_name_array=P_RULE_ID&p_item_value_array='||r.rule_id; - -- - -- put out Edit link - htp.p(''); - -- - -- put out delete link - -- button with a call to javascript function to request a confirmation - htp.p(''); - -- - -- - IF valid_rule THEN - htp.p(''); - ELSE - htp.p(''); -- Invalid - END IF; - -- Finalise table row - htp.p(''); - -- - END LOOP; - -- - -- Close the table - htp.p('
'||caco_utilities.get_module_text(2031)||' '||caco_utilities.get_module_text(2106)||' '||caco_utilities.get_module_text(2008)||' '||caco_utilities.get_module_text(838)||'  
'||r.rule_name||'' - ||' '||caco_utilities.get_module_text(2041)||'
'); - -- - -- Close the ruleList div - htp.p('
'); - -- - END IF; - -- - htp.p('

'||caco_utilities.get_module_text(2326)||'

'); -- Add Existing Rules - -- - -- - -- Now have a selectbox with all the other possible rules listed - -- so the user can add rles one at a time - htp.p(''); - -- - -- put out an Add Rule button - l_temp_link := NULL; - l_temp_link := dad_path||'efno_rules.add_template_rule?p_template_id='||p_template_id||'&p_rule_id='; - -- - htp.p(''); - -- - -- Close the margin div - htp.p('
'); - -- - -- Close centrecontent div - htp.p(''); - -- - -- Close outer div - htp.p(''); - -- - wsgl.closepagebody; - -- - END IF; -- l_success - -- -END template_rules; - - - - -PROCEDURE contract_options_p(p_contract_id IN NUMBER, - p_success IN VARCHAR2 DEFAULT 'N', - p_error IN VARCHAR2 DEFAULT 'N', - p_err_msg IN VARCHAR2 DEFAULT NULL) IS - -- Cursor to get the contract number - CURSOR c_contract IS - SELECT contract_number FROM contracts WHERE cont_id = p_contract_id; - -- Cursor to get the contract options - CURSOR c_contract_options IS - SELECT cont_id, - nom_conf_subject, - nom_conf_content, - com_conf_subject, - com_conf_content, - auto_gen_conf, - conf_type, - ind_deadline_for_nom_submit, - shipper, - int_subject, - int_content, - int_sms_content - FROM contract_options - WHERE cont_id = p_contract_id; - CURSOR c_conf_type IS - SELECT rv_low_value, - rv_meaning - FROM cg_ref_codes - WHERE rv_domain = 'CONTRACT_OPTIONS.CONF_TYPE' - ORDER BY rv_meaning; - -- - -- - l_contract_options contract_options%ROWTYPE; - l_contract_number contracts.contract_number%TYPE; - -- - l_success BOOLEAN := TRUE; - l_options_found BOOLEAN := TRUE; - -- - l_cont_id contract_options.cont_id%TYPE; - l_nom_conf_subject contract_options.nom_conf_subject%TYPE; - l_nom_conf_content contract_options.nom_conf_content%TYPE; - l_com_conf_subject contract_options.com_conf_subject%TYPE; - l_com_conf_content contract_options.com_conf_content%TYPE; - l_auto_gen_conf contract_options.auto_gen_conf%TYPE; - l_conf_type contract_options.conf_type%TYPE; - l_ind_deadline_for_nom_submit contract_options.ind_deadline_for_nom_submit%TYPE; - l_ind_deadline_hr contract_options.ind_deadline_for_nom_submit%TYPE; - l_ind_deadline_mi contract_options.ind_deadline_for_nom_submit%TYPE; - l_shipper contract_options.shipper%TYPE; - l_int_subject contract_options.int_subject%TYPE; - l_int_content contract_options.int_content%TYPE; - l_int_sms_content contract_options.int_sms_content%TYPE; - -- - l_hours NUMBER; - l_minutes NUMBER; - l_char_hours contract_options.ind_deadline_for_nom_submit%TYPE; - l_char_minutes contract_options.ind_deadline_for_nom_submit%TYPE; -BEGIN - -- - -- Just to prove the contract exists - OPEN c_contract; - FETCH c_contract - INTO l_contract_number; - IF c_contract%NOTFOUND THEN - l_success := FALSE; - END IF; - CLOSE c_contract; - -- - -- List out all the existing rules associated with this contract - IF l_success THEN - -- htp.p(''); - -- htp.p(''); - wsgl.openpagehead(caco_utilities.get_module_text(3967)); -- Maintain Contract Options - -- wsgl.metatag; - --htp.p(''); - caco_system.content_type; - htp.p(''); - htp.p(' '); - htp.p(' '); - --htp.p(' '); - wsgl.closepagehead; - wsgl.openpagebody(FALSE); - htp.p(caco_system.menu); - -- - -- Now we get to actually build the page..... - -- ...which should prove interesting seeing as how this is a multipurpose page.... - htp.p('
-
'); - -- - htp.p('
'); - - -- - htp.p(' -
-
-

' || caco_utilities.get_module_text(3967) || - '

'); -- Maintain Contract Options - -- - -- Put out success or error messages from completed or failed update - display_message(p_success => p_success, p_error => p_error, - p_err_msg => p_err_msg, p_ins_or_upd => 'UPDATE'); - -- - htp.p(' - - '); -- Contract Number - htp.p(' - -
' || caco_utilities.get_module_text(2013) || - '  ' || l_contract_number || - '
'); - htp.p('

'); - htp.p(''); - -- - htp.p(''); - htp.p('

'); - -- - htp.p('
'); - -- - OPEN c_contract_options; - FETCH c_contract_options - INTO l_contract_options; - IF c_contract_options%NOTFOUND THEN - l_options_found := FALSE; - END IF; - -- - IF l_options_found THEN - l_cont_id := l_contract_options.cont_id; - l_nom_conf_subject := l_contract_options.nom_conf_subject; - l_nom_conf_content := l_contract_options.nom_conf_content; - l_com_conf_subject := l_contract_options.com_conf_subject; - l_com_conf_content := l_contract_options.com_conf_content; - l_auto_gen_conf := l_contract_options.auto_gen_conf; - l_conf_type := l_contract_options.conf_type; - l_ind_deadline_for_nom_submit := l_contract_options.ind_deadline_for_nom_submit; - IF l_ind_deadline_for_nom_submit IS NULL THEN - l_ind_deadline_hr := ''; - l_ind_deadline_mi := ''; - ELSE - l_ind_deadline_hr := substr(l_ind_deadline_for_nom_submit, 1, 2); - l_ind_deadline_mi := substr(l_ind_deadline_for_nom_submit, 4, 2); - END IF; - l_shipper := l_contract_options.shipper; - l_int_subject := l_contract_options.int_subject; - l_int_content := l_contract_options.int_content; - l_int_sms_content := l_contract_options.int_sms_content; - -- - htp.p(''); - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p('
'); - htp.p('' || caco_utilities.get_module_text(3556) || ''); -- Shipper - htp.p(''); - htp.p(''); - htp.p('
'); - htp.p('' || caco_utilities.get_module_text(2470) || ''); -- Auto Generate Confirmation - htp.p(''); - htp.p(''); - htp.p('
'); - htp.p('' || caco_utilities.get_module_text(2471) || ''); -- Confirmation Type - htp.p(''); - htp.p(''); - htp.p('
'); - htp.p('' || caco_utilities.get_module_text(2468) || ''); -- Com Confirmation Subject - htp.p(''); - htp.p(''); - htp.p('
'); - htp.p('' || caco_utilities.get_module_text(2469) || ''); -- Com Confirmation Content - htp.p(''); - htp.p(''); - htp.p('
'); - htp.p('' || caco_utilities.get_module_text(2466) || ''); -- Nom Confirmation Subject - htp.p(''); - htp.p(''); - htp.p('
'); - htp.p('' || caco_utilities.get_module_text(2467) || ''); -- Nom Confirmation Content - htp.p(''); - htp.p(''); - htp.p('
'); - htp.p('' || caco_utilities.get_module_text(2459) || ''); -- Ind Sub Deadline (Hours) - htp.p(''); - htp.p(''); - /* - htp.p(''); - */ - htp.p('
'); - htp.p('' || caco_utilities.get_module_text(2457) || ''); -- Ind Sub Deadline (Mins) - htp.p(''); - htp.p(''); - /* - htp.p(''); - */ - htp.p('
'); - htp.p('' || caco_utilities.get_module_text(3591) || ''); -- Interruption Subject - htp.p(''); - htp.p(''); - htp.p('
'); - htp.p('' || caco_utilities.get_module_text(3592) || ''); -- Interruption Content - htp.p(''); - htp.p(''); - htp.p('
'); - htp.p('' || caco_utilities.get_module_text(3593) || ''); -- Interruption SMS Content - htp.p(''); - htp.p(''); - htp.p('
'); - -- - htp.p('

''*''' || caco_utilities.get_module_text(2202) || - '

'); -- '*' Denotes a mandatory field - -- - htp.p(caco_utilities.get_module_text(3605)); - htp.p(caco_utilities.get_module_text(3606)); - htp.p('{CONFIRMATION_IDENTIFIER}{NOMINATION_IDENTIFIER}'); - htp.p('{GAS_DAY}{GAS_DAY_START}'); - htp.p('{NOMINATION_IDENTIFIER}{GAS_DAY_END}'); - htp.p('{TIMESTAMP}'); - htp.p(''); - htp.p(caco_utilities.get_module_text(3607)); - -- - END IF; - - CLOSE c_contract_options; - -- - -- - wsgl.closepagebody; - -- - END IF; -- l_success - -- -END contract_options_p; - - - -PROCEDURE contract_rules( p_contract_id IN NUMBER - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL ) -IS - -- Cursor to get the contract number - CURSOR c_contract IS - SELECT contract_number - FROM contracts - WHERE cont_id = p_contract_id; - -- - -- Cursor to get all remaining ROW rules that could be added to the rule - CURSOR c_possible_row_rules IS - SELECT rule_name - , rule_id - FROM rules rule - WHERE NOT EXISTS ( - SELECT 'X' - FROM contract_rules coru - WHERE coru.cont_id = p_contract_id - AND coru.rule_id = rule.rule_id - ) - ORDER BY rule_name; - -- - -- - l_contract_number contracts.contract_number%TYPE; - l_rule_rec efno_contracts.c_rules%ROWTYPE; - -- - l_temp_rule_id rules.rule_id%TYPE; - l_temp_link VARCHAR2(255) := NULL; - l_upd_seq_link VARCHAR2(255) := NULL; - -- - l_dummy_nnpcv_tab efno_confirmations.nnpcv_tab; - l_dummy_nom_data_table efno_rules.nom_validation_table; - -- - l_success BOOLEAN := TRUE; - l_first_rule BOOLEAN := TRUE; - no_rules BOOLEAN := TRUE; - valid_rule BOOLEAN := TRUE; - -- - -- -BEGIN - -- - OPEN c_contract; - FETCH c_contract INTO l_contract_number; - IF c_contract%NOTFOUND THEN - l_success := FALSE; - END IF; - CLOSE c_contract; - -- - -- List out all the existing rules associated with this contract - IF l_success THEN - -- htp.p(''); - -- htp.p(''); - wsgl.openpagehead(caco_utilities.get_module_text(2272)); -- Maintain Contract Rules - -- wsgl.metatag; - --htp.p(''); - caco_system.content_type; - htp.p(''); - htp.p(' '); - htp.p(' '); - wsgl.closepagehead; - wsgl.openpagebody(FALSE); - htp.p(caco_system.menu); - -- - htp.p(' -
-
-

'||caco_utilities.get_module_text(2272)||'

'); -- Maintain Contract Rules - -- - -- Put out success or error messages from completed or failed update - display_message( p_success => p_success - , p_error => p_error - , p_err_msg => p_err_msg - , p_ins_or_upd => 'UPDATE' ); - -- - htp.p(' - - - '); -- Contract Number - htp.p(' - -
'||caco_utilities.get_module_text(2013)||'  '||l_contract_number||'
-

- '); - -- - -- Add button to allow creation of brand new ROW or SHEET rule - -- (Row rule will be available for all contracts - Sheet rule is specific to this contract - l_temp_link := dad_path||'efnow080$.rule_startup'; - l_temp_link := l_temp_link||'?p_item_name_array=P_CATEGORY&p_item_value_array=CONTRACT'; - l_temp_link := l_temp_link||'&p_item_name_array=P_CONTRACT_ID&p_item_value_array='||p_contract_id; - -- - htp.p(''); - -- - htp.p('

'); - -- - htp.p('

'||caco_utilities.get_module_text(2238)||'

'); -- Current Contract Rules - -- - -- Now lets produce the list of existing Rules for this contract in a table - -- Have we got any? - OPEN efno_contracts.c_rules( p_contract_id ); - FETCH efno_contracts.c_rules INTO l_rule_rec; - IF efno_contracts.c_rules%FOUND THEN - no_rules := FALSE; - END IF; - CLOSE efno_contracts.c_rules; - -- - IF no_rules THEN - -- - htp.p('

'||caco_utilities.get_module_text(2279)||'

'); -- No Rules attached to this contract - -- - ELSE - -- Output the list of rules. - htp.p(' -
- - - '); -- Display Sequence - htp.p(' '); -- Rule Type - htp.p(' '); -- Rule Name - htp.p(' '); -- Edit - htp.p(' '); -- Delete - htp.p(' - '); - -- - FOR r IN efno_contracts.c_rules( p_contract_id ) LOOP - -- - l_temp_link := NULL; - l_upd_seq_link := NULL; - l_temp_rule_id := 0; - valid_rule := TRUE; - -- - -- Lets check if the rule is currently valid for the template - -- (user may have removed required categories) - IF r.rule_type = 'ROW' THEN - l_temp_rule_id := r.rule_id; - ELSE - l_temp_rule_id := r.coru_id; - END IF; - -- - valid_rule := efno_rules.validate_rule( p_rule_id => l_temp_rule_id - , p_rule_type => r.rule_type - , p_parse_only => TRUE - , p_nnpcv_tab => l_dummy_nnpcv_tab - , p_nom_table => l_dummy_nom_data_table - , p_contract_id => p_contract_id ); - -- - -- - IF r.inherited = 'Y' THEN - htp.p(''); - ELSIF valid_rule THEN - htp.p(''); - ELSE - htp.p(''); - END IF; - -- - htp.p(''); - -- - -- Build a link to enable update of sequence - call a js function with a URL to go to - l_upd_seq_link := 'validateSequence('||r.coru_id||','''||dad_path - ||'efno_rules.upd_coru_seq?p_contract_id='||p_contract_id - ||'&p_coru_id='||r.coru_id||'&p_sequence='');'; - -- - htp.p(''); - -- - htp.p(''); - htp.p(''); - -- - -- Build the href path for non-inherited rules - IF NVL(r.inherited,'N') != 'Y' THEN - l_temp_link := dad_path||'efnow080$.rule_startup'; - l_temp_link := l_temp_link||'?p_item_name_array=P_CATEGORY&p_item_value_array=CONTRACT'; - l_temp_link := l_temp_link||'&p_item_name_array=P_CONTRACT_ID&p_item_value_array='||p_contract_id; - -- - IF r.rule_id IS NULL THEN - l_temp_link := l_temp_link||'&p_item_name_array=P_CORU_ID&p_item_value_array='||r.coru_id; - ELSE - l_temp_link := l_temp_link||'&p_item_name_array=P_RULE_ID&p_item_value_array='||r.rule_id; - END IF; - -- - -- put out Edit link - htp.p(''); -- Edit - -- - ELSE - htp.p(''); - END IF; - -- - -- put out delete link - IF NVL(r.inherited,'N') = 'Y' THEN - htp.p(''); - ELSE - htp.p(''); -- Del - END IF; - -- - IF valid_rule THEN - htp.p(''); - ELSE - htp.p(''); -- Invalid - END IF; - -- - -- Finalise table row - htp.p(''); - -- - END LOOP; - -- - -- Close the table - htp.p('
'||caco_utilities.get_module_text(2031)||' '||caco_utilities.get_module_text(2126)||' '||caco_utilities.get_module_text(2106)||' '||caco_utilities.get_module_text(2008)||' '||caco_utilities.get_module_text(838)||'  
'||r.rule_type||''||r.rule_name||'   '||caco_utilities.get_module_text(2041)||'
'); - -- - -- Close the ruleList div - htp.p('
'); - -- - END IF; - -- - htp.p('

'||caco_utilities.get_module_text(2326)||'

'); -- Add Existing Rules - -- - -- - -- Now have a selectbox with all the other possible rules listed - -- so the user can add rles one at a time - htp.p(''); - -- - -- put out an Add Rule button - l_temp_link := NULL; - l_temp_link := dad_path||'efno_rules.add_contract_row_rule?p_contract_id='||p_contract_id||'&p_rule_id='; - -- - htp.p(''); - -- - -- Close the margin div - htp.p('
'); - -- - -- Close centrecontent div - htp.p('
'); - -- - -- Close outer div - htp.p('
'); - -- - wsgl.closepagebody; - -- - END IF; -- l_success - -- -END contract_rules; - -PROCEDURE contract_values_ro( p_contract_id IN NUMBER - , p_page_no IN NUMBER DEFAULT 1 - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL - , p_spreadsheet IN VARCHAR2 DEFAULT NULL - , p_cnppv_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_value IN owa_util.vc_arr DEFAULT g_vc_arr - , p_data_error IN owa_util.vc_arr DEFAULT g_vc_arr ) -IS - -- - -- Cursor to get the full contract details row - CURSOR c_contract IS - SELECT * - FROM contracts - WHERE cont_id = p_contract_id; - -- - l_contract_row contracts%ROWTYPE; - -- - CURSOR c_conp IS - SELECT conp.display_sequence display_sequence - , nepo.name netpoint_name - , conp.conp_id conp_id - , nepo.code netpoint_code - FROM cont_network_points conp - , network_points nepo - WHERE conp.nepo_id = nepo.nepo_id - AND conp.cont_id = p_contract_id - ORDER BY DECODE(nepo.nepo_type,'V',1,2),nepo.code; --nepo.name; - -- - CURSOR c_count_conp IS - SELECT COUNT(DISTINCT nepo_id) - FROM cont_network_points - WHERE cont_id = p_contract_id; - -- - CURSOR c_count_copa IS - SELECT COUNT(DISTINCT pars_id) - FROM contract_parameters - WHERE cont_id = p_contract_id; - -- - CURSOR c_copa IS - SELECT cate_name - , param_seq - , param_name - , display_sequence - , copa_id - FROM ( - SELECT REPLACE(REPLACE(cate.name,chr(13),''),chr(10),'')||' ('||cate.units||')' cate_name - , 'C' AS disp_type - , coca.display_sequence display_sequence - , DECODE( SUBSTR(UPPER(pars.code),-3) - , 'MIN', 'MIN' - , 'MAX', 'MAX' - , 'CTR', 'CTR' - , NULL ) param_seq - , DECODE( SUBSTR(UPPER(pars.code),-3) - , 'MIN', caco_utilities.get_module_text(2274) -- Minimum - , 'MAX', caco_utilities.get_module_text(2344) -- Maximum - , 'CTR', caco_utilities.get_module_text(2345) -- Contracted - , NULL ) param_name - , copa.copa_id copa_id - , coca.inherited - FROM contract_parameters copa - , contract_categories coca - , parameters pars - , categories cate - WHERE copa.pars_id = pars.pars_id - AND copa.cont_id = p_contract_id - AND coca.cont_id = p_contract_id - AND coca.cate_id = pars.cate_id - AND cate.cate_id = pars.cate_id - UNION ALL - SELECT REPLACE(REPLACE(pars.name,chr(13),''),chr(10),'') cate_name - , 'P' AS disp_type - , copa.display_sequence display_sequence - , NULL param_seq - , NULL param_name - , copa.copa_id copa_id - , copa.inherited - FROM contract_parameters copa - , parameters pars - WHERE copa.pars_id = pars.pars_id - AND copa.cont_id = p_contract_id - AND pars.cate_id IS NULL - ) - ORDER BY disp_type - , inherited desc - , DECODE(display_sequence,0,999999999999,display_sequence) ASC - , cate_name ASC - , param_seq DESC; - -- - CURSOR c_cnppv( cp_conp_id IN NUMBER - , cp_copa_id IN NUMBER ) IS - SELECT cnppv.cnppv_id cnppv_id - , cnppv.value cnppv_value - FROM cont_net_point_param_vals cnppv - WHERE conp_id = cp_conp_id - AND copa_id = cp_copa_id; - -- - CURSOR c_vnepo (cp_conp_id IN NUMBER) IS - SELECT 'Y' - FROM network_points nepo, - cont_network_points conp - WHERE conp.nepo_id = nepo.nepo_id - AND conp.conp_id = cp_conp_id - AND nepo.nepo_type = 'V'; - -- - CURSOR c_perc_split (cp_copa_id IN NUMBER) IS - SELECT 'Y' - FROM parameters pars, - contract_parameters copa - WHERE copa.pars_id = pars.pars_id - AND copa.copa_id = cp_copa_id - AND pars.name IN (g_perc_split_en, g_perc_split_hu); - -- - l_copa_rec c_copa%ROWTYPE; - l_prev_copa_rec c_copa%ROWTYPE; - -- - l_conp_id_array owa_util.num_arr; - l_copa_id_array owa_util.num_arr; - -- - l_input_class VARCHAR2(20); - l_cnppv_id NUMBER := 0; - l_cnppv_value NUMBER := 0; - l_prev_cate_pars NUMBER := 1; - -- - l_total_conp NUMBER := 0; - l_total_copa NUMBER := 0; - l_num_pages NUMBER := 0; - l_nepo_per_page CONSTANT NUMBER := 25; - l_conp_count NUMBER := 0; - l_all_conp_count NUMBER := 0; - l_copa_count NUMBER := 0; - l_error_cell_count NUMBER := 0; - -- - l_success BOOLEAN := TRUE; - -- - l_vnepo VARCHAR2(1); - l_perc_split VARCHAR2(1); - -- -BEGIN - -- - OPEN c_contract; - FETCH c_contract INTO l_contract_row; - IF c_contract%NOTFOUND THEN - l_success := FALSE; - END IF; - CLOSE c_contract; - -- - IF p_error = 'Y' THEN - -- - -- Here we need to ensure that the data passed to us is used correctly - IF NVL(p_cnppv_id.COUNT,0) > 0 - AND NVL(p_cnppv_id.COUNT,0) = NVL(p_value.COUNT,0) - AND NVL(p_cnppv_id.COUNT,0) = NVL(p_data_error.COUNT,0) - THEN - -- we have enough data - nothing to do - easier to test this way round? - NULL; - ELSE - -- a potential problem - l_success := FALSE; - -- - caco_debug.putline('efnow092$.contract_values_ro : Data passed to screen was invalid. Contract ID : '||p_contract_id); - -- - END IF; - -- - END IF; - -- - IF l_success THEN - -- htp.p(''); - -- htp.p(''); - wsgl.openpagehead(caco_utilities.get_module_text(3980)); -- View Contract Values - --wsgl.metatag; - --htp.p(''); - caco_system.content_type; - htp.p(''); - htp.p(' '); - htp.p(' '); - wsgl.closepagehead; - wsgl.openpagebody(FALSE); - htp.p(caco_system.menu); - -- - -- - OPEN c_count_conp; - FETCH c_count_conp INTO l_total_conp; - CLOSE c_count_conp; - -- - OPEN c_count_copa; - FETCH c_count_copa INTO l_total_copa; - CLOSE c_count_copa; - -- - -- Determine the number of pages that we are going to require for CNPPV - l_num_pages := CEIL( l_total_conp / l_nepo_per_page ); - -- - htp.p(' -
-
-

'||caco_utilities.get_module_text(3980)||'

'); -- View Contract Values - -- - -- Put out success or error messages from completed or failed update - display_message( p_success => p_success - , p_error => p_error - , p_err_msg => p_err_msg - , p_ins_or_upd => 'UPDATE' ); - -- - htp.p(' - - - '); -- Contract Number - htp.p(' - -
'||caco_utilities.get_module_text(2013)||'  '||l_contract_row.contract_number||'
-

'); - IF p_error = 'N' THEN - htp.p(''); - ELSE - htp.p(''); - END IF; --- htp.p(' '); - htp.p(' '); - htp.p(' '); --- htp.p(' '); - htp.p('
'); - htp.p('
'); - htp.p('

'); - htp.p('
-

'||caco_utilities.get_module_text(2276)||''); -- Network Point Parameter Values - -- - IF l_num_pages > 1 THEN - -- Need return links to this procedure to display different network points (due to 2000 paramter limit) - htp.p('   '||caco_utilities.get_module_text(2346)||':'); -- Page - FOR i IN 1..l_num_pages LOOP - -- - IF i = p_page_no THEN - htp.p(''||p_page_no||''); - ELSE - htp.p(''||i||''); - END IF; - -- - IF i < l_num_pages THEN - htp.p(',  '); - END IF; - -- - END LOOP; - -- - END IF; - -- - htp.p('

'); - -- - -- Now lets produce the list of Network points for this contract in a table - -- Make the header span two rows so that it is the same height as the values table - htp.p(' -
- - - '); -- Network Point - htp.p(' '); -- Network Code - htp.p(' '); - -- - FOR r IN c_conp LOOP - -- Store the list of Contract Network Point Ids - -- We will need them later for getting/setting the contract values - l_all_conp_count := l_all_conp_count + 1; - -- - IF l_all_conp_count > ((p_page_no - 1) * l_nepo_per_page) - AND l_all_conp_count <= ( p_page_no * l_nepo_per_page ) - THEN - l_conp_count := l_conp_count + 1; - l_conp_id_array(l_conp_count) := r.conp_id; - -- - IF MOD(l_conp_count,2) = 0 THEN - htp.p(' - '); - -- - -- Add network code - -- - IF MOD(l_conp_count,2) = 0 THEN - htp.p(' - '); - -- - END IF; - -- - END LOOP; - -- - htp.p(' -
'||caco_utilities.get_module_text(2023)||''||caco_utilities.get_module_text(1005)||'
-
'); - -- - -- End of the Network Points list - -- - -- Lets make a start on the values table - htp.p(' -
-
'); - -- - -- Output the contract Id and Page number as hidden inputs - htp.p(''); - htp.p(''); - -- - -- open the table for the cnppv values. - htp.p(' - '); - -- - -- - htp.p(''); - -- 1st Header Row... - OPEN c_copa; - FETCH c_copa INTO l_prev_copa_rec; - WHILE c_copa%FOUND LOOP - l_copa_rec := NULL; - FETCH c_copa INTO l_copa_rec; - -- - IF NVL(l_copa_rec.cate_name,'*$%()L*') != l_prev_copa_rec.cate_name THEN - -- - -- If we have a standalone parameter, then rowspan the headers - IF l_prev_copa_rec.param_name IS NULL THEN - htp.p(''); - l_prev_cate_pars := 1; - -- - ELSE - l_prev_cate_pars := l_prev_cate_pars + 1; - END IF; - -- - l_prev_copa_rec := l_copa_rec; - -- - END LOOP; - CLOSE c_copa; - htp.p(''); - -- - -- 2nd header row - htp.p(''); - FOR r IN c_copa LOOP - -- - l_copa_count := l_copa_count + 1; - l_copa_id_array(l_copa_count) := r.copa_id; - -- - -- NULL param name means that it has been accounted for in first loop. - IF r.param_name IS NOT NULL THEN - htp.p(''); - END IF; - -- - END LOOP; - htp.p(''); - -- - -- We need to do a row per network point of the same items as the header row. - <> - FOR i IN 1..l_conp_count LOOP - -- - IF MOD(i,2) = 0 THEN - htp.p(' - '); - -- - l_input_class := 'cnppvInput2'; - ELSE - htp.p(' - '); - -- - l_input_class := 'cnppvInput1'; - END IF; - -- - FOR j IN 1..l_copa_count LOOP - -- - IF p_error = 'N' THEN - -- - -- No problems - just show the details from the DB - -- - OPEN c_cnppv( l_conp_id_array(i), l_copa_id_array(j) ); - FETCH c_cnppv INTO l_cnppv_id, l_cnppv_value; - IF c_cnppv%NOTFOUND THEN - -- - -- This is a problem - the contract is not set up correctly - -- which is more than likely an undocumented "feature" of the system - -- output an error? Probably the best idea. - caco_debug.putline('efnow092$.contract_values_p2: ' - ||'Contract network Point Parameter Value not found: ' - ||' CONP_ID : '||l_conp_id_array(i) - ||' COPA_ID : '||l_copa_id_array(j) ); - -- - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Contract network Point Parameter Value not found: ' - ||' CONP_ID : '||l_conp_id_array(i) - ||' COPA_ID : '||l_copa_id_array(j) - , p_source => 'efnow092$.contract_values_p2'); - -- - -- An unexpected error has occurred. Please contact support - htp.p(''); - EXIT cnppv_details_loop; - -- - ELSE - -- We can output the values. - -- check if the contract is an entry mandatory offer contract - IF efno_contracts.emo_contract(p_contract_id) = 'Y' THEN - -- check if the network point is a virtual network point - OPEN c_vnepo(l_conp_id_array(i)); - FETCH c_vnepo INTO l_vnepo; - IF c_vnepo%FOUND THEN - l_vnepo := 'Y'; - l_perc_split := 'N'; - ELSE - l_vnepo := 'N'; - -- check if the parameter is Percentage Split - OPEN c_perc_split(l_copa_id_array(j)); - FETCH c_perc_split INTO l_perc_split; - IF c_perc_split%FOUND THEN - l_perc_split := 'Y'; - ELSE - l_perc_split := 'N'; - END IF; - CLOSE c_perc_split; - END IF; - CLOSE c_vnepo; - -- - -- need to disable any cnppv field which is not against a virtual network point - -- except those against Percentage Split values - htp.p(''); - ELSE - -- We need to create 2 input items for value one hidden and one disabled as - -- disabled input items don't get passed - htp.p(''); - htp.p(' '); - END IF; - -- - ELSE - htp.p(''); - -- - END IF; - END IF; - CLOSE c_cnppv; - -- - ELSE - l_error_cell_count := ((i-1) * l_copa_count) + j; - -- Recalled the screen with error - highlighting required. - IF p_data_error( l_error_cell_count ) = 'Y' THEN - htp.p(''); - ELSE - htp.p(''); - END IF; - -- - END IF; - -- - END LOOP; -- contract parameters loop - -- - htp.p(' - '); - -- - END LOOP cnppv_details_loop; -- contract network point loop - -- - -- - -- Close the CNPPV table - htp.p('
'||l_prev_copa_rec.cate_name||'
'||r.param_name||'
'); - IF l_vnepo = 'Y' OR l_perc_split = 'Y' THEN - htp.p(' '); - htp.p(' '); - htp.p(' '); - htp.p('
'); - -- - -- Close FORM contractFormP2 - htp.p('
'); - -- - -- Close the enclosing cnppvDiv - htp.p('
'); - -- - -- Close the margin div - htp.p('
'); - -- - -- Close centrecontent div - htp.p('
'); - -- - wsgl.closepagebody; - -- - END IF; -- l_success - -- -END contract_values_ro; - - - - -PROCEDURE contract_values_p2( p_contract_id IN NUMBER - , p_page_no IN NUMBER DEFAULT 1 - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL - , p_spreadsheet IN VARCHAR2 DEFAULT NULL - , p_cnppv_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_value IN owa_util.vc_arr DEFAULT g_vc_arr - , p_data_error IN owa_util.vc_arr DEFAULT g_vc_arr ) -IS - -- - -- Cursor to get the full contract details row - CURSOR c_contract IS - SELECT * - FROM contracts - WHERE cont_id = p_contract_id; - -- - l_contract_row contracts%ROWTYPE; - -- - CURSOR c_conp IS - SELECT conp.display_sequence display_sequence - , nepo.name netpoint_name - , conp.conp_id conp_id - , nepo.code netpoint_code - FROM cont_network_points conp - , network_points nepo - WHERE conp.nepo_id = nepo.nepo_id - AND conp.cont_id = p_contract_id - ORDER BY DECODE(nepo.nepo_type,'V',1,2),nepo.code; --nepo.name; - -- - CURSOR c_count_conp IS - SELECT COUNT(DISTINCT nepo_id) - FROM cont_network_points - WHERE cont_id = p_contract_id; - -- - CURSOR c_count_copa IS - SELECT COUNT(DISTINCT pars_id) - FROM contract_parameters - WHERE cont_id = p_contract_id; - -- - CURSOR c_copa IS - SELECT cate_name - , param_seq - , param_name - , display_sequence - , copa_id - FROM ( - SELECT REPLACE(REPLACE(cate.name,chr(13),''),chr(10),'')||' ('||cate.units||')' cate_name - , 'C' AS disp_type - , coca.display_sequence display_sequence - , DECODE( SUBSTR(UPPER(pars.code),-3) - , 'MIN', 'MIN' - , 'MAX', 'MAX' - , 'CTR', 'CTR' - , NULL ) param_seq - , DECODE( SUBSTR(UPPER(pars.code),-3) - , 'MIN', caco_utilities.get_module_text(2274) -- Minimum - , 'MAX', caco_utilities.get_module_text(2344) -- Maximum - , 'CTR', caco_utilities.get_module_text(2345) -- Contracted - , NULL ) param_name - , copa.copa_id copa_id - , coca.inherited - FROM contract_parameters copa - , contract_categories coca - , parameters pars - , categories cate - WHERE copa.pars_id = pars.pars_id - AND copa.cont_id = p_contract_id - AND coca.cont_id = p_contract_id - AND coca.cate_id = pars.cate_id - AND cate.cate_id = pars.cate_id - UNION ALL - SELECT REPLACE(REPLACE(pars.name,chr(13),''),chr(10),'') cate_name - , 'P' AS disp_type - , copa.display_sequence display_sequence - , NULL param_seq - , NULL param_name - , copa.copa_id copa_id - , copa.inherited - FROM contract_parameters copa - , parameters pars - WHERE copa.pars_id = pars.pars_id - AND copa.cont_id = p_contract_id - AND pars.cate_id IS NULL - ) - ORDER BY disp_type - , inherited desc - , DECODE(display_sequence,0,999999999999,display_sequence) ASC - , cate_name ASC - , param_seq DESC; - -- - CURSOR c_cnppv( cp_conp_id IN NUMBER - , cp_copa_id IN NUMBER ) IS - SELECT cnppv.cnppv_id cnppv_id - , cnppv.value cnppv_value - FROM cont_net_point_param_vals cnppv - WHERE conp_id = cp_conp_id - AND copa_id = cp_copa_id; - -- - CURSOR c_vnepo (cp_conp_id IN NUMBER) IS - SELECT 'Y' - FROM network_points nepo, - cont_network_points conp - WHERE conp.nepo_id = nepo.nepo_id - AND conp.conp_id = cp_conp_id - AND nepo.nepo_type = 'V'; - -- - CURSOR c_perc_split (cp_copa_id IN NUMBER) IS - SELECT 'Y' - FROM parameters pars, - contract_parameters copa - WHERE copa.pars_id = pars.pars_id - AND copa.copa_id = cp_copa_id - AND pars.name IN (g_perc_split_en, g_perc_split_hu); - -- - l_copa_rec c_copa%ROWTYPE; - l_prev_copa_rec c_copa%ROWTYPE; - -- - l_conp_id_array owa_util.num_arr; - l_copa_id_array owa_util.num_arr; - -- - l_input_class VARCHAR2(20); - l_cnppv_id NUMBER := 0; - l_cnppv_value NUMBER := 0; - l_prev_cate_pars NUMBER := 1; - -- - l_total_conp NUMBER := 0; - l_total_copa NUMBER := 0; - l_num_pages NUMBER := 0; - l_nepo_per_page CONSTANT NUMBER := 25; - l_conp_count NUMBER := 0; - l_all_conp_count NUMBER := 0; - l_copa_count NUMBER := 0; - l_error_cell_count NUMBER := 0; - -- - l_success BOOLEAN := TRUE; - -- - l_vnepo VARCHAR2(1); - l_perc_split VARCHAR2(1); - -- -BEGIN - -- - OPEN c_contract; - FETCH c_contract INTO l_contract_row; - IF c_contract%NOTFOUND THEN - l_success := FALSE; - END IF; - CLOSE c_contract; - -- - IF p_error = 'Y' THEN - -- - -- Here we need to ensure that the data passed to us is used correctly - IF NVL(p_cnppv_id.COUNT,0) > 0 - AND NVL(p_cnppv_id.COUNT,0) = NVL(p_value.COUNT,0) - AND NVL(p_cnppv_id.COUNT,0) = NVL(p_data_error.COUNT,0) - THEN - -- we have enough data - nothing to do - easier to test this way round? - NULL; - ELSE - -- a potential problem - l_success := FALSE; - -- - caco_debug.putline('efnow092$.contract_values_p2 : Data passed to screen was invalid. Contract ID : '||p_contract_id); - -- - END IF; - -- - END IF; - -- - IF l_success THEN - -- htp.p(''); - -- htp.p(''); - wsgl.openpagehead(caco_utilities.get_module_text(2273)); -- Maintain Contract Values - --wsgl.metatag; - --htp.p(''); - caco_system.content_type; - htp.p(''); - htp.p(' '); - htp.p(' '); - wsgl.closepagehead; - wsgl.openpagebody(FALSE); - htp.p(caco_system.menu); - -- - -- - OPEN c_count_conp; - FETCH c_count_conp INTO l_total_conp; - CLOSE c_count_conp; - -- - OPEN c_count_copa; - FETCH c_count_copa INTO l_total_copa; - CLOSE c_count_copa; - -- - -- Determine the number of pages that we are going to require for CNPPV - l_num_pages := CEIL( l_total_conp / l_nepo_per_page ); - -- - htp.p(' -
-
-

'||caco_utilities.get_module_text(2273)||'

'); -- Maintain Contract Values - -- - -- Put out success or error messages from completed or failed update - display_message( p_success => p_success - , p_error => p_error - , p_err_msg => p_err_msg - , p_ins_or_upd => 'UPDATE' ); - -- - htp.p(' - - - '); -- Contract Number - htp.p(' - -
'||caco_utilities.get_module_text(2013)||'  '||l_contract_row.contract_number||'
-

'); - IF p_error = 'N' THEN - htp.p(''); - ELSE - htp.p(''); - END IF; - htp.p(' '); - htp.p(' '); - htp.p(' '); - htp.p(' '); - htp.p('
'); - htp.p('
'); - htp.p('

'); - htp.p('
-

'||caco_utilities.get_module_text(2276)||''); -- Network Point Parameter Values - -- - IF l_num_pages > 1 THEN - -- Need return links to this procedure to display different network points (due to 2000 paramter limit) - htp.p('   '||caco_utilities.get_module_text(2346)||':'); -- Page - FOR i IN 1..l_num_pages LOOP - -- - IF i = p_page_no THEN - htp.p(''||p_page_no||''); - ELSE - htp.p(''||i||''); - END IF; - -- - IF i < l_num_pages THEN - htp.p(',  '); - END IF; - -- - END LOOP; - -- - END IF; - -- - htp.p('

'); - -- - -- Now lets produce the list of Network points for this contract in a table - -- Make the header span two rows so that it is the same height as the values table - htp.p(' -
- - - '); -- Network Point - htp.p(' '); -- Network Code - htp.p(' '); - -- - FOR r IN c_conp LOOP - -- Store the list of Contract Network Point Ids - -- We will need them later for getting/setting the contract values - l_all_conp_count := l_all_conp_count + 1; - -- - IF l_all_conp_count > ((p_page_no - 1) * l_nepo_per_page) - AND l_all_conp_count <= ( p_page_no * l_nepo_per_page ) - THEN - l_conp_count := l_conp_count + 1; - l_conp_id_array(l_conp_count) := r.conp_id; - -- - IF MOD(l_conp_count,2) = 0 THEN - htp.p(' - '); - -- - -- Add network code - -- - IF MOD(l_conp_count,2) = 0 THEN - htp.p(' - '); - -- - END IF; - -- - END LOOP; - -- - htp.p(' -
'||caco_utilities.get_module_text(2023)||''||caco_utilities.get_module_text(1005)||'
-
'); - -- - -- End of the Network Points list - -- - -- Lets make a start on the values table - htp.p(' -
-
'); - -- - -- Output the contract Id and Page number as hidden inputs - htp.p(''); - htp.p(''); - -- - -- open the table for the cnppv values. - htp.p(' - '); - -- - -- - htp.p(''); - -- 1st Header Row... - OPEN c_copa; - FETCH c_copa INTO l_prev_copa_rec; - WHILE c_copa%FOUND LOOP - l_copa_rec := NULL; - FETCH c_copa INTO l_copa_rec; - -- - IF NVL(l_copa_rec.cate_name,'*$%()L*') != l_prev_copa_rec.cate_name THEN - -- - -- If we have a standalone parameter, then rowspan the headers - IF l_prev_copa_rec.param_name IS NULL THEN - htp.p(''); - l_prev_cate_pars := 1; - -- - ELSE - l_prev_cate_pars := l_prev_cate_pars + 1; - END IF; - -- - l_prev_copa_rec := l_copa_rec; - -- - END LOOP; - CLOSE c_copa; - htp.p(''); - -- - -- 2nd header row - htp.p(''); - FOR r IN c_copa LOOP - -- - l_copa_count := l_copa_count + 1; - l_copa_id_array(l_copa_count) := r.copa_id; - -- - -- NULL param name means that it has been accounted for in first loop. - IF r.param_name IS NOT NULL THEN - htp.p(''); - END IF; - -- - END LOOP; - htp.p(''); - -- - -- We need to do a row per network point of the same items as the header row. - <> - FOR i IN 1..l_conp_count LOOP - -- - IF MOD(i,2) = 0 THEN - htp.p(' - '); - -- - l_input_class := 'cnppvInput2'; - ELSE - htp.p(' - '); - -- - l_input_class := 'cnppvInput1'; - END IF; - -- - FOR j IN 1..l_copa_count LOOP - -- - IF p_error = 'N' THEN - -- - -- No problems - just show the details from the DB - -- - OPEN c_cnppv( l_conp_id_array(i), l_copa_id_array(j) ); - FETCH c_cnppv INTO l_cnppv_id, l_cnppv_value; - IF c_cnppv%NOTFOUND THEN - -- - -- This is a problem - the contract is not set up correctly - -- which is more than likely an undocumented "feature" of the system - -- output an error? Probably the best idea. - caco_debug.putline('efnow092$.contract_values_p2: ' - ||'Contract network Point Parameter Value not found: ' - ||' CONP_ID : '||l_conp_id_array(i) - ||' COPA_ID : '||l_copa_id_array(j) ); - -- - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Contract network Point Parameter Value not found: ' - ||' CONP_ID : '||l_conp_id_array(i) - ||' COPA_ID : '||l_copa_id_array(j) - , p_source => 'efnow092$.contract_values_p2'); - -- - -- An unexpected error has occurred. Please contact support - htp.p(''); - EXIT cnppv_details_loop; - -- - ELSE - -- We can output the values. - -- check if the contract is an entry mandatory offer contract - IF efno_contracts.emo_contract(p_contract_id) = 'Y' THEN - -- check if the network point is a virtual network point - OPEN c_vnepo(l_conp_id_array(i)); - FETCH c_vnepo INTO l_vnepo; - IF c_vnepo%FOUND THEN - l_vnepo := 'Y'; - l_perc_split := 'N'; - ELSE - l_vnepo := 'N'; - -- check if the parameter is Percentage Split - OPEN c_perc_split(l_copa_id_array(j)); - FETCH c_perc_split INTO l_perc_split; - IF c_perc_split%FOUND THEN - l_perc_split := 'Y'; - ELSE - l_perc_split := 'N'; - END IF; - CLOSE c_perc_split; - END IF; - CLOSE c_vnepo; - -- - -- need to disable any cnppv field which is not against a virtual network point - -- except those against Percentage Split values - htp.p(''); - ELSE - -- We need to create 2 input items for value one hidden and one disabled as - -- disabled input items don't get passed - htp.p(''); - htp.p(' '); - END IF; - -- - ELSE - htp.p(''); - -- - END IF; - END IF; - CLOSE c_cnppv; - -- - ELSE - l_error_cell_count := ((i-1) * l_copa_count) + j; - -- Recalled the screen with error - highlighting required. - IF p_data_error( l_error_cell_count ) = 'Y' THEN - htp.p(''); - ELSE - htp.p(''); - END IF; - -- - END IF; - -- - END LOOP; -- contract parameters loop - -- - htp.p(' - '); - -- - END LOOP cnppv_details_loop; -- contract network point loop - -- - -- - -- Close the CNPPV table - htp.p('
'||l_prev_copa_rec.cate_name||'
'||r.param_name||'
'); - IF l_vnepo = 'Y' OR l_perc_split = 'Y' THEN - htp.p(' '); - htp.p(' '); - htp.p(' '); - htp.p('
'); - -- - -- Close FORM contractFormP2 - htp.p('
'); - -- - -- Close the enclosing cnppvDiv - htp.p('
'); - -- - -- Close the margin div - htp.p('
'); - -- - -- Close centrecontent div - htp.p(''); - -- - wsgl.closepagebody; - -- - END IF; -- l_success - -- -END contract_values_p2; - - - - -PROCEDURE write_page_header( p_screen_type IN VARCHAR2 - , p_inherited_cate IN VARCHAR2 - , p_inherited_pars IN VARCHAR2 ) -IS -BEGIN - -- - htp.p(' '); - -- -END write_page_header; - - - - - -PROCEDURE display_buttons( p_screen_type IN VARCHAR2 - , p_ins_or_upd IN VARCHAR2 - , p_contracts_exist IN BOOLEAN - , p_contract_id IN contracts.cont_id%TYPE - , p_template_id IN contract_templates.cote_id%TYPE - , p_template_changed IN VARCHAR2 - , p_success IN VARCHAR2 - , p_error IN VARCHAR2 ) -IS -BEGIN - -- Insert or Update Button - htp.p('

'); - htp.p(''); - ELSE - htp.p('onclick="submitPage1()" />'); - END IF; - -- - -- Contract "Set Values" (contract parameter values) Button - IF p_screen_type = 'CONTRACT' THEN - htp.p(' 0 - AND p_success != 'Y' ) - OR p_contract_id IS NULL - OR p_contract_id = 0 - OR p_template_changed = 'Y' - OR p_error = 'Y' - THEN - htp.p('disabled '); - END IF; - htp.p('onclick="checkForChanges(''VALUES'',''CONTRACT'',''' - ||dad_path||'efnow050$.contract_values_p2?p_contract_id='||p_contract_id||''');" />'); - -- - END IF; - -- - -- Rules Button - htp.p(' 0 - AND p_success != 'Y' ) - OR p_contract_id IS NULL - OR p_contract_id = 0 - OR p_template_changed = 'Y' - OR p_error = 'Y' - THEN - htp.p('disabled '); - END IF; - -- - htp.p('onclick="checkForChanges(''RULES'',''CONTRACT'',''' - ||dad_path||'efnow050$.contract_rules?p_contract_id='||p_contract_id||''');" />'); - -- - ELSE - -- Contract Template - IF ( p_template_id IS NOT NULL - AND p_template_id > 0 - AND p_success != 'Y' ) - OR p_template_id IS NULL - OR p_template_id = 0 - OR p_error = 'Y' - THEN - htp.p('disabled '); - END IF; - -- - htp.p('onclick="checkForChanges(''RULES'',''TEMPLATE'',''' - ||dad_path||'efnow050$.template_rules?p_template_id='||p_template_id||''');" />'); - -- - END IF; - -- - -- Options Button - htp.p(' 0 - AND p_success != 'Y' ) - OR p_contract_id IS NULL - OR p_contract_id = 0 - --OR p_template_changed = 'Y' - OR p_error = 'Y' - THEN - htp.p('disabled '); - END IF; - -- - htp.p('onclick="checkForChanges(''OPTIONS'',''CONTRACT'',''' - ||dad_path||'efnow050$.contract_options_p?p_contract_id='||p_contract_id||''');" />'); - -- - ELSE - -- Contract Template - htp.p('disabled '); - htp.p('onclick="checkForChanges(''OPTIONS'',''TEMPLATE'',''' - ||dad_path||'efnow050$.contract_options_p?p_contract_id='||p_contract_id||''');" />'); - -- - END IF; - htp.p('

'); - -- -END display_buttons; - - -PROCEDURE display_contract_number( p_contract_number IN VARCHAR2 ) -IS -BEGIN - -- - htp.p(' - - - '||caco_utilities.get_module_text(2013)||' *'); -- Contract Number - htp.p(' - - - -   - '); - -- -END display_contract_number; - - - -PROCEDURE display_prev_contract_number(p_cust_id IN NUMBER, - p_contract_id IN NUMBER, - p_pre_contract_id IN VARCHAR2) IS - -- AWG October 2010 - -- List of contracts that will have completed before the current contract starts - CURSOR c_pre_cont IS - SELECT cont_id, - contract_number - FROM contracts - WHERE cust_id = p_cust_id - AND valid_until < - (SELECT valid_from FROM contracts WHERE cont_id = p_contract_id) - ORDER BY valid_from DESC, - valid_until DESC; -BEGIN - -- - htp.p(' - - ' || caco_utilities.get_module_text(3961) || '  '); -- Previous Contract Number - htp.p(' - - -   - '); - - -- -END display_prev_contract_number; - - - -PROCEDURE display_contract_options(p_contract_id IN NUMBER, - p_contract_options IN contract_options%ROWTYPE) IS - -- AWG October 2010 - -- Contract Options relating to contact details previously part - -- of the CUSTOMERS table. -BEGIN - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- - htp.p(''); - -- -END display_contract_options; - - - -PROCEDURE display_customer( p_cust_id IN NUMBER ) -IS - -- Get all possible customers for the person logged in - CURSOR c_cust IS - SELECT cust.cust_id customer_id - , cust.name customer_name - FROM customers cust - , customer_intermediaries cuin - WHERE cust.cust_id = cuin.cust_id - AND ( EXISTS ( SELECT 1 - FROM customer_intermediaries cuin1 - , customers cust1 - , customer_types cuty - WHERE cuin.inte_id = cuin1.inte_id - AND cust1.cust_id = cuin1.cust_id - AND cust1.cuty_id = cuty.cuty_id - AND cuty.cuty_id = caco_utilities.cuty_id_for_user ) - OR caco_utilities.user_has_system = 'Y' ) - AND cuin.inte_id <> cout_system_configuration.get_configuration_item('INTE_ID') - GROUP BY cust.cust_id, cust.name - ORDER BY name; - -- -BEGIN - -- - htp.p(' - - '||caco_utilities.get_module_text(1145)||' *'); -- Customer Name - htp.p(' - - -   - '); - -- -END display_customer; - - - -PROCEDURE display_contract_template( p_template_id IN NUMBER ) -IS - -- Cursor to list all contract templates - CURSOR c_cote IS - SELECT cote_id template_id - , name template_name - FROM contract_templates - ORDER BY name; - -- -BEGIN - -- - -- Contract Template - htp.p(' - - - '||caco_utilities.get_module_text(2090)|| ' '); -- Contract Template Name - htp.p(' - '); - -- - -- Lets keep a hold of the currently selected value in this template list - htp.p(' '); - -- - htp.p(' - - '); - -- -END display_contract_template; - - - -PROCEDURE display_input_format( p_spte_id IN NUMBER ) -IS - -- Get all possible Spreadsheet templates for contracts - CURSOR c_spte IS - SELECT spte_id - , name - FROM spreadsheet_templates - WHERE spte_type = 'NOST' - ORDER BY name; - -- - CURSOR c_mtxt (c_text module_text.text%type) IS - SELECT text_number - FROM module_text - WHERE text = c_text; - - l_lang module_text.language%type := caco_utilities.get_syus_lang; - - CURSOR c_mtxt2 (c_text_number module_text.text_number%type) IS - SELECT text - FROM module_text - WHERE text_number = c_text_number - AND language = l_lang; - - l_text_number module_text.text_number%type; - l_text module_text.text%type; -BEGIN - -- - htp.p(' '||caco_utilities.get_module_text(2264)||' *'); -- Input Format - htp.p(' - - '); - -- -END display_input_format; - - - -PROCEDURE display_date_from( p_date_from IN VARCHAR2 ) -IS -BEGIN - -- Date From - htp.p(' - '||caco_utilities.get_module_text(2241)||' *'); -- Date From - htp.p(' - - - '); - -- - htp.p(wsgjsl.calbutton(field_name => 'p_date_from' - ,p_calbut => htf.img(curl => caco_system.images_path||'lov.gif' - ,calign => 'TOP' - ,cattributes => 'ALT="List Values" WIDTH=18 HEIGHT=22 BORDER') - ,field_format => cout_system_configuration.get_configuration_item('G_DATE_FORMAT') - ,p_field_prompt => caco_utilities.get_module_text(2241) )); -- Date From - -- - htp.p(' '); - -- -END display_date_from; - - - -PROCEDURE display_ops_contact( p_ops_contact IN VARCHAR2 ) -IS -BEGIN - -- OPS Contact - htp.p(' '||caco_utilities.get_module_text(2290)||' *'); -- Ops Contact - htp.p(' - - '); - -- -END display_ops_contact; - - - - -PROCEDURE display_date_to( p_date_to IN VARCHAR2 ) -IS -BEGIN - -- Date To - htp.p(' '||caco_utilities.get_module_text(2244)||' *'); -- Date To - htp.p(' - - - '); - -- - htp.p(wsgjsl.calbutton(field_name => 'p_date_to' - ,p_calbut => htf.img(curl => caco_system.images_path||'lov.gif' - ,calign => 'TOP' - ,cattributes => 'ALT="List Values" WIDTH=18 HEIGHT=22 BORDER') - ,field_format => cout_system_configuration.get_configuration_item('G_DATE_FORMAT') - ,p_field_prompt => caco_utilities.get_module_text(2244) )); - -- - htp.p(' '); - -- -END display_date_to; - - - -PROCEDURE display_bus_contact( p_bus_contact IN VARCHAR2 ) -IS -BEGIN - -- Business Contact - htp.p(' '||caco_utilities.get_module_text(2228)||' *'); -- Business Contact - htp.p(' - - '); - -- -END display_bus_contact; - - - -PROCEDURE display_val_window( p_val_window IN VARCHAR2 ) -IS -BEGIN - -- Validation Window - htp.p(' '||caco_utilities.get_module_text(2322)||' *'); -- Validation Window - htp.p(' - - -  '); - -- -END display_val_window; - -PROCEDURE display_days_before( p_days_before IN VARCHAR2 ) -IS -BEGIN - -- Days Before - htp.p(' '||caco_utilities.get_module_text(2248)||' *'); -- Days Before - htp.p(' - - '); - -- -END display_days_before; - - -PROCEDURE display_val_action( p_val_action IN VARCHAR2 ) -IS -BEGIN - -- Validation Action - htp.p(' '||caco_utilities.get_module_text(2318)||' *'); -- Validation Action - htp.p(' - - -  '); - -- -END display_val_action; - - - -PROCEDURE display_status( p_status IN VARCHAR2 ) -IS -BEGIN - -- Status - htp.p(' '||caco_utilities.get_module_text(2114)||' *'); -- Status - htp.p(' - - '); - -- -END display_status; - -PROCEDURE display_emo( p_flag IN VARCHAR2 ) -IS -BEGIN - -- Entry Mandatory Offer flag - htp.p(' '||caco_utilities.get_module_text(3912)||' *'); -- Entry Mandatory Offer - htp.p(' - - - -
- '); - -- -END display_emo; - -PROCEDURE display_val_exception( p_val_exception IN VARCHAR2 ) -IS -BEGIN - -- Validation Exception - htp.p(' '||caco_utilities.get_module_text(2320)||' *'); -- Validation Exception - htp.p(' - - -  '); - -- -END display_val_exception; - - -PROCEDURE display_template_info( p_template_id IN contract_templates.cote_id%TYPE - , p_template_name IN contract_templates.name%TYPE - , p_template_desc IN contract_templates.description%TYPE ) -IS -BEGIN - -- - htp.p(' - - - '||caco_utilities.get_module_text(2090)||' *'); -- Contract Template Name - htp.p(' - - - - - - - '||caco_utilities.get_module_text(20)||' *'); -- Description - htp.p(' - - - '); - -- -END display_template_info; - - - -PROCEDURE display_network_points( p_network_point_array IN network_point_array - , p_avail_net_points IN network_point_array ) -IS -BEGIN - -- Output the Network Points lists - htp.p(' -
- - - '); -- Network Points - htp.p(' - - - - - - - - - - - - -
'||caco_utilities.get_module_text(2277)||'
-
- -
-
- -
-
- -
-
- - -
-
'); - -- -END display_network_points; - - - - - -PROCEDURE display_categories( p_screen_type IN VARCHAR2 - , p_category_array IN category_array - , p_avail_categories IN category_array ) -IS -BEGIN - -- Output selected Categories and remaining available categories - htp.p(' -
- - - '); -- Categories - htp.p(' - - - - - - - - - - - - -
'||caco_utilities.get_module_text(2093)||'
-
- -
-
- -
-
- -
-
- -
-
'); - -- -END display_categories; - - - - -PROCEDURE display_parameters( p_screen_type IN VARCHAR2 - , p_parameter_array IN parameter_array - , p_avail_parameters IN parameter_array ) -IS -BEGIN - -- Output selected Parameters and remaining available parameters - htp.p(' -
- - - '); -- Parameters - htp.p(' - - - - - - - - - - - - -
'||caco_utilities.get_module_text(2094)||'
-
- -
-
- -
-
- -
-
- -
-
'); - -- -END display_parameters; - - - - - -PROCEDURE startup( p_screen_type IN VARCHAR2 DEFAULT 'CONTRACT' - , p_ins_or_upd IN VARCHAR2 DEFAULT 'INSERT' - , p_success IN VARCHAR2 DEFAULT NULL - , p_contract_id IN contracts.cont_id%TYPE DEFAULT 0 - , p_contract_number IN contracts.contract_number%TYPE DEFAULT NULL - , p_template_id IN contract_templates.cote_id%TYPE DEFAULT 0 - , p_template_name IN VARCHAR2 DEFAULT NULL - , p_template_desc IN VARCHAR2 DEFAULT NULL - , p_emo IN VARCHAR2 DEFAULT NULL - , p_customer_id IN customers.cust_id%TYPE DEFAULT 0 - , p_spte_id IN spreadsheet_templates.spte_id%TYPE DEFAULT 0 - , p_ops_contact IN VARCHAR2 DEFAULT NULL - , p_bus_contact IN VARCHAR2 DEFAULT NULL - , p_status IN contracts.status%TYPE DEFAULT NULL - , p_days_before IN VARCHAR2 DEFAULT NULL - , p_date_from IN VARCHAR2 DEFAULT NULL - , p_date_to IN VARCHAR2 DEFAULT NULL - , p_val_window IN VARCHAR2 DEFAULT 0 - , p_val_action IN contracts.validation_action%TYPE DEFAULT NULL - , p_val_exception IN contracts.validation_exception%TYPE DEFAULT NULL - , p_lookback_action IN contracts.lookback_action%TYPE DEFAULT NULL - , p_template_changed IN VARCHAR2 DEFAULT NULL - , p_prev_template_id IN NUMBER DEFAULT NULL - , p_error IN VARCHAR2 DEFAULT NULL - , p_err_msg IN VARCHAR2 DEFAULT NULL - , p_nepo_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_cate_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_pars_id IN owa_util.vc_arr DEFAULT g_vc_arr ) -IS - -- - -- Cursor used to determine if contracts exist for a given contract template - CURSOR c_cont_exists( cp_id IN NUMBER ) IS - SELECT 'X' - FROM contracts - WHERE cote_id = cp_id; - -- - l_ins_or_upd VARCHAR2(6) := 'INSERT'; - l_contract_id contracts.cont_id%TYPE := 0; - l_contract_number contracts.contract_number%TYPE := NULL; - l_prev_contract_id contracts.prev_cont_id%TYPE := 0; - l_template_id contract_templates.cote_id%TYPE := 0; - l_template_name VARCHAR2(2000) := NULL; - l_template_desc VARCHAR2(2000) := NULL; - l_customer_id contracts.cust_id%TYPE := 0; - l_spte_id contracts.spte_id%TYPE := 0; - l_ops_contact VARCHAR2(2000) := NULL; - l_bus_contact VARCHAR2(2000) := NULL; - l_status contracts.status%TYPE := NULL; - l_days_before VARCHAR2(255) := 60; - l_date_from VARCHAR2(12) := NULL; - l_date_to VARCHAR2(12) := NULL; - l_val_window VARCHAR2(2000) := NULL; - l_val_action contracts.validation_action%TYPE := 'B'; -- (I)gnore, (T)runcate or look(B)ack - l_val_exception contracts.validation_exception%TYPE := 'CO'; -- (CO)ntracted or (MI)nimum - -- - l_lookback_action contracts.lookback_action%TYPE := 'T'; --Tip nomination - -- - l_dummy_char VARCHAR2(1); - -- - l_contract_record contracts%ROWTYPE; - l_contract_options contract_options%ROWTYPE; - l_template_record contract_templates%ROWTYPE; - l_network_point_array network_point_array; - l_avail_net_points network_point_array; - l_category_array category_array; - l_avail_categories category_array; - l_parameter_array parameter_array; - l_avail_parameters parameter_array; - l_inherited_cate VARCHAR2(26000) := NULL; - l_inherited_pars VARCHAR2(26000) := NULL; - -- - l_onload_options VARCHAR2(255) := NULL; - -- - l_code_position VARCHAR2(4) := '0000'; - contracts_exist BOOLEAN := FALSE; - -- - l_emo_flag VARCHAR2(1) := NULL; - -- -BEGIN - -- - IF NOT caco_security.security_check(g_package_name) THEN - RETURN; - END IF; - -- - -- Ensure any passed parameters are correct - -- - IF p_error IS NOT NULL - AND p_error = 'Y' - THEN - l_code_position := '0010'; - -- - -- Here we have to build the screen from the originally submitted data - -- that has NOT been saved to the DB - -- - l_template_id := p_template_id; - -- - -- get the bits required for a contract (not template) - IF p_screen_type = 'CONTRACT' THEN - -- Lets deal with Network Points - -- There are probably many so lets create an array by searching the array - find_passed_net_points( p_nepo_id -- this is the passed in array of nepo_id's - , l_network_point_array ); - -- - -- Put all other contract parameters into local variables - l_ins_or_upd := p_ins_or_upd; - l_contract_id := p_contract_id; - l_contract_number := p_contract_number; - l_prev_contract_id := l_contract_record.prev_cont_id; - l_customer_id := p_customer_id; - l_spte_id := p_spte_id; - l_ops_contact := p_ops_contact; - l_bus_contact := p_bus_contact; - l_status := p_status; - l_days_before := p_days_before; - l_date_from := p_date_from; - l_date_to := p_date_to; - l_val_window := p_val_window; - l_val_action := p_val_action; - l_val_exception := p_val_exception; - l_lookback_action := p_lookback_action; - ELSE - l_template_name := p_template_name; - l_template_desc := p_template_desc; - l_emo_flag := p_emo; - END IF; - -- - l_code_position := '0020'; - -- Now lets deal with Categories - -- There are probably many so lets create an array by searching the array - find_passed_categories( p_cate_id - , p_template_id - , l_category_array ); - -- - l_code_position := '0030'; - -- Now lets deal with Parameters - -- There are probably many so lets create an array by searching the array - find_passed_parameters( p_pars_id - , p_template_id - , l_parameter_array ); - -- - ELSE - -- Was this a successful Insert or Update? - IF p_success = 'Y' THEN - l_code_position := '0500'; - -- Just grab the data from the DB using the Contract ID or Template Id - IF p_contract_id IS NOT NULL - AND p_contract_id > 0 - THEN - l_code_position := '0510'; - -- - l_ins_or_upd := 'UPDATE'; - -- - -- Get the details for the contract from the DB - -- - get_contract_details_p1( p_contract_id - , l_contract_record - , l_network_point_array - , l_category_array - , l_parameter_array ); - -- - l_code_position := '0520'; - -- More work required here to set the variables correctly... - l_contract_id := p_contract_id; - l_contract_number := l_contract_record.contract_number; - l_prev_contract_id := l_contract_record.prev_cont_id; - l_customer_id := l_contract_record.cust_id; - l_template_id := l_contract_record.cote_id; - l_spte_id := l_contract_record.spte_id; - l_ops_contact := l_contract_record.operations_contact; - l_bus_contact := l_contract_record.business_contact; - l_days_before := l_contract_record.receive_before_start; - l_date_from := TO_CHAR(l_contract_record.valid_from, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')); - l_date_to := TO_CHAR(l_contract_record.valid_until, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')); - l_status := l_contract_record.status; - l_val_window := l_contract_record.validation_window; - l_val_action := l_contract_record.validation_action; - l_val_exception := l_contract_record.validation_exception; - l_lookback_action := l_contract_record.lookback_action; - -- - -- If this is a newly created contract then it will be necessary - -- to create a default set of contract options. - set_contract_options( l_contract_id ); - -- - ELSIF p_template_id IS NOT NULL - AND p_template_id > 0 - THEN - l_code_position := '0530'; - -- - l_ins_or_upd := 'UPDATE'; - -- - -- Get the details for the contract template from the DB - -- - get_template_details_p1( p_template_id - , l_template_record - , l_category_array - , l_parameter_array ); - -- - l_code_position := '0540'; - -- More work required here to set the variables correctly... - l_template_id := l_template_record.cote_id; - l_template_name := l_template_record.name; - l_template_desc := l_template_record.description; - l_emo_flag := l_template_record.entry_mandatory_offer; - -- - ELSE - l_code_position := '0550'; - -- What happens if neither have been sent? - -- This shouldn't happen as success can only - -- come from the efno_contracts program units - NULL; - END IF; - -- - ELSE - l_code_position := '0700'; - -- Might be an internal call to update the contract template for a contract - -- or it may be a new insert/update - IF p_template_changed = 'Y' THEN - l_code_position := '0710'; - -- - IF p_screen_type = 'CONTRACT' THEN - l_code_position := '0720'; - -- - IF p_contract_id IS NOT NULL - AND p_contract_id > 0 - THEN - -- - l_ins_or_upd := 'UPDATE'; - -- - END IF; - -- - l_contract_id := p_contract_id; - l_contract_number := p_contract_number; - l_prev_contract_id := l_contract_record.prev_cont_id; - l_customer_id := p_customer_id; - l_template_id := p_template_id; - l_spte_id := p_spte_id; - l_ops_contact := p_ops_contact; - l_bus_contact := p_bus_contact; - l_days_before := p_days_before; - l_date_from := p_date_from; - l_date_to := p_date_to; - l_status := p_status; - l_val_window := p_val_window; - l_val_action := p_val_action; - l_val_exception := p_val_exception; - l_lookback_action := p_lookback_action; - -- - l_code_position := '0720'; - -- - find_passed_net_points( p_nepo_id - , l_network_point_array ); - -- - ELSE - l_code_position := '0730'; - -- Template - IF p_template_id IS NOT NULL - AND p_template_id > 0 - THEN - -- - l_ins_or_upd := 'UPDATE'; - l_template_id := p_template_id; - l_template_name := p_template_name; - l_template_desc := p_template_desc; - l_emo_flag := p_emo; - -- - END IF; - -- - END IF; -- end of contract or template IF - -- - l_code_position := '0750'; - -- - -- Get the passed categories and parameters if there are any - find_passed_categories( p_cate_id - , p_template_id - , l_category_array - , p_prev_template_id ); - -- - l_code_position := '0760'; - -- - find_passed_parameters( p_pars_id - , p_template_id - , l_parameter_array - , p_prev_template_id ); - -- - ELSE - l_code_position := '0800'; - -- Template not changed - real new or update. - IF p_screen_type = 'CONTRACT' THEN - l_code_position := '0810'; - -- - IF p_contract_id IS NOT NULL - AND p_contract_id > 0 - THEN - l_code_position := '0820'; - -- - l_ins_or_upd := 'UPDATE'; - -- - -- Get the details for the contract from the DB - get_contract_details_p1( p_contract_id - , l_contract_record - , l_network_point_array - , l_category_array - , l_parameter_array ); - -- - l_code_position := '0830'; - -- - l_contract_id := p_contract_id; - l_contract_number := l_contract_record.contract_number; - l_prev_contract_id := l_contract_record.prev_cont_id; - l_customer_id := l_contract_record.cust_id; - l_template_id := l_contract_record.cote_id; - l_spte_id := l_contract_record.spte_id; - l_ops_contact := l_contract_record.operations_contact; - l_bus_contact := l_contract_record.business_contact; - l_days_before := l_contract_record.receive_before_start; - l_date_from := TO_CHAR(l_contract_record.valid_from, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')); - l_date_to := TO_CHAR(l_contract_record.valid_until, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')); - l_status := l_contract_record.status; - l_val_window := l_contract_record.validation_window; - l_val_action := l_contract_record.validation_action; - l_val_exception := l_contract_record.validation_exception; - l_lookback_action := l_contract_record.lookback_action; - -- - END IF; - -- - ELSE - l_code_position := '0860'; - -- Template - IF p_template_id IS NOT NULL - AND p_template_id > 0 - THEN - l_code_position := '0870'; - -- - l_ins_or_upd := 'UPDATE'; - -- - -- Get the details for the contract template from the DB - -- - get_template_details_p1( p_template_id - , l_template_record - , l_category_array - , l_parameter_array ); - -- - l_template_id := l_template_record.cote_id; - l_template_name := l_template_record.name; - l_template_desc := l_template_record.description; - l_emo_flag := l_template_record.entry_mandatory_offer; - -- - END IF; - END IF; - -- - END IF; -- end of contract or template IF - -- - END IF; -- end of successful insert/update IF - -- - END IF; -- end of error screen build or ins/upd - -- - l_code_position := '0900'; - -- - -- If a contract, get all network points and then filter list to ensure that only - -- the unselected ones are left in the resultant array - IF p_screen_type = 'CONTRACT' THEN - l_code_position := '1000'; - -- - get_avail_net_points( l_network_point_array -- array of already selected network points - , l_avail_net_points ); -- returning list of remaining net points - -- - l_code_position := '1010'; - -- Build list of inherited categories (so we can set them as non-movable in list) - l_inherited_cate := inherited_categories( l_category_array ); - -- - l_code_position := '1020'; - -- Build list of inherited parameters (so we can set them as non-movable in list) - l_inherited_pars := inherited_parameters( l_parameter_array ); - -- Gather Contract Options - get_contract_options( l_contract_id - , l_contract_options ); - -- - ELSE - -- Need to check if contracts exist for the given template - OPEN c_cont_exists( l_template_id ); - FETCH c_cont_exists INTO l_dummy_char; - IF c_cont_exists%FOUND THEN - -- Contracts exist for the template - contracts_exist := TRUE; - END IF; - CLOSE c_cont_exists; - -- - END IF; - -- - l_code_position := '1100'; - -- - -- Get the list of categories that can still be selected for this contract or template - get_avail_categories( l_category_array -- already assigned - , l_avail_categories ); -- returned list of available categories - -- - l_code_position := '1110'; - -- - -- Get the list of parameters that can still be selected for this contract or template - get_avail_parameters( l_parameter_array -- already assigned - , l_avail_parameters ); -- returned list of available parameters - -- - -- - -- - -- htp.p(' '); - -- htp.p(' '); - -- - l_code_position := '2000'; - -- - IF p_screen_type = 'CONTRACT' THEN - wsgl.openpagehead(caco_utilities.get_module_text(2271)); -- Maintain Contract - ELSE - wsgl.openpagehead(caco_utilities.get_module_text(2089)); -- Maintain Contract Template - END IF; - -- - --wsgl.metatag; - --htp.p(''); - caco_system.content_type; - htp.p(''); - htp.p(' '); - htp.p(' '); - htp.p(' '); - htp.p(' '); - htp.p(' '); - -- - htp.p(wsgjsl.openscript); - wsgjsl.output_invoke_cal_js('efnow092$' - ,'scrollbars=no,resizable=no,width=320,height=350'); - htp.p(wsgjsl.closescript); - -- - write_page_header( p_screen_type => p_screen_type - , p_inherited_cate => l_inherited_cate - , p_inherited_pars => l_inherited_pars ); - -- - l_onload_options := 'onload="'; - IF p_screen_type = 'CONTRACT' THEN - l_onload_options := l_onload_options||'opt.init(document.getElementById(''contractFormP1'')); '; - l_onload_options := l_onload_options||'opt2.init(document.getElementById(''contractFormP1'')); opt3.init(document.getElementById(''contractFormP1''));"'; - ELSE - -- - -- Changed to remove autosort - -- - l_onload_options := l_onload_options||'opt2.init(document.getElementById(''contractFormP1'')); opt3.init(document.getElementById(''contractFormP1''));"'; - -- - END IF; - -- - wsgl.closepagehead; - wsgl.openpagebody(FALSE, l_onload_options ); - htp.p(caco_system.menu); - -- - -- - l_code_position := '2100'; - -- - -- Now we get to actually build the page..... - -- ...which should prove interesting seeing as how this is a multipurpose page.... - htp.p(' -
-
'); - ELSE - htp.p('action="efno_contracts.ins_or_upd_template_p1">'); - END IF; - -- - htp.p('
'); - -- - l_code_position := '2010'; - -- - -- Output a hidden input to track if changes have been made to any of the parameters - IF p_error = 'Y' - OR p_template_changed = 'Y' - THEN - -- Still don't want the user to go to P2 (or P3) if there was a problem... - htp.p(''); - ELSE - htp.p(''); - END IF; - -- - l_code_position := '2020'; - -- - -- Put out all remaining hidden fields - htp.p(''); - -- - IF p_screen_type = 'CONTRACT' THEN - htp.p(''); - htp.p(''); - ELSE - -- just need to know if contracts exist for the given template (if one is given! - IF contracts_exist THEN - htp.p(''); - END IF; - -- - END IF; - -- - l_code_position := '2030'; - -- - IF p_screen_type = 'CONTRACT' THEN - htp.p('

'||caco_utilities.get_module_text(2271)||'

'); -- Maintain Contract - ELSE - htp.p('

'||caco_utilities.get_module_text(2089)||'

'); -- Maintain Contract Template - END IF; - -- - l_code_position := '2040'; - -- - -- Put out success or error messages from completed or failed insert/update - display_message( p_success => p_success - , p_error => p_error - , p_err_msg => p_err_msg - , p_ins_or_upd => p_ins_or_upd ); - -- - l_code_position := '2050'; - -- - htp.p(' - '); - -- - IF p_screen_type = 'CONTRACT' THEN - l_code_position := '2500'; - -- - --display_contract_options( l_contract_id, l_contract_options ); - -- - display_contract_number( l_contract_number ); - -- - display_prev_contract_number( l_customer_id, l_contract_id, l_prev_contract_id ); - -- - display_customer( l_customer_id ); - -- - display_contract_template( l_template_id ); - -- - -- Horizontal line - to separate the above from the other minutiae - htp.p(' - - '); - -- - -- Input Format starts the next row of the table - htp.p(' '); - display_input_format( l_spte_id ); - -- - -- single table cell separator - htp.p(' '); - -- - display_date_from( l_date_from ); - -- End the row and start a new one - htp.p(' - '); - -- - display_ops_contact( l_ops_contact ); - -- - -- single table cell separator - htp.p(' '); - -- - display_date_to( l_date_to ); - -- - htp.p(' - '); - -- - display_bus_contact( l_bus_contact ); - -- - -- single table cell separator - htp.p(' '); - -- - display_val_window( l_val_window ); - -- - htp.p(' - '); - -- - display_days_before( l_days_before ); - -- - -- single table cell separator - htp.p(' '); - -- - display_val_action( l_val_action ); - -- - htp.p(' - '); - -- - display_status( l_status ); - -- - htp.p(' '); - -- - display_val_exception( l_val_exception ); - - htp.p(' - '); - -- - display_lookback_action( l_lookback_action ); - -- - htp.p(''); - -- - ELSE - l_code_position := '2700'; - -- Contract Template just requires the name and description - display_template_info( l_template_id - , l_template_name - , l_template_desc ); - -- - display_emo(l_emo_flag); - -- - END IF; - -- - -- Close the details table - htp.p('
 
 
 
 
 
'); - -- - htp.p('''*'''||caco_utilities.get_module_text(2202)||''); -- '*' Denotes a mandatory field - -- - l_code_position := '2800'; - -- - -- Top level details done - -- Now write out the various select lists - -- - IF p_screen_type = 'CONTRACT' THEN - htp.p('

'||caco_utilities.get_module_text(2353)||'

'); -- Contract Details - ELSE - htp.p('

'||caco_utilities.get_module_text(2091)||'

'); -- Contract Template Details - END IF; - -- - l_code_position := '2810'; - -- We need some buttons....required here due to CSS problems below the select lists. - display_buttons( p_screen_type => p_screen_type - , p_ins_or_upd => l_ins_or_upd - , p_contracts_exist => contracts_exist - , p_contract_id => p_contract_id - , p_template_id => p_template_id - , p_template_changed => p_template_changed - , p_success => p_success - , p_error => p_error ); - -- - l_code_position := '2820'; - -- - IF p_screen_type = 'CONTRACT' THEN - l_code_position := '2830'; - -- - display_network_points( l_network_point_array - , l_avail_net_points ); - -- - END IF; - -- - l_code_position := '2900'; - -- - -- Output the categories - display_categories( p_screen_type - , l_category_array - , l_avail_categories ); - -- - l_code_position := '2940'; - -- - -- Finally we can do the Parameters - display_parameters( p_screen_type - , l_parameter_array - , l_avail_parameters ); - -- - l_code_position := '3000'; - -- - htp.p(chr(10)||'
'); -- Close of div just inside - -- - -- Close contractFormP1 - htp.p('
'); - -- Close contractP1_border_div - htp.p('
'); - -- - -- Close centrecontent div - htp.p(''); - -- - wsgl.closepagebody; - -- -EXCEPTION - WHEN others THEN - caco_debug.putline('efnow092$.startup: ' - ||'Position in Code : '||l_code_position||' : '||chr(10) - ||sqlerrm(sqlcode)); - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Position in Code : '||l_code_position - ||' : '||chr(10)||sqlerrm(sqlcode) - , p_source => 'efnow092$.startup'); - -- - RAISE; -END startup; - -PROCEDURE export_to_excel ( p_contract_id IN NUMBER) IS - -- - -- - -- Cursor to get the full contract details row - CURSOR c_contract IS - SELECT * - FROM contracts - WHERE cont_id = p_contract_id; - -- - l_contract_row contracts%ROWTYPE; - -- - CURSOR c_conp IS - SELECT conp.display_sequence display_sequence - , nepo.name netpoint_name - , conp.conp_id conp_id - , nepo.code netpoint_code - FROM cont_network_points conp - , network_points nepo - WHERE conp.nepo_id = nepo.nepo_id - AND conp.cont_id = p_contract_id - ORDER BY nepo.code; --nepo.name; - -- - CURSOR c_copa IS - SELECT cate_name - , param_seq - , param_name - , display_sequence - , copa_id - FROM ( - SELECT REPLACE(REPLACE(cate.name,chr(13),''),chr(10),'')||' ('||cate.units||')' cate_name - , 'C' AS disp_type - , coca.display_sequence display_sequence - , DECODE( SUBSTR(UPPER(pars.code),-3) - , 'MIN', 'MIN' - , 'MAX', 'MAX' - , 'CTR', 'CTR' - , NULL ) param_seq - , DECODE( SUBSTR(UPPER(pars.code),-3) - , 'MIN', caco_utilities.get_module_text(2274) -- Minimum - , 'MAX', caco_utilities.get_module_text(2344) -- Maximum - , 'CTR', caco_utilities.get_module_text(2345) -- Contracted - , NULL ) param_name - , copa.copa_id copa_id - , coca.inherited - FROM contract_parameters copa - , contract_categories coca - , parameters pars - , categories cate - WHERE copa.pars_id = pars.pars_id - AND copa.cont_id = p_contract_id - AND coca.cont_id = p_contract_id - AND coca.cate_id = pars.cate_id - AND cate.cate_id = pars.cate_id - UNION ALL - SELECT REPLACE(REPLACE(pars.name,chr(13),''),chr(10),'') cate_name - , 'P' AS disp_type - , copa.display_sequence display_sequence - , NULL param_seq - , NULL param_name - , copa.copa_id copa_id - , copa.inherited - FROM contract_parameters copa - , parameters pars - WHERE copa.pars_id = pars.pars_id - AND copa.cont_id = p_contract_id - AND pars.cate_id IS NULL - ) - ORDER BY disp_type - , inherited desc - , DECODE(display_sequence,0,999999999999,display_sequence) ASC - , cate_name ASC - , param_seq DESC; - -- - CURSOR c_cnppv( cp_conp_id IN NUMBER - , cp_copa_id IN NUMBER ) IS - SELECT cnppv.cnppv_id cnppv_id - , cnppv.value cnppv_value - FROM cont_net_point_param_vals cnppv - WHERE conp_id = cp_conp_id - AND copa_id = cp_copa_id; - -- - l_copa_rec c_copa%ROWTYPE; - l_prev_copa_rec c_copa%ROWTYPE; - -- - l_conp_id_array owa_util.num_arr; - l_copa_id_array owa_util.num_arr; - -- - l_cnppv_id NUMBER := 0; - l_cnppv_value NUMBER := 0; - l_prev_cate_pars NUMBER := 1; - -- - l_conp_count NUMBER := 0; - l_coca_count NUMBER := 0; - l_copa_count NUMBER := 0; - -- - l_spreadsheet_id gtt_spreadsheet.spreadsheet_id%TYPE; - l_docu_id documents.docu_id%TYPE; - l_span NUMBER := 1; - l_extra_increment NUMBER := 0; - l_success BOOLEAN := TRUE; - -- - PROCEDURE insert_cell ( p_spreadsheet_id IN gtt_spreadsheet.spreadsheet_id%TYPE - , p_value IN VARCHAR2 - , p_datatype IN VARCHAR2 DEFAULT NULL - , p_col_width IN NUMBER DEFAULT NULL - , p_format_mask IN VARCHAR2 DEFAULT NULL - , p_x_axis IN VARCHAR2 - , p_y_axis IN NUMBER - , p_x_increment IN NUMBER DEFAULT 0 - , p_y_increment IN NUMBER DEFAULT 0 - , p_span IN NUMBER DEFAULT NULL - ) IS - -- - l_x_axis VARCHAR2(2) := NULL; - -- - BEGIN - -- - IF p_x_increment > 0 THEN - -- - IF (ASCII(p_x_axis)+p_x_increment) > 90 THEN - -- - l_x_axis := CHR(64+TRUNC(((ASCII(p_x_axis)+p_x_increment)-65)/26))||CHR(65+MOD((((ASCII(p_x_axis)+p_x_increment)-65)),26)); --65=A, 90=Z - -- - ELSE - -- - l_x_axis := CHR(ASCII(p_x_axis)+p_x_increment); - -- - END IF; - -- - END IF; - -- --- htp.p(NVL(l_x_axis,p_x_axis)||TO_CHAR( p_y_axis + p_y_increment)||':'||to_char(p_x_increment)||':'||TO_CHAR(MOD((((ASCII(p_x_axis)+p_x_increment)-65)),26))); - IF p_value IS NOT NULL THEN - INSERT INTO gtt_spreadsheet ( spreadsheet_id - , x_axis - , y_axis - , cell_value - , cell_datatype - , cell_format_mask - , cell_border - , cell_background - , cell_merge - , cell_font - , cell_fontsize - , cell_align - , col_width - , row_height - , cell_wrap - ) - VALUES ( p_spreadsheet_id - , NVL(l_x_axis,p_x_axis) - , p_y_axis + p_y_increment - , p_value - , p_datatype - , p_format_mask - , NULL - , NULL - , p_span - , NULL - , NULL - , NULL - , p_col_width - , NULL - , NULL - ); - -- - END IF; - -- - END insert_cell; - -- - BEGIN - -- - OPEN c_contract; - FETCH c_contract INTO l_contract_row; - IF c_contract%NOTFOUND THEN - l_success := FALSE; - END IF; - CLOSE c_contract; - -- - SELECT spte_seq.NEXTVAL - INTO l_spreadsheet_id - FROM DUAL; - -- - -- Network Point Headers - -- - insert_cell ( p_spreadsheet_id => l_spreadsheet_id - , p_value => caco_utilities.get_module_text(1006) -- Network Point Name - , p_x_axis => 'A' - , p_y_axis => 1 - ); - insert_cell ( p_spreadsheet_id => l_spreadsheet_id - , p_value => caco_utilities.get_module_text(1005) -- Network Point Code - , p_x_axis => 'B' - , p_y_axis => 1 - ); - -- - -- Network Points - -- - FOR r IN c_conp LOOP - -- - -- Add network point name - -- - l_conp_count := l_conp_count + 1; - l_conp_id_array(l_conp_count) := r.conp_id; - -- - insert_cell ( p_spreadsheet_id => l_spreadsheet_id - , p_value => r.netpoint_name - , p_x_axis => 'A' - , p_y_axis => 3 - , p_x_increment => 0 - , p_y_increment => l_conp_count - 1 - ); - -- - -- Add network code - -- - insert_cell ( p_spreadsheet_id => l_spreadsheet_id - , p_value => r.netpoint_code - , p_x_axis => 'B' - , p_y_axis => 3 - , p_x_increment => 0 - , p_y_increment => l_conp_count - 1 - ); - -- - END LOOP; - -- - -- Contract Categories - -- - OPEN c_copa; - FETCH c_copa INTO l_prev_copa_rec; - WHILE c_copa%FOUND LOOP - l_copa_rec := NULL; - FETCH c_copa INTO l_copa_rec; - -- - IF NVL(l_copa_rec.cate_name,'*$%()L*') != l_prev_copa_rec.cate_name THEN - -- - IF l_prev_cate_pars > 1 THEN - l_extra_increment := l_prev_cate_pars - 1; - END IF; - insert_cell ( p_spreadsheet_id => l_spreadsheet_id - , p_value => l_prev_copa_rec.cate_name - , p_x_axis => 'C' - , p_y_axis => 1 - , p_x_increment => l_coca_count + l_extra_increment - , p_y_increment => 0 - , p_span => l_span -1 - ); - l_coca_count := l_coca_count + l_prev_cate_pars; - l_prev_cate_pars := l_span; - l_span := 1; - -- - ELSE - l_span := l_span + 1; - END IF; - -- - l_prev_copa_rec := l_copa_rec; - -- - END LOOP; - CLOSE c_copa; - -- - insert_cell ( p_spreadsheet_id => l_spreadsheet_id - , p_value => '=' - , p_x_axis => 'C' - , p_y_axis => 1 - , p_x_increment => l_coca_count + l_extra_increment - ); - -- - -- Contract Parameter Headers - -- - FOR r IN c_copa LOOP - -- - l_copa_count := l_copa_count + 1; - l_copa_id_array(l_copa_count) := r.copa_id; - -- - insert_cell ( p_spreadsheet_id => l_spreadsheet_id - , p_value => r.param_name - , p_x_axis => 'C' - , p_y_axis => 2 - , p_x_increment => l_copa_count - 1 - , p_y_increment => 0 - ); - -- - END LOOP; - -- - insert_cell ( p_spreadsheet_id => l_spreadsheet_id - , p_value => ' ' - , p_x_axis => 'C' - , p_y_axis => 2 - , p_x_increment => l_copa_count + 1 - ); - -- - -- We need to do a row per network point of the same items as the header row. - -- - <> - FOR i IN 1..l_conp_count LOOP - -- - FOR j IN 1..l_copa_count LOOP - -- - OPEN c_cnppv( l_conp_id_array(i), l_copa_id_array(j) ); - FETCH c_cnppv INTO l_cnppv_id, l_cnppv_value; - IF c_cnppv%NOTFOUND THEN - -- - -- This is a problem - the contract is not set up correctly - -- which is more than likely an undocumented "feature" of the system - -- output an error? Probably the best idea. - caco_debug.putline('efnow092$.export_to_excel: ' - ||'Contract network Point Parameter Value not found: ' - ||' CONP_ID : '||l_conp_id_array(i) - ||' COPA_ID : '||l_copa_id_array(j) ); - -- - -- Write an error and carry on - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Contract network Point Parameter Value not found: ' - ||' CONP_ID : '||l_conp_id_array(i) - ||' COPA_ID : '||l_copa_id_array(j) - , p_source => 'efnow092$.export_to_excel'); - -- - -- An unexpected error has occurred. Please contact support - htp.p(caco_utilities.get_module_text(2330)); - EXIT cnppv_details_loop; - -- - ELSE - -- We can output the values. --- IF l_cnppv_value = TRUNC(l_cnppv_value) THEN - -- - -- Integer, treat as number - -- - insert_cell ( p_spreadsheet_id => l_spreadsheet_id - , p_value => l_cnppv_value - , p_datatype => 'N' - , p_format_mask => '#,##0' - , p_x_axis => 'C' - , p_y_axis => 3 - , p_x_increment => j-1 - , p_y_increment => i-1 - ); -/* -- - ELSE - -- - -- real number, treat as string - -- - insert_cell ( p_spreadsheet_id => l_spreadsheet_id - , p_value => l_cnppv_value - --, p_datatype => 'N' - --, p_format_mask => '0' - , p_x_axis => 'C' - , p_y_axis => 3 - , p_x_increment => j-1 - , p_y_increment => i-1 - ); - -- - END IF;*/ - -- - END IF; - CLOSE c_cnppv; - -- - -- - END LOOP; -- contract parameters loop - -- - insert_cell ( p_spreadsheet_id => l_spreadsheet_id - , p_value => ' ' - , p_x_axis => 'C' - , p_y_axis => 3 - , p_x_increment => l_copa_count + 1 - , p_y_increment => i-1 - ); - -- - END LOOP cnppv_details_loop; -- contract network point loop - -- - -- - -- - -- dbms_java.set_output(2000); - -- - -- - -- - l_docu_id := amfr_excel.j_writeworkbook( l_spreadsheet_id - , l_contract_row.contract_number - ); - -- - UPDATE documents docs - SET docs.name = l_contract_row.contract_number || '_' || docs.name - WHERE docs.docu_id = l_docu_id; - -- - amfr_excel.download(p_docu_id=>l_docu_id); - -- - -- Now remove the document - -- - DELETE - FROM documents d - WHERE d.docu_id = l_docu_id; - -- - EXCEPTION - WHEN OTHERS THEN - htp.p(SQLERRM); - cout_err.report_and_go; - END export_to_excel; - -- - PROCEDURE import_from_excel (p_contract_id IN NUMBER - ,p_spreadsheet IN VARCHAR2 DEFAULT NULL ) IS - -- - -- Cursor to get the full contract details row - -- - CURSOR c_contract IS - SELECT * - FROM contracts - WHERE cont_id = p_contract_id; - -- - l_contract_row contracts%ROWTYPE; - -- - CURSOR c_conp IS - SELECT conp.display_sequence display_sequence - , nepo.name netpoint_name - , conp.conp_id conp_id - , nepo.code netpoint_code - FROM cont_network_points conp - , network_points nepo - WHERE conp.nepo_id = nepo.nepo_id - AND conp.cont_id = p_contract_id - ORDER BY nepo.code; - -- - CURSOR c_copa IS - SELECT cate_name - , param_seq - , param_name - , display_sequence - , copa_id - FROM ( - SELECT REPLACE(REPLACE(cate.name,chr(13),''),chr(10),'')||' ('||cate.units||')' cate_name - , 'C' AS disp_type - , coca.display_sequence display_sequence - , DECODE( SUBSTR(UPPER(pars.code),-3) - , 'MIN', 'MIN' - , 'MAX', 'MAX' - , 'CTR', 'CTR' - , NULL ) param_seq - , DECODE( SUBSTR(UPPER(pars.code),-3) - , 'MIN', caco_utilities.get_module_text(2274) -- Minimum - , 'MAX', caco_utilities.get_module_text(2344) -- Maximum - , 'CTR', caco_utilities.get_module_text(2345) -- Contracted - , NULL ) param_name - , copa.copa_id copa_id - , coca.inherited - FROM contract_parameters copa - , contract_categories coca - , parameters pars - , categories cate - WHERE copa.pars_id = pars.pars_id - AND copa.cont_id = p_contract_id - AND coca.cont_id = p_contract_id - AND coca.cate_id = pars.cate_id - AND cate.cate_id = pars.cate_id - UNION ALL - SELECT REPLACE(REPLACE(pars.name,chr(13),''),chr(10),'') cate_name - , 'P' AS disp_type - , copa.display_sequence display_sequence - , NULL param_seq - , NULL param_name - , copa.copa_id copa_id - , copa.inherited - FROM contract_parameters copa - , parameters pars - WHERE copa.pars_id = pars.pars_id - AND copa.cont_id = p_contract_id - AND pars.cate_id IS NULL - ) - ORDER BY disp_type - , inherited desc - , DECODE(display_sequence,0,999999999999,display_sequence) ASC - , cate_name ASC - , param_seq DESC; - -- - CURSOR c_cnppv( cp_conp_id IN NUMBER - , cp_copa_id IN NUMBER ) IS - SELECT cnppv.cnppv_id cnppv_id - FROM cont_net_point_param_vals cnppv - WHERE conp_id = cp_conp_id - AND copa_id = cp_copa_id; - -- - TYPE array_type IS TABLE OF gtt_spreadsheet.cell_value%TYPE; - -- - l_copa_rec c_copa%ROWTYPE; - l_prev_copa_rec c_copa%ROWTYPE; - -- - l_conp_id_array owa_util.num_arr; - l_copa_id_array owa_util.num_arr; - -- - l_cnppv_id NUMBER := 0; - l_cnppv_value NUMBER := 0; - l_prev_cate_name categories.name%TYPE; - -- - l_conp_count NUMBER := 0; - l_coca_count NUMBER := 0; - l_copa_count NUMBER := 0; - l_copa_all_count NUMBER := 0; - l_cnppv_values_count NUMBER := 0; - l_cnppv_ids_count NUMBER := 0; - -- - l_spreadsheet_id gtt_spreadsheet.spreadsheet_id%TYPE; - l_docu_id documents.docu_id%TYPE; - l_span NUMBER := 1; - l_extra_increment NUMBER := 0; - l_success BOOLEAN := TRUE; - -- - l_gtsp_id gtt_spreadsheet.spreadsheet_id%TYPE; - l_valid BOOLEAN := TRUE; - -- - l_ss_nepo_names array_type := array_type(); - l_ss_nepo_codes array_type := array_type(); - l_db_nepo_names array_type := array_type(); - l_db_nepo_codes array_type := array_type(); - l_ss_cate_names array_type := array_type(); - l_db_cate_names array_type := array_type(); - l_ss_para_names array_type := array_type(); - l_db_para_names array_type := array_type(); - l_cnppv_values owa_util.vc_arr; - l_cnppv_ids owa_util.vc_arr; - -- - l_nepo_names_count NUMBER := 0; - l_nepo_codes_count NUMBER := 0; - l_cate_names_count NUMBER := 0; - l_para_names_count NUMBER := 0; - -- - -- print array procedure for testing - -- - PROCEDURE print_array (p_array array_type) IS - BEGIN - htp.p('
'); - FOR i IN 1..p_array.last LOOP - htp.p(i||':'||p_array(i)); - htp.p('
'); - END LOOP; - htp.p('------------------------'); - END; - -- - BEGIN - -- - $IF $$debug_on $THEN - caco_debug.debug_on; - $END - -- - caco_debug.putline('pp 1'); - -- - IF p_spreadsheet IS NULL THEN - -- - caco_debug.putline('Error point 1'); - l_valid := FALSE; - -- - ELSE - -- - caco_debug.putline('pp 2'); - FOR i IN ( SELECT docu.docu_id - FROM documents docu - WHERE docu.name = p_spreadsheet - ORDER BY docu_id DESC - ) LOOP - -- - -- Decode the document using the java routines - -- - BEGIN - -- - l_gtsp_id := amfr_excel.j_readworkbook(p_docu_id => i.docu_id); - -- - EXCEPTION - WHEN OTHERS THEN - -- - caco_debug.putline('Error point 2'); - -- - l_valid := FALSE; - -- - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => sqlerrm - ); - -- - l_valid := FALSE; - -- - END; - -- - caco_debug.putline('pp 3'); - -- - IF l_gtsp_id IS NOT NULL AND l_gtsp_id != 0 THEN - -- - -- Spreadheet appears to be OK, continue processing - -- - -- check network point names and codes - -- - caco_debug.putline('pp 4'); - -- - FOR i IN ( SELECT * - FROM gtt_spreadsheet gtts - WHERE gtts.spreadsheet_id = l_gtsp_id - AND x_axis IN ('A', 'B') - AND y_axis = 0) LOOP - -- - -- Check for changes in the static text title for network point name and network point code - -- - IF i.x_axis = 'A' AND NVL(i.cell_value,'NULL') <> caco_utilities.get_module_text(1006) THEN - -- - caco_debug.putline('Error point 2.3'); - -- - l_valid := FALSE; - -- - END IF; - -- - IF i.x_axis = 'B' AND NVL(i.cell_value,'NULL') <> caco_utilities.get_module_text(1005) THEN - -- - caco_debug.putline('Error point 2.6'); - -- - l_valid := FALSE; - -- - END IF; - -- - END LOOP; - -- - caco_debug.putline('pp 4.5'); - -- - FOR i IN ( SELECT * - FROM gtt_spreadsheet gtts - WHERE gtts.spreadsheet_id = l_gtsp_id - AND x_axis = 'A' - AND y_axis > 1) LOOP - -- - l_nepo_names_count := l_nepo_names_count + 1; - l_ss_nepo_names.EXTEND; - l_ss_nepo_names(l_nepo_names_count) := i.cell_value||l_nepo_names_count; - -- - END LOOP; - -- - caco_debug.putline('pp 5'); - FOR i IN ( SELECT * - FROM gtt_spreadsheet gtts - WHERE gtts.spreadsheet_id = l_gtsp_id - AND x_axis = 'B' - AND y_axis > 1) LOOP - -- - l_nepo_codes_count := l_nepo_codes_count + 1; - l_ss_nepo_codes.EXTEND; - l_ss_nepo_codes(l_nepo_codes_count) := i.cell_value||l_nepo_codes_count; - -- - END LOOP; - -- - caco_debug.putline('pp 6'); - FOR r IN c_conp LOOP - l_conp_count := l_conp_count + 1; - l_conp_id_array(l_conp_count) := r.conp_id; - l_db_nepo_names.EXTEND; - l_db_nepo_names(l_conp_count) := r.netpoint_name||l_conp_count; - l_db_nepo_codes.EXTEND; - l_db_nepo_codes(l_conp_count) := r.netpoint_code||l_conp_count; - END LOOP; - -- - caco_debug.putline('pp 7'); - IF l_ss_nepo_names != l_db_nepo_names OR - l_ss_nepo_codes != l_db_nepo_codes THEN - -- - caco_debug.putline('Error point 3'); - -- - l_valid := FALSE; - -- - END IF; - caco_debug.putline('pp 8'); - -- - -- check category names - -- - IF l_valid THEN - FOR i IN ( SELECT * - FROM gtt_spreadsheet gtts - WHERE gtts.spreadsheet_id = l_gtsp_id - AND x_axis NOT IN ('A','B') - AND y_axis = 0 - AND gtts.cell_value <> '=') LOOP - -- - l_cate_names_count := l_cate_names_count + 1; - l_ss_cate_names.EXTEND; - l_ss_cate_names(l_cate_names_count) := i.cell_value||l_cate_names_count; - -- - END LOOP; - -- - caco_debug.putline('pp 9'); - FOR r IN c_copa LOOP - -- - IF r.cate_name != l_prev_cate_name OR l_prev_cate_name IS NULL THEN - -- - l_coca_count := l_coca_count + 1; - l_db_cate_names.EXTEND; - l_db_cate_names(l_coca_count) := r.cate_name||l_coca_count; - l_prev_cate_name := r.cate_name; - -- - END IF; - -- - END LOOP; - -- - IF l_ss_cate_names != l_db_cate_names THEN - -- - caco_debug.putline('Error point 4'); - -- - l_valid := FALSE; - -- - END IF; - -- - END IF; - caco_debug.putline('pp 10'); - -- - -- check parameter names - -- - IF l_valid THEN - -- - FOR i IN ( SELECT * - FROM gtt_spreadsheet gtts - WHERE gtts.spreadsheet_id = l_gtsp_id - AND x_axis NOT IN ('A','B') - AND y_axis = 1 - AND cell_value <> ' ') LOOP - -- - l_para_names_count := l_para_names_count + 1; - l_ss_para_names.EXTEND; - l_ss_para_names(l_para_names_count) := i.cell_value||l_para_names_count; - -- - END LOOP; - -- - caco_debug.putline('pp 11'); - FOR r IN c_copa LOOP - -- - l_copa_all_count := l_copa_all_count + 1; - l_copa_id_array(l_copa_all_count) := r.copa_id; - IF r.param_name IS NOT NULL THEN - -- - l_copa_count := l_copa_count + 1; - l_db_para_names.EXTEND; - l_db_para_names(l_copa_count) := r.param_name||l_copa_count; - -- - END IF; - -- - END LOOP; - caco_debug.putline('pp 12'); - -- - IF l_ss_para_names != l_db_para_names THEN - -- - caco_debug.putline('Error point 5'); - -- - l_valid := FALSE; - -- - END IF; - -- - END IF; - caco_debug.putline('pp 13'); - -- - -- collect the spreadsheet cnppv values into an array - -- - IF l_valid THEN - -- - FOR i IN ( SELECT * - FROM gtt_spreadsheet gtts - WHERE gtts.spreadsheet_id = l_gtsp_id - AND x_axis NOT IN ('A','B') - AND y_axis > 1 - AND cell_value <> ' ' - ORDER BY gtts.y_axis - ,ASCII(gtts.x_axis)) LOOP - -- - l_cnppv_values_count := l_cnppv_values_count + 1; - -- - IF SUBSTR(i.cell_value, LENGTH(i.cell_value)-1) = '.0' THEN - l_cnppv_values(l_cnppv_values_count) := REPLACE(i.cell_value, '.0'); - ELSE - l_cnppv_values(l_cnppv_values_count) := i.cell_value; - END IF; - -- - END LOOP; - caco_debug.putline('pp 14'); - -- - -- collect the correspomding database cnppv ids into an array - -- - <> - FOR i IN 1..l_conp_count LOOP - -- - FOR j IN 1..l_copa_all_count LOOP - -- - OPEN c_cnppv( l_conp_id_array(i), l_copa_id_array(j) ); - FETCH c_cnppv INTO l_cnppv_id; - IF c_cnppv%NOTFOUND THEN - -- - -- This is a problem - the contract is not set up correctly - -- which is more than likely an undocumented "feature" of the system - -- output an error? Probably the best idea. - -- - caco_debug.putline('efnow092$.import_from_excel: ' - ||'Contract network Point Parameter Value not found: ' - ||' CONP_ID : '||l_conp_id_array(i) - ||' COPA_ID : '||l_copa_id_array(j) ); - -- - -- Write an error and carry on - -- - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => 'Contract network Point Parameter Value not found: ' - ||' CONP_ID : '||l_conp_id_array(i) - ||' COPA_ID : '||l_copa_id_array(j) - , p_source => 'efnow092$.import_from_excel'); - -- - -- An unexpected error has occurred. Please contact support - -- - htp.p(caco_utilities.get_module_text(2330)); - EXIT cnppv_details_loop; - -- - ELSE - l_cnppv_ids_count := l_cnppv_ids_count + 1; - l_cnppv_ids(l_cnppv_ids_count) := l_cnppv_id; - END IF; - CLOSE c_cnppv; - -- - -- - END LOOP; -- contract parameters loop - -- - -- - END LOOP cnppv_details_loop; -- contract network point loop - -- - -- check that the counts match - -- - IF l_cnppv_values.count != l_cnppv_ids.count THEN - caco_debug.putline('Error point 7'); - l_valid := FALSE; - END IF; - -- - END IF; - caco_debug.putline('pp 15'); - -- - -- insert the spreadsheet values - -- - IF l_valid THEN - -- - -- remove thousand separators from val array - -- - l_cnppv_values := caco_utilities.thousand_separated_to_char(l_cnppv_values); - -- - efno_contracts.upd_cnppv_records( p_contract_id => p_contract_id - , p_cnppv_id => l_cnppv_ids - , p_value => l_cnppv_values - ); - -- - END IF; - -- - ELSE - -- - -- File doesn't appear to be in the correct format (that is, a spreadsheet) - -- - caco_debug.putline('Error point 8'); - l_valid := FALSE; - -- - END IF; - -- - EXIT; - -- - END LOOP; - -- - IF NOT l_valid THEN - -- - -- Invalid, something went wrong, redisplay the screen - -- - contract_values_p2 ( p_contract_id => p_contract_id - , p_error => 'N' - , p_success => 'N' - , p_err_msg => caco_utilities.get_module_text(3864) - ); - -- - END IF; - -- - END IF; - -- - EXCEPTION - WHEN OTHERS THEN - cout_err.report_and_go; - END import_from_excel; - /** - -- FUNCTION about - -- - -- Returns the version number and VSS header for this package - -- - -- %return The version number and VSS header for this package - */ - FUNCTION about RETURN VARCHAR2 IS - BEGIN - RETURN ( g_package_name || CHR(10) ||g_revision||chr(10)|| g_header ); - END about; - -- -BEGIN - -- - NULL; - -- -END EFNOW092$; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow092$.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow092$.spc deleted file mode 100644 index 7b34410..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow092$.spc +++ /dev/null @@ -1,135 +0,0 @@ -CREATE OR REPLACE PACKAGE efnow092$ IS - -- - g_package_name VARCHAR2(15) := 'efnow092$'; - g_title CONSTANT VARCHAR2(50) := caco_utilities.get_module_text(2271); -- Maintain Contract - g_header CONSTANT VARCHAR2(160) := '$Header: $'; - g_revision CONSTANT VARCHAR2(160) := '$Revision: $ Patch 0.3'; - -- - -- - g_vc_arr owa_util.vc_arr; - g_num_arr owa_util.num_arr; - -- - g_perc_split_en module_text.text%TYPE := caco_utilities.get_module_text(3921,'EN'); - g_perc_split_hu module_text.text%TYPE := caco_utilities.get_module_text(3921,'HU'); - -- - TYPE network_point_record IS RECORD ( nepo_id network_points.nepo_id%TYPE - , name network_points.name%TYPE ); - -- - TYPE network_point_array IS TABLE OF network_point_record INDEX BY BINARY_INTEGER; - -- - TYPE category_record IS RECORD ( cate_id categories.cate_id%TYPE - , name VARCHAR2(200) - , inherited VARCHAR2(1) ); - -- - TYPE category_array IS TABLE OF category_record INDEX BY BINARY_INTEGER; - -- - TYPE parameter_record IS RECORD ( pars_id parameters.pars_id%TYPE - , name parameters.name%TYPE - , inherited VARCHAR2(1) ); - -- - TYPE parameter_array IS TABLE OF parameter_record INDEX BY BINARY_INTEGER; - -- - -- - /** - -- Generic procedures for the date LOV, same as designer generated code - */ - PROCEDURE calendar( z_field_name IN VARCHAR2 - , z_caller_url IN VARCHAR2 - , z_field_value IN VARCHAR2 DEFAULT NULL - , z_field_format IN VARCHAR2 DEFAULT NULL - , z_field_prompt IN VARCHAR2 DEFAULT NULL ); - -- - PROCEDURE format_cal_date( z_field_name IN VARCHAR2 - , z_field_format IN VARCHAR2 - , DAY IN VARCHAR2 - , MONTH IN VARCHAR2 - , YEAR IN VARCHAR2 ); - -- - -- - PROCEDURE optiontransfer_js; - PROCEDURE autocomplete_js; - PROCEDURE selectbox_js; - PROCEDURE contract_js; - PROCEDURE contractP2_js; - PROCEDURE contractRules_js; - PROCEDURE templateRules_js; - -- - PROCEDURE contractP1_css; - PROCEDURE contractP2_css; - PROCEDURE contractRules_css; - PROCEDURE templateRules_css; - -- - PROCEDURE template_rules( p_template_id IN NUMBER - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL ); - -- - PROCEDURE contract_options_P( p_contract_id IN NUMBER - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL ); - -- - PROCEDURE contract_rules( p_contract_id IN NUMBER - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL ); - -- -PROCEDURE contract_values_ro( p_contract_id IN NUMBER - , p_page_no IN NUMBER DEFAULT 1 - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL - , p_spreadsheet IN VARCHAR2 DEFAULT NULL - , p_cnppv_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_value IN owa_util.vc_arr DEFAULT g_vc_arr - , p_data_error IN owa_util.vc_arr DEFAULT g_vc_arr ); - -- -PROCEDURE contract_values_p2( p_contract_id IN NUMBER - , p_page_no IN NUMBER DEFAULT 1 - , p_success IN VARCHAR2 DEFAULT 'N' - , p_error IN VARCHAR2 DEFAULT 'N' - , p_err_msg IN VARCHAR2 DEFAULT NULL - , p_spreadsheet IN VARCHAR2 DEFAULT NULL - , p_cnppv_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_value IN owa_util.vc_arr DEFAULT g_vc_arr - , p_data_error IN owa_util.vc_arr DEFAULT g_vc_arr ); - -- - -- -PROCEDURE startup( p_screen_type IN VARCHAR2 DEFAULT 'CONTRACT' - , p_ins_or_upd IN VARCHAR2 DEFAULT 'INSERT' - , p_success IN VARCHAR2 DEFAULT NULL - , p_contract_id IN contracts.cont_id%TYPE DEFAULT 0 - , p_contract_number IN contracts.contract_number%TYPE DEFAULT NULL - , p_template_id IN contract_templates.cote_id%TYPE DEFAULT 0 - , p_template_name IN VARCHAR2 DEFAULT NULL - , p_template_desc IN VARCHAR2 DEFAULT NULL - , p_emo IN VARCHAR2 DEFAULT NULL - , p_customer_id IN customers.cust_id%TYPE DEFAULT 0 - , p_spte_id IN spreadsheet_templates.spte_id%TYPE DEFAULT 0 - , p_ops_contact IN VARCHAR2 DEFAULT NULL - , p_bus_contact IN VARCHAR2 DEFAULT NULL - , p_status IN contracts.status%TYPE DEFAULT NULL - , p_days_before IN VARCHAR2 DEFAULT NULL - , p_date_from IN VARCHAR2 DEFAULT NULL - , p_date_to IN VARCHAR2 DEFAULT NULL - , p_val_window IN VARCHAR2 DEFAULT 0 - , p_val_action IN contracts.validation_action%TYPE DEFAULT NULL - , p_val_exception IN contracts.validation_exception%TYPE DEFAULT NULL - , p_lookback_action IN contracts.lookback_action%TYPE DEFAULT NULL - , p_template_changed IN VARCHAR2 DEFAULT NULL - , p_prev_template_id IN NUMBER DEFAULT NULL - , p_error IN VARCHAR2 DEFAULT NULL - , p_err_msg IN VARCHAR2 DEFAULT NULL - , p_nepo_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_cate_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_pars_id IN owa_util.vc_arr DEFAULT g_vc_arr ); - -- - PROCEDURE export_to_excel ( p_contract_id IN NUMBER); - -- - PROCEDURE import_from_excel (p_contract_id IN NUMBER - ,p_spreadsheet IN VARCHAR2 DEFAULT NULL ); - -- - FUNCTION about RETURN VARCHAR2; - -- -END EFNOW092$; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow095$.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow095$.bdy deleted file mode 100644 index 4ae26dd..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow095$.bdy +++ /dev/null @@ -1,1195 +0,0 @@ -CREATE OR REPLACE PACKAGE BODY efnow095$ IS --- --- --- -PROCEDURE calendar( z_field_name IN VARCHAR2 - , z_caller_url IN VARCHAR2 - , z_field_value IN VARCHAR2 DEFAULT NULL - , z_field_format IN VARCHAR2 DEFAULT NULL - , z_field_prompt IN VARCHAR2 DEFAULT NULL ) -IS - -- - field_caption VARCHAR2(2000); - -- -BEGIN - -- - IF z_field_prompt IS NULL THEN - -- - field_caption := initcap(REPLACE( substr( z_field_name - , 3 - , length(z_field_name) - 2) - , '_' - , ' ' )); - -- - ELSE - -- - field_caption := initcap(REPLACE( z_field_prompt - , '_' - , ' ' )); - -- - END IF; - -- - wsgl.registerurl( g_package_name || '.calendar'); - wsgl.addurlparam( 'Z_FIELD_NAME', z_field_name ); - wsgl.addurlparam( 'Z_CALLER_URL', z_caller_url ); - -- - IF wsgl.notlowercase THEN - RETURN; - END IF; - -- - wsgl.output_calendar( z_field_name - , z_field_value - , z_field_format - , wsgl.msggettext( 123 - , wsglm.dsp128_cal_caption - , field_caption ) - , NULL - , g_package_name - , 'Close' - , TRUE - , 'DD-MON-RRRR' ); - -- - wsgl.output_calendar( z_field_name - , z_field_value - , z_field_format - , wsgl.msggettext( 123 - , wsglm.dsp128_cal_caption - , field_caption ) - , NULL - , g_package_name - , 'Close' - , FALSE - , 'DD-MON-RRRR' ); - -- -EXCEPTION - WHEN OTHERS THEN - wsgl.displaymessage( wsgl.mess_exception - , SQLERRM - , '' - , NULL - , g_package_name || '.calendar' ); -END calendar; --- --- --- -PROCEDURE format_cal_date( z_field_name IN VARCHAR2 - , z_field_format IN VARCHAR2 - , DAY IN VARCHAR2 - , MONTH IN VARCHAR2 - , YEAR IN VARCHAR2 ) -IS - -- - field_caption VARCHAR2(2000) := initcap(REPLACE( substr( z_field_name - , 3 - , length(z_field_name) - 2 ) - , '_' - , ' ' )); - l_day VARCHAR2(15) := DAY; - -- - PROCEDURE output_format_cal_js( page_header IN VARCHAR2 - , body_attributes IN VARCHAR2 - , chosen_date IN VARCHAR2 - , field_format IN VARCHAR2 ) - IS - -- - -- Copied from WSGL - -- - the_date DATE := to_date(chosen_date, 'DD-MONTH-YYYY'); - -- - BEGIN - -- - wsgl.openpagehead(page_header); - wsgl.closepagehead; - wsgl.openpagebody(FALSE, p_attributes => body_attributes); - htp.p(''); - wsgl.closepagebody; - -- - END output_format_cal_js; -BEGIN - -- - IF l_day = '0' THEN - l_day := '01'; - END IF; - -- - output_format_cal_js( wsgl.msggettext( 123 - , wsglm.dsp128_cal_caption - , field_caption ) - , NULL - , l_day || '-' || MONTH || '-' || YEAR - , z_field_format ); - -- -END format_cal_date; --- --- -FUNCTION dad_path - RETURN VARCHAR2 -IS -BEGIN - RETURN(lower(owa_util.get_cgi_env('REQUEST_PROTOCOL') || '://' || - owa_util.get_cgi_env('HTTP_HOST') || - owa_util.get_cgi_env('SCRIPT_NAME') || '/')); -END dad_path; --- --- --- -PROCEDURE approve_conf_css -IS -BEGIN - -- Check we have permission to be using this module. - IF NOT caco_security.security_check(g_package_name) THEN - RETURN; - END IF; - -- - htp.p(' - h2 { - color : #F21C0A; - } - - .confTable { - border : 1px solid; - } - - .confTable td { - border : 1px solid; - } - - .confTable th { - background-color : #D9D9D9; - border-left-width : 1px; - border-left-style : solid; - border-left-color : #F21C0A; - border-right-width : 1px; - border-right-style : solid; - border-right-color : #F21C0A; - border-top-width : 1px; - border-top-style : solid; - border-top-color : #F21C0A; - border-bottom-width : 1px; - border-bottom-style : solid; - border-bottom-color : #F21C0A; - } - - .confTH { - font-weight : normal; - padding : 2px; - background-color : #D9D9D9; - border-left-width : 1px; - border-left-style : solid; - border-left-color : #F21C0A; - border-right-width : 1px; - border-right-style : solid; - border-right-color : #F21C0A; - border-top-width : 1px; - border-top-style : solid; - border-top-color : #F21C0A; - border-bottom-width : 1px; - border-bottom-style : solid; - border-bottom-color : #F21C0A; - height : 20px; - } - - .confTHCreatedDate { - font-weight : normal; - padding : 2px; - background-color : #D9D9D9; - border-left-width : 1px; - border-left-style : solid; - border-left-color : #F21C0A; - border-right-width : 1px; - border-right-style : solid; - border-right-color : #F21C0A; - border-top-width : 1px; - border-top-style : solid; - border-top-color : #F21C0A; - border-bottom-width : 1px; - border-bottom-style : solid; - border-bottom-color : #F21C0A; - height : 20px; - width : 170px; - } - - .confTHCentre { - text-align : center; - padding : 2px; - font-weight : normal; - background-color : #D9D9D9; - border-left-width : 1px; - border-left-style : solid; - border-left-color : #F21C0A; - border-right-width : 1px; - border-right-style : solid; - border-right-color : #F21C0A; - border-top-width : 1px; - border-top-style : solid; - border-top-color : #F21C0A; - border-bottom-width : 1px; - border-bottom-style : solid; - border-bottom-color : #F21C0A; - height : 20px; - width : 50px; - } - - .smallTextButton { - font-size : smaller; - } - - .nomValidTR1 { - background-color : #FFFFFF; - border-style : none; - height : 20px; - } - - .nomValidTR2 { - background-color : #F5F5F5; - border-style : none; - height : 20px; - } - - .nomInvalid { - background-color : #FF9F98; - padding : 2px; - height : 20px; - } - - .nomTDCentre { - text-align : center; - padding : 2px; - } - - .nomTDGasDay { - text-align : center; - padding : 2px; - width : 100px - } - - .nomTDValid { - text-align : center; - padding : 2px; - width : 60px; - } - - '); -END approve_conf_css; --- --- --- -PROCEDURE approve_conf_js -IS -BEGIN - -- Check we have permission to be using this module. - IF NOT caco_security.security_check(g_package_name) THEN - RETURN; - END IF; - -- - htp.p(' - function checkDateThenGo( dadPath ) { - var theDate = document.getElementById(''p_gas_day''); - - if ( theDate.value != "" ) { - location.href = dadPath + ''efnow095$.startup?p_gas_day='' + theDate.value; - } - else { - alert('''||caco_utilities.get_module_text(2422)||''');'); -- Select a Gas Day - htp.p(' } - } - - function changeCheckBox( obj ) { - var prevInput = obj.previousSibling; - - if (obj.checked) { - prevInput.value = "Y"; - } - else { - prevInput.value = "N"; - } - } - - function checkAll( field ) - { - var i=0 - var x=new Array() - while (document.getElementById(field+i)!=null){ - x[i]= document.getElementById(field+i) - i++ - } - - for (i = 0; i < x.length; i++) - { - x[i].checked = true; - changeCheckBox(x[i]); - } - } - - function setApp( obj ) { - var appItem = obj.previousSibling; - var allAppItems = document.getElementsByName( ''p_approve'' ); - var allDelItems = document.getElementsByName( ''p_delete'' ); - var appIndex = -1; // to hold the index of the approval item we are interested in - - for (i=0;i -1) { - if (obj.checked) { - appItem.value = ''Y''; - allDelItems[appIndex].value = ''N''; - allDelItems[appIndex].nextSibling.checked = false; - } - else { - appItem.value = ''N''; - } - } - } - - function setDel( obj ) { - var delItem = obj.previousSibling; - var allDelItems = document.getElementsByName( ''p_delete'' ); - var allAppItems = document.getElementsByName( ''p_approve'' ); - var delIndex = -1; // to hold the index of the delete item we are interested in - - for (i=0;i -1) { - if (obj.checked) { - delItem.value = ''Y''; - allAppItems[delIndex].value = ''N''; - allAppItems[delIndex].nextSibling.checked = false; - } - else { - delItem.value = ''N''; - } - } - } - - function checkAppAll( field ) - { - var i=0 - var x=new Array() - while (document.getElementById(field+i)!=null){ - x[i]= document.getElementById(field+i) - i++ - } - - for (i = 0; i < x.length; i++) - { - x[i].checked = true; - if (field == "p_approve_disp") { - setApp(x[i])} - else { - setDel(x[i])}; - - } - } - - - '); -END approve_conf_js; --- --- -PROCEDURE conf_approve_tabhead IS -BEGIN - htp.p('
- - - - - '); -- Created On - htp.p(' '); -- Customer - htp.p(' '); -- Contract Number - htp.p(' '); -- Nomination ID - htp.p(' '); -- Gas Day - htp.p(' '); -- View - htp.p(' '); -- Send - htp.p(' '); -- Delete - htp.p(' '); -END conf_approve_tabhead; --- --- -PROCEDURE conf_approve_tabclose IS -BEGIN - htp.p(' -
'||caco_utilities.get_module_text(118)||' '||caco_utilities.get_module_text(1047)||' '||caco_utilities.get_module_text(2013)||' '||caco_utilities.get_module_text(2286)||' '||caco_utilities.get_module_text(1142)||' '||caco_utilities.get_module_text(2062)||''||caco_utilities.get_module_text(3559)||''||caco_utilities.get_module_text(838)||'
-

- '); -- Submit - htp.p('
'); -END conf_approve_tabclose; --- --- -PROCEDURE approve_confirmations( p_call_type IN VARCHAR2 DEFAULT 'EXISTING' - , p_s_conf_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_f_nomi_id IN owa_util.vc_arr DEFAULT g_vc_arr - , p_f_nom_identifier IN owa_util.vc_arr DEFAULT g_vc_arr - , p_f_cont_num IN owa_util.vc_arr DEFAULT g_vc_arr - , p_f_conf_error IN owa_util.vc_arr DEFAULT g_vc_arr ) -IS - -- - CURSOR c_conf( cp_conf_id IN NUMBER ) IS - SELECT conf.created_on - , cust.name - , cont.contract_number - , nomi.identifier - , ( SELECT MIN(gas_day) - FROM conf_net_point_cat_vals cnpcv - WHERE cnpcv.conf_id = conf.conf_id ) gas_day - FROM nominations nomi - , contracts cont - , confirmations conf - , customers cust - WHERE conf.conf_id = cp_conf_id - AND nomi.nomi_id(+) = conf.nomi_id - AND cont.cont_id = conf.cont_id - AND cont.cust_id = cust.cust_id - AND cust.cuty_id = caco_utilities.cuty_id_for_user; - -- - -- Cursor to list all unapproved commercial confirmations - CURSOR c_unapproved_conf IS - SELECT conf.conf_id - , conf.created_on - , cust.name - , nomi.identifier - , cont.contract_number - , ( SELECT MIN(gas_day) - FROM conf_net_point_cat_vals cnpcv - WHERE cnpcv.conf_id = conf.conf_id ) gas_day - FROM confirmations conf - , nominations nomi - , contracts cont - , customers cust - WHERE conf.confirmation_type = 'CO' - AND NVL(conf.approved,'N') = 'N' - AND conf.nomi_id = nomi.nomi_id (+) - AND conf.cont_id = cont.cont_id - AND cont.cust_id = cust.cust_id - AND cust.cuty_id = caco_utilities.cuty_id_for_user - ORDER BY cust.name - , gas_day DESC - , conf.created_on DESC - , cont.contract_number - , nomi.identifier; - -- - CURSOR c_custname( cp_cont_num IN VARCHAR2 ) IS - SELECT cust.name, - cont.contract_number - FROM customers cust - , contracts cont - WHERE cont.cont_id = cp_cont_num - AND cust.cust_id = cont.cust_id - AND cust.cuty_id = caco_utilities.cuty_id_for_user; - -- - -- - l_conf_rec c_conf%ROWTYPE; - l_dummy_rec c_unapproved_conf%ROWTYPE; - l_cust_name customers.name%TYPE; - l_cont_num contracts.contract_number%TYPE; - -- - l_count NUMBER := 0; - -- - l_approve_idx NUMBER := 0; - l_delete_idx NUMBER := 0; - -- -BEGIN - -- - -- Check we have permission to be using this module. - IF NOT caco_security.security_check(g_package_name) THEN - RETURN; - END IF; - -- - -- - -- htp.p(' '); - htp.p(' '); - -- - wsgl.openpagehead(caco_utilities.get_module_text(2426)); -- Approve Commercial Confirmation - --wsgl.metatag; - --htp.p(''); - caco_system.content_type; - htp.p(''); - htp.p(' '); - htp.p(' '); - -- - wsgl.closepagehead; - wsgl.openpagebody(FALSE); - htp.p(caco_system.menu); - -- - htp.p(' -
-

'||caco_utilities.get_module_text(2426)||'

'); -- Approve Commercial Confirmation - -- - -- - IF p_call_type = 'EXISTING' THEN - -- We haven't created new commercial confirmations for approval, - -- we are looking for any unapproved commercial confirmation - OPEN c_unapproved_conf; - FETCH c_unapproved_conf INTO l_dummy_rec; - IF c_unapproved_conf%FOUND THEN - CLOSE c_unapproved_conf; - -- - -- Open a form and the table with its header row. - conf_approve_tabhead; - -- - FOR r IN c_unapproved_conf LOOP - -- - l_count := l_count + 1; - -- - htp.p(''); - -- - -- Open the row - IF MOD(l_count,2) = 0 THEN - htp.p(''); - ELSE - htp.p(''); - END IF; - -- - htp.p(''||TO_CHAR(r.created_on, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')||' HH24:MI:SS')||''); - htp.p(''||r.name||''); - htp.p(''||r.contract_number||''); - htp.p(''||r.identifier||''); - htp.p(''||TO_CHAR(r.gas_day, cout_system_configuration.get_configuration_item('G_DATE_FORMAT'))||''); - htp.p(' -'); -- Window name will be overwritten - htp.p(' -'); - htp.p(' -'); - -- - l_approve_idx := l_approve_idx + 1; - l_delete_idx := l_delete_idx + 1; - -- - -- Close the row - htp.p(''); - -- - END LOOP; - -- - -- Close the table, show a submit button and close the form - conf_approve_tabclose; - -- - ELSE - CLOSE c_unapproved_conf; - -- - htp.p('

'||caco_utilities.get_module_text(2427)||'

'); - -- No unapproved confirmations exist - -- - END IF; - -- - ELSE - -- We have been called from the create commercial confirmations routine - IF NVL(p_s_conf_id.COUNT,0) = 0 - AND NVL(p_f_nomi_id.COUNT,0) = 0 - THEN - -- - htp.p('

'||caco_utilities.get_module_text(2281)||'

'); - -- No nominations were submitted - -- - ELSE - -- List successful Send Confirmations - IF NVL(p_s_conf_id.COUNT,0) > 0 THEN - -- - htp.p(''||caco_utilities.get_module_text(2428)||'

'); - -- Successfully created confirmations - -- - -- Open a form and the table with its header row. - conf_approve_tabhead; - -- - FOR i IN 1..p_s_conf_id.COUNT LOOP - -- - htp.p(''); - -- - -- Open the row - IF MOD(i,2) = 0 THEN - htp.p(''); - ELSE - htp.p(''); - END IF; - -- - OPEN c_conf( p_s_conf_id(i) ); - FETCH c_conf INTO l_conf_rec; - IF c_conf%FOUND THEN - -- - htp.p(''||TO_CHAR(l_conf_rec.created_on, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')||' HH24:MI:SS')||''); - htp.p(''||l_conf_rec.name||''); - htp.p(''||l_conf_rec.contract_number||''); - htp.p(''||l_conf_rec.identifier||''); - htp.p(''||TO_CHAR(l_conf_rec.gas_day, cout_system_configuration.get_configuration_item('G_DATE_FORMAT'))||''); - htp.p(' -'); -- Window title will be overwritten - htp.p(' -'); - htp.p(' -'); - -- - l_approve_idx := l_approve_idx + 1; - l_delete_idx := l_delete_idx + 1; - - -- - ELSE - -- Span an error message across all columns - htp.p(''||caco_utilities.get_module_text(2072)||' : ' -- Confirmation - ||p_s_conf_id(i)||' : '||caco_utilities.get_module_text(2429)||''); -- not found - END IF; - CLOSE c_conf; - -- - -- Close the row - htp.p(''); - -- - END LOOP; - -- - -- Close the table, show a submit button and close the form - conf_approve_tabclose; - -- - -- - END IF; - -- - -- List unsuccessful send confirmations - IF NVL(p_f_nomi_id.COUNT,0) > 0 - AND NVL(p_f_nomi_id.COUNT,0) = NVL(p_f_nom_identifier.COUNT,0) - AND NVL(p_f_nomi_id.COUNT,0) = NVL(p_f_cont_num.COUNT,0) - AND NVL(p_f_nomi_id.COUNT,0) = NVL(p_f_conf_error.COUNT,0) - THEN - -- Failed to create the following commercial confirmations - htp.p(''||caco_utilities.get_module_text(2430)||'

'); - -- - htp.p(' - - '); -- Customer - htp.p(' '); -- Contract Number - htp.p(' '); -- Nomination ID - htp.p(' '); -- Exception Message - htp.p(' '); - -- - FOR i IN 1..p_f_nomi_id.COUNT LOOP - -- get the customer name - l_cust_name := NULL; - OPEN c_custname(p_f_cont_num(i)); - FETCH c_custname INTO l_cust_name, l_cont_num; - CLOSE c_custname; - -- - IF MOD(i,2) = 0 THEN - htp.p(''); - ELSE - htp.p(''); - END IF; - -- - htp.p(''); - htp.p(''); - htp.p(''); - htp.p(''); - -- - htp.p(''); - -- - END LOOP; - -- - htp.p('
'||caco_utilities.get_module_text(1047)||' '||caco_utilities.get_module_text(2013)||' '||caco_utilities.get_module_text(2286)||' '||caco_utilities.get_module_text(2259)||'
'||l_cust_name||''||l_cont_num||''||p_f_nom_identifier(i)||''||p_f_conf_error(i)||'
'); - -- - END IF; - -- - END IF; - -- - END IF; -- called from create commercial confirmations - -- - -- Close the margin div - htp.p('
'); - -- - -- Close centrecontent div - htp.p(''); - -- - -- Close outer div - htp.p(''); - -- - wsgl.closepagebody; - -- - -- -END approve_confirmations; --- --- -PROCEDURE find_nom_button IS -BEGIN - -- Find Nominations - htp.p('

'); - -- -END find_nom_button; --- --- --- --- -PROCEDURE startup( p_gas_day IN VARCHAR2 DEFAULT NULL - , p_error IN VARCHAR2 DEFAULT 'N' - , p_error_text IN VARCHAR2 DEFAULT NULL ) -IS - -- - CURSOR c_contracts( cp_gas_day IN DATE ) IS - SELECT cust.name customer_name - , cont.cont_id contract_id - , cont.contract_number contract_number --- , nomi.nomi_id nom_id --- , nomi.status nom_status --- , nomi.identifier nom_identifier --- , nomi.created_on nom_created_on --- , nomi.nom_gas_day_from nom_gas_day_from --- , nomi.nom_gas_day_to nom_gas_day_to - FROM contracts cont - , customers cust -/* - , ( SELECT cont.cust_id - , nomi.cont_id - , nomi.nomi_id - , nomi.status status - , nomi.identifier identifier - , nomi.created_on created_on - , MIN(nnpcv.gas_day) nom_gas_day_from - , MAX(nnpcv.gas_day) nom_gas_day_to - FROM nominations nomi - ,nom_net_point_cat_vals nnpcv - ,contracts cont - WHERE nnpcv.nomi_id = nomi.nomi_id - AND nomi.status = 'A' - AND cont.cont_id = nomi.cont_id - GROUP BY cont.cust_id - , nomi.cont_id - , nomi.nomi_id - , nomi.status - , nomi.identifier - , nomi.created_on - HAVING cp_gas_day BETWEEN MIN(nnpcv.gas_day) AND MAX(nnpcv.gas_day) - ) nomi -*/ - WHERE cont.cust_id = cust.cust_id --- AND cont.cont_id = nomi.cont_id --- AND cust.cust_id = nomi.cust_id (+) - AND cust.cuty_id = caco_utilities.cuty_id_for_user - AND (cust.cust_id = caco_utilities.get_cust_id OR caco_utilities.get_cust_id = cout_system_configuration.get_configuration_item('G_OMT_CUST_ID')) - AND cp_gas_day BETWEEN cont.valid_from AND cont.valid_until - AND cont.status = 'O' - GROUP BY cust.name - , cont.cont_id - , cont.contract_number --- , nomi.nomi_id --- , nomi.status --- , nomi.identifier --- , nomi.created_on --- , nomi.nom_gas_day_from --- , nomi.nom_gas_day_to - ORDER BY cust.name - , cont.contract_number; - --, nomi.nom_gas_day_from DESC /* fix for 49980 */ - --, nomi.created_on DESC; - -- /* AG */ -/* CURSOR cur_last_nomi ( cp_cont_id IN contracts.cont_id%TYPE - , cp_gas_day IN DATE ) IS - SELECT MAX(nnpcv.gas_day) gas_day - ,nomi.nomi_id - FROM nom_net_point_cat_vals nnpcv - ,nominations nomi - ,contracts cont1 - ,contracts cont2 - WHERE nnpcv.nomi_id = nomi.nomi_id - AND cont1.cust_id = cont2.cust_id - AND cont1.cont_id = cp_cont_id - AND nnpcv.gas_day <= cp_gas_day - AND nomi.cont_id = cont2.cont_id - GROUP BY nomi.nomi_id - , nomi.created_on - ORDER BY MAX(nnpcv.gas_day) DESC - , nomi.created_on DESC;*/ - -- - CURSOR cur_last_nomi ( cp_cont_id IN contracts.cont_id%TYPE - , cp_gas_day IN DATE - , cp_nomi_id IN nominations.nomi_id%TYPE) IS - SELECT MAX(nnpcv.gas_day) gas_day - ,nomi.nomi_id - FROM nom_net_point_cat_vals nnpcv - ,nominations nomi - -- ,contracts cont - WHERE nnpcv.nomi_id = nomi.nomi_id - -- AND nomi.cont_id = cont.cont_id - AND nomi.cont_id IN (SELECT cont2.cont_id - FROM contracts cont2 - CONNECT BY PRIOR cont2.prev_cont_id = cont2.cont_id - START WITH cont2.cont_id = cp_cont_id) - -- AND cont.cust_id = (SELECT cust_id FROM contracts where cont_id= cp_cont_id) - AND nnpcv.gas_day <= cp_gas_day - AND nomi.nomi_id <> NVL(cp_nomi_id,-1) - GROUP BY nomi.nomi_id - , nomi.created_on - ORDER BY MAX(nnpcv.gas_day) DESC - , nomi.created_on DESC; - -- - -- - CURSOR cur_nomi (cp_gas_day IN DATE - ,c_cont_id IN contracts.cont_id%TYPE) IS - SELECT nomi.nomi_id nom_id - , nomi.status nom_status - , nomi.identifier nom_identifier - , nomi.created_on nom_created_on - , MIN(nnpcv.gas_day) nom_gas_day_from - , MAX(nnpcv.gas_day) nom_gas_day_to - FROM nominations nomi - , nom_net_point_cat_vals nnpcv - WHERE nnpcv.nomi_id = nomi.nomi_id - AND nomi.status = 'A' - AND nomi.cont_id = c_cont_id - GROUP BY nomi.nomi_id - , nomi.status - , nomi.identifier - , nomi.created_on - HAVING cp_gas_day BETWEEN MIN(nnpcv.gas_day) AND MAX(nnpcv.gas_day); - l_nom_rec cur_nomi%ROWTYPE; - l_last_nomi_rec cur_last_nomi%ROWTYPE; - -- - l_gas_day DATE; - gas_day_chosen BOOLEAN := FALSE; - date_in_past BOOLEAN := FALSE; - l_noms_found BOOLEAN := FALSE; - l_nom_count NUMBER := 0; - l_prev_contract contracts.contract_number%TYPE; - l_prev_customer customers.name%TYPE; - l_return_error VARCHAR2(255) := NULL; - -- - nom_valid BOOLEAN := FALSE; - -- - l_force_idx NUMBER := 0; - l_accept_idx NUMBER := 0; - -- -BEGIN - -- - -- Check we have permission to be using this module. - IF NOT caco_security.security_check(g_package_name) THEN - RETURN; - END IF; - -- - -- - IF p_gas_day IS NOT NULL THEN - -- Convert the varchar gas day into a date - BEGIN - SELECT TO_DATE(p_gas_day, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) - INTO l_gas_day - FROM dual; - -- - -- Successful so we have chosen a gas day to look for - -- Check its today or the future -/* - IF (l_gas_day) < TRUNC(SYSDATE-(cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24)) THEN - date_in_past := TRUE; - ELSE - gas_day_chosen := TRUE; - END IF; -*/ - gas_day_chosen := TRUE; - - -- - EXCEPTION - WHEN others THEN - -- Invalid date - but we dont have to do anything. - NULL; - END; - -- - END IF; - -- - -- htp.p(' '); - htp.p(' '); - -- - wsgl.openpagehead(g_title); - --wsgl.metatag; - --htp.p(''); - caco_system.content_type; - htp.p(''); - htp.p(' '); - htp.p(' '); - -- - -- Following required to show a calender screen - htp.p(wsgjsl.openscript); - wsgjsl.output_invoke_cal_js(g_package_name - ,'scrollbars=no,resizable=no,width=320,height=350'); - htp.p(wsgjsl.closescript); - -- - wsgl.closepagehead; - wsgl.openpagebody(FALSE); - htp.p(caco_system.menu); - -- - htp.p(' -
-

'||caco_utilities.get_module_text(2431)||'

'); -- Create Commercial Confirmation - -- - IF p_error = 'Y' THEN - htp.p('Send Failed
'); - htp.p(''||p_error_text||'

'); - END IF; - -- - htp.p(' - - '); -- Gas Day - htp.p(' - - -
'||caco_utilities.get_module_text(1142)||'   -
- -
- 		'); - -- - htp.p(wsgjsl.calbutton(field_name => 'p_gas_day' - ,p_calbut => htf.img(curl => caco_system.images_path||'lov.gif' - ,calign => 'TOP' - ,cattributes => 'ALT="List Values" WIDTH=18 HEIGHT=22 BORDER') - ,field_format => cout_system_configuration.get_configuration_item('G_DATE_FORMAT') - ,p_field_prompt => caco_utilities.get_module_text(1142) )); -- Gas Day - -- - htp.p('
'); - -- - -- Now show the nominations that are available to confirm - IF gas_day_chosen THEN - -- Loop through each nomination found - -- Validate it and give a check box for the valid noms - -- need to ensure only select one nom for a given contract for a given day.. - -- - htp.p('
'); - -- - -- Lets just check if there is any data.... - FOR rec_contracts IN c_contracts( l_gas_day ) - LOOP - - OPEN cur_last_nomi (rec_contracts.contract_id - ,l_gas_day - ,NULL); - FETCH cur_last_nomi INTO l_last_nomi_rec; - IF cur_last_nomi%FOUND - THEN - l_noms_found := TRUE; - END IF; - CLOSE cur_last_nomi; - END LOOP; - -- - -- - IF l_noms_found THEN - -- - l_prev_contract := '~@?^$&'; - -- - -- Put out the gas day selected to pass to the commercial confirmation creation routine. - -- We know it is in the correct format or we wouldnt be here. - -- - htp.p(''); - -- Put the submit button at the top in case there are many nominations that overflow the visible page - htp.p('

- - '); -- Submit Selected - htp.p('

'); - -- - -- If we found any data then Open the table with a header row. - -- - htp.p(' - - - '); -- Customer - htp.p(' '); -- Contract Number - htp.p(' '); -- Nom Identifier - htp.p(' '); -- Nom Created On - htp.p(' '); -- Gas Day From - htp.p(' '); -- Gas Day To - htp.p(' '); -- Valid? - htp.p(' '); -- Accept - htp.p(' '); -- Force - htp.p(' '); - -- - -- Loop through all the noms/contracts - caco_debug.putline('-----EFNOW095$ c_contracts LOOP START'); - FOR r IN c_contracts( l_gas_day ) LOOP - -- - l_nom_rec := NULL; - OPEN cur_nomi (l_gas_day - ,r.contract_id); - FETCH cur_nomi INTO l_nom_rec; - CLOSE cur_nomi; - nom_valid := FALSE; - l_nom_count := l_nom_count + 1; - -- - -- The below ensures that only the tip nomination is shown for each contract - -- Should you ever need to show all Nominations, remove this IF - -- and remove status=A from the c_contracts cursor - IF l_prev_contract != r.contract_number THEN - -- Only want the "tips" - -- Validate the nomination - IF l_nom_rec.nom_id IS NOT NULL THEN - -- - nom_valid := efno_contracts.validate_nomination( r.contract_id - , l_nom_rec.nom_id - , l_return_error ); -- not used in this program unit - -- - ELSE - -- - -- No nomination therefore not valid. - -- - -- - nom_valid := FALSE; - -- - END IF; - -- - -- Write out the details - IF nom_valid THEN - IF MOD(l_nom_count,2) = 0 THEN - htp.p(''); - ELSE - htp.p(''); - END IF; - ELSE - htp.p(''); - END IF; - -- - IF l_prev_customer = r.customer_name THEN - htp.p(' '); - ELSE - htp.p(' '); - END IF; - -- - IF l_prev_contract = r.contract_number THEN - htp.p(' '); - ELSE - htp.p(' '); - END IF; - -- - IF l_nom_rec.nom_identifier IS NOT NULL - AND nom_valid THEN - -- - htp.p(' - - - '); - -- - ELSE - BEGIN - l_last_nomi_rec := NULL; - OPEN cur_last_nomi ( r.contract_id - , l_gas_day - , l_nom_rec.nom_id); - FETCH cur_last_nomi - INTO l_last_nomi_rec; - CLOSE cur_last_nomi; - -- - EXCEPTION - WHEN OTHERS THEN - -- - l_last_nomi_rec := NULL; -- continue processing if an error occurs finding the last nomination, it is purely for information only - -- - END; - -- - IF l_last_nomi_rec.nomi_id IS NOT NULL THEN - htp.p(''); - l_last_nomi_rec.nomi_id := NULL; - ELSE - htp.p(''); - END IF; - -- - END IF; - -- - -- Check if valid again - -- NOTE: there must NOT be a carriage return or space between p_accept and the checkbox - -- (otherwise the changeCheckBox javascript function does not work) - IF nom_valid THEN - htp.p(''); - htp.p(''); - htp.p(''); - l_accept_idx := l_accept_idx + 1; - ELSE - htp.p(''); - htp.p(''); - htp.p(''); - l_force_idx := l_force_idx + 1; - END IF; - -- - htp.p(''); - -- - l_prev_contract := r.contract_number; - l_prev_customer := r.customer_name; - -- - END IF; - -- - END LOOP; - caco_debug.putline('-----EFNOW095$ c_contracts LOOP END'); - -- - -- Close the table - htp.p('
'||caco_utilities.get_module_text(2081)||''||caco_utilities.get_module_text(2013)||''||caco_utilities.get_module_text(2038)||''||caco_utilities.get_module_text(2039)||''||caco_utilities.get_module_text(2058)||''||caco_utilities.get_module_text(2059)||''||caco_utilities.get_module_text(2040)||''||caco_utilities.get_module_text(2042)||''||caco_utilities.get_module_text(2043)||'
 '||r.customer_name||' '||r.contract_number||''||l_nom_rec.nom_identifier||''||TO_CHAR(l_nom_rec.nom_created_on, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')||' HH24:MI:SS')||''||TO_CHAR(l_nom_rec.nom_gas_day_from, cout_system_configuration.get_configuration_item('G_DATE_FORMAT'))||''||TO_CHAR(l_nom_rec.nom_gas_day_to, cout_system_configuration.get_configuration_item('G_DATE_FORMAT'))||''||caco_utilities.get_module_text(2037)||'. '||REPLACE(REPLACE(REPLACE(caco_utilities.get_module_text(3557), '',TO_CHAR(l_gas_day,cout_system_configuration.get_configuration_item('G_DATE_FORMAT'))),'',l_last_nomi_rec.nomi_id),'',TO_CHAR(l_last_nomi_rec.gas_day,cout_system_configuration.get_configuration_item('G_DATE_FORMAT')))||''||caco_utilities.get_module_text(2037)||'. '||REPLACE(caco_utilities.get_module_text(3558), '', TO_CHAR(l_gas_day,cout_system_configuration.get_configuration_item('G_DATE_FORMAT')))||''||RTRIM(caco_utilities.get_module_text(2040),'?')||' - - - - -  '||caco_utilities.get_module_text(2041)||'  - - - - -
'); - -- - ELSE - -- Need a button to recall the screen with a chosen gas day - find_nom_button; - -- No Nominations found - put out a message to that effect - -- There are no nominations for the chosen gas day - htp.p('

'||caco_utilities.get_module_text(2037)||'

'); - END IF; - -- - htp.p('
'); - -- - - ELSIF date_in_past THEN - -- - find_nom_button; - -- You may only create commercial confirmations for today and future gas days - htp.p('

'||caco_utilities.get_module_text(2432)||'

'); - -- - - ELSE - -- Need a button to recall the screen with a chosen gas day - find_nom_button; - -- - END IF; -- gas day chosen - -- - -- Close the margin div - htp.p('
'); - -- - -- Close centrecontent div - htp.p(''); - -- - -- Close outer div - htp.p(''); - -- - wsgl.closepagebody; - -- -END startup; --- --- -/** --- FUNCTION about -- --- Returns the version number and VSS header for this package --- --- %return The version number and VSS header for this package -*/ -FUNCTION about RETURN VARCHAR2 IS -BEGIN - RETURN ( g_package_name || CHR(10) ||g_revision||chr(10)|| g_header ); -END about; --- --- --- -BEGIN - -- Initialization - NULL; - -- -END efnow095$; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow098$.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow098$.bdy deleted file mode 100644 index 6aaad85..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow098$.bdy +++ /dev/null @@ -1,4210 +0,0 @@ -CREATE OR REPLACE PACKAGE BODY efnow098$ IS - -- - -- Private - -- - g_cust_id customers.cust_id%TYPE; - g_cont_id contracts.cont_id%TYPE; - g_cont_num contracts.contract_number%TYPE; - g_cont_start_date contracts.valid_from%TYPE; - g_cont_end_date contracts.valid_until%TYPE; - g_active_time DATE := SYSDATE; - g_gas_day DATE := TRUNC(g_active_time-cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24); - -- - g_int_category BOOLEAN := FALSE; - -- - g_target_date DATE; - g_target_date_end DATE; - -- - g_error_point VARCHAR2(10) := NULL; - -- - FUNCTION is_number(l_val VARCHAR2) RETURN BOOLEAN IS - -- - l_n NUMBER; - -- - BEGIN - -- - l_n := l_val; - -- - RETURN true; - -- - EXCEPTION - WHEN OTHERS THEN - RETURN false; - END; - - PROCEDURE display_nnpcv_tab(p_nnpcv_tab IN gt_nnpcv_tab) IS - BEGIN - -- - FOR i IN 1..p_nnpcv_tab.COUNT LOOP - -- - caco_debug.putline('SP :'||i|| - ' nnpcv_id: '||p_nnpcv_tab(i).nnpcv_id|| - ' value: '||p_nnpcv_tab(i).value|| - ' gas_day: '||p_nnpcv_tab(i).gas_day|| - ' coca_id: '||p_nnpcv_tab(i).coca_id|| - ' nomi_id: '||p_nnpcv_tab(i).nomi_id|| - ' conp_id: '||p_nnpcv_tab(i).conp_id|| - ' created_by: '||p_nnpcv_tab(i).created_by|| - ' created_on: '||p_nnpcv_tab(i).created_on - ); - -- - END LOOP; - -- - END display_nnpcv_tab; - -- - PROCEDURE display_vc_arr(arr_name IN VARCHAR2, - arr IN owa_util.vc_arr) IS - BEGIN - -- - IF arr.COUNT > 0 THEN - caco_debug.putline('---------------------------------------'); - FOR i IN arr.FIRST..arr.LAST LOOP - caco_debug.putline(arr_name||': '||i||' = '||arr(i)); - END LOOP; - caco_debug.putline('---------------------------------------'); - END IF; - -- - END display_vc_arr; - -- - PROCEDURE get_cont_id ( p_cont_id IN contracts.cont_id%TYPE - ) IS - -- - BEGIN - -- - BEGIN - -- - SELECT cont.cont_id - ,cont.contract_number - ,cont.valid_from - ,cont.valid_until - INTO g_cont_id - ,g_cont_num - ,g_cont_start_date - ,g_cont_end_date - FROM contracts cont - WHERE cont.cont_id = p_cont_id - AND cont.status = 'O' - AND rownum < 2; - -- - EXCEPTION - WHEN OTHERS THEN - -- - g_cont_id := NULL; - g_cont_num := NULL; - -- - END; - -- - END get_cont_id; - -- - FUNCTION get_cv ( p_conp_id IN NUMBER - ) RETURN VARCHAR2 IS - -- - CURSOR cu_cv IS - SELECT NVL(cnppv.value,0) - FROM cont_net_point_param_vals cnppv, - cont_network_points conp2, - contract_parameters copa, - parameters pars, - contracts cont - WHERE conp2.conp_id = p_conp_id - AND conp2.conp_id = cnppv.conp_id - AND copa.copa_id = cnppv.copa_id - AND cont.cont_id = g_cont_id - AND copa.cont_id = cont.cont_id - AND pars.pars_id = copa.pars_id - AND pars.code = 'par_futoertek'; - -- - l_cv NUMBER; - -- - BEGIN - -- - OPEN cu_cv; - FETCH cu_cv INTO l_cv; - IF cu_cv%NOTFOUND THEN - l_cv := 0; - END IF; - CLOSE cu_cv; - -- - RETURN l_cv; - -- - END get_cv; - -- - PROCEDURE sort_nnpcv_array ( p_nnpcv_tab IN OUT gt_nnpcv_tab - , p_gas_days IN OUT owa_util.vc_arr - ) IS - -- - l_nnpcv_tab nnpcv_tab := nnpcv_tab(); - -- - BEGIN - -- - -- Extend type to cover requirements - -- - -- - l_nnpcv_tab.EXTEND(p_nnpcv_tab.COUNT); - -- - -- Convert index by table into type - -- - FOR idx IN 1..p_nnpcv_tab.COUNT LOOP - -- - l_nnpcv_tab(idx) := nnpcv_rec(nnpcv_id => p_nnpcv_tab(idx).nnpcv_id - ,VALUE => p_nnpcv_tab(idx).value - ,gas_day => TO_DATE(p_gas_days(CEIL(idx*(p_gas_days.COUNT/p_nnpcv_tab.COUNT))), cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) - ,coca_id => p_nnpcv_tab(idx).coca_id - ,nomi_id => p_nnpcv_tab(idx).nomi_id - ,conp_id => p_nnpcv_tab(idx).conp_id - ,created_by => p_nnpcv_tab(idx).created_by - ,created_on => p_nnpcv_tab(idx).created_on - ); - -- - END LOOP; - -- - -- Now we have it in a type, sort it back into the array - -- - FOR rec IN ( SELECT gas_day - ,value - ,conp_id - ,coca_id - ,rownum AS idx - FROM (SELECT sq1.gas_day - ,sq1.value - ,sq1.conp_id - ,sq1.coca_id - FROM TABLE(CAST(l_nnpcv_tab AS nnpcv_tab)) sq1 - ,cont_network_points conp - ,network_points nepo - ,contract_categories coca - WHERE sq1.conp_id = conp.conp_id - AND conp.nepo_id = nepo.nepo_id - AND sq1.coca_id = coca.coca_id - ORDER BY nepo.code - ,gas_day - ,coca.display_sequence - ) - ) LOOP - -- - p_nnpcv_tab(rec.idx).value := rec.value; - p_nnpcv_tab(rec.idx).conp_id := rec.conp_id; - p_nnpcv_tab(rec.idx).coca_id := rec.coca_id; - -- - p_gas_days(CEIL(rec.idx*(p_gas_days.COUNT/p_nnpcv_tab.COUNT))) := TO_CHAR(rec.gas_day, cout_system_configuration.get_configuration_item('G_DATE_FORMAT')); - -- - END LOOP; - -- - -- Cleardown local variable - -- - l_nnpcv_tab.delete; - -- - END sort_nnpcv_array; - -- - PROCEDURE page_head IS - BEGIN - -- - htp.p(' '); - htp.p(' '); - -- - wsgl.openpagehead(g_title); - wsgl.metatag; - htp.p(' ' || - chr(10)); - htp.p(' ' || - chr(10)); - htp.p(' ' || chr(10)); - -- - htp.p(' '); - -- - htp.p(wsgjsl.openscript); - wsgjsl.output_invoke_cal_js(g_package_name - ,'scrollbars=no,resizable=no,width=320,height=350'); - htp.p(wsgjsl.closescript); - -- - wsgl.closepagehead; - wsgl.openpagebody(FALSE); - htp.p(caco_system.menu); - -- - htp.HEADER(nsize => 1 - ,cheader => g_title); - -- - END page_head; - -- - FUNCTION return_index ( p_search_var IN DATE - , p_array IN owa_util.vc_arr - ) RETURN NUMBER IS - -- - l_return NUMBER := 1; - -- - BEGIN - -- - FOR i IN 1..p_array.COUNT LOOP - -- - IF TO_DATE(p_array(i), g_date_format) = p_search_var THEN - -- - l_return := i; - EXIT; - -- - END IF; - -- - END LOOP; - -- - RETURN l_return; - -- - END return_index; - -- - FUNCTION in_a_renom_window( p_gas_day IN DATE - , p_window_time IN DATE - ) RETURN BOOLEAN IS - -- - l_return BOOLEAN := FALSE; - -- - BEGIN - -- - FOR i IN ( SELECT NULL - FROM nomination_windows nw - ,nom_window_contracts nwc - ,contracts con - WHERE nw.nowi_id = nwc.nowi_id - AND nwc.cont_id = con.cont_id - AND con.cust_id = caco_utilities.get_cust_id - AND nw.gas_day = TRUNC(SYSDATE - cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24) + cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24 - AND SYSDATE BETWEEN nw.window_start AND nw.window_end - ) LOOP - -- - l_return := TRUE; - -- - EXIT; - -- - END LOOP; - -- - RETURN l_return; - -- - END in_a_renom_window; - -- - FUNCTION in_a_renom_window( p_gas_day IN DATE - , p_contract_id IN contracts.cont_id%TYPE - , p_window_time IN DATE - ) RETURN BOOLEAN IS - -- - l_return BOOLEAN := FALSE; - -- - BEGIN - -- - FOR i IN ( SELECT NULL - FROM nomination_windows nw - ,nom_window_contracts nwc - ,contracts con - WHERE nw.nowi_id = nwc.nowi_id - AND nwc.cont_id = con.cont_id - AND con.cust_id = caco_utilities.get_cust_id - AND nwc.cont_id = p_contract_id - AND nw.gas_day = TRUNC(SYSDATE - cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24) + cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24 - AND SYSDATE BETWEEN nw.window_start AND nw.window_end - ) LOOP - -- - l_return := TRUE; - -- - EXIT; - -- - END LOOP; - -- - RETURN l_return; - -- - END in_a_renom_window; - -- - FUNCTION check_cont_date ( p_cont_id IN contracts.cont_id%TYPE - , p_date IN DATE - , p_message OUT VARCHAR2 - ) RETURN BOOLEAN IS - -- - l_return BOOLEAN := FALSE; - l_type VARCHAR2(100); - -- - BEGIN - -- - FOR i IN ( SELECT NULL - FROM contracts cont - WHERE cont.cont_id = p_cont_id - AND p_date BETWEEN cont.valid_from AND cont.valid_until ) LOOP - -- - l_return := TRUE; - -- - END LOOP; - -- - IF NOT l_return THEN - -- - caco_utilities.get_exception_message ( p_exception_number => -20512 - , p_message => p_message - , p_exme_type => l_type - ); - -- - END IF; - -- - RETURN l_return; - -- - END check_cont_date; - -- - FUNCTION check_gate_closure ( p_cont_id IN contracts.cont_id%TYPE - , p_date IN DATE - , p_message OUT VARCHAR2 - ) RETURN BOOLEAN IS - -- - l_return BOOLEAN := TRUE; - l_type VARCHAR2(100); - l_sub_list caco_utilities.g_t_substitution_list; - l_deadline VARCHAR2(5) := NULL; - l_active_date DATE := NULL; - -- - FUNCTION get_deadline ( p_cust_id IN customers.cust_id%TYPE ) RETURN VARCHAR2 IS - -- - l_return VARCHAR2(5) := NULL; - -- - BEGIN - -- - SELECT cust.ind_deadline_for_nom_submit - INTO l_return - FROM customers cust - WHERE cust.cust_id = p_cust_id; - -- - IF l_return IS NULL THEN - -- - l_return := cout_system_configuration.get_configuration_item('G_SUBMISSION_DEADLINE'); - -- - END IF; - -- - RETURN l_return; - -- - END get_deadline; - -- - BEGIN - -- - IF (TRUNC(SYSDATE - cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24) + NVL(cout_system_configuration.get_configuration_item('G_NOM_DATE_OFFSET'),1)) = p_date THEN - -- - -- We are looking at nominating for tomorrow, need to check gate closure - -- - IF g_cust_id IS NULL THEN - IF p_cont_id IS NOT NULL THEN - SELECT cont.cust_id - INTO g_cust_id - FROM contracts cont - WHERE cont.cont_id = p_cont_id; - END IF; - END IF; - -- - l_deadline := get_deadline(p_cust_id => g_cust_id); - -- - IF l_deadline IS NOT NULL THEN - -- - IF TO_NUMBER(RTRIM(SUBSTR(l_deadline,1,2),':')) < cout_system_configuration.get_configuration_item(p_parameter => 'GAS_DAY_OFFSET') THEN - -- - -- Is tomorrow, add one to the date - -- - l_active_date := TO_DATE(TO_CHAR(TRUNC(SYSDATE - cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24),'DD/MM/YYYY')||l_deadline, 'DD/MM/YYYYHH24:MI')+1; - -- - ELSE - -- - -- same calendar date, OK - -- - l_active_date := TO_DATE(TO_CHAR(TRUNC(SYSDATE - cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24),'DD/MM/YYYY')||l_deadline, 'DD/MM/YYYYHH24:MI'); - -- - END IF; - -- - -- Determined what the deadline is, now check it - -- - IF SYSDATE > l_active_date THEN - -- - l_sub_list(1) := TO_CHAR( p_date, g_date_format); - l_sub_list(2) := TO_CHAR( l_active_date, g_date_format || ' HH24:MI'); - -- - caco_utilities.get_exception_message ( p_exception_number => -20513 -- Cannot nominate for after . - , p_message => p_message - , p_exme_type => l_type - , p_substitution_list => l_sub_list - ); - -- - l_return := FALSE; - -- - END IF; -- p_date > l_active_date - -- - END IF; -- l_deadline not null - -- - END IF; -- nominateing for tomorrow - -- - -- Renom window check - -- - IF (TRUNC(SYSDATE - cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24) + NVL(cout_system_configuration.get_configuration_item('G_NOM_DATE_OFFSET'),1) /* removed + cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24*/) > p_date THEN - -- - -- Nominating for today, check for renom window for the contract - -- - IF NOT in_a_renom_window( p_gas_day => NULL - , p_contract_id => p_cont_id - , p_window_time => NULL - ) THEN - -- - l_return := FALSE; - -- - caco_utilities.get_exception_message ( p_exception_number => -20514 -- renomination window is not open - , p_message => p_message - , p_exme_type => l_type - ); - -- - END IF; - -- - END IF; - -- - RETURN l_return; - -- - END check_gate_closure; - -- - FUNCTION process_spreadsheet_to_arrays ( p_gtsp_id gtt_spreadsheet.spreadsheet_id%TYPE - , p_cont_id contracts.cont_id%TYPE - , p_nomi_tab IN OUT gt_nomi_tab - , p_nnpcv_tab IN OUT gt_nnpcv_tab - , p_error IN OUT VARCHAR2 - ) RETURN BOOLEAN IS - -- - l_return BOOLEAN := FALSE; - -- - lr_spte_row spreadsheet_templates%ROWTYPE; - -- - l_x_a VARCHAR2(100); - l_y_a VARCHAR2(100); - -- - l_x_a_start VARCHAR2(100); - -- - l_cont_identifier contracts.contract_number%TYPE; - l_cont_id contracts.cont_id%TYPE; - l_gas_day VARCHAR2(100); - l_gas_day_to VARCHAR2(100); - l_field_value VARCHAR2(100); - -- - l_start_date DATE; - l_end_date DATE; - l_exme_type VARCHAR2(10); - l_sub_list caco_utilities.g_t_substitution_list; - -- - -- Variables addded for network point validation - -- - l_nepo_x VARCHAR2(100); - l_nepo_y VARCHAR2(100); - l_nepo_code VARCHAR2(100); - l_nepo_y_start VARCHAR2(100); - l_nepo_rownum NUMBER := 0; - l_nepo_count NUMBER := 0; - -- - -- Tags to search for - -- - c_cont_placeholder CONSTANT VARCHAR2(100) := '{CONTRACT_ID}'; - c_gday_placeholder CONSTANT VARCHAR2(100) := '{GAS_DAY}'; - c_gday_placeholder2 CONSTANT VARCHAR2(100) := '{GAS_DAY_TO}'; - c_nnpcv_placeholder CONSTANT VARCHAR2(100) := '{NOM_NET_POINT_CAT_VALS}'; - c_nepo_code CONSTANT VARCHAR2(100) := '{NETWORK_POINT_CODE}'; - c_cate_name CONSTANT VARCHAR2(100) := '{CAT_NAME}'; - c_cate_units CONSTANT VARCHAR2(100) := '{CAT_UNITS}'; - -- - l_emo_contract VARCHAR2(1) := 'N'; - l_conp_id cont_network_points.conp_id%TYPE; - -- - PROCEDURE set_nom ( p_identifier IN VARCHAR2 - , p_cont_id IN contracts.cont_id%TYPE ) IS - BEGIN - -- - p_nomi_tab(1).status := 'A'; - p_nomi_tab(1).cont_id := p_cont_id; - p_nomi_tab(1).identifier := p_identifier; - -- - END set_nom; - -- - PROCEDURE set_nnpcv ( p_value IN VARCHAR2 - , p_gas_day IN DATE - , p_coca_id IN conf_net_point_cat_vals.coca_id%TYPE - , p_conp_id IN conf_net_point_cat_vals.conp_id%TYPE - ) IS - -- - l_nnpcv_idx NUMBER; - -- - BEGIN - -- - l_nnpcv_idx := NVL(p_nnpcv_tab.COUNT,0) + 1; - -- - p_nnpcv_tab(l_nnpcv_idx).conp_id := p_conp_id; - p_nnpcv_tab(l_nnpcv_idx).coca_id := p_coca_id; - p_nnpcv_tab(l_nnpcv_idx).value := p_value; - p_nnpcv_tab(l_nnpcv_idx).gas_day := p_gas_day; - -- - END set_nnpcv; - -- - FUNCTION get_token_location ( p_token IN VARCHAR2 - , p_spte_id IN spreadsheet_templates.spte_id%TYPE - , p_x_axis IN OUT spreadsheet_template_values.x_axis%TYPE - , p_y_axis IN OUT spreadsheet_template_values.y_axis%TYPE - ) RETURN BOOLEAN IS - -- - l_return BOOLEAN := FALSE; - -- - BEGIN - -- - -- Init grid locators - -- - p_x_axis := NULL; - p_y_axis := NULL; - -- - FOR i IN ( SELECT sptv.x_axis - ,sptv.y_axis - FROM spreadsheet_template_values sptv - WHERE sptv.spte_id = p_spte_id - AND sptv.cell_value = p_token - ) LOOP - -- - p_x_axis := i.x_axis; - p_y_axis := i.y_axis; - -- - l_return := TRUE; - EXIT; - -- - END LOOP; - -- - RETURN l_return; - -- - END get_token_location; - -- - FUNCTION get_spreadsheet_value ( p_gtsp_id IN gtt_spreadsheet.spreadsheet_id%TYPE - , p_x_axis IN spreadsheet_template_values.x_axis%TYPE - , p_y_axis IN spreadsheet_template_values.y_axis%TYPE - ) RETURN VARCHAR2 IS - -- - l_return VARCHAR2(100); - -- - BEGIN - -- - SELECT gtsp.cell_value - INTO l_return - FROM gtt_spreadsheet gtsp - WHERE gtsp.spreadsheet_id = p_gtsp_id - AND gtsp.x_axis = p_x_axis - AND gtsp.y_axis = p_y_axis - 1; - -- - --caco_debug.putline(p_x_axis||':'||p_y_axis||':'||l_return); - -- - RETURN l_return; - -- - EXCEPTION - WHEN OTHERS THEN - RETURN null; - END get_spreadsheet_value; - -- - FUNCTION max_ss_row ( p_gtsp_id IN gtt_spreadsheet.spreadsheet_id%TYPE ) RETURN NUMBER IS - -- - l_return NUMBER := 0; - -- - BEGIN - -- - SELECT MAX(gtts.y_axis) - INTO l_return - FROM gtt_spreadsheet gtts - WHERE gtts.spreadsheet_id = p_gtsp_id; - -- - RETURN l_return; - -- - END; - -- - BEGIN - -- - -- Get the template details - -- - g_error_point := 'P001'; - -- - -- Check if the contract is an entry mandatory offer contract - -- - IF efno_contracts.emo_contract(p_cont_id) = 'Y' THEN - l_emo_contract := 'Y'; - END IF; - -- - SELECT spte.* - INTO lr_spte_row - FROM contracts cont - ,spreadsheet_templates spte - WHERE spte.spte_id = cont.spte_id - AND spte.spte_type = 'NOST' - AND cont.cont_id = p_cont_id; - -- - g_error_point := 'P002'; - -- - IF UPPER(lr_spte_row.name) IN (UPPER(g_spte_single),UPPER(g_spte_smulti)) THEN - -- - -- Single gas day or Single-Multi Gas Day, find the location of useful stuff - -- - g_error_point := 'P100'; - -- - IF get_token_location ( p_token => c_gday_placeholder - , p_spte_id => lr_spte_row.spte_id - , p_x_axis => l_x_a - , p_y_axis => l_y_a - ) THEN - -- - -- Token is present in the template, let's get the value - -- - l_gas_day := get_spreadsheet_value ( p_gtsp_id => p_gtsp_id - , p_x_axis => l_x_a - , p_y_axis => l_y_a - ); - -- - IF l_gas_day IS NOT NULL THEN - -- - BEGIN - -- - l_start_date := TO_DATE( l_gas_day - , cout_system_configuration.get_configuration_item('G_DATE_FORMAT')); - -- - EXCEPTION - -- - WHEN OTHERS THEN - -- - l_return := FALSE; - -- - l_sub_list(1) := l_gas_day; - l_sub_list(2) := cout_system_configuration.get_configuration_item('G_DATE_FORMAT'); - -- - caco_utilities.get_exception_message(p_exception_number => -20104 - ,p_message => p_error - ,p_exme_type => l_exme_type - ,p_substitution_list => l_sub_list - ,p_language => caco_utilities.get_syus_lang - ); - -- - RAISE; - -- - END; - -- - g_gas_days(1) := l_gas_day; - -- - END IF; - -- - END IF; - -- - IF get_token_location ( p_token => c_cont_placeholder - , p_spte_id => lr_spte_row.spte_id - , p_x_axis => l_x_a - , p_y_axis => l_y_a - ) THEN - -- - -- - -- Token is present in the template, let's get the value - -- - l_cont_identifier := get_spreadsheet_value ( p_gtsp_id => p_gtsp_id - , p_x_axis => l_x_a - , p_y_axis => l_y_a - ); - -- - END IF; - -- - IF get_token_location ( p_token => c_gday_placeholder2 - , p_spte_id => lr_spte_row.spte_id - , p_x_axis => l_x_a - , p_y_axis => l_y_a - ) THEN - -- - -- Token is present in the template, let's get the value - -- - g_error_point := 'P205'; - g_target_date := TO_DATE(l_gas_day,g_date_format); - -- - l_gas_day_to := get_spreadsheet_value ( p_gtsp_id => p_gtsp_id - , p_x_axis => l_x_a - , p_y_axis => l_y_a - ); - -- - IF l_gas_day_to IS NOT NULL THEN - -- - BEGIN - -- - l_end_date := TO_DATE( l_gas_day_to - , cout_system_configuration.get_configuration_item('G_DATE_FORMAT')); - -- - EXCEPTION - -- - WHEN OTHERS THEN - -- - l_return := FALSE; - -- - l_sub_list(1) := l_gas_day_to; - l_sub_list(2) := cout_system_configuration.get_configuration_item('G_DATE_FORMAT'); - -- - caco_utilities.get_exception_message(p_exception_number => -20104 - ,p_message => p_error - ,p_exme_type => l_exme_type - ,p_substitution_list => l_sub_list - ,p_language => caco_utilities.get_syus_lang - ); - -- - RAISE; - -- - END; - -- - END IF; - -- - g_target_date_end := to_date(l_gas_day_to,g_date_format); - -- - FOR i IN 0..(g_target_date_end-g_target_date) + 1 LOOP - -- - g_gas_days(i+1) := TO_CHAR(g_target_date+i,g_date_format); - -- - END LOOP; - -- - END IF; - -- - -- We need to find out which contract this nomination is for. - -- EFT no longer want the contract name on the spreadsheet to determine this. - -- The spreadsheet upload needs to be more flexible and determine - -- the cont_id for itself. - -- - FOR c IN ( SELECT cont.cont_id - FROM contracts cont - WHERE cont.cust_id = g_cust_id - AND l_start_date BETWEEN cont.valid_from AND cont.valid_until - AND ((l_end_date BETWEEN cont.valid_from AND cont.valid_until) OR - (l_end_date IS NULL)) - AND cont.status = 'O' - AND rownum < 2 ) LOOP - -- - l_cont_id := c.cont_id; - get_cont_id(l_cont_id); - -- - END LOOP; - -- - IF l_cont_id IS NULL THEN - caco_utilities.get_exception_message ( p_exception_number => -20512 - , p_message => p_error - , p_exme_type => l_exme_type - , p_language => caco_utilities.get_syus_lang - ); - END IF; - -- - -- Find the token location - -- - IF NOT get_token_location ( p_token => c_nepo_code - , p_spte_id => lr_spte_row.spte_id - , p_x_axis => l_nepo_x - , p_y_axis => l_nepo_y_start - ) THEN - -- - -- No point raising any errors if there aren't any network points in the template - -- - NULL; - -- - END IF; - -- - -- Now on to the grid - -- - IF get_token_location ( p_token => c_nnpcv_placeholder - , p_spte_id => lr_spte_row.spte_id - , p_x_axis => l_x_a_start - , p_y_axis => l_y_a - ) THEN - -- - -- Values start at the above location, for the moment assume that everything is in the right order - -- - l_x_a := l_x_a_start; - l_nepo_y := l_nepo_y_start; - -- - FOR conp IN ( SELECT nepo.name - ,nepo.code - ,conp.conp_id - ,rownum AS sitenum - FROM cont_network_points conp - ,network_points nepo - WHERE nepo.nepo_id = conp.nepo_id - AND conp.cont_id = g_cont_id - AND ((nepo.nepo_type = 'V' AND l_emo_contract = 'Y') OR - l_emo_contract = 'N') - ORDER BY nepo.code - ) LOOP - -- - -- Find nepo_code in the spreadsheet. Order does not matter. - -- - LOOP - -- - l_nepo_code := get_spreadsheet_value( p_gtsp_id => p_gtsp_id - , p_x_axis => l_nepo_x - , p_y_axis => l_nepo_y - ); - -- - IF l_nepo_code IS NULL THEN - -- - l_return := FALSE; - p_error := caco_utilities.get_module_text(2519); - EXIT; - ELSIF l_nepo_code <> conp.code THEN - l_nepo_y := l_nepo_y + 1; - l_nepo_rownum := l_nepo_rownum + 1; - ELSE - -- l_nepo_code must equal conp.code - EXIT; - -- - END IF; - END LOOP; - -- - FOR conp_coca IN (SELECT coca.coca_id - FROM contract_categories coca - ,categories cate - WHERE cate.cate_id = coca.cate_id - AND coca.cont_id = g_cont_id - ORDER BY coca.display_sequence ) LOOP - -- - -- Look for the value in the spreadsheet - -- - l_field_value := get_spreadsheet_value( p_gtsp_id => p_gtsp_id - , p_x_axis => l_x_a - , p_y_axis => l_y_a + l_nepo_rownum - ); - -- - IF INSTR(l_field_value,'.') > 0 THEN - -- - l_field_value := RTRIM(RTRIM(l_field_value,'0'),'.'); - -- - END IF; - -- - set_nnpcv ( p_value => caco_utilities.thousand_separated_to_num(l_field_value) - , p_gas_day => TO_DATE( g_gas_days(1) - , cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) - , p_coca_id => conp_coca.coca_id - , p_conp_id => conp.conp_id - ); - -- - l_x_a := CHR(ASCII(l_x_a)+1); - -- - END LOOP; -- categories - -- - -- Increment network point count - -- - l_nepo_count := l_nepo_count + 1; - -- - -- Reset starting column - -- - l_x_a := l_x_a_start; - -- - -- Reset starting row - -- - l_nepo_y := l_nepo_y_start; - -- - -- Reset row number - -- - l_nepo_rownum := 0; - -- - END LOOP; -- network points - -- - IF get_spreadsheet_value( p_gtsp_id => p_gtsp_id - , p_x_axis => l_x_a - , p_y_axis => l_y_a + l_nepo_count - ) IS NOT NULL THEN - -- - l_return := FALSE; - p_error := caco_utilities.get_module_text(2519); - -- - END IF; - -- - END IF; - -- - IF l_cont_identifier <> g_cont_num - AND l_cont_identifier IS NOT NULL - THEN - p_error := REPLACE(REPLACE(caco_utilities.get_module_text(2519),'',g_cont_num),'',l_cont_identifier); - END IF; IF l_cont_identifier <> g_cont_num - AND l_cont_identifier IS NOT NULL - THEN - p_error := REPLACE(REPLACE(caco_utilities.get_module_text(3981),'',g_cont_num),'',l_cont_identifier); - END IF; - IF p_error IS NULL THEN - -- - l_return := TRUE; - -- - END IF; - -- - ELSIF UPPER(lr_spte_row.name) = UPPER(g_spte_multi) THEN - -- - -- Multiple gas day, find the location of useful stuff - -- - g_error_point := 'P200'; - -- - IF get_token_location ( p_token => c_cont_placeholder - , p_spte_id => lr_spte_row.spte_id - , p_x_axis => l_x_a - , p_y_axis => l_y_a - ) THEN - -- - g_error_point := 'P201'; - -- - -- Token is present in the template, let's get the value - -- - l_cont_identifier := get_spreadsheet_value ( p_gtsp_id => p_gtsp_id - , p_x_axis => l_x_a - , p_y_axis => l_y_a - ); - -- - g_error_point := 'P202'; - -- - IF l_cont_identifier IS NOT NULL THEN - g_error_point := 'P203'; - -- - FOR c IN ( SELECT cont.cont_id - FROM contracts cont - WHERE cont.contract_number = l_cont_identifier - AND cont.cust_id = g_cust_id ) LOOP - -- - g_cont_id := c.cont_id; - -- - END LOOP; - -- - END IF; - -- - END IF; - -- - -- Multiple gas days - find the start - -- - g_error_point := 'P204'; - -- - IF get_token_location ( p_token => c_gday_placeholder - , p_spte_id => lr_spte_row.spte_id - , p_x_axis => l_x_a - , p_y_axis => l_y_a - ) THEN - -- - -- Token is present in the template, let's get the value - -- - g_target_date := NULL; - g_target_date_end := NULL; - -- - FOR i IN 0..max_ss_row(p_gtsp_id) LOOP - -- - g_error_point := 'P205'||l_x_a||TO_CHAR(l_y_a + i); - -- - l_gas_day := get_spreadsheet_value ( p_gtsp_id => p_gtsp_id - , p_x_axis => l_x_a - , p_y_axis => l_y_a + i - ); - -- - IF l_gas_day IS NOT NULL THEN - -- - BEGIN - -- - l_start_date := TO_DATE( l_gas_day - , cout_system_configuration.get_configuration_item('G_DATE_FORMAT')); - -- - EXCEPTION - -- - WHEN OTHERS THEN - -- - l_return := FALSE; - -- - l_sub_list(1) := l_gas_day; - l_sub_list(2) := cout_system_configuration.get_configuration_item('G_DATE_FORMAT'); - -- - caco_utilities.get_exception_message(p_exception_number => -20104 - ,p_message => p_error - ,p_exme_type => l_exme_type - ,p_substitution_list => l_sub_list - ,p_language => caco_utilities.get_syus_lang - ); - -- - RAISE; - -- - END; - g_gas_days(i+1) := TO_CHAR(TO_DATE(l_gas_day, g_date_format),g_date_format); - -- - g_target_date := LEAST(NVL(g_target_date, TO_DATE(g_gas_days(i+1), g_date_format)), TO_DATE(g_gas_days(i+1), g_date_format)); - g_target_date_end := GREATEST(NVL(g_target_date_end, TO_DATE(g_gas_days(i+1), g_date_format)), TO_DATE(g_gas_days(i+1), g_date_format)); - -- - END IF; - -- - END LOOP; - -- - END IF; - -- - -- Find the token location - -- - IF NOT get_token_location ( p_token => c_nepo_code - , p_spte_id => lr_spte_row.spte_id - , p_x_axis => l_nepo_x - , p_y_axis => l_nepo_y - ) THEN - -- - -- No point raising any errors if there aren't any network points in the template - -- - NULL; - -- - END IF; - -- - -- Now on to the grid - -- - g_error_point := 'P206'; - -- - IF get_token_location ( p_token => c_nnpcv_placeholder - , p_spte_id => lr_spte_row.spte_id - , p_x_axis => l_x_a_start - , p_y_axis => l_y_a - ) THEN - -- - g_error_point := 'P208'; - -- - l_x_a := l_x_a_start; - -- - FOR conp IN ( SELECT rownum AS sitenum - FROM cont_network_points conp - WHERE conp.cont_id = g_cont_id - ) LOOP - -- - FOR date_loop IN 1..(g_target_date_end-g_target_date)+1 LOOP - -- - -- Check nepo_code (c_nepo_code) against the spreadsheet to ensure the sites are in the correct order - -- - l_nepo_code := get_spreadsheet_value( p_gtsp_id => p_gtsp_id - , p_x_axis => l_nepo_x - , p_y_axis => l_nepo_y - ); - -- - l_conp_id := NULL; - -- - FOR conp IN ( SELECT conp.conp_id - FROM cont_network_points conp - ,network_points nepo - WHERE nepo.nepo_id = conp.nepo_id - AND conp.cont_id = g_cont_id - AND nepo.code = l_nepo_code - AND ((nepo.nepo_type = 'V' AND l_emo_contract = 'Y') OR - l_emo_contract = 'N') - ) LOOP - -- - l_conp_id := conp.conp_id; - -- - END LOOP; - -- - IF l_conp_id IS NULL - OR l_nepo_code IS NULL THEN - -- - l_return := FALSE; - p_error := caco_utilities.get_module_text(2519); - -- - END IF; - -- - l_nepo_y := l_nepo_y + 1; - -- - FOR conp_coca IN (SELECT coca.coca_id - FROM contract_categories coca - ,categories cate - WHERE cate.cate_id = coca.cate_id - AND coca.cont_id = g_cont_id - ORDER BY coca.display_sequence ) LOOP - -- - -- Look for the value in the spreadsheet - -- - g_error_point := 'P209'; - -- - l_field_value := get_spreadsheet_value( p_gtsp_id => p_gtsp_id - , p_x_axis => l_x_a - , p_y_axis => l_y_a - ); - -- - g_error_point := 'P210'; - -- - IF INSTR(l_field_value,'.') > 0 THEN - -- - l_field_value := RTRIM(RTRIM(l_field_value,'0'),'.'); - -- - END IF; - -- - set_nnpcv ( p_value => caco_utilities.thousand_separated_to_num(l_field_value) - , p_gas_day => TO_DATE( g_gas_days(1) - , cout_system_configuration.get_configuration_item('G_DATE_FORMAT')) - , p_coca_id => conp_coca.coca_id - , p_conp_id => l_conp_id - ); - -- - g_error_point := 'P211'; - -- - l_x_a := CHR(ASCII(l_x_a)+1); - -- - END LOOP; -- categories - -- - -- Increment row number - -- - l_y_a := TO_NUMBER(l_y_a) + 1; - -- - -- Reset starting column - -- - l_x_a := l_x_a_start; - -- - END LOOP; -- dates - -- - END LOOP; -- network points - -- - IF get_spreadsheet_value( p_gtsp_id => p_gtsp_id - , p_x_axis => l_x_a - , p_y_axis => l_y_a - ) IS NOT NULL THEN - -- - l_return := FALSE; - p_error := caco_utilities.get_module_text(2519); - -- - END IF; - -- - g_error_point := 'P220'; - -- - END IF; - -- - -- Sort the details in case they have been loaded in the wrong order - will aid detection of missing values - -- - sort_nnpcv_array(p_nnpcv_tab - ,g_gas_days); - -- - -- - -- - IF p_error IS NULL THEN - -- - l_return := TRUE; - -- - END IF; - -- - ELSIF UPPER(lr_spte_row.name) = UPPER(g_spte_hourly) THEN - -- - NULL; - -- - ELSE - -- - -- Something else that we do not know about - -- - p_error := caco_utilities.get_module_text(p_text_number => 2330); -- Unexpected Error - l_return := FALSE; - -- - END IF; - -- - RETURN l_return; - -- - EXCEPTION - WHEN OTHERS THEN - -- - cout_err.report_and_go(p_exception_message => sqlerrm||' : '||g_error_point); - -- - p_error := NVL(p_error, caco_utilities.get_module_text(p_text_number => 2330)); -- Unexpected Error - l_return := FALSE; - -- - RETURN l_return; - -- - END process_spreadsheet_to_arrays; - -- - FUNCTION display_message ( p_mess IN VARCHAR2 - , p_type IN VARCHAR2 - ) RETURN VARCHAR2 IS - -- - l_return VARCHAR2(200); - -- - BEGIN - -- - IF p_type = wsgl.mess_success THEN - -- - l_return := htf.bold(''||htf.italic(wsgl.MsgGetText(121,WSGLM.DSP121_SUCCESS))|| - '
'||p_mess); - -- - ELSIF p_type = wsgl.mess_error THEN - -- - l_return := htf.bold(''||htf.italic(wsgl.MsgGetText(122,WSGLM.DSP122_ERROR))|| - '
'||p_mess); - -- - END IF; - -- - RETURN l_return; - -- - END display_message; - -- - FUNCTION send_nom_notification( p_cust_id IN customers.cust_id%TYPE - , p_nomi_identifier IN nominations.identifier%TYPE DEFAULT NULL - , p_gas_day_start IN DATE DEFAULT NULL - , p_gas_day_end IN DATE DEFAULT NULL - , p_timestamp IN DATE DEFAULT NULL - ) RETURN VARCHAR2 IS - -- - l_letter_content VARCHAR2(4000); - l_letter_subject VARCHAR2(4000); - -- - BEGIN - -- - g_error_point := 'S010'; - -- - FOR cust_rec IN ( SELECT cust.nom_conf_subject - ,cust.nom_conf_content - FROM customers cust - WHERE cust.cust_id = p_cust_id - ) LOOP - -- - g_error_point := 'S020'; - -- - l_letter_content := cust_rec.nom_conf_content; - l_letter_subject := cust_rec.nom_conf_subject; - -- - g_error_point := 'S030'; - -- - IF p_nomi_identifier IS NOT NULL THEN - -- - l_letter_content := REPLACE(l_letter_content, '{NOMINATION_IDENTIFIER}', p_nomi_identifier); - l_letter_subject := REPLACE(l_letter_subject, '{NOMINATION_IDENTIFIER}', p_nomi_identifier); - -- - END IF; - -- - g_error_point := 'S040'; - -- - IF p_gas_day_start IS NOT NULL THEN - -- - l_letter_content := REPLACE(l_letter_content, '{GAS_DAY_START}', TO_CHAR(p_gas_day_start, g_date_format)); - l_letter_subject := REPLACE(l_letter_subject, '{GAS_DAY_START}', TO_CHAR(p_gas_day_start, g_date_format)); - -- - END IF; - -- - g_error_point := 'S050'; - -- - IF p_gas_day_end IS NOT NULL THEN - -- - l_letter_content := REPLACE(l_letter_content, '{GAS_DAY_END}', TO_CHAR(p_gas_day_end, g_date_format)); - l_letter_subject := REPLACE(l_letter_subject, '{GAS_DAY_END}', TO_CHAR(p_gas_day_end, g_date_format)); - -- - END IF; - -- - g_error_point := 'S060'; - -- - IF p_timestamp IS NOT NULL THEN - -- - l_letter_content := REPLACE(l_letter_content, '{TIMESTAMP}', TO_CHAR(p_timestamp, g_date_format||' HH24:MI')); - l_letter_subject := REPLACE(l_letter_subject, '{TIMESTAMP}', TO_CHAR(p_timestamp, g_date_format||' HH24:MI')); - -- - END IF; - -- - g_error_point := 'S070'; - -- - efno_msgsubs.send_messages ( p_cust_id => p_cust_id - , p_suca_id => efno_msgsubs.get_suca_id( p_suca_group => gc_suca_msg_group_en - , p_suca_name => gc_suca_name_en - ) - , p_email_content_en => l_letter_content - , p_email_subject_en => l_letter_subject - , p_sms_content_en => l_letter_subject - ); - -- - END LOOP; - -- - g_error_point := 'S080'; - -- - RETURN l_letter_content; - -- - END; - -- - FUNCTION timestamp_nomi ( p_nomi_id IN nominations.nomi_id%TYPE - , p_nomi_details IN VARCHAR2 - ) RETURN DATE IS - -- - l_timestamp DATE; - l_empty_blob BLOB; - l_message_blob BLOB; - -- - BEGIN - -- - l_message_blob := l_empty_blob; - -- - l_message_blob := utl_raw.cast_to_raw(p_nomi_details); - -- - l_timestamp := amfr_timestamp.timestamp_document( p_identifier => p_nomi_id - , p_doctype => amfr_timestamp.c_nomination - , p_file_for_hash => l_message_blob - ); - -- - efno_nominations.upd_nomi_timestamp( p_nomi_id => p_nomi_id - , p_timestamp => l_timestamp - ); - -- - l_message_blob := l_empty_blob; - -- - RETURN l_timestamp; - -- - END timestamp_nomi; - -- - FUNCTION get_spte_name ( p_cont_id IN contracts.cont_id%TYPE ) RETURN VARCHAR2 IS - -- - l_return VARCHAR(100); - -- - BEGIN - -- - IF p_cont_id IS NOT NULL THEN - -- - SELECT UPPER(spte.name) - INTO l_return - FROM contracts cont - ,spreadsheet_templates spte - WHERE spte.spte_id = cont.spte_id - AND spte.spte_type = 'NOST' - AND cont.cont_id = p_cont_id; - -- - END IF; - -- - RETURN l_return; - -- - END get_spte_name; - -- - FUNCTION get_receive_before_start( p_cont_id IN contracts.cont_id%TYPE ) RETURN NUMBER IS - -- - l_return NUMBER; - -- - BEGIN - -- - SELECT receive_before_start - INTO l_return - FROM contracts - WHERE cont_id = p_cont_id; - -- - RETURN l_return; - -- - END get_receive_before_start; - -- - FUNCTION get_matrix_val ( p_conp_id IN conf_net_point_cat_vals.conp_id%TYPE - , p_coca_id IN contract_categories.coca_id%TYPE - , p_iteration IN NUMBER - , p_mode IN NUMBER DEFAULT 0 - ) RETURN VARCHAR2 IS - -- - l_return VARCHAR2(30) := '0'; - l_iteration NUMBER := 0; - l_MJ_cate_name categories.name%TYPE; - l_m3_coca_id NUMBER; - l_cv NUMBER; - -- - CURSOR cu_MJ_cate IS - SELECT cate.name - FROM categories cate, - contract_categories coca - WHERE coca.coca_id = p_coca_id - AND coca.cate_id = cate.cate_id - AND cate.units IN ('MJ/day','MJ/nap'); - -- - CURSOR cu_m3_coca (cp_cate_name categories.name%TYPE)IS - SELECT coca.coca_id - FROM categories cate, - contract_categories coca, - contracts cont - WHERE cate.name = cp_cate_name - AND cont.cont_id = g_cont_id - AND cont.cont_id = coca.cont_id - AND coca.cate_id = cate.cate_id - AND cate.units IN ('m3/day','m3/nap'); - -- - BEGIN - -- - IF g_nnpcv_tab.COUNT > 0 THEN - -- - -- Looks like we've comething to display, be it good or bad - -- - FOR idx IN 1..g_nnpcv_tab.COUNT LOOP - -- - IF g_nnpcv_tab(idx).conp_id = p_conp_id - AND g_nnpcv_tab(idx).coca_id = p_coca_id THEN - -- - -- Found a match, but is it the right one - -- - l_iteration := l_iteration + 1; - -- - IF l_iteration = p_iteration THEN - IF g_nnpcv_tab(idx).value = 0 OR g_nnpcv_tab(idx).value IS NULL THEN - -- - -- check to see if we are looking at a MJ/day energy value - -- - OPEN cu_MJ_cate; - FETCH cu_MJ_cate INTO l_MJ_cate_name; - IF cu_MJ_cate%FOUND THEN - -- - -- lets if there is a related volume category in the contract - -- - OPEN cu_m3_coca(l_MJ_cate_name); - FETCH cu_m3_coca INTO l_m3_coca_id; - IF cu_m3_coca%FOUND THEN - -- - -- lets get the cv value - -- - l_cv := get_cv(p_conp_id); - IF l_cv > 0 THEN - -- - -- lets get the volume value multiply by cv - -- - l_return := caco_utilities.thousand_separated_to_num(get_matrix_val(p_conp_id,l_m3_coca_id,p_iteration)) * l_cv; - -- - ELSE - l_return := g_nnpcv_tab(idx).value; - END IF; - ELSE - l_return := g_nnpcv_tab(idx).value; - END IF; - CLOSE cu_m3_coca; - ELSE - l_return := g_nnpcv_tab(idx).value; - END IF; - CLOSE cu_MJ_cate; - -- - ELSE - l_return := g_nnpcv_tab(idx).value; - END IF; - EXIT; - -- - END IF; - -- - END IF; - -- - END LOOP; - -- - END IF; - -- - RETURN caco_utilities.to_thousand_separated(l_return); - -- - EXCEPTION - WHEN OTHERS THEN - -- - cout_err.report_and_stop(p_exception_message => sqlerrm||' : efnow098$.get_matrix_val'); - -- - END get_matrix_val; - -- - FUNCTION check_row_error ( p_row_number IN NUMBER - ) RETURN VARCHAR2 IS - -- - -- Function to check for the existance of a row error, and if present, return it - -- - l_return VARCHAR2(1000) := NULL; - -- - BEGIN - -- - IF g_row_error.EXISTS(p_row_number) THEN - -- - l_return := ' class="error" title='''||g_row_error(p_row_number)||''''; - -- - END IF; - -- - RETURN l_return; - -- - END check_row_error; - -- - FUNCTION check_cell_error ( p_conp_id IN conf_net_point_cat_vals.conp_id%TYPE - , p_coca_id IN contract_categories.coca_id%TYPE - , p_iteration IN NUMBER - ) RETURN VARCHAR2 IS - -- - -- Function to check for the existance of a row error, and if present, return it - -- - l_return VARCHAR2(1000); - -- - BEGIN - -- - FOR i IN 1..g_cell_error.COUNT LOOP - -- - -- Loop around all cell errors, should only be a few as an exception is raise soon after the error - -- - IF p_conp_id = g_cell_error(i).conp_id - AND p_coca_id = g_cell_error(i).coca_id - AND p_iteration = g_cell_error(i).iteration THEN - -- - -- Is a match, output the error - -- - l_return := ' class="error" title='''||g_cell_error(i).message||''''; - -- - END IF; - -- - END LOOP; - -- - IF l_return IS NULL THEN - -- - -- See if I'm interrupted - -- - IF efno_interruption.am_i_interrrupted ( p_conp_id => p_conp_id - , p_coca_id => p_coca_id - , p_gasday => (g_target_date + (p_iteration-1)) - ) THEN - -- - l_return := ' class="interruption" title='''||caco_utilities.get_module_text(3809)||''''; - -- - g_int_category := TRUE; - -- - ELSE - -- - l_return := ' class="r" '; - -- - END IF; - -- - END IF; - -- - RETURN l_return; - -- - END check_cell_error; - -- - PROCEDURE display_nom_details ( p_type IN VARCHAR2 DEFAULT 'TABLE' ) IS - -- - l_tab_head_1 VARCHAR2(4000); - l_tab_head_2 VARCHAR2(4000); - l_tab_line VARCHAR2(4000); - l_loop_counter NUMBER := 1; - l_gas_day DATE; - -- - l_num_hours NUMBER; - l_cont_long_day BOOLEAN; - l_only_short_day BOOLEAN; - -- - l_cv NUMBER; - l_MJ_coca_id NUMBER := 0; - -- - CURSOR cu_MJ_cate (cp_m3name categories.name%TYPE)IS - SELECT coca.coca_id - FROM categories cate, - contracts cont, - contract_categories coca - WHERE cate.name = cp_m3name - AND cont.cont_id = g_cont_id - AND cont.cont_id = coca.cont_id - AND coca.cate_id = cate.cate_id - AND cate.units IN ('MJ/day','MJ/nap'); - -- - FUNCTION get_element ( p_array IN owa_util.vc_arr - , p_index IN NUMBER - ) RETURN VARCHAR2 IS - -- - l_return VARCHAR2(100) := NULL; - -- - BEGIN - -- - IF p_array.COUNT >= p_index THEN - -- - l_return := p_array(p_index); - -- - END IF; - -- - RETURN l_return; - -- - END get_element; - -- - BEGIN - -- - IF g_cont_id IS NOT NULL THEN - -- - -- Contract is set, we can continue - -- - -- set the g_target_date? ** - -- - g_target_date := NVL(TO_DATE(get_element(g_gas_days,1),g_date_format), g_target_date); - -- - -- Sort out the start and end dates if looking at multi dates - -- - IF get_spte_name(g_cont_id) IN (UPPER(g_spte_multi),UPPER(g_spte_smulti)) THEN - -- -/* htp.p('**'||'g_cont_start_date: '||g_cont_start_date); - htp.p('
'); - htp.p('**'||'g_cont_end_date: '||g_cont_end_date); - htp.p('
'); - htp.p('**'||'g_target_date: '||g_target_date); - htp.p('
'); - htp.p('**'||'g_target_date_end: '||g_target_date_end); - htp.p('
');*/ - -- - -- Check the start date against the contract start date - this will effect the number of days - -- - IF g_target_date < g_cont_start_date OR g_target_date IS NULL THEN - -- - -- Target date is less than the start of the contract...what to do? - -- - g_target_date := g_cont_start_date; - -- - END IF; - -- - IF g_target_date > g_cont_end_date THEN - -- - g_target_date := g_cont_end_date; - -- - END IF; - -- - IF g_target_date_end IS NULL THEN - -- - g_target_date_end := g_target_date; - -- - END IF; - -- - IF g_target_date_end < g_target_date THEN - -- - g_target_date_end := g_target_date; - -- - END IF; - -- - IF g_target_date_end > g_cont_end_date THEN -- g_target_date < TO_NUMBER(cout_system_configuration.get_configuration_item('G_MULTI_DAY_NOM_DAYS')) THEN - -- - g_target_date_end := g_cont_end_date; - -- - END IF; - -- - IF g_target_date_end < g_cont_start_date THEN - -- - g_target_date_end := g_cont_start_date; - -- - END IF; - -- - IF get_spte_name(g_cont_id) = UPPER(g_spte_multi) THEN - -- - l_loop_counter := (g_target_date_end - g_target_date) +1; - -- - END IF; - -- -/* htp.p('----------------------------'); - htp.p('
'); - htp.p('**'||'g_target_date: '||g_target_date); - htp.p('
'); - htp.p('**'||'g_target_date_end: '||g_target_date_end); - htp.p('
'); - htp.p('**Loop:'||l_loop_counter); - htp.p('
');*/ - -- - END IF; - -- - -- - htp.p(''); - -- - -- submit and verify buttons - -- - htp.p(''); - htp.p(''); - htp.p('
'); - htp.p('
'); - -- - -- Header Table - -- - htp.p(''); - -- - htp.p(''); - htp.p(''); - htp.p(''); - htp.p(''); - IF g_cont_num IS NOT NULL - THEN - htp.p(''); - htp.p(''); - htp.p(''); - htp.p(''); - END IF; - -- - IF get_spte_name(g_cont_id) = UPPER(g_spte_single) THEN - -- - htp.p(''|| - ' - - '); - -- - ELSIF get_spte_name(g_cont_id) IN (UPPER(g_spte_multi),UPPER(g_spte_smulti)) THEN - -- - htp.p(''|| - ' - '); - -- - htp.p(''); - -- - END IF; - -- - IF get_spte_name(g_cont_id) = UPPER(g_spte_smulti) THEN - -- - htp.p(''); - -- - END IF; - -- - htp.p('
'||caco_utilities.get_module_text(1145)||''||caco_utilities.get_cust_name||'
'||caco_utilities.get_module_text(3552)||''||g_cont_num||'
'||caco_utilities.get_module_text(1142)||' - - '); - -- - htp.p(wsgjsl.calbutton(field_name => 'gasday', - p_calbut => htf.img(curl => caco_system.images_path || - 'lov.gif', - calign => 'TOP', - cattributes => 'ALT="List Values" WIDTH=18 HEIGHT=22 BORDER'), - p_form => 'forms[1]', - field_format => g_date_format, - p_field_prompt => caco_utilities.get_module_text(1142))); - -- - htp.p('
'||caco_utilities.get_module_text(2484)||' - '); - htp.p(''); - -- - htp.p(wsgjsl.calbutton(field_name => 'p_gasday_start', - p_calbut => htf.img(curl => caco_system.images_path || - 'lov.gif', - calign => 'TOP', - cattributes => 'ALT="List Values" WIDTH=18 HEIGHT=22 BORDER'), - p_form => 'forms[1]', - field_format => g_date_format, - p_field_prompt => caco_utilities.get_module_text(1142))); - -- - htp.p('
'||caco_utilities.get_module_text(2485)||' - '); - htp.p(''); - -- - htp.p(wsgjsl.calbutton(field_name => 'p_gasday_end', - p_calbut => htf.img(curl => caco_system.images_path || - 'lov.gif', - calign => 'TOP', - cattributes => 'ALT="List Values" WIDTH=18 HEIGHT=22 BORDER'), - p_form => 'forms[1]', - field_format => g_date_format, - p_field_prompt => caco_utilities.get_module_text(1142))); - htp.p('
'); - -- - htp.br; - -- - -- Work out if we need to worry about the long and short days - -- - l_only_short_day := FALSE; - l_cont_long_day := FALSE; - -- - -- Check to see if the period we are looking at contains the long day, or only contains the short day - -- - FOR i IN 1..l_loop_counter LOOP - -- - IF cout_dates.hours_in_gas_day(g_target_date + (i-1)) = 25 THEN - l_cont_long_day := TRUE; - END IF; - -- - END LOOP; - -- - IF ( get_spte_name(g_cont_id) = UPPER(g_spte_single) - OR l_loop_counter = 1 ) - AND cout_dates.hours_in_gas_day(g_target_date) = 23 THEN - -- - l_only_short_day := TRUE; - -- - END IF; - -- - -- Data Table - -- - htp.p(''); - -- - FOR cate IN (SELECT coca.coca_id - ,cate.code - ,cate.name - ,cate.units - ,row_number() over (partition by cate.name order by coca.display_sequence) disp_head - ,sq1.span - ,cate.display_cond - FROM contract_categories coca - ,categories cate - , (SELECT cate2.name - ,count(*) as span - FROM contract_categories coca2 - ,categories cate2 - WHERE coca2.cont_id = g_cont_id - AND coca2.cate_id = cate2.cate_id - GROUP BY cate2.name) sq1 - WHERE cate.cate_id = coca.cate_id - AND coca.cont_id = g_cont_id - AND sq1.name = cate.name - ORDER BY coca.display_sequence ) LOOP - -- - IF (cate.display_cond = 'LO' AND l_cont_long_day) - OR (cate.display_cond = 'SH' AND NOT l_only_short_day) - OR cate.display_cond = 'AL' THEN - -- - IF cate.disp_head = 1 THEN - l_tab_head_1 := l_tab_head_1 || ''; - END IF; - -- - l_tab_head_2 := l_tab_head_2 || ''; - -- - END IF; - -- - END LOOP; - -- - IF get_spte_name(g_cont_id) IN (UPPER(g_spte_single),UPPER(g_spte_smulti)) THEN - -- - l_tab_head_1 := ''||l_tab_head_1||''; - l_tab_head_2 := ''||l_tab_head_2||''; - -- - ELSIF get_spte_name(g_cont_id) = UPPER(g_spte_multi) THEN - -- - l_tab_head_1 := ''||l_tab_head_1||''; - l_tab_head_2 := ''||l_tab_head_2||''; - -- - END IF; - -- - htp.p(l_tab_head_1); - htp.p(l_tab_head_2); - -- - FOR conp IN ( SELECT nepo.name - ,nepo.code - ,conp.conp_id - ,rownum AS sitenum - FROM cont_network_points conp - ,network_points nepo - WHERE nepo.nepo_id = conp.nepo_id - AND conp.cont_id = g_cont_id - AND ((nepo.nepo_type = 'V' AND efno_contracts.emo_contract(g_cont_id) = 'Y') OR - (nepo.nepo_type IN ('N','X') AND efno_contracts.emo_contract(g_cont_id) = 'N')) - --ORDER BY conp.display_sequence - ORDER BY nepo.code - ) LOOP - -- - htp.p(''); - -- - l_cv := get_cv(conp.conp_id); - -- - htp.p(''); - -- - FOR i IN 1..l_loop_counter LOOP - -- - l_num_hours := cout_dates.hours_in_gas_day(g_target_date + (i-1)); - -- - IF get_spte_name(g_cont_id) IN (UPPER(g_spte_single),UPPER(g_spte_smulti)) THEN - -- - l_tab_line := ''; - -- - ELSIF get_spte_name(g_cont_id) = UPPER(g_spte_multi) THEN - -- - l_tab_line := ''; - -- - ELSE - -- - l_tab_line := ''; - -- - END IF; - -- - -- For all sites - -- - FOR conp_coca IN (SELECT coca.coca_id - ,cate.display_cond - ,cate.units - ,cate.name - FROM contract_categories coca - ,categories cate - WHERE cate.cate_id = coca.cate_id - AND coca.cont_id = g_cont_id - ORDER BY coca.display_sequence ) LOOP - -- - --htp.p(''); - -- - l_MJ_coca_id := 0; - -- - -- check to see if this is a m3/day volume category and we have a non-zero cv value - -- - IF conp_coca.units IN ('m3/day','m3/nap') AND l_cv > 0 THEN - -- - -- check to see if we have an equivalent energy category in the contract - -- - OPEN cu_MJ_cate(conp_coca.name); - FETCH cu_MJ_cate INTO l_MJ_coca_id; - IF cu_MJ_cate%NOTFOUND THEN - l_MJ_coca_id := 0; - END IF; - CLOSE cu_MJ_cate; - -- - END IF; - -- - IF conp_coca.display_cond = 'AL' THEN - -- - -- check to see if we need to put an onchange js call to calculate the energy - -- - IF l_MJ_coca_id > 0 THEN - -- - l_tab_line := l_tab_line || ''; - -- - ELSE - -- - l_tab_line := l_tab_line || ''; - -- - END IF; - -- - ELSIF conp_coca.display_cond = 'SH' THEN - -- - -- this is a short day category - -- - IF l_num_hours = 23 THEN - -- - IF l_only_short_day THEN - -- - NULL; - -- - ELSE - -- - l_tab_line := l_tab_line || ''; - -- - END IF; - -- - ELSE - -- - -- check to see if we need to put an onchange js call to calculate the energy - -- - IF l_MJ_coca_id > 0 THEN - -- - l_tab_line := l_tab_line || ''; - -- - ELSE - -- - l_tab_line := l_tab_line || ''; - -- - END IF; - -- - END IF; - -- - ELSIF conp_coca.display_cond = 'LO' THEN - -- - -- this is a long day category - -- - IF l_num_hours = '25' THEN - -- - -- check to see if we need to put an onchange js call to calculate the energy - -- - IF l_MJ_coca_id > 0 THEN - -- - l_tab_line := l_tab_line || ''; - -- - ELSE - -- - l_tab_line := l_tab_line || ''; - -- - END IF; - -- - ELSIF l_cont_long_day THEN - -- - l_tab_line := l_tab_line || ''; - -- - ELSE - -- - NULL; - -- - END IF; - -- - END IF; - -- - END LOOP; - -- - l_tab_line := l_tab_line || ''; - htp.p(l_tab_line); - -- - END LOOP; - -- - END LOOP; - -- - htp.p('
'||cate.name||''||cate.units||'
'||caco_utilities.get_module_text(2113)||''||caco_utilities.get_module_text(2023)||'
'||caco_utilities.get_module_text(2113)||''||caco_utilities.get_module_text(2023)||''||caco_utilities.get_module_text(1142)||'
'||conp.code||''||conp.name||'
'||conp.code||''||conp.name||''||'
'||conp.name||''||conp.code||''||''||''||''||''||''||''||''||''||''||''||'
'); - -- - ELSE - -- - -- No contract identifier found - error! - -- - wsgl.displaymessage(p_type => WSGL.MESS_ERROR - ,p_mess => gc_no_cont_found - ); - -- - END IF; - -- - --caco_debug.putline('display_nom_details END'); - EXCEPTION - WHEN OTHERS THEN - -- - cout_err.report_and_stop(p_exception_message => sqlerrm||' : efnow098$.display_nom_details'); - -- - END display_nom_details; - -- - FUNCTION check_nomination ( p_nomination IN nominations.identifier%TYPE - , p_cust_id IN customers.cust_id%TYPE - ) RETURN BOOLEAN IS - -- - l_return BOOLEAN := FALSE; - -- - BEGIN - -- - FOR i IN ( SELECT noms.nomi_id - FROM nominations noms - ,contracts cont - WHERE noms.identifier = p_nomination - AND noms.cont_id = cont.cont_id - AND cont.cust_id = p_cust_id ) LOOP - -- - l_return := TRUE; - -- - EXIT; - -- - END LOOP; - -- - RETURN l_return; - -- - END; - -- - PROCEDURE page_foot ( p_rb IN VARCHAR2 - , p_contract IN VARCHAR2 DEFAULT NULL - , p_nomination IN VARCHAR2 DEFAULT NULL - , p_spreadsheet IN VARCHAR2 DEFAULT NULL - ) IS - -- - l_valid BOOLEAN := FALSE; - l_message VARCHAR2(1000) := NULL; - -- - l_gtsp_id gtt_spreadsheet.spreadsheet_id%TYPE; - -- - BEGIN - -- - --caco_debug.putline('-----page_foot'); - -- - -- Build the matrix if the correct parameters have been passed - -- - htp.p('
'); - -- - IF ( p_rb = '1' AND p_contract IS NOT NULL) - OR ( p_rb = '2' AND p_nomination IS NOT NULL) - OR ( p_rb = '3' AND p_spreadsheet IS NOT NULL) THEN - -- - -- Lets display the grid - -- - IF p_rb = '2' THEN - -- - -- Copying an existing nomination, check is valid for my user - -- - l_valid := check_nomination ( p_nomination => p_nomination - , p_cust_id => g_cust_id - ); - -- - IF l_valid THEN - -- - -- Appears to be valid, lets get the nomination - -- - SELECT * - BULK COLLECT - INTO g_nomi_tab - FROM nominations noms - WHERE noms.identifier = p_nomination; - -- - -- Now get the details - -- - SELECT * - BULK COLLECT - INTO g_nnpcv_tab - FROM nom_net_point_cat_vals nnpcv - WHERE nnpcv.nomi_id = g_nomi_tab(1).nomi_id - ORDER BY nnpcv.gas_day - ,efno_nominations.get_conp(nnpcv.conp_id, 'DISPLAY_SEQUENCE') - ,efno_nominations.get_coca(nnpcv.coca_id, 'DISPLAY_SEQUENCE'); - -- - -- Set the target end date to the number of days in the nomination - -- - g_target_date_end := g_target_date + (g_nnpcv_tab(g_nnpcv_tab.LAST).gas_day - g_nnpcv_tab(1).gas_day); - -- - END IF; - -- - END IF; - -- - IF p_rb = '3' THEN - -- - -- Uploading a spreadsheet, find the document - -- - FOR i IN ( SELECT docu.docu_id - FROM documents docu - WHERE docu.name = p_spreadsheet ) LOOP - -- - -- Decode the document using the java routines - -- - BEGIN - -- - l_gtsp_id := amfr_excel.j_readworkbook(p_docu_id => i.docu_id); - -- - EXCEPTION - WHEN OTHERS THEN - -- - l_valid := FALSE; - -- - cout_err.report_and_go( p_exception_number => sqlcode - , p_exception_message => sqlerrm - ); - -- - l_valid := FALSE; - -- - END; - -- - IF l_gtsp_id IS NOT NULL AND l_gtsp_id != 0 THEN - -- - -- Spreadheet appears to be OK, continue processing - -- - caco_debug.putline('Read Spreadsheet gtsp: '||l_gtsp_id); - -- - FOR i IN ( SELECT COUNT(*) AS gcnt - FROM gtt_spreadsheet gtts - WHERE gtts.spreadsheet_id = l_gtsp_id) LOOP - -- - caco_debug.putline('Spreadsheet decoded to: '||i.gcnt||' cells.'); - -- - END LOOP; - -- - IF NOT process_spreadsheet_to_arrays ( p_gtsp_id => l_gtsp_id - , p_cont_id => g_cont_id - , p_nomi_tab => g_nomi_tab - , p_nnpcv_tab => g_nnpcv_tab - , p_error => l_message - ) THEN - -- - l_valid := FALSE; - -- - ELSE - -- - l_valid := TRUE; - -- - END IF; - -- - ELSE - -- - -- File doesn't appear to be in the correct format (that is, a spreadsheet) - -- - l_valid := FALSE; - l_message := gc_invalid_file_format; - -- - END IF; - -- - END LOOP; - -- - END IF; - -- - IF p_rb = '1' - OR l_valid THEN - -- - -- Build the form - -- - htp.p('
'); - -- - htp.p('
'); - -- - -- Display the details - -- - display_nom_details(p_type => 'TABLE'); - -- - htp.p('
'); - -- - -- submit and verify buttons - -- - htp.p(''); - htp.p(''); - -- - htp.p('
'); - -- - ELSE - -- - -- Must have invalid data - display any error - -- - wsgl.displaymessage(p_type => WSGL.MESS_ERROR - ,p_mess => l_message - ); - -- - END IF; - -- - ELSE - -- - -- Nothing to display - enter header details - -- - htp.p(gc_missing_details); - -- - END IF; - -- - -- Close the nommatrix div - -- - htp.p('
'); - -- - -- Interruption notes at footer of the page - -- - IF g_int_category THEN - -- - htp.br; - htp.p('

'||caco_utilities.get_module_text(3810)||'

'); - -- - END IF; - -- - caco_system.footer(p_closebody => TRUE); - -- - -- re-initialise the tables with empty tables in case they've been used - -- - g_nomi_tab := g_empty_nomi_tab; - g_nnpcv_tab := g_empty_nnpcv_tab; - -- - g_cell_error := g_empty_cell_error; - g_row_error := g_empty_row_error; - -- - END page_foot; - -- - FUNCTION pdecode ( p_decode_string IN VARCHAR2 - ) RETURN VARCHAR2 IS - -- - l_return VARCHAR2(4000); - -- - BEGIN - -- - EXECUTE IMMEDIATE 'SELECT '||p_decode_string||' FROM DUAL' into l_return; - -- - RETURN l_return; - -- - EXCEPTION - WHEN OTHERS THEN - htp.p(sqlerrm||p_decode_string); - RETURN NULL; - END pdecode; - -- - PROCEDURE get_cont_id ( p_cust_id IN customers.cust_id%TYPE - , p_contract_number IN contracts.contract_number%TYPE - ) IS - -- - BEGIN - -- - BEGIN - -- - SELECT cont.cont_id - ,cont.contract_number - ,cont.valid_from - ,cont.valid_until - INTO g_cont_id - ,g_cont_num - ,g_cont_start_date - ,g_cont_end_date - FROM contracts cont - WHERE cont.cust_id = p_cust_id - AND cont.status = 'O' - AND cont.contract_number = p_contract_number - AND rownum < 2; - -- - EXCEPTION - WHEN OTHERS THEN - -- - BEGIN - SELECT cont_id - ,contract_number - ,valid_from - ,valid_until - INTO g_cont_id - ,g_cont_num - ,g_cont_start_date - ,g_cont_end_date - FROM (SELECT cont.cont_id - ,cont.contract_number - ,cont.valid_from - ,cont.valid_until - FROM contracts cont - WHERE cont.cust_id = p_cust_id - AND cont.status = 'O' - AND cont.contract_number = NVL(p_contract_number,cont.contract_number) - ORDER BY cont.valid_from - ) - WHERE rownum < 2; - EXCEPTION - WHEN OTHERS THEN - -- - -- - g_cont_id := NULL; - g_cont_num := NULL; - END; - -- - END; - -- - END get_cont_id; - -- - -- Public - -- - PROCEDURE calendar(z_field_name IN VARCHAR2 - ,z_caller_url IN VARCHAR2 - ,z_field_value IN VARCHAR2 DEFAULT NULL - ,z_field_format IN VARCHAR2 DEFAULT NULL - ,z_field_prompt IN VARCHAR2 DEFAULT NULL) IS - -- - field_caption VARCHAR2(2000); - -- - BEGIN - -- - IF z_field_prompt IS NULL THEN - -- - field_caption := initcap(REPLACE(SUBSTR(z_field_name - ,3 - ,LENGTH(z_field_name) - 2) - ,'_' - ,' ')); - -- - ELSE - -- - field_caption := initcap(REPLACE(z_field_prompt - ,'_' - ,' ')); - -- - END IF; - -- - wsgl.registerurl(g_package_name || '.calendar'); - wsgl.addurlparam('Z_FIELD_NAME' - ,z_field_name); - wsgl.addurlparam('Z_CALLER_URL' - ,z_caller_url); - -- - IF wsgl.notlowercase THEN - RETURN; - END IF; - -- - wsgl.output_calendar(z_field_name - ,z_field_value - ,z_field_format - ,wsgl.msggettext(123 - ,wsglm.dsp128_cal_caption - ,field_caption) - ,NULL - ,g_package_name - ,'Close' - ,TRUE - ,'DD-MON-RRRR'); - -- - wsgl.output_calendar(z_field_name - ,z_field_value - ,z_field_format - ,wsgl.msggettext(123 - ,wsglm.dsp128_cal_caption - ,field_caption) - ,NULL - ,g_package_name - ,'Close' - ,FALSE - ,'DD-MON-RRRR'); - -- - EXCEPTION - WHEN OTHERS THEN - wsgl.displaymessage(wsgl.mess_exception - ,SQLERRM - ,'' - ,NULL - ,g_package_name || '.calendar'); - END calendar; - -- - PROCEDURE format_cal_date(z_field_name IN VARCHAR2 - ,z_field_format IN VARCHAR2 - ,DAY IN VARCHAR2 - ,MONTH IN VARCHAR2 - ,YEAR IN VARCHAR2) IS - -- - field_caption VARCHAR2(2000) := initcap(REPLACE(SUBSTR(z_field_name - ,3 - ,LENGTH(z_field_name) - 2) - ,'_' - ,' ')); - l_day VARCHAR2(15) := DAY; - -- - PROCEDURE output_format_cal_js(page_header IN VARCHAR2 - ,body_attributes IN VARCHAR2 - ,chosen_date IN VARCHAR2 - ,field_format IN VARCHAR2) IS - -- - -- Copied from WSGL - -- - the_date DATE := to_date(chosen_date - ,'DD-MONTH-YYYY'); - -- - BEGIN - -- - wsgl.openpagehead(page_header); - wsgl.closepagehead; - wsgl.openpagebody(FALSE - ,p_attributes => body_attributes); - htp.p(''); - wsgl.closepagebody; - -- - END output_format_cal_js; - BEGIN - -- - IF l_day = '0' THEN - l_day := '01'; - END IF; - -- - output_format_cal_js(wsgl.msggettext(123 - ,wsglm.dsp128_cal_caption - ,field_caption) - ,NULL - ,l_day || '-' || MONTH || '-' || YEAR - ,z_field_format); - -- - END format_cal_date; - -- - PROCEDURE noms_js IS - BEGIN - -- - owa_util.mime_header('application/x-javascript' - ,TRUE); - -- - htp.p(' function showtr(trid)'); - htp.p(' {'); - htp.p(' obj = document.getElementsByTagName(''TR'');'); - htp.p(' for (i=0; i= g_gas_day - ORDER BY c.valid_from; - -- - BEGIN - -- - --caco_debug.putline('-----nom_header'); - -- - get_cont_id ( p_contract_number => p_contract - , p_cust_id => g_cust_id ); - -- -/*caco_debug.putline('g_target_date: '||to_char(g_target_date,g_date_format)); -caco_debug.putline('g_gas_day: '||to_char(g_gas_day,g_date_format)); -caco_debug.putline('g_cust_id: '||g_cust_id); -caco_debug.putline('g_cont_start_date: '||to_char(g_cont_start_date,g_date_format));*/ - -- - IF NOT caco_security.security_check(p_package_name => g_package_name) THEN - -- - NULL; - -- - ELSE - -- - -- Display the page head - -- - page_head; - -- - -- Security Check OK, now build the form - -- - htp.p(' '); - htp.p('
'); - -- - -- Display any error or information messages - -- - IF g_error_message IS NOT NULL THEN - -- - htp.p(''||g_error_message||''); - -- - END IF; - -- - -- If appropriate, build the bottom of the screen - -- - IF ( p_rb = 1 AND l_contract IS NOT NULL) - OR ( p_rb = 2 AND p_nomination IS NOT NULL) - OR ( p_rb = 3 AND p_spreadsheet IS NOT NULL) THEN - -- - page_foot ( p_rb - , l_contract - , p_nomination - , p_spreadsheet - ); - -- - END IF; - -- - END IF; - -- - END nom_header; - -- - PROCEDURE nomination_lov(z_filter IN VARCHAR2 DEFAULT NULL - ,z_mode IN VARCHAR2 DEFAULT NULL - ,z_caller_url IN VARCHAR2 DEFAULT NULL - ,z_formrow IN NUMBER DEFAULT NULL - ,z_long_list IN VARCHAR2 DEFAULT NULL - ,z_issue_wait IN VARCHAR2 DEFAULT NULL - ) IS - -- - lb_first BOOLEAN := TRUE; - l_cust_id customers.cust_id%TYPE; - -- - BEGIN - -- - IF NOT caco_security.security_check(p_package_name => g_package_name) THEN - -- - RETURN; - -- - END IF; - htp.p('z_filter: '||'*'||z_filter||'*'); - -- - htp.p(' - - - - - - - - - - -

- '); - - htp.p('

'); - htp.p('

'); - htp.p('Search criterion for Identifier:'); - htp.p('

'); - htp.p(''); - htp.p(''); - htp.p(''); - htp.p('

'); - htp.p('

'); - l_cust_id := caco_utilities.get_cust_id; - FOR f IN (SELECT * - FROM (SELECT n.IDENTIFIER - ,c.contract_number - ,wsgl.gettext(caco_utilities.cgrefmeaning('STATUS' - ,n.status)) AS status - ,TO_CHAR(MIN(ncv.gas_day) - ,g_date_format) AS start_day - ,TO_CHAR(MAX(ncv.gas_day) - ,g_date_format) AS end_day - FROM nominations n - ,contracts c - ,nom_net_point_cat_vals ncv - WHERE c.cont_id IN (SELECT cont2.cont_id - FROM contracts cont2 - CONNECT BY PRIOR cont2.prev_cont_id = cont2.cont_id - START WITH cont2.cont_id = g_cont_id) - AND c.cust_id = l_cust_id - AND n.cont_id = c.cont_id - AND n.nomi_id = ncv.nomi_id - AND (n.IDENTIFIER LIKE z_filter OR z_filter IS NULL) - GROUP BY n.IDENTIFIER - ,c.contract_number - ,caco_utilities.cgrefmeaning('STATUS' - ,n.status) - ORDER BY MIN(ncv.gas_day) DESC - ,2) - WHERE ROWNUM < 50) LOOP - -- - IF lb_first THEN - -- - -- Print table header - we have some data - -- - htp.p(''); - htp.p(''); - htp.p(''); - htp.p(''); - -- - htp.p(''); - -- - lb_first := FALSE; - -- - END IF; - -- - htp.p(''); - -- - END LOOP; - -- - IF lb_first THEN - -- - -- No rows returned, display no data found - -- - htp.p(display_message ( p_mess => gc_no_data_found - , p_type => wsgl.mess_error - )); - -- - ELSE - -- - -- Rows returned, close the table - -- - htp.p(''); - htp.p('
IdentifierContract NumberStatusStart DateEnd Date
' || f.IDENTIFIER || - '' || f.contract_number || - '' || f.status || - '' || f.start_day || - '' || f.end_day || '
'); - -- - END IF; - -- - htp.p('

'); - -- - END nomination_lov; - -- - PROCEDURE redisplay (p_contract IN VARCHAR2 DEFAULT NULL - ,p_nomination IN VARCHAR2 DEFAULT NULL - ,p_spreadsheet IN VARCHAR2 DEFAULT NULL - ,p_rb IN VARCHAR2 DEFAULT 1 - ) IS - BEGIN - -- - --caco_debug.putline('-----redisplay'); - -- - g_cont_num := p_contract; - -- - nom_header(p_contract => p_contract - ,p_nomination => p_nomination - ,p_spreadsheet => p_spreadsheet - ,p_rb => p_rb - ); - -- - END redisplay; - -- - PROCEDURE submit_nomination ( val IN owa_util.vc_arr - , gasday IN owa_util.vc_arr - , coca IN owa_util.vc_arr - , conp IN owa_util.vc_arr - , cv IN owa_util.vc_arr - , cont_id IN contracts.cont_id%TYPE - , action IN VARCHAR2 DEFAULT NULL - , p_gasday_start IN VARCHAR2 DEFAULT NULL - , p_gasday_end IN VARCHAR2 DEFAULT NULL - ) IS - -- - -- Parameters are short intentionally - -- - l_message VARCHAR2(1000); - l_mess_type VARCHAR2(1000); - l_sub_list caco_utilities.g_t_substitution_list; - -- - e_ude EXCEPTION; - l_date DATE; - -- - l_nomi_id nominations.nomi_id%TYPE; - -- - lr_cell_error gr_cell_error; - -- - l_nomi_details VARCHAR2(4000); - l_timestamp DATE; - l_letter VARCHAR2(4000); - -- - l_c_nnpcv_tab efno_confirmations.nnpcv_tab; - l_rule_results BOOLEAN := TRUE; - -- - l_cnp_count NUMBER; - -- - l_idx NUMBER := NULL; - -- - l_rcve_b4_start NUMBER := 0; -- Contract receive before start - -- - l_multi_day_iter NUMBER := 7; - -- - l_num_format VARCHAR2(50); - -- - l_tot_perc_split NUMBER := 0; - -- - -- dbms_lock values - -- - l_noms_lock NUMBER; - l_noms_release NUMBER; - -- - -- local variables for input array manipulation for multi day noms - l_val owa_util.vc_arr; - l_gasday owa_util.vc_arr; - l_gd DATE; - l_nom_days NUMBER := 0; - l_i NUMBER := 0; - l_r NUMBER := 0; - val_i NUMBER := 0; - val_r NUMBER := 0; - -- - -- array to contain val array contents with no thousand separators - l_val_no_thou_sep owa_util.vc_arr; - -- - l_loop_counter NUMBER := 1; - l_coca_id NUMBER; - -- - CURSOR cu_coca(c_disp_cond IN categories.display_cond%TYPE) IS - SELECT coca.coca_id - FROM contract_categories coca - ,categories cate - WHERE cate.cate_id = coca.cate_id - AND coca.cont_id = g_cont_id - AND cate.display_cond = c_disp_cond; - -- - BEGIN - -- - --caco_debug.putline('-----submit_nomination'); - -- - -- Security check - -- - IF caco_security.security_check(p_package_name => g_package_name) THEN - -- - -- Attempt to lock nominations table - caco_debug.putline('Entered default_values'); - -- - l_noms_lock := dbms_lock.request(id => 128 - ,lockmode => 6 - ,timeout => 180); - caco_debug.putline('default_values DBMS_LOCK id 128 request value l_noms_lock is ' || - l_noms_lock); - -- - IF l_noms_lock = 0 THEN - BEGIN - -- - -- Set the initial error point - -- - g_error_point := 'A005'; - -- - -- 02/12/09 SP Modification to multi-day nominations - -- Manipulate the input arrays for single-multi day nominations to simulate noms entered - -- for each day. - -- - l_nom_days := (to_date(p_gasday_end,g_date_format) - to_date(p_gasday_start,g_date_format))+1; - -- -/* caco_debug.putline('p_gasday_start: '||p_gasday_start); - caco_debug.putline('p_gasday_end: '||p_gasday_end); - caco_debug.putline('l_nom_days: '||l_nom_days); - display_vc_arr('val before',val); - display_vc_arr('gasday before',gasday);*/ - -- - -- remove thousand separators from val array - -- - l_val_no_thou_sep := caco_utilities.thousand_separated_to_char(val); - --IF p_gasday_start IS NOT NULL AND p_gasday_end IS NOT NULL THEN - IF get_spte_name(cont_id) = UPPER(g_spte_smulti) THEN - FOR r IN 1..conp.count LOOP - l_gd := to_date(p_gasday_start,g_date_format); - --caco_debug.putline('l_gd1: '||l_gd); - FOR i IN 1..l_nom_days LOOP - -- enter values in the gasday array - --caco_debug.putline('l_gd: '||l_gd); - l_i := l_i + 1; - l_gasday(l_i) := to_char(l_gd,g_date_format); - l_gd := l_gd + 1; - END LOOP; - END LOOP; - -- - IF l_val_no_thou_sep.COUNT > 0 THEN - FOR r IN 1..conp.COUNT LOOP - FOR i IN 1..l_nom_days LOOP - FOR y IN 1..coca.COUNT LOOP - val_r := val_i + y; - l_r := l_r + 1; - -- enter values in the values array - l_val(l_r) := l_val_no_thou_sep(val_r); - END LOOP; - END LOOP; - val_i := val_i + coca.COUNT; - END LOOP; - END IF; - ELSE - -- must be single day or multiple day nomination - l_val := l_val_no_thou_sep; - l_gasday := gasday; - END IF; - -- -/* display_vc_arr('val after',l_val); - display_vc_arr('gasday after',l_gasday);*/ - -- - -- Anonymous block to handle exceptions - -- - IF action IN (caco_utilities.get_module_text(1149/* Verify */), caco_utilities.get_module_text(840/* Insert */)) THEN - -- - -- Nomination Identifier looks OK, set it globally - -- - g_error_point := 'A015'; - -- - -- Now validate the details, set the global - -- - g_error_point := 'A025'; - -- - g_gas_days := l_gasday; - -- - -- Pre-populate the arrays based on screen values without any validation - -- so earlier validation failures do not 'wipe-out' screen values. - -- - g_error_point := 'A035'; - -- - -- Check the number of categories and sites is in the same ballpark as the number of values supplied (multiplication factor) - -- - IF MOD(l_val.COUNT,(conp.COUNT*coca.COUNT))=0 THEN - -- - -- only proceed if balanced, otherwise, how would we know... - -- - g_error_point := 'A036'; - -- - FOR i IN 1..l_val.COUNT LOOP - -- - -- Pre-populate the variables in case of any errors - -- - g_error_point := 'A037'; - -- - g_nnpcv_tab(i).conp_id := conp(TRUNC((i-1)/(coca.COUNT*(l_val.COUNT/(conp.COUNT*coca.COUNT))))+1); - g_error_point := 'A038'; - g_nnpcv_tab(i).coca_id := coca(MOD((i-1),coca.COUNT)+1); - g_error_point := 'A039'; - g_nnpcv_tab(i).value := l_val(i); - -- - END LOOP; - -- - END IF; - -- - g_error_point := 'A045'; - -- - -- Verify the nomination - -- - IF cont_id IS NOT NULL THEN - -- - -- Ensure that we have a contract before proceeding - -- - g_error_point := 'A095'; - -- - get_cont_id(p_cont_id => cont_id); - -- - -- Get the "Receive Before Start" parameter for the contract - l_rcve_b4_start := get_receive_before_start(g_cont_id); - -- - g_error_point := 'A115'; - -- - IF get_spte_name(g_cont_id) = UPPER(g_spte_single) THEN - -- - -- Looking at a single gas day - -- - IF g_gas_days(1) IS NULL THEN - -- - l_sub_list(1) := caco_utilities.get_module_text(1142); - -- - caco_utilities.get_exception_message(p_exception_number => -20506 - ,p_message => l_message - ,p_exme_type => l_mess_type - ,p_substitution_list => l_sub_list - ,p_language => caco_utilities.get_syus_lang - ); - -- - g_error_point := 'A120'; - -- - RAISE e_ude; - -- - END IF; - -- - g_error_point := 'A125'; - -- - BEGIN - -- - l_date := TO_DATE(g_gas_days(1), g_date_format); - -- - EXCEPTION - -- - WHEN OTHERS THEN - -- - l_sub_list(1) := g_gas_days(1); - -- - caco_utilities.get_exception_message(p_exception_number => -20102 - ,p_message => l_message - ,p_exme_type => l_mess_type - ,p_substitution_list => l_sub_list - ,p_language => caco_utilities.get_syus_lang - ); - -- - g_error_point := 'A130'; - -- - RAISE e_ude; - -- - END; - -- - g_error_point := 'A135'; - -- - -- Established it is a valid date, but is it in the correct timeframe? - -- - IF l_date < g_target_date -1 THEN - -- - l_sub_list(1) := TO_CHAR(l_date, g_date_format); - l_sub_list(2) := TO_CHAR(g_target_date, g_date_format); - -- - caco_utilities.get_exception_message(p_exception_number => -20509 - ,p_message => l_message - ,p_exme_type => l_mess_type - ,p_substitution_list => l_sub_list - ,p_language => caco_utilities.get_syus_lang - ); - -- - g_error_point := 'A140'; - -- - RAISE e_ude; - -- - END IF; - -- - g_error_point := 'A145'; - -- - -- Check date against contract range - -- - IF NOT check_cont_date ( p_cont_id => g_cont_id - , p_date => l_date - , p_message => l_message - ) THEN - -- - g_error_point := 'A150'; - -- - RAISE e_ude; - -- - END IF; - -- - -- Check the date against the "Receive Before Start" parameter - -- - IF ( l_date - TRUNC(SYSDATE) ) > l_rcve_b4_start THEN - -- - -- it is too early to nominate for this gas day. - caco_utilities.get_exception_message(p_exception_number => -20527 - ,p_message => l_message - ,p_exme_type => l_mess_type - ,p_substitution_list => l_sub_list - ,p_language => caco_utilities.get_syus_lang - ); - g_error_point := 'A152'; - -- - RAISE e_ude; - -- - END IF; - -- - g_error_point := 'A155'; - -- - -- Check the gate closure - -- - IF NOT check_gate_closure ( p_cont_id => g_cont_id - , p_date => l_date - , p_message => l_message - ) THEN - -- - g_error_point := 'A160'; - -- - RAISE e_ude; - -- - END IF; - -- - g_error_point := 'A165'; - -- - ELSIF get_spte_name(g_cont_id) IN (UPPER(g_spte_multi),UPPER(g_spte_smulti)) THEN - -- - -- Looking at multiple gas days - -- - g_error_point := 'A167'; - -- - SELECT COUNT(*) - INTO l_cnp_count - FROM cont_network_points conp - ,network_points nepo - WHERE conp.cont_id = g_cont_id - AND conp.nepo_id = nepo.nepo_id - AND ((nepo.nepo_type = 'V' AND efno_contracts.emo_contract(g_cont_id) = 'Y') OR - (nepo.nepo_type IN ('N','X') AND efno_contracts.emo_contract(g_cont_id) = 'N')); - -- - g_target_date := TO_DATE(p_gasday_start, g_date_format); - g_target_date_end := TO_DATE(p_gasday_end, g_date_format); - -- - IF g_target_date < g_cont_start_date THEN - -- - -- Target date is less than the start of the contract...what to do? - -- - l_multi_day_iter := l_multi_day_iter - MOD(7-(TO_CHAR(g_cont_start_date,'D')-g_day_at_start_of_week),7)+1; - -- - g_target_date := g_cont_start_date; - -- - END IF; - -- - /* IF g_cont_end_date - g_target_date < TO_NUMBER(cout_system_configuration.get_configuration_item('G_MULTI_DAY_NOM_DAYS')) THEN - -- - -- End of contract occurs during week, shorten the days displayed - -- - l_multi_day_iter := l_multi_day_iter - (TO_NUMBER(cout_system_configuration.get_configuration_item('G_MULTI_DAY_NOM_DAYS')-(g_cont_end_date - g_target_date)))+1; - -- - IF l_multi_day_iter < 0 THEN - -- - l_multi_day_iter := 0; - -- - END IF; - -- - END IF; */ - -- - IF MOD(l_gasday.COUNT, l_cnp_count) <> 0 THEN - -- - -- The same number of days should be specified for each network point - -- - l_sub_list(1) := caco_utilities.get_module_text(1142); - -- - caco_utilities.get_exception_message(p_exception_number => -20506 - ,p_message => l_message - ,p_exme_type => l_mess_type - ,p_substitution_list => l_sub_list - ,p_language => caco_utilities.get_syus_lang - ); - -- - FOR i IN 1..(TO_NUMBER(l_multi_day_iter) * l_cnp_count) LOOP - -- - g_row_error(i) := l_message; - -- - END LOOP; - -- - g_error_point := 'A170'; - -- - RAISE e_ude; - -- - END IF; - -- - g_error_point := 'A175'; - -- - FOR i IN 1..l_gasday.COUNT LOOP - -- - -- Check each date is a valid date - -- - BEGIN - -- - l_date := TO_DATE(g_gas_days(i), g_date_format); - -- - EXCEPTION - -- - WHEN OTHERS THEN - -- - l_sub_list(1) := g_gas_days(i); - -- - caco_utilities.get_exception_message(p_exception_number => -20102 - ,p_message => l_message - ,p_exme_type => l_mess_type - ,p_substitution_list => l_sub_list - ,p_language => caco_utilities.get_syus_lang - ); - -- - g_row_error(i) := l_message; - -- - g_error_point := 'A180'; - -- - RAISE e_ude; - -- - END; - -- - g_error_point := 'A185'; - -- - -- Check date is in the future - -- - IF l_date < g_target_date -1 THEN - -- - l_sub_list(1) := TO_CHAR(l_date, g_date_format); - l_sub_list(2) := TO_CHAR(g_target_date+(i-1), g_date_format); - -- - caco_utilities.get_exception_message(p_exception_number => -20509 - ,p_message => l_message - ,p_exme_type => l_mess_type - ,p_substitution_list => l_sub_list - ,p_language => caco_utilities.get_syus_lang - ); - g_row_error(i) := l_message; - -- - g_error_point := 'A190'; - -- - RAISE e_ude; - -- - END IF; - -- - g_error_point := 'A195'; - -- - -- Check date against contract range - -- - IF NOT check_cont_date ( p_cont_id => g_cont_id - , p_date => l_date - , p_message => l_message - ) THEN - -- - g_row_error(i) := l_message; - -- - g_error_point := 'A200'; - -- - RAISE e_ude; - -- - END IF; - -- - g_error_point := 'A205'; - -- - -- Check the gate closure - -- - IF NOT check_gate_closure ( p_cont_id => g_cont_id - , p_date => l_date - , p_message => l_message - ) THEN - -- - g_row_error(i) := l_message; - -- - g_error_point := 'A210'; - -- - RAISE e_ude; - -- - END IF; - -- - g_error_point := 'A215'; - -- - -- Check date sequence - -- - IF MOD(i-1, g_gas_days.COUNT/l_cnp_count) > 0 THEN - -- - -- If we're not looking at the first date - -- - IF TO_DATE(g_gas_days(i), g_date_format) -1 <> TO_DATE(g_gas_days(i-1), g_date_format) THEN - -- - caco_utilities.get_exception_message(p_exception_number => -20510 - ,p_message => l_message - ,p_exme_type => l_mess_type - ,p_substitution_list => l_sub_list - ,p_language => caco_utilities.get_syus_lang - ); - g_row_error(i) := l_message; - -- - g_error_point := 'A220'; - -- - RAISE e_ude; - -- - END IF; - -- - END IF; - -- - -- Check the date against the "Receive Before Start" parameter - -- - IF ( l_date - TRUNC(SYSDATE) ) > l_rcve_b4_start THEN - -- - -- it is too early to nominate for this gas day. - caco_utilities.get_exception_message(p_exception_number => -20527 - ,p_message => l_message - ,p_exme_type => l_mess_type - ,p_substitution_list => l_sub_list - ,p_language => caco_utilities.get_syus_lang - ); - g_row_error(i) := l_message; - -- - g_error_point := 'A222'; - -- - RAISE e_ude; - -- - END IF; - -- - -- - g_error_point := 'A225'; - -- - END LOOP; - -- - -- If a multi-day range contains a long/short day and the contract - -- has a long/short day category and the contract is using the single-multi day input format - -- then output an error/warning - l_loop_counter := (g_target_date_end - g_target_date) +1; - IF l_loop_counter > 1 AND get_spte_name(cont_id) = UPPER(g_spte_smulti) THEN - -- check for long day category - OPEN cu_coca('LO'); - FETCH cu_coca INTO l_coca_id; - IF cu_coca%FOUND THEN - FOR i IN 1..l_loop_counter LOOP - -- - -- check for long day - IF cout_dates.hours_in_gas_day(g_target_date + (i-1)) = 25 THEN - l_message := wsgl.msggettext(p_msgno => NULL - ,p_dflttext => caco_utilities.get_module_text(3935) - ,p_subst1 => to_char(g_target_date + (i-1),g_date_format)); - -- - g_error_message := display_message( p_type => WSGL.MESS_ERROR - , p_mess => l_message - ); - RAISE e_ude; - END IF; - END LOOP; - END IF; - CLOSE cu_coca; - -- - -- check for short day category - OPEN cu_coca('SH'); - FETCH cu_coca INTO l_coca_id; - IF cu_coca%FOUND THEN - FOR i IN 1..l_loop_counter LOOP - -- - -- check for short day - IF cout_dates.hours_in_gas_day(g_target_date + (i-1)) = 23 THEN - l_message := wsgl.msggettext(p_msgno => NULL - ,p_dflttext => caco_utilities.get_module_text(3936) - ,p_subst1 => to_char(g_target_date + (i-1),g_date_format)); - -- - g_error_message := display_message( p_type => WSGL.MESS_ERROR - , p_mess => l_message - ); - RAISE e_ude; - END IF; - END LOOP; - END IF; - CLOSE cu_coca; - END IF; - ELSE - -- - -- Looking at something else? - -- - NULL; - -- - END IF; - -- - g_error_point := 'A227'; - -- - -- Dates look OK, move on to numbers - -- - IF MOD(l_val.COUNT,(conp.COUNT*coca.COUNT))=0 THEN --id.COUNT = val.COUNT THEN - -- - -- Now go through the values - this way we can redisplay any errors - -- - FOR i IN 1..l_val.COUNT LOOP - -- - IF l_val(i) IS NULL THEN - -- - l_sub_list(1) := caco_utilities.get_module_text(2022); - -- - caco_utilities.get_exception_message(p_exception_number => -20506 - ,p_message => l_message - ,p_exme_type => l_mess_type - ,p_substitution_list => l_sub_list - ,p_language => caco_utilities.get_syus_lang - ); - -- - lr_cell_error.conp_id := g_nnpcv_tab(i).conp_id; - lr_cell_error.coca_id := g_nnpcv_tab(i).coca_id; - lr_cell_error.iteration := CEIL(i/(l_val.COUNT/l_gasday.COUNT)); - lr_cell_error.message := l_message; - -- - g_cell_error(NVL(g_cell_error.COUNT,0)+1) := lr_cell_error; - -- - g_error_point := 'A230'; - -- - RAISE e_ude; - -- - END IF; - -- - g_error_point := 'A235'; - -- - BEGIN - -- - -- Anon block to check for numeric conversion - -- - g_nnpcv_tab(i).value := TO_NUMBER(REPLACE(l_val(i),',','')); - -- - EXCEPTION - WHEN OTHERS THEN - -- - caco_utilities.get_exception_message(p_exception_number => -20511 - ,p_message => l_message - ,p_exme_type => l_mess_type - ,p_substitution_list => l_sub_list - ,p_language => caco_utilities.get_syus_lang - ); - -- - lr_cell_error.conp_id := g_nnpcv_tab(i).conp_id; - lr_cell_error.coca_id := g_nnpcv_tab(i).coca_id; - lr_cell_error.iteration := CEIL(i/(l_val.COUNT/l_gasday.COUNT)); - lr_cell_error.message := l_message; - -- - g_cell_error(NVL(g_cell_error.COUNT,0)+1) := lr_cell_error; - -- - g_error_point := 'A240'; - -- - RAISE e_ude; - -- - END; - -- - -- Check number format - -- - g_error_point := 'A241'; - -- - IF INSTR(TO_CHAR(g_nnpcv_tab(i).value),'.') > 0 THEN - -- - -- Number entered has a decimal, lets check it's within range, lookup format - -- - g_error_point := 'A242'; - -- - l_num_format := NULL; - -- - SELECT c.number_format - INTO l_num_format - FROM categories c - ,contract_categories cc - WHERE c.cate_id = cc.cate_id - AND cc.coca_id = g_nnpcv_tab(i).coca_id; - -- - -- Now compare the number formats - -- - IF (LENGTH(TO_CHAR(g_nnpcv_tab(i).value)) - INSTR(TO_CHAR(g_nnpcv_tab(i).value),'.')) > (LENGTH(l_num_format) - INSTR(l_num_format||'.','.')) THEN - -- - -- Number of decimals in supplied format greater than number of decimals in format mask - -- - g_error_point := 'A243'; - -- - l_message := display_message(p_type => WSGL.MESS_ERROR - ,p_mess => NVL(l_message - ,caco_utilities.get_module_text(p_text_number => 2240 ) - ) - ); - l_message := caco_utilities.get_module_text(p_text_number => 2240 ); - -- - lr_cell_error.conp_id := g_nnpcv_tab(i).conp_id; - lr_cell_error.coca_id := g_nnpcv_tab(i).coca_id; - --lr_cell_error.iteration := CEIL(i/(val.COUNT/gasday.COUNT)); - IF MOD(CEIL(i/(l_val.count/l_gasday.count)),(l_gasday.count/l_cnp_count)) = 0 THEN - -- - -- MOD returns zero when I'd like # of gasdays - -- - lr_cell_error.iteration := (l_gasday.count/l_cnp_count); - ELSE - -- - -- otherwise, works OK - -- - lr_cell_error.iteration := MOD(CEIL(i/(l_val.count/l_gasday.count)),(l_gasday.count/l_cnp_count)); - END IF; - lr_cell_error.message := l_message; - -- - g_cell_error(NVL(g_cell_error.COUNT,0)+1) := lr_cell_error; - -- - RAISE e_ude; - -- - END IF; - -- - END IF; - -- - g_error_point := 'A245'; - -- - -- Have validated gas days already - -- - IF get_spte_name(g_cont_id) IN (UPPER(g_spte_multi),UPPER(g_spte_smulti)) THEN - -- - g_nnpcv_tab(i).gas_day := TO_DATE(l_gasday(CEIL(i/(l_val.COUNT/l_gasday.COUNT))),g_date_format); - -- - ELSE - -- - g_nnpcv_tab(i).gas_day := TO_DATE(l_gasday(1), g_date_format); - -- - END IF; - -- - g_error_point := 'A246'; - -- - END LOOP; - -- - IF get_spte_name(g_cont_id) IN (UPPER(g_spte_multi),UPPER(g_spte_smulti)) THEN - -- - g_target_date_end := g_nnpcv_tab(g_nnpcv_tab.LAST).gas_day; - -- - END IF; - -- - g_error_point := 'A247'; - -- - ELSE - -- - -- Identifiers and values not balanced - -- - g_error_point := 'A248'; - -- - l_message := display_message(p_type => WSGL.MESS_ERROR - ,p_mess => NVL(l_message - ,caco_utilities.get_module_text(p_text_number => 2330 ) - ) - ); - -- - FOR i IN 1..TO_NUMBER(cout_system_configuration.get_configuration_item('G_MULTI_DAY_NOM_DAYS')) LOOP - -- - g_row_error(i) := l_message; - -- - END LOOP; - -- - g_error_point := 'A250'; - -- - RAISE e_ude; - -- - END IF; - -- - g_error_point := 'A251'; - -- - ELSE - -- - -- Null Contract, raise error - -- - g_error_point := 'A255'; - -- - l_sub_list(1) := caco_utilities.get_module_text(2137); - -- - caco_utilities.get_exception_message(p_exception_number => -20506 - ,p_message => l_message - ,p_exme_type => l_mess_type - ,p_substitution_list => l_sub_list - ,p_language => caco_utilities.get_syus_lang - ); - -- - g_error_point := 'A260'; - -- - RAISE e_ude; - -- - END IF; - -- - g_error_point := 'A270'; - -- - -- Because rules are based on data in the nominations table, we need to insert it here... - -- - DBMS_TRANSACTION.SAVEPOINT(g_cont_id); - -- - -- Insert the nomination header - -- - INSERT INTO nominations ( status - , identifier - , cont_id - ) - VALUES ( 'A' - , 1 - , g_cont_id - ) - RETURNING nomi_id INTO l_nomi_id; - -- - UPDATE nominations - SET identifier = l_nomi_id - WHERE nomi_id = l_nomi_id; - -- - g_error_point := 'A280'; - -- - l_nomi_details := 'NOM:'||l_nomi_id||' ID:'||l_nomi_id||' CONT:'||g_cont_id||'DETAILS:'; - -- - -- check if it is an entry mandatory offer contract - IF efno_contracts.emo_contract(g_cont_id) = 'Y' THEN - -- - OPEN c_tot_perc_split(g_cont_id); - FETCH c_tot_perc_split INTO l_tot_perc_split; - CLOSE c_tot_perc_split; - -- - IF l_tot_perc_split = 0 THEN - IF caco_utilities.user_has_EFT_admin = 'Y' THEN - -- Percentage split contract parameters have not been set up correctly - l_message := caco_utilities.get_module_text(3917); - ELSE - -- A more customer friendly error message.. - -- An error has occurred in validating this nomination. Please contact support. - l_message := caco_utilities.get_module_text(3923); - END IF; - g_error_point := 'A282'; - RAISE e_ude; - END IF; - -- - FOR nnpcv_idx IN g_nnpcv_tab.FIRST..g_nnpcv_tab.LAST LOOP - -- - -- check that it is a virtual network point - IF efno_contracts.virtual_nepo(g_nnpcv_tab(nnpcv_idx).conp_id) THEN - -- insert a record for each non virtual network point assigned to the contract - -- using the virtual nepo nominated values and percentage split parameter - FOR i IN c_conp(g_cont_id) LOOP - -- - INSERT INTO nom_net_point_cat_vals ( value - , gas_day - , coca_id - , nomi_id - , conp_id - ) - VALUES ( ROUND((i.perc_split/l_tot_perc_split)*g_nnpcv_tab(nnpcv_idx).value) - , g_nnpcv_tab(nnpcv_idx).gas_day - , g_nnpcv_tab(nnpcv_idx).coca_id - , l_nomi_id - , i.conp_id - ); - END LOOP; - ELSE - -- Nominations for Entry Manadatory Offer Contracts must be against a virtual network point - l_message := caco_utilities.get_module_text(3916); - g_error_point := 'A285'; - RAISE e_ude; - END IF; - -- - END LOOP; - -- - END IF; - -- - FOR nnpcv_idx IN g_nnpcv_tab.FIRST..g_nnpcv_tab.LAST LOOP - -- - -- Would only use forall if it wasn't for pls-00436... - -- - -- - g_error_point := 'A290'; - -- - INSERT INTO nom_net_point_cat_vals ( value - , gas_day - , coca_id - , nomi_id - , conp_id - ) - VALUES ( g_nnpcv_tab(nnpcv_idx).value - , g_nnpcv_tab(nnpcv_idx).gas_day - , g_nnpcv_tab(nnpcv_idx).coca_id - , l_nomi_id - , g_nnpcv_tab(nnpcv_idx).conp_id - ); - -- - l_nomi_details := SUBSTR(l_nomi_details||' Day:'||g_nnpcv_tab(nnpcv_idx).gas_day||' Cat:'||g_nnpcv_tab(nnpcv_idx).coca_id||' Net:'||g_nnpcv_tab(nnpcv_idx).conp_id||' Val:'||g_nnpcv_tab(nnpcv_idx).value - ,1 - ,4000 - ); - -- - END LOOP; - -- - -- - g_error_point := 'A300'; - -- - -- Now enact the rules - -- - l_rule_results := efno_nominations.rule_loops( l_nomi_id - , g_cont_id - , l_message - , l_c_nnpcv_tab - ); - -- - g_error_point := 'A310'; - -- - -- Check the status of the rules - -- - IF l_rule_results THEN - -- - g_error_point := 'A320'; - -- - -- questionable results - -- - IF l_message IS NULL THEN - -- - l_message := caco_utilities.get_module_text(2270); - -- - END IF; - -- - l_idx := l_c_nnpcv_tab.FIRST; - -- - g_error_point := 'A330'; - -- - FOR i IN 1..l_c_nnpcv_tab.COUNT LOOP - -- - g_error_point := 'A331'; - -- - IF l_c_nnpcv_tab(l_idx).in_error THEN - -- - g_error_point := 'A332'; - -- - lr_cell_error.conp_id := l_c_nnpcv_tab(l_idx).conp_id; - lr_cell_error.coca_id := l_c_nnpcv_tab(l_idx).coca_id; - lr_cell_error.iteration := return_index(l_c_nnpcv_tab(l_idx).gas_day, l_gasday); - lr_cell_error.message := l_message; - -- - -- Now add to the end of the stack - -- - g_cell_error(NVL(g_cell_error.COUNT,0)+1) := lr_cell_error; - -- - END IF; - -- - l_idx := l_c_nnpcv_tab.NEXT(l_idx); - -- - END LOOP; - -- - -- Raise as an error - -- - g_error_point := 'A350'; - -- - RAISE e_ude; - -- - END IF; - -- - -- Now determine what we should be doing, be it verify or insert - -- - IF action = caco_utilities.get_module_text(1149/*Verify*/) THEN - -- - g_error_point := 'A360'; - -- - -- We do not want to save it, rollback. - -- - DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(g_cont_id); - -- - l_message := caco_utilities.get_module_text( p_text_number => 2341 ); - -- - g_error_message := display_message( p_type => WSGL.MESS_SUCCESS - , p_mess => l_message - ); - -- - END IF; - -- - IF action IN (caco_utilities.get_module_text(840/* Insert */)) THEN - -- - g_error_point := 'A370'; - -- - -- Update existing nominations to inactive - -- - l_idx := g_nnpcv_tab.COUNT; -- not sure why we can't imbed this in the SQL below, but we can't - -- - UPDATE nominations nomi - SET nomi.status = 'I' - WHERE nomi.cont_id = g_cont_id - AND nomi.nomi_id <> l_nomi_id - AND EXISTS ( SELECT NULL - FROM nom_net_point_cat_vals nnpcv - WHERE nnpcv.nomi_id = nomi.nomi_id - AND nnpcv.gas_day BETWEEN g_nnpcv_tab(1).gas_day AND g_nnpcv_tab(l_idx).gas_day - ) - AND NOT EXISTS ( SELECT NULL - FROM nom_net_point_cat_vals nnpcv - WHERE nnpcv.nomi_id = nomi.nomi_id - AND nnpcv.gas_day NOT BETWEEN g_nnpcv_tab(1).gas_day AND g_nnpcv_tab(l_idx).gas_day - ); - - -- - g_error_point := 'A371'; - -- - -- Timestamp - -- - l_timestamp := timestamp_nomi ( p_nomi_id => l_nomi_id - , p_nomi_details => l_nomi_details - ); - -- - g_error_point := 'A372'; - -- - -- Notification - -- - l_letter := send_nom_notification ( p_cust_id => g_cust_id - , p_nomi_identifier => l_nomi_id - , p_gas_day_start => g_nnpcv_tab(1).gas_day - , p_gas_day_end => g_nnpcv_tab(g_nnpcv_tab.COUNT).gas_day - , p_timestamp => l_timestamp - ); - -- - g_error_point := 'A373'; - -- - -- Create confimation - -- - INSERT INTO confirmations ( confirmation_type - , confirmation_sent - , confirmation - , nomi_id - , confirmation_text - , approved - ) - VALUES ( 'NO' - , l_timestamp - , NULL -- will add later - , l_nomi_id - , l_letter - , 'Y' - ); - -- - g_error_point := 'A374'; - -- - -- Save Spreadsheet - -- - IF NVL(cout_system_configuration.get_configuration_item('G_SAVE_NOM_TEMPLATE'),'Y') = 'Y' THEN - -- - amfr_excel.get_template(p_id => g_cont_id - ,p_type => amfr_excel.gc_nomination - ,p_nomi_conf_id => l_nomi_id - ,p_mode => 'INSERT' - ); - -- - END IF; - -- - g_error_point := 'A375'; - -- - l_message := caco_utilities.get_module_text( p_text_number => 2342 ); - -- - g_error_message := display_message( p_type => WSGL.MESS_SUCCESS - , p_mess => l_message - ); - -- - END IF; - -- - ELSE - -- - -- We must be changing the date, keep existing data - -- - get_cont_id(cont_id); - -- - g_error_point := 'A376'; - -- - IF l_gasday.COUNT > 0 THEN - -- - g_target_date := TO_DATE(l_gasday(1),g_date_format); - -- - END IF; - -- - IF p_gasday_start IS NOT NULL THEN - -- - g_target_date := TO_DATE(p_gasday_start,g_date_format); - -- - END IF; - -- - g_target_date_end := GREATEST(GREATEST(TO_DATE(NVL(p_gasday_end, g_target_date),g_date_format), g_target_date),(TO_DATE(p_gasday_start,g_date_format) + (TO_DATE(l_gasday(l_gasday.COUNT), g_date_format)-TO_DATE(l_gasday(1),g_date_format)))); - -- - g_error_point := 'A377'; - -- - FOR i IN 1..l_val.COUNT LOOP - -- - g_nnpcv_tab(i).value := l_val(i); - g_nnpcv_tab(i).gas_day := TO_DATE(l_gasday(CEIL(i/(l_val.count/l_gasday.count))),g_date_format); - -- - IF MOD(i,coca.COUNT) = 0 THEN - g_nnpcv_tab(i).coca_id := coca(coca.COUNT); - ELSE - g_nnpcv_tab(i).coca_id := coca(MOD(i,coca.COUNT)); - END IF; - -- - g_nnpcv_tab(i).conp_id := conp(CEIL(CEIL(i/coca.COUNT)/((TO_DATE(l_gasday(l_gasday.COUNT), g_date_format)+1)-TO_DATE(l_gasday(1),g_date_format)))); - -- - END LOOP; - -- - g_target_date_end := TO_DATE(p_gasday_end, g_date_format); - -- - --display_nnpcv_tab(g_nnpcv_tab); - -- - -- If a multi-day range contains a long/short day and the contract - -- has a long/short day category and the contract is using the single-multi day input format - -- then output an error/warning - l_loop_counter := (g_target_date_end - g_target_date) +1; - IF l_loop_counter > 1 AND get_spte_name(cont_id) = UPPER(g_spte_smulti) THEN - -- check for long day category - OPEN cu_coca('LO'); - FETCH cu_coca INTO l_coca_id; - IF cu_coca%FOUND THEN - FOR i IN 1..l_loop_counter LOOP - -- - -- check for long day - IF cout_dates.hours_in_gas_day(g_target_date + (i-1)) = 25 THEN - l_message := wsgl.msggettext(p_msgno => NULL - ,p_dflttext => caco_utilities.get_module_text(3935) - ,p_subst1 => to_char(g_target_date + (i-1),g_date_format)); - -- - g_error_message := display_message( p_type => WSGL.MESS_ERROR - , p_mess => l_message - ); - EXIT; - END IF; - END LOOP; - END IF; - CLOSE cu_coca; - -- - -- check for short day category - OPEN cu_coca('SH'); - FETCH cu_coca INTO l_coca_id; - IF cu_coca%FOUND THEN - FOR i IN 1..l_loop_counter LOOP - -- - -- check for short day - IF cout_dates.hours_in_gas_day(g_target_date + (i-1)) = 23 THEN - l_message := wsgl.msggettext(p_msgno => NULL - ,p_dflttext => caco_utilities.get_module_text(3936) - ,p_subst1 => to_char(g_target_date + (i-1),g_date_format)); - -- - g_error_message := display_message( p_type => WSGL.MESS_ERROR - , p_mess => l_message - ); - EXIT; - END IF; - END LOOP; - END IF; - CLOSE cu_coca; - END IF; - -- - END IF; - -- - EXCEPTION - WHEN OTHERS THEN - -- - -- Rollback the transaction just in case... - -- - BEGIN - DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(g_cont_id); - EXCEPTION - WHEN OTHERS THEN - NULL; - END; - -- - g_error_message := display_message(p_type => WSGL.MESS_ERROR - ,p_mess => NVL(l_message - ,caco_utilities.get_module_text(p_text_number => 2330 ) - ) - ); - -- - cout_err.report_and_go(p_exception_number => sqlcode - ,p_exception_message => g_error_point||' : '||sqlerrm - ); - -- - END; - -- - -- release lock on nominations table - -- - l_noms_release := dbms_lock.release(id => 128); - caco_debug.putline('default_values DBMS_LOCK id 128 release value l_noms_release is ' || - l_noms_release); - END IF; - -- - -- Now verified, let us rebuild the screen - -- - redisplay ( p_contract => g_cont_num - ); - -- - END IF; -- security check - -- - END submit_nomination; - -- - PROCEDURE startup IS - BEGIN - -- - -- Startup the screen with the contract for the target date - -- - -- nom_header( p_contract => g_cont_num ); - --caco_debug.putline('-----startup'); - -- - nom_header( p_contract => NULL ); - -- - END startup; - -- - FUNCTION get_exception_message( p_exception_number IN NUMBER ) RETURN VARCHAR2 IS - -- - l_return VARCHAR2(1000); - l_type VARCHAR2(1000); - -- - BEGIN - -- - caco_utilities.get_exception_message(p_exception_number => p_exception_number - ,p_message => l_return - ,p_exme_type => l_type - ); - -- - RETURN l_return; - -- - END get_exception_message; - -- - /** - -- FUNCTION about - -- Returns the version number and VSS header for this package - -- - -- %return The version number and VSS header for this package - */ - FUNCTION about RETURN VARCHAR2 IS - BEGIN - RETURN(g_package_name || chr(10) || g_revision || chr(10) || g_header); - END about; - -- -BEGIN - -- - -- Initialisation - -- - --caco_debug.putline('-----Initialisation'); - -- - gc_no_data_found := get_exception_message(-20521); - gc_missing_details := get_exception_message(-20516); - gc_invalid_file_format := get_exception_message(-20517); - gc_no_cont_found := get_exception_message(-20518); - gc_nom_id_null := get_exception_message(-20519); - gc_dup_nom_identifier := get_exception_message(-20520); - -- - g_day_at_start_of_week := cout_system_configuration.get_configuration_item('G_DAY_AT_START_OF_WEEK'); - -- - IF g_cust_id IS NULL THEN - -- - g_cust_id := caco_utilities.get_cust_id; - -- - END IF; - -- - IF g_cust_id IS NOT NULL THEN - -- - get_cont_id ( p_contract_number => g_cont_num - , p_cust_id => g_cust_id ); - -- - IF in_a_renom_window(p_gas_day => g_gas_day - ,p_window_time => g_active_time) THEN - -- - -- In a renomination window - -- - g_target_date := g_gas_day; - -- - ELSE - -- - -- Not in renom window, default to gasday + offset - -- - g_target_date := g_gas_day + NVL(cout_system_configuration.get_configuration_item('G_NOM_DATE_OFFSET'),1); - -- - END IF; - -- - g_target_date := GREATEST(g_target_date, g_cont_start_date); - g_target_date_end := g_target_date; - -- -/*caco_debug.putline('g_target_date: '||to_char(g_target_date,g_date_format)); -caco_debug.putline('g_gas_day: '||to_char(g_gas_day,g_date_format)); -caco_debug.putline('g_cust_id: '||g_cust_id); -caco_debug.putline('g_cont_start_date: '||to_char(g_cont_start_date,g_date_format));*/ - -- - END IF; - -- -END efnow098$; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$.bdy deleted file mode 100644 index f3727c2..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$.bdy +++ /dev/null @@ -1,460 +0,0 @@ -create or replace package body efnow101$ is - private_ModuleRef WSGOC.MODULE_REF; - - - procedure CreateStartupJavaScript; -PROCEDURE get_nomi ( p_nomi_id IN nominations.nomi_id%TYPE ) IS - --- get_nomi --- --- - - - -BEGIN - -- - IF NOT caco_security.security_check('efnow101$') THEN - -- - RETURN; - -- - END IF; - -- - FOR nomi_rec IN ( SELECT NULL - FROM nominations nomi - ,contracts cont - WHERE nomi.nomi_id = p_nomi_id - AND nomi.cont_id = cont.cont_id - AND cont.cust_id = caco_utilities.get_cust_id - ) LOOP - -- - amfr_excel.download(p_nomi_id => p_nomi_id); - -- - EXIT; - -- - END LOOP; - -- -END; -PROCEDURE nomi_css IS - --- nomi_css --- --- - - - -BEGIN - -- - IF NOT caco_security.security_check('efnow101$') THEN - -- - RETURN; - -- - END IF; - -- - htp.p(' - h2 { - color : #FF3030; - } - - .nomiTR { - height : 20px; - } - - #nomiTextDiv { - width : 95%; - white-space : pre; - overflow-x : scroll; - border : 1px solid; - margin-left : 5px; - margin-right : 5px; - padding : 5px; - } - '); - -- -END; -PROCEDURE view_details(p_nomi_id IN nominations.nomi_id%TYPE) IS - --- view_details --- --- - - - - -- - CURSOR c_nomi IS - SELECT cust.name customer_name - ,cont.contract_number contract_number - ,nomi.identifier nomi_identifier - ,conf.CONFIRMATION_SENT AS tsa_timestamp - ,nomi.nomi_id - FROM nominations nomi, - contracts cont, - customers cust, - confirmations conf - WHERE cust.cust_id = cont.cust_id - AND cont.cont_id = nomi.cont_id - AND nomi.nomi_id = p_nomi_id - AND nomi.nomi_id = conf.nomi_id - AND conf.confirmation_type = 'NO'; - -- - l_nomi_rec c_nomi%ROWTYPE; - -- - l_nomi_text_clob CLOB; - l_nomi_text_temp VARCHAR2(4000); - l_text_pos NUMBER := 1; - l_text_length NUMBER := 0; - -- - l_success BOOLEAN := TRUE; - -- -BEGIN - -- - IF NOT caco_security.security_check('efnow101$') THEN - -- - RETURN; - -- - END IF; - -- - htp.p(' '); - -- - wsgl.openpagehead(caco_utilities.get_module_text(2405)); - --wsgl.metatag; - --htp.p(''); - caco_system.content_type; - htp.p(''); - htp.p(' '); - -- - wsgl.closepagehead; - wsgl.openpagebody(FALSE); - htp.p(caco_system.menu); - -- - htp.p(' -

-
-

' || caco_utilities.get_module_text(2405) || '

'); -- View Nominations - -- - OPEN c_nomi; - FETCH c_nomi - INTO l_nomi_rec; - CLOSE c_nomi; - -- - htp.p(' - - - '); -- Customer Name - htp.p(' - - - '); -- Contract Number - htp.p(' - - - '); -- Nomination Identifier - htp.p(' - - - '); -- Created On - htp.p(' - -
' || caco_utilities.get_module_text(1145) || - ':  ' || l_nomi_rec.customer_name || - '
' || caco_utilities.get_module_text(2013) || - ':  ' || l_nomi_rec.contract_number || - '
' || caco_utilities.get_module_text(2060) || - ':  ' || l_nomi_rec.nomi_identifier || - '
' || caco_utilities.get_module_text(118) || - ':  ' || - EFNOW101$NOMI.FORMATDATETIME(TO_CHAR(l_nomi_rec.tsa_timestamp,'DD/MM/YYYY HH24:MI')) || - '
'); - -- - -- We want a button to call the spreadsheet download routine - -- - htp.p('
'); - -- - htp.p('

' || caco_utilities.get_module_text(2065) || '

'); -- Confirmation Text - -- - -- Loop through all of the clob and display it in chunks...... - -- Create a width limmited dive for putting it in - htp.p('
');
-    --
-    -- Get the CLOB
-    BEGIN
-      SELECT conf.confirmation_text
-      INTO   l_nomi_text_clob
-      FROM   confirmations conf
-      WHERE  conf.nomi_id = p_nomi_id
-      AND    conf.confirmation_type = 'NO';
-    EXCEPTION
-      WHEN OTHERS THEN
-        l_success := FALSE;
-    END;
-    --
-    IF l_success THEN
-      -- Get the length of the Confirmation text CLOB
-      l_text_length := DBMS_LOB.GETLENGTH(l_nomi_text_clob);
-      --
-      -- Loop through the clob in chunks of 4000
-      WHILE l_text_pos <= l_text_length LOOP
-        --
-        l_nomi_text_temp := DBMS_LOB.SUBSTR(l_nomi_text_clob,
-                                            4000,
-                                            l_text_pos);
-        --
-        htp.p(l_nomi_text_temp);
-        --
-        l_text_pos := l_text_pos + 4000;
-        --
-      END LOOP;
-      --
-    ELSE
-      --
-      -- Error
-      wsgl.displaymessage(p_type => WSGL.MESS_ERROR
-                         ,p_mess => caco_utilities.get_module_text(2330)
-                         );
-      --
-    END IF;
-    -- Close nomiText
-    htp.p('
'); - -- - -- Close the margin div - htp.p('
'); - -- - -- Close centrecontent div - htp.p('
'); - -- - -- Close outer div - htp.p(''); - -- - wsgl.closepagebody; - -- - END; --------------------------------------------------------------------------------- --- Name: efnow101$.Startup --- --- Description: This procedure is the entry point for the 'efnow101$' --- module. --- --- Parameters: None --- --------------------------------------------------------------------------------- - procedure Startup - is - begin - if not caco_security.security_check('efnow101$') then - return; - end if; - - WSGL.RegisterURL('efnow101$.startup'); - if WSGL.NotLowerCase then - return; - end if; - WSGL.StoreURLLink(0, WSGL.MsgGetText(21,WSGLM.CAP021_TOP_LEVEL)); - efnow101$nomi.startup( - Z_DIRECT_CALL => TRUE - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow101$.Startup'); - end; --------------------------------------------------------------------------------- --- Name: efnow101$.firstpage --- --- Description: This procedure creates the first page for the 'efnow101$' --- module. --- --- Parameters: Z_DIRECT_CALL - --- --------------------------------------------------------------------------------- - procedure FirstPage(Z_DIRECT_CALL in boolean - -) is - begin - if not caco_security.security_check('efnow101$') then - return; - end if; - - WSGL.OpenPageHead(''); - WSGL.METATag; - WSGL.ClosePageHead; - WSGL.OpenPageBody(FALSE, p_attributes=>''); - - CreateStartupJavaScript; - - WSGL.DefaultPageCaption('', 1); - htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="SP$AIForm"'); - WSGL.NavLinks(WSGL.MENU_LONG, WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT), 0, 'efnow101$.showabout', '_top', p_output_line=>FALSE); - WSGL.NavLinks; - htp.formClose; - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow101$.FirstPage'); - end; - - --------------------------------------------------------------------------------- --- Name: efnow101$.showabout --- --- Description: This procedure is used to display an 'About' page for the --- 'efnow101$' module. --- --------------------------------------------------------------------------------- - procedure showabout is - l_usr varchar2(255) := null; - begin - if not caco_security.security_check('efnow101$') then - return; - end if; - l_usr := caco_security.get_user; - - WSGL.RegisterURL('efnow101$.showabout'); - if WSGL.NotLowerCase then - return; - end if; - - WSGL.OpenPageHead(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' '); - WSGL.METATag; - TemplateHeader(TRUE,2); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>''); - - htp.p(caco_system.menu); - - WSGL.DefaultPageCaption(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' '); - - htp.para; - htp.p(' -$Revision: 1.5 $'); - htp.para; - - htp.para; - - htp.p(WSGL.MsgGetText(108,WSGLM.DSP108_GENERATED_BY, 'PL/SQL Web Generator', '10.1.2.6.18')); - htp.para; - - WSGL.Info(FALSE, 'Nominations', 'EFNOW101', l_usr); - - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow101$.ShowAbout'); - end; --------------------------------------------------------------------------------- --- Name: efnow101$.TemplateHeader --- --- Description: --- --------------------------------------------------------------------------------- - procedure TemplateHeader(Z_DIRECT_CALL in boolean, - Z_TEMPLATE_ID in number) is - begin - if not caco_security.security_check('efnow101$') then - return; - end if; - - if Z_TEMPLATE_ID = 1 then - -- Template defined in \\loordv01\framework\css2\css_content.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 2 then - -- Template defined in \\loordv01\framework\css2\css_about.htm - htp.p(' '); - elsif Z_TEMPLATE_ID = 3 then - -- Template defined in \\loordv01\framework\css2\css_query.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 4 then - -- Template defined in \\loordv01\framework\css2\css_view.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 5 then - -- Template defined in \\loordv01\framework\css2\css_insert.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 6 then - -- Template defined in \\loordv01\framework\css2\css_recordlist.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 7 then - -- Template defined in \\loordv01\framework\css2\css_lov.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 8 then - -- Template defined in \\loordv01\framework\css2\css_text.htm - htp.p(' - -'); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow101$.TemplateHeader'); - end; --------------------------------------------------------------------------------- --- Name: efnow101$.GetRef --- --- Description: Returns a handle to the display data for the --- 'efnow101$' module. --- If the display object does not exist then it creates it first. --- --- Parameters: --- --------------------------------------------------------------------------------- - - function GetRef return WSGOC.MODULE_REF - is - begin - if ( WSGOC.Is_Null(private_ModuleRef)) then - private_ModuleRef := WSGOC.Module - ( pShortName => 'efnow101$' - , pFirstTitle => '' - ); - end if; - return private_ModuleRef; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow101$.GetRef'); - raise; - end; - - - --------------------------------------------------------------------------------- --- Name: efnow101$.CreateStartupJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateStartupJavaScript is - begin - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "Startup";'); - htp.p(WSGJSL.CloseScript); - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$.spc deleted file mode 100644 index 656f53e..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$.spc +++ /dev/null @@ -1,20 +0,0 @@ -create or replace package efnow101$ is - - procedure Startup -; - procedure FirstPage(Z_DIRECT_CALL in boolean - -); - procedure ShowAbout; - procedure TemplateHeader(Z_DIRECT_CALL in boolean, - Z_TEMPLATE_ID in number); - function GetRef return WSGOC.MODULE_REF; -PROCEDURE get_nomi ( p_nomi_id IN nominations.nomi_id%TYPE ); - -PROCEDURE nomi_css; - -PROCEDURE view_details(p_nomi_id IN nominations.nomi_id%TYPE); - - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$js$nomi.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$js$nomi.bdy deleted file mode 100644 index db12796..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$js$nomi.bdy +++ /dev/null @@ -1,122 +0,0 @@ -create or replace package body efnow101$js$nomi is - - --------------------------------------------------------------------------------- --- Name: efnow101$js$nomi.CreateQueryJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateQueryJavaScript ( - LOV_FRAME in varchar2, - QF_BODY_ATTRIBUTES in varchar2) - is - begin - if not caco_security.security_check('efnow101$nomi') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "Query";'); - - - - WSGJSL.Output_Invoke_CAL_JS ('efnow101$nomi', 'scrollbars=no,resizable=no,width=320,height=350'); - - - htp.p(WSGJSL.OpenEvent('L_CONT_CONTRACT_NUMBER','LOV')); htp.p(' - var depStr = ""; - var modeStr = "" - index = -1; - modeStr = "Q"; -'); - - if LOV_FRAME is not null then - htp.p(' var lovFra = "'||LOV_FRAME||'";'); - htp.p(' var winpar = "";'); - else - htp.p(' var lovFra = "winLOV";'); - htp.p(' var winpar = "scrollbars=yes,resizable=yes,width=400,height=400";'); - end if; - htp.p(' var filterprompt = "";'); - htp.p(' - - var lovTitle = "'||replace('','"','\"')||'"; - window.current_lov_title = lovTitle; - - JSLOpenLOV( ctl, index, modeStr, "efnow101$nomi.l_cont_contract_number_lov", depStr, lovFra, winpar, filterprompt ); - -'); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('NOMI','OnLoad')); - htp.p(' - if ( FormType != "PostDelete") - { - form_num=0; - do - { - elem_num=0; - len = document.forms[form_num].elements.length; - if (len > 0) - { - while (elem_num < len && - document.forms[form_num].elements[elem_num].type != "text" && - document.forms[form_num].elements[elem_num].type != "textarea") - { - elem_num++; - } - if (elem_num < len) - { - document.forms[form_num].elements[elem_num].focus(); - break; - } - } - form_num++; - } while ( form_num < document.forms.length ); - } -'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnQFQ','OnClick')); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - QF_BODY_ATTRIBUTES, 'efnow101$js$nomi.CreateQueryJavaScript'); - end; - --------------------------------------------------------------------------------- --- Name: efnow101$js$nomi.CreateListJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateListJavaScript ( - RL_BODY_ATTRIBUTES in varchar2) - is - begin - if not caco_security.security_check('efnow101$nomi') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "List";'); - - - htp.p( 'var P_12 = new Array();' ); - - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - RL_BODY_ATTRIBUTES, 'efnow101$js$nomi.CreateListJavaScript'); - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$js$nomi.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$js$nomi.spc deleted file mode 100644 index 1a3895e..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$js$nomi.spc +++ /dev/null @@ -1,11 +0,0 @@ -create or replace package efnow101$js$nomi is - - procedure CreateQueryJavaScript( - LOV_FRAME in varchar2, - QF_BODY_ATTRIBUTES in varchar2); - - procedure CreateListJavaScript( - RL_BODY_ATTRIBUTES in varchar2); - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$nomi.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$nomi.bdy deleted file mode 100644 index 7ea6189..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$nomi.bdy +++ /dev/null @@ -1,1644 +0,0 @@ -create or replace package body efnow101$nomi is - - function L_CONT_CONTRACT_NUMBER_LOV( - P_VALUE in varchar2 default null, - P_CTRL in number default 0, - P_MODE in varchar2 default 'Q', - p_select_first in boolean default false, - p_onclick in boolean default false, - p_onchange in boolean default false, - p_onblur in boolean default false, - p_onfocus in boolean default false, - p_onselect in boolean default false, - p_row in number default null) return varchar2; - function BuildSQL( - P_UI_CONTRACT_STATUS in varchar2 default null, - P_L_CONT_CONTRACT_NUMBER in varchar2 default null, - P_STATUS in varchar2 default null, - P_UI_START_DATE_QRY in varchar2 default null, - P_UI_END_DATE_QRY in varchar2 default null, - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean; - procedure OpenZoneSql ( I_CURSOR OUT integer ); - procedure AssignZoneRow( I_CURSOR IN integer ); - - function PreQuery( - P_UI_CONTRACT_STATUS in varchar2 default null, - P_L_CONT_CONTRACT_NUMBER in varchar2 default null, - P_STATUS in varchar2 default null, - P_UI_START_DATE_QRY in varchar2 default null, - P_UI_END_DATE_QRY in varchar2 default null) return boolean; - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean; --- define_globals --- --- - -g_ui_start_date_qry DATE; -g_ui_end_date_qry DATE; -g_ui_contract_status VARCHAR2(100); - - - QF_BODY_ATTRIBUTES constant varchar2(500) := ''; - QF_QUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(3,WSGLM.CAP003_QF_FIND); - QF_CLEAR_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(4,WSGLM.CAP004_QF_CLEAR); - QF_QUERY_BUT_ACTION constant varchar2(10) := 'QUERY'; - QF_CLEAR_BUT_ACTION constant varchar2(10) := 'CLEAR'; - QF_NUMBER_OF_COLUMNS constant number(4) := 1; - VF_BODY_ATTRIBUTES constant varchar2(500) := ''; - IF_BODY_ATTRIBUTES constant varchar2(500) := ''; - RL_BODY_ATTRIBUTES constant varchar2(500) := ''; - RL_NEXT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(11,WSGLM.CAP011_RL_NEXT); - RL_PREV_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(12,WSGLM.CAP012_RL_PREVIOUS); - RL_FIRST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(13,WSGLM.CAP013_RL_FIRST); - RL_LAST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(14,WSGLM.CAP014_RL_LAST); - RL_COUNT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(15,WSGLM.CAP015_RL_COUNT); - RL_REQUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(16,WSGLM.CAP016_RL_REQUERY); - RL_QUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(24,WSGLM.CAP024_RL_QUERY); - RL_QUERY_BUT_ACTION constant varchar2(10) := 'QUERY'; - RL_NEXT_BUT_ACTION constant varchar2(10) := 'NEXT'; - RL_PREV_BUT_ACTION constant varchar2(10) := 'PREV'; - RL_FIRST_BUT_ACTION constant varchar2(10) := 'FIRST'; - RL_LAST_BUT_ACTION constant varchar2(10) := 'LAST'; - RL_COUNT_BUT_ACTION constant varchar2(10) := 'COUNT'; - RL_REQUERY_BUT_ACTION constant varchar2(10) := 'REQUERY'; - RL_RECORD_SET_SIZE constant number(4) := 0; - RL_TOTAL_COUNT_REQD constant boolean := FALSE; - RL_NUMBER_OF_COLUMNS constant number(4) := 1; - LOV_BODY_ATTRIBUTES constant varchar2(500) := ''; - LOV_FIND_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(17,WSGLM.CAP017_LOV_FIND); - LOV_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP018_LOV_CLOSE); - LOV_FIND_BUT_ACTION constant varchar2(10) := 'FIND'; - LOV_CLOSE_BUT_ACTION constant varchar2(10) := 'CLOSE'; - LOV_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - LOV_FRAME constant varchar2(20) := null; - CAL_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - CAL_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP025_CAL_CLOSE); - CAL_BODY_ATTRIBUTES constant varchar2(500) := ''; - TF_BODY_ATTRIBUTES constant varchar2(500) := ''; - DEF_BODY_ATTRIBUTES constant varchar2(500) := ''; - - type FORM_REC is record - (UI_CONTRACT_STATUS varchar2(32760) - ,L_CONT_CONTRACT_NUMBER varchar2(180) - ,IDENTIFIER varchar2(180) - ,UI_START_DATE varchar2(24000) - ,UI_END_DATE varchar2(24000) - ,UI_TIMESTAMP varchar2(24000) - ,STATUS varchar2(48) - ,UI_URL varchar2(24000) - ,UI_START_DATE_DATE varchar2(40) - ,UI_START_DATE_QRY varchar2(40) - ,UI_END_DATE_QRY varchar2(40) - ,CONT_ID varchar2(40) - ,NOMI_ID varchar2(40) - ); - FORM_VAL FORM_REC; - - PROCESSING_VIEW boolean := false; - ZONE_SQL varchar2(32767) := null; - ZONE_CHECKSUM varchar2(10); - - REF_COMPONENT WSGOC.COMPONENT_REF; - R_UI_CONTRACT_STATUS WSGOC.ITEM_REF; - R_L_CONT_CONTRACT_NUMBER WSGOC.ITEM_REF; - R_IDENTIFIER WSGOC.ITEM_REF; - R_UI_START_DATE WSGOC.ITEM_REF; - R_UI_END_DATE WSGOC.ITEM_REF; - R_UI_TIMESTAMP WSGOC.ITEM_REF; - R_STATUS WSGOC.ITEM_REF; - R_UI_URL WSGOC.ITEM_REF; - R_UI_START_DATE_DATE WSGOC.ITEM_REF; - R_UI_START_DATE_QRY WSGOC.ITEM_REF; - R_UI_END_DATE_QRY WSGOC.ITEM_REF; - R_CONT_ID WSGOC.ITEM_REF; - R_NOMI_ID WSGOC.ITEM_REF; - - - -FUNCTION FormatDate ( p_date IN VARCHAR2 ) RETURN VARCHAR2 IS - --- FormatDate --- --- - - - - -- - v_return VARCHAR2(100); - v_mask VARCHAR2(34) := cout_system_configuration.get_configuration_item('G_DATE_FORMAT'); - -- -BEGIN - -- - v_return := TO_CHAR(TO_DATE(p_date, 'DD/MM/YYYY HH24:MI'),v_mask); - -- - RETURN v_return; - -- -EXCEPTION - WHEN OTHERS THEN - RETURN p_date; -END FormatDate; -FUNCTION FormatDateTime ( p_date IN VARCHAR2 ) RETURN VARCHAR2 IS - --- FormatDateTime --- --- - - - - -- - v_return VARCHAR2(100); - v_mask VARCHAR2(34) := cout_system_configuration.get_configuration_item('G_DATE_FORMAT')||' HH24:MI'; - -- -BEGIN - -- - v_return := TO_CHAR(TO_DATE(p_date, 'DD/MM/YYYY HH24:MI'),v_mask); - -- - RETURN v_return; - -- -EXCEPTION - WHEN OTHERS THEN - RETURN p_date; -END FormatDateTime; - --------------------------------------------------------------------------------- --- Name: efnow101$nomi.PreQuery --- --- Description: Provides place holder for code to be run prior to a query --- for the 'NOMI' module component (#View Nominations#2405#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PreQuery( - P_UI_CONTRACT_STATUS in varchar2, - P_L_CONT_CONTRACT_NUMBER in varchar2, - P_STATUS in varchar2, - P_UI_START_DATE_QRY in varchar2, - P_UI_END_DATE_QRY in varchar2) return boolean is - L_RET_VAL boolean := TRUE; - begin --- PQ_set_globals --- --- - -BEGIN - g_ui_start_date_qry := TO_DATE(P_UI_START_DATE_QRY,cout_system_configuration.get_configuration_item('G_DATE_FORMAT')); - g_ui_end_date_qry := TO_DATE(P_UI_END_DATE_QRY,cout_system_configuration.get_configuration_item('G_DATE_FORMAT')); - g_ui_contract_status := p_ui_contract_status; -END; - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - DEF_BODY_ATTRIBUTES, 'efnow101$nomi.PreQuery'); - return FALSE; - end; -FUNCTION get_contract_status RETURN VARCHAR2 IS - --- get_contract_status --- --- - - - -BEGIN - RETURN g_ui_contract_status; -END; -FUNCTION get_end_date RETURN DATE IS - --- get_end_date --- --- - - - -BEGIN - RETURN g_ui_end_date_qry; -END; -FUNCTION get_latest_cont RETURN contracts.contract_number%TYPE IS - --- get_latest_cont --- --- - - - - CURSOR cur_cont IS - SELECT contract_number - FROM contracts - WHERE cust_id = caco_utilities.get_cust_id - ORDER BY valid_from desc; - l_ret contracts.contract_number%TYPE; -BEGIN - -- - OPEN cur_cont; - FETCH cur_cont INTO l_ret; - CLOSE cur_cont; - -- - RETURN l_ret; - -- -END; -FUNCTION get_start_date RETURN DATE IS - --- get_start_date --- --- - - - -BEGIN - RETURN g_ui_start_date_qry; -END; --------------------------------------------------------------------------------- --- Name: efnow101$nomi.L_CONT_CONTRACT_NUMBER_LOV --- --- Description: Builds a GUI control to display the values returned by --- LOV 'L_CONT_CONTRACT_NUMBER'. --- --- --------------------------------------------------------------------------------- - function L_CONT_CONTRACT_NUMBER_LOV( - P_VALUE in varchar2, - P_CTRL in number, - P_MODE in varchar2 default 'Q', - p_select_first in boolean default false, - p_onclick in boolean, - p_onchange in boolean, - p_onblur in boolean, - p_onfocus in boolean, - p_onselect in boolean, - p_row in number) return varchar2 is - - L_RET_VALUE varchar2(32766) := null; - l_events varchar2(1000) := null; - l_valid boolean := false; - l_first boolean := true; - - cursor c1( z_mode in varchar2 - , z_filter in varchar2 - , z_uu in varchar2 - , z_ul in varchar2 - , z_lu in varchar2 - , z_ll in varchar2 - ) - is - SELECT DISTINCT L_CONT.CONTRACT_NUMBER L_CONT_CONTRACT_NUMBER, --- SELECT L_CONT.CONTRACT_NUMBER L_CONT_CONTRACT_NUMBER, - L_CONT.CONTRACT_NUMBER CG$DISPLAY,L_CONT.VALID_FROM -FROM CONTRACTS L_CONT, - CUSTOMERS L_CUST -WHERE ( - ( ( Z_MODE='Q') - AND ( /* CG$MDTU_QWC_START NOMI.L_CUST */ - (L_CUST.CUST_ID=caco_utilities.get_cust_id and L_CONT.status = DECODE(NVL(efnow101$nomi.get_contract_status,'A'),'A',L_CONT.status,efnow101$nomi.get_contract_status)) - /* CG$MDTU_QWC_END NOMI.L_CUST */ - ) - ) - OR - ( NOT Z_MODE='Q') - ) AND - L_CONT.CUST_ID = L_CUST.CUST_ID AND - L_CONT.CONTRACT_NUMBER <> NVL(get_latest_cont,-1) ---ORDER BY L_CONT.CONTRACT_NUMBER -ORDER BY L_CONT.VALID_FROM DESC -; - - l_rownum_txt varchar2(30); - begin - if p_row is not null then - l_rownum_txt := ', ' || to_char(p_row - 1); - end if; - if p_onclick then - l_events := l_events || ' onClick="return L_CONT_CONTRACT_NUMBER_OnClick(this'||l_rownum_txt||')"'; - end if; - if p_onchange then - l_events := l_events || ' onChange="return L_CONT_CONTRACT_NUMBER_OnChange(this'||l_rownum_txt||')"'; - end if; - if p_onblur then - l_events := l_events || ' onBlur="return L_CONT_CONTRACT_NUMBER_OnBlur(this'||l_rownum_txt||')"'; - end if; - if p_onfocus then - l_events := l_events || ' onFocus="return L_CONT_CONTRACT_NUMBER_OnFocus(this'||l_rownum_txt||')"'; - end if; - if p_onselect then - l_events := l_events || ' onSelect="return L_CONT_CONTRACT_NUMBER_OnSelect(this'||l_rownum_txt||')"'; - end if; - - -- IDs Feature: - if P_CTRL = WSGL.CTL_QUERY and 1 <> 1 then - L_RET_VALUE := htf.formSelectOpen('P_L_CONT_CONTRACT_NUMBER', - nsize=>'1', - cattributes=>'MULTIPLE CLASS = cglovlist'||l_events||' ID="'||'P_L_CONT_CONTRACT_NUMBER'||'"'); - else - L_RET_VALUE := htf.formSelectOpen('P_L_CONT_CONTRACT_NUMBER', - nsize=>'1', - cattributes=>'CLASS = cglovlist'||l_events||' ID="'||'P_L_CONT_CONTRACT_NUMBER'||'"'); - end if; - - if P_CTRL = WSGL.CTL_QUERY and p_select_first then - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(get_latest_cont, 'SELECTED'); - --L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(' ', 'SELECTED'); - l_first := false; - l_valid := true; - end if; - -- Add NULL option - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.EscapeItem(''), null, - cattributes=>'VALUE="'||WSGL.EscapeItem('')||'"'); - for c1rec in c1( P_MODE, '%',null,null,null,null) loop - if ((WSGL.EscapeItem(c1rec.L_CONT_CONTRACT_NUMBER) = P_VALUE) or c1rec.L_CONT_CONTRACT_NUMBER = P_VALUE) or (p_select_first and l_first) then - l_valid := true; - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.EscapeItem(c1rec.CG$DISPLAY), 'SELECTED', - cattributes=>'VALUE="'||WSGL.EscapeItem(c1rec.L_CONT_CONTRACT_NUMBER)||'"'); - else - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.EscapeItem(c1rec.CG$DISPLAY), null, - cattributes=>'VALUE="'||WSGL.EscapeItem(c1rec.L_CONT_CONTRACT_NUMBER)||'"'); - end if; - l_first := false; - end loop; - - if not l_valid then - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.MsgGetText(28,WSGLM.CAP028_INVALID_VAL), 'SELECTED', - 'VALUE="'||WSGL.MsgGetText(28,WSGLM.CAP028_INVALID_VAL)||'"'); - end if; - L_RET_VALUE := L_RET_VALUE || htf.formSelectClose; - - return L_RET_VALUE; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - DEF_BODY_ATTRIBUTES, 'efnow101$nomi.L_CONT_CONTRACT_NUMBER_LOV'); - return L_RET_VALUE; - end; --------------------------------------------------------------------------------- --- Name: efnow101$nomi.InitialiseDomain --- --- Description: Initialises the Domain Record for the given Column Usage --- --- Parameters: P_ALIAS The alias of the column usage --- --------------------------------------------------------------------------------- - procedure InitialiseDomain(P_ALIAS in varchar2) is - begin - if not caco_security.security_check('efnow101$nomi') then - return; - end if; - - if P_ALIAS = 'UI_CONTRACT_STATUS' and not D_UI_CONTRACT_STATUS.Initialised then - D_UI_CONTRACT_STATUS.ColAlias := 'UI_CONTRACT_STATUS'; - D_UI_CONTRACT_STATUS.ControlType := WSGL.DV_LIST; - D_UI_CONTRACT_STATUS.DispWidth := 20; - D_UI_CONTRACT_STATUS.DispHeight := 1; - D_UI_CONTRACT_STATUS.MaxWidth := 32760; - D_UI_CONTRACT_STATUS.UseMeanings := True; - D_UI_CONTRACT_STATUS.ColOptional := False; - D_UI_CONTRACT_STATUS.Vals(1) := 'O'; - D_UI_CONTRACT_STATUS.Meanings(1) := 'Open'; - D_UI_CONTRACT_STATUS.Abbreviations(1) := 'O'; - D_UI_CONTRACT_STATUS.Vals(2) := 'C'; - D_UI_CONTRACT_STATUS.Meanings(2) := 'Closed'; - D_UI_CONTRACT_STATUS.Abbreviations(2) := 'C'; - D_UI_CONTRACT_STATUS.Vals(3) := 'A'; - D_UI_CONTRACT_STATUS.Meanings(3) := 'All'; - D_UI_CONTRACT_STATUS.Abbreviations(3) := 'A'; - D_UI_CONTRACT_STATUS.NumOfVV := 3; - D_UI_CONTRACT_STATUS.Initialised := True; - end if; - - if P_ALIAS = 'STATUS' and not D_STATUS.Initialised then - D_STATUS.ColAlias := 'STATUS'; - D_STATUS.ControlType := WSGL.DV_LIST; - D_STATUS.DispWidth := 8; - D_STATUS.DispHeight := 1; - D_STATUS.MaxWidth := 8; - D_STATUS.UseMeanings := True; - D_STATUS.ColOptional := False; - WSGL.LoadDomainValues('CG_REF_CODES', 'STATUS', D_STATUS); - D_STATUS.Initialised := True; - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - DEF_BODY_ATTRIBUTES, 'efnow101$nomi.InitialseDomain'); - end; - --------------------------------------------------------------------------------- --- Name: efnow101$nomi.calendar --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - - procedure calendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ) is - - Field_Caption Varchar2 (2000); - - begin - - if Z_FIELD_PROMPT is null then - Field_Caption := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - else - Field_Caption := initcap (replace (Z_FIELD_PROMPT, '_', ' ')); - end if; - - - WSGL.RegisterURL('efnow101$nomi.calendar'); - WSGL.AddURLParam('Z_FIELD_NAME', Z_FIELD_NAME); - WSGL.AddURLParam('Z_CALLER_URL', Z_CALLER_URL); - - if WSGL.NotLowerCase then - return; - end if; - - WSGL.Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow101$nomi', - CAL_CLOSE_BUT_CAPTION, - True, - 'DD-MON-RRRR' - ); - - efnow101$.TemplateHeader(TRUE,7); - - WSGL.Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow101$nomi', - CAL_CLOSE_BUT_CAPTION, - False, - 'DD-MON-RRRR' - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - CAL_BODY_ATTRIBUTES, 'efnow101$nomi.calendar'); - end calendar; - --------------------------------------------------------------------------------- --- Name: efnow101$nomi.format_cal_date --- --- Description: Converts the chosen date into the correct format using the format mask assigned --- to the field that the calendar was popped up for --- --------------------------------------------------------------------------------- - -procedure format_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ) is - - Field_Caption Varchar2 (2000) := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - l_day varchar2(15) := day; - -begin - - if l_day = '0' then - l_day := '01'; - end if; - - WSGL.Output_Format_Cal_JS - ( - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - l_day || '-' || month || '-' || year, - Z_FIELD_FORMAT - ); - -end format_cal_date; - --------------------------------------------------------------------------------- --- Name: efnow101$nomi.Startup --- --- Description: Entry point for the 'NOMI' module --- component (#View Nominations#2405#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure Startup( - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2, - Z_FORM in varchar2) is - l_Foundform boolean := FALSE; - l_fs_text varchar2(32767) := '' ; - begin - if not caco_security.security_check('efnow101$nomi') then - return; - end if; - - WSGL.RegisterURL('efnow101$nomi.startup'); - WSGL.AddURLParam('Z_CHK', Z_CHK); - - - WSGL.StoreURLLink(1, '#View Nominations#2405#'); - - -- Either no frames are being used or the query form is on a - -- separate page. - if Z_FORM is not null then - null; - -- Work out which form is required, and check if that is possible - if Z_FORM = 'QUERY' then - FormQuery( - Z_DIRECT_CALL=>TRUE); - l_Foundform := TRUE; - end if; - if Z_FORM = 'LIST' then - QueryList( - Z_DIRECT_CALL=>TRUE); - l_Foundform := TRUE; - end if; - end if; - if l_Foundform = FALSE then - FormQuery( - Z_DIRECT_CALL=>TRUE); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - DEF_BODY_ATTRIBUTES, 'efnow101$nomi.Startup'); - end; - --------------------------------------------------------------------------------- --- Name: efnow101$nomi.ActionQuery --- --- Description: Called when a Query form is subitted to action the query request. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure ActionQuery( - P_UI_CONTRACT_STATUS in varchar2, - P_L_CONT_CONTRACT_NUMBER in varchar2, - P_STATUS in varchar2, - P_UI_START_DATE_QRY in varchar2, - P_UI_END_DATE_QRY in varchar2, - Z_DIRECT_CALL in boolean default false, - Z_ACTION in varchar2, - Z_CHK in varchar2 ) is - - L_CHK varchar2(10) := Z_CHK; - L_BUTCHK varchar2(100):= null; - l_dummy_bool boolean := false; - begin - if not caco_security.security_check('efnow101$nomi') then - return; - end if; - - if not Z_DIRECT_CALL then - null; - end if; - - l_dummy_bool := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - QueryList( - P_UI_CONTRACT_STATUS, - P_L_CONT_CONTRACT_NUMBER, - P_STATUS, - P_UI_START_DATE_QRY, - P_UI_END_DATE_QRY, - Z_START=>null, - Z_ACTION=>L_BUTCHK, - Z_DIRECT_CALL=>TRUE); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - DEF_BODY_ATTRIBUTES, 'efnow101$nomi.ActionQuery'); - end; - --------------------------------------------------------------------------------- --- Name: efnow101$nomi.QueryHits --- --- Description: Returns the number or rows which matches the given search --- criteria (if any). --- --- Parameters: --- --------------------------------------------------------------------------------- - function QueryHits( - P_UI_CONTRACT_STATUS in varchar2, - P_L_CONT_CONTRACT_NUMBER in varchar2, - P_STATUS in varchar2, - P_UI_START_DATE_QRY in varchar2, - P_UI_END_DATE_QRY in varchar2) return number is - I_QUERY varchar2(32767) := ''; - I_CURSOR integer; - I_VOID integer; - I_FROM_POS integer := 0; - I_COUNT number(10); - begin - if not caco_security.security_check('efnow101$nomi') then - return -1; - end if; - - if not BuildSQL(P_UI_CONTRACT_STATUS, - P_L_CONT_CONTRACT_NUMBER, - P_STATUS, - P_UI_START_DATE_QRY, - P_UI_END_DATE_QRY) then - return -1; - end if; - - if not PreQuery(P_UI_CONTRACT_STATUS, - P_L_CONT_CONTRACT_NUMBER, - P_STATUS, - P_UI_START_DATE_QRY, - P_UI_END_DATE_QRY) then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#View Nominations#2405#', DEF_BODY_ATTRIBUTES); - return -1; - end if; - - I_FROM_POS := instr(upper(ZONE_SQL), ' FROM '); - - if I_FROM_POS = 0 then - return -1; - end if; - - I_QUERY := 'SELECT count(*)' || - substr(ZONE_SQL, I_FROM_POS); - - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, I_QUERY, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, I_COUNT); - I_VOID := dbms_sql.execute(I_CURSOR); - I_VOID := dbms_sql.fetch_rows(I_CURSOR); - dbms_sql.column_value(I_CURSOR, 1, I_COUNT); - dbms_sql.close_cursor(I_CURSOR); - - return I_COUNT; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - DEF_BODY_ATTRIBUTES, 'efnow101$nomi.QueryHits'); - return -1; - end; --------------------------------------------------------------------------------- --- Name: efnow101$nomi.BuildSQL --- --- Description: Builds the SQL for the 'NOMI' module component (#View Nominations#2405#). --- This incorporates all query criteria and Foreign key columns. --- --- Parameters: --- --------------------------------------------------------------------------------- - function BuildSQL( - P_UI_CONTRACT_STATUS in varchar2, - P_L_CONT_CONTRACT_NUMBER in varchar2, - P_STATUS in varchar2, - P_UI_START_DATE_QRY in varchar2, - P_UI_END_DATE_QRY in varchar2, - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean is - - I_WHERE varchar2(32767); - row_idx integer; - begin - - InitialiseDomain('UI_CONTRACT_STATUS'); - InitialiseDomain('STATUS'); - - -- Build up the Where clause - if Z_QUERY_BY_KEY then - I_WHERE := 'WHERE NOMI_ID = ' || to_char(CURR_VAL.NOMI_ID) || ' '; - elsif Z_ROW_ID is not null then - I_WHERE := 'WHERE CG$ROW_ID = ''' || rowidtochar( Z_ROW_ID ) || ''''; - elsif Z_BIND_ROW_ID then - I_WHERE := 'WHERE CG$ROW_ID = :b_row_id'; - else - WSGL.BuildWhere(P_L_CONT_CONTRACT_NUMBER, 'L_CONT_CONTRACT_NUMBER', WSGL.TYPE_CHAR, I_WHERE); - WSGL.BuildWhere(WSGL.DomainValue(D_STATUS, P_STATUS), 'STATUS', WSGL.TYPE_CHAR, I_WHERE); - - end if; - - ZONE_SQL := 'SELECT L_CONT_CONTRACT_NUMBER, - IDENTIFIER, - UI_START_DATE, - UI_END_DATE, - UI_TIMESTAMP, - STATUS, - UI_URL, - UI_START_DATE_DATE, - CONT_ID, - NOMI_ID - FROM ( SELECT L_CONT.CONTRACT_NUMBER L_CONT_CONTRACT_NUMBER, - NOMI.IDENTIFIER IDENTIFIER, - (SELECT EFNOW101$NOMI.FORMATDATE(TO_CHAR(MIN(nnpcv.gas_day),''DD/MM/YYYY HH24:MI'')) FROM nom_net_point_cat_vals nnpcv WHERE nnpcv.nomi_id = NOMI.NOMI_ID) UI_START_DATE, - (SELECT EFNOW101$NOMI.FORMATDATE(TO_CHAR(MAX(nnpcv.gas_day),''DD/MM/YYYY HH24:MI'')) FROM nom_net_point_cat_vals nnpcv WHERE nnpcv.nomi_id = NOMI.NOMI_ID) UI_END_DATE, - (SELECT EFNOW101$NOMI.FORMATDATETIME(TO_CHAR(MAX(conf.CONFIRMATION_SENT),''DD/MM/YYYY HH24:MI'')) FROM confirmations conf WHERE conf.nomi_id = NOMI.NOMI_ID AND conf.confirmation_type = ''NO'') UI_TIMESTAMP, - NOMI.STATUS STATUS, - ''efnow101$.view_details?p_nomi_id=''||NOMI.NOMI_ID UI_URL, - (SELECT MIN(nnpcv.gas_day) FROM nom_net_point_cat_vals nnpcv WHERE nnpcv.nomi_id = NOMI.NOMI_ID) UI_START_DATE_DATE, - NOMI.CONT_ID CONT_ID, - NOMI.NOMI_ID NOMI_ID -FROM NOMINATIONS NOMI, - CONTRACTS L_CONT, - CUSTOMERS L_CUST -WHERE ( /* CG$MDTU_QWC_START NOMI.NOMI */ - (NOMI.NOMI_ID IN (SELECT nnpcv.nomi_id FROM nom_net_point_cat_vals nnpcv WHERE (nnpcv.gas_day BETWEEN efnow101$nomi.get_start_date AND efnow101$nomi.get_end_date) OR (nnpcv.gas_day >= efnow101$nomi.get_start_date AND efnow101$nomi.get_end_date IS NULL) OR (nnpcv.gas_day <= efnow101$nomi.get_end_date AND efnow101$nomi.get_start_date IS NULL) OR (efnow101$nomi.get_start_date IS NULL AND efnow101$nomi.get_end_date IS NULL)) AND EXISTS (SELECT 1 FROM contracts cont WHERE cont.cont_id = NOMI.CONT_ID AND cont.status = DECODE(NVL(efnow101$nomi.get_contract_status,''A''),''A'',cont.status,efnow101$nomi.get_contract_status))) - /* CG$MDTU_QWC_END NOMI.NOMI */ - ) AND - NOMI.CONT_ID = L_CONT.CONT_ID AND - ( /* CG$MDTU_QWC_START NOMI.L_CUST */ - (L_CUST.CUST_ID=caco_utilities.get_cust_id and L_CONT.status = DECODE(NVL(efnow101$nomi.get_contract_status,''A''),''A'',L_CONT.status,efnow101$nomi.get_contract_status)) - /* CG$MDTU_QWC_END NOMI.L_CUST */ - ) AND - L_CONT.CUST_ID = L_CUST.CUST_ID - ) '; - ZONE_SQL := ZONE_SQL || I_WHERE; - ZONE_SQL := ZONE_SQL || ' ORDER BY UI_START_DATE_DATE Desc , - UI_TIMESTAMP Desc , - IDENTIFIER'; - return true; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - DEF_BODY_ATTRIBUTES, 'efnow101$nomi.BuildSQL'); - return false; - end; - --------------------------------------------------------------------------------- --- Name: efnow101$nomi.OpenZoneSql --- --- Description: Open's the cursor for the zone SQL of --- 'NOMI' module component (#View Nominations#2405#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure OpenZoneSql - ( I_CURSOR OUT integer - ) - is - begin - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, ZONE_SQL, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, NBT_VAL.L_CONT_CONTRACT_NUMBER, 30); - dbms_sql.define_column(I_CURSOR, 2, CURR_VAL.IDENTIFIER, 30); - dbms_sql.define_column(I_CURSOR, 3, NBT_VAL.UI_START_DATE, 4000); - dbms_sql.define_column(I_CURSOR, 4, NBT_VAL.UI_END_DATE, 4000); - dbms_sql.define_column(I_CURSOR, 5, NBT_VAL.UI_TIMESTAMP, 4000); - dbms_sql.define_column(I_CURSOR, 6, CURR_VAL.STATUS, 1); - dbms_sql.define_column(I_CURSOR, 7, NBT_VAL.UI_URL, 4000); - dbms_sql.define_column(I_CURSOR, 8, NBT_VAL.UI_START_DATE_DATE); - dbms_sql.define_column(I_CURSOR, 9, CURR_VAL.CONT_ID); - dbms_sql.define_column(I_CURSOR, 10, CURR_VAL.NOMI_ID); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - '', 'efnow101$nomi.OpenZoneSql'); - raise; - end; - --------------------------------------------------------------------------------- --- Name: efnow101$nomi.AssignZoneRow --- --- Description: Assign's a row of data and calculates the check sum from the --- zone SQL of 'NOMI' module component (#View Nominations#2405#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure AssignZoneRow - ( I_CURSOR IN integer - ) - is - begin - dbms_sql.column_value(I_CURSOR, 1, NBT_VAL.L_CONT_CONTRACT_NUMBER); - dbms_sql.column_value(I_CURSOR, 2, CURR_VAL.IDENTIFIER); - dbms_sql.column_value(I_CURSOR, 3, NBT_VAL.UI_START_DATE); - dbms_sql.column_value(I_CURSOR, 4, NBT_VAL.UI_END_DATE); - dbms_sql.column_value(I_CURSOR, 5, NBT_VAL.UI_TIMESTAMP); - dbms_sql.column_value(I_CURSOR, 6, CURR_VAL.STATUS); - dbms_sql.column_value(I_CURSOR, 7, NBT_VAL.UI_URL); - dbms_sql.column_value(I_CURSOR, 8, NBT_VAL.UI_START_DATE_DATE); - dbms_sql.column_value(I_CURSOR, 9, CURR_VAL.CONT_ID); - dbms_sql.column_value(I_CURSOR, 10, CURR_VAL.NOMI_ID); - ZONE_CHECKSUM := to_char(WSGL.Checksum - ( '' - || CURR_VAL.NOMI_ID - ) ); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - '', 'efnow101$nomi.AssignZoneRow'); - raise; - end; - - - - --------------------------------------------------------------------------------- --- Name: efnow101$nomi.FormQuery --- --- Description: This procedure builds an HTML form for entry of query criteria. --- The criteria entered are to restrict the query of the 'NOMI' --- module component (#View Nominations#2405#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure FormQuery( - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2) is - L_SUCCESS boolean := TRUE; - begin - if not caco_security.security_check('efnow101$nomi') then - return; - end if; - - if not Z_DIRECT_CALL then - - null; - end if; - - L_SUCCESS := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - WSGL.OpenPageHead(''||' : '||'#View Nominations#2405#'); - WSGL.METATag; - efnow101$.TemplateHeader(TRUE,1); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>QF_BODY_ATTRIBUTES || 'onLoad="return NOMI_OnLoad()"'); - efnow101$js$nomi.CreateQueryJavaScript(LOV_FRAME,QF_BODY_ATTRIBUTES); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => false - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - htp.p(caco_system.menu); - efnow101$.FirstPage(Z_DIRECT_CALL => TRUE - - ); - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - htp.p(WSGL.MsgGetText(116,WSGLM.DSP116_ENTER_QRY_CAPTION,'#View Nominations#2405#')); - htp.para; - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow101$nomi.actionquery', cattributes => 'NAME="efnow101$nomi$QForm"'); - - SaveState; - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE); - WSGL.LayoutRowStart; - for i in 1..QF_NUMBER_OF_COLUMNS loop - WSGL.LayoutHeader(25, 'LEFT', NULL); - WSGL.LayoutHeader(30, 'LEFT', NULL); - end loop; - WSGL.LayoutRowEnd; - - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Contract Status#3977#:')); - InitialiseDomain('UI_CONTRACT_STATUS'); - WSGL.LayoutData(WSGL.BuildDVControl(D_UI_CONTRACT_STATUS, WSGL.CTL_QUERY)); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Contract Number#2013#:')); - WSGL.LayoutData(L_CONT_CONTRACT_NUMBER_LOV(NULL, WSGL.CTL_QUERY, 'Q', true)); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Nomination Status#3978#:')); - InitialiseDomain('STATUS'); - WSGL.LayoutData(WSGL.BuildDVControl(D_STATUS, WSGL.CTL_QUERY)); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Start Date#2489#:')); - WSGL.LayoutData(WSGL.BuildQueryControl('UI_START_DATE_QRY', '11', FALSE, p_maxlength=>'40' - , p_cal_but_text => CAL_BUTTON_TEXT - , p_cal_date_format => 'DD-MON-RRRR' - , p_cal_prompt => '#Start Date#2489#' - , p_form=>'efnow101$nomi$QForm')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#End Date#2490#:')); - WSGL.LayoutData(WSGL.BuildQueryControl('UI_END_DATE_QRY', '11', FALSE, p_maxlength=>'40' - , p_cal_but_text => CAL_BUTTON_TEXT - , p_cal_date_format => 'DD-MON-RRRR' - , p_cal_prompt => '#End Date#2490#' - , p_form=>'efnow101$nomi$QForm')); - WSGL.LayoutRowEnd; - - WSGL.LayoutClose; - - WSGL.SubmitButton('Z_ACTION', htf.escape_sc(QF_QUERY_BUT_CAPTION), 'btnQFQ', 'this.form.Z_ACTION.value=\''' || QF_QUERY_BUT_ACTION || '\'''); - htp.formReset(htf.escape_sc(QF_CLEAR_BUT_CAPTION), 'ID="'||htf.escape_sc(QF_CLEAR_BUT_CAPTION)||'"'); - - - WSGL.HiddenField('Z_CHK', to_char(WSGL.Checksum - (''))); - htp.formClose; - - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - QF_BODY_ATTRIBUTES, 'efnow101$nomi.FormQuery'); - WSGL.ClosePageBody; - end; - --------------------------------------------------------------------------------- --- Name: efnow101$nomi.QueryList --- --- Description: This procedure builds the Record list for the 'NOMI' --- module component (#View Nominations#2405#). --- --- The Record List displays context information for records which --- match the specified query criteria. --- Sets of records are displayed (0 records at a time) --- with Next/Previous buttons to get other record sets. --- --- Parameters: P_UI_CONTRACT_STATUS - #Contract Status#3977# --- P_L_CONT_CONTRACT_NUMBER - #Contract Number#2013# --- P_STATUS - #Nomination Status#3978# --- P_UI_START_DATE_QRY - #Start Date#2489# --- P_UI_END_DATE_QRY - #End Date#2490# --- Z_START - First record to display --- Z_ACTION - Next or Previous set --- --------------------------------------------------------------------------------- - procedure QueryList( - P_UI_CONTRACT_STATUS in varchar2, - P_L_CONT_CONTRACT_NUMBER in varchar2, - P_STATUS in varchar2, - P_UI_START_DATE_QRY in varchar2, - P_UI_END_DATE_QRY in varchar2, - Z_START in varchar2, - Z_ACTION in varchar2, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2 ) is - - I_VF_FRAME varchar2(20) := null; - I_WHERE varchar2(2000) := ''; - I_CURSOR integer; - I_VOID integer; - I_ROWS_FETCHED integer := 0; - I_TOTAL_ROWS integer := 0; - I_START number(38) := to_number(Z_START); - I_COUNT number(10) := 0; - I_OF_TOTAL_TEXT varchar2(200) := ''; - I_NEXT_BUT boolean; - I_PREV_BUT boolean; - I_COL_COUNT integer; - I_SUCCESS boolean := true; - l_row integer := 0; - l_id varchar2(35) := null; - -- Reset break group? - RSIG1 boolean := true; - -- Reset break group? - RSIG2 boolean := true; - I_LAST_BASE CURR_VAL%TYPE; - I_LAST_NBT NBT_REC; - - - - begin - - if not caco_security.security_check('efnow101$nomi') then - return; - end if; - - - WSGL.RegisterURL('efnow101$nomi.querylist'); - WSGL.AddURLParam('P_UI_CONTRACT_STATUS', P_UI_CONTRACT_STATUS); - WSGL.AddURLParam('P_L_CONT_CONTRACT_NUMBER', P_L_CONT_CONTRACT_NUMBER); - WSGL.AddURLParam('P_STATUS', P_STATUS); - WSGL.AddURLParam('P_UI_START_DATE_QRY', P_UI_START_DATE_QRY); - WSGL.AddURLParam('P_UI_END_DATE_QRY', P_UI_END_DATE_QRY); - WSGL.AddURLParam('Z_START', Z_START); - WSGL.AddURLParam('Z_ACTION', Z_ACTION); - WSGL.AddURLParam('Z_CHK', Z_CHK); - if (not Z_DIRECT_CALL) then - - null; - - - end if; - if (Z_ACTION = RL_QUERY_BUT_ACTION) or (Z_ACTION = RL_QUERY_BUT_CAPTION) then - FormQuery( - Z_DIRECT_CALL=>TRUE); - return; - end if; - - -- Set up any master context values that may be required - I_SUCCESS := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - - - WSGL.OpenPageHead(''||' : '||'#View Nominations#2405#'); - WSGL.METATag; - efnow101$.TemplateHeader(TRUE,6); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>RL_BODY_ATTRIBUTES); - efnow101$js$nomi.CreateListJavaScript(RL_BODY_ATTRIBUTES); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => false - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - - - htp.p(caco_system.menu); - - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - if (Z_ACTION = RL_LAST_BUT_ACTION) or (Z_ACTION = RL_LAST_BUT_CAPTION) or - (Z_ACTION = RL_COUNT_BUT_ACTION) or (Z_ACTION = RL_COUNT_BUT_CAPTION) or - (RL_TOTAL_COUNT_REQD) - then - - I_COUNT := QueryHits( - P_UI_CONTRACT_STATUS, - P_L_CONT_CONTRACT_NUMBER, - P_STATUS, - P_UI_START_DATE_QRY, - P_UI_END_DATE_QRY); - if I_COUNT = -1 then - WSGL.ClosePageBody; - return; - end if; - end if; - - if (Z_ACTION = RL_COUNT_BUT_ACTION) or (Z_ACTION = RL_COUNT_BUT_CAPTION) or - RL_TOTAL_COUNT_REQD then - I_OF_TOTAL_TEXT := ' '||WSGL.MsgGetText(111,WSGLM.DSP111_OF_TOTAL, to_char(I_COUNT)); - end if; - I_START := 1; - - I_PREV_BUT := TRUE; - I_NEXT_BUT := FALSE; - if I_START = 1 or Z_ACTION IS NULL then - I_PREV_BUT := FALSE; - end if; - - if nvl(Z_ACTION, 'X') != 'DONTQUERY' then - - if ZONE_SQL IS NULL then - if not BuildSQL( - P_UI_CONTRACT_STATUS, - P_L_CONT_CONTRACT_NUMBER, - P_STATUS, - P_UI_START_DATE_QRY, - P_UI_END_DATE_QRY) then - WSGL.ClosePageBody; - return; - end if; - end if; - - if not PreQuery( - P_UI_CONTRACT_STATUS, - P_L_CONT_CONTRACT_NUMBER, - P_STATUS, - P_UI_START_DATE_QRY, - P_UI_END_DATE_QRY) then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#View Nominations#2405#', RL_BODY_ATTRIBUTES); - return; - end if; - - InitialiseDomain('STATUS'); - - - OpenZoneSql( I_CURSOR ); - I_VOID := dbms_sql.execute(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - else - I_ROWS_FETCHED := 0; - end if; - I_TOTAL_ROWS := I_ROWS_FETCHED; - - if I_ROWS_FETCHED != 0 then - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE, P_BORDER=>TRUE); - - WSGL.LayoutRowStart(p_attrs=>'class = cgrlheaderrow'); - for i in 1..RL_NUMBER_OF_COLUMNS loop - WSGL.LayoutHeader(30, 'LEFT', '#Contract Number#2013#','CONTRACT_NUMBER'); - WSGL.LayoutHeader(30, 'LEFT', '#Nomination Identifier#2060#','IDENTIFIER'); - WSGL.LayoutHeader(30, 'LEFT', '#Start Date#2489#',''); - WSGL.LayoutHeader(30, 'LEFT', '#End Date#2490#',''); - WSGL.LayoutHeader(30, 'LEFT', '#Timestamp#1152#',''); - WSGL.LayoutHeader(8, 'LEFT', '#Nomination Status#3978#','STATUS'); - WSGL.LayoutHeader(30, 'LEFT', '#View#2062#',''); - end loop; - WSGL.LayoutRowEnd; - - while I_ROWS_FETCHED <> 0 loop - - if I_TOTAL_ROWS >= I_START then - AssignZoneRow(I_CURSOR); - - if (NBT_VAL.UI_CONTRACT_STATUS != I_LAST_NBT.UI_CONTRACT_STATUS or (NBT_VAL.UI_CONTRACT_STATUS is null and I_LAST_NBT.UI_CONTRACT_STATUS is not null) or (NBT_VAL.UI_CONTRACT_STATUS is not null and I_LAST_NBT.UI_CONTRACT_STATUS is null) ) or - (NBT_VAL.L_CONT_CONTRACT_NUMBER != I_LAST_NBT.L_CONT_CONTRACT_NUMBER or (NBT_VAL.L_CONT_CONTRACT_NUMBER is null and I_LAST_NBT.L_CONT_CONTRACT_NUMBER is not null) or (NBT_VAL.L_CONT_CONTRACT_NUMBER is not null and I_LAST_NBT.L_CONT_CONTRACT_NUMBER is null) ) then - RSIG1 := true; - else - RSIG1 := false; - end if; - if (NBT_VAL.UI_START_DATE_QRY != I_LAST_NBT.UI_START_DATE_QRY or (NBT_VAL.UI_START_DATE_QRY is null and I_LAST_NBT.UI_START_DATE_QRY is not null) or (NBT_VAL.UI_START_DATE_QRY is not null and I_LAST_NBT.UI_START_DATE_QRY is null) ) or - (NBT_VAL.UI_END_DATE_QRY != I_LAST_NBT.UI_END_DATE_QRY or (NBT_VAL.UI_END_DATE_QRY is null and I_LAST_NBT.UI_END_DATE_QRY is not null) or (NBT_VAL.UI_END_DATE_QRY is not null and I_LAST_NBT.UI_END_DATE_QRY is null) ) or - (CURR_VAL.CONT_ID != I_LAST_BASE.CONT_ID or (CURR_VAL.CONT_ID is null and I_LAST_BASE.CONT_ID is not null) or (CURR_VAL.CONT_ID is not null and I_LAST_BASE.CONT_ID is null) ) or - (CURR_VAL.NOMI_ID != I_LAST_BASE.NOMI_ID or (CURR_VAL.NOMI_ID is null and I_LAST_BASE.NOMI_ID is not null) or (CURR_VAL.NOMI_ID is not null and I_LAST_BASE.NOMI_ID is null) ) or - (CURR_VAL.IDENTIFIER != I_LAST_BASE.IDENTIFIER or (CURR_VAL.IDENTIFIER is null and I_LAST_BASE.IDENTIFIER is not null) or (CURR_VAL.IDENTIFIER is not null and I_LAST_BASE.IDENTIFIER is null) ) or - (NBT_VAL.UI_START_DATE != I_LAST_NBT.UI_START_DATE or (NBT_VAL.UI_START_DATE is null and I_LAST_NBT.UI_START_DATE is not null) or (NBT_VAL.UI_START_DATE is not null and I_LAST_NBT.UI_START_DATE is null) ) or - (NBT_VAL.UI_END_DATE != I_LAST_NBT.UI_END_DATE or (NBT_VAL.UI_END_DATE is null and I_LAST_NBT.UI_END_DATE is not null) or (NBT_VAL.UI_END_DATE is not null and I_LAST_NBT.UI_END_DATE is null) ) or - (NBT_VAL.UI_TIMESTAMP != I_LAST_NBT.UI_TIMESTAMP or (NBT_VAL.UI_TIMESTAMP is null and I_LAST_NBT.UI_TIMESTAMP is not null) or (NBT_VAL.UI_TIMESTAMP is not null and I_LAST_NBT.UI_TIMESTAMP is null) ) or - (CURR_VAL.STATUS != I_LAST_BASE.STATUS or (CURR_VAL.STATUS is null and I_LAST_BASE.STATUS is not null) or (CURR_VAL.STATUS is not null and I_LAST_BASE.STATUS is null) ) or - (NBT_VAL.UI_URL != I_LAST_NBT.UI_URL or (NBT_VAL.UI_URL is null and I_LAST_NBT.UI_URL is not null) or (NBT_VAL.UI_URL is not null and I_LAST_NBT.UI_URL is null) ) or - (NBT_VAL.UI_START_DATE_DATE != I_LAST_NBT.UI_START_DATE_DATE or (NBT_VAL.UI_START_DATE_DATE is null and I_LAST_NBT.UI_START_DATE_DATE is not null) or (NBT_VAL.UI_START_DATE_DATE is not null and I_LAST_NBT.UI_START_DATE_DATE is null) ) then - RSIG2 := true; - else - RSIG2 := false; - end if; - if RSIG1 then - RSIG2 := true; - end if; - - - I_LAST_NBT.UI_CONTRACT_STATUS := NBT_VAL.UI_CONTRACT_STATUS; - I_LAST_NBT.L_CONT_CONTRACT_NUMBER := NBT_VAL.L_CONT_CONTRACT_NUMBER; - I_LAST_NBT.UI_START_DATE_QRY := NBT_VAL.UI_START_DATE_QRY; - I_LAST_NBT.UI_END_DATE_QRY := NBT_VAL.UI_END_DATE_QRY; - I_LAST_BASE.CONT_ID := CURR_VAL.CONT_ID; - I_LAST_BASE.NOMI_ID := CURR_VAL.NOMI_ID; - I_LAST_BASE.IDENTIFIER := CURR_VAL.IDENTIFIER; - I_LAST_NBT.UI_START_DATE := NBT_VAL.UI_START_DATE; - I_LAST_NBT.UI_END_DATE := NBT_VAL.UI_END_DATE; - I_LAST_NBT.UI_TIMESTAMP := NBT_VAL.UI_TIMESTAMP; - I_LAST_BASE.STATUS := CURR_VAL.STATUS; - I_LAST_NBT.UI_URL := NBT_VAL.UI_URL; - I_LAST_NBT.UI_START_DATE_DATE := NBT_VAL.UI_START_DATE_DATE; - l_row := l_row + 1; - - - WSGL.LayoutRowStart('TOP', p_attrs=>'class = cgrldatarow'); - l_id := 'CONTRACT_NUMBER' || l_row; - if RSIG1 and NBT_VAL.L_CONT_CONTRACT_NUMBER is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.L_CONT_CONTRACT_NUMBER), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := 'IDENTIFIER' || l_row; - if RSIG2 and CURR_VAL.IDENTIFIER is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(CURR_VAL.IDENTIFIER), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSIG2 and NBT_VAL.UI_START_DATE is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.UI_START_DATE), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSIG2 and NBT_VAL.UI_END_DATE is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.UI_END_DATE), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSIG2 and NBT_VAL.UI_TIMESTAMP is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.UI_TIMESTAMP), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := 'STATUS' || l_row; - if RSIG2 and CURR_VAL.STATUS is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(WSGL.DomainMeaning(D_STATUS, CURR_VAL.STATUS)), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSIG2 and NBT_VAL.UI_URL is not null then - WSGL.LayoutData(p_text=>replace(wsgl.anchor2(WSGL.EscapeItem(NBT_VAL.UI_URL), '#View#2062#'), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - - WSGL.LayoutRowEnd; - - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - else - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - end if; - - I_TOTAL_ROWS := I_TOTAL_ROWS + I_ROWS_FETCHED; - - end loop; - - WSGL.LayoutClose; - - if I_START = I_TOTAL_ROWS then - htp.p(WSGL.MsgGetText(109,WSGLM.DSP109_RECORD, to_char(I_TOTAL_ROWS))||I_OF_TOTAL_TEXT); - else - htp.p(WSGL.MsgGetText(110,WSGLM.DSP110_RECORDS_N_M, - to_char(I_START), to_char(I_TOTAL_ROWS))|| - I_OF_TOTAL_TEXT); - end if; - htp.para; - else - htp.p(WSGL.MsgGetText(112,WSGLM.DSP112_NO_RECORDS)); - end if; - - if nvl(Z_ACTION, 'X') != 'DONTQUERY' then - dbms_sql.close_cursor(I_CURSOR); - end if; - - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow101$nomi.querylist', cattributes => 'NAME="efnow101$nomi$LForm"'); - SaveState; - WSGL.HiddenField('P_UI_CONTRACT_STATUS', P_UI_CONTRACT_STATUS); - WSGL.HiddenField('P_L_CONT_CONTRACT_NUMBER', P_L_CONT_CONTRACT_NUMBER); - WSGL.HiddenField('P_STATUS', P_STATUS); - WSGL.HiddenField('P_UI_START_DATE_QRY', P_UI_START_DATE_QRY); - WSGL.HiddenField('P_UI_END_DATE_QRY', P_UI_END_DATE_QRY); - WSGL.HiddenField('Z_START', to_char(I_START)); - htp.p (''); - - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', htf.escape_sc(RL_FIRST_BUT_CAPTION), WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_FIRST_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', htf.escape_sc(RL_PREV_BUT_CAPTION), WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_PREV_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', htf.escape_sc(RL_NEXT_BUT_CAPTION), WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_NEXT_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', htf.escape_sc(RL_LAST_BUT_CAPTION), WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_LAST_BUT_ACTION || '\''"'); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(RL_REQUERY_BUT_CAPTION),p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_REQUERY_BUT_ACTION || '\''"'); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(RL_COUNT_BUT_CAPTION),p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_COUNT_BUT_ACTION || '\''"'); - htp.para; - - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(RL_QUERY_BUT_CAPTION),p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_QUERY_BUT_ACTION || '\''"'); - WSGL.HiddenField('Z_CHK', - to_char(WSGL.Checksum(''))); - htp.formClose; - - WSGL.ReturnLinks('0.1', WSGL.MENU_LONG, p_target=>'_top'); - WSGL.NavLinks; - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - RL_BODY_ATTRIBUTES, 'efnow101$nomi.QueryList'); - WSGL.ClosePageBody; - end; --------------------------------------------------------------------------------- --- Name: efnow101$nomi.RestoreState --- --- Description: Restore the data state and optional meta data for the --- 'NOMI' module component (#View Nominations#2405#). --- --- Parameters: --- --------------------------------------------------------------------------------- - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean ) return boolean - is - I_REMAINING_DEPTH integer; - I_CURSOR integer; - I_VOID integer; - I_ROWS_FETCHED integer; - I_FETCH_ERROR boolean := FALSE; - I_SUCCESS boolean := TRUE; - begin - if Z_RESTORE_OWN_ROW then - if ( CURR_VAL.NOMI_ID is null - ) then - return FALSE; - end if; - end if; - - if ( Z_RESTORE_OWN_ROW ) then - - -- Use the CURR_VAL fields for UID to get the other values - - if not BuildSQL( Z_QUERY_BY_KEY => true ) then - return FALSE; - end if; - - OpenZoneSql(I_CURSOR); - I_VOID := dbms_sql.execute(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED = 0 then - I_FETCH_ERROR := TRUE; - else - - AssignZoneRow(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED != 0 then - I_FETCH_ERROR := TRUE; - end if; - - end if; - - dbms_sql.close_cursor(I_CURSOR); - if I_FETCH_ERROR then - return FALSE; - end if; - - end if; - return TRUE; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - '', 'efnow101$nomi.RestoreState'); - raise; - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow101$nomi.SaveState --- --- Description: Saves the data state for the 'NOMI' module component (#View Nominations#2405#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure SaveState - is - begin - - - null; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - '', 'efnow101$nomi.SaveState'); - raise; - end; - - --------------------------------------------------------------------------------- --- Name: efnow101$nomi.GetRef --- --- Description: Returns a handle to the component object --- --- Parameters: --- --------------------------------------------------------------------------------- - function GetRef return WSGOC.COMPONENT_REF - is - begin - return ref_Component; - end; - --------------------------------------------------------------------------------- --- Name: efnow101$nomi.LoadCache --- --- Description: Populate the object cache with --- 'NOMI' module component (#View Nominations#2405#). --- --------------------------------------------------------------------------------- - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF - , Z_BRANCH in WSGOC.BRANCH_REF - ) - is - I_VF_FRAME varchar2(20) := null; - begin - - -- Is cache already loaded - if not WSGOC.Is_Null(ref_Component) then - return; - end if; - - InitialiseDomain('UI_CONTRACT_STATUS'); - InitialiseDomain('STATUS'); - - ref_Component := WSGOC.Component - ( pModule => efnow101$.GetRef - , pBranch => Z_BRANCH - , pContext_For=> Z_CONTEXT_FOR - , pName => 'NOMI' - , pTitle => '#View Nominations#2405#' - , pSystemImagePath=> '/images/' - ); - - r_UI_CONTRACT_STATUS := WSGOC.Item - ( pName => 'UI_CONTRACT_STATUS' - , pPrompt => '#Contract Status#3977#' - ); - r_L_CONT_CONTRACT_NUMBER := WSGOC.Item - ( pName => 'L_CONT_CONTRACT_NUMBER' - , pPrompt => '#Contract Number#2013#' - , pIsContext=> true - ); - r_IDENTIFIER := WSGOC.Item - ( pName => 'IDENTIFIER' - , pPrompt => '#Nomination Identifier#2060#' - , pIsContext=> true - ); - r_UI_START_DATE := WSGOC.Item - ( pName => 'UI_START_DATE' - , pPrompt => '#Start Date#2489#' - , pIsContext=> true - ); - r_UI_END_DATE := WSGOC.Item - ( pName => 'UI_END_DATE' - , pPrompt => '#End Date#2490#' - , pIsContext=> true - ); - r_UI_TIMESTAMP := WSGOC.Item - ( pName => 'UI_TIMESTAMP' - , pPrompt => '#Timestamp#1152#' - , pIsContext=> true - ); - r_STATUS := WSGOC.Item - ( pName => 'STATUS' - , pPrompt => '#Nomination Status#3978#' - , pIsContext=> true - ); - r_UI_URL := WSGOC.Item - ( pName => 'UI_URL' - , pPrompt => '#View#2062#' - , pIsContext=> true - ); - r_UI_START_DATE_DATE := WSGOC.Item - ( pName => 'UI_START_DATE_DATE' - , pPrompt => '' - ); - r_UI_START_DATE_QRY := WSGOC.Item - ( pName => 'UI_START_DATE_QRY' - , pPrompt => '#Start Date#2489#' - ); - r_UI_END_DATE_QRY := WSGOC.Item - ( pName => 'UI_END_DATE_QRY' - , pPrompt => '#End Date#2490#' - ); - r_CONT_ID := WSGOC.Item - ( pName => 'CONT_ID' - , pPrompt => '#Cont Id#2443#' - ); - r_NOMI_ID := WSGOC.Item - ( pName => 'NOMI_ID' - , pPrompt => '#Nomi Id#2481#' - ); - - WSGOC.Add_Items(ref_Component, r_UI_CONTRACT_STATUS); - WSGOC.Add_Items(ref_Component, r_L_CONT_CONTRACT_NUMBER); - WSGOC.Add_Items(ref_Component, r_IDENTIFIER); - WSGOC.Add_Items(ref_Component, r_UI_START_DATE); - WSGOC.Add_Items(ref_Component, r_UI_END_DATE); - WSGOC.Add_Items(ref_Component, r_UI_TIMESTAMP); - WSGOC.Add_Items(ref_Component, r_STATUS); - WSGOC.Add_Items(ref_Component, r_UI_URL); - WSGOC.Add_Items(ref_Component, r_UI_START_DATE_DATE); - WSGOC.Add_Items(ref_Component, r_UI_START_DATE_QRY); - WSGOC.Add_Items(ref_Component, r_UI_END_DATE_QRY); - WSGOC.Add_Items(ref_Component, r_CONT_ID); - WSGOC.Add_Items(ref_Component, r_NOMI_ID); - - - if ( Z_OWN_ROW_VALUES ) then - - -- Set the display value for each item - -- ( As would be displayed on the Record List ) - WSGOC.Set_Value( r_L_CONT_CONTRACT_NUMBER, replace(WSGL.EscapeItem(NBT_VAL.L_CONT_CONTRACT_NUMBER), ' -', '
-') ); - WSGOC.Set_Value( r_IDENTIFIER, replace(WSGL.EscapeItem(CURR_VAL.IDENTIFIER), ' -', '
-') ); - WSGOC.Set_Value( r_UI_START_DATE, replace(WSGL.EscapeItem(NBT_VAL.UI_START_DATE), ' -', '
-') ); - WSGOC.Set_Value( r_UI_END_DATE, replace(WSGL.EscapeItem(NBT_VAL.UI_END_DATE), ' -', '
-') ); - WSGOC.Set_Value( r_UI_TIMESTAMP, replace(WSGL.EscapeItem(NBT_VAL.UI_TIMESTAMP), ' -', '
-') ); - WSGOC.Set_Value( r_STATUS, replace(WSGL.EscapeItem(WSGL.DomainMeaning(D_STATUS, CURR_VAL.STATUS)), ' -', '
-') ); - WSGOC.Set_Value( r_UI_URL, replace(wsgl.anchor2(WSGL.EscapeItem(NBT_VAL.UI_URL), '#View#2062#'), ' -', '
-') ); - WSGOC.Set_Value( r_UI_START_DATE_DATE, WSGL.EscapeItem(ltrim(to_char(NBT_VAL.UI_START_DATE_DATE, 'DD-MON-RRRR'))) ); - WSGOC.Set_Value( r_CONT_ID, WSGL.EscapeItem(CURR_VAL.CONT_ID) ); - WSGOC.Set_Value( r_NOMI_ID, WSGL.EscapeItem(CURR_VAL.NOMI_ID) ); - - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - '', 'efnow101$nomi.LoadCache'); - raise; - end; - - - --------------------------------------------------------------------------------- --- Name: efnow101$nomi.PostQuery --- --- Description: Provides place holder for code to be run after a query --- for the 'NOMI' module component (#View Nominations#2405#). --- --- Parameters: Z_POST_DML Flag indicating if Query after insert or update --- Z_UPDATE_ROW Can be set to mark that row as modified when a --- multirow form is displayed, causing it to be --- updated when the form is submitted. --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#View Nominations#2405#', - DEF_BODY_ATTRIBUTES, 'efnow101$nomi.PostQuery'); - return FALSE; - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$nomi.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$nomi.spc deleted file mode 100644 index 2dbf3f6..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow101$nomi.spc +++ /dev/null @@ -1,104 +0,0 @@ -create or replace package efnow101$nomi is - - type NBT_REC is record - ( UI_CONTRACT_STATUS varchar2(32760) - , L_CONT_CONTRACT_NUMBER CONTRACTS.CONTRACT_NUMBER%type - , UI_START_DATE varchar2(24000) - , UI_END_DATE varchar2(24000) - , UI_TIMESTAMP varchar2(24000) - , UI_URL varchar2(24000) - , UI_START_DATE_DATE date - , UI_START_DATE_QRY date - , UI_END_DATE_QRY date - ); - - NBT_VAL NBT_REC; - CURR_VAL NOMINATIONS%rowtype; - - - procedure Startup( - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null, - Z_FORM in varchar2 default null); - procedure ActionQuery( - P_UI_CONTRACT_STATUS in varchar2 default null, - P_L_CONT_CONTRACT_NUMBER in varchar2 default null, - P_STATUS in varchar2 default null, - P_UI_START_DATE_QRY in varchar2 default null, - P_UI_END_DATE_QRY in varchar2 default null, - Z_DIRECT_CALL in boolean default false, - Z_ACTION in varchar2 default null, - Z_CHK in varchar2 default null ); - - procedure FormQuery( - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null); - - procedure QueryList( - P_UI_CONTRACT_STATUS in varchar2 default null, - P_L_CONT_CONTRACT_NUMBER in varchar2 default null, - P_STATUS in varchar2 default null, - P_UI_START_DATE_QRY in varchar2 default null, - P_UI_END_DATE_QRY in varchar2 default null, - Z_START in varchar2 default null, - Z_ACTION in varchar2 default null, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null ); - function QueryHits( - P_UI_CONTRACT_STATUS in varchar2 default null, - P_L_CONT_CONTRACT_NUMBER in varchar2 default null, - P_STATUS in varchar2 default null, - P_UI_START_DATE_QRY in varchar2 default null, - P_UI_END_DATE_QRY in varchar2 default null) return number; - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean default false - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF default null - , Z_BRANCH in WSGOC.BRANCH_REF default null - ); - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean default true - ) return boolean; - procedure SaveState; - function GetRef return WSGOC.COMPONENT_REF; - - - procedure InitialiseDomain(P_ALIAS in varchar2); - - procedure calendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ); - - procedure format_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ); - - D_UI_CONTRACT_STATUS WSGL.typDVRecord; - D_STATUS WSGL.typDVRecord;FUNCTION FormatDate ( p_date IN VARCHAR2 ) RETURN VARCHAR2; - -FUNCTION FormatDateTime ( p_date IN VARCHAR2 ) RETURN VARCHAR2; - -FUNCTION get_contract_status RETURN VARCHAR2; - -FUNCTION get_end_date RETURN DATE; - -FUNCTION get_latest_cont RETURN contracts.contract_number%TYPE; - -FUNCTION get_start_date RETURN DATE; - - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$.bdy deleted file mode 100644 index 8c0177a..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$.bdy +++ /dev/null @@ -1,232 +0,0 @@ -create or replace package body efnow110$ is - private_ModuleRef WSGOC.MODULE_REF; - - - procedure CreateStartupJavaScript; --------------------------------------------------------------------------------- --- Name: efnow110$.Startup --- --- Description: This procedure is the entry point for the 'efnow110$' --- module. --- --- Parameters: None --- --------------------------------------------------------------------------------- - procedure Startup - is - begin - if not caco_security.security_check('efnow110$') then - return; - end if; - - WSGL.RegisterURL('efnow110$.startup'); - if WSGL.NotLowerCase then - return; - end if; - WSGL.StoreURLLink(0, WSGL.MsgGetText(21,WSGLM.CAP021_TOP_LEVEL)); - efnow110$cust.startup( - Z_DIRECT_CALL => TRUE - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow110$.Startup'); - end; --------------------------------------------------------------------------------- --- Name: efnow110$.firstpage --- --- Description: This procedure creates the first page for the 'efnow110$' --- module. --- --- Parameters: Z_DIRECT_CALL - --- --------------------------------------------------------------------------------- - procedure FirstPage(Z_DIRECT_CALL in boolean - -) is - begin - if not caco_security.security_check('efnow110$') then - return; - end if; - - WSGL.OpenPageHead(''); - WSGL.METATag; - WSGL.ClosePageHead; - WSGL.OpenPageBody(FALSE, p_attributes=>''); - - CreateStartupJavaScript; - - WSGL.DefaultPageCaption('', 1); - htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="SP$AIForm"'); - WSGL.NavLinks(WSGL.MENU_LONG, WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT), 0, 'efnow110$.showabout', '_top', p_output_line=>FALSE); - WSGL.NavLinks; - htp.formClose; - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow110$.FirstPage'); - end; - - --------------------------------------------------------------------------------- --- Name: efnow110$.showabout --- --- Description: This procedure is used to display an 'About' page for the --- 'efnow110$' module. --- --------------------------------------------------------------------------------- - procedure showabout is - l_usr varchar2(255) := null; - begin - if not caco_security.security_check('efnow110$') then - return; - end if; - l_usr := caco_security.get_user; - - WSGL.RegisterURL('efnow110$.showabout'); - if WSGL.NotLowerCase then - return; - end if; - - WSGL.OpenPageHead(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' '); - WSGL.METATag; - TemplateHeader(TRUE,2); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>''); - - htp.p(caco_system.menu); - - WSGL.DefaultPageCaption(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' '); - - htp.para; - htp.p(' -$ Revision: %'); - htp.para; - - htp.para; - - htp.p(WSGL.MsgGetText(108,WSGLM.DSP108_GENERATED_BY, 'PL/SQL Web Generator', '10.1.2.6.18')); - htp.para; - - WSGL.Info(FALSE, 'Nominations', 'EFNOW110', l_usr); - - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow110$.ShowAbout'); - end; --------------------------------------------------------------------------------- --- Name: efnow110$.TemplateHeader --- --- Description: --- --------------------------------------------------------------------------------- - procedure TemplateHeader(Z_DIRECT_CALL in boolean, - Z_TEMPLATE_ID in number) is - begin - if not caco_security.security_check('efnow110$') then - return; - end if; - - if Z_TEMPLATE_ID = 1 then - -- Template defined in \\loordv01\framework\css2\css_content.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 2 then - -- Template defined in \\loordv01\framework\css2\css_about.htm - htp.p(' '); - elsif Z_TEMPLATE_ID = 3 then - -- Template defined in \\loordv01\framework\css2\css_query.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 4 then - -- Template defined in \\loordv01\framework\css2\css_view.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 5 then - -- Template defined in \\loordv01\framework\css2\css_insert.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 6 then - -- Template defined in \\loordv01\framework\css2\css_recordlist.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 7 then - -- Template defined in \\loordv01\framework\css2\css_lov.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 8 then - -- Template defined in \\loordv01\framework\css2\css_text.htm - htp.p(' - -'); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow110$.TemplateHeader'); - end; --------------------------------------------------------------------------------- --- Name: efnow110$.GetRef --- --- Description: Returns a handle to the display data for the --- 'efnow110$' module. --- If the display object does not exist then it creates it first. --- --- Parameters: --- --------------------------------------------------------------------------------- - - function GetRef return WSGOC.MODULE_REF - is - begin - if ( WSGOC.Is_Null(private_ModuleRef)) then - private_ModuleRef := WSGOC.Module - ( pShortName => 'efnow110$' - , pFirstTitle => '' - ); - end if; - return private_ModuleRef; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - '', 'efnow110$.GetRef'); - raise; - end; - - - --------------------------------------------------------------------------------- --- Name: efnow110$.CreateStartupJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateStartupJavaScript is - begin - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "Startup";'); - htp.p(WSGJSL.CloseScript); - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$.spc deleted file mode 100644 index 254ceab..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$.spc +++ /dev/null @@ -1,14 +0,0 @@ -create or replace package efnow110$ is - - procedure Startup -; - procedure FirstPage(Z_DIRECT_CALL in boolean - -); - procedure ShowAbout; - procedure TemplateHeader(Z_DIRECT_CALL in boolean, - Z_TEMPLATE_ID in number); - function GetRef return WSGOC.MODULE_REF; - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$cuin.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$cuin.bdy deleted file mode 100644 index 62298a8..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$cuin.bdy +++ /dev/null @@ -1,2600 +0,0 @@ -create or replace package body efnow110$cuin is -function PCG$LK_INS_CUIN_INTE_FK_Proces( - P_L_INTERMEDIARIES_NAME2 in varchar2, - Z_MODE in varchar2 ) return boolean; - - function L_INTERMEDIARIES_NAME2_LOV( - P_VALUE in varchar2 default null, - P_CTRL in number default 0, - P_MODE in varchar2 default 'Q', - p_select_first in boolean default false, - p_onclick in boolean default false, - p_onchange in boolean default false, - p_onblur in boolean default false, - p_onfocus in boolean default false, - p_onselect in boolean default false, - p_row in number default null) return varchar2; - procedure FormView(Z_FORM_STATUS in number, - Q_CUST_ID in varchar2 default null, - Z_POST_DML in boolean default false, - Z_MULTI_PAGE in boolean default true, - Z_ACTION in varchar2 default null, - Z_START in varchar2 default '1'); - procedure FormDelete; - function BuildSQL( - P_CUST_ID in varchar2 default null, - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean; - procedure OpenZoneSql ( I_CURSOR OUT integer ); - procedure AssignZoneRow( I_CURSOR IN integer ); - - function Validate(Z_MODE in varchar2, Z_FORCE_UPDATE in out boolean) return boolean; - function PreInsert return boolean; - function PostInsert return boolean; - function PreDelete return boolean; - function PostDelete return boolean; - function PreQuery( - P_CUST_ID in varchar2 default null) return boolean; - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean; - - QF_BODY_ATTRIBUTES constant varchar2(500) := ''; - VF_BODY_ATTRIBUTES constant varchar2(500) := ''; - VF_UPDATE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(6,WSGLM.CAP006_VF_UPDATE); - VF_CLEAR_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(8,WSGLM.CAP008_VF_REVERT); - VF_DELETE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(7,WSGLM.CAP007_VF_DELETE); - VF_INSERT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(23,WSGLM.CAP023_NEW); - VF_INSERT_BUT_ACTION constant varchar2(10) := 'INSERT'; - VF_NEXT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(11,WSGLM.CAP011_RL_NEXT); - VF_PREV_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(12,WSGLM.CAP012_RL_PREVIOUS); - VF_FIRST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(13,WSGLM.CAP013_RL_FIRST); - VF_LAST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(14,WSGLM.CAP014_RL_LAST); - VF_COUNT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(15,WSGLM.CAP015_RL_COUNT); - VF_REQUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(16,WSGLM.CAP016_RL_REQUERY); - VF_NTOM_BUT_CAPTION constant varchar2(100) := '%s -> %e'; - VF_QUERY_BUT_ACTION constant varchar2(10) := 'QUERY'; - VF_UPDATE_BUT_ACTION constant varchar2(10) := 'UPDATE'; - VF_CLEAR_BUT_ACTION constant varchar2(10) := 'CLEAR'; - VF_DELETE_BUT_ACTION constant varchar2(10) := 'DELETE'; - VF_NEXT_BUT_ACTION constant varchar2(10) := 'NEXT'; - VF_PREV_BUT_ACTION constant varchar2(10) := 'PREV'; - VF_FIRST_BUT_ACTION constant varchar2(10) := 'FIRST'; - VF_LAST_BUT_ACTION constant varchar2(10) := 'LAST'; - VF_COUNT_BUT_ACTION constant varchar2(10) := 'COUNT'; - VF_REQUERY_BUT_ACTION constant varchar2(10) := 'REQUERY'; - VF_NTOM_BUT_ACTION constant varchar2(10) := 'NTOM'; - VF_VERIFIED_DELETE constant varchar2(100) := 'VerifiedDelete'; - VF_NUMBER_OF_COLUMNS constant number(4) := 2; - VF_RECORD_SET_SIZE constant number(5) := 1; - - VF_TOTAL_COUNT_REQD constant boolean := FALSE; - IF_BODY_ATTRIBUTES constant varchar2(500) := ''; - IF_INSERT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(9,WSGLM.CAP009_IF_INSERT); - IF_CLEAR_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(10,WSGLM.CAP010_IF_CLEAR); - IF_INSERT_BUT_ACTION constant varchar2(10) := 'INSERT'; - IF_CLEAR_BUT_ACTION constant varchar2(10) := 'CLEAR'; - IF_NUMBER_OF_COLUMNS constant number(4) := 2; - RL_BODY_ATTRIBUTES constant varchar2(500) := ''; - RL_NEXT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(11,WSGLM.CAP011_RL_NEXT); - RL_PREV_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(12,WSGLM.CAP012_RL_PREVIOUS); - RL_FIRST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(13,WSGLM.CAP013_RL_FIRST); - RL_LAST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(14,WSGLM.CAP014_RL_LAST); - RL_COUNT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(15,WSGLM.CAP015_RL_COUNT); - RL_REQUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(16,WSGLM.CAP016_RL_REQUERY); - RL_INSERT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(23,WSGLM.CAP023_NEW); - RL_INSERT_BUT_ACTION constant varchar2(10) := 'INSERT'; - RL_NEXT_BUT_ACTION constant varchar2(10) := 'NEXT'; - RL_PREV_BUT_ACTION constant varchar2(10) := 'PREV'; - RL_FIRST_BUT_ACTION constant varchar2(10) := 'FIRST'; - RL_LAST_BUT_ACTION constant varchar2(10) := 'LAST'; - RL_COUNT_BUT_ACTION constant varchar2(10) := 'COUNT'; - RL_REQUERY_BUT_ACTION constant varchar2(10) := 'REQUERY'; - RL_RECORD_SET_SIZE constant number(4) := 10; - RL_TOTAL_COUNT_REQD constant boolean := FALSE; - RL_NUMBER_OF_COLUMNS constant number(4) := 1; - LOV_BODY_ATTRIBUTES constant varchar2(500) := ''; - LOV_FIND_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(17,WSGLM.CAP017_LOV_FIND); - LOV_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP018_LOV_CLOSE); - LOV_FIND_BUT_ACTION constant varchar2(10) := 'FIND'; - LOV_CLOSE_BUT_ACTION constant varchar2(10) := 'CLOSE'; - LOV_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - LOV_FRAME constant varchar2(20) := null; - CAL_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - CAL_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP025_CAL_CLOSE); - CAL_BODY_ATTRIBUTES constant varchar2(500) := ''; - TF_BODY_ATTRIBUTES constant varchar2(500) := ''; - DEF_BODY_ATTRIBUTES constant varchar2(500) := ''; - - CURR_IND CG$CUSTOMER_INTERMEDIARIES.CG$IND_TYPE; - CURR_PK CG$CUSTOMER_INTERMEDIARIES.CG$PK_TYPE; - PREV_VAL CG$CUSTOMER_INTERMEDIARIES.CG$ROW_TYPE; - PREV_IND CG$CUSTOMER_INTERMEDIARIES.CG$IND_TYPE; - NULL_VAL CG$CUSTOMER_INTERMEDIARIES.CG$ROW_TYPE; - NULL_IND CG$CUSTOMER_INTERMEDIARIES.CG$IND_TYPE; - - type FORM_REC is record - (L_INTERMEDIARIES_NAME2 varchar2(600) - ,CUST_ID varchar2(40) - ,INTE_ID varchar2(40) - ,CREATED_BY varchar2(40) - ,CREATED_ON varchar2(12) - ,UPDATED_BY varchar2(40) - ,UPDATED_ON varchar2(12) - ); - FORM_VAL FORM_REC; - - PROCESSING_VIEW boolean := false; - type IF_FORMARRAY is table of FORM_REC index by binary_integer; - IF_FORM_ERRORS IF_FORMARRAY; - IF_ROWS_INSERTED integer := 0; - IF_ROWS_ERROR integer := 0; - VF_ROWS_UPDATED integer := 0; - VF_ROWS_DELETED integer := 0; - VF_ROWS_ERROR integer := 0; - type CTX_REC is record - ( L_INTERMEDIARIES_NAME2 varchar2(600) - ); - type CTX_REC_ARR is table of CTX_REC index by binary_integer; - VF_DELETED_ROWS CTX_REC_ARR; - type ROW_REC is record - ( F_L_INTERMEDIARIES_NAME2 varchar2(600) - , F_CUST_ID varchar2(40) - , F_INTE_ID varchar2(40) - , F_CREATED_BY varchar2(40) - , F_CREATED_ON varchar2(12) - , F_UPDATED_BY varchar2(40) - , F_UPDATED_ON varchar2(12) - , SUCCESS_FLAG boolean - , ROW_DELETED boolean - , ROW_NOT_LOCKED boolean - , ROW_ID rowid - ); - type ROW_SET_TYPE is table of ROW_REC index by binary_integer; - VF_ROW_SET ROW_SET_TYPE; - ZONE_SQL varchar2(32767) := null; - ZONE_CHECKSUM varchar2(10); - - REF_COMPONENT WSGOC.COMPONENT_REF; - R_L_INTERMEDIARIES_NAME2 WSGOC.ITEM_REF; - R_CUST_ID WSGOC.ITEM_REF; - R_INTE_ID WSGOC.ITEM_REF; - R_CREATED_BY WSGOC.ITEM_REF; - R_CREATED_ON WSGOC.ITEM_REF; - R_UPDATED_BY WSGOC.ITEM_REF; - R_UPDATED_ON WSGOC.ITEM_REF; - - - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.L_INTERMEDIARIES_NAME2_LOV --- --- Description: Builds a GUI control to display the values returned by --- LOV 'L_INTERMEDIARIES_NAME2'. --- --- --------------------------------------------------------------------------------- - function L_INTERMEDIARIES_NAME2_LOV( - P_VALUE in varchar2, - P_CTRL in number, - P_MODE in varchar2 default 'Q', - p_select_first in boolean default false, - p_onclick in boolean, - p_onchange in boolean, - p_onblur in boolean, - p_onfocus in boolean, - p_onselect in boolean, - p_row in number) return varchar2 is - - L_RET_VALUE varchar2(32766) := null; - l_events varchar2(1000) := null; - l_valid boolean := false; - l_first boolean := true; - - cursor c1( z_mode in varchar2 - , z_filter in varchar2 - , z_uu in varchar2 - , z_ul in varchar2 - , z_lu in varchar2 - , z_ll in varchar2 - ) - is - SELECT DISTINCT L_INTE.NAME L_INTERMEDIARIES_NAME2, - L_INTE.NAME CG$DISPLAY -FROM INTERMEDIARIES L_INTE -WHERE ( - ( ( Z_MODE='Q') - AND ( /* CG$MDTU_QWC_START CUIN.L_INTE */ - ((EXISTS (SELECT 1 FROM customer_intermediaries cuin1, customers cust1, customer_types cuty WHERE l_inte.inte_id = cuin1.inte_id AND cust1.cust_id = cuin1.cust_id AND cust1.cuty_id = cuty.cuty_id AND cuty.code = caco_utilities.cuty_code_for_user) OR caco_utilities.user_has_system = 'Y') and L_INTE.inte_id <> cout_system_configuration.get_configuration_item('INTE_ID')) - /* CG$MDTU_QWC_END CUIN.L_INTE */ - ) - ) - OR - ( ( NOT Z_MODE='Q') - AND ( /* CG$MDTU_VWC_START CUIN.L_INTE */ - ((EXISTS (SELECT 1 FROM customer_intermediaries cuin1, customers cust1, customer_types cuty WHERE l_inte.inte_id = cuin1.inte_id AND cust1.cust_id = cuin1.cust_id AND cust1.cuty_id = cuty.cuty_id AND cuty.code = caco_utilities.cuty_code_for_user) OR caco_utilities.user_has_system = 'Y') and L_INTE.inte_id <> cout_system_configuration.get_configuration_item('INTE_ID')) - /* CG$MDTU_VWC_END CUIN.L_INTE */ - ) - ) - ) -ORDER BY L_INTE.NAME -; - - l_rownum_txt varchar2(30); - begin - if p_row is not null then - l_rownum_txt := ', ' || to_char(p_row - 1); - end if; - if p_onclick then - l_events := l_events || ' onClick="return L_INTERMEDIARIES_NAME2_OnClick(this'||l_rownum_txt||')"'; - end if; - if p_onchange then - l_events := l_events || ' onChange="return L_INTERMEDIARIES_NAME2_OnChange(this'||l_rownum_txt||')"'; - end if; - if p_onblur then - l_events := l_events || ' onBlur="return L_INTERMEDIARIES_NAME2_OnBlur(this'||l_rownum_txt||')"'; - end if; - if p_onfocus then - l_events := l_events || ' onFocus="return L_INTERMEDIARIES_NAME2_OnFocus(this'||l_rownum_txt||')"'; - end if; - if p_onselect then - l_events := l_events || ' onSelect="return L_INTERMEDIARIES_NAME2_OnSelect(this'||l_rownum_txt||')"'; - end if; - - -- IDs Feature: - if P_CTRL = WSGL.CTL_QUERY and 1 <> 1 then - L_RET_VALUE := htf.formSelectOpen('P_L_INTERMEDIARIES_NAME2', - nsize=>'1', - cattributes=>'MULTIPLE CLASS = cglovlist'||l_events||' ID="'||'P_L_INTERMEDIARIES_NAME2'||'"'); - else - L_RET_VALUE := htf.formSelectOpen('P_L_INTERMEDIARIES_NAME2', - nsize=>'1', - cattributes=>'CLASS = cglovlist'||l_events||' ID="'||'P_L_INTERMEDIARIES_NAME2'||'"'); - end if; - - if P_CTRL = WSGL.CTL_QUERY and p_select_first then - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(' ', 'SELECTED'); - l_first := false; - l_valid := true; - end if; - - for c1rec in c1( P_MODE, '%',null,null,null,null) loop - if ((WSGL.EscapeItem(c1rec.L_INTERMEDIARIES_NAME2) = P_VALUE) or c1rec.L_INTERMEDIARIES_NAME2 = P_VALUE) or (p_select_first and l_first) then - l_valid := true; - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.EscapeItem(c1rec.CG$DISPLAY), 'SELECTED', - cattributes=>'VALUE="'||WSGL.EscapeItem(c1rec.L_INTERMEDIARIES_NAME2)||'"'); - else - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.EscapeItem(c1rec.CG$DISPLAY), null, - cattributes=>'VALUE="'||WSGL.EscapeItem(c1rec.L_INTERMEDIARIES_NAME2)||'"'); - end if; - l_first := false; - end loop; - - if not l_valid then - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.MsgGetText(28,WSGLM.CAP028_INVALID_VAL), 'SELECTED', - 'VALUE="'||WSGL.MsgGetText(28,WSGLM.CAP028_INVALID_VAL)||'"'); - end if; - L_RET_VALUE := L_RET_VALUE || htf.formSelectClose; - - return L_RET_VALUE; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - DEF_BODY_ATTRIBUTES, 'efnow110$cuin.L_INTERMEDIARIES_NAME2_LOV'); - return L_RET_VALUE; - end; --------------------------------------------------------------------------------- --- Name: efnow110$cuin.PCG$LK_INS_CUIN_INTE_FK_Proces --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- -function PCG$LK_INS_CUIN_INTE_FK_Proces( - P_L_INTERMEDIARIES_NAME2 in varchar2, - Z_MODE in varchar2 ) return boolean -is - anyRows boolean := false; - cursor c1 is -SELECT L_INTE.INTE_ID INTE_ID, - L_INTE.NAME L_INTERMEDIARIES_NAME2 -FROM INTERMEDIARIES L_INTE -WHERE ( /* CG$MDTU_VWC_START CUIN.L_INTE */ - ((EXISTS (SELECT 1 FROM customer_intermediaries cuin1, customers cust1, customer_types cuty WHERE l_inte.inte_id = cuin1.inte_id AND cust1.cust_id = cuin1.cust_id AND cust1.cuty_id = cuty.cuty_id AND cuty.code = caco_utilities.cuty_code_for_user) OR caco_utilities.user_has_system = 'Y') and L_INTE.inte_id <> cout_system_configuration.get_configuration_item('INTE_ID')) - /* CG$MDTU_VWC_END CUIN.L_INTE */ - ) AND - - L_INTE.NAME = NBT_VAL.L_INTERMEDIARIES_NAME2 -; -begin - NBT_VAL.L_INTERMEDIARIES_NAME2 := P_L_INTERMEDIARIES_NAME2; - for c1rec in c1 loop - if (not anyRows) then - anyRows := true; - CURR_VAL.INTE_ID := c1rec.INTE_ID; - NBT_VAL.L_INTERMEDIARIES_NAME2 := c1rec.L_INTERMEDIARIES_NAME2; - else - exit; - end if; - end loop; - - if (not anyRows) then - cg$errors.push('Name: '|| - WSGL.MsgGetText(226,WSGLM.MSG226_INVALID_FK), - 'E', 'WSG', SQLCODE, 'efnow110$cuin.PCG$LK_INS_CUIN_INTE_FK_Proces'); - return false; - else - return true; - end if; - -exception - when others then - cg$errors.push(SQLERRM, - 'E', 'WSG', SQLCODE, 'efnow110$cuin.PCG$LK_INS_CUIN_INTE_FK_Proces'); - return FALSE; -end; --------------------------------------------------------------------------------- --- Name: efnow110$cuin.calendar --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - - procedure calendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ) is - - Field_Caption Varchar2 (2000); - - begin - - if Z_FIELD_PROMPT is null then - Field_Caption := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - else - Field_Caption := initcap (replace (Z_FIELD_PROMPT, '_', ' ')); - end if; - - - WSGL.RegisterURL('efnow110$cuin.calendar'); - WSGL.AddURLParam('Z_FIELD_NAME', Z_FIELD_NAME); - WSGL.AddURLParam('Z_CALLER_URL', Z_CALLER_URL); - - if WSGL.NotLowerCase then - return; - end if; - - WSGL.Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow110$cuin', - CAL_CLOSE_BUT_CAPTION, - True, - 'DD-MON-RRRR' - ); - - efnow110$.TemplateHeader(TRUE,7); - - WSGL.Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow110$cuin', - CAL_CLOSE_BUT_CAPTION, - False, - 'DD-MON-RRRR' - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - CAL_BODY_ATTRIBUTES, 'efnow110$cuin.calendar'); - end calendar; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.format_cal_date --- --- Description: Converts the chosen date into the correct format using the format mask assigned --- to the field that the calendar was popped up for --- --------------------------------------------------------------------------------- - -procedure format_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ) is - - Field_Caption Varchar2 (2000) := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - l_day varchar2(15) := day; - -begin - - if l_day = '0' then - l_day := '01'; - end if; - - WSGL.Output_Format_Cal_JS - ( - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - l_day || '-' || month || '-' || year, - Z_FIELD_FORMAT - ); - -end format_cal_date; - - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.Validate --- --- Description: Provides validation of the 'CUIN' module component --- (#Intermediaries#1059#). --- --- Parameters: Z_MODE Ins(ert) or Upd(ate) --- Z_FORCE_UPDATE Set this to TRUE within this event to force --- Pre and Post-Update triggers to fire even if --- no base item values have changed. --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function Validate(Z_MODE in varchar2, Z_FORCE_UPDATE in out boolean) return boolean is - L_ERROR_MESS varchar2(1000); - L_RET_VAL boolean := TRUE; - begin - - - - -- Validation for CG$LK_INS_CUIN_INTE_FK - if Z_MODE = 'INS' then - if PCG$LK_INS_CUIN_INTE_FK_Proces( - P_L_INTERMEDIARIES_NAME2=>FORM_VAL.L_INTERMEDIARIES_NAME2, - Z_MODE=>'D') then - CURR_IND.INTE_ID := TRUE; - null; - else - L_RET_VAL := FALSE; - return L_RET_VAL; - end if; - end if; - - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - VF_BODY_ATTRIBUTES, 'efnow110$cuin.Validate'); - return FALSE; - end; --------------------------------------------------------------------------------- --- Name: efnow110$cuin.Startup --- --- Description: Entry point for the 'CUIN' module --- component (#Intermediaries#1059#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure Startup( - P_CUST_ID in varchar2, - P_2 in varchar2, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2, - Z_FORM in varchar2) is - l_Foundform boolean := FALSE; - l_fs_text varchar2(32767) := '' ; - begin - if not caco_security.security_check('efnow110$cuin') then - return; - end if; - - WSGL.RegisterURL('efnow110$cuin.startup'); - WSGL.AddURLParam('P_CUST_ID', P_CUST_ID); - WSGL.AddURLParam('P_2',P_2); - WSGL.AddURLParam('Z_CHK', Z_CHK); - - - efnow110$cust.CURR_VAL.CUST_ID:= to_number(P_2); - WSGL.StoreURLLink(2, '#Intermediaries#1059#'); - - -- Either no frames are being used or the query form is on a - -- separate page. - if Z_FORM is not null then - null; - -- Work out which form is required, and check if that is possible - if Z_FORM = 'LIST' then - QueryList( - P_CUST_ID=>P_CUST_ID, - Z_DIRECT_CALL=>TRUE); - l_Foundform := TRUE; - end if; - if Z_FORM = 'INSERT' then - FormInsert( - P_CUST_ID=>P_CUST_ID, - Z_DIRECT_CALL=>TRUE); - l_Foundform := TRUE; - end if; - end if; - if l_Foundform = FALSE then - QueryList( - P_CUST_ID=>P_CUST_ID, - Z_DIRECT_CALL=>TRUE); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - DEF_BODY_ATTRIBUTES, 'efnow110$cuin.Startup'); - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.QueryHits --- --- Description: Returns the number or rows which matches the given search --- criteria (if any). --- --- Parameters: --- --------------------------------------------------------------------------------- - function QueryHits( - P_CUST_ID in varchar2) return number is - I_QUERY varchar2(32767) := ''; - I_CURSOR integer; - I_VOID integer; - I_FROM_POS integer := 0; - I_COUNT number(10); - begin - if not caco_security.security_check('efnow110$cuin') then - return -1; - end if; - - if not BuildSQL(P_CUST_ID) then - return -1; - end if; - - if not PreQuery(P_CUST_ID) then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Intermediaries#1059#', DEF_BODY_ATTRIBUTES); - return -1; - end if; - - I_FROM_POS := instr(upper(ZONE_SQL), ' FROM '); - - if I_FROM_POS = 0 then - return -1; - end if; - - I_QUERY := 'SELECT count(*)' || - substr(ZONE_SQL, I_FROM_POS); - - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, I_QUERY, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, I_COUNT); - I_VOID := dbms_sql.execute(I_CURSOR); - I_VOID := dbms_sql.fetch_rows(I_CURSOR); - dbms_sql.column_value(I_CURSOR, 1, I_COUNT); - dbms_sql.close_cursor(I_CURSOR); - - return I_COUNT; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - DEF_BODY_ATTRIBUTES, 'efnow110$cuin.QueryHits'); - return -1; - end; --------------------------------------------------------------------------------- --- Name: efnow110$cuin.BuildSQL --- --- Description: Builds the SQL for the 'CUIN' module component (#Intermediaries#1059#). --- This incorporates all query criteria and Foreign key columns. --- --- Parameters: --- --------------------------------------------------------------------------------- - function BuildSQL( - P_CUST_ID in varchar2, - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean is - - I_WHERE varchar2(32767); - row_idx integer; - begin - - - -- Build up the Where clause - if Z_QUERY_BY_KEY then - I_WHERE := 'WHERE CUST_ID = ' || to_char(CURR_VAL.CUST_ID) || ' AND INTE_ID = ' || to_char(CURR_VAL.INTE_ID) || ' '; - elsif Z_ROW_ID is not null then - I_WHERE := 'WHERE CG$ROW_ID = ''' || rowidtochar( Z_ROW_ID ) || ''''; - elsif Z_BIND_ROW_ID then - I_WHERE := 'WHERE CG$ROW_ID = :b_row_id'; - else - begin - WSGL.BuildWhere(P_CUST_ID, 'CUST_ID', WSGL.TYPE_NUMBER, I_WHERE); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_ERROR_QRY, SQLERRM, - ''||' : '||'#Intermediaries#1059#', DEF_BODY_ATTRIBUTES, NULL, - WSGL.MsgGetText(210,WSGLM.MSG210_INVALID_QRY,'#Cust Id#1065#')); - return false; - end; - - end if; - - ZONE_SQL := 'SELECT L_INTERMEDIARIES_NAME2, - CUST_ID, - INTE_ID, - CREATED_BY, - CREATED_ON, - UPDATED_BY, - UPDATED_ON - FROM ( SELECT L_INTE.NAME L_INTERMEDIARIES_NAME2, - CUIN.CUST_ID CUST_ID, - CUIN.INTE_ID INTE_ID, - CUIN.CREATED_BY CREATED_BY, - CUIN.CREATED_ON CREATED_ON, - CUIN.UPDATED_BY UPDATED_BY, - CUIN.UPDATED_ON UPDATED_ON -FROM CUSTOMER_INTERMEDIARIES CUIN, - INTERMEDIARIES L_INTE -WHERE ( /* CG$MDTU_QWC_START CUIN.L_INTE */ - ((EXISTS (SELECT 1 FROM customer_intermediaries cuin1, customers cust1, customer_types cuty WHERE l_inte.inte_id = cuin1.inte_id AND cust1.cust_id = cuin1.cust_id AND cust1.cuty_id = cuty.cuty_id AND cuty.code = caco_utilities.cuty_code_for_user) OR caco_utilities.user_has_system = ''Y'') and L_INTE.inte_id <> cout_system_configuration.get_configuration_item(''INTE_ID'')) - /* CG$MDTU_QWC_END CUIN.L_INTE */ - ) AND - CUIN.INTE_ID = L_INTE.INTE_ID - ) '; - ZONE_SQL := ZONE_SQL || I_WHERE; - ZONE_SQL := ZONE_SQL || ' ORDER BY 1'; - - return true; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - DEF_BODY_ATTRIBUTES, 'efnow110$cuin.BuildSQL'); - return false; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.OpenZoneSql --- --- Description: Open's the cursor for the zone SQL of --- 'CUIN' module component (#Intermediaries#1059#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure OpenZoneSql - ( I_CURSOR OUT integer - ) - is - begin - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, ZONE_SQL, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, NBT_VAL.L_INTERMEDIARIES_NAME2, 100); - dbms_sql.define_column(I_CURSOR, 2, CURR_VAL.CUST_ID); - dbms_sql.define_column(I_CURSOR, 3, CURR_VAL.INTE_ID); - dbms_sql.define_column(I_CURSOR, 4, CURR_VAL.CREATED_BY); - dbms_sql.define_column(I_CURSOR, 5, CURR_VAL.CREATED_ON); - dbms_sql.define_column(I_CURSOR, 6, CURR_VAL.UPDATED_BY); - dbms_sql.define_column(I_CURSOR, 7, CURR_VAL.UPDATED_ON); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - '', 'efnow110$cuin.OpenZoneSql'); - raise; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.AssignZoneRow --- --- Description: Assign's a row of data and calculates the check sum from the --- zone SQL of 'CUIN' module component (#Intermediaries#1059#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure AssignZoneRow - ( I_CURSOR IN integer - ) - is - begin - dbms_sql.column_value(I_CURSOR, 1, NBT_VAL.L_INTERMEDIARIES_NAME2); - dbms_sql.column_value(I_CURSOR, 2, CURR_VAL.CUST_ID); - dbms_sql.column_value(I_CURSOR, 3, CURR_VAL.INTE_ID); - dbms_sql.column_value(I_CURSOR, 4, CURR_VAL.CREATED_BY); - dbms_sql.column_value(I_CURSOR, 5, CURR_VAL.CREATED_ON); - dbms_sql.column_value(I_CURSOR, 6, CURR_VAL.UPDATED_BY); - dbms_sql.column_value(I_CURSOR, 7, CURR_VAL.UPDATED_ON); - ZONE_CHECKSUM := to_char(WSGL.Checksum - ( '' - || CURR_VAL.CUST_ID - || CURR_VAL.INTE_ID - || to_char(efnow110$cust.CURR_VAL.CUST_ID) - ) ); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - '', 'efnow110$cuin.AssignZoneRow'); - raise; - end; - - - - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.FormView --- --- Description: This procedure builds an HTML form for view/update of fields in --- the 'CUIN' module component (#Intermediaries#1059#). --- --- Parameters: Z_FORM_STATUS Status of the form --- --------------------------------------------------------------------------------- - procedure FormView(Z_FORM_STATUS in number, - Q_CUST_ID in varchar2, - Z_POST_DML in boolean, - Z_MULTI_PAGE in boolean, - Z_ACTION in varchar2, - Z_START in varchar2) is - - I_COUNT integer; - l_row integer := 0; - l_rowset_row integer := null; - l_error varchar2(2000); - l_rows_ret integer; - l_row_deleted boolean := false; - l_row_no_lock boolean := false; - l_total_rows integer := 0; - I_START number(38) := to_number(Z_START); - I_PREV_BUT boolean := false; - I_NEXT_BUT boolean := false; - l_total_text varchar2(200) := ''; - l_ntom_butstr varchar2(2000) := VF_NTOM_BUT_CAPTION; - l_force_upd boolean := false; - l_success boolean := true; - begin - if not caco_security.security_check('efnow110$cuin') then - return; - end if; - - l_success := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => true - ); - if not l_success and Z_FORM_STATUS != WSGL.FORM_STATUS_UPD then - -- No rows returned from the query. Manually raise an exception to handle this and - -- display the correct message. - raise NO_DATA_FOUND; - end if; - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => true - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - - - - WSGL.OpenPageHead(''||' : '||'#Intermediaries#1059#'); - WSGL.METATag; - htp.script('FormType = "Update";'); - efnow110$.TemplateHeader(TRUE,4); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>VF_BODY_ATTRIBUTES || 'onLoad="return CUIN_OnLoad()"'); - - efnow110$js$cuin.CreateViewJavaScript( - VF_ROWS_UPDATED, - VF_ROWS_DELETED, - VF_ROWS_ERROR, - VF_BODY_ATTRIBUTES, - IF_ROWS_INSERTED, - IF_ROWS_ERROR, - RL_REQUERY_BUT_ACTION, - LOV_FRAME - ); - htp.p(caco_system.menu); - - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - - - htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="VF$AIFormTop"'); - htp.formClose; - - - htp.para; - htp.p(htf.header(2,''||WSGL.EscapeItem(NBT_VAL.L_INTERMEDIARIES_NAME2)||'')); - - if Z_FORM_STATUS = WSGL.FORM_STATUS_ERROR then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Intermediaries#1059#', VF_BODY_ATTRIBUTES); - htp.script('DataChangeErrors = true;'); - elsif Z_FORM_STATUS = WSGL.FORM_STATUS_UPD then - WSGL.DisplayMessage(WSGL.MESS_SUCCESS, WSGL.MsgGetText(207, WSGLM.MSG207_ROW_UPDATED), - ''||' : '||'#Intermediaries#1059#', VF_BODY_ATTRIBUTES); - htp.script('DataChange = true;'); - elsif Z_FORM_STATUS = WSGL.FORM_STATUS_INS then - WSGL.DisplayMessage(WSGL.MESS_SUCCESS, WSGL.MsgGetText(208, WSGLM.MSG208_ROW_INSERTED), - ''||' : '||'#Intermediaries#1059#', VF_BODY_ATTRIBUTES); - elsif Z_FORM_STATUS = WSGL.FORM_STATUS_NO_UPD then - htp.p( ''||WSGL.MsgGetText(136,WSGLM.DSP136_NO_ROW_UPDATED)||'
' ); - end if; - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow110$cuin.actionview', cattributes => 'NAME="efnow110$cuin$VForm"'); - SaveState; - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE); - - WSGL.LayoutRowStart; - WSGL.LayoutHeader(40, 'LEFT', htf.bold('Name')); - WSGL.LayoutRowEnd; - if Z_MULTI_PAGE then - if (Z_ACTION = VF_LAST_BUT_ACTION) or (Z_ACTION = VF_LAST_BUT_CAPTION) or - (Z_ACTION = VF_COUNT_BUT_ACTION) or (Z_ACTION = VF_COUNT_BUT_CAPTION) or - (VF_TOTAL_COUNT_REQD) - then - - I_COUNT := QueryHits( - P_CUST_ID=>Q_CUST_ID); - if I_COUNT = -1 then - WSGL.ClosePageBody; - return; - end if; - end if; - - if (Z_ACTION = VF_COUNT_BUT_ACTION) or (Z_ACTION = VF_COUNT_BUT_CAPTION) or (VF_TOTAL_COUNT_REQD) then - l_total_text := ' '||WSGL.MsgGetText(111,WSGLM.DSP111_OF_TOTAL, to_char(I_COUNT)); - end if; - - if Z_START IS NULL or (Z_ACTION = VF_FIRST_BUT_ACTION) or (Z_ACTION = VF_FIRST_BUT_CAPTION) then - I_START := 1; - elsif (Z_ACTION = VF_NEXT_BUT_ACTION) or (Z_ACTION = VF_NEXT_BUT_CAPTION) then - I_START := I_START + VF_RECORD_SET_SIZE; - elsif (Z_ACTION = VF_PREV_BUT_ACTION) or (Z_ACTION = VF_PREV_BUT_CAPTION) then - I_START := I_START - VF_RECORD_SET_SIZE; - elsif (Z_ACTION = VF_LAST_BUT_ACTION) or (Z_ACTION = VF_LAST_BUT_CAPTION) then - I_START := 1 + (floor((I_COUNT-1)/VF_RECORD_SET_SIZE)*VF_RECORD_SET_SIZE); - end if; - - if I_START < 1 then - I_START := 1; - end if; - - I_PREV_BUT := TRUE; - I_NEXT_BUT := FALSE; - if I_START = 1 or Z_ACTION IS NULL then - I_PREV_BUT := FALSE; - end if; - end if; - l_total_rows := 1; - l_row := 1; - while true loop - FORM_VAL.L_INTERMEDIARIES_NAME2 := WSGL.EscapeItem(NBT_VAL.L_INTERMEDIARIES_NAME2); - FORM_VAL.CUST_ID := WSGL.EscapeItem(CURR_VAL.CUST_ID); - FORM_VAL.INTE_ID := WSGL.EscapeItem(CURR_VAL.INTE_ID); - FORM_VAL.CREATED_BY := WSGL.EscapeItem(CURR_VAL.CREATED_BY); - FORM_VAL.CREATED_ON := WSGL.EscapeItem(ltrim(to_char(CURR_VAL.CREATED_ON, 'DD-MON-RRRR'))); - FORM_VAL.UPDATED_BY := WSGL.EscapeItem(CURR_VAL.UPDATED_BY); - FORM_VAL.UPDATED_ON := WSGL.EscapeItem(ltrim(to_char(CURR_VAL.UPDATED_ON, 'DD-MON-RRRR'))); - - l_force_upd := false; - if not PostQuery(Z_POST_DML, l_force_upd) then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Intermediaries#1059#', VF_BODY_ATTRIBUTES); - end if; - if not l_row_deleted then - WSGL.HiddenField('P_CUST_ID', CURR_VAL.CUST_ID); - WSGL.HiddenField('P_INTE_ID', CURR_VAL.INTE_ID); - WSGL.HiddenField('O_CUST_ID', CURR_VAL.CUST_ID); - WSGL.HiddenField('O_INTE_ID', CURR_VAL.INTE_ID); - end if; - WSGL.HiddenField('H_L_INTERMEDIARIES_NAME2', NBT_VAL.L_INTERMEDIARIES_NAME2); - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(FORM_VAL.L_INTERMEDIARIES_NAME2); - WSGL.LayoutRowEnd; - WSGL.LayoutRowEnd; - - - - - if not (l_row_deleted) then - htp.p(WSGJSL.OpenScript); - if l_force_upd then - htp.p('document.write('''');'); - else - htp.p('document.write('''');'); - end if; - htp.p(WSGJSL.CloseScript); - WSGL.HiddenField('O_CREATED_BY', CURR_VAL.CREATED_BY); - WSGL.HiddenField('O_CREATED_ON', to_char(CURR_VAL.CREATED_ON,'JSSSSS')); - WSGL.HiddenField('O_UPDATED_BY', CURR_VAL.UPDATED_BY); - WSGL.HiddenField('O_UPDATED_ON', to_char(CURR_VAL.UPDATED_ON,'JSSSSS')); - - end if; - - exit; - end loop; - WSGL.LayoutClose; - - if l_row < 3 then - WSGL.HiddenField('P_CUST_ID',''); - WSGL.HiddenField('P_INTE_ID',''); - WSGL.HiddenField('O_CREATED_BY', ''); - WSGL.HiddenField('O_CREATED_ON', ''); - WSGL.HiddenField('O_UPDATED_BY', ''); - WSGL.HiddenField('O_UPDATED_ON', ''); - WSGL.HiddenField('H_L_INTERMEDIARIES_NAME2',''); - WSGL.HiddenField('z_modified','dummy_row'); - end if; - - - if l_rows_ret > 0 then - I_NEXT_BUT := true; - end if; - - if l_total_rows = 0 then - htp.p(WSGL.MsgGetText(112, WSGLM.DSP112_NO_RECORDS)); - htp.para; - elsif Z_MULTI_PAGE then - if I_START = l_total_rows or VF_RECORD_SET_SIZE = 1 then - htp.p(WSGL.MsgGetText(109,WSGLM.DSP109_RECORD, to_char(I_START))||l_total_text); - else - if I_NEXT_BUT then - htp.p(WSGL.MsgGetText(110,WSGLM.DSP110_RECORDS_N_M, - to_char(I_START), to_char(l_total_rows - 1))||l_total_text); - else - htp.p(WSGL.MsgGetText(110,WSGLM.DSP110_RECORDS_N_M, - to_char(I_START), to_char(l_total_rows))||l_total_text); - end if; - end if; - htp.para; - end if; - - WSGL.SubmitButton('Z_ACTION', VF_DELETE_BUT_CAPTION, 'btnVFD', 'this.form.Z_ACTION.value=\''' || VF_DELETE_BUT_ACTION || '\'''); - - WSGL.SubmitButton('Z_ACTION', VF_INSERT_BUT_CAPTION, 'btnVFI', 'this.form.Z_ACTION.value=\''' || VF_INSERT_BUT_ACTION || '\'''); - if Z_MULTI_PAGE and VF_ROW_SET.count = 0 then - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', VF_FIRST_BUT_CAPTION, WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="return JSLCheckModified( this.form, \''' || VF_FIRST_BUT_ACTION || '\'', true)"', - p_type_button=>true); - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', VF_PREV_BUT_CAPTION, WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="return JSLCheckModified( this.form, \''' || VF_PREV_BUT_ACTION || '\'', true)"', - p_type_button=>true); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', VF_NEXT_BUT_CAPTION, WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="return JSLCheckModified( this.form, \''' || VF_NEXT_BUT_ACTION || '\'', true)"', - p_type_button=>true); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', VF_LAST_BUT_CAPTION, WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="return JSLCheckModified( this.form, \''' || VF_LAST_BUT_ACTION || '\'', true)"', - p_type_button=>true); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', VF_REQUERY_BUT_CAPTION,p_dojs=>FALSE, - buttonJS => 'onClick="return JSLCheckModified( this.form, \''' || VF_REQUERY_BUT_ACTION || '\'', true)"', - p_type_button=>true); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', VF_COUNT_BUT_CAPTION,p_dojs=>FALSE, - buttonJS => 'onClick="return JSLCheckModified( this.form, \''' || VF_COUNT_BUT_ACTION || '\'', true)"', - p_type_button=>true); - end if; - - WSGL.HiddenField('Z_CHK', - to_char(WSGL.Checksum(''||CURR_VAL.CUST_ID||CURR_VAL.INTE_ID||to_char(efnow110$cust.CURR_VAL.CUST_ID)))); - - WSGL.HiddenField('Q_CUST_ID', Q_CUST_ID); - - WSGL.HiddenField('Z_START', to_char(I_START)); - - htp.formClose; - - - WSGL.ReturnLinks('0.1.2', WSGL.MENU_LONG, p_target=>'_top'); - WSGL.NavLinks; - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when NO_DATA_FOUND then - if Z_FORM_STATUS = WSGL.FORM_STATUS_ERROR or Z_FORM_STATUS = WSGL.FORM_STATUS_OK then - WSGL.DisplayMessage(WSGL.MESS_ERROR, WSGL.MsgGetText(204, WSGLM.MSG204_ROW_DELETED), - ''||' : '||'#Intermediaries#1059#', VF_BODY_ATTRIBUTES); - else - WSGL.DisplayMessage(WSGL.MESS_ERROR, WSGL.MsgGetText(235, WSGLM.MSG235_ROW_REQUERY_FAILURE), - ''||' : '||'#Intermediaries#1059#', VF_BODY_ATTRIBUTES); - end if; - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - VF_BODY_ATTRIBUTES, 'efnow110$cuin.FormView'); - WSGL.ClosePageBody; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.QueryView --- --- Description: Queries the details of a single row in preparation for display. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure QueryView( - K_CUST_ID in varchar2, - K_INTE_ID in varchar2, - P_2 in varchar2, - P_CUST_ID in varchar2, - Z_EXECUTE_QUERY in varchar2, - Z_POST_DML in boolean, - Z_FORM_STATUS in number, - Z_DIRECT_CALL in boolean, - Z_START in varchar2, - Z_ACTION in varchar2, - Z_CHK in varchar2) is - L_ROW_ID ROWID; - begin - if not caco_security.security_check('efnow110$cuin') then - return; - end if; - - - - WSGL.RegisterURL('efnow110$cuin.queryview'); - WSGL.AddURLParam('K_CUST_ID', K_CUST_ID); - WSGL.AddURLParam('K_INTE_ID', K_INTE_ID); - WSGL.AddURLParam('P_2', P_2); - WSGL.AddURLParam('P_CUST_ID', P_CUST_ID); - WSGL.AddURLParam('Z_EXECUTE_QUERY', Z_EXECUTE_QUERY); - WSGL.AddURLParam('Z_START', Z_START); - WSGL.AddURLParam('Z_ACTION', Z_ACTION); - WSGL.AddURLParam('Z_CHK', Z_CHK); - - - if not Z_DIRECT_CALL then - - null; - efnow110$cust.CURR_VAL.CUST_ID:= to_number(P_2); - - end if; - - - - - null; - - - - if K_CUST_ID is not null then - CURR_VAL.CUST_ID := K_CUST_ID; - end if; - if K_INTE_ID is not null then - CURR_VAL.INTE_ID := K_INTE_ID; - end if; - if (Z_ACTION = VF_INSERT_BUT_ACTION) or (Z_ACTION = VF_INSERT_BUT_CAPTION) then - FormInsert( - P_CUST_ID=>P_CUST_ID, - Z_DIRECT_CALL=>TRUE); - return; - end if; - - if Z_EXECUTE_QUERY is null then - if VF_ROW_SET.count = 0 then - if BuildSQL( Z_QUERY_BY_KEY=>true) then - FormView(Z_FORM_STATUS=>Z_FORM_STATUS, - Q_CUST_ID=>P_CUST_ID, - Z_POST_DML=>Z_POST_DML, Z_MULTI_PAGE=>false, Z_ACTION=>Z_ACTION, Z_START=>Z_START); - end if; - else - if BuildSQL( z_bind_row_id=>true ) then - FormView(Z_FORM_STATUS=>Z_FORM_STATUS, - Q_CUST_ID=>P_CUST_ID, - Z_POST_DML=>Z_POST_DML, Z_MULTI_PAGE=>false, Z_ACTION=>Z_ACTION, Z_START=>Z_START); - end if; - end if; - - else - if not PreQuery( - P_CUST_ID=>P_CUST_ID) then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Intermediaries#1059#', VF_BODY_ATTRIBUTES); - return; - end if; - - if BuildSQL - (P_CUST_ID=>P_CUST_ID - ) - then - FormView(Z_FORM_STATUS=>Z_FORM_STATUS, - Q_CUST_ID=>P_CUST_ID, - Z_POST_DML=>Z_POST_DML, Z_MULTI_PAGE=>true, Z_ACTION=>Z_ACTION, Z_START=>Z_START); - end if; - - end if; - - exception - when NO_DATA_FOUND then - WSGL.DisplayMessage(WSGL.MESS_ERROR, WSGL.MsgGetText(204, WSGLM.MSG204_ROW_DELETED), - ''||' : '||'#Intermediaries#1059#', VF_BODY_ATTRIBUTES); - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - VF_BODY_ATTRIBUTES, 'efnow110$cuin.QueryView'); - end; --------------------------------------------------------------------------------- --- Name: efnow110$cuin.QueryViewByKey --- --- Description: Queries the details of a single row in preparation for display. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure QueryViewByKey( - P_CUST_ID in varchar2, - P_INTE_ID in varchar2, - P_2 in varchar2, - Z_POST_DML in boolean, - Z_FORM_STATUS in number, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2) is -begin - if not caco_security.security_check('efnow110$cuin') then - return; - end if; - - QueryView( - K_CUST_ID=>P_CUST_ID, - K_INTE_ID=>P_INTE_ID, - P_2=>P_2, - Z_EXECUTE_QUERY=>null, - Z_POST_DML=>Z_POST_DML, - Z_FORM_STATUS=>Z_FORM_STATUS, - Z_DIRECT_CALL=>Z_DIRECT_CALL, - Z_CHK=>Z_CHK); -end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.FormInsert --- --- Description: This procedure builds an HTML form for insert of data in --- the 'CUIN' module component (#Intermediaries#1059#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure FormInsert( - P_CUST_ID in varchar2, - P_2 in varchar2, - Z_FORM_STATUS in number, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2) - is - l_row integer; - l_error varchar2(2000); - l_error_num integer := IF_ROWS_ERROR; - l_success boolean := true; - begin - if not caco_security.security_check('efnow110$cuin') then - return; - end if; - - if not Z_DIRECT_CALL then - - null; - efnow110$cust.CURR_VAL.CUST_ID:= to_number(P_2); - - end if; - - - WSGL.OpenPageHead(''||' : '||'#Intermediaries#1059#'); - WSGL.METATag; - - efnow110$.TemplateHeader(TRUE,5); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>IF_BODY_ATTRIBUTES || 'onLoad="return CUIN_OnLoad()"'); - efnow110$js$cuin.CreateInsertJavaScript( - IF_ROWS_INSERTED, - IF_ROWS_ERROR, - IF_BODY_ATTRIBUTES, - RL_REQUERY_BUT_ACTION, - LOV_FRAME - ); - l_success := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => false - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - - - htp.p(caco_system.menu); - - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - - if Z_FORM_STATUS = WSGL.FORM_STATUS_OK then - FORM_VAL.L_INTERMEDIARIES_NAME2 := null; - FORM_VAL.CUST_ID := null; - FORM_VAL.INTE_ID := null; - FORM_VAL.CREATED_BY := null; - FORM_VAL.CREATED_ON := null; - FORM_VAL.UPDATED_BY := null; - FORM_VAL.UPDATED_ON := null; - else - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Intermediaries#1059#', IF_BODY_ATTRIBUTES); - end if; - - if IF_ROWS_INSERTED > 0 then - htp.p( ''||WSGL.MsgGetText(130,WSGLM.DSP130_ROWS_INSERTED)||' '||to_char(IF_ROWS_INSERTED)||'
' ); - end if; - if IF_ROWS_ERROR > 0 then - htp.p( ''||WSGL.MsgGetText(131,WSGLM.DSP131_ROWS_NOT_INSERTED)||' '||to_char(IF_ROWS_ERROR)||'
' ); - end if; - htp.p(WSGL.MsgGetText(117, WSGLM.DSP117_ENTER_NEW_ROW, '#Intermediaries#1059#')); - htp.para; - - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow110$cuin.actioninsert', cattributes => 'NAME="efnow110$cuin$IForm"'); - SaveState; - - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE); - WSGL.LayoutRowStart; - WSGL.LayoutHeader(40, 'LEFT', htf.bold('Name')); - WSGL.LayoutRowEnd; - for l_row in 1..IF_ROWS_ERROR + 1 loop - if l_error_num > 0 and cg$errors.pop_head( l_error ) then - WSGL.LayoutTextLine(htf.bold(''||htf.italic(WSGL.MsgGetText(122,WSGLM.DSP122_ERROR))|| ' '||l_error)); - -- FORM_VAL := IF_FORM_ERRORS( l_row ); - FORM_VAL.L_INTERMEDIARIES_NAME2 := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).L_INTERMEDIARIES_NAME2); - FORM_VAL.CUST_ID := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).CUST_ID); - FORM_VAL.INTE_ID := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).INTE_ID); - FORM_VAL.CREATED_BY := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).CREATED_BY); - FORM_VAL.CREATED_ON := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).CREATED_ON); - FORM_VAL.UPDATED_BY := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).UPDATED_BY); - FORM_VAL.UPDATED_ON := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).UPDATED_ON); - - l_error_num := l_error_num - 1; - else - if (l_row = IF_ROWS_ERROR + 1) and (IF_ROWS_ERROR <> 0) then - WSGL.LayoutTextLine(' '); - end if; - end if; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(L_INTERMEDIARIES_NAME2_LOV(FORM_VAL.L_INTERMEDIARIES_NAME2, null, 'D', (FORM_VAL.L_INTERMEDIARIES_NAME2 is null), p_row=>1 -)); - WSGL.LayoutRowEnd; - WSGL.LayoutRowEnd; - WSGL.HiddenField('P_CUST_ID', P_CUST_ID); - WSGL.LayoutRowEnd; - WSGL.LayoutRowEnd; - WSGL.LayoutRowEnd; - WSGL.LayoutRowEnd; - WSGL.LayoutRowEnd; - - WSGL.HiddenField('z_modified','Y'); - end loop; - WSGL.HiddenField( 'z_modified', 'dummy_row' ); - WSGL.LayoutClose; - - WSGL.SubmitButton('Z_ACTION', IF_INSERT_BUT_CAPTION, 'btnIFI', 'this.form.Z_ACTION.value=\''' || IF_INSERT_BUT_ACTION || '\'''); - if Z_FORM_STATUS != WSGL.FORM_STATUS_ERROR then - htp.formReset(IF_CLEAR_BUT_CAPTION, 'ID="'||IF_CLEAR_BUT_CAPTION||'"'); - else - WSGL.SubmitButton('Z_ACTION', IF_CLEAR_BUT_CAPTION, 'btnIFR', 'this.form.Z_ACTION.value=\''' || IF_CLEAR_BUT_ACTION || '\'''); - end if; - - WSGL.HiddenField('Z_CHK', - to_char(WSGL.Checksum(''||P_CUST_ID||to_char(efnow110$cust.CURR_VAL.CUST_ID)))); - WSGL.HiddenField('P_L_INTERMEDIARIES_NAME2', ''); - WSGL.HiddenField('P_CUST_ID', ''); - - htp.formClose; - WSGL.ReturnLinks('0.1.2', WSGL.MENU_LONG, p_target=>'_top'); - WSGL.NavLinks; - - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - IF_BODY_ATTRIBUTES, 'efnow110$cuin.FormInsert'); - WSGL.ClosePageBody; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.FormDelete --- --- Description: Builds a form for confirmation of a delete request in the --- 'CUIN' module component (#Intermediaries#1059#). --- --- Parameters: None --- --------------------------------------------------------------------------------- - procedure FormDelete is - I_CURSOR integer; - I_VOID integer; - l_success boolean := true; - begin - if not caco_security.security_check('efnow110$cuin') then - return; - end if; - - - WSGL.OpenPageHead(''||' : '||'#Intermediaries#1059#'); - WSGL.METATag; - efnow110$.TemplateHeader(TRUE,4); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>VF_BODY_ATTRIBUTES); - - l_success := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => true - ); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => true - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - - - htp.p(caco_system.menu); - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - if not BuildSQL(Z_QUERY_BY_KEY=>true)then - return; - end if; - OpenZoneSql(I_CURSOR); - - I_VOID := dbms_sql.execute(I_CURSOR); - I_VOID := dbms_sql.fetch_rows(I_CURSOR); - AssignZoneRow(I_CURSOR); - dbms_sql.close_cursor(I_CURSOR); - - htp.para; - htp.p(htf.header(2,''||NBT_VAL.L_INTERMEDIARIES_NAME2||'')); - htp.para; - htp.p(WSGL.MsgGetText(118, WSGLM.DSP118_CONFIRM_DELETE)); - - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow110$cuin.actiondelete', cattributes => 'NAME="efnow110$cuin$DForm"'); - SaveState; - WSGL.HiddenField('P_CUST_ID', CURR_VAL.CUST_ID); - WSGL.HiddenField('P_INTE_ID', CURR_VAL.INTE_ID); - WSGL.HiddenField('O_CREATED_BY', PREV_VAL.CREATED_BY); - WSGL.HiddenField('O_CREATED_ON', to_char(PREV_VAL.CREATED_ON,'JSSSSS')); - WSGL.HiddenField('O_UPDATED_BY', PREV_VAL.UPDATED_BY); - WSGL.HiddenField('O_UPDATED_ON', to_char(PREV_VAL.UPDATED_ON,'JSSSSS')); - - htp.p (''); - htp.p (''); - - if WSGL.IsSupported ('NOSCRIPT') - then - - htp.p (''); - - end if; - WSGL.HiddenField('Z_CHK', - to_char(WSGL.Checksum(''||CURR_VAL.CUST_ID||CURR_VAL.INTE_ID||to_char(efnow110$cust.CURR_VAL.CUST_ID)))); - htp.formClose; - - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when NO_DATA_FOUND then - WSGL.DisplayMessage(WSGL.MESS_ERROR,WSGL.MsgGetText(204, WSGLM.MSG204_ROW_DELETED), - ''||' : '||'#Intermediaries#1059#', VF_BODY_ATTRIBUTES); - WSGL.ClosePageBody; - - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - VF_BODY_ATTRIBUTES, 'efnow110$cuin.FormDelete'); - WSGL.ClosePageBody; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.QueryList --- --- Description: This procedure builds the Record list for the 'CUIN' --- module component (#Intermediaries#1059#). --- --- The Record List displays context information for records which --- match the specified query criteria. --- Sets of records are displayed (10 records at a time) --- with Next/Previous buttons to get other record sets. --- --- The first context column will be created as a link to the --- efnow110$cuin.FormView procedure for display of more details --- of that particular row. --- --- Parameters: P_CUST_ID - #Cust Id#1065# --- Z_START - First record to display --- Z_ACTION - Next or Previous set --- --------------------------------------------------------------------------------- - procedure QueryList( - P_CUST_ID in varchar2, - P_2 in varchar2, - Z_START in varchar2, - Z_ACTION in varchar2, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2 ) is - - I_VF_FRAME varchar2(20) := null; - I_WHERE varchar2(2000) := ''; - I_CURSOR integer; - I_VOID integer; - I_ROWS_FETCHED integer := 0; - I_TOTAL_ROWS integer := 0; - I_START number(38) := to_number(Z_START); - I_COUNT number(10) := 0; - I_OF_TOTAL_TEXT varchar2(200) := ''; - I_NEXT_BUT boolean; - I_PREV_BUT boolean; - I_COL_COUNT integer; - I_SUCCESS boolean := true; - l_row integer := 0; - l_id varchar2(35) := null; - -- Reset break group? - RSCUIN boolean := true; - I_LAST_BASE CURR_VAL%TYPE; - I_LAST_NBT NBT_REC; - - - - begin - - if not caco_security.security_check('efnow110$cuin') then - return; - end if; - - - WSGL.RegisterURL('efnow110$cuin.querylist'); - WSGL.AddURLParam('P_CUST_ID', P_CUST_ID); - WSGL.AddURLParam('Z_START', Z_START); - WSGL.AddURLParam('Z_ACTION', Z_ACTION); - WSGL.AddURLParam('Z_CHK', Z_CHK); - if (not Z_DIRECT_CALL) then - - null; - efnow110$cust.CURR_VAL.CUST_ID:= to_number(P_2); - - - end if; - if (Z_ACTION = RL_INSERT_BUT_ACTION) or (Z_ACTION = RL_INSERT_BUT_CAPTION) then - FormInsert( - P_CUST_ID=>P_CUST_ID, - Z_DIRECT_CALL=>TRUE); - return; - end if; - - -- Set up any master context values that may be required - I_SUCCESS := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - - - WSGL.OpenPageHead(''||' : '||'#Intermediaries#1059#'); - WSGL.METATag; - efnow110$.TemplateHeader(TRUE,6); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>RL_BODY_ATTRIBUTES); - efnow110$js$cuin.CreateListJavaScript(RL_BODY_ATTRIBUTES); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => false - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - - - htp.p(caco_system.menu); - - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - if (Z_ACTION = RL_LAST_BUT_ACTION) or (Z_ACTION = RL_LAST_BUT_CAPTION) or - (Z_ACTION = RL_COUNT_BUT_ACTION) or (Z_ACTION = RL_COUNT_BUT_CAPTION) or - (RL_TOTAL_COUNT_REQD) - then - - I_COUNT := QueryHits( - P_CUST_ID); - if I_COUNT = -1 then - WSGL.ClosePageBody; - return; - end if; - end if; - - if (Z_ACTION = RL_COUNT_BUT_ACTION) or (Z_ACTION = RL_COUNT_BUT_CAPTION) or - RL_TOTAL_COUNT_REQD then - I_OF_TOTAL_TEXT := ' '||WSGL.MsgGetText(111,WSGLM.DSP111_OF_TOTAL, to_char(I_COUNT)); - end if; - if Z_START IS NULL or (Z_ACTION = RL_FIRST_BUT_ACTION) or (Z_ACTION = RL_FIRST_BUT_CAPTION) then - I_START := 1; - elsif (Z_ACTION = RL_NEXT_BUT_ACTION) or (Z_ACTION = RL_NEXT_BUT_CAPTION) then - I_START := I_START + RL_RECORD_SET_SIZE; - elsif (Z_ACTION = RL_PREV_BUT_ACTION) or (Z_ACTION = RL_PREV_BUT_CAPTION) then - I_START := I_START - RL_RECORD_SET_SIZE; - elsif (Z_ACTION = RL_LAST_BUT_ACTION) or (Z_ACTION = RL_LAST_BUT_CAPTION) then - I_START := 1 + (floor((I_COUNT-1)/RL_RECORD_SET_SIZE)*RL_RECORD_SET_SIZE); - elsif Z_ACTION is null and I_START = 1 then - null; - elsif Z_ACTION IS NULL then - WSGL.DisplayMessage(WSGL.MESS_ERROR, WSGL.MsgGetText(215,WSGLM.MSG215_NO_MULTIPLE_SUBMITS), - ''||' : '||'#Intermediaries#1059#', RL_BODY_ATTRIBUTES); - WSGL.ClosePageBody; - return; - end if; - - if I_START < 1 then - I_START := 1; - end if; - - I_PREV_BUT := TRUE; - I_NEXT_BUT := FALSE; - if I_START = 1 or Z_ACTION IS NULL then - I_PREV_BUT := FALSE; - end if; - - if nvl(Z_ACTION, 'X') != 'DONTQUERY' then - - if ZONE_SQL IS NULL then - if not BuildSQL( - P_CUST_ID) then - WSGL.ClosePageBody; - return; - end if; - end if; - - if not PreQuery( - P_CUST_ID) then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Intermediaries#1059#', RL_BODY_ATTRIBUTES); - return; - end if; - - - - OpenZoneSql( I_CURSOR ); - I_VOID := dbms_sql.execute(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - else - I_ROWS_FETCHED := 0; - end if; - I_TOTAL_ROWS := I_ROWS_FETCHED; - - if I_ROWS_FETCHED != 0 then - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE, P_BORDER=>TRUE); - - WSGL.LayoutRowStart(p_attrs=>'class = cgrlheaderrow'); - for i in 1..RL_NUMBER_OF_COLUMNS loop - WSGL.LayoutHeader(40, 'LEFT', '','NAME'); - end loop; - WSGL.LayoutRowEnd; - - while I_ROWS_FETCHED <> 0 loop - - if I_TOTAL_ROWS >= I_START then - AssignZoneRow(I_CURSOR); - - if (NBT_VAL.L_INTERMEDIARIES_NAME2 != I_LAST_NBT.L_INTERMEDIARIES_NAME2 or (NBT_VAL.L_INTERMEDIARIES_NAME2 is null and I_LAST_NBT.L_INTERMEDIARIES_NAME2 is not null) or (NBT_VAL.L_INTERMEDIARIES_NAME2 is not null and I_LAST_NBT.L_INTERMEDIARIES_NAME2 is null) ) or - (CURR_VAL.CUST_ID != I_LAST_BASE.CUST_ID or (CURR_VAL.CUST_ID is null and I_LAST_BASE.CUST_ID is not null) or (CURR_VAL.CUST_ID is not null and I_LAST_BASE.CUST_ID is null) ) or - (CURR_VAL.INTE_ID != I_LAST_BASE.INTE_ID or (CURR_VAL.INTE_ID is null and I_LAST_BASE.INTE_ID is not null) or (CURR_VAL.INTE_ID is not null and I_LAST_BASE.INTE_ID is null) ) or - (CURR_VAL.CREATED_BY != I_LAST_BASE.CREATED_BY or (CURR_VAL.CREATED_BY is null and I_LAST_BASE.CREATED_BY is not null) or (CURR_VAL.CREATED_BY is not null and I_LAST_BASE.CREATED_BY is null) ) or - (CURR_VAL.CREATED_ON != I_LAST_BASE.CREATED_ON or (CURR_VAL.CREATED_ON is null and I_LAST_BASE.CREATED_ON is not null) or (CURR_VAL.CREATED_ON is not null and I_LAST_BASE.CREATED_ON is null) ) or - (CURR_VAL.UPDATED_BY != I_LAST_BASE.UPDATED_BY or (CURR_VAL.UPDATED_BY is null and I_LAST_BASE.UPDATED_BY is not null) or (CURR_VAL.UPDATED_BY is not null and I_LAST_BASE.UPDATED_BY is null) ) or - (CURR_VAL.UPDATED_ON != I_LAST_BASE.UPDATED_ON or (CURR_VAL.UPDATED_ON is null and I_LAST_BASE.UPDATED_ON is not null) or (CURR_VAL.UPDATED_ON is not null and I_LAST_BASE.UPDATED_ON is null) ) then - RSCUIN := true; - else - RSCUIN := false; - end if; - - - I_LAST_NBT.L_INTERMEDIARIES_NAME2 := NBT_VAL.L_INTERMEDIARIES_NAME2; - I_LAST_BASE.CUST_ID := CURR_VAL.CUST_ID; - I_LAST_BASE.INTE_ID := CURR_VAL.INTE_ID; - I_LAST_BASE.CREATED_BY := CURR_VAL.CREATED_BY; - I_LAST_BASE.CREATED_ON := CURR_VAL.CREATED_ON; - I_LAST_BASE.UPDATED_BY := CURR_VAL.UPDATED_BY; - I_LAST_BASE.UPDATED_ON := CURR_VAL.UPDATED_ON; - l_row := l_row + 1; - - - WSGL.LayoutRowStart('TOP', p_attrs=>'class = cgrldatarow'); - l_id := 'NAME' || l_row; - if RSCUIN and NBT_VAL.L_INTERMEDIARIES_NAME2 is not null then - WSGL.LayoutData(p_text=>htf.anchor2('efnow110$cuin.QueryViewByKey?P_CUST_ID='||CURR_VAL.CUST_ID||'&P_INTE_ID='||CURR_VAL.INTE_ID||'&P_2='||to_char(efnow110$cust.CURR_VAL.CUST_ID)||'&Z_CHK='||ZONE_CHECKSUM, replace(WSGL.EscapeItem(NBT_VAL.L_INTERMEDIARIES_NAME2), ' -', '
-'), ctarget=>I_VF_FRAME), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - - WSGL.LayoutRowEnd; - - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - if I_TOTAL_ROWS = I_START + RL_RECORD_SET_SIZE - 1 then - if I_ROWS_FETCHED <> 0 then - I_NEXT_BUT := TRUE; - end if; - exit; - end if; - else - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - end if; - - I_TOTAL_ROWS := I_TOTAL_ROWS + I_ROWS_FETCHED; - - end loop; - - WSGL.LayoutClose; - - if I_START = I_TOTAL_ROWS then - htp.p(WSGL.MsgGetText(109,WSGLM.DSP109_RECORD, to_char(I_TOTAL_ROWS))||I_OF_TOTAL_TEXT); - else - htp.p(WSGL.MsgGetText(110,WSGLM.DSP110_RECORDS_N_M, - to_char(I_START), to_char(I_TOTAL_ROWS))|| - I_OF_TOTAL_TEXT); - end if; - htp.para; - else - htp.p(WSGL.MsgGetText(112,WSGLM.DSP112_NO_RECORDS)); - end if; - - if nvl(Z_ACTION, 'X') != 'DONTQUERY' then - dbms_sql.close_cursor(I_CURSOR); - end if; - - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow110$cuin.querylist', cattributes => 'NAME="efnow110$cuin$LForm"'); - SaveState; - WSGL.HiddenField('P_CUST_ID', P_CUST_ID); - WSGL.HiddenField('Z_START', to_char(I_START)); - htp.p (''); - - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', RL_FIRST_BUT_CAPTION, WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_FIRST_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', RL_PREV_BUT_CAPTION, WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_PREV_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', RL_NEXT_BUT_CAPTION, WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_NEXT_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', RL_LAST_BUT_CAPTION, WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_LAST_BUT_ACTION || '\''"'); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', RL_REQUERY_BUT_CAPTION,p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_REQUERY_BUT_ACTION || '\''"'); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', RL_COUNT_BUT_CAPTION,p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_COUNT_BUT_ACTION || '\''"'); - htp.para; - - WSGL.RecordListButton(TRUE, 'Z_ACTION', RL_INSERT_BUT_CAPTION,p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_INSERT_BUT_ACTION || '\''"'); - WSGL.HiddenField('Z_CHK', - to_char(WSGL.Checksum(''||P_CUST_ID||to_char(efnow110$cust.CURR_VAL.CUST_ID)))); - WSGL.HiddenField('P_CUST_ID', ''); - htp.formClose; - - WSGL.ReturnLinks('0.1.2', WSGL.MENU_LONG, p_target=>'_top'); - WSGL.NavLinks; - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - RL_BODY_ATTRIBUTES, 'efnow110$cuin.QueryList'); - WSGL.ClosePageBody; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.QueryFirst --- --- Description: Finds the first row which matches the given search criteria --- (if any), and calls QueryView for that row --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure QueryFirst( - P_CUST_ID in varchar2, - P_2 in varchar2, - Z_ACTION in varchar2, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2) is - - I_CURSOR integer; - I_VOID integer; - I_ROWS_FETCHED integer := 0; - - begin - if not caco_security.security_check('efnow110$cuin') then - return; - end if; - - WSGL.RegisterURL('efnow110$cuin.queryfirst'); - WSGL.AddURLParam('P_CUST_ID', P_CUST_ID); - WSGL.AddURLParam('P_2', P_2); - WSGL.AddURLParam('Z_ACTION', Z_ACTION); - WSGL.AddURLParam('Z_CHK', Z_CHK); - if not Z_DIRECT_CALL then - null; - efnow110$cust.CURR_VAL.CUST_ID:= to_number(P_2); - end if; - - if Z_ACTION = 'BLANK' then - WSGL.EmptyPage(VF_BODY_ATTRIBUTES); - return; - end if; - - if Z_ACTION = 'INSERT' then - efnow110$cuin.FormInsert( - P_CUST_ID=>P_CUST_ID, - Z_DIRECT_CALL=>TRUE); - return; - end if; - - - if not BuildSQL( - P_CUST_ID) then - return; - end if; - - if not PreQuery( - P_CUST_ID) then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Intermediaries#1059#', VF_BODY_ATTRIBUTES); - return; - end if; - - OpenZoneSql( I_CURSOR ); - I_VOID := dbms_sql.execute(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED = 0 then - -- If insert allowed, call form insert, otherwise WSGL.EmptyPage - if Z_ACTION = 'INSERTIFNONE' then - efnow110$cuin.FormInsert( - P_CUST_ID=>P_CUST_ID, - Z_DIRECT_CALL=>TRUE); - return; - else - WSGL.EmptyPage(VF_BODY_ATTRIBUTES); - end if; - else - AssignZoneRow(I_CURSOR); - efnow110$cuin.QueryView(Z_DIRECT_CALL=>TRUE); - end if; - - dbms_sql.close_cursor(I_CURSOR); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - VF_BODY_ATTRIBUTES, 'efnow110$cuin.QueryFirst'); - WSGL.ClosePageBody; - end; --------------------------------------------------------------------------------- --- Name: efnow110$cuin.ActionView --- --- Description: This procedure is called when the View Form is submitted to --- action an update, delete or requery request. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure ActionView( - P_CUST_ID in owa_text.vc_arr, - P_INTE_ID in owa_text.vc_arr, - P_2 in varchar2, - O_CUST_ID in owa_text.vc_arr, - O_INTE_ID in owa_text.vc_arr, - O_CREATED_BY in owa_text.vc_arr, - O_CREATED_ON in owa_text.vc_arr, - O_UPDATED_BY in owa_text.vc_arr, - O_UPDATED_ON in owa_text.vc_arr, - H_L_INTERMEDIARIES_NAME2 in owa_text.vc_arr, - Q_CUST_ID in varchar2, - z_modified in owa_text.vc_arr, - Z_ACTION in varchar2, - Z_START in varchar2, - Z_CHK in varchar2 ) is --- - l_row integer; - l_row_failed boolean := false; - l_success boolean; - l_rowset_row integer := 1; - l_delset_row integer := 1; - l_cbcount integer; - l_do_delete boolean := false; - l_record_lck boolean := false; - l_dummy_bool boolean := false; - - begin - if not caco_security.security_check('efnow110$cuin') then - return; - end if; - - - efnow110$cust.CURR_VAL.CUST_ID:= to_number(P_2); - - l_dummy_bool := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - -if (Z_ACTION = VF_COUNT_BUT_ACTION or Z_ACTION = VF_COUNT_BUT_CAPTION) or - (Z_ACTION = VF_FIRST_BUT_ACTION or Z_ACTION = VF_FIRST_BUT_CAPTION) or - (Z_ACTION = VF_PREV_BUT_ACTION or Z_ACTION = VF_PREV_BUT_CAPTION) or - (Z_ACTION = VF_NEXT_BUT_ACTION or Z_ACTION = VF_NEXT_BUT_CAPTION) or - (Z_ACTION = VF_LAST_BUT_ACTION or Z_ACTION = VF_LAST_BUT_CAPTION) or - (Z_ACTION = VF_REQUERY_BUT_ACTION or Z_ACTION = VF_REQUERY_BUT_CAPTION) or - (Z_ACTION = VF_NTOM_BUT_ACTION or Z_ACTION = VF_NTOM_BUT_CAPTION) then - QueryView(Z_EXECUTE_QUERY=>'Y', - P_CUST_ID=>Q_CUST_ID, - Z_POST_DML=>FALSE, - Z_DIRECT_CALL=>TRUE, - Z_ACTION=>Z_ACTION, - Z_START=>Z_START); -end if; - - - FORM_VAL.CUST_ID := P_CUST_ID( P_CUST_ID.first ); - FORM_VAL.INTE_ID := P_INTE_ID( P_INTE_ID.first ); - FORM_VAL.L_INTERMEDIARIES_NAME2 := H_L_INTERMEDIARIES_NAME2( H_L_INTERMEDIARIES_NAME2.first ); - - PREV_VAL.CUST_ID := P_CUST_ID( P_CUST_ID.first ); - PREV_IND.CUST_ID := TRUE; - PREV_VAL.INTE_ID := P_INTE_ID( P_INTE_ID.first ); - PREV_IND.INTE_ID := TRUE; - PREV_VAL.CREATED_BY := O_CREATED_BY( O_CREATED_BY.first ); - PREV_IND.CREATED_BY := TRUE; - PREV_VAL.CREATED_ON := to_date(O_CREATED_ON( O_CREATED_ON.first ), 'JSSSSS'); - PREV_IND.CREATED_ON := TRUE; - PREV_VAL.UPDATED_BY := O_UPDATED_BY( O_UPDATED_BY.first ); - PREV_IND.UPDATED_BY := TRUE; - PREV_VAL.UPDATED_ON := to_date(O_UPDATED_ON( O_UPDATED_ON.first ), 'JSSSSS'); - PREV_IND.UPDATED_ON := TRUE; - - CURR_VAL := PREV_VAL; - CURR_PK.CUST_ID := CURR_VAL.CUST_ID; - CURR_PK.INTE_ID := CURR_VAL.INTE_ID; - - if (Z_ACTION = VF_CLEAR_BUT_ACTION) or (Z_ACTION = VF_CLEAR_BUT_CAPTION) then - - QueryView(Z_EXECUTE_QUERY=>null, Z_POST_DML=>TRUE, Z_DIRECT_CALL=>TRUE); - - elsif Z_ACTION = VF_VERIFIED_DELETE then - - ActionDelete(Z_DIRECT_CALL=>TRUE); - - elsif (Z_ACTION = VF_DELETE_BUT_ACTION) or (Z_ACTION = VF_DELETE_BUT_CAPTION) then - - FormDelete; - - - elsif (Z_ACTION = VF_INSERT_BUT_ACTION) or (Z_ACTION = VF_INSERT_BUT_CAPTION) then - - FormInsert( - P_CUST_ID=>PREV_VAL.CUST_ID, - Z_DIRECT_CALL=>TRUE); - - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - VF_BODY_ATTRIBUTES, 'efnow110$cuin.ActionView'); - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.ActionInsert --- --- Description: Called when the Insert Form is submitted to process the insert. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure ActionInsert( - P_L_INTERMEDIARIES_NAME2 in owa_text.vc_arr, - P_CUST_ID in varchar2, - P_2 in varchar2, - z_modified in owa_text.vc_arr, - Z_ACTION in varchar2, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2) is - - I_ERROR_MESS varchar2(2000) := null; - l_row integer; - l_row_failed boolean := false; - l_cbcount integer; - l_dummy_bool boolean := false; - - begin - if not caco_security.security_check('efnow110$cuin') then - return; - end if; - - if not Z_DIRECT_CALL then - null; - efnow110$cust.CURR_VAL.CUST_ID:= to_number(P_2); - - l_dummy_bool := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - end if; - if (Z_ACTION = IF_CLEAR_BUT_ACTION) or (Z_ACTION = IF_CLEAR_BUT_CAPTION) then - FormInsert(P_CUST_ID, - Z_FORM_STATUS=>WSGL.FORM_STATUS_OK, - Z_DIRECT_CALL=>TRUE); - return; - end if; - - cg$errors.clear; - l_row := z_modified.first; - while l_row is not null loop - if z_modified( l_row ) = 'Y' then - l_row_failed := false; - CURR_VAL := NULL_VAL; - CURR_IND := NULL_IND; - FORM_VAL.L_INTERMEDIARIES_NAME2 := P_L_INTERMEDIARIES_NAME2( l_row ); - CURR_VAL.CUST_ID := P_CUST_ID; - CURR_IND.CUST_ID := TRUE; - - if not Validate('INS', l_dummy_bool) then - rollback; - FormInsert(P_CUST_ID, - Z_FORM_STATUS=>WSGL.FORM_STATUS_ERROR, - Z_DIRECT_CALL=>TRUE); - return; - end if; - - if not l_row_failed then - if not PreInsert then - rollback; - FormInsert(P_CUST_ID, - Z_FORM_STATUS=>WSGL.FORM_STATUS_ERROR, - Z_DIRECT_CALL=>TRUE); - return; - end if; - end if; - - if not l_row_failed then - begin - CG$CUSTOMER_INTERMEDIARIES.Ins(CURR_VAL, CURR_IND); - exception - when cg$errors.cg$error then - rollback; - FormInsert(P_CUST_ID, - Z_FORM_STATUS=>WSGL.FORM_STATUS_ERROR, - Z_DIRECT_CALL=>TRUE); - return; - when others then - raise; - end; - end if; - - if not l_row_failed then - if not PostInsert then - rollback; - FormInsert(P_CUST_ID, - Z_FORM_STATUS=>WSGL.FORM_STATUS_ERROR, - Z_DIRECT_CALL=>TRUE); - return; - end if; - end if; - - if not l_row_failed then - commit; - IF_ROWS_INSERTED := IF_ROWS_INSERTED + 1; - end if; - end if; - l_row := z_modified.next( l_row ); - end loop; - QueryView( - K_CUST_ID=>CURR_VAL.CUST_ID, - K_INTE_ID=>CURR_VAL.INTE_ID, - P_CUST_ID=>P_CUST_ID, - Z_POST_DML=>TRUE, - Z_FORM_STATUS=>WSGL.FORM_STATUS_INS, - Z_DIRECT_CALL=>TRUE , - Z_CHK=>to_char(WSGL.Checksum - ('' || CURR_VAL.CUST_ID|| CURR_VAL.INTE_ID||to_char(efnow110$cust.CURR_VAL.CUST_ID)))); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - IF_BODY_ATTRIBUTES, 'efnow110$cuin.ActionInsert'); - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.ActionDelete --- --- Description: Called when the Delete confirmation form is submitted to process --- the delete request. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure ActionDelete( - P_2 in varchar2, - P_CUST_ID in varchar2, - P_INTE_ID in varchar2, - O_CREATED_BY in varchar2, - O_CREATED_ON in varchar2, - O_UPDATED_BY in varchar2, - O_UPDATED_ON in varchar2, - Z_ACTION in varchar2, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2) - is - - I_ERROR_MESS varchar2(2000) := null; - I_RETURN number(6); - I_CURSOR integer; - I_VOID integer; - I_SUCCESS boolean := true; - - begin - if not caco_security.security_check('efnow110$cuin') then - return; - end if; - - if ( not Z_DIRECT_CALL ) then - efnow110$cust.CURR_VAL.CUST_ID:= to_number(P_2); - end if; - - if P_CUST_ID is not null then - PREV_VAL.CUST_ID := P_CUST_ID; - PREV_IND.CUST_ID := TRUE; - CURR_PK.CUST_ID := P_CUST_ID; - end if; - if P_INTE_ID is not null then - PREV_VAL.INTE_ID := P_INTE_ID; - PREV_IND.INTE_ID := TRUE; - CURR_PK.INTE_ID := P_INTE_ID; - end if; - if O_CREATED_BY is not null then - PREV_VAL.CREATED_BY := O_CREATED_BY; - PREV_IND.CREATED_BY := TRUE; - end if; - if O_CREATED_ON is not null then - PREV_VAL.CREATED_ON := to_date(O_CREATED_ON, 'JSSSSS'); - PREV_IND.CREATED_ON := TRUE; - end if; - if O_UPDATED_BY is not null then - PREV_VAL.UPDATED_BY := O_UPDATED_BY; - PREV_IND.UPDATED_BY := TRUE; - end if; - if O_UPDATED_ON is not null then - PREV_VAL.UPDATED_ON := to_date(O_UPDATED_ON, 'JSSSSS'); - PREV_IND.UPDATED_ON := TRUE; - end if; - begin - cg$errors.clear; - CG$CUSTOMER_INTERMEDIARIES.Lck(PREV_VAL, PREV_IND); - exception - when cg$errors.cg$error then - QueryView(Z_FORM_STATUS=>WSGL.FORM_STATUS_ERROR, - Z_DIRECT_CALL=>TRUE); - return; - when others then - raise; - end; - - -- Set up the primary key for the component - CURR_VAL.CUST_ID := CURR_PK.CUST_ID; - CURR_VAL.INTE_ID := CURR_PK.INTE_ID; - I_SUCCESS := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 0 - , Z_RESTORE_OWN_ROW => true - ); - - FORM_VAL.L_INTERMEDIARIES_NAME2 := WSGL.EscapeItem(NBT_VAL.L_INTERMEDIARIES_NAME2); - - if not PreDelete then - rollback; - QueryView(Z_FORM_STATUS=>WSGL.FORM_STATUS_ERROR, - Z_DIRECT_CALL=>TRUE); - return; - end if; - - begin - cg$errors.clear; - CG$CUSTOMER_INTERMEDIARIES.Del(CURR_PK); - exception - when cg$errors.cg$error then - QueryView(Z_FORM_STATUS=>WSGL.FORM_STATUS_ERROR, - Z_DIRECT_CALL=>TRUE); - return; - when others then - raise; - end; - - - if not PostDelete then - rollback; - QueryView(Z_FORM_STATUS=>WSGL.FORM_STATUS_ERROR, - Z_DIRECT_CALL=>TRUE); - return; - end if; - - commit; - WSGL.OpenPageHead(''||' : '||'#Intermediaries#1059#'); - WSGL.METATag; - htp.script('FormType = "PostDelete";'); - efnow110$.TemplateHeader(TRUE,4); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>VF_BODY_ATTRIBUTES || 'onLoad="return CUIN_OnLoad()"'); - efnow110$js$cuin.CreateViewJavaScript - ( - VF_ROWS_UPDATED, - VF_ROWS_DELETED, - VF_ROWS_ERROR, - VF_BODY_ATTRIBUTES, - IF_ROWS_INSERTED, - IF_ROWS_ERROR, - RL_REQUERY_BUT_ACTION, - LOV_FRAME - ); - htp.p(caco_system.menu); - htp.para; - WSGL.DefaultPageCaption('#Intermediaries#1059#'); - htp.para; - htp.p(htf.header(2,''||NBT_VAL.L_INTERMEDIARIES_NAME2||'')); - - htp.para; - WSGL.DisplayMessage(WSGL.MESS_SUCCESS, WSGL.MsgGetText(216,WSGLM.MSG216_ROW_DELETED), - ''||' : '||'#Intermediaries#1059#', VF_BODY_ATTRIBUTES); - htp.script('DataChange=true'); - WSGL.ReturnLinks('0.1.2', WSGL.MENU_LONG, p_target=>'_top'); - WSGL.NavLinks; - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - VF_BODY_ATTRIBUTES, 'efnow110$cuin.ActionDelete'); - end; --------------------------------------------------------------------------------- --- Name: efnow110$cuin.RestoreState --- --- Description: Restore the data state and optional meta data for the --- 'CUIN' module component (#Intermediaries#1059#). --- --- Parameters: --- --------------------------------------------------------------------------------- - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean ) return boolean - is - I_REMAINING_DEPTH integer; - I_CURSOR integer; - I_VOID integer; - I_ROWS_FETCHED integer; - I_FETCH_ERROR boolean := FALSE; - I_SUCCESS boolean := TRUE; - begin - if Z_RESTORE_OWN_ROW then - if ( CURR_VAL.CUST_ID is null or CURR_VAL.INTE_ID is null - ) then - return FALSE; - end if; - end if; - - -- Build master context values - I_REMAINING_DEPTH := Z_MAX_DEPTH - Z_CURR_DEPTH; - - -- Always build master's context because of a dependency on it - if ( I_REMAINING_DEPTH < 99 ) then - I_REMAINING_DEPTH := 99; - end if; - I_SUCCESS := efnow110$cust.RestoreState - ( Z_CURR_DEPTH => Z_CURR_DEPTH + 1 - , Z_MAX_DEPTH => Z_CURR_DEPTH + I_REMAINING_DEPTH - , Z_RESTORE_OWN_ROW => true - ); - - if ( Z_RESTORE_OWN_ROW ) then - - -- Use the CURR_VAL fields for UID to get the other values - - if not BuildSQL( Z_QUERY_BY_KEY => true ) then - return FALSE; - end if; - - OpenZoneSql(I_CURSOR); - I_VOID := dbms_sql.execute(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED = 0 then - I_FETCH_ERROR := TRUE; - else - - AssignZoneRow(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED != 0 then - I_FETCH_ERROR := TRUE; - end if; - - end if; - - dbms_sql.close_cursor(I_CURSOR); - if I_FETCH_ERROR then - return FALSE; - end if; - - end if; - return TRUE; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - '', 'efnow110$cuin.RestoreState'); - raise; - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.SaveState --- --- Description: Saves the data state for the 'CUIN' module component (#Intermediaries#1059#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure SaveState - is - begin - - -- Save all master context uids as hidden fields - WSGL.HiddenField( 'P_2', efnow110$cust.CURR_VAL.CUST_ID ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - '', 'efnow110$cuin.SaveState'); - raise; - end; - - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.GetRef --- --- Description: Returns a handle to the component object --- --- Parameters: --- --------------------------------------------------------------------------------- - function GetRef return WSGOC.COMPONENT_REF - is - begin - return ref_Component; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.LoadCache --- --- Description: Populate the object cache with --- 'CUIN' module component (#Intermediaries#1059#). --- --------------------------------------------------------------------------------- - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF - , Z_BRANCH in WSGOC.BRANCH_REF - ) - is - I_VF_FRAME varchar2(20) := null; - begin - - -- Is cache already loaded - if not WSGOC.Is_Null(ref_Component) then - return; - end if; - - - ref_Component := WSGOC.Component - ( pModule => efnow110$.GetRef - , pBranch => Z_BRANCH - , pContext_For=> Z_CONTEXT_FOR - , pName => 'CUIN' - , pTitle => '#Intermediaries#1059#' - , pSystemImagePath=> '/images/' - ); - - r_L_INTERMEDIARIES_NAME2 := WSGOC.Item - ( pName => 'L_INTERMEDIARIES_NAME2' - , pPrompt => 'Name' - , pIsContext=> true - ); - r_CUST_ID := WSGOC.Item - ( pName => 'CUST_ID' - , pPrompt => '#Cust Id#1065#' - ); - r_INTE_ID := WSGOC.Item - ( pName => 'INTE_ID' - , pPrompt => '#Inte Id#1055#' - ); - r_CREATED_BY := WSGOC.Item - ( pName => 'CREATED_BY' - , pPrompt => 'Created By' - ); - r_CREATED_ON := WSGOC.Item - ( pName => 'CREATED_ON' - , pPrompt => 'Created On' - ); - r_UPDATED_BY := WSGOC.Item - ( pName => 'UPDATED_BY' - , pPrompt => 'Updated By' - ); - r_UPDATED_ON := WSGOC.Item - ( pName => 'UPDATED_ON' - , pPrompt => 'Updated On' - ); - - WSGOC.Add_Items(ref_Component, r_L_INTERMEDIARIES_NAME2); - WSGOC.Add_Items(ref_Component, r_CUST_ID); - WSGOC.Add_Items(ref_Component, r_INTE_ID); - WSGOC.Add_Items(ref_Component, r_CREATED_BY); - WSGOC.Add_Items(ref_Component, r_CREATED_ON); - WSGOC.Add_Items(ref_Component, r_UPDATED_BY); - WSGOC.Add_Items(ref_Component, r_UPDATED_ON); - - - if ( Z_OWN_ROW_VALUES ) then - - -- Set the display value for each item - -- ( As would be displayed on the Record List ) - WSGOC.Set_Value( r_L_INTERMEDIARIES_NAME2, htf.anchor2('efnow110$cuin.QueryViewByKey?P_CUST_ID='||CURR_VAL.CUST_ID||'&P_INTE_ID='||CURR_VAL.INTE_ID||'&P_2='||to_char(efnow110$cust.CURR_VAL.CUST_ID)||'&Z_CHK='||ZONE_CHECKSUM, replace(WSGL.EscapeItem(NBT_VAL.L_INTERMEDIARIES_NAME2), ' -', '
-'), ctarget=>I_VF_FRAME) ); - WSGOC.Set_Value( r_CUST_ID, WSGL.EscapeItem(CURR_VAL.CUST_ID) ); - WSGOC.Set_Value( r_INTE_ID, WSGL.EscapeItem(CURR_VAL.INTE_ID) ); - WSGOC.Set_Value( r_CREATED_BY, WSGL.EscapeItem(CURR_VAL.CREATED_BY) ); - WSGOC.Set_Value( r_CREATED_ON, WSGL.EscapeItem(ltrim(to_char(CURR_VAL.CREATED_ON, 'DD-MON-RRRR'))) ); - WSGOC.Set_Value( r_UPDATED_BY, WSGL.EscapeItem(CURR_VAL.UPDATED_BY) ); - WSGOC.Set_Value( r_UPDATED_ON, WSGL.EscapeItem(ltrim(to_char(CURR_VAL.UPDATED_ON, 'DD-MON-RRRR'))) ); - - end if; - - -- Only build master's context if asked to - if ( Z_MAX_DEPTH > Z_CURR_DEPTH ) then - efnow110$cust.LoadCache - ( Z_CURR_DEPTH => Z_CURR_DEPTH + 1 - , Z_MAX_DEPTH => Z_MAX_DEPTH - , Z_OWN_ROW_VALUES => true - , Z_CONTEXT_FOR => REF_COMPONENT - , Z_BRANCH => Z_BRANCH - ); - - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - '', 'efnow110$cuin.LoadCache'); - raise; - end; - - - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.PreQuery --- --- Description: Provides place holder for code to be run prior to a query --- for the 'CUIN' module component (#Intermediaries#1059#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PreQuery( - P_CUST_ID in varchar2) return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - DEF_BODY_ATTRIBUTES, 'efnow110$cuin.PreQuery'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.PostQuery --- --- Description: Provides place holder for code to be run after a query --- for the 'CUIN' module component (#Intermediaries#1059#). --- --- Parameters: Z_POST_DML Flag indicating if Query after insert or update --- Z_UPDATE_ROW Can be set to mark that row as modified when a --- multirow form is displayed, causing it to be --- updated when the form is submitted. --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - DEF_BODY_ATTRIBUTES, 'efnow110$cuin.PostQuery'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.PreInsert --- --- Description: Provides place holder for code to be run prior to an insert --- for the 'CUIN' module component (#Intermediaries#1059#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PreInsert return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - IF_BODY_ATTRIBUTES, 'efnow110$cuin.PreInsert'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.PostInsert --- --- Description: Provides place holder for code to be run after an insert --- for the 'CUIN' module component (#Intermediaries#1059#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PostInsert return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - IF_BODY_ATTRIBUTES, 'efnow110$cuin.PostInsert'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.PreDelete --- --- Description: Provides place holder for code to be run prior to a delete --- for the 'CUIN' module component (#Intermediaries#1059#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PreDelete return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - VF_BODY_ATTRIBUTES, 'efnow110$cuin.PreDelete'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cuin.PostDelete --- --- Description: Provides place holder for code to be run after a delete --- for the 'CUIN' module component (#Intermediaries#1059#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PostDelete return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - VF_BODY_ATTRIBUTES, 'efnow110$cuin.PostDelete'); - return FALSE; - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$cuin.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$cuin.spc deleted file mode 100644 index e6052ea..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$cuin.spc +++ /dev/null @@ -1,133 +0,0 @@ -create or replace package efnow110$cuin is - - type NBT_REC is record - ( L_INTERMEDIARIES_NAME2 INTERMEDIARIES.NAME%type - ); - - NBT_VAL NBT_REC; - CURR_VAL CG$CUSTOMER_INTERMEDIARIES.CG$ROW_TYPE; - - - procedure Startup( - P_CUST_ID in varchar2, - P_2 in varchar2, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null, - Z_FORM in varchar2 default null); - procedure FormInsert( - P_CUST_ID in varchar2 default null, - P_2 in varchar2 default null, - Z_FORM_STATUS in number default WSGL.FORM_STATUS_OK, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null); - - procedure QueryView( - K_CUST_ID in varchar2 default null, - K_INTE_ID in varchar2 default null, - P_2 in varchar2 default null, - P_CUST_ID in varchar2 default null, - Z_EXECUTE_QUERY in varchar2 default null, - Z_POST_DML in boolean default false, - Z_FORM_STATUS in number default WSGL.FORM_STATUS_OK, - Z_DIRECT_CALL in boolean default false, - Z_START in varchar2 default '1', - Z_ACTION in varchar2 default null, - Z_CHK in varchar2 default null); - procedure QueryList( - P_CUST_ID in varchar2 default null, - P_2 in varchar2 default null, - Z_START in varchar2 default null, - Z_ACTION in varchar2 default null, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null ); - procedure QueryFirst( - P_CUST_ID in varchar2 default null, - P_2 in varchar2 default null, - Z_ACTION in varchar2 default null, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null); - function QueryHits( - P_CUST_ID in varchar2 default null) return number; - - procedure ActionView( - P_CUST_ID in owa_text.vc_arr, - P_INTE_ID in owa_text.vc_arr, - P_2 in varchar2 default null, - O_CUST_ID in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_INTE_ID in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_CREATED_BY in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_CREATED_ON in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_UPDATED_BY in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_UPDATED_ON in owa_text.vc_arr default WSGL.EmptyVCArrLong, - H_L_INTERMEDIARIES_NAME2 in owa_text.vc_arr default WSGL.EmptyVCArrLong, - Q_CUST_ID in varchar2 default null, - z_modified in owa_text.vc_arr, - Z_ACTION in varchar2 default null, - Z_START in varchar2 default '1', - Z_CHK in varchar2 default null ); - procedure ActionInsert( - P_L_INTERMEDIARIES_NAME2 in owa_text.vc_arr, - P_CUST_ID in varchar2 default null, - P_2 in varchar2, - z_modified in owa_text.vc_arr, - Z_ACTION in varchar2 default null, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null); - procedure ActionDelete( - P_2 in varchar2 default null, - P_CUST_ID in varchar2 default null, - P_INTE_ID in varchar2 default null, - O_CREATED_BY in varchar2 default null, - O_CREATED_ON in varchar2 default null, - O_UPDATED_BY in varchar2 default null, - O_UPDATED_ON in varchar2 default null, - Z_ACTION in varchar2 default null, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null); - - procedure QueryViewByKey( - P_CUST_ID in varchar2 default null, - P_INTE_ID in varchar2 default null, - P_2 in varchar2 default null, - Z_POST_DML in boolean default false, - Z_FORM_STATUS in number default WSGL.FORM_STATUS_OK, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null); - - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean default false - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF default null - , Z_BRANCH in WSGOC.BRANCH_REF default null - ); - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean default true - ) return boolean; - procedure SaveState; - function GetRef return WSGOC.COMPONENT_REF; - - - - procedure calendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ); - - procedure format_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ); - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$cust.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$cust.bdy deleted file mode 100644 index 8065c57..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$cust.bdy +++ /dev/null @@ -1,4433 +0,0 @@ -create or replace package body efnow110$cust is -function PCG$LK_KAM_SYUS_ID_Process( - P_UI_KAM_MGR_NAME in varchar2, - Z_MODE in varchar2 ) return boolean; -function PCG$LK_CUST_CUTY_FK_Process( - P_CUTY_ID in varchar2, - Z_MODE in varchar2 ) return boolean; - - function EFLV_CUST_NAME1_LOV( - P_VALUE in varchar2 default null, - P_CTRL in number default 0, - P_MODE in varchar2 default 'Q', - p_select_first in boolean default false, - p_onclick in boolean default false, - p_onchange in boolean default false, - p_onblur in boolean default false, - p_onfocus in boolean default false, - p_onselect in boolean default false, - p_row in number default null) return varchar2; - function EFLV_CUST_CODE1_LOV( - P_VALUE in varchar2 default null, - P_CTRL in number default 0, - P_MODE in varchar2 default 'Q', - p_select_first in boolean default false, - p_onclick in boolean default false, - p_onchange in boolean default false, - p_onblur in boolean default false, - p_onfocus in boolean default false, - p_onselect in boolean default false, - p_row in number default null) return varchar2; - procedure FormView(Z_FORM_STATUS in number, - Q_UI_CODE in varchar2 default null, - Q_UI_NAME in varchar2 default null, - Z_POST_DML in boolean default false, - Z_MULTI_PAGE in boolean default true, - Z_ACTION in varchar2 default null, - Z_START in varchar2 default '1'); - function BuildSQL( - P_UI_CODE in varchar2 default null, - P_UI_NAME in varchar2 default null, - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean; - - procedure ActionUpdate (p_row in integer default 0 - ,p_row_success in out boolean - ,p_row_lck in out boolean - ); - procedure OpenZoneSql ( I_CURSOR OUT integer ); - procedure AssignZoneRow( I_CURSOR IN integer ); - - function Validate(Z_MODE in varchar2, Z_FORCE_UPDATE in out boolean) return boolean; - function PreUpdate return boolean; - function PostUpdate return boolean; - function PreInsert return boolean; - function PostInsert return boolean; - function PreQuery( - P_UI_CODE in varchar2 default null, - P_UI_NAME in varchar2 default null) return boolean; - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean; --- define_globals --- --- - -g_ui_code CUSTOMERS.CODE%TYPE; -g_ui_name CUSTOMERS.NAME%TYPE; - - QF_BODY_ATTRIBUTES constant varchar2(500) := ''; - QF_QUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(3,WSGLM.CAP003_QF_FIND); - QF_CLEAR_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(4,WSGLM.CAP004_QF_CLEAR); - QF_INSERT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(23,WSGLM.CAP023_NEW); - QF_INSERT_BUT_ACTION constant varchar2(10) := 'INSERT'; - QF_QUERY_BUT_ACTION constant varchar2(10) := 'QUERY'; - QF_CLEAR_BUT_ACTION constant varchar2(10) := 'CLEAR'; - QF_NUMBER_OF_COLUMNS constant number(4) := 1; - VF_BODY_ATTRIBUTES constant varchar2(500) := ''; - VF_UPDATE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(6,WSGLM.CAP006_VF_UPDATE); - VF_CLEAR_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(8,WSGLM.CAP008_VF_REVERT); - VF_DELETE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(7,WSGLM.CAP007_VF_DELETE); - VF_INSERT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(23,WSGLM.CAP023_NEW); - VF_INSERT_BUT_ACTION constant varchar2(10) := 'INSERT'; - VF_NEXT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(11,WSGLM.CAP011_RL_NEXT); - VF_PREV_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(12,WSGLM.CAP012_RL_PREVIOUS); - VF_FIRST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(13,WSGLM.CAP013_RL_FIRST); - VF_LAST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(14,WSGLM.CAP014_RL_LAST); - VF_COUNT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(15,WSGLM.CAP015_RL_COUNT); - VF_REQUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(16,WSGLM.CAP016_RL_REQUERY); - VF_NTOM_BUT_CAPTION constant varchar2(100) := '%s -> %e'; - VF_QUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(24,WSGLM.CAP024_RL_QUERY); - VF_QUERY_BUT_ACTION constant varchar2(10) := 'QUERY'; - VF_UPDATE_BUT_ACTION constant varchar2(10) := 'UPDATE'; - VF_CLEAR_BUT_ACTION constant varchar2(10) := 'CLEAR'; - VF_DELETE_BUT_ACTION constant varchar2(10) := 'DELETE'; - VF_NEXT_BUT_ACTION constant varchar2(10) := 'NEXT'; - VF_PREV_BUT_ACTION constant varchar2(10) := 'PREV'; - VF_FIRST_BUT_ACTION constant varchar2(10) := 'FIRST'; - VF_LAST_BUT_ACTION constant varchar2(10) := 'LAST'; - VF_COUNT_BUT_ACTION constant varchar2(10) := 'COUNT'; - VF_REQUERY_BUT_ACTION constant varchar2(10) := 'REQUERY'; - VF_NTOM_BUT_ACTION constant varchar2(10) := 'NTOM'; - VF_VERIFIED_DELETE constant varchar2(100) := 'VerifiedDelete'; - VF_NUMBER_OF_COLUMNS constant number(4) := 2; - VF_RECORD_SET_SIZE constant number(5) := 1; - - VF_TOTAL_COUNT_REQD constant boolean := FALSE; - IF_BODY_ATTRIBUTES constant varchar2(500) := ''; - IF_INSERT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(9,WSGLM.CAP009_IF_INSERT); - IF_CLEAR_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(10,WSGLM.CAP010_IF_CLEAR); - IF_INSERT_BUT_ACTION constant varchar2(10) := 'INSERT'; - IF_CLEAR_BUT_ACTION constant varchar2(10) := 'CLEAR'; - IF_NUMBER_OF_COLUMNS constant number(4) := 2; - RL_BODY_ATTRIBUTES constant varchar2(500) := ''; - LOV_BODY_ATTRIBUTES constant varchar2(500) := ''; - LOV_FIND_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(17,WSGLM.CAP017_LOV_FIND); - LOV_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP018_LOV_CLOSE); - LOV_FIND_BUT_ACTION constant varchar2(10) := 'FIND'; - LOV_CLOSE_BUT_ACTION constant varchar2(10) := 'CLOSE'; - LOV_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - LOV_FRAME constant varchar2(20) := null; - CAL_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - CAL_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP025_CAL_CLOSE); - CAL_BODY_ATTRIBUTES constant varchar2(500) := ''; - TF_BODY_ATTRIBUTES constant varchar2(500) := ''; - DEF_BODY_ATTRIBUTES constant varchar2(500) := ''; - - CURR_IND CG$CUSTOMERS.CG$IND_TYPE; - CURR_PK CG$CUSTOMERS.CG$PK_TYPE; - PREV_VAL CG$CUSTOMERS.CG$ROW_TYPE; - PREV_IND CG$CUSTOMERS.CG$IND_TYPE; - NULL_VAL CG$CUSTOMERS.CG$ROW_TYPE; - NULL_IND CG$CUSTOMERS.CG$IND_TYPE; - - type FORM_REC is record - (UI_CODE varchar2(32760) - ,UI_NAME varchar2(32760) - ,CUST_ID varchar2(40) - ,CODE varchar2(120) - ,NAME varchar2(600) - ,PRIMARY_CONTACT varchar2(300) - ,PRIMARY_CONTACT_TEL varchar2(180) - ,CUTY_ID varchar2(50) - ,STATUS varchar2(60) - ,EMAIL_ADDRESS varchar2(480) - ,DESCRIPTION varchar2(32760) - ,TELEPHONE varchar2(180) - ,FAX varchar2(180) - ,KAM_MANAGER varchar2(40) - ,UI_KAM_MGR_NAME varchar2(32760) - ,KAM_TELEPHONE varchar2(180) - ,CREATED_BY varchar2(180) - ,CREATED_ON varchar2(12) - ,UPDATED_BY varchar2(180) - ,UPDATED_ON varchar2(12) - ,PERIOD_START varchar2(12) - ,PERIOD_END varchar2(12) - ); - FORM_VAL FORM_REC; - - PROCESSING_VIEW boolean := false; - type IF_FORMARRAY is table of FORM_REC index by binary_integer; - IF_FORM_ERRORS IF_FORMARRAY; - IF_ROWS_INSERTED integer := 0; - IF_ROWS_ERROR integer := 0; - VF_ROWS_UPDATED integer := 0; - VF_ROWS_DELETED integer := 0; - VF_ROWS_ERROR integer := 0; - type CTX_REC is record - ( NAME varchar2(600) - ); - type CTX_REC_ARR is table of CTX_REC index by binary_integer; - VF_DELETED_ROWS CTX_REC_ARR; - type ROW_REC is record - ( F_UI_CODE varchar2(32760) - , F_UI_NAME varchar2(32760) - , F_CUST_ID varchar2(40) - , F_CODE varchar2(120) - , F_NAME varchar2(600) - , F_PRIMARY_CONTACT varchar2(300) - , F_PRIMARY_CONTACT_TEL varchar2(180) - , F_CUTY_ID varchar2(50) - , F_STATUS varchar2(60) - , F_EMAIL_ADDRESS varchar2(480) - , F_DESCRIPTION varchar2(32760) - , F_TELEPHONE varchar2(180) - , F_FAX varchar2(180) - , F_KAM_MANAGER varchar2(40) - , F_UI_KAM_MGR_NAME varchar2(32760) - , F_KAM_TELEPHONE varchar2(180) - , F_CREATED_BY varchar2(180) - , F_CREATED_ON varchar2(12) - , F_UPDATED_BY varchar2(180) - , F_UPDATED_ON varchar2(12) - , F_PERIOD_START varchar2(12) - , F_PERIOD_END varchar2(12) - , SUCCESS_FLAG boolean - , ROW_DELETED boolean - , ROW_NOT_LOCKED boolean - , ROW_ID rowid - ); - type ROW_SET_TYPE is table of ROW_REC index by binary_integer; - VF_ROW_SET ROW_SET_TYPE; - ZONE_SQL varchar2(32767) := null; - ZONE_CHECKSUM varchar2(10); - - REF_COMPONENT WSGOC.COMPONENT_REF; - R_UI_CODE WSGOC.ITEM_REF; - R_UI_NAME WSGOC.ITEM_REF; - R_CUST_ID WSGOC.ITEM_REF; - R_CODE WSGOC.ITEM_REF; - R_NAME WSGOC.ITEM_REF; - R_PRIMARY_CONTACT WSGOC.ITEM_REF; - R_PRIMARY_CONTACT_TEL WSGOC.ITEM_REF; - R_CUTY_ID WSGOC.ITEM_REF; - R_STATUS WSGOC.ITEM_REF; - R_EMAIL_ADDRESS WSGOC.ITEM_REF; - R_DESCRIPTION WSGOC.ITEM_REF; - R_TELEPHONE WSGOC.ITEM_REF; - R_FAX WSGOC.ITEM_REF; - R_KAM_MANAGER WSGOC.ITEM_REF; - R_UI_KAM_MGR_NAME WSGOC.ITEM_REF; - R_KAM_TELEPHONE WSGOC.ITEM_REF; - R_CREATED_BY WSGOC.ITEM_REF; - R_CREATED_ON WSGOC.ITEM_REF; - R_UPDATED_BY WSGOC.ITEM_REF; - R_UPDATED_ON WSGOC.ITEM_REF; - R_PERIOD_START WSGOC.ITEM_REF; - R_PERIOD_END WSGOC.ITEM_REF; - - -FUNCTION Check_Dates(p_start_date IN DATE, - p_end_date IN DATE) RETURN BOOLEAN; - - -FUNCTION Check_Dates(p_start_date IN DATE, - p_end_date IN DATE) RETURN BOOLEAN IS - --- Check_Dates --- --- - - - - -- - l_ok BOOLEAN; - -- -BEGIN - -- - IF p_start_date <= NVL(p_end_date,p_start_date) THEN - -- - l_ok := TRUE; - -- - ELSE - -- - l_ok := caco_utilities.raise_error(-20515); - -- - END IF; - -- - RETURN (l_ok); - -- -END; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.PostQuery --- --- Description: Provides place holder for code to be run after a query --- for the 'CUST' module component (#Maintain Customer#1058#). --- --- Parameters: Z_POST_DML Flag indicating if Query after insert or update --- Z_UPDATE_ROW Can be set to mark that row as modified when a --- multirow form is displayed, causing it to be --- updated when the form is submitted. --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean is - L_RET_VAL boolean := TRUE; - begin --- PoQ_get_Ind_Sub_time --- --- - -DECLARE - -- - CURSOR c_syus IS - SELECT syus.first_name||' '||syus.last_name - FROM system_users syus - WHERE curr_val.kam_manager_syus_id = syus.syus_id; - -- - --l_sub_time VARCHAR2(255); - l_kam_mgr_name VARCHAR2(255); - -- -BEGIN - -- - OPEN c_syus; - FETCH c_syus INTO l_kam_mgr_name; - CLOSE c_syus; - -- - -- The time ids stored with a ':', SUBSTR around this to present on the screen - -- - - -- - --form_val.ui_dummy := l_sub_time; - --l_sub_time := curr_val.ind_deadline_for_nom_submit; - --htp.p('Time is : '|| l_sub_time); - - -- - nbt_val.ui_kam_mgr_name := l_kam_mgr_name; - form_val.ui_kam_mgr_name := l_kam_mgr_name; - -- - --nbt_val.ui_hours := SUBSTR(l_sub_time,1,2); - --form_val.ui_hours := SUBSTR(l_sub_time,1,2); - -- - --nbt_val.ui_mins := SUBSTR(l_sub_time,4,2); - --form_val.ui_mins := SUBSTR(l_sub_time,4,2); - -- -END; - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - DEF_BODY_ATTRIBUTES, 'efnow110$cust.PostQuery'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.PreInsert --- --- Description: Provides place holder for code to be run prior to an insert --- for the 'CUST' module component (#Maintain Customer#1058#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PreInsert return boolean is - L_RET_VAL boolean := TRUE; - begin --- PrI_set_ind_sub_time --- --- - -DECLARE - -- - C_DATE_FORMAT CONSTANT VARCHAR2(255) := cout_system_configuration.get_configuration_item('G_DATE_FORMAT'); - -- -BEGIN - -- - l_ret_val := Check_dates(TO_DATE(form_val.period_start, C_DATE_FORMAT), - TO_DATE(form_val.period_end, C_DATE_FORMAT)); - -- - --IF l_ret_val THEN - -- - --IF form_val.ui_hours IS NOT NULL THEN - --curr_val.ind_deadline_for_nom_submit := form_val.ui_hours||':'||NVL(form_val.ui_mins,'00'); - --curr_ind.ind_deadline_for_nom_submit := TRUE; - --ELSIF form_val.ui_hours IS NULL THEN - --curr_val.ind_deadline_for_nom_submit := NULL; - --curr_ind.ind_deadline_for_nom_submit := TRUE; - --END IF; - -- - --END IF; -END; - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - IF_BODY_ATTRIBUTES, 'efnow110$cust.PreInsert'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.PreQuery --- --- Description: Provides place holder for code to be run prior to a query --- for the 'CUST' module component (#Maintain Customer#1058#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PreQuery( - P_UI_CODE in varchar2, - P_UI_NAME in varchar2) return boolean is - L_RET_VAL boolean := TRUE; - begin --- PQ_set_globals --- --- - -BEGIN - g_ui_code := P_UI_CODE; - g_ui_name := P_UI_NAME; -END; - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - DEF_BODY_ATTRIBUTES, 'efnow110$cust.PreQuery'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.PreUpdate --- --- Description: Provides place holder for code to be run prior to an update --- for the 'CUST' module component (#Maintain Customer#1058#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PreUpdate return boolean is - L_RET_VAL boolean := TRUE; - begin --- PrU_set_ind_sub_time --- --- - -DECLARE - -- - C_DATE_FORMAT CONSTANT VARCHAR2(255) := cout_system_configuration.get_configuration_item('G_DATE_FORMAT'); - -- -BEGIN - -- - l_ret_val := Check_dates(TO_DATE(form_val.period_start, C_DATE_FORMAT), - TO_DATE(form_val.period_end, C_DATE_FORMAT)); - -- - -- - --IF l_ret_val THEN - -- - --IF form_val.ui_hours IS NOT NULL THEN - --curr_val.ind_deadline_for_nom_submit := form_val.ui_hours||':'||NVL(form_val.ui_mins,'00'); - --curr_ind.ind_deadline_for_nom_submit := TRUE; - --ELSIF form_val.ui_hours IS NULL THEN - --curr_val.ind_deadline_for_nom_submit := NULL; - --curr_ind.ind_deadline_for_nom_submit := TRUE; - --END IF; - -- - --END IF; - -- -END; - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - VF_BODY_ATTRIBUTES, 'efnow110$cust.PreUpdate'); - return FALSE; - end; -FUNCTION get_cust_code RETURN VARCHAR2 IS - --- get_cust_code --- --- - - - -BEGIN - RETURN g_ui_code; -END; -FUNCTION get_cust_name RETURN VARCHAR2 IS - --- get_cust_name --- --- - - - -BEGIN - RETURN g_ui_name; -END; --------------------------------------------------------------------------------- --- Name: efnow110$cust.KAM_SYUS_ID_LOV --- --- Description: This procedure displays the 'KAM_SYUS_ID' LOV --- --------------------------------------------------------------------------------- - procedure KAM_SYUS_ID_LOV( - Z_FILTER in varchar2, - Z_MODE in varchar2, - Z_CALLER_URL in varchar2, - Z_FORMROW in number, - Z_LONG_LIST in varchar2, - Z_ISSUE_WAIT in varchar2) is - L_SEARCH_STRING varchar2(1000); - L_ABORT boolean := FALSE; - L_INVALID_DEPENDENT boolean := FALSE; - L_ANY boolean := FALSE; - L_BODY_ATTRIBUTES VarChar2 (1000) := LOV_BODY_ATTRIBUTES; - L_SUCCESS boolean := TRUE ; - begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - WSGL.RegisterURL('efnow110$cust.KAM_SYUS_ID_LOV'); - WSGL.AddURLParam('Z_FILTER', Z_FILTER); - WSGL.AddURLParam('Z_MODE', Z_MODE); - WSGL.AddURLParam('Z_CALLER_URL', Z_CALLER_URL); - WSGL.AddURLParam('Z_FORMROW', Z_FORMROW); - if WSGL.NotLowerCase then - return; - end if; - - - WSGL.OpenPageHead; - WSGL.METATag; - htp.p(' - - '); - if Z_ISSUE_WAIT is not null then - - htp.p (''); - - L_BODY_ATTRIBUTES := L_BODY_ATTRIBUTES || ' OnLoad="RefreshMe()"'; - - else - if Z_FORMROW = -1 then - htp.p(''); - end if; - - efnow110$.TemplateHeader(TRUE,7); - - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>L_BODY_ATTRIBUTES); - - - htp.p(' - - '); - - if Z_ISSUE_WAIT is not null then - htp.p(WSGL.MsgGetText(127,WSGLM.DSP127_LOV_PLEASE_WAIT)); - WSGL.ClosePageBody; - return; - end if; - htp.formOpen(lower('efnow110$cust.KAM_SYUS_ID_LOV')); - WSGL.HiddenField('Z_CALLER_URL', Z_CALLER_URL); - WSGL.HiddenField('Z_MODE', Z_MODE); - SaveState; - WSGL.HiddenField('Z_FORMROW',Z_FORMROW); - - L_SEARCH_STRING := rtrim(Z_FILTER); - if L_SEARCH_STRING is not null then - if ((instr(Z_FILTER,'%') = 0) and (instr(Z_FILTER,'_') = 0)) then - L_SEARCH_STRING := L_SEARCH_STRING || '%'; - end if; - else - L_SEARCH_STRING := '%'; - end if; - - htp.para; - htp.p(WSGL.MsgGetText(19,WSGLM.CAP019_LOV_FILTER_CAPTION,'KAM Name')); - htp.para; - htp.formText('Z_FILTER', cvalue=>L_SEARCH_STRING); - htp.p(''); - if LOV_FRAME is null then - htp.p(''); - end if; - htp.formClose; - if L_INVALID_DEPENDENT then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - '', LOV_BODY_ATTRIBUTES); - end if; - - if Z_LONG_LIST is not null then - if not L_ABORT and L_SEARCH_STRING is null then - htp.p(WSGL.MsgGetText(124,WSGLM.DSP124_LOV_ENTER_SEARCH)); - L_ABORT := TRUE; - end if; - end if; - - if not L_ABORT then - - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE, TRUE); - - WSGL.LayoutRowStart; - WSGL.LayoutHeader(1, 'LEFT', 'KAM Name'); - WSGL.LayoutHeader(1, 'LEFT', 'First Name'); - WSGL.LayoutHeader(1, 'LEFT', 'Last Name'); - WSGL.LayoutRowEnd; - declare - l_uu varchar2(100); - l_ul varchar2(100); - l_lu varchar2(100); - l_ll varchar2(100); - l_retval number; - cursor c_lov - ( z_mode in varchar2 - , z_filter in varchar2 - , z_uu in varchar2 - , z_ul in varchar2 - , z_lu in varchar2 - , z_ll in varchar2 - ) - is - SELECT SYUS.FIRST_NAME||' '||SYUS.LAST_NAME UI_NAME, - SYUS.FIRST_NAME FIRST_NAME, - SYUS.LAST_NAME LAST_NAME, - SYUS.SYUS_ID SYUS_ID -FROM SYSTEM_USERS SYUS -WHERE /* CG$LOVI_WC_START KAM_SYUS_ID 30 */ - (SYUS.SYUS_ID <> caco_utilities.get_system_user AND SYUS.SYUS_ID IN ( SELECT uspr.syus_id FROM user_profiles uspr, system_profiles sypr WHERE uspr.sypr_id = sypr.sypr_id AND UPPER(sypr.name) like '%KAM%') AND SYUS.SYUS_ID IN (SELECT inus.syus_id FROM intermediary_users inus WHERE inus.inte_id IN (SELECT cbcv.inte_id FROM cust_by_cuty_v cbcv))) - /* CG$LOVI_WC_END KAM_SYUS_ID 30 */ AND - (SYUS.FIRST_NAME||' '||SYUS.LAST_NAME like z_uu||'%' or SYUS.FIRST_NAME||' '||SYUS.LAST_NAME like z_ul||'%' or SYUS.FIRST_NAME||' '||SYUS.LAST_NAME like z_lu||'%' or SYUS.FIRST_NAME||' '||SYUS.LAST_NAME like z_ll||'%') and upper(SYUS.FIRST_NAME||' '||SYUS.LAST_NAME) like upper(z_filter) -ORDER BY UI_NAME -; - begin - l_retval := WSGL.SearchComponents(L_SEARCH_STRING,l_uu,l_ul,l_lu,l_ll); - for c1rec in c_lov(Z_MODE, L_SEARCH_STRING,l_uu,l_ul,l_lu,l_ll) loop - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(''||WSGL.EscapeItem(c1rec.UI_NAME)||''); - WSGL.LayoutData(replace(WSGL.EscapeItem(c1rec.FIRST_NAME),'"','"')); - WSGL.LayoutData(replace(WSGL.EscapeItem(c1rec.LAST_NAME),'"','"')); - WSGL.LayoutRowEnd; - l_any := true; - end loop; - WSGL.LayoutClose; - if not l_any then - htp.p(WSGL.MsgGetText(224,WSGLM.MSG224_LOV_NO_ROWS)); - end if; - end; - end if; - - htp.p(''); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - LOV_BODY_ATTRIBUTES, 'efnow110$cust.KAM_SYUS_ID_LOV'); - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.EFLV_CUST_CODE_LOV --- --- Description: This procedure displays the 'EFLV_CUST_CODE' LOV --- --------------------------------------------------------------------------------- - procedure EFLV_CUST_CODE_LOV( - Z_FILTER in varchar2, - Z_MODE in varchar2, - Z_CALLER_URL in varchar2, - Z_FORMROW in number, - Z_LONG_LIST in varchar2, - Z_ISSUE_WAIT in varchar2) is - L_SEARCH_STRING varchar2(1000); - L_ABORT boolean := FALSE; - L_INVALID_DEPENDENT boolean := FALSE; - L_ANY boolean := FALSE; - L_BODY_ATTRIBUTES VarChar2 (1000) := LOV_BODY_ATTRIBUTES; - L_SUCCESS boolean := TRUE ; - begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - WSGL.RegisterURL('efnow110$cust.EFLV_CUST_CODE_LOV'); - WSGL.AddURLParam('Z_FILTER', Z_FILTER); - WSGL.AddURLParam('Z_MODE', Z_MODE); - WSGL.AddURLParam('Z_CALLER_URL', Z_CALLER_URL); - WSGL.AddURLParam('Z_FORMROW', Z_FORMROW); - if WSGL.NotLowerCase then - return; - end if; - - - WSGL.OpenPageHead; - WSGL.METATag; - htp.p(' - - '); - if Z_ISSUE_WAIT is not null then - - htp.p (''); - - L_BODY_ATTRIBUTES := L_BODY_ATTRIBUTES || ' OnLoad="RefreshMe()"'; - - else - if Z_FORMROW = -1 then - htp.p(''); - end if; - - efnow110$.TemplateHeader(TRUE,7); - - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>L_BODY_ATTRIBUTES); - - - htp.p(' - - '); - - if Z_ISSUE_WAIT is not null then - htp.p(WSGL.MsgGetText(127,WSGLM.DSP127_LOV_PLEASE_WAIT)); - WSGL.ClosePageBody; - return; - end if; - htp.formOpen(lower('efnow110$cust.EFLV_CUST_CODE_LOV')); - WSGL.HiddenField('Z_CALLER_URL', Z_CALLER_URL); - WSGL.HiddenField('Z_MODE', Z_MODE); - SaveState; - WSGL.HiddenField('Z_FORMROW',Z_FORMROW); - - L_SEARCH_STRING := rtrim(Z_FILTER); - if L_SEARCH_STRING is not null then - if ((instr(Z_FILTER,'%') = 0) and (instr(Z_FILTER,'_') = 0)) then - L_SEARCH_STRING := L_SEARCH_STRING || '%'; - end if; - else - L_SEARCH_STRING := '%'; - end if; - - htp.para; - htp.p(WSGL.MsgGetText(19,WSGLM.CAP019_LOV_FILTER_CAPTION,'Code')); - htp.para; - htp.formText('Z_FILTER', cvalue=>L_SEARCH_STRING); - htp.p(''); - if LOV_FRAME is null then - htp.p(''); - end if; - htp.formClose; - if L_INVALID_DEPENDENT then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - '', LOV_BODY_ATTRIBUTES); - end if; - - if Z_LONG_LIST is not null then - if not L_ABORT and L_SEARCH_STRING is null then - htp.p(WSGL.MsgGetText(124,WSGLM.DSP124_LOV_ENTER_SEARCH)); - L_ABORT := TRUE; - end if; - end if; - - if not L_ABORT then - - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE, TRUE); - - WSGL.LayoutRowStart; - WSGL.LayoutHeader(1, 'LEFT', 'Code'); - WSGL.LayoutHeader(1, 'LEFT', 'Name'); - WSGL.LayoutRowEnd; - declare - l_uu varchar2(100); - l_ul varchar2(100); - l_lu varchar2(100); - l_ll varchar2(100); - l_retval number; - cursor c_lov - ( z_mode in varchar2 - , z_filter in varchar2 - , z_uu in varchar2 - , z_ul in varchar2 - , z_lu in varchar2 - , z_ll in varchar2 - ) - is - SELECT CUST.CODE CODE, - CUST.NAME NAME -FROM CUSTOMERS CUST -WHERE ( - ( ( Z_MODE='Q') - AND ( /* CG$MDTU_QWC_START EFLV_CUST_CODE.CUST */ - ((CUST.cuty_id = caco_utilities.cuty_id_for_user OR caco_utilities.user_has_system = 'Y')) - /* CG$MDTU_QWC_END EFLV_CUST_CODE.CUST */ - ) - ) - OR - ( ( NOT Z_MODE='Q') - AND ( /* CG$MDTU_VWC_START EFLV_CUST_CODE.CUST */ - ((CUST.cuty_id = caco_utilities.cuty_id_for_user OR caco_utilities.user_has_system = 'Y')) - /* CG$MDTU_VWC_END EFLV_CUST_CODE.CUST */ - ) - ) - ) AND - /* CG$LOVI_WC_START EFLV_CUST_CODE 50 */ - (CUST.cust_id <> cout_system_configuration.get_configuration_item('CUST_ID')) - /* CG$LOVI_WC_END EFLV_CUST_CODE 50 */ AND - (CUST.CODE like z_uu||'%' or CUST.CODE like z_ul||'%' or CUST.CODE like z_lu||'%' or CUST.CODE like z_ll||'%') and upper(CUST.CODE) like upper(z_filter) -ORDER BY CODE -; - begin - l_retval := WSGL.SearchComponents(L_SEARCH_STRING,l_uu,l_ul,l_lu,l_ll); - for c1rec in c_lov(Z_MODE, L_SEARCH_STRING,l_uu,l_ul,l_lu,l_ll) loop - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(''||WSGL.EscapeItem(c1rec.CODE)||''); - WSGL.LayoutData(replace(WSGL.EscapeItem(c1rec.NAME),'"','"')); - WSGL.LayoutRowEnd; - l_any := true; - end loop; - WSGL.LayoutClose; - if not l_any then - htp.p(WSGL.MsgGetText(224,WSGLM.MSG224_LOV_NO_ROWS)); - end if; - end; - end if; - - htp.p(''); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - LOV_BODY_ATTRIBUTES, 'efnow110$cust.EFLV_CUST_CODE_LOV'); - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.EFLV_CUST_NAME_LOV --- --- Description: This procedure displays the 'EFLV_CUST_NAME' LOV --- --------------------------------------------------------------------------------- - procedure EFLV_CUST_NAME_LOV( - Z_FILTER in varchar2, - Z_MODE in varchar2, - Z_CALLER_URL in varchar2, - Z_FORMROW in number, - Z_LONG_LIST in varchar2, - Z_ISSUE_WAIT in varchar2) is - L_SEARCH_STRING varchar2(1000); - L_ABORT boolean := FALSE; - L_INVALID_DEPENDENT boolean := FALSE; - L_ANY boolean := FALSE; - L_BODY_ATTRIBUTES VarChar2 (1000) := LOV_BODY_ATTRIBUTES; - L_SUCCESS boolean := TRUE ; - begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - WSGL.RegisterURL('efnow110$cust.EFLV_CUST_NAME_LOV'); - WSGL.AddURLParam('Z_FILTER', Z_FILTER); - WSGL.AddURLParam('Z_MODE', Z_MODE); - WSGL.AddURLParam('Z_CALLER_URL', Z_CALLER_URL); - WSGL.AddURLParam('Z_FORMROW', Z_FORMROW); - if WSGL.NotLowerCase then - return; - end if; - - - WSGL.OpenPageHead; - WSGL.METATag; - htp.p(' - - '); - if Z_ISSUE_WAIT is not null then - - htp.p (''); - - L_BODY_ATTRIBUTES := L_BODY_ATTRIBUTES || ' OnLoad="RefreshMe()"'; - - else - if Z_FORMROW = -1 then - htp.p(''); - end if; - - efnow110$.TemplateHeader(TRUE,7); - - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>L_BODY_ATTRIBUTES); - - - htp.p(' - - '); - - if Z_ISSUE_WAIT is not null then - htp.p(WSGL.MsgGetText(127,WSGLM.DSP127_LOV_PLEASE_WAIT)); - WSGL.ClosePageBody; - return; - end if; - htp.formOpen(lower('efnow110$cust.EFLV_CUST_NAME_LOV')); - WSGL.HiddenField('Z_CALLER_URL', Z_CALLER_URL); - WSGL.HiddenField('Z_MODE', Z_MODE); - SaveState; - WSGL.HiddenField('Z_FORMROW',Z_FORMROW); - - L_SEARCH_STRING := rtrim(Z_FILTER); - if L_SEARCH_STRING is not null then - if ((instr(Z_FILTER,'%') = 0) and (instr(Z_FILTER,'_') = 0)) then - L_SEARCH_STRING := L_SEARCH_STRING || '%'; - end if; - else - L_SEARCH_STRING := '%'; - end if; - - htp.para; - htp.p(WSGL.MsgGetText(19,WSGLM.CAP019_LOV_FILTER_CAPTION,'Name')); - htp.para; - htp.formText('Z_FILTER', cvalue=>L_SEARCH_STRING); - htp.p(''); - if LOV_FRAME is null then - htp.p(''); - end if; - htp.formClose; - if L_INVALID_DEPENDENT then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - '', LOV_BODY_ATTRIBUTES); - end if; - - if Z_LONG_LIST is not null then - if not L_ABORT and L_SEARCH_STRING is null then - htp.p(WSGL.MsgGetText(124,WSGLM.DSP124_LOV_ENTER_SEARCH)); - L_ABORT := TRUE; - end if; - end if; - - if not L_ABORT then - - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE, TRUE); - - WSGL.LayoutRowStart; - WSGL.LayoutHeader(1, 'LEFT', 'Name'); - WSGL.LayoutHeader(1, 'LEFT', 'Code'); - WSGL.LayoutRowEnd; - declare - l_uu varchar2(100); - l_ul varchar2(100); - l_lu varchar2(100); - l_ll varchar2(100); - l_retval number; - cursor c_lov - ( z_mode in varchar2 - , z_filter in varchar2 - , z_uu in varchar2 - , z_ul in varchar2 - , z_lu in varchar2 - , z_ll in varchar2 - ) - is - SELECT CUST.NAME NAME, - CUST.CODE CODE -FROM CUSTOMERS CUST -WHERE ( - ( ( Z_MODE='Q') - AND ( /* CG$MDTU_QWC_START EFLV_CUST_NAME.CUST */ - ((CUST.cuty_id = caco_utilities.cuty_id_for_user OR caco_utilities.user_has_system = 'Y')) - /* CG$MDTU_QWC_END EFLV_CUST_NAME.CUST */ - ) - ) - OR - ( ( NOT Z_MODE='Q') - AND ( /* CG$MDTU_VWC_START EFLV_CUST_NAME.CUST */ - ((efnow110$cust.CURR_VAL.CUTY_ID = caco_utilities.cuty_id_for_user OR caco_utilities.user_has_system = 'Y')) - /* CG$MDTU_VWC_END EFLV_CUST_NAME.CUST */ - ) - ) - ) AND - /* CG$LOVI_WC_START EFLV_CUST_NAME 40 */ - (CUST.cust_id <> cout_system_configuration.get_configuration_item('CUST_ID')) - /* CG$LOVI_WC_END EFLV_CUST_NAME 40 */ AND - (CUST.NAME like z_uu||'%' or CUST.NAME like z_ul||'%' or CUST.NAME like z_lu||'%' or CUST.NAME like z_ll||'%') and upper(CUST.NAME) like upper(z_filter) -ORDER BY NAME -; - begin - l_retval := WSGL.SearchComponents(L_SEARCH_STRING,l_uu,l_ul,l_lu,l_ll); - for c1rec in c_lov(Z_MODE, L_SEARCH_STRING,l_uu,l_ul,l_lu,l_ll) loop - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(''||WSGL.EscapeItem(c1rec.NAME)||''); - WSGL.LayoutData(replace(WSGL.EscapeItem(c1rec.CODE),'"','"')); - WSGL.LayoutRowEnd; - l_any := true; - end loop; - WSGL.LayoutClose; - if not l_any then - htp.p(WSGL.MsgGetText(224,WSGLM.MSG224_LOV_NO_ROWS)); - end if; - end; - end if; - - htp.p(''); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - LOV_BODY_ATTRIBUTES, 'efnow110$cust.EFLV_CUST_NAME_LOV'); - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.EFLV_CUST_NAME1_LOV --- --- Description: Builds a GUI control to display the values returned by --- LOV 'EFLV_CUST_NAME1'. --- --- --------------------------------------------------------------------------------- - function EFLV_CUST_NAME1_LOV( - P_VALUE in varchar2, - P_CTRL in number, - P_MODE in varchar2 default 'Q', - p_select_first in boolean default false, - p_onclick in boolean, - p_onchange in boolean, - p_onblur in boolean, - p_onfocus in boolean, - p_onselect in boolean, - p_row in number) return varchar2 is - - L_RET_VALUE varchar2(32766) := null; - l_events varchar2(1000) := null; - l_valid boolean := false; - l_first boolean := true; - - cursor c1( z_mode in varchar2 - , z_filter in varchar2 - , z_uu in varchar2 - , z_ul in varchar2 - , z_lu in varchar2 - , z_ll in varchar2 - ) - is - SELECT CUST.NAME NAME, - CUST.CODE CODE -FROM CUSTOMERS CUST -WHERE ( - ( ( Z_MODE='Q') - AND ( /* CG$MDTU_QWC_START EFLV_CUST_NAME.CUST */ - ((CUST.cuty_id = caco_utilities.cuty_id_for_user OR caco_utilities.user_has_system = 'Y')) - /* CG$MDTU_QWC_END EFLV_CUST_NAME.CUST */ - ) - ) - OR - ( ( NOT Z_MODE='Q') - AND ( /* CG$MDTU_VWC_START EFLV_CUST_NAME.CUST */ - ((efnow110$cust.CURR_VAL.CUTY_ID = caco_utilities.cuty_id_for_user OR caco_utilities.user_has_system = 'Y')) - /* CG$MDTU_VWC_END EFLV_CUST_NAME.CUST */ - ) - ) - ) AND - (CUST.NAME like z_uu||'%' or CUST.NAME like z_ul||'%' or CUST.NAME like z_lu||'%' or CUST.NAME like z_ll||'%') and upper(CUST.NAME) like upper(z_filter) -ORDER BY NAME, - NAME -; - - l_rownum_txt varchar2(30); - begin - if p_row is not null then - l_rownum_txt := ', ' || to_char(p_row - 1); - end if; - if p_onclick then - l_events := l_events || ' onClick="return UI_NAME_OnClick(this'||l_rownum_txt||')"'; - end if; - if p_onchange then - l_events := l_events || ' onChange="return UI_NAME_OnChange(this'||l_rownum_txt||')"'; - end if; - if p_onblur then - l_events := l_events || ' onBlur="return UI_NAME_OnBlur(this'||l_rownum_txt||')"'; - end if; - if p_onfocus then - l_events := l_events || ' onFocus="return UI_NAME_OnFocus(this'||l_rownum_txt||')"'; - end if; - if p_onselect then - l_events := l_events || ' onSelect="return UI_NAME_OnSelect(this'||l_rownum_txt||')"'; - end if; - - -- IDs Feature: - if P_CTRL = WSGL.CTL_QUERY and 1 <> 1 then - L_RET_VALUE := htf.formSelectOpen('P_UI_NAME', - nsize=>'1', - cattributes=>'MULTIPLE CLASS = cglovlist'||l_events||' ID="'||'P_UI_NAME'||'"'); - else - L_RET_VALUE := htf.formSelectOpen('P_UI_NAME', - nsize=>'1', - cattributes=>'CLASS = cglovlist'||l_events||' ID="'||'P_UI_NAME'||'"'); - end if; - - if P_CTRL = WSGL.CTL_QUERY and p_select_first then - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(' ', 'SELECTED'); - l_first := false; - l_valid := true; - end if; - - for c1rec in c1( P_MODE, '%',null,null,null,null) loop - if ((WSGL.EscapeItem(c1rec.NAME) = P_VALUE) or c1rec.NAME = P_VALUE) or (p_select_first and l_first) then - l_valid := true; - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.EscapeItem(c1rec.NAME), 'SELECTED', - cattributes=>'VALUE="'||WSGL.EscapeItem(c1rec.NAME)||'"'); - else - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.EscapeItem(c1rec.NAME), null, - cattributes=>'VALUE="'||WSGL.EscapeItem(c1rec.NAME)||'"'); - end if; - l_first := false; - end loop; - - if not l_valid then - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.MsgGetText(28,WSGLM.CAP028_INVALID_VAL), 'SELECTED', - 'VALUE="'||WSGL.MsgGetText(28,WSGLM.CAP028_INVALID_VAL)||'"'); - end if; - L_RET_VALUE := L_RET_VALUE || htf.formSelectClose; - - return L_RET_VALUE; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - DEF_BODY_ATTRIBUTES, 'efnow110$cust.EFLV_CUST_NAME1_LOV'); - return L_RET_VALUE; - end; --------------------------------------------------------------------------------- --- Name: efnow110$cust.EFLV_CUST_CODE1_LOV --- --- Description: Builds a GUI control to display the values returned by --- LOV 'EFLV_CUST_CODE1'. --- --- --------------------------------------------------------------------------------- - function EFLV_CUST_CODE1_LOV( - P_VALUE in varchar2, - P_CTRL in number, - P_MODE in varchar2 default 'Q', - p_select_first in boolean default false, - p_onclick in boolean, - p_onchange in boolean, - p_onblur in boolean, - p_onfocus in boolean, - p_onselect in boolean, - p_row in number) return varchar2 is - - L_RET_VALUE varchar2(32766) := null; - l_events varchar2(1000) := null; - l_valid boolean := false; - l_first boolean := true; - - cursor c1( z_mode in varchar2 - , z_filter in varchar2 - , z_uu in varchar2 - , z_ul in varchar2 - , z_lu in varchar2 - , z_ll in varchar2 - ) - is - SELECT CUST.CODE CODE, - CUST.NAME NAME -FROM CUSTOMERS CUST -WHERE ( - ( ( Z_MODE='Q') - AND ( /* CG$MDTU_QWC_START EFLV_CUST_CODE.CUST */ - ((CUST.cuty_id = caco_utilities.cuty_id_for_user OR caco_utilities.user_has_system = 'Y')) - /* CG$MDTU_QWC_END EFLV_CUST_CODE.CUST */ - ) - ) - OR - ( ( NOT Z_MODE='Q') - AND ( /* CG$MDTU_VWC_START EFLV_CUST_CODE.CUST */ - ((CUST.cuty_id = caco_utilities.cuty_id_for_user OR caco_utilities.user_has_system = 'Y')) - /* CG$MDTU_VWC_END EFLV_CUST_CODE.CUST */ - ) - ) - ) AND - (CUST.CODE like z_uu||'%' or CUST.CODE like z_ul||'%' or CUST.CODE like z_lu||'%' or CUST.CODE like z_ll||'%') and upper(CUST.CODE) like upper(z_filter) -ORDER BY CODE, - CODE -; - - l_rownum_txt varchar2(30); - begin - if p_row is not null then - l_rownum_txt := ', ' || to_char(p_row - 1); - end if; - if p_onclick then - l_events := l_events || ' onClick="return UI_CODE_OnClick(this'||l_rownum_txt||')"'; - end if; - if p_onchange then - l_events := l_events || ' onChange="return UI_CODE_OnChange(this'||l_rownum_txt||')"'; - end if; - if p_onblur then - l_events := l_events || ' onBlur="return UI_CODE_OnBlur(this'||l_rownum_txt||')"'; - end if; - if p_onfocus then - l_events := l_events || ' onFocus="return UI_CODE_OnFocus(this'||l_rownum_txt||')"'; - end if; - if p_onselect then - l_events := l_events || ' onSelect="return UI_CODE_OnSelect(this'||l_rownum_txt||')"'; - end if; - - -- IDs Feature: - if P_CTRL = WSGL.CTL_QUERY and 1 <> 1 then - L_RET_VALUE := htf.formSelectOpen('P_UI_CODE', - nsize=>'1', - cattributes=>'MULTIPLE CLASS = cglovlist'||l_events||' ID="'||'P_UI_CODE'||'"'); - else - L_RET_VALUE := htf.formSelectOpen('P_UI_CODE', - nsize=>'1', - cattributes=>'CLASS = cglovlist'||l_events||' ID="'||'P_UI_CODE'||'"'); - end if; - - if P_CTRL = WSGL.CTL_QUERY and p_select_first then - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(' ', 'SELECTED'); - l_first := false; - l_valid := true; - end if; - - for c1rec in c1( P_MODE, '%',null,null,null,null) loop - if ((WSGL.EscapeItem(c1rec.CODE) = P_VALUE) or c1rec.CODE = P_VALUE) or (p_select_first and l_first) then - l_valid := true; - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.EscapeItem(c1rec.CODE), 'SELECTED', - cattributes=>'VALUE="'||WSGL.EscapeItem(c1rec.CODE)||'"'); - else - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.EscapeItem(c1rec.CODE), null, - cattributes=>'VALUE="'||WSGL.EscapeItem(c1rec.CODE)||'"'); - end if; - l_first := false; - end loop; - - if not l_valid then - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.MsgGetText(28,WSGLM.CAP028_INVALID_VAL), 'SELECTED', - 'VALUE="'||WSGL.MsgGetText(28,WSGLM.CAP028_INVALID_VAL)||'"'); - end if; - L_RET_VALUE := L_RET_VALUE || htf.formSelectClose; - - return L_RET_VALUE; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - DEF_BODY_ATTRIBUTES, 'efnow110$cust.EFLV_CUST_CODE1_LOV'); - return L_RET_VALUE; - end; --------------------------------------------------------------------------------- --- Name: efnow110$cust.PCG$LK_KAM_SYUS_ID_Process --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- -function PCG$LK_KAM_SYUS_ID_Process( - P_UI_KAM_MGR_NAME in varchar2, - Z_MODE in varchar2 ) return boolean -is - anyRows boolean := false; - cursor c1 is -SELECT CG$LK.SYUS_ID KAM_MANAGER, CG$LK.UI_NAME UI_KAM_MGR_NAME -FROM ( SELECT SYUS.FIRST_NAME||' '||SYUS.LAST_NAME UI_NAME, - SYUS.FIRST_NAME FIRST_NAME, - SYUS.LAST_NAME LAST_NAME, - SYUS.SYUS_ID SYUS_ID - FROM SYSTEM_USERS SYUS - WHERE /* CG$LOVI_WC_START KAM_SYUS_ID 30 */ - (SYUS.SYUS_ID <> caco_utilities.get_system_user AND SYUS.SYUS_ID IN ( SELECT uspr.syus_id FROM user_profiles uspr, system_profiles sypr WHERE uspr.sypr_id = sypr.sypr_id AND UPPER(sypr.name) like '%KAM%') AND SYUS.SYUS_ID IN (SELECT inus.syus_id FROM intermediary_users inus WHERE inus.inte_id IN (SELECT cbcv.inte_id FROM cust_by_cuty_v cbcv))) - /* CG$LOVI_WC_END KAM_SYUS_ID 30 */ - ) CG$LK -WHERE CG$LK.UI_NAME = NBT_VAL.UI_KAM_MGR_NAME; -begin - if ( - P_UI_KAM_MGR_NAME is null - ) - then - CURR_VAL.KAM_MANAGER_SYUS_ID := null; - NBT_VAL.UI_KAM_MGR_NAME := null; - return true; - end if; - NBT_VAL.UI_KAM_MGR_NAME := P_UI_KAM_MGR_NAME; - for c1rec in c1 loop - if (not anyRows) then - anyRows := true; - CURR_VAL.KAM_MANAGER_SYUS_ID := c1rec.KAM_MANAGER; - NBT_VAL.UI_KAM_MGR_NAME := c1rec.UI_KAM_MGR_NAME; - else - exit; - end if; - end loop; - - if (not anyRows) then - cg$errors.push('#KAM Manager Name#2185#: '|| - WSGL.MsgGetText(226,WSGLM.MSG226_INVALID_FK), - 'E', 'WSG', SQLCODE, 'efnow110$cust.PCG$LK_KAM_SYUS_ID_Process'); - return false; - else - return true; - end if; - -exception - when others then - cg$errors.push(SQLERRM, - 'E', 'WSG', SQLCODE, 'efnow110$cust.PCG$LK_KAM_SYUS_ID_Process'); - return FALSE; -end; --------------------------------------------------------------------------------- --- Name: efnow110$cust.PCG$LK_CUST_CUTY_FK_Process --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- -function PCG$LK_CUST_CUTY_FK_Process( - P_CUTY_ID in varchar2, - Z_MODE in varchar2 ) return boolean -is - anyRows boolean := false; - cursor c1 is -SELECT CG$LOOKUP.CUTY_ID CUTY_ID -FROM CUSTOMER_TYPES CG$LOOKUP -WHERE CG$LOOKUP.CUTY_ID = CURR_VAL.CUTY_ID -; -begin - if CURR_IND.CUTY_ID = FALSE then - CURR_VAL.CUTY_ID := to_number(P_CUTY_ID); - end if; - for c1rec in c1 loop - if (not anyRows) then - anyRows := true; - CURR_VAL.CUTY_ID := c1rec.CUTY_ID; - else - exit; - end if; - end loop; - - if (not anyRows) then - cg$errors.push('#Customer Type#2478#: '|| - WSGL.MsgGetText(226,WSGLM.MSG226_INVALID_FK), - 'E', 'WSG', SQLCODE, 'efnow110$cust.PCG$LK_CUST_CUTY_FK_Process'); - return false; - else - return true; - end if; - -exception - when others then - cg$errors.push(SQLERRM, - 'E', 'WSG', SQLCODE, 'efnow110$cust.PCG$LK_CUST_CUTY_FK_Process'); - return FALSE; -end; --------------------------------------------------------------------------------- --- Name: efnow110$cust.InitialiseDomain --- --- Description: Initialises the Domain Record for the given Column Usage --- --- Parameters: P_ALIAS The alias of the column usage --- --------------------------------------------------------------------------------- - procedure InitialiseDomain(P_ALIAS in varchar2) is - begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - if P_ALIAS = 'CUTY_ID' and not D_CUTY_ID.Initialised then - D_CUTY_ID.ColAlias := 'CUTY_ID'; - D_CUTY_ID.ControlType := WSGL.DV_LIST; - D_CUTY_ID.DispWidth := 50; - D_CUTY_ID.DispHeight := 1; - D_CUTY_ID.MaxWidth := 50; - D_CUTY_ID.UseMeanings := True; - D_CUTY_ID.ColOptional := False; - WSGL.LoadDomainValues('CG_REF_CODES', 'CUSTOMERS.CUTY_ID', D_CUTY_ID); - D_CUTY_ID.Initialised := True; - end if; - - if P_ALIAS = 'STATUS' and not D_STATUS.Initialised then - D_STATUS.ColAlias := 'STATUS'; - D_STATUS.ControlType := WSGL.DV_LIST; - D_STATUS.DispWidth := 10; - D_STATUS.DispHeight := 1; - D_STATUS.MaxWidth := 10; - D_STATUS.UseMeanings := True; - D_STATUS.ColOptional := False; - WSGL.LoadDomainValues('CG_REF_CODES', 'CUSTOMERS.STATUS', D_STATUS); - D_STATUS.Initialised := True; - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - DEF_BODY_ATTRIBUTES, 'efnow110$cust.InitialseDomain'); - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.calendar --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - - procedure calendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ) is - - Field_Caption Varchar2 (2000); - - begin - - if Z_FIELD_PROMPT is null then - Field_Caption := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - else - Field_Caption := initcap (replace (Z_FIELD_PROMPT, '_', ' ')); - end if; - - - WSGL.RegisterURL('efnow110$cust.calendar'); - WSGL.AddURLParam('Z_FIELD_NAME', Z_FIELD_NAME); - WSGL.AddURLParam('Z_CALLER_URL', Z_CALLER_URL); - - if WSGL.NotLowerCase then - return; - end if; - - WSGL.Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow110$cust', - CAL_CLOSE_BUT_CAPTION, - True, - 'DD-MON-RRRR' - ); - - efnow110$.TemplateHeader(TRUE,7); - - WSGL.Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow110$cust', - CAL_CLOSE_BUT_CAPTION, - False, - 'DD-MON-RRRR' - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - CAL_BODY_ATTRIBUTES, 'efnow110$cust.calendar'); - end calendar; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.format_cal_date --- --- Description: Converts the chosen date into the correct format using the format mask assigned --- to the field that the calendar was popped up for --- --------------------------------------------------------------------------------- - -procedure format_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ) is - - Field_Caption Varchar2 (2000) := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - l_day varchar2(15) := day; - -begin - - if l_day = '0' then - l_day := '01'; - end if; - - WSGL.Output_Format_Cal_JS - ( - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - l_day || '-' || month || '-' || year, - Z_FIELD_FORMAT - ); - -end format_cal_date; - - --------------------------------------------------------------------------------- --- Name: efnow110$cust.Validate --- --- Description: Provides validation of the 'CUST' module component --- (#Maintain Customer#1058#). --- --- Parameters: Z_MODE Ins(ert) or Upd(ate) --- Z_FORCE_UPDATE Set this to TRUE within this event to force --- Pre and Post-Update triggers to fire even if --- no base item values have changed. --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function Validate(Z_MODE in varchar2, Z_FORCE_UPDATE in out boolean) return boolean is - L_ERROR_MESS varchar2(1000); - L_RET_VAL boolean := TRUE; - begin - - - begin - CURR_VAL.CODE := FORM_VAL.CODE; - CURR_IND.CODE := TRUE; - exception - when others then - cg$errors.push('#Short Name*#2464#: ' || SQLERRM, - 'E', 'WSG', SQLCODE, 'efnow110$cust.Validate'); - L_RET_VAL := FALSE; - end; - - begin - CURR_VAL.NAME := FORM_VAL.NAME; - CURR_IND.NAME := TRUE; - exception - when others then - cg$errors.push('#Full Name*#2461#: ' || SQLERRM, - 'E', 'WSG', SQLCODE, 'efnow110$cust.Validate'); - L_RET_VAL := FALSE; - end; - - begin - CURR_VAL.PRIMARY_CONTACT := FORM_VAL.PRIMARY_CONTACT; - CURR_IND.PRIMARY_CONTACT := TRUE; - exception - when others then - cg$errors.push('#Primary Contact*#2472#: ' || SQLERRM, - 'E', 'WSG', SQLCODE, 'efnow110$cust.Validate'); - L_RET_VAL := FALSE; - end; - - begin - CURR_VAL.PRIMARY_CONTACT_TEL := FORM_VAL.PRIMARY_CONTACT_TEL; - CURR_IND.PRIMARY_CONTACT_TEL := TRUE; - exception - when others then - cg$errors.push('#Primary Contact Tel.*#2473#: ' || SQLERRM, - 'E', 'WSG', SQLCODE, 'efnow110$cust.Validate'); - L_RET_VAL := FALSE; - end; - - declare - L_VAL VARCHAR2(50) := FORM_VAL.CUTY_ID; - begin - InitialiseDomain('CUTY_ID'); - if WSGL.ValidDomainValue(D_CUTY_ID, L_VAL) then - CURR_VAL.CUTY_ID := L_VAL; - CURR_IND.CUTY_ID := TRUE; - else - cg$errors.push('#Customer Type#2478#: ' || WSGL.MsgGetText(209,WSGLM.MSG209_INVALID_DV), - 'E', 'WSG', 0, 'efnow110$cust.Validate'); - L_RET_VAL := FALSE; - end if; - end; - declare - L_VAL VARCHAR2(60) := FORM_VAL.STATUS; - begin - InitialiseDomain('STATUS'); - if WSGL.ValidDomainValue(D_STATUS, L_VAL) then - CURR_VAL.STATUS := L_VAL; - CURR_IND.STATUS := TRUE; - else - cg$errors.push('#Status*#2476#: ' || WSGL.MsgGetText(209,WSGLM.MSG209_INVALID_DV), - 'E', 'WSG', 0, 'efnow110$cust.Validate'); - L_RET_VAL := FALSE; - end if; - end; - begin - CURR_VAL.EMAIL_ADDRESS := FORM_VAL.EMAIL_ADDRESS; - CURR_IND.EMAIL_ADDRESS := TRUE; - exception - when others then - cg$errors.push('#Email Address*#2462#: ' || SQLERRM, - 'E', 'WSG', SQLCODE, 'efnow110$cust.Validate'); - L_RET_VAL := FALSE; - end; - - begin - CURR_VAL.DESCRIPTION := FORM_VAL.DESCRIPTION; - CURR_IND.DESCRIPTION := TRUE; - exception - when others then - cg$errors.push('#Description#20#: ' || SQLERRM, - 'E', 'WSG', SQLCODE, 'efnow110$cust.Validate'); - L_RET_VAL := FALSE; - end; - - begin - CURR_VAL.TELEPHONE := FORM_VAL.TELEPHONE; - CURR_IND.TELEPHONE := TRUE; - exception - when others then - cg$errors.push('#Telephone*#2463#: ' || SQLERRM, - 'E', 'WSG', SQLCODE, 'efnow110$cust.Validate'); - L_RET_VAL := FALSE; - end; - - begin - CURR_VAL.FAX := FORM_VAL.FAX; - CURR_IND.FAX := TRUE; - exception - when others then - cg$errors.push('#Fax*#2465#: ' || SQLERRM, - 'E', 'WSG', SQLCODE, 'efnow110$cust.Validate'); - L_RET_VAL := FALSE; - end; - - begin - CURR_VAL.KAM_TELEPHONE := FORM_VAL.KAM_TELEPHONE; - CURR_IND.KAM_TELEPHONE := TRUE; - exception - when others then - cg$errors.push('#KAM Manager Tel.#2186#: ' || SQLERRM, - 'E', 'WSG', SQLCODE, 'efnow110$cust.Validate'); - L_RET_VAL := FALSE; - end; - - begin - declare - try_no_fm boolean := false; - begin - begin - CURR_VAL.PERIOD_START := to_date(FORM_VAL.PERIOD_START, 'DD/MM/YYYY'); - exception - when others then - try_no_fm := true; - end; - if try_no_fm then - CURR_VAL.PERIOD_START := to_date(FORM_VAL.PERIOD_START); - end if; - end; - CURR_IND.PERIOD_START := TRUE; - exception - when others then - cg$errors.push('#Period Start*#2460#: ' || SQLERRM||' '||WSGL.MsgGetText(212,WSGLM.MSG212_FOMAT_MASK, 'DD/MM/YYYY'), - 'E', 'WSG', SQLCODE, 'efnow110$cust.Validate'); - L_RET_VAL := FALSE; - end; - - begin - declare - try_no_fm boolean := false; - begin - begin - CURR_VAL.PERIOD_END := to_date(FORM_VAL.PERIOD_END, 'DD/MM/YYYY'); - exception - when others then - try_no_fm := true; - end; - if try_no_fm then - CURR_VAL.PERIOD_END := to_date(FORM_VAL.PERIOD_END); - end if; - end; - CURR_IND.PERIOD_END := TRUE; - exception - when others then - cg$errors.push('#Period End#27#: ' || SQLERRM||' '||WSGL.MsgGetText(212,WSGLM.MSG212_FOMAT_MASK, 'DD/MM/YYYY'), - 'E', 'WSG', SQLCODE, 'efnow110$cust.Validate'); - L_RET_VAL := FALSE; - end; - - - -- Validation for CG$LK_KAM_SYUS_ID - if Z_MODE = 'INS' then - if PCG$LK_KAM_SYUS_ID_Process( - P_UI_KAM_MGR_NAME=>FORM_VAL.UI_KAM_MGR_NAME, - Z_MODE=>'D') then - CURR_IND.KAM_MANAGER_SYUS_ID := TRUE; - null; - else - L_RET_VAL := FALSE; - return L_RET_VAL; - end if; - end if; - - -- Validation for CG$LK_CUST_CUTY_FK - if Z_MODE = 'INS' then - if PCG$LK_CUST_CUTY_FK_Process( - P_CUTY_ID=>FORM_VAL.CUTY_ID, - Z_MODE=>'D') then - CURR_IND.CUTY_ID := TRUE; - null; - else - L_RET_VAL := FALSE; - return L_RET_VAL; - end if; - end if; - - -- Validation for CG$LK_KAM_SYUS_ID - if Z_MODE = 'UPD' then - if PCG$LK_KAM_SYUS_ID_Process( - P_UI_KAM_MGR_NAME=>FORM_VAL.UI_KAM_MGR_NAME, - Z_MODE=>'D') then - CURR_IND.KAM_MANAGER_SYUS_ID := TRUE; - null; - else - L_RET_VAL := FALSE; - return L_RET_VAL; - end if; - end if; - - -- Validation for CG$LK_CUST_CUTY_FK - if Z_MODE = 'UPD' then - if PCG$LK_CUST_CUTY_FK_Process( - P_CUTY_ID=>FORM_VAL.CUTY_ID, - Z_MODE=>'D') then - CURR_IND.CUTY_ID := TRUE; - null; - else - L_RET_VAL := FALSE; - return L_RET_VAL; - end if; - end if; - - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - VF_BODY_ATTRIBUTES, 'efnow110$cust.Validate'); - return FALSE; - end; --------------------------------------------------------------------------------- --- Name: efnow110$cust.Startup --- --- Description: Entry point for the 'CUST' module --- component (#Maintain Customer#1058#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure Startup( - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2, - Z_FORM in varchar2) is - l_Foundform boolean := FALSE; - l_fs_text varchar2(32767) := '' ; - begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - WSGL.RegisterURL('efnow110$cust.startup'); - WSGL.AddURLParam('Z_CHK', Z_CHK); - - - WSGL.StoreURLLink(1, '#Maintain Customer#1058#'); - - -- Either no frames are being used or the query form is on a - -- separate page. - if Z_FORM is not null then - null; - -- Work out which form is required, and check if that is possible - if Z_FORM = 'QUERY' then - FormQuery( - Z_DIRECT_CALL=>TRUE); - l_Foundform := TRUE; - end if; - if Z_FORM = 'INSERT' then - FormInsert( - Z_DIRECT_CALL=>TRUE); - l_Foundform := TRUE; - end if; - end if; - if l_Foundform = FALSE then - FormQuery( - Z_DIRECT_CALL=>TRUE); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - DEF_BODY_ATTRIBUTES, 'efnow110$cust.Startup'); - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.ActionQuery --- --- Description: Called when a Query form is subitted to action the query request. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure ActionQuery( - P_UI_CODE in varchar2, - P_UI_NAME in varchar2, - Z_DIRECT_CALL in boolean default false, - Z_ACTION in varchar2, - Z_CHK in varchar2 ) is - - L_CHK varchar2(10) := Z_CHK; - L_BUTCHK varchar2(100):= null; - l_dummy_bool boolean := false; - begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - if not Z_DIRECT_CALL then - null; - end if; - - l_dummy_bool := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - if (Z_ACTION = QF_INSERT_BUT_ACTION) or (Z_ACTION = QF_INSERT_BUT_CAPTION) then - L_BUTCHK :=QF_INSERT_BUT_ACTION; - end if; - if (Z_ACTION = QF_INSERT_BUT_ACTION) or (Z_ACTION = QF_INSERT_BUT_CAPTION) then - FormInsert( - Z_DIRECT_CALL=>TRUE - ); - else - - - - QueryView( - P_UI_CODE=>P_UI_CODE, - P_UI_NAME=>P_UI_NAME, - Z_EXECUTE_QUERY=>'Y', - Z_DIRECT_CALL=>TRUE - ); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - DEF_BODY_ATTRIBUTES, 'efnow110$cust.ActionQuery'); - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.QueryHits --- --- Description: Returns the number or rows which matches the given search --- criteria (if any). --- --- Parameters: --- --------------------------------------------------------------------------------- - function QueryHits( - P_UI_CODE in varchar2, - P_UI_NAME in varchar2) return number is - I_QUERY varchar2(32767) := ''; - I_CURSOR integer; - I_VOID integer; - I_FROM_POS integer := 0; - I_COUNT number(10); - begin - if not caco_security.security_check('efnow110$cust') then - return -1; - end if; - - if not BuildSQL(P_UI_CODE, - P_UI_NAME) then - return -1; - end if; - - if not PreQuery(P_UI_CODE, - P_UI_NAME) then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Maintain Customer#1058#', DEF_BODY_ATTRIBUTES); - return -1; - end if; - - I_FROM_POS := instr(upper(ZONE_SQL), ' FROM '); - - if I_FROM_POS = 0 then - return -1; - end if; - - I_QUERY := 'SELECT count(*)' || - substr(ZONE_SQL, I_FROM_POS); - - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, I_QUERY, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, I_COUNT); - I_VOID := dbms_sql.execute(I_CURSOR); - I_VOID := dbms_sql.fetch_rows(I_CURSOR); - dbms_sql.column_value(I_CURSOR, 1, I_COUNT); - dbms_sql.close_cursor(I_CURSOR); - - return I_COUNT; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - DEF_BODY_ATTRIBUTES, 'efnow110$cust.QueryHits'); - return -1; - end; --------------------------------------------------------------------------------- --- Name: efnow110$cust.BuildSQL --- --- Description: Builds the SQL for the 'CUST' module component (#Maintain Customer#1058#). --- This incorporates all query criteria and Foreign key columns. --- --- Parameters: --- --------------------------------------------------------------------------------- - function BuildSQL( - P_UI_CODE in varchar2, - P_UI_NAME in varchar2, - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean is - - I_WHERE varchar2(32767); - row_idx integer; - begin - - - -- Build up the Where clause - if Z_QUERY_BY_KEY then - I_WHERE := 'WHERE CUST_ID = ' || to_char(CURR_VAL.CUST_ID) || ' '; - elsif Z_ROW_ID is not null then - I_WHERE := 'WHERE CG$ROW_ID = ''' || rowidtochar( Z_ROW_ID ) || ''''; - elsif Z_BIND_ROW_ID then - I_WHERE := 'WHERE CG$ROW_ID = :b_row_id'; - else - - null; - end if; - - ZONE_SQL := 'SELECT CUST_ID, - CODE, - NAME, - PRIMARY_CONTACT, - PRIMARY_CONTACT_TEL, - CUTY_ID, - STATUS, - EMAIL_ADDRESS, - DESCRIPTION, - TELEPHONE, - FAX, - KAM_MANAGER, - KAM_TELEPHONE, - CREATED_BY, - CREATED_ON, - UPDATED_BY, - UPDATED_ON, - PERIOD_START, - PERIOD_END - FROM ( SELECT CUST.CUST_ID CUST_ID, - CUST.CODE CODE, - CUST.NAME NAME, - CUST.PRIMARY_CONTACT PRIMARY_CONTACT, - CUST.PRIMARY_CONTACT_TEL PRIMARY_CONTACT_TEL, - CUST.CUTY_ID CUTY_ID, - CUST.STATUS STATUS, - CUST.EMAIL_ADDRESS EMAIL_ADDRESS, - CUST.DESCRIPTION DESCRIPTION, - CUST.TELEPHONE TELEPHONE, - CUST.FAX FAX, - CUST.KAM_MANAGER_SYUS_ID KAM_MANAGER, - CUST.KAM_TELEPHONE KAM_TELEPHONE, - CUST.CREATED_BY CREATED_BY, - CUST.CREATED_ON CREATED_ON, - CUST.UPDATED_BY UPDATED_BY, - CUST.UPDATED_ON UPDATED_ON, - CUST.PERIOD_START PERIOD_START, - CUST.PERIOD_END PERIOD_END, - CUST.ROWID CG$ROW_ID -FROM CUSTOMERS CUST -WHERE ( /* CG$MDTU_QWC_START CUST.CUST */ - (CUST.CUST_ID <> cout_system_configuration.get_configuration_item(''CUST_ID'') AND (CUST.CODE = efnow110$cust.get_cust_code AND CUST.NAME = efnow110$cust.get_cust_name) OR (CUST.CODE = efnow110$cust.get_cust_code AND efnow110$cust.get_cust_name IS NULL) OR (efnow110$cust.get_cust_code IS NULL AND CUST.NAME = efnow110$cust.get_cust_name) OR (efnow110$cust.get_cust_code IS NULL AND efnow110$cust.get_cust_name IS NULL)) - /* CG$MDTU_QWC_END CUST.CUST */ - ) - ) '; - ZONE_SQL := ZONE_SQL || I_WHERE; - ZONE_SQL := ZONE_SQL || ' ORDER BY NAME'; - return true; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - DEF_BODY_ATTRIBUTES, 'efnow110$cust.BuildSQL'); - return false; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.OpenZoneSql --- --- Description: Open's the cursor for the zone SQL of --- 'CUST' module component (#Maintain Customer#1058#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure OpenZoneSql - ( I_CURSOR OUT integer - ) - is - begin - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, ZONE_SQL, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, CURR_VAL.CUST_ID); - dbms_sql.define_column(I_CURSOR, 2, CURR_VAL.CODE, 20); - dbms_sql.define_column(I_CURSOR, 3, CURR_VAL.NAME, 100); - dbms_sql.define_column(I_CURSOR, 4, CURR_VAL.PRIMARY_CONTACT, 50); - dbms_sql.define_column(I_CURSOR, 5, CURR_VAL.PRIMARY_CONTACT_TEL, 30); - dbms_sql.define_column(I_CURSOR, 6, CURR_VAL.CUTY_ID); - dbms_sql.define_column(I_CURSOR, 7, CURR_VAL.STATUS, 10); - dbms_sql.define_column(I_CURSOR, 8, CURR_VAL.EMAIL_ADDRESS, 80); - dbms_sql.define_column(I_CURSOR, 9, CURR_VAL.DESCRIPTION, 80); - dbms_sql.define_column(I_CURSOR, 10, CURR_VAL.TELEPHONE, 30); - dbms_sql.define_column(I_CURSOR, 11, CURR_VAL.FAX, 30); - dbms_sql.define_column(I_CURSOR, 12, CURR_VAL.KAM_MANAGER_SYUS_ID); - dbms_sql.define_column(I_CURSOR, 13, CURR_VAL.KAM_TELEPHONE, 30); - dbms_sql.define_column(I_CURSOR, 14, CURR_VAL.CREATED_BY, 30); - dbms_sql.define_column(I_CURSOR, 15, CURR_VAL.CREATED_ON); - dbms_sql.define_column(I_CURSOR, 16, CURR_VAL.UPDATED_BY, 30); - dbms_sql.define_column(I_CURSOR, 17, CURR_VAL.UPDATED_ON); - dbms_sql.define_column(I_CURSOR, 18, CURR_VAL.PERIOD_START); - dbms_sql.define_column(I_CURSOR, 19, CURR_VAL.PERIOD_END); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - '', 'efnow110$cust.OpenZoneSql'); - raise; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.AssignZoneRow --- --- Description: Assign's a row of data and calculates the check sum from the --- zone SQL of 'CUST' module component (#Maintain Customer#1058#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure AssignZoneRow - ( I_CURSOR IN integer - ) - is - begin - dbms_sql.column_value(I_CURSOR, 1, CURR_VAL.CUST_ID); - dbms_sql.column_value(I_CURSOR, 2, CURR_VAL.CODE); - dbms_sql.column_value(I_CURSOR, 3, CURR_VAL.NAME); - dbms_sql.column_value(I_CURSOR, 4, CURR_VAL.PRIMARY_CONTACT); - dbms_sql.column_value(I_CURSOR, 5, CURR_VAL.PRIMARY_CONTACT_TEL); - dbms_sql.column_value(I_CURSOR, 6, CURR_VAL.CUTY_ID); - dbms_sql.column_value(I_CURSOR, 7, CURR_VAL.STATUS); - dbms_sql.column_value(I_CURSOR, 8, CURR_VAL.EMAIL_ADDRESS); - dbms_sql.column_value(I_CURSOR, 9, CURR_VAL.DESCRIPTION); - dbms_sql.column_value(I_CURSOR, 10, CURR_VAL.TELEPHONE); - dbms_sql.column_value(I_CURSOR, 11, CURR_VAL.FAX); - dbms_sql.column_value(I_CURSOR, 12, CURR_VAL.KAM_MANAGER_SYUS_ID); - dbms_sql.column_value(I_CURSOR, 13, CURR_VAL.KAM_TELEPHONE); - dbms_sql.column_value(I_CURSOR, 14, CURR_VAL.CREATED_BY); - dbms_sql.column_value(I_CURSOR, 15, CURR_VAL.CREATED_ON); - dbms_sql.column_value(I_CURSOR, 16, CURR_VAL.UPDATED_BY); - dbms_sql.column_value(I_CURSOR, 17, CURR_VAL.UPDATED_ON); - dbms_sql.column_value(I_CURSOR, 18, CURR_VAL.PERIOD_START); - dbms_sql.column_value(I_CURSOR, 19, CURR_VAL.PERIOD_END); - ZONE_CHECKSUM := to_char(WSGL.Checksum - ( '' - || CURR_VAL.CUST_ID - ) ); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - '', 'efnow110$cust.AssignZoneRow'); - raise; - end; - - - - --------------------------------------------------------------------------------- --- Name: efnow110$cust.FormQuery --- --- Description: This procedure builds an HTML form for entry of query criteria. --- The criteria entered are to restrict the query of the 'CUST' --- module component (#Maintain Customer#1058#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure FormQuery( - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2) is - L_SUCCESS boolean := TRUE; - begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - if not Z_DIRECT_CALL then - - null; - end if; - - L_SUCCESS := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - WSGL.OpenPageHead(''||' : '||'#Maintain Customer#1058#'); - WSGL.METATag; - efnow110$.TemplateHeader(TRUE,1); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>QF_BODY_ATTRIBUTES || 'onLoad="return CUST_OnLoad()"'); - efnow110$js$cust.CreateQueryJavaScript(LOV_FRAME,QF_BODY_ATTRIBUTES); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => false - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - htp.p(caco_system.menu); - efnow110$.FirstPage(Z_DIRECT_CALL => TRUE - - ); - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - htp.p(WSGL.MsgGetText(116,WSGLM.DSP116_ENTER_QRY_CAPTION,'#Maintain Customer#1058#')); - htp.para; - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow110$cust.actionquery', cattributes => 'NAME="efnow110$cust$QForm"'); - - SaveState; - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE); - WSGL.LayoutRowStart; - for i in 1..QF_NUMBER_OF_COLUMNS loop - WSGL.LayoutHeader(19, 'LEFT', NULL); - WSGL.LayoutHeader(30, 'LEFT', NULL); - end loop; - WSGL.LayoutRowEnd; - - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Short Name*#2464#:')); - WSGL.LayoutData(EFLV_CUST_CODE1_LOV(NULL, WSGL.CTL_QUERY, 'Q', true)); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Full Name*#2461#:')); - WSGL.LayoutData(EFLV_CUST_NAME1_LOV(NULL, WSGL.CTL_QUERY, 'Q', true)); - WSGL.LayoutRowEnd; - - WSGL.LayoutClose; - - WSGL.SubmitButton('Z_ACTION', QF_QUERY_BUT_CAPTION, 'btnQFQ', 'this.form.Z_ACTION.value=\''' || QF_QUERY_BUT_ACTION || '\'''); - htp.formReset(QF_CLEAR_BUT_CAPTION, 'ID="'||QF_CLEAR_BUT_CAPTION||'"'); - - htp.p (''); - - if WSGL.IsSupported ('NOSCRIPT') - then - - htp.p (''); - - end if; - - WSGL.HiddenField('Z_CHK', to_char(WSGL.Checksum - (''))); - htp.formClose; - - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="QF$AIFormBottom"'); - htp.formClose; - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - QF_BODY_ATTRIBUTES, 'efnow110$cust.FormQuery'); - WSGL.ClosePageBody; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.FormView --- --- Description: This procedure builds an HTML form for view/update of fields in --- the 'CUST' module component (#Maintain Customer#1058#). --- --- Parameters: Z_FORM_STATUS Status of the form --- --------------------------------------------------------------------------------- - procedure FormView(Z_FORM_STATUS in number, - Q_UI_CODE in varchar2, - Q_UI_NAME in varchar2, - Z_POST_DML in boolean, - Z_MULTI_PAGE in boolean, - Z_ACTION in varchar2, - Z_START in varchar2) is - - C_CUIN varchar2(10); - I_CURSOR integer; - I_VOID integer; - I_COUNT integer; - l_row integer := 0; - l_rowset_row integer := null; - l_error varchar2(2000); - l_rows_ret integer; - l_row_deleted boolean := false; - l_row_no_lock boolean := false; - l_total_rows integer := 0; - I_START number(38) := to_number(Z_START); - I_PREV_BUT boolean := false; - I_NEXT_BUT boolean := false; - l_total_text varchar2(200) := ''; - l_ntom_butstr varchar2(2000) := VF_NTOM_BUT_CAPTION; - l_force_upd boolean := false; - l_success boolean := true; - l_skip_data boolean := false; - begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - l_success := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => false - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - - - - WSGL.OpenPageHead(''||' : '||'#Maintain Customer#1058#'); - WSGL.METATag; - htp.script('FormType = "Update";'); - efnow110$.TemplateHeader(TRUE,4); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>VF_BODY_ATTRIBUTES || 'onLoad="return CUST_OnLoad()"'); - - efnow110$js$cust.CreateViewJavaScript( - VF_ROWS_UPDATED, - VF_ROWS_DELETED, - VF_ROWS_ERROR, - VF_BODY_ATTRIBUTES, - IF_ROWS_INSERTED, - IF_ROWS_ERROR, - LOV_FRAME - ); - htp.p(caco_system.menu); - - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - - InitialiseDomain('CUTY_ID'); - InitialiseDomain('STATUS'); - - htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="VF$AIFormTop"'); - htp.formClose; - - - - if Z_FORM_STATUS = WSGL.FORM_STATUS_ERROR then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Maintain Customer#1058#', VF_BODY_ATTRIBUTES); - htp.script('DataChangeErrors = true;'); - elsif Z_FORM_STATUS = WSGL.FORM_STATUS_UPD then - WSGL.DisplayMessage(WSGL.MESS_SUCCESS, WSGL.MsgGetText(207, WSGLM.MSG207_ROW_UPDATED), - ''||' : '||'#Maintain Customer#1058#', VF_BODY_ATTRIBUTES); - htp.script('DataChange = true;'); - elsif Z_FORM_STATUS = WSGL.FORM_STATUS_INS then - WSGL.DisplayMessage(WSGL.MESS_SUCCESS, WSGL.MsgGetText(208, WSGLM.MSG208_ROW_INSERTED), - ''||' : '||'#Maintain Customer#1058#', VF_BODY_ATTRIBUTES); - elsif Z_FORM_STATUS = WSGL.FORM_STATUS_NO_UPD then - htp.p( ''||WSGL.MsgGetText(136,WSGLM.DSP136_NO_ROW_UPDATED)||'
' ); - end if; - if VF_ROWS_UPDATED > 0 then - htp.p(htf.bold(htf.br || WSGL.MsgGetText(137,WSGLM.DSP137_ROWS_UPDATED)) || ' ' ||to_char(VF_ROWS_UPDATED) ); - end if; - if VF_ROWS_ERROR > 0 then - htp.p(htf.bold(htf.br || WSGL.MsgGetText(138,WSGLM.DSP138_ERRORS)) || ' ' ||to_char(VF_ROWS_ERROR) ); - end if; - if VF_ROWS_DELETED > 0 then - htp.p(htf.bold(htf.br || WSGL.MsgGetText(139,WSGLM.DSP139_ROWS_DELETED)) || ' ' ||to_char(VF_ROWS_DELETED) ); - end if; - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow110$cust.actionview', cattributes => 'NAME="efnow110$cust$VForm"'); - SaveState; - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE); - - WSGL.LayoutRowStart; - for i in 1..VF_NUMBER_OF_COLUMNS loop - WSGL.LayoutHeader(29, 'LEFT', NULL); - WSGL.LayoutHeader(50, 'LEFT', NULL); - end loop; - - - WSGL.LayoutHeader(2,'LEFT',null); - - WSGL.LayoutHeader(10, 'LEFT', null); - WSGL.LayoutRowEnd; - if Z_MULTI_PAGE then - if (Z_ACTION = VF_LAST_BUT_ACTION) or (Z_ACTION = VF_LAST_BUT_CAPTION) or - (Z_ACTION = VF_COUNT_BUT_ACTION) or (Z_ACTION = VF_COUNT_BUT_CAPTION) or - (VF_TOTAL_COUNT_REQD) - then - - I_COUNT := QueryHits( - P_UI_CODE=>Q_UI_CODE, - P_UI_NAME=>Q_UI_NAME); - if I_COUNT = -1 then - WSGL.ClosePageBody; - return; - end if; - end if; - - if (Z_ACTION = VF_COUNT_BUT_ACTION) or (Z_ACTION = VF_COUNT_BUT_CAPTION) or (VF_TOTAL_COUNT_REQD) then - l_total_text := ' '||WSGL.MsgGetText(111,WSGLM.DSP111_OF_TOTAL, to_char(I_COUNT)); - end if; - - if Z_START IS NULL or (Z_ACTION = VF_FIRST_BUT_ACTION) or (Z_ACTION = VF_FIRST_BUT_CAPTION) then - I_START := 1; - elsif (Z_ACTION = VF_NEXT_BUT_ACTION) or (Z_ACTION = VF_NEXT_BUT_CAPTION) then - I_START := I_START + VF_RECORD_SET_SIZE; - elsif (Z_ACTION = VF_PREV_BUT_ACTION) or (Z_ACTION = VF_PREV_BUT_CAPTION) then - I_START := I_START - VF_RECORD_SET_SIZE; - elsif (Z_ACTION = VF_LAST_BUT_ACTION) or (Z_ACTION = VF_LAST_BUT_CAPTION) then - I_START := 1 + (floor((I_COUNT-1)/VF_RECORD_SET_SIZE)*VF_RECORD_SET_SIZE); - end if; - - if I_START < 1 then - I_START := 1; - end if; - - I_PREV_BUT := TRUE; - I_NEXT_BUT := FALSE; - if I_START = 1 or Z_ACTION IS NULL then - I_PREV_BUT := FALSE; - end if; - end if; - OpenZoneSql(I_CURSOR); - l_row := 0; - if VF_ROW_SET.count = 0 then - I_VOID := dbms_sql.execute(I_CURSOR); - end if; - while true loop - if not l_row_deleted then - l_row := l_row + 1; - end if; - - l_row_deleted := false; - l_row_no_lock := false; - if VF_ROW_SET.count > 0 then - if l_rowset_row is null then - l_rowset_row := VF_ROW_SET.first; - else - l_rowset_row := VF_ROW_SET.next( l_rowset_row ); - end if; - if l_rowset_row is not null then - if not VF_ROW_SET( l_rowset_row ).ROW_DELETED then - dbms_sql.bind_variable(I_CURSOR, 'b_row_id', rowidtochar(VF_ROW_SET( l_rowset_row ).ROW_ID)); - I_VOID := dbms_sql.execute(I_CURSOR); - else - l_row_deleted := true; - end if; - if not VF_ROW_SET( l_rowset_row ).ROW_NOT_LOCKED then - FORM_VAL.CODE := WSGL.EscapeItem(VF_ROW_SET( l_rowset_row ).F_CODE); - FORM_VAL.NAME := WSGL.EscapeItem(VF_ROW_SET( l_rowset_row ).F_NAME); - FORM_VAL.PRIMARY_CONTACT := WSGL.EscapeItem(VF_ROW_SET( l_rowset_row ).F_PRIMARY_CONTACT); - FORM_VAL.PRIMARY_CONTACT_TEL := WSGL.EscapeItem(VF_ROW_SET( l_rowset_row ).F_PRIMARY_CONTACT_TEL); - FORM_VAL.CUTY_ID := WSGL.EscapeItem(VF_ROW_SET( l_rowset_row ).F_CUTY_ID); - FORM_VAL.STATUS := WSGL.EscapeItem(VF_ROW_SET( l_rowset_row ).F_STATUS); - FORM_VAL.EMAIL_ADDRESS := WSGL.EscapeItem(VF_ROW_SET( l_rowset_row ).F_EMAIL_ADDRESS); - FORM_VAL.DESCRIPTION := WSGL.EscapeItem(VF_ROW_SET( l_rowset_row ).F_DESCRIPTION); - FORM_VAL.TELEPHONE := WSGL.EscapeItem(VF_ROW_SET( l_rowset_row ).F_TELEPHONE); - FORM_VAL.FAX := WSGL.EscapeItem(VF_ROW_SET( l_rowset_row ).F_FAX); - FORM_VAL.KAM_TELEPHONE := WSGL.EscapeItem(VF_ROW_SET( l_rowset_row ).F_KAM_TELEPHONE); - FORM_VAL.PERIOD_START := WSGL.EscapeItem(VF_ROW_SET( l_rowset_row ).F_PERIOD_START); - FORM_VAL.PERIOD_END := WSGL.EscapeItem(VF_ROW_SET( l_rowset_row ).F_PERIOD_END); - l_force_upd := false; - if not PostQuery(Z_POST_DML, l_force_upd) then - if cg$errors.pop(l_error) then - WSGL.LayoutTextLine(htf.bold(''|| - htf.italic(WSGL.MsgGetText(122,WSGLM.DSP122_ERROR))|| ' '||l_error)); - end if; - end if; - - else - l_row_no_lock := true; - end if; - if VF_ROW_SET( l_rowset_row ).SUCCESS_FLAG then - htp.script('DataChange = true;'); - end if; - if not VF_ROW_SET( l_rowset_row ).SUCCESS_FLAG and cg$errors.pop_head( l_error ) then - htp.script('DataChangeErrors = true;'); - WSGL.LayoutTextLine(htf.bold(''||htf.italic(WSGL.MsgGetText(122,WSGLM.DSP122_ERROR))|| ' '||l_error)); - end if; - else - exit; - end if; - end if; - - if not (l_row_deleted) then - if Z_MULTI_PAGE then - while l_total_rows < I_START - 1 loop - l_rows_ret := dbms_sql.fetch_rows(I_CURSOR); - l_total_rows := l_total_rows + l_rows_ret; - if l_rows_ret = 0 then - exit; - end if; - end loop; - end if; - l_rows_ret := dbms_sql.fetch_rows(I_CURSOR); - l_total_rows := l_total_rows + l_rows_ret; - - if (l_rows_ret > 0) and (l_total_rows < (I_START + VF_RECORD_SET_SIZE)) then - AssignZoneRow(I_CURSOR); - else - exit; - end if; - end if; - if (VF_ROW_SET.count = 0 and Z_FORM_STATUS != WSGL.FORM_STATUS_ERROR) or l_row_no_lock then - FORM_VAL.CODE := WSGL.EscapeItem(CURR_VAL.CODE); - FORM_VAL.NAME := WSGL.EscapeItem(CURR_VAL.NAME); - FORM_VAL.PRIMARY_CONTACT := WSGL.EscapeItem(CURR_VAL.PRIMARY_CONTACT); - FORM_VAL.PRIMARY_CONTACT_TEL := WSGL.EscapeItem(CURR_VAL.PRIMARY_CONTACT_TEL); - FORM_VAL.CUTY_ID := WSGL.EscapeItem(WSGL.DomainMeaning(D_CUTY_ID, CURR_VAL.CUTY_ID)); - FORM_VAL.STATUS := WSGL.EscapeItem(WSGL.DomainMeaning(D_STATUS, CURR_VAL.STATUS)); - FORM_VAL.EMAIL_ADDRESS := WSGL.EscapeItem(CURR_VAL.EMAIL_ADDRESS); - FORM_VAL.DESCRIPTION := WSGL.EscapeItem(CURR_VAL.DESCRIPTION); - FORM_VAL.TELEPHONE := WSGL.EscapeItem(CURR_VAL.TELEPHONE); - FORM_VAL.FAX := WSGL.EscapeItem(CURR_VAL.FAX); - FORM_VAL.KAM_TELEPHONE := WSGL.EscapeItem(CURR_VAL.KAM_TELEPHONE); - FORM_VAL.PERIOD_START := WSGL.EscapeItem(ltrim(to_char(CURR_VAL.PERIOD_START, 'DD/MM/YYYY'))); - FORM_VAL.PERIOD_END := WSGL.EscapeItem(ltrim(to_char(CURR_VAL.PERIOD_END, 'DD/MM/YYYY'))); - end if; - FORM_VAL.CUST_ID := WSGL.EscapeItem(CURR_VAL.CUST_ID); - FORM_VAL.KAM_MANAGER := WSGL.EscapeItem(CURR_VAL.KAM_MANAGER_SYUS_ID); - FORM_VAL.CREATED_BY := WSGL.EscapeItem(CURR_VAL.CREATED_BY); - FORM_VAL.CREATED_ON := WSGL.EscapeItem(ltrim(to_char(CURR_VAL.CREATED_ON, 'DD-MON-RRRR'))); - FORM_VAL.UPDATED_BY := WSGL.EscapeItem(CURR_VAL.UPDATED_BY); - FORM_VAL.UPDATED_ON := WSGL.EscapeItem(ltrim(to_char(CURR_VAL.UPDATED_ON, 'DD-MON-RRRR'))); - - if l_row > 1 then - WSGL.Separator('class = cgupseparator'); - end if; - l_force_upd := false; - if not PostQuery(Z_POST_DML, l_force_upd) then - if cg$errors.pop(l_error) then - WSGL.LayoutTextLine(htf.bold(''|| - htf.italic(WSGL.MsgGetText(122,WSGLM.DSP122_ERROR))|| ' '||l_error)); - end if; - end if; - if not l_row_deleted then - WSGL.HiddenField('P_CUST_ID', CURR_VAL.CUST_ID); - WSGL.HiddenField('O_CUST_ID', CURR_VAL.CUST_ID); - end if; - l_skip_data := false; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Short Name*#2464#:')); - if (l_row_deleted) then - WSGL.LayoutData(FORM_VAL.CODE); - else - WSGL.LayoutData(WSGL.BuildTextControl('CODE', '10', '1', '20',FORM_VAL.CODE, p_onchange=>TRUE, p_row=>(l_row), p_img_path=>'/images/')); - end if; - WSGL.LayoutRowEnd; - l_skip_data := false; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Full Name*#2461#:')); - if (l_row_deleted) then - WSGL.LayoutData(FORM_VAL.NAME); - else - WSGL.LayoutData(WSGL.BuildTextControl('NAME', '38', '1', '100',FORM_VAL.NAME, p_onchange=>TRUE, p_row=>(l_row), p_img_path=>'/images/')); - end if; - WSGL.LayoutRowEnd; - if ( l_skip_data ) then - WSGL.SkipData; - else - WSGL.LayoutData(' '); - end if; - WSGL.LayoutRowEnd; - WSGL.LayoutData(' '); - WSGL.LayoutRowEnd; - l_skip_data := false; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Primary Contact*#2472#:')); - if (l_row_deleted) then - WSGL.LayoutData(FORM_VAL.PRIMARY_CONTACT); - else - WSGL.LayoutData(WSGL.BuildTextControl('PRIMARY_CONTACT', '38', '1', '50',FORM_VAL.PRIMARY_CONTACT, p_onchange=>TRUE, p_row=>(l_row), p_img_path=>'/images/')); - end if; - WSGL.LayoutRowEnd; - l_skip_data := false; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Primary Contact Tel.*#2473#:')); - if (l_row_deleted) then - WSGL.LayoutData(FORM_VAL.PRIMARY_CONTACT_TEL); - else - WSGL.LayoutData(WSGL.BuildTextControl('PRIMARY_CONTACT_TEL', '38', '1', '30',FORM_VAL.PRIMARY_CONTACT_TEL, p_onchange=>TRUE, p_row=>(l_row), p_img_path=>'/images/')); - end if; - WSGL.LayoutRowEnd; - if ( l_skip_data ) then - WSGL.SkipData; - else - WSGL.LayoutData(' '); - end if; - WSGL.LayoutRowEnd; - WSGL.LayoutData(' '); - WSGL.LayoutRowEnd; - l_skip_data := false; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Customer Type#2478#:')); - if (l_row_deleted) then - WSGL.LayoutData(FORM_VAL.CUTY_ID); - else - WSGL.LayoutData(WSGL.BuildDVControl(D_CUTY_ID, WSGL.CTL_UPDATABLE, FORM_VAL.CUTY_ID, p_onchange=>TRUE, p_row=>(l_row), p_multirow=>true, p_img_path=>'/images/')); - end if; - WSGL.LayoutRowEnd; - l_skip_data := false; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Status*#2476#:')); - if (l_row_deleted) then - WSGL.LayoutData(FORM_VAL.STATUS); - else - WSGL.LayoutData(WSGL.BuildDVControl(D_STATUS, WSGL.CTL_UPDATABLE, FORM_VAL.STATUS, p_onchange=>TRUE, p_row=>(l_row), p_multirow=>true, p_img_path=>'/images/')); - end if; - WSGL.LayoutRowEnd; - if ( l_skip_data ) then - WSGL.SkipData; - else - WSGL.LayoutData(' '); - end if; - WSGL.LayoutRowEnd; - WSGL.LayoutData(' '); - WSGL.LayoutRowEnd; - l_skip_data := false; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Email Address*#2462#:')); - if (l_row_deleted) then - WSGL.LayoutData(FORM_VAL.EMAIL_ADDRESS); - else - WSGL.LayoutData(WSGL.BuildTextControl('EMAIL_ADDRESS', '38', '1', '80',FORM_VAL.EMAIL_ADDRESS, p_onchange=>TRUE, p_row=>(l_row), p_img_path=>'/images/')); - end if; - WSGL.LayoutRowEnd; - l_skip_data := false; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Description#20#:')); - if (l_row_deleted) then - WSGL.LayoutData(FORM_VAL.DESCRIPTION); - else - WSGL.LayoutData(WSGL.BuildTextControl('DESCRIPTION', '30', '4', '32760',FORM_VAL.DESCRIPTION, p_onchange=>TRUE, p_row=>(l_row), p_img_path=>'/images/')); - end if; - WSGL.LayoutRowEnd; - if ( l_skip_data ) then - WSGL.SkipData; - else - WSGL.LayoutData(' '); - end if; - WSGL.LayoutRowEnd; - WSGL.LayoutData(' '); - WSGL.LayoutRowEnd; - l_skip_data := false; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Telephone*#2463#:')); - if (l_row_deleted) then - WSGL.LayoutData(FORM_VAL.TELEPHONE); - else - WSGL.LayoutData(WSGL.BuildTextControl('TELEPHONE', '38', '1', '30',FORM_VAL.TELEPHONE, p_onchange=>TRUE, p_row=>(l_row), p_img_path=>'/images/')); - end if; - WSGL.LayoutRowEnd; - l_skip_data := false; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Fax*#2465#:')); - if (l_row_deleted) then - WSGL.LayoutData(FORM_VAL.FAX); - else - WSGL.LayoutData(WSGL.BuildTextControl('FAX', '38', '1', '30',FORM_VAL.FAX, p_onchange=>TRUE, p_row=>(l_row), p_img_path=>'/images/')); - end if; - WSGL.LayoutRowEnd; - if ( l_skip_data ) then - WSGL.SkipData; - else - WSGL.LayoutData(' '); - end if; - WSGL.LayoutRowEnd; - WSGL.LayoutData(' '); - WSGL.LayoutRowEnd; - l_skip_data := false; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#KAM Manager Name#2185#:')); - if (l_row_deleted) then - WSGL.LayoutData(FORM_VAL.UI_KAM_MGR_NAME); - else - WSGL.LayoutData(WSGL.BuildTextControl('UI_KAM_MGR_NAME', '20', '1', '32760',FORM_VAL.UI_KAM_MGR_NAME, p_onchange=>TRUE, p_row=>(l_row), p_img_path=>'/images/') || ' ' || - WSGJSL.LOVButton('UI_KAM_MGR_NAME',LOV_BUTTON_TEXT,'efnow110$cust$VForm', (l_row - 1))); - end if; - WSGL.LayoutRowEnd; - l_skip_data := false; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#KAM Manager Tel.#2186#:')); - if (l_row_deleted) then - WSGL.LayoutData(FORM_VAL.KAM_TELEPHONE); - else - WSGL.LayoutData(WSGL.BuildTextControl('KAM_TELEPHONE', '38', '1', '30',FORM_VAL.KAM_TELEPHONE, p_onchange=>TRUE, p_row=>(l_row), p_img_path=>'/images/')); - end if; - WSGL.LayoutRowEnd; - if ( l_skip_data ) then - WSGL.SkipData; - else - WSGL.LayoutData(' '); - end if; - WSGL.LayoutRowEnd; - WSGL.LayoutData(' '); - WSGL.LayoutRowEnd; - l_skip_data := false; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Period Start*#2460#:')); - if (l_row_deleted) then - WSGL.LayoutData(FORM_VAL.PERIOD_START); - else - WSGL.LayoutData(WSGL.BuildTextControl('PERIOD_START', '11', '1', '10',FORM_VAL.PERIOD_START, p_onchange=>TRUE , p_cal_but_text => CAL_BUTTON_TEXT - , p_cal_prompt => '#Period Start*#2460#' - , p_cal_date_format => 'DD/MM/YYYY' - , p_form => 'efnow110$cust$VForm', p_row=>(l_row), p_img_path=>'/images/')); - end if; - WSGL.LayoutRowEnd; - l_skip_data := false; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Period End#27#:')); - if (l_row_deleted) then - WSGL.LayoutData(FORM_VAL.PERIOD_END); - else - WSGL.LayoutData(WSGL.BuildTextControl('PERIOD_END', '11', '1', '10',FORM_VAL.PERIOD_END, p_onchange=>TRUE , p_cal_but_text => CAL_BUTTON_TEXT - , p_cal_prompt => '#Period End#27#' - , p_cal_date_format => 'DD/MM/YYYY' - , p_form => 'efnow110$cust$VForm', p_row=>(l_row), p_img_path=>'/images/')); - end if; - WSGL.LayoutRowEnd; - if (l_row_deleted) then - WSGL.LayoutData(' '); - else - WSGL.LayoutData(''); - end if; - WSGL.LayoutRowEnd; - - -- Calculate Checksums for details - C_CUIN := to_char(WSGL.Checksum - ( CURR_VAL.CUST_ID - || to_char(efnow110$cust.CURR_VAL.CUST_ID) - )); - - - WSGL.HiddenField('C_CUIN', C_CUIN); - - - htp.script('P_CUST_ID[' || (l_row - 1) ||'] = "' || WSGL.EscapeURLParam(nvl(to_char(CURR_VAL.CUST_ID), '')) || '";' ); - htp.script('P_2[' || (l_row - 1) ||'] = "' || WSGL.EscapeURLParam(nvl(to_char(efnow110$cust.CURR_VAL.CUST_ID), '')) || '";' ); - htp.script('CUIN_CHK_VALUE[' || (l_row - 1) ||'] = ' || C_CUIN || ';' ); - - - - - - WSGL.LayoutData( - WSGL.ReturnSubmitButton('Z_ACTION', '#Intermediaries#1059#', 'AI_INTE', p_target=>'_top', p_index=>(l_row-1)) -); - WSGL.LayoutRowEnd; - - - if not (l_row_deleted) then - htp.p(WSGJSL.OpenScript); - if l_force_upd then - htp.p('document.write('''');'); - else - htp.p('document.write('''');'); - end if; - htp.p(WSGJSL.CloseScript); - WSGL.HiddenField('O_CODE', CURR_VAL.CODE); - WSGL.HiddenField('O_NAME', CURR_VAL.NAME); - WSGL.HiddenField('O_PRIMARY_CONTACT', CURR_VAL.PRIMARY_CONTACT); - WSGL.HiddenField('O_PRIMARY_CONTACT_TEL', CURR_VAL.PRIMARY_CONTACT_TEL); - WSGL.HiddenField('O_CUTY_ID', CURR_VAL.CUTY_ID); - WSGL.HiddenField('O_STATUS', CURR_VAL.STATUS); - WSGL.HiddenField('O_EMAIL_ADDRESS', CURR_VAL.EMAIL_ADDRESS); - WSGL.HiddenField('O_DESCRIPTION', CURR_VAL.DESCRIPTION); - WSGL.HiddenField('O_TELEPHONE', CURR_VAL.TELEPHONE); - WSGL.HiddenField('O_FAX', CURR_VAL.FAX); - WSGL.HiddenField('O_KAM_MANAGER', CURR_VAL.KAM_MANAGER_SYUS_ID); - WSGL.HiddenField('O_KAM_TELEPHONE', CURR_VAL.KAM_TELEPHONE); - WSGL.HiddenField('O_CREATED_BY', CURR_VAL.CREATED_BY); - WSGL.HiddenField('O_CREATED_ON', to_char(CURR_VAL.CREATED_ON,'JSSSSS')); - WSGL.HiddenField('O_UPDATED_BY', CURR_VAL.UPDATED_BY); - WSGL.HiddenField('O_UPDATED_ON', to_char(CURR_VAL.UPDATED_ON,'JSSSSS')); - WSGL.HiddenField('O_PERIOD_START', to_char(CURR_VAL.PERIOD_START,'JSSSSS')); - WSGL.HiddenField('O_PERIOD_END', to_char(CURR_VAL.PERIOD_END,'JSSSSS')); - - end if; - - end loop; - WSGL.LayoutClose; - - if l_row < 3 then - WSGL.HiddenField('P_CUST_ID',''); - WSGL.HiddenField('P_CODE',''); - WSGL.HiddenField('P_NAME',''); - WSGL.HiddenField('P_PRIMARY_CONTACT',''); - WSGL.HiddenField('P_PRIMARY_CONTACT_TEL',''); - WSGL.HiddenField('P_CUTY_ID',''); - WSGL.HiddenField('P_STATUS',''); - WSGL.HiddenField('P_EMAIL_ADDRESS',''); - WSGL.HiddenField('P_DESCRIPTION',''); - WSGL.HiddenField('P_TELEPHONE',''); - WSGL.HiddenField('P_FAX',''); - WSGL.HiddenField('P_UI_KAM_MGR_NAME',''); - WSGL.HiddenField('P_KAM_TELEPHONE',''); - WSGL.HiddenField('P_PERIOD_START',''); - WSGL.HiddenField('P_PERIOD_END',''); - WSGL.HiddenField('O_CODE', ''); - WSGL.HiddenField('O_NAME', ''); - WSGL.HiddenField('O_PRIMARY_CONTACT', ''); - WSGL.HiddenField('O_PRIMARY_CONTACT_TEL', ''); - WSGL.HiddenField('O_CUTY_ID', ''); - WSGL.HiddenField('O_STATUS', ''); - WSGL.HiddenField('O_EMAIL_ADDRESS', ''); - WSGL.HiddenField('O_DESCRIPTION', ''); - WSGL.HiddenField('O_TELEPHONE', ''); - WSGL.HiddenField('O_FAX', ''); - WSGL.HiddenField('O_KAM_MANAGER', ''); - WSGL.HiddenField('O_KAM_TELEPHONE', ''); - WSGL.HiddenField('O_CREATED_BY', ''); - WSGL.HiddenField('O_CREATED_ON', ''); - WSGL.HiddenField('O_UPDATED_BY', ''); - WSGL.HiddenField('O_UPDATED_ON', ''); - WSGL.HiddenField('O_PERIOD_START', ''); - WSGL.HiddenField('O_PERIOD_END', ''); - WSGL.HiddenField('z_modified','dummy_row'); - end if; - - WSGL.HiddenField('C_CUIN', ''); - dbms_sql.close_cursor(I_CURSOR); - - if l_rows_ret > 0 then - I_NEXT_BUT := true; - end if; - - if l_total_rows = 0 then - htp.p(WSGL.MsgGetText(112, WSGLM.DSP112_NO_RECORDS)); - htp.para; - elsif Z_MULTI_PAGE then - if I_START = l_total_rows or VF_RECORD_SET_SIZE = 1 then - htp.p(WSGL.MsgGetText(109,WSGLM.DSP109_RECORD, to_char(I_START))||l_total_text); - else - if I_NEXT_BUT then - htp.p(WSGL.MsgGetText(110,WSGLM.DSP110_RECORDS_N_M, - to_char(I_START), to_char(l_total_rows - 1))||l_total_text); - else - htp.p(WSGL.MsgGetText(110,WSGLM.DSP110_RECORDS_N_M, - to_char(I_START), to_char(l_total_rows))||l_total_text); - end if; - end if; - htp.para; - end if; - - WSGL.SubmitButton('Z_ACTION', VF_UPDATE_BUT_CAPTION, 'btnVFU', 'this.form.Z_ACTION.value=\''' || VF_UPDATE_BUT_ACTION || '\'''); - htp.formReset(VF_CLEAR_BUT_CAPTION, cattributes=>'ID="'||VF_CLEAR_BUT_CAPTION||'"'||' onClick="return JSLRevertForm( this.form, '|| l_row ||' )"'); - - - if VF_ROW_SET.count > 0 then - I_START := nvl(I_START, 1); - l_ntom_butstr := replace(l_ntom_butstr, '%s', to_char(I_START)); - l_ntom_butstr := replace(l_ntom_butstr, '%e', to_char(I_START + VF_RECORD_SET_SIZE - 1)); - WSGL.RecordListButton(TRUE, 'Z_ACTION', l_ntom_butstr, p_dojs=>FALSE, - buttonJS => 'onClick="return JSLCheckModified( this.form, \''' || VF_NTOM_BUT_ACTION || '\'', true)"', - p_type_button=>true); - end if; - - WSGL.SubmitButton('Z_ACTION', VF_INSERT_BUT_CAPTION, 'btnVFI', 'this.form.Z_ACTION.value=\''' || VF_INSERT_BUT_ACTION || '\'''); - if Z_MULTI_PAGE and VF_ROW_SET.count = 0 then - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', VF_FIRST_BUT_CAPTION, WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="return JSLCheckModified( this.form, \''' || VF_FIRST_BUT_ACTION || '\'', true)"', - p_type_button=>true); - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', VF_PREV_BUT_CAPTION, WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="return JSLCheckModified( this.form, \''' || VF_PREV_BUT_ACTION || '\'', true)"', - p_type_button=>true); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', VF_NEXT_BUT_CAPTION, WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="return JSLCheckModified( this.form, \''' || VF_NEXT_BUT_ACTION || '\'', true)"', - p_type_button=>true); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', VF_LAST_BUT_CAPTION, WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="return JSLCheckModified( this.form, \''' || VF_LAST_BUT_ACTION || '\'', true)"', - p_type_button=>true); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', VF_REQUERY_BUT_CAPTION,p_dojs=>FALSE, - buttonJS => 'onClick="return JSLCheckModified( this.form, \''' || VF_REQUERY_BUT_ACTION || '\'', true)"', - p_type_button=>true); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', VF_COUNT_BUT_CAPTION,p_dojs=>FALSE, - buttonJS => 'onClick="return JSLCheckModified( this.form, \''' || VF_COUNT_BUT_ACTION || '\'', true)"', - p_type_button=>true); - htp.para; - - WSGL.RecordListButton(TRUE, 'Z_ACTION', VF_QUERY_BUT_CAPTION,p_dojs=>FALSE, - buttonJS => 'onClick="return JSLCheckModified( this.form, \''' || VF_QUERY_BUT_ACTION || '\'', true)"', - p_type_button=>true); - end if; - - WSGL.HiddenField('Z_CHK', - to_char(WSGL.Checksum(''||CURR_VAL.CUST_ID))); - - WSGL.HiddenField('Q_UI_CODE', Q_UI_CODE); - WSGL.HiddenField('Q_UI_NAME', Q_UI_NAME); - - WSGL.HiddenField('Z_START', to_char(I_START)); - - htp.formClose; - - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow110$cust.actionview', ctarget=>'_parent', cattributes => 'NAME="efnow110$cust$VFormQry"'); - SaveState; - htp.p (''); - WSGL.HiddenField('z_modified','dummy_row'); - WSGL.HiddenField('P_CUST_ID',''); - if VF_ROW_SET.count = 0 and not Z_MULTI_PAGE then - WSGL.RecordListButton(TRUE, 'Z_ACTION', VF_QUERY_BUT_CAPTION, p_dojs=>FALSE, - buttonJS => 'onClick="return JSLCheckModified( this.form, \''' || VF_QUERY_BUT_ACTION || '\'', true)"', - p_type_button=>true); - end if; - htp.formClose; - - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="VF$AIFormBottom"'); - htp.formClose; - WSGL.ReturnLinks('0.1', WSGL.MENU_LONG, p_target=>'_top'); - WSGL.NavLinks; - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - VF_BODY_ATTRIBUTES, 'efnow110$cust.FormView'); - WSGL.ClosePageBody; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.QueryView --- --- Description: Queries the details of a single row in preparation for display. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure QueryView( - K_CUST_ID in varchar2, - P_UI_CODE in varchar2, - P_UI_NAME in varchar2, - Z_EXECUTE_QUERY in varchar2, - Z_POST_DML in boolean, - Z_FORM_STATUS in number, - Z_DIRECT_CALL in boolean, - Z_START in varchar2, - Z_ACTION in varchar2, - Z_CHK in varchar2) is - L_ROW_ID ROWID; - begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - - - WSGL.RegisterURL('efnow110$cust.queryview'); - WSGL.AddURLParam('K_CUST_ID', K_CUST_ID); - WSGL.AddURLParam('P_UI_CODE', P_UI_CODE); - WSGL.AddURLParam('P_UI_NAME', P_UI_NAME); - WSGL.AddURLParam('Z_EXECUTE_QUERY', Z_EXECUTE_QUERY); - WSGL.AddURLParam('Z_START', Z_START); - WSGL.AddURLParam('Z_ACTION', Z_ACTION); - WSGL.AddURLParam('Z_CHK', Z_CHK); - - - if not Z_DIRECT_CALL then - - null; - - end if; - - - - - null; - - - - if K_CUST_ID is not null then - CURR_VAL.CUST_ID := K_CUST_ID; - end if; - if (Z_ACTION = VF_INSERT_BUT_ACTION) or (Z_ACTION = VF_INSERT_BUT_CAPTION) then - FormInsert( - Z_DIRECT_CALL=>TRUE); - return; - end if; - - if Z_EXECUTE_QUERY is null then - if VF_ROW_SET.count = 0 then - if BuildSQL( Z_QUERY_BY_KEY=>true) then - FormView(Z_FORM_STATUS=>Z_FORM_STATUS, - Q_UI_CODE=>P_UI_CODE, - Q_UI_NAME=>P_UI_NAME, - Z_POST_DML=>Z_POST_DML, Z_MULTI_PAGE=>false, Z_ACTION=>Z_ACTION, Z_START=>Z_START); - end if; - else - if BuildSQL( z_bind_row_id=>true ) then - FormView(Z_FORM_STATUS=>Z_FORM_STATUS, - Q_UI_CODE=>P_UI_CODE, - Q_UI_NAME=>P_UI_NAME, - Z_POST_DML=>Z_POST_DML, Z_MULTI_PAGE=>false, Z_ACTION=>Z_ACTION, Z_START=>Z_START); - end if; - end if; - - else - if not PreQuery( - P_UI_CODE=>P_UI_CODE, - P_UI_NAME=>P_UI_NAME) then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Maintain Customer#1058#', VF_BODY_ATTRIBUTES); - return; - end if; - - if BuildSQL - (P_UI_CODE=>P_UI_CODE - ,P_UI_NAME=>P_UI_NAME - ) - then - FormView(Z_FORM_STATUS=>Z_FORM_STATUS, - Q_UI_CODE=>P_UI_CODE, - Q_UI_NAME=>P_UI_NAME, - Z_POST_DML=>Z_POST_DML, Z_MULTI_PAGE=>true, Z_ACTION=>Z_ACTION, Z_START=>Z_START); - end if; - - end if; - - exception - when NO_DATA_FOUND then - WSGL.DisplayMessage(WSGL.MESS_ERROR, WSGL.MsgGetText(204, WSGLM.MSG204_ROW_DELETED), - ''||' : '||'#Maintain Customer#1058#', VF_BODY_ATTRIBUTES); - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - VF_BODY_ATTRIBUTES, 'efnow110$cust.QueryView'); - end; --------------------------------------------------------------------------------- --- Name: efnow110$cust.QueryViewByKey --- --- Description: Queries the details of a single row in preparation for display. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure QueryViewByKey( - P_CUST_ID in varchar2, - Z_POST_DML in boolean, - Z_FORM_STATUS in number, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2) is -begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - QueryView( - K_CUST_ID=>P_CUST_ID, - Z_EXECUTE_QUERY=>null, - Z_POST_DML=>Z_POST_DML, - Z_FORM_STATUS=>Z_FORM_STATUS, - Z_DIRECT_CALL=>Z_DIRECT_CALL, - Z_CHK=>Z_CHK); -end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.FormInsert --- --- Description: This procedure builds an HTML form for insert of data in --- the 'CUST' module component (#Maintain Customer#1058#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure FormInsert( - Z_FORM_STATUS in number, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2) - is - l_row integer; - l_error varchar2(2000); - l_error_num integer := IF_ROWS_ERROR; - l_success boolean := true; - begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - if not Z_DIRECT_CALL then - - null; - - end if; - - - WSGL.OpenPageHead(''||' : '||'#Maintain Customer#1058#'); - WSGL.METATag; - - efnow110$.TemplateHeader(TRUE,5); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>IF_BODY_ATTRIBUTES || 'onLoad="return CUST_OnLoad()"'); - efnow110$js$cust.CreateInsertJavaScript( - IF_ROWS_INSERTED, - IF_ROWS_ERROR, - IF_BODY_ATTRIBUTES, - LOV_FRAME - ); - l_success := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => false - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - WSGOC.Set_AfterText(REF_COMPONENT,' -'||htf.nl||htf.nl||htf.italic('''*'''||caco_utilities.get_module_text(2202))||' -'); - - - htp.p(caco_system.menu); - - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - InitialiseDomain('CUTY_ID'); - InitialiseDomain('STATUS'); - - if Z_FORM_STATUS = WSGL.FORM_STATUS_OK then - FORM_VAL.UI_CODE := null; - FORM_VAL.UI_NAME := null; - FORM_VAL.CUST_ID := null; - FORM_VAL.CODE := null; - FORM_VAL.NAME := null; - FORM_VAL.PRIMARY_CONTACT := null; - FORM_VAL.PRIMARY_CONTACT_TEL := null; - FORM_VAL.CUTY_ID := null; - FORM_VAL.STATUS := WSGL.DomainMeaning(efnow110$cust.D_STATUS, 'R'); - FORM_VAL.EMAIL_ADDRESS := null; - FORM_VAL.DESCRIPTION := null; - FORM_VAL.TELEPHONE := null; - FORM_VAL.FAX := null; - FORM_VAL.KAM_MANAGER := null; - FORM_VAL.UI_KAM_MGR_NAME := null; - FORM_VAL.KAM_TELEPHONE := null; - FORM_VAL.CREATED_BY := null; - FORM_VAL.CREATED_ON := null; - FORM_VAL.UPDATED_BY := null; - FORM_VAL.UPDATED_ON := null; - FORM_VAL.PERIOD_START := null; - FORM_VAL.PERIOD_END := null; - else - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - ''||' : '||'#Maintain Customer#1058#', IF_BODY_ATTRIBUTES); - end if; - - if IF_ROWS_INSERTED > 0 then - htp.p( ''||WSGL.MsgGetText(130,WSGLM.DSP130_ROWS_INSERTED)||' '||to_char(IF_ROWS_INSERTED)||'
' ); - end if; - if IF_ROWS_ERROR > 0 then - htp.p( ''||WSGL.MsgGetText(131,WSGLM.DSP131_ROWS_NOT_INSERTED)||' '||to_char(IF_ROWS_ERROR)||'
' ); - end if; - htp.p(WSGL.MsgGetText(117, WSGLM.DSP117_ENTER_NEW_ROW, '#Maintain Customer#1058#')); - htp.para; - - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow110$cust.actioninsert', cattributes => 'NAME="efnow110$cust$IForm"'); - SaveState; - - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE); - WSGL.LayoutRowStart; - for i in 1..IF_NUMBER_OF_COLUMNS loop - WSGL.LayoutHeader(29, 'LEFT', NULL); - WSGL.LayoutHeader(50, 'LEFT', NULL); - end loop; - WSGL.LayoutRowEnd; - for l_row in 1..IF_ROWS_ERROR + 1 loop - if l_error_num > 0 and cg$errors.pop_head( l_error ) then - WSGL.LayoutTextLine(htf.bold(''||htf.italic(WSGL.MsgGetText(122,WSGLM.DSP122_ERROR))|| ' '||l_error)); - -- FORM_VAL := IF_FORM_ERRORS( l_row ); - FORM_VAL.UI_CODE := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).UI_CODE); - FORM_VAL.UI_NAME := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).UI_NAME); - FORM_VAL.CUST_ID := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).CUST_ID); - FORM_VAL.CODE := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).CODE); - FORM_VAL.NAME := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).NAME); - FORM_VAL.PRIMARY_CONTACT := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).PRIMARY_CONTACT); - FORM_VAL.PRIMARY_CONTACT_TEL := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).PRIMARY_CONTACT_TEL); - FORM_VAL.CUTY_ID := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).CUTY_ID); - FORM_VAL.STATUS := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).STATUS); - FORM_VAL.EMAIL_ADDRESS := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).EMAIL_ADDRESS); - FORM_VAL.DESCRIPTION := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).DESCRIPTION); - FORM_VAL.TELEPHONE := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).TELEPHONE); - FORM_VAL.FAX := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).FAX); - FORM_VAL.KAM_MANAGER := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).KAM_MANAGER); - FORM_VAL.UI_KAM_MGR_NAME := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).UI_KAM_MGR_NAME); - FORM_VAL.KAM_TELEPHONE := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).KAM_TELEPHONE); - FORM_VAL.CREATED_BY := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).CREATED_BY); - FORM_VAL.CREATED_ON := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).CREATED_ON); - FORM_VAL.UPDATED_BY := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).UPDATED_BY); - FORM_VAL.UPDATED_ON := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).UPDATED_ON); - FORM_VAL.PERIOD_START := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).PERIOD_START); - FORM_VAL.PERIOD_END := WSGL.EscapeItem(IF_FORM_ERRORS( l_row ).PERIOD_END); - - l_error_num := l_error_num - 1; - else - if (l_row = IF_ROWS_ERROR + 1) and (IF_ROWS_ERROR <> 0) then - WSGL.LayoutTextLine(' '); - end if; - end if; - WSGL.LayoutRowEnd; - WSGL.LayoutRowEnd; - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Short Name*#2464#:')); - WSGL.LayoutData(WSGL.BuildTextControl('CODE', '10', '1', '20',FORM_VAL.CODE, p_row=>1 -, p_img_path=>'/images/')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Full Name*#2461#:')); - WSGL.LayoutData(WSGL.BuildTextControl('NAME', '38', '1', '100',FORM_VAL.NAME, p_row=>1 -, p_img_path=>'/images/')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Primary Contact*#2472#:')); - WSGL.LayoutData(WSGL.BuildTextControl('PRIMARY_CONTACT', '38', '1', '50',FORM_VAL.PRIMARY_CONTACT, p_row=>1 -, p_img_path=>'/images/')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Primary Contact Tel.*#2473#:')); - WSGL.LayoutData(WSGL.BuildTextControl('PRIMARY_CONTACT_TEL', '38', '1', '30',FORM_VAL.PRIMARY_CONTACT_TEL, p_row=>1 -, p_img_path=>'/images/')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Customer Type#2478#:')); - WSGL.LayoutData(WSGL.BuildDVControl(D_CUTY_ID, WSGL.CTL_INSERTABLE, FORM_VAL.CUTY_ID, p_row=>1 -, p_img_path=>'/images/')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Status*#2476#:')); - WSGL.LayoutData(WSGL.BuildDVControl(D_STATUS, WSGL.CTL_INSERTABLE, FORM_VAL.STATUS, p_row=>1 -, p_img_path=>'/images/')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Email Address*#2462#:')); - WSGL.LayoutData(WSGL.BuildTextControl('EMAIL_ADDRESS', '38', '1', '80',FORM_VAL.EMAIL_ADDRESS, p_row=>1 -, p_img_path=>'/images/')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Description#20#:')); - WSGL.LayoutData(WSGL.BuildTextControl('DESCRIPTION', '30', '4', '32760',FORM_VAL.DESCRIPTION, p_row=>1 -, p_img_path=>'/images/')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Telephone*#2463#:')); - WSGL.LayoutData(WSGL.BuildTextControl('TELEPHONE', '38', '1', '30',FORM_VAL.TELEPHONE, p_row=>1 -, p_img_path=>'/images/')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Fax*#2465#:')); - WSGL.LayoutData(WSGL.BuildTextControl('FAX', '38', '1', '30',FORM_VAL.FAX, p_row=>1 -, p_img_path=>'/images/')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#KAM Manager Name#2185#:')); - WSGL.LayoutData(WSGL.BuildTextControl('UI_KAM_MGR_NAME', '20', '1', '32760',FORM_VAL.UI_KAM_MGR_NAME, p_row=>1 -, p_img_path=>'/images/') || ' ' || - WSGJSL.LOVButton('UI_KAM_MGR_NAME',LOV_BUTTON_TEXT,'efnow110$cust$IForm')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#KAM Manager Tel.#2186#:')); - WSGL.LayoutData(WSGL.BuildTextControl('KAM_TELEPHONE', '38', '1', '30',FORM_VAL.KAM_TELEPHONE, p_row=>1 -, p_img_path=>'/images/')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowEnd; - WSGL.LayoutRowEnd; - WSGL.LayoutRowEnd; - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Period Start*#2460#:')); - WSGL.LayoutData(WSGL.BuildTextControl('PERIOD_START', '11', '1', '10',FORM_VAL.PERIOD_START - , p_cal_but_text => CAL_BUTTON_TEXT - , p_cal_prompt => '#Period Start*#2460#' - , p_cal_date_format => 'DD/MM/YYYY' - , p_form => 'efnow110$cust$IForm' -, p_row=>1 -, p_img_path=>'/images/')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Period End#27#:')); - WSGL.LayoutData(WSGL.BuildTextControl('PERIOD_END', '11', '1', '10',FORM_VAL.PERIOD_END - , p_cal_but_text => CAL_BUTTON_TEXT - , p_cal_prompt => '#Period End#27#' - , p_cal_date_format => 'DD/MM/YYYY' - , p_form => 'efnow110$cust$IForm' -, p_row=>1 -, p_img_path=>'/images/')); - WSGL.LayoutRowEnd; - - WSGL.HiddenField('z_modified','Y'); - end loop; - WSGL.HiddenField( 'z_modified', 'dummy_row' ); - WSGL.LayoutClose; - - WSGL.SubmitButton('Z_ACTION', IF_INSERT_BUT_CAPTION, 'btnIFI', 'this.form.Z_ACTION.value=\''' || IF_INSERT_BUT_ACTION || '\'''); - if Z_FORM_STATUS != WSGL.FORM_STATUS_ERROR then - htp.formReset(IF_CLEAR_BUT_CAPTION, 'ID="'||IF_CLEAR_BUT_CAPTION||'"'); - else - WSGL.SubmitButton('Z_ACTION', IF_CLEAR_BUT_CAPTION, 'btnIFR', 'this.form.Z_ACTION.value=\''' || IF_CLEAR_BUT_ACTION || '\'''); - end if; - - WSGL.HiddenField('Z_CHK', - to_char(WSGL.Checksum(''))); - WSGL.HiddenField('P_CODE', ''); - WSGL.HiddenField('P_NAME', ''); - WSGL.HiddenField('P_PRIMARY_CONTACT', ''); - WSGL.HiddenField('P_PRIMARY_CONTACT_TEL', ''); - WSGL.HiddenField('P_CUTY_ID', ''); - WSGL.HiddenField('P_STATUS', ''); - WSGL.HiddenField('P_EMAIL_ADDRESS', ''); - WSGL.HiddenField('P_DESCRIPTION', ''); - WSGL.HiddenField('P_TELEPHONE', ''); - WSGL.HiddenField('P_FAX', ''); - WSGL.HiddenField('P_UI_KAM_MGR_NAME', ''); - WSGL.HiddenField('P_KAM_TELEPHONE', ''); - WSGL.HiddenField('P_PERIOD_START', ''); - WSGL.HiddenField('P_PERIOD_END', ''); - - htp.formClose; - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="IF$AIFormBottom"'); - htp.formClose; - WSGL.ReturnLinks('0.1', WSGL.MENU_LONG, p_target=>'_top'); - WSGL.NavLinks; - - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - IF_BODY_ATTRIBUTES, 'efnow110$cust.FormInsert'); - WSGL.ClosePageBody; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.ActionView --- --- Description: This procedure is called when the View Form is submitted to --- action an update, delete or requery request. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure ActionView( - P_CUST_ID in owa_text.vc_arr, - P_CODE in owa_text.vc_arr, - P_NAME in owa_text.vc_arr, - P_PRIMARY_CONTACT in owa_text.vc_arr, - P_PRIMARY_CONTACT_TEL in owa_text.vc_arr, - P_CUTY_ID in owa_text.vc_arr, - P_STATUS in owa_text.vc_arr, - P_EMAIL_ADDRESS in owa_text.vc_arr, - P_DESCRIPTION in owa_text.vc_arr, - P_TELEPHONE in owa_text.vc_arr, - P_FAX in owa_text.vc_arr, - P_UI_KAM_MGR_NAME in owa_text.vc_arr, - P_KAM_TELEPHONE in owa_text.vc_arr, - P_PERIOD_START in owa_text.vc_arr, - P_PERIOD_END in owa_text.vc_arr, - O_CUST_ID in owa_text.vc_arr, - O_CODE in owa_text.vc_arr, - O_NAME in owa_text.vc_arr, - O_PRIMARY_CONTACT in owa_text.vc_arr, - O_PRIMARY_CONTACT_TEL in owa_text.vc_arr, - O_CUTY_ID in owa_text.vc_arr, - O_STATUS in owa_text.vc_arr, - O_EMAIL_ADDRESS in owa_text.vc_arr, - O_DESCRIPTION in owa_text.vc_arr, - O_TELEPHONE in owa_text.vc_arr, - O_FAX in owa_text.vc_arr, - O_KAM_MANAGER in owa_text.vc_arr, - O_KAM_TELEPHONE in owa_text.vc_arr, - O_CREATED_BY in owa_text.vc_arr, - O_CREATED_ON in owa_text.vc_arr, - O_UPDATED_BY in owa_text.vc_arr, - O_UPDATED_ON in owa_text.vc_arr, - O_PERIOD_START in owa_text.vc_arr, - O_PERIOD_END in owa_text.vc_arr, - Q_UI_CODE in varchar2, - Q_UI_NAME in varchar2, - z_modified in owa_text.vc_arr, - Z_ACTION in varchar2, - Z_START in varchar2, - Z_CHK in varchar2 , - C_CUIN in owa_text.vc_arr default WSGL.EmptyVCArrLong ) is --- - l_row integer; - l_row_failed boolean := false; - l_success boolean; - l_rowset_row integer := 1; - l_delset_row integer := 1; - l_cbcount integer; - l_do_delete boolean := false; - l_record_lck boolean := false; - l_dummy_bool boolean := false; - - begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - - l_dummy_bool := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - -if (Z_ACTION = VF_COUNT_BUT_ACTION or Z_ACTION = VF_COUNT_BUT_CAPTION) or - (Z_ACTION = VF_FIRST_BUT_ACTION or Z_ACTION = VF_FIRST_BUT_CAPTION) or - (Z_ACTION = VF_PREV_BUT_ACTION or Z_ACTION = VF_PREV_BUT_CAPTION) or - (Z_ACTION = VF_NEXT_BUT_ACTION or Z_ACTION = VF_NEXT_BUT_CAPTION) or - (Z_ACTION = VF_LAST_BUT_ACTION or Z_ACTION = VF_LAST_BUT_CAPTION) or - (Z_ACTION = VF_REQUERY_BUT_ACTION or Z_ACTION = VF_REQUERY_BUT_CAPTION) or - (Z_ACTION = VF_NTOM_BUT_ACTION or Z_ACTION = VF_NTOM_BUT_CAPTION) then - QueryView(Z_EXECUTE_QUERY=>'Y', - P_UI_CODE=>Q_UI_CODE, - P_UI_NAME=>Q_UI_NAME, - Z_POST_DML=>FALSE, - Z_DIRECT_CALL=>TRUE, - Z_ACTION=>Z_ACTION, - Z_START=>Z_START); -end if; - -if (Z_ACTION = VF_INSERT_BUT_ACTION) or (Z_ACTION = VF_INSERT_BUT_CAPTION) then - FormInsert( - Z_DIRECT_CALL=>TRUE); -end if; -if (Z_ACTION = VF_QUERY_BUT_ACTION) or (Z_ACTION = VF_QUERY_BUT_CAPTION) then - FormQuery( - Z_DIRECT_CALL=>TRUE); -end if; -if (Z_ACTION = VF_UPDATE_BUT_ACTION) or (Z_ACTION = VF_UPDATE_BUT_CAPTION) or ltrim(Z_ACTION) is null then - l_row := z_modified.first; - while l_row is not null loop - l_do_delete := false; - if z_modified( l_row ) = 'Y' or l_do_delete then - PROCESSING_VIEW := true; - FORM_VAL.CUST_ID := P_CUST_ID( l_row ); - FORM_VAL.CODE := P_CODE( l_row ); - FORM_VAL.NAME := P_NAME( l_row ); - FORM_VAL.PRIMARY_CONTACT := P_PRIMARY_CONTACT( l_row ); - FORM_VAL.PRIMARY_CONTACT_TEL := P_PRIMARY_CONTACT_TEL( l_row ); - FORM_VAL.CUTY_ID := P_CUTY_ID( l_row ); - FORM_VAL.STATUS := P_STATUS( l_row ); - FORM_VAL.EMAIL_ADDRESS := P_EMAIL_ADDRESS( l_row ); - FORM_VAL.DESCRIPTION := P_DESCRIPTION( l_row ); - FORM_VAL.TELEPHONE := P_TELEPHONE( l_row ); - FORM_VAL.FAX := P_FAX( l_row ); - FORM_VAL.UI_KAM_MGR_NAME := P_UI_KAM_MGR_NAME( l_row ); - FORM_VAL.KAM_TELEPHONE := P_KAM_TELEPHONE( l_row ); - FORM_VAL.PERIOD_START := P_PERIOD_START( l_row ); - FORM_VAL.PERIOD_END := P_PERIOD_END( l_row ); - - PREV_VAL.CUST_ID := P_CUST_ID( l_row ); - PREV_IND.CUST_ID := TRUE; - PREV_VAL.CODE := O_CODE( l_row ); - PREV_IND.CODE := TRUE; - PREV_VAL.NAME := O_NAME( l_row ); - PREV_IND.NAME := TRUE; - PREV_VAL.PRIMARY_CONTACT := O_PRIMARY_CONTACT( l_row ); - PREV_IND.PRIMARY_CONTACT := TRUE; - PREV_VAL.PRIMARY_CONTACT_TEL := O_PRIMARY_CONTACT_TEL( l_row ); - PREV_IND.PRIMARY_CONTACT_TEL := TRUE; - PREV_VAL.CUTY_ID := O_CUTY_ID( l_row ); - PREV_IND.CUTY_ID := TRUE; - PREV_VAL.STATUS := O_STATUS( l_row ); - PREV_IND.STATUS := TRUE; - PREV_VAL.EMAIL_ADDRESS := O_EMAIL_ADDRESS( l_row ); - PREV_IND.EMAIL_ADDRESS := TRUE; - PREV_VAL.DESCRIPTION := O_DESCRIPTION( l_row ); - PREV_IND.DESCRIPTION := TRUE; - PREV_VAL.TELEPHONE := O_TELEPHONE( l_row ); - PREV_IND.TELEPHONE := TRUE; - PREV_VAL.FAX := O_FAX( l_row ); - PREV_IND.FAX := TRUE; - PREV_VAL.KAM_MANAGER_SYUS_ID := O_KAM_MANAGER( l_row ); - PREV_IND.KAM_MANAGER_SYUS_ID := TRUE; - PREV_VAL.KAM_TELEPHONE := O_KAM_TELEPHONE( l_row ); - PREV_IND.KAM_TELEPHONE := TRUE; - PREV_VAL.CREATED_BY := O_CREATED_BY( l_row ); - PREV_IND.CREATED_BY := TRUE; - PREV_VAL.CREATED_ON := to_date(O_CREATED_ON( l_row ), 'JSSSSS'); - PREV_IND.CREATED_ON := TRUE; - PREV_VAL.UPDATED_BY := O_UPDATED_BY( l_row ); - PREV_IND.UPDATED_BY := TRUE; - PREV_VAL.UPDATED_ON := to_date(O_UPDATED_ON( l_row ), 'JSSSSS'); - PREV_IND.UPDATED_ON := TRUE; - PREV_VAL.PERIOD_START := to_date(O_PERIOD_START( l_row ), 'JSSSSS'); - PREV_IND.PERIOD_START := TRUE; - PREV_VAL.PERIOD_END := to_date(O_PERIOD_END( l_row ), 'JSSSSS'); - PREV_IND.PERIOD_END := TRUE; - CURR_IND := NULL_IND; - CURR_VAL := PREV_VAL; - CURR_PK.CUST_ID := CURR_VAL.CUST_ID; - ActionUpdate( p_row=>l_row, p_row_success=>l_success, p_row_lck=>l_record_lck ); - - if ( not l_do_delete ) or ( l_do_delete and not l_success ) then - VF_ROW_SET( l_rowset_row ).ROW_DELETED := false; - begin - select ROWID - into VF_ROW_SET( l_rowset_row ).ROW_ID - from CUSTOMERS - where CUST_ID = CURR_VAL.CUST_ID; - exception when no_data_found then - l_success := false; - VF_ROW_SET( l_rowset_row ).ROW_DELETED := true; - end; - VF_ROW_SET( l_rowset_row ).SUCCESS_FLAG := l_success; - VF_ROW_SET( l_rowset_row ).ROW_NOT_LOCKED := ( not l_record_lck ); - VF_ROW_SET( l_rowset_row ).F_UI_CODE := FORM_VAL.UI_CODE; - VF_ROW_SET( l_rowset_row ).F_UI_NAME := FORM_VAL.UI_NAME; - VF_ROW_SET( l_rowset_row ).F_CUST_ID := FORM_VAL.CUST_ID; - VF_ROW_SET( l_rowset_row ).F_CODE := FORM_VAL.CODE; - VF_ROW_SET( l_rowset_row ).F_NAME := FORM_VAL.NAME; - VF_ROW_SET( l_rowset_row ).F_PRIMARY_CONTACT := FORM_VAL.PRIMARY_CONTACT; - VF_ROW_SET( l_rowset_row ).F_PRIMARY_CONTACT_TEL := FORM_VAL.PRIMARY_CONTACT_TEL; - VF_ROW_SET( l_rowset_row ).F_CUTY_ID := FORM_VAL.CUTY_ID; - VF_ROW_SET( l_rowset_row ).F_STATUS := FORM_VAL.STATUS; - VF_ROW_SET( l_rowset_row ).F_EMAIL_ADDRESS := FORM_VAL.EMAIL_ADDRESS; - VF_ROW_SET( l_rowset_row ).F_DESCRIPTION := FORM_VAL.DESCRIPTION; - VF_ROW_SET( l_rowset_row ).F_TELEPHONE := FORM_VAL.TELEPHONE; - VF_ROW_SET( l_rowset_row ).F_FAX := FORM_VAL.FAX; - VF_ROW_SET( l_rowset_row ).F_KAM_MANAGER := FORM_VAL.KAM_MANAGER; - VF_ROW_SET( l_rowset_row ).F_UI_KAM_MGR_NAME := FORM_VAL.UI_KAM_MGR_NAME; - VF_ROW_SET( l_rowset_row ).F_KAM_TELEPHONE := FORM_VAL.KAM_TELEPHONE; - VF_ROW_SET( l_rowset_row ).F_CREATED_BY := FORM_VAL.CREATED_BY; - VF_ROW_SET( l_rowset_row ).F_CREATED_ON := FORM_VAL.CREATED_ON; - VF_ROW_SET( l_rowset_row ).F_UPDATED_BY := FORM_VAL.UPDATED_BY; - VF_ROW_SET( l_rowset_row ).F_UPDATED_ON := FORM_VAL.UPDATED_ON; - VF_ROW_SET( l_rowset_row ).F_PERIOD_START := FORM_VAL.PERIOD_START; - VF_ROW_SET( l_rowset_row ).F_PERIOD_END := FORM_VAL.PERIOD_END; - if l_success then - VF_ROWS_UPDATED := VF_ROWS_UPDATED + 1; - else - VF_ROWS_ERROR := VF_ROWS_ERROR + 1; - end if; - l_rowset_row := l_rowset_row + 1; - end if; - end if; - l_row := z_modified.next( l_row ); - end loop; - - if VF_ROW_SET.count > 0 then - QueryView(Z_EXECUTE_QUERY=>null, - P_UI_CODE=>Q_UI_CODE, - P_UI_NAME=>Q_UI_NAME, - Z_POST_DML=>TRUE, - Z_DIRECT_CALL=>TRUE, - Z_START=>Z_START, - Z_ACTION=>Z_ACTION); - else - QueryView(Z_EXECUTE_QUERY=>'Y', - P_UI_CODE=>Q_UI_CODE, - P_UI_NAME=>Q_UI_NAME, - Z_POST_DML=>FALSE, - Z_DIRECT_CALL=>TRUE, - Z_START=>Z_START, - Z_ACTION=>Z_ACTION); - end if; -end if; - - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - VF_BODY_ATTRIBUTES, 'efnow110$cust.ActionView'); - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.ActionUpdate --- --- Description: Called from ActionView to process an update request --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure ActionUpdate (p_row in integer default 0 - ,p_row_success in out boolean - ,p_row_lck in out boolean - ) - is - - I_ERROR_MESS varchar2(2000) := null; - I_RETURN number(6); - l_force_upd boolean := false; - - begin - p_row_success := true; - p_row_lck := true; - begin - CG$CUSTOMERS.Lck(PREV_VAL, PREV_IND); - exception - when cg$errors.cg$error then - p_row_success := false; - p_row_lck := false; - return; - when others then - raise; - end; - - - if not Validate('UPD', l_force_upd) then - rollback; - p_row_success := false; - return; - end if; - - - if not PreUpdate then - rollback; - p_row_success := false; - return; - end if; - - begin - CG$CUSTOMERS.Upd(CURR_VAL, CURR_IND); - exception - when cg$errors.cg$error then - p_row_success := false; - rollback; - return; - when others then - raise; - end; - - if not PostUpdate then - rollback; - p_row_success := false; - return; - end if; - - commit; - - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - VF_BODY_ATTRIBUTES, 'efnow110$cust.ActionUpdate'); - end; --------------------------------------------------------------------------------- --- Name: efnow110$cust.ActionInsert --- --- Description: Called when the Insert Form is submitted to process the insert. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure ActionInsert( - P_CODE in owa_text.vc_arr, - P_NAME in owa_text.vc_arr, - P_PRIMARY_CONTACT in owa_text.vc_arr, - P_PRIMARY_CONTACT_TEL in owa_text.vc_arr, - P_CUTY_ID in owa_text.vc_arr, - P_STATUS in owa_text.vc_arr, - P_EMAIL_ADDRESS in owa_text.vc_arr, - P_DESCRIPTION in owa_text.vc_arr, - P_TELEPHONE in owa_text.vc_arr, - P_FAX in owa_text.vc_arr, - P_UI_KAM_MGR_NAME in owa_text.vc_arr, - P_KAM_TELEPHONE in owa_text.vc_arr, - P_PERIOD_START in owa_text.vc_arr, - P_PERIOD_END in owa_text.vc_arr, - z_modified in owa_text.vc_arr, - Z_ACTION in varchar2, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2) is - - I_ERROR_MESS varchar2(2000) := null; - l_row integer; - l_row_failed boolean := false; - l_cbcount integer; - l_dummy_bool boolean := false; - - begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - if not Z_DIRECT_CALL then - null; - - l_dummy_bool := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - end if; - if (Z_ACTION = IF_CLEAR_BUT_ACTION) or (Z_ACTION = IF_CLEAR_BUT_CAPTION) then - FormInsert(Z_FORM_STATUS=>WSGL.FORM_STATUS_OK, - Z_DIRECT_CALL=>TRUE); - return; - end if; - - InitialiseDomain('CUTY_ID'); - InitialiseDomain('STATUS'); - cg$errors.clear; - l_row := z_modified.first; - while l_row is not null loop - if z_modified( l_row ) = 'Y' then - l_row_failed := false; - CURR_VAL := NULL_VAL; - CURR_IND := NULL_IND; - FORM_VAL.CODE := P_CODE( l_row ); - FORM_VAL.NAME := P_NAME( l_row ); - FORM_VAL.PRIMARY_CONTACT := P_PRIMARY_CONTACT( l_row ); - FORM_VAL.PRIMARY_CONTACT_TEL := P_PRIMARY_CONTACT_TEL( l_row ); - FORM_VAL.CUTY_ID := P_CUTY_ID( l_row ); - FORM_VAL.STATUS := P_STATUS( l_row ); - FORM_VAL.EMAIL_ADDRESS := P_EMAIL_ADDRESS( l_row ); - FORM_VAL.DESCRIPTION := P_DESCRIPTION( l_row ); - FORM_VAL.TELEPHONE := P_TELEPHONE( l_row ); - FORM_VAL.FAX := P_FAX( l_row ); - FORM_VAL.UI_KAM_MGR_NAME := P_UI_KAM_MGR_NAME( l_row ); - FORM_VAL.KAM_TELEPHONE := P_KAM_TELEPHONE( l_row ); - FORM_VAL.PERIOD_START := P_PERIOD_START( l_row ); - FORM_VAL.PERIOD_END := P_PERIOD_END( l_row ); - - if not Validate('INS', l_dummy_bool) then - rollback; - FormInsert(Z_FORM_STATUS=>WSGL.FORM_STATUS_ERROR, - Z_DIRECT_CALL=>TRUE); - return; - end if; - - if not l_row_failed then - if not PreInsert then - rollback; - FormInsert(Z_FORM_STATUS=>WSGL.FORM_STATUS_ERROR, - Z_DIRECT_CALL=>TRUE); - return; - end if; - end if; - - if not l_row_failed then - begin - CG$CUSTOMERS.Ins(CURR_VAL, CURR_IND); - exception - when cg$errors.cg$error then - rollback; - FormInsert(Z_FORM_STATUS=>WSGL.FORM_STATUS_ERROR, - Z_DIRECT_CALL=>TRUE); - return; - when others then - raise; - end; - end if; - - if not l_row_failed then - if not PostInsert then - rollback; - FormInsert(Z_FORM_STATUS=>WSGL.FORM_STATUS_ERROR, - Z_DIRECT_CALL=>TRUE); - return; - end if; - end if; - - if not l_row_failed then - commit; - IF_ROWS_INSERTED := IF_ROWS_INSERTED + 1; - end if; - end if; - l_row := z_modified.next( l_row ); - end loop; - QueryView( - K_CUST_ID=>CURR_VAL.CUST_ID, - Z_POST_DML=>TRUE, - Z_FORM_STATUS=>WSGL.FORM_STATUS_INS, - Z_DIRECT_CALL=>TRUE , - Z_CHK=>to_char(WSGL.Checksum - ('' || CURR_VAL.CUST_ID))); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - IF_BODY_ATTRIBUTES, 'efnow110$cust.ActionInsert'); - end; --------------------------------------------------------------------------------- --- Name: efnow110$cust.RestoreState --- --- Description: Restore the data state and optional meta data for the --- 'CUST' module component (#Maintain Customer#1058#). --- --- Parameters: --- --------------------------------------------------------------------------------- - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean ) return boolean - is - I_REMAINING_DEPTH integer; - I_CURSOR integer; - I_VOID integer; - I_ROWS_FETCHED integer; - I_FETCH_ERROR boolean := FALSE; - I_SUCCESS boolean := TRUE; - begin - if Z_RESTORE_OWN_ROW then - if ( CURR_VAL.CUST_ID is null - ) then - return FALSE; - end if; - end if; - - if ( Z_RESTORE_OWN_ROW ) then - - -- Use the CURR_VAL fields for UID to get the other values - - if not BuildSQL( Z_QUERY_BY_KEY => true ) then - return FALSE; - end if; - - OpenZoneSql(I_CURSOR); - I_VOID := dbms_sql.execute(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED = 0 then - I_FETCH_ERROR := TRUE; - else - - AssignZoneRow(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED != 0 then - I_FETCH_ERROR := TRUE; - end if; - - end if; - - dbms_sql.close_cursor(I_CURSOR); - if I_FETCH_ERROR then - return FALSE; - end if; - - end if; - return TRUE; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - '', 'efnow110$cust.RestoreState'); - raise; - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.SaveState --- --- Description: Saves the data state for the 'CUST' module component (#Maintain Customer#1058#). --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure SaveState - is - begin - - - null; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - '', 'efnow110$cust.SaveState'); - raise; - end; - - --------------------------------------------------------------------------------- --- Name: efnow110$cust.GetRef --- --- Description: Returns a handle to the component object --- --- Parameters: --- --------------------------------------------------------------------------------- - function GetRef return WSGOC.COMPONENT_REF - is - begin - return ref_Component; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.LoadCache --- --- Description: Populate the object cache with --- 'CUST' module component (#Maintain Customer#1058#). --- --------------------------------------------------------------------------------- - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF - , Z_BRANCH in WSGOC.BRANCH_REF - ) - is - I_VF_FRAME varchar2(20) := null; - begin - - -- Is cache already loaded - if not WSGOC.Is_Null(ref_Component) then - return; - end if; - - InitialiseDomain('CUTY_ID'); - InitialiseDomain('STATUS'); - - ref_Component := WSGOC.Component - ( pModule => efnow110$.GetRef - , pBranch => Z_BRANCH - , pContext_For=> Z_CONTEXT_FOR - , pName => 'CUST' - , pTitle => '#Maintain Customer#1058#' - , pSystemImagePath=> '/images/' - ); - - r_UI_CODE := WSGOC.Item - ( pName => 'UI_CODE' - , pPrompt => '#Short Name*#2464#' - ); - r_UI_NAME := WSGOC.Item - ( pName => 'UI_NAME' - , pPrompt => '#Full Name*#2461#' - ); - r_CUST_ID := WSGOC.Item - ( pName => 'CUST_ID' - , pPrompt => '#Cust Id#1065#' - ); - r_CODE := WSGOC.Item - ( pName => 'CODE' - , pPrompt => '#Short Name*#2464#' - ); - r_NAME := WSGOC.Item - ( pName => 'NAME' - , pPrompt => '#Full Name*#2461#' - , pIsContext=> true - ); - r_PRIMARY_CONTACT := WSGOC.Item - ( pName => 'PRIMARY_CONTACT' - , pPrompt => '#Primary Contact*#2472#' - ); - r_PRIMARY_CONTACT_TEL := WSGOC.Item - ( pName => 'PRIMARY_CONTACT_TEL' - , pPrompt => '#Primary Contact Tel.*#2473#' - ); - r_CUTY_ID := WSGOC.Item - ( pName => 'CUTY_ID' - , pPrompt => '#Customer Type#2478#' - ); - r_STATUS := WSGOC.Item - ( pName => 'STATUS' - , pPrompt => '#Status*#2476#' - ); - r_EMAIL_ADDRESS := WSGOC.Item - ( pName => 'EMAIL_ADDRESS' - , pPrompt => '#Email Address*#2462#' - ); - r_DESCRIPTION := WSGOC.Item - ( pName => 'DESCRIPTION' - , pPrompt => '#Description#20#' - ); - r_TELEPHONE := WSGOC.Item - ( pName => 'TELEPHONE' - , pPrompt => '#Telephone*#2463#' - ); - r_FAX := WSGOC.Item - ( pName => 'FAX' - , pPrompt => '#Fax*#2465#' - ); - r_KAM_MANAGER := WSGOC.Item - ( pName => 'KAM_MANAGER' - , pPrompt => '#KAM Manger#2474#' - ); - r_UI_KAM_MGR_NAME := WSGOC.Item - ( pName => 'UI_KAM_MGR_NAME' - , pPrompt => '#KAM Manager Name#2185#' - ); - r_KAM_TELEPHONE := WSGOC.Item - ( pName => 'KAM_TELEPHONE' - , pPrompt => '#KAM Manager Tel.#2186#' - ); - r_CREATED_BY := WSGOC.Item - ( pName => 'CREATED_BY' - , pPrompt => '#Created By#119#' - ); - r_CREATED_ON := WSGOC.Item - ( pName => 'CREATED_ON' - , pPrompt => '#Created On#118#' - ); - r_UPDATED_BY := WSGOC.Item - ( pName => 'UPDATED_BY' - , pPrompt => '#Updated By#1115#' - ); - r_UPDATED_ON := WSGOC.Item - ( pName => 'UPDATED_ON' - , pPrompt => '#Updated On#1064#' - ); - r_PERIOD_START := WSGOC.Item - ( pName => 'PERIOD_START' - , pPrompt => '#Period Start*#2460#' - ); - r_PERIOD_END := WSGOC.Item - ( pName => 'PERIOD_END' - , pPrompt => '#Period End#27#' - ); - - WSGOC.Add_Items(ref_Component, r_UI_CODE); - WSGOC.Add_Items(ref_Component, r_UI_NAME); - WSGOC.Add_Items(ref_Component, r_CUST_ID); - WSGOC.Add_Items(ref_Component, r_CODE); - WSGOC.Add_Items(ref_Component, r_NAME); - WSGOC.Add_Items(ref_Component, r_PRIMARY_CONTACT); - WSGOC.Add_Items(ref_Component, r_PRIMARY_CONTACT_TEL); - WSGOC.Add_Items(ref_Component, r_CUTY_ID); - WSGOC.Add_Items(ref_Component, r_STATUS); - WSGOC.Add_Items(ref_Component, r_EMAIL_ADDRESS); - WSGOC.Add_Items(ref_Component, r_DESCRIPTION); - WSGOC.Add_Items(ref_Component, r_TELEPHONE); - WSGOC.Add_Items(ref_Component, r_FAX); - WSGOC.Add_Items(ref_Component, r_KAM_MANAGER); - WSGOC.Add_Items(ref_Component, r_UI_KAM_MGR_NAME); - WSGOC.Add_Items(ref_Component, r_KAM_TELEPHONE); - WSGOC.Add_Items(ref_Component, r_CREATED_BY); - WSGOC.Add_Items(ref_Component, r_CREATED_ON); - WSGOC.Add_Items(ref_Component, r_UPDATED_BY); - WSGOC.Add_Items(ref_Component, r_UPDATED_ON); - WSGOC.Add_Items(ref_Component, r_PERIOD_START); - WSGOC.Add_Items(ref_Component, r_PERIOD_END); - - - if ( Z_OWN_ROW_VALUES ) then - - -- Set the display value for each item - -- ( As would be displayed on the Record List ) - WSGOC.Set_Value( r_CUST_ID, WSGL.EscapeItem(CURR_VAL.CUST_ID) ); - WSGOC.Set_Value( r_CODE, replace(WSGL.EscapeItem(CURR_VAL.CODE), ' -', '
-') ); - WSGOC.Set_Value( r_NAME, replace(WSGL.EscapeItem(CURR_VAL.NAME), ' -', '
-') ); - WSGOC.Set_Value( r_PRIMARY_CONTACT, replace(WSGL.EscapeItem(CURR_VAL.PRIMARY_CONTACT), ' -', '
-') ); - WSGOC.Set_Value( r_PRIMARY_CONTACT_TEL, replace(WSGL.EscapeItem(CURR_VAL.PRIMARY_CONTACT_TEL), ' -', '
-') ); - WSGOC.Set_Value( r_CUTY_ID, WSGL.EscapeItem(WSGL.DomainMeaning(D_CUTY_ID, CURR_VAL.CUTY_ID)) ); - WSGOC.Set_Value( r_STATUS, replace(WSGL.EscapeItem(WSGL.DomainMeaning(D_STATUS, CURR_VAL.STATUS)), ' -', '
-') ); - WSGOC.Set_Value( r_EMAIL_ADDRESS, replace(WSGL.EscapeItem(CURR_VAL.EMAIL_ADDRESS), ' -', '
-') ); - WSGOC.Set_Value( r_DESCRIPTION, replace(WSGL.EscapeItem(CURR_VAL.DESCRIPTION), ' -', '
-') ); - WSGOC.Set_Value( r_TELEPHONE, replace(WSGL.EscapeItem(CURR_VAL.TELEPHONE), ' -', '
-') ); - WSGOC.Set_Value( r_FAX, replace(WSGL.EscapeItem(CURR_VAL.FAX), ' -', '
-') ); - WSGOC.Set_Value( r_KAM_MANAGER, WSGL.EscapeItem(CURR_VAL.KAM_MANAGER_SYUS_ID) ); - WSGOC.Set_Value( r_KAM_TELEPHONE, replace(WSGL.EscapeItem(CURR_VAL.KAM_TELEPHONE), ' -', '
-') ); - WSGOC.Set_Value( r_CREATED_BY, replace(WSGL.EscapeItem(CURR_VAL.CREATED_BY), ' -', '
-') ); - WSGOC.Set_Value( r_CREATED_ON, WSGL.EscapeItem(ltrim(to_char(CURR_VAL.CREATED_ON, 'DD-MON-RRRR'))) ); - WSGOC.Set_Value( r_UPDATED_BY, replace(WSGL.EscapeItem(CURR_VAL.UPDATED_BY), ' -', '
-') ); - WSGOC.Set_Value( r_UPDATED_ON, WSGL.EscapeItem(ltrim(to_char(CURR_VAL.UPDATED_ON, 'DD-MON-RRRR'))) ); - WSGOC.Set_Value( r_PERIOD_START, WSGL.EscapeItem(ltrim(to_char(CURR_VAL.PERIOD_START, 'DD/MM/YYYY'))) ); - WSGOC.Set_Value( r_PERIOD_END, WSGL.EscapeItem(ltrim(to_char(CURR_VAL.PERIOD_END, 'DD/MM/YYYY'))) ); - - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - '', 'efnow110$cust.LoadCache'); - raise; - end; - - - --------------------------------------------------------------------------------- --- Name: efnow110$cust.PostUpdate --- --- Description: Provides place holder for code to be run after an update --- for the 'CUST' module component (#Maintain Customer#1058#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PostUpdate return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - VF_BODY_ATTRIBUTES, 'efnow110$cust.PostUpdate'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow110$cust.PostInsert --- --- Description: Provides place holder for code to be run after an insert --- for the 'CUST' module component (#Maintain Customer#1058#). --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PostInsert return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - IF_BODY_ATTRIBUTES, 'efnow110$cust.PostInsert'); - return FALSE; - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$cust.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$cust.spc deleted file mode 100644 index f3dbc17..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$cust.spc +++ /dev/null @@ -1,180 +0,0 @@ -create or replace package efnow110$cust is - - type NBT_REC is record - ( UI_CODE varchar2(32760) - , UI_NAME varchar2(32760) - , UI_KAM_MGR_NAME varchar2(32760) - ); - - NBT_VAL NBT_REC; - CURR_VAL CG$CUSTOMERS.CG$ROW_TYPE; - - - procedure Startup( - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null, - Z_FORM in varchar2 default null); - procedure ActionQuery( - P_UI_CODE in varchar2 default null, - P_UI_NAME in varchar2 default null, - Z_DIRECT_CALL in boolean default false, - Z_ACTION in varchar2 default null, - Z_CHK in varchar2 default null ); - - procedure FormQuery( - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null); - procedure KAM_SYUS_ID_LOV( - Z_FILTER in varchar2, - Z_MODE in varchar2, - Z_CALLER_URL in varchar2, - Z_FORMROW in number default 0, - Z_LONG_LIST in varchar2 default null, - Z_ISSUE_WAIT in varchar2 default null); - procedure EFLV_CUST_CODE_LOV( - Z_FILTER in varchar2, - Z_MODE in varchar2, - Z_CALLER_URL in varchar2, - Z_FORMROW in number default 0, - Z_LONG_LIST in varchar2 default null, - Z_ISSUE_WAIT in varchar2 default null); - procedure EFLV_CUST_NAME_LOV( - Z_FILTER in varchar2, - Z_MODE in varchar2, - Z_CALLER_URL in varchar2, - Z_FORMROW in number default 0, - Z_LONG_LIST in varchar2 default null, - Z_ISSUE_WAIT in varchar2 default null); - - procedure FormInsert( - Z_FORM_STATUS in number default WSGL.FORM_STATUS_OK, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null); - - procedure QueryView( - K_CUST_ID in varchar2 default null, - P_UI_CODE in varchar2 default null, - P_UI_NAME in varchar2 default null, - Z_EXECUTE_QUERY in varchar2 default null, - Z_POST_DML in boolean default false, - Z_FORM_STATUS in number default WSGL.FORM_STATUS_OK, - Z_DIRECT_CALL in boolean default false, - Z_START in varchar2 default '1', - Z_ACTION in varchar2 default null, - Z_CHK in varchar2 default null); - function QueryHits( - P_UI_CODE in varchar2 default null, - P_UI_NAME in varchar2 default null) return number; - - procedure ActionView( - P_CUST_ID in owa_text.vc_arr, - P_CODE in owa_text.vc_arr default WSGL.EmptyVCArrLong, - P_NAME in owa_text.vc_arr default WSGL.EmptyVCArrLong, - P_PRIMARY_CONTACT in owa_text.vc_arr default WSGL.EmptyVCArrLong, - P_PRIMARY_CONTACT_TEL in owa_text.vc_arr default WSGL.EmptyVCArrLong, - P_CUTY_ID in owa_text.vc_arr default WSGL.EmptyVCArrLong, - P_STATUS in owa_text.vc_arr default WSGL.EmptyVCArrLong, - P_EMAIL_ADDRESS in owa_text.vc_arr default WSGL.EmptyVCArrLong, - P_DESCRIPTION in owa_text.vc_arr default WSGL.EmptyVCArrLong, - P_TELEPHONE in owa_text.vc_arr default WSGL.EmptyVCArrLong, - P_FAX in owa_text.vc_arr default WSGL.EmptyVCArrLong, - P_UI_KAM_MGR_NAME in owa_text.vc_arr default WSGL.EmptyVCArrLong, - P_KAM_TELEPHONE in owa_text.vc_arr default WSGL.EmptyVCArrLong, - P_PERIOD_START in owa_text.vc_arr default WSGL.EmptyVCArrLong, - P_PERIOD_END in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_CUST_ID in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_CODE in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_NAME in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_PRIMARY_CONTACT in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_PRIMARY_CONTACT_TEL in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_CUTY_ID in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_STATUS in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_EMAIL_ADDRESS in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_DESCRIPTION in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_TELEPHONE in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_FAX in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_KAM_MANAGER in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_KAM_TELEPHONE in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_CREATED_BY in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_CREATED_ON in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_UPDATED_BY in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_UPDATED_ON in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_PERIOD_START in owa_text.vc_arr default WSGL.EmptyVCArrLong, - O_PERIOD_END in owa_text.vc_arr default WSGL.EmptyVCArrLong, - Q_UI_CODE in varchar2 default null, - Q_UI_NAME in varchar2 default null, - z_modified in owa_text.vc_arr, - Z_ACTION in varchar2 default null, - Z_START in varchar2 default '1', - Z_CHK in varchar2 default null , - C_CUIN in owa_text.vc_arr default WSGL.EmptyVCArrLong ); - procedure ActionInsert( - P_CODE in owa_text.vc_arr, - P_NAME in owa_text.vc_arr, - P_PRIMARY_CONTACT in owa_text.vc_arr, - P_PRIMARY_CONTACT_TEL in owa_text.vc_arr, - P_CUTY_ID in owa_text.vc_arr, - P_STATUS in owa_text.vc_arr, - P_EMAIL_ADDRESS in owa_text.vc_arr, - P_DESCRIPTION in owa_text.vc_arr, - P_TELEPHONE in owa_text.vc_arr, - P_FAX in owa_text.vc_arr, - P_UI_KAM_MGR_NAME in owa_text.vc_arr, - P_KAM_TELEPHONE in owa_text.vc_arr, - P_PERIOD_START in owa_text.vc_arr, - P_PERIOD_END in owa_text.vc_arr, - z_modified in owa_text.vc_arr, - Z_ACTION in varchar2 default null, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null); - procedure QueryViewByKey( - P_CUST_ID in varchar2 default null, - Z_POST_DML in boolean default false, - Z_FORM_STATUS in number default WSGL.FORM_STATUS_OK, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null); - - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean default false - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF default null - , Z_BRANCH in WSGOC.BRANCH_REF default null - ); - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean default true - ) return boolean; - procedure SaveState; - function GetRef return WSGOC.COMPONENT_REF; - - - procedure InitialiseDomain(P_ALIAS in varchar2); - - procedure calendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ); - - procedure format_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ); - - D_CUTY_ID WSGL.typDVRecord; - D_STATUS WSGL.typDVRecord;FUNCTION get_cust_code RETURN VARCHAR2; - -FUNCTION get_cust_name RETURN VARCHAR2; - - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$js$cuin.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$js$cuin.bdy deleted file mode 100644 index 683df53..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$js$cuin.bdy +++ /dev/null @@ -1,273 +0,0 @@ -create or replace package body efnow110$js$cuin is - - --------------------------------------------------------------------------------- --- Name: efnow110$js$cuin.CreateViewJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateViewJavaScript( - VF_ROWS_UPDATED in integer, - VF_ROWS_DELETED in integer, - VF_ROWS_ERROR in integer, - VF_BODY_ATTRIBUTES in varchar2, - IF_ROWS_INSERTED in integer, - IF_ROWS_ERROR in integer, - RL_REQUERY_BUT_ACTION in varchar2, - LOV_FRAME in varchar2) is - begin - if not caco_security.security_check('efnow110$cuin') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var index = 0;'); - if IF_ROWS_INSERTED > 0 then - htp.p( 'var DataChange = true;' ); - else - htp.p( 'var DataChange = false;' ); - end if; - if IF_ROWS_ERROR > 0 then - htp.p( 'var DataChangeErrors = true;' ); - else - htp.p( 'var DataChangeErrors = false;' ); - end if; - - if to_char(efnow110$cust.CURR_VAL.CUST_ID) is not null then - htp.p( 'var P_CUST_ID = new Array();' ); - htp.p( 'P_CUST_ID[0] = "' || WSGL.EscapeURLParam(to_char(efnow110$cust.CURR_VAL.CUST_ID)) || '";' ); - end if; - htp.p( 'var P_2 = new Array();' ); - htp.p( 'P_2[0] = "' || WSGL.EscapeURLParam(nvl(to_char(efnow110$cust.CURR_VAL.CUST_ID), '')) || '";' ); - htp.p( 'var CUIN_CHK_VALUE = new Array();' ); - htp.p( 'CUIN_CHK_VALUE[0] = ' || to_char(WSGL.Checksum(''|| to_char(efnow110$cust.CURR_VAL.CUST_ID)|| to_char(efnow110$cust.CURR_VAL.CUST_ID))) || ';' ); - - htp.p( 'var P_23 = new Array();' ); - htp.p( 'P_23[0] = "' || WSGL.EscapeURLParam(to_char(efnow110$cuin.CURR_VAL.CUST_ID)) || '";' ); - htp.p( 'var P_24 = new Array();' ); - htp.p( 'P_24[0] = "' || WSGL.EscapeURLParam(to_char(efnow110$cuin.CURR_VAL.INTE_ID)) || '";' ); - - htp.p(WSGJSL.RtnCheckModified); - htp.p(WSGJSL.RtnRevertForm); - htp.p(WSGJSL.RtnFlagRow); - htp.p(WSGJSL.OpenEvent('CUIN','OnLoad')); - htp.p(' - if ( FormType != "PostDelete") - { - form_num=0; - do - { - elem_num=0; - len = document.forms[form_num].elements.length; - if (len > 0) - { - while (elem_num < len && - document.forms[form_num].elements[elem_num].type != "text" && - document.forms[form_num].elements[elem_num].type != "textarea") - { - elem_num++; - } - if (elem_num < len) - { - document.forms[form_num].elements[elem_num].focus(); - break; - } - } - form_num++; - } while ( form_num < document.forms.length ); - } -'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnVFU','OnClick')); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnVFD','OnClick')); - htp.p(WSGJSL.VerifyDelete(WSGL.MsgGetText(118, WSGLM.DSP118_CONFIRM_DELETE))); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnVFR','OnClick')); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnVFI','OnClick')); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - VF_BODY_ATTRIBUTES, 'efnow110$js$cuin.CreateViewJavaScript'); - end; - --------------------------------------------------------------------------------- --- Name: efnow110$js$cuin.CreateInsertJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateInsertJavaScript( - IF_ROWS_INSERTED in integer, - IF_ROWS_ERROR in integer, - IF_BODY_ATTRIBUTES in varchar2, - RL_REQUERY_BUT_ACTION in varchar2, - LOV_FRAME in varchar2) is - begin - if not caco_security.security_check('efnow110$cuin') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "Insert";'); - htp.p('var index = 0;'); - if IF_ROWS_INSERTED > 0 then - htp.p( 'var DataChange = true;' ); - else - htp.p( 'var DataChange = false;' ); - end if; - if IF_ROWS_ERROR > 0 then - htp.p( 'var DataChangeErrors = true;' ); - else - htp.p( 'var DataChangeErrors = false;' ); - end if; - - if to_char(efnow110$cust.CURR_VAL.CUST_ID) is not null then - htp.p( 'var P_CUST_ID = new Array();' ); - htp.p( 'P_CUST_ID[0] = "' || WSGL.EscapeURLParam(to_char(efnow110$cust.CURR_VAL.CUST_ID)) || '";' ); - end if; - htp.p( 'var P_2 = new Array();' ); - htp.p( 'P_2[0] = "' || WSGL.EscapeURLParam(nvl(to_char(efnow110$cust.CURR_VAL.CUST_ID), '')) || '";' ); - if (to_char(efnow110$cust.CURR_VAL.CUST_ID) is not null ) then - htp.p( 'var CUIN_CHK_VALUE = new Array();' ); - htp.p( 'CUIN_CHK_VALUE[0] = ' || to_char(WSGL.Checksum(''|| to_char(efnow110$cust.CURR_VAL.CUST_ID)|| to_char(efnow110$cust.CURR_VAL.CUST_ID))) || ';' ); - end if; - - htp.p(WSGJSL.RtnCheckModified); - htp.p(WSGJSL.RtnRevertForm); - htp.p(WSGJSL.RtnFlagRow); - htp.p(WSGJSL.OpenEvent('L_INTERMEDIARIES_NAME2','LOV')); htp.p(' - var depStr = ""; - var modeStr = "" - if (index == null) - index = 0; - if (ctl[index].form.name.search(/VForm$/) == -1) - { - modeStr = "INS"; - } - else - { - modeStr = "UPD"; - } - depStr = depStr + "&P_2=" + escape(ctl[index].form.P_2.value); -'); - - if LOV_FRAME is not null then - htp.p(' var lovFra = "'||LOV_FRAME||'";'); - htp.p(' var winpar = "";'); - else - htp.p(' var lovFra = "winLOV";'); - htp.p(' var winpar = "scrollbars=yes,resizable=yes,width=400,height=400";'); - end if; - htp.p(' var filterprompt = "";'); - htp.p(' - - var lovTitle = "'||replace('','"','\"')||'"; - window.current_lov_title = lovTitle; - - JSLOpenLOV( ctl[index], index, modeStr, "efnow110$cuin.l_intermediaries_name2_lov", depStr, lovFra, winpar, filterprompt ); - -'); - - htp.p(WSGJSL.CloseEvent); - WSGJSL.Output_Invoke_CAL_JS ('efnow110$cuin', 'scrollbars=no,resizable=no,width=320,height=350'); - - - htp.p(WSGJSL.OpenEvent('CUIN','OnLoad')); - htp.p(' - if ( FormType != "PostDelete") - { - form_num=0; - do - { - elem_num=0; - len = document.forms[form_num].elements.length; - if (len > 0) - { - while (elem_num < len && - document.forms[form_num].elements[elem_num].type != "text" && - document.forms[form_num].elements[elem_num].type != "textarea") - { - elem_num++; - } - if (elem_num < len) - { - document.forms[form_num].elements[elem_num].focus(); - break; - } - } - form_num++; - } while ( form_num < document.forms.length ); - } -'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnIFI','OnClick')); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnIFR','OnClick')); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - IF_BODY_ATTRIBUTES, 'efnow110$js$cuin.CreateInsertJavaScript'); - end; - --------------------------------------------------------------------------------- --- Name: efnow110$js$cuin.CreateListJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateListJavaScript ( - RL_BODY_ATTRIBUTES in varchar2) - is - begin - if not caco_security.security_check('efnow110$cuin') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "List";'); - - if to_char(efnow110$cust.CURR_VAL.CUST_ID) is not null then - htp.p( 'var P_CUST_ID = new Array();' ); - htp.p( 'P_CUST_ID[0] = "' || WSGL.EscapeURLParam(to_char(efnow110$cust.CURR_VAL.CUST_ID)) || '";' ); - end if; - htp.p( 'var P_2 = new Array();' ); - htp.p( 'P_2[0] = "' || WSGL.EscapeURLParam(nvl(to_char(efnow110$cust.CURR_VAL.CUST_ID), '')) || '";' ); - if (to_char(efnow110$cust.CURR_VAL.CUST_ID) is not null ) then - htp.p( 'var CUIN_CHK_VALUE = new Array();' ); - htp.p( 'CUIN_CHK_VALUE[0] = ' || to_char(WSGL.Checksum(''|| to_char(efnow110$cust.CURR_VAL.CUST_ID)|| to_char(efnow110$cust.CURR_VAL.CUST_ID))) || ';' ); - end if; - - htp.p( 'var P_23 = new Array();' ); - htp.p( 'var P_24 = new Array();' ); - - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Intermediaries#1059#', - RL_BODY_ATTRIBUTES, 'efnow110$js$cuin.CreateListJavaScript'); - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$js$cuin.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$js$cuin.spc deleted file mode 100644 index 2f27bc6..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$js$cuin.spc +++ /dev/null @@ -1,24 +0,0 @@ -create or replace package efnow110$js$cuin is - - procedure CreateListJavaScript( - RL_BODY_ATTRIBUTES in varchar2); - - procedure CreateViewJavaScript( - VF_ROWS_UPDATED in integer, - VF_ROWS_DELETED in integer, - VF_ROWS_ERROR in integer, - VF_BODY_ATTRIBUTES in varchar2, - IF_ROWS_INSERTED in integer, - IF_ROWS_ERROR in integer, - RL_REQUERY_BUT_ACTION in varchar2, - LOV_FRAME in varchar2); - - procedure CreateInsertJavaScript( - IF_ROWS_INSERTED in integer, - IF_ROWS_ERROR in integer, - IF_BODY_ATTRIBUTES in varchar2, - RL_REQUERY_BUT_ACTION in varchar2, - LOV_FRAME in varchar2); - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$js$cust.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$js$cust.bdy deleted file mode 100644 index f21f90e..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$js$cust.bdy +++ /dev/null @@ -1,978 +0,0 @@ -create or replace package body efnow110$js$cust is - - --------------------------------------------------------------------------------- --- Name: efnow110$js$cust.CreateViewJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateViewJavaScript( - VF_ROWS_UPDATED in integer, - VF_ROWS_DELETED in integer, - VF_ROWS_ERROR in integer, - VF_BODY_ATTRIBUTES in varchar2, - IF_ROWS_INSERTED in integer, - IF_ROWS_ERROR in integer, - LOV_FRAME in varchar2) is - begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var index = 0;'); - if IF_ROWS_INSERTED > 0 then - htp.p( 'var DataChange = true;' ); - else - htp.p( 'var DataChange = false;' ); - end if; - if IF_ROWS_ERROR > 0 then - htp.p( 'var DataChangeErrors = true;' ); - else - htp.p( 'var DataChangeErrors = false;' ); - end if; - - - htp.p( 'var P_CUST_ID = new Array();' ); - htp.p( 'var P_2 = new Array();' ); - htp.p( 'var CUIN_CHK_VALUE = new Array();' ); - - htp.p(WSGJSL.RtnOpenLOV); - htp.p(WSGJSL.RtnNotNull); - htp.p(WSGJSL.RtnChkMaxLength); - htp.p(WSGJSL.RtnCheckModified); - htp.p(WSGJSL.RtnRevertForm); - htp.p(WSGJSL.RtnFlagRow); - htp.p(WSGJSL.RtnFindTargetFrame); - - WSGJSL.Output_Invoke_CAL_JS ('efnow110$cust', 'scrollbars=no,resizable=no,width=320,height=350'); - - - efnow110$cust.InitialiseDomain('CUTY_ID'); - efnow110$cust.InitialiseDomain('STATUS'); - - htp.p(' -function ResetRadios( form, num_rows ) -{ - return; -}; -'); - - htp.p(WSGJSL.OpenEvent('CODE','OnChange')); htp.p(' - if (ctl != null) - { - ctl.form.z_modified[index].value = "Y"; - }'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('NAME','OnChange')); htp.p(' - if (ctl != null) - { - ctl.form.z_modified[index].value = "Y"; - }'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('PRIMARY_CONTACT','OnChange')); htp.p(' - if (ctl != null) - { - ctl.form.z_modified[index].value = "Y"; - }'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('PRIMARY_CONTACT_TEL','OnChange')); htp.p(' - if (ctl != null) - { - ctl.form.z_modified[index].value = "Y"; - }'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('CUTY_ID','OnChange')); htp.p(' - if (ctl != null) - { - ctl.form.z_modified[index].value = "Y"; - }'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('STATUS','OnChange')); htp.p(' - if (ctl != null) - { - ctl.form.z_modified[index].value = "Y"; - }'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('EMAIL_ADDRESS','OnChange')); htp.p(' - if (ctl != null) - { - ctl.form.z_modified[index].value = "Y"; - }'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('DESCRIPTION','OnChange')); htp.p(' - if (ctl != null) - { - ctl.form.z_modified[index].value = "Y"; - }'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('TELEPHONE','OnChange')); htp.p(' - if (ctl != null) - { - ctl.form.z_modified[index].value = "Y"; - }'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('FAX','OnChange')); htp.p(' - if (ctl != null) - { - ctl.form.z_modified[index].value = "Y"; - }'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('UI_KAM_MGR_NAME','LOV')); htp.p(' - var depStr = ""; - var modeStr = "" - if (index == null) - index = 0; - if (ctl[index].form.name.search(/VForm$/) == -1) - { - modeStr = "INS"; - } - else - { - modeStr = "UPD"; - } -'); - - if LOV_FRAME is not null then - htp.p(' var lovFra = "'||LOV_FRAME||'";'); - htp.p(' var winpar = "";'); - else - htp.p(' var lovFra = "winLOV";'); - htp.p(' var winpar = "scrollbars=yes,resizable=yes,width=400,height=400";'); - end if; - htp.p(' var filterprompt = "";'); - htp.p(' - - var lovTitle = "'||replace('','"','\"')||'"; - window.current_lov_title = lovTitle; - - JSLOpenLOV( ctl[index], index, modeStr, "efnow110$cust.kam_syus_id_lov", depStr, lovFra, winpar, filterprompt ); - -'); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('UI_KAM_MGR_NAME','OnChange')); htp.p(' - if (ctl != null) - { - ctl.form.z_modified[index].value = "Y"; - }'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('KAM_TELEPHONE','OnChange')); htp.p(' - if (ctl != null) - { - ctl.form.z_modified[index].value = "Y"; - }'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('PERIOD_START','OnChange')); htp.p(' - if (ctl != null) - { - ctl.form.z_modified[index].value = "Y"; - }'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('PERIOD_END','OnChange')); htp.p(' - if (ctl != null) - { - ctl.form.z_modified[index].value = "Y"; - }'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('CUST','Validate')); - htp.p('var index = 0;'); -htp.p(' -for (index = 0; index < ctl.form.P_PRIMARY_CONTACT.length; index++) -{'); -htp.p(' if (!(ctl.form.z_modified[index].value == "Y")) { continue;};'); - - htp.p(WSGJSL.CallNotNull('ctl.form.P_PRIMARY_CONTACT[index]', WSGL.MsgGetText(219, WSGLM.MSG219_MISSING_MANDATORY, '#Primary Contact*#2472#:'), true)); -htp.p(' -}'); -htp.p(' -for (index = 0; index < ctl.form.P_PRIMARY_CONTACT_TEL.length; index++) -{'); -htp.p(' if (!(ctl.form.z_modified[index].value == "Y")) { continue;};'); - - htp.p(WSGJSL.CallNotNull('ctl.form.P_PRIMARY_CONTACT_TEL[index]', WSGL.MsgGetText(219, WSGLM.MSG219_MISSING_MANDATORY, '#Primary Contact Tel.*#2473#:'), true)); -htp.p(' -}'); -htp.p(' -for (index = 0; index < ctl.form.P_EMAIL_ADDRESS.length; index++) -{'); -htp.p(' if (!(ctl.form.z_modified[index].value == "Y")) { continue;};'); - - htp.p(WSGJSL.CallNotNull('ctl.form.P_EMAIL_ADDRESS[index]', WSGL.MsgGetText(219, WSGLM.MSG219_MISSING_MANDATORY, '#Email Address*#2462#:'), true)); -htp.p(' -}'); -htp.p(' -for (index = 0; index < ctl.form.P_DESCRIPTION.length; index++) -{'); -htp.p(' if (!(ctl.form.z_modified[index].value == "Y")) { continue;};'); - - htp.p(WSGJSL.CallChkMaxLength('ctl.form.P_DESCRIPTION[index]', 80, WSGL.MsgGetText(230, WSGLM.MSG230_MAXLEN_ERROR, '#Description#20#:', '80') -, true)); -htp.p(' -}'); -htp.p(' -for (index = 0; index < ctl.form.P_TELEPHONE.length; index++) -{'); -htp.p(' if (!(ctl.form.z_modified[index].value == "Y")) { continue;};'); - - htp.p(WSGJSL.CallNotNull('ctl.form.P_TELEPHONE[index]', WSGL.MsgGetText(219, WSGLM.MSG219_MISSING_MANDATORY, '#Telephone*#2463#:'), true)); -htp.p(' -}'); -htp.p(' -for (index = 0; index < ctl.form.P_FAX.length; index++) -{'); -htp.p(' if (!(ctl.form.z_modified[index].value == "Y")) { continue;};'); - - htp.p(WSGJSL.CallNotNull('ctl.form.P_FAX[index]', WSGL.MsgGetText(219, WSGLM.MSG219_MISSING_MANDATORY, '#Fax*#2465#:'), true)); -htp.p(' -}'); -htp.p(' -for (index = 0; index < ctl.form.P_UI_KAM_MGR_NAME.length; index++) -{'); -htp.p(' if (!(ctl.form.z_modified[index].value == "Y")) { continue;};'); - -htp.p(' -}'); -htp.p(' -for (index = 0; index < ctl.form.P_KAM_TELEPHONE.length; index++) -{'); -htp.p(' if (!(ctl.form.z_modified[index].value == "Y")) { continue;};'); - -htp.p(' -}'); -htp.p(' -for (index = 0; index < ctl.form.P_PERIOD_START.length; index++) -{'); -htp.p(' if (!(ctl.form.z_modified[index].value == "Y")) { continue;};'); - - htp.p(WSGJSL.CallNotNull('ctl.form.P_PERIOD_START[index]', WSGL.MsgGetText(219, WSGLM.MSG219_MISSING_MANDATORY, '#Period Start*#2460#:'), true)); -htp.p(' -}'); -htp.p(' -for (index = 0; index < ctl.form.P_PERIOD_END.length; index++) -{'); -htp.p(' if (!(ctl.form.z_modified[index].value == "Y")) { continue;};'); - -htp.p(' -}'); - - htp.p(WSGJSL.CloseEvent); - htp.p( -'// emailCheck -// -// - -function emailCheck (emailObj,lang) { - -function fieldFocus() { - emailObj.focus(); -} -/* The following variable tells the rest of the function whether or not -to verify that the address ends in a two-letter country or well-known -TLD. 1 means check it, 0 means don''''t. */ - -var checkTLD=1; -var emailStr = emailObj.value; - -/* The following is the list of known TLDs that an e-mail address must end with. */ - -var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/; - -/* The following pattern is used to check if the entered e-mail address -fits the user@domain format. It also is used to separate the username -from the domain. */ - -var emailPat=/^(.+)@(.+)$/; - -/* The following string represents the pattern for matching all special -characters. We don''''t want to allow special characters in the address. -These characters include ( ) < > @ , ; : \ " . [ ] */ - -/* -other chars: +!%/=*-#&{}?$| -*/ - -var specialChars="\\(\\)\\>\\<\\@\\,\\;\\:\\+\\!\\%\\/\\=\\*\\#\\&\\{\\}\\?\\$|\\\\\\\"\\.\\[\\]"; - -/* The following string represents the range of characters allowed in a -username or domainname. It really states which chars aren''''t allowed.*/ - -var validChars="\[^\\s" + specialChars + "\]"; -/*var validChars="\[^\\s" + "\]";*/ - -/* The following pattern applies if the "user" is a quoted string (in -which case, there are no rules about which characters are allowed -and which aren''''t; anything goes). E.g. "jiminy cricket"@disney.com -is a legal e-mail address. */ - -var quotedUser="(\"[^\"]*\")"; - -/* The following pattern applies for domains that are IP addresses, -rather than symbolic names. E.g. joe@[123.124.233.4] is a legal -e-mail address. NOTE: The square brackets are required. */ - -var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/; - -/* The following string represents an atom (basically a series of non-special characters.) */ - -var atom=validChars + ''''+''''; - -/* The following string represents one word in the typical username. -For example, in john.doe@somewhere.com, john and doe are words. -Basically, a word is either an atom or quoted string. */ - -var word="(" + atom + "|" + quotedUser + ")"; - -// The following pattern describes the structure of the user - -var userPat=new RegExp("^" + word + "(\\." + word + ")*$"); - -/* The following pattern describes the structure of a normal symbolic -domain, as opposed to ipDomainPat, shown above. */ - -var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$"); - -/* Finally, let''''s start trying to figure out if the supplied address is valid. */ - -/* Begin with the coarse pattern to simply break up user@domain into -different pieces that are easy to analyze. */ - -var matchArray=emailStr.match(emailPat); - -if (matchArray==null) { - -/* Too many/few @''''s or something; basically, this address doesn''''t -even fit the general mould of a valid e-mail address. */ -setTimeout( fieldFocus , 100 ); - -if (lang=="HU") { -alert("Helytelen Email cím (ellenorizze a @ és . karaktereket)"); -} -else { -alert("Email address seems incorrect (check @ and .''''s)"); -} -return false; -} -var user=matchArray[1]; -var domain=matchArray[2]; - -// Start by checking that only basic ASCII characters are in the strings (0-127). - -for (i=0; i127) { -alert("This username contains invalid characters."); -emailObj.focus(); -return false; - } -} -for (i=0; i127) { -alert("This domain name contains invalid characters."); -emailObj.focus(); -return false; - } -} - -// See if "user" is valid - -if (user.match(userPat)==null) { - -// user is not valid -if (lang=="HU") { -alert("A felhasználónév nem tunik érvényesnek."); -} -else { -alert("The username doesn''''t seem to be valid."); -} -emailObj.focus(); -return false; -} - -/* if the e-mail address is at an IP address (as opposed to a symbolic -host name) make sure the IP address is valid. */ - -var IPArray=domain.match(ipDomainPat); -if (IPArray!=null) { - -// this is an IP address - -for (var i=1;i<=4;i++) { -if (IPArray[i]>255) { -alert("Destination IP address is invalid!"); -emailObj.focus(); -return false; - } -} -return true; -} - -// Domain is symbolic name. Check if it''''s valid. - -var atomPat=new RegExp("^" + atom + "$"); -var domArr=domain.split("."); -var len=domArr.length; -for (i=0;i'); - htp.p(WSGJSL.OpenEvent('CUST','OnLoad')); - htp.p(' - if ( FormType != "PostDelete") - { - form_num=0; - do - { - elem_num=0; - len = document.forms[form_num].elements.length; - if (len > 0) - { - while (elem_num < len && - document.forms[form_num].elements[elem_num].type != "text" && - document.forms[form_num].elements[elem_num].type != "textarea") - { - elem_num++; - } - if (elem_num < len) - { - document.forms[form_num].elements[elem_num].focus(); - break; - } - } - form_num++; - } while ( form_num < document.forms.length ); - } -'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnVFU','OnClick')); - htp.p(' if (!CUST_Validate(ctl)) { return false; }'); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnVFD','OnClick')); - htp.p(WSGJSL.VerifyDelete(WSGL.MsgGetText(118, WSGLM.DSP118_CONFIRM_DELETE))); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnVFR','OnClick')); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnVFI','OnClick')); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('AI_INTE','OnClick')); - htp.p(' - var TargetFrame = JSLFindTargetFrame( "_top"); - var Url = "EFNOW110$CUIN.startup?Z_FORM=QUERY&P_CUST_ID=" + P_CUST_ID[index] + "&P_2=" + P_2[index] + "&Z_CHK=" + CUIN_CHK_VALUE[index]; - if (TargetFrame) - { - TargetFrame.location = Url; - } - else - { - location = Url; - } - return false;'); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - VF_BODY_ATTRIBUTES, 'efnow110$js$cust.CreateViewJavaScript'); - end; - --------------------------------------------------------------------------------- --- Name: efnow110$js$cust.CreateInsertJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateInsertJavaScript( - IF_ROWS_INSERTED in integer, - IF_ROWS_ERROR in integer, - IF_BODY_ATTRIBUTES in varchar2, - LOV_FRAME in varchar2) is - begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "Insert";'); - htp.p('var index = 0;'); - if IF_ROWS_INSERTED > 0 then - htp.p( 'var DataChange = true;' ); - else - htp.p( 'var DataChange = false;' ); - end if; - if IF_ROWS_ERROR > 0 then - htp.p( 'var DataChangeErrors = true;' ); - else - htp.p( 'var DataChangeErrors = false;' ); - end if; - - - htp.p(WSGJSL.RtnOpenLOV); - htp.p(WSGJSL.RtnNotNull); - htp.p(WSGJSL.RtnChkMaxLength); - htp.p(WSGJSL.RtnCheckModified); - htp.p(WSGJSL.RtnRevertForm); - htp.p(WSGJSL.RtnFlagRow); - htp.p(WSGJSL.RtnFindTargetFrame); - - WSGJSL.Output_Invoke_CAL_JS ('efnow110$cust', 'scrollbars=no,resizable=no,width=320,height=350'); - - - htp.p(WSGJSL.OpenEvent('UI_KAM_MGR_NAME','LOV')); htp.p(' - var depStr = ""; - var modeStr = "" - if (index == null) - index = 0; - if (ctl[index].form.name.search(/VForm$/) == -1) - { - modeStr = "INS"; - } - else - { - modeStr = "UPD"; - } -'); - - if LOV_FRAME is not null then - htp.p(' var lovFra = "'||LOV_FRAME||'";'); - htp.p(' var winpar = "";'); - else - htp.p(' var lovFra = "winLOV";'); - htp.p(' var winpar = "scrollbars=yes,resizable=yes,width=400,height=400";'); - end if; - htp.p(' var filterprompt = "";'); - htp.p(' - - var lovTitle = "'||replace('','"','\"')||'"; - window.current_lov_title = lovTitle; - - JSLOpenLOV( ctl[index], index, modeStr, "efnow110$cust.kam_syus_id_lov", depStr, lovFra, winpar, filterprompt ); - -'); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('CUST','Validate')); - htp.p( -' -// CheckEmail -// -// -return emailCheck(ctl.form.P_EMAIL_ADDRESS[0]);');htp.p('var index = 0;'); - - - htp.p(WSGJSL.CallNotNull('ctl.form.P_PRIMARY_CONTACT[index]', WSGL.MsgGetText(219, WSGLM.MSG219_MISSING_MANDATORY, '#Primary Contact*#2472#:'))); - - - htp.p(WSGJSL.CallNotNull('ctl.form.P_PRIMARY_CONTACT_TEL[index]', WSGL.MsgGetText(219, WSGLM.MSG219_MISSING_MANDATORY, '#Primary Contact Tel.*#2473#:'))); - - - htp.p(WSGJSL.CallNotNull('ctl.form.P_EMAIL_ADDRESS[index]', WSGL.MsgGetText(219, WSGLM.MSG219_MISSING_MANDATORY, '#Email Address*#2462#:'))); - - htp.p(WSGJSL.CallChkMaxLength('ctl.form.P_DESCRIPTION[index]', 80, WSGL.MsgGetText(230, WSGLM.MSG230_MAXLEN_ERROR, '#Description#20#:', '80') -)); - - - htp.p(WSGJSL.CallNotNull('ctl.form.P_TELEPHONE[index]', WSGL.MsgGetText(219, WSGLM.MSG219_MISSING_MANDATORY, '#Telephone*#2463#:'))); - - - htp.p(WSGJSL.CallNotNull('ctl.form.P_FAX[index]', WSGL.MsgGetText(219, WSGLM.MSG219_MISSING_MANDATORY, '#Fax*#2465#:'))); - - - - - htp.p(WSGJSL.CallNotNull('ctl.form.P_PERIOD_START[index]', WSGL.MsgGetText(219, WSGLM.MSG219_MISSING_MANDATORY, '#Period Start*#2460#:'))); - - - htp.p(WSGJSL.CloseEvent); - htp.p( -'// emailCheck -// -// - -function emailCheck (emailObj,lang) { - -function fieldFocus() { - emailObj.focus(); -} -/* The following variable tells the rest of the function whether or not -to verify that the address ends in a two-letter country or well-known -TLD. 1 means check it, 0 means don''''t. */ - -var checkTLD=1; -var emailStr = emailObj.value; - -/* The following is the list of known TLDs that an e-mail address must end with. */ - -var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/; - -/* The following pattern is used to check if the entered e-mail address -fits the user@domain format. It also is used to separate the username -from the domain. */ - -var emailPat=/^(.+)@(.+)$/; - -/* The following string represents the pattern for matching all special -characters. We don''''t want to allow special characters in the address. -These characters include ( ) < > @ , ; : \ " . [ ] */ - -/* -other chars: +!%/=*-#&{}?$| -*/ - -var specialChars="\\(\\)\\>\\<\\@\\,\\;\\:\\+\\!\\%\\/\\=\\*\\#\\&\\{\\}\\?\\$|\\\\\\\"\\.\\[\\]"; - -/* The following string represents the range of characters allowed in a -username or domainname. It really states which chars aren''''t allowed.*/ - -var validChars="\[^\\s" + specialChars + "\]"; -/*var validChars="\[^\\s" + "\]";*/ - -/* The following pattern applies if the "user" is a quoted string (in -which case, there are no rules about which characters are allowed -and which aren''''t; anything goes). E.g. "jiminy cricket"@disney.com -is a legal e-mail address. */ - -var quotedUser="(\"[^\"]*\")"; - -/* The following pattern applies for domains that are IP addresses, -rather than symbolic names. E.g. joe@[123.124.233.4] is a legal -e-mail address. NOTE: The square brackets are required. */ - -var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/; - -/* The following string represents an atom (basically a series of non-special characters.) */ - -var atom=validChars + ''''+''''; - -/* The following string represents one word in the typical username. -For example, in john.doe@somewhere.com, john and doe are words. -Basically, a word is either an atom or quoted string. */ - -var word="(" + atom + "|" + quotedUser + ")"; - -// The following pattern describes the structure of the user - -var userPat=new RegExp("^" + word + "(\\." + word + ")*$"); - -/* The following pattern describes the structure of a normal symbolic -domain, as opposed to ipDomainPat, shown above. */ - -var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$"); - -/* Finally, let''''s start trying to figure out if the supplied address is valid. */ - -/* Begin with the coarse pattern to simply break up user@domain into -different pieces that are easy to analyze. */ - -var matchArray=emailStr.match(emailPat); - -if (matchArray==null) { - -/* Too many/few @''''s or something; basically, this address doesn''''t -even fit the general mould of a valid e-mail address. */ -setTimeout( fieldFocus , 100 ); - -if (lang=="HU") { -alert("Helytelen Email cím (ellenorizze a @ és . karaktereket)"); -} -else { -alert("Email address seems incorrect (check @ and .''''s)"); -} -return false; -} -var user=matchArray[1]; -var domain=matchArray[2]; - -// Start by checking that only basic ASCII characters are in the strings (0-127). - -for (i=0; i127) { -alert("This username contains invalid characters."); -emailObj.focus(); -return false; - } -} -for (i=0; i127) { -alert("This domain name contains invalid characters."); -emailObj.focus(); -return false; - } -} - -// See if "user" is valid - -if (user.match(userPat)==null) { - -// user is not valid -if (lang=="HU") { -alert("A felhasználónév nem tunik érvényesnek."); -} -else { -alert("The username doesn''''t seem to be valid."); -} -emailObj.focus(); -return false; -} - -/* if the e-mail address is at an IP address (as opposed to a symbolic -host name) make sure the IP address is valid. */ - -var IPArray=domain.match(ipDomainPat); -if (IPArray!=null) { - -// this is an IP address - -for (var i=1;i<=4;i++) { -if (IPArray[i]>255) { -alert("Destination IP address is invalid!"); -emailObj.focus(); -return false; - } -} -return true; -} - -// Domain is symbolic name. Check if it''''s valid. - -var atomPat=new RegExp("^" + atom + "$"); -var domArr=domain.split("."); -var len=domArr.length; -for (i=0;i'); - htp.p(WSGJSL.OpenEvent('CUST','OnLoad')); - htp.p(' - if ( FormType != "PostDelete") - { - form_num=0; - do - { - elem_num=0; - len = document.forms[form_num].elements.length; - if (len > 0) - { - while (elem_num < len && - document.forms[form_num].elements[elem_num].type != "text" && - document.forms[form_num].elements[elem_num].type != "textarea") - { - elem_num++; - } - if (elem_num < len) - { - document.forms[form_num].elements[elem_num].focus(); - break; - } - } - form_num++; - } while ( form_num < document.forms.length ); - } -'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnIFI','OnClick')); - htp.p(' if (!CUST_Validate(ctl)) { return false; }'); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnIFR','OnClick')); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - IF_BODY_ATTRIBUTES, 'efnow110$js$cust.CreateInsertJavaScript'); - end; - --------------------------------------------------------------------------------- --- Name: efnow110$js$cust.CreateQueryJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateQueryJavaScript ( - LOV_FRAME in varchar2, - QF_BODY_ATTRIBUTES in varchar2) - is - begin - if not caco_security.security_check('efnow110$cust') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "Query";'); - - - htp.p(WSGJSL.OpenEvent('UI_CODE','LOV')); htp.p(' - var depStr = ""; - var modeStr = "" - index = -1; - modeStr = "Q"; -'); - - if LOV_FRAME is not null then - htp.p(' var lovFra = "'||LOV_FRAME||'";'); - htp.p(' var winpar = "";'); - else - htp.p(' var lovFra = "winLOV";'); - htp.p(' var winpar = "scrollbars=yes,resizable=yes,width=400,height=400";'); - end if; - htp.p(' var filterprompt = "";'); - htp.p(' - - var lovTitle = "'||replace('','"','\"')||'"; - window.current_lov_title = lovTitle; - - JSLOpenLOV( ctl, index, modeStr, "efnow110$cust.eflv_cust_code1_lov", depStr, lovFra, winpar, filterprompt ); - -'); - - htp.p(WSGJSL.CloseEvent); - WSGJSL.Output_Invoke_CAL_JS ('efnow110$cust', 'scrollbars=no,resizable=no,width=320,height=350'); - - - htp.p(WSGJSL.OpenEvent('UI_NAME','LOV')); htp.p(' - var depStr = ""; - var modeStr = "" - index = -1; - modeStr = "Q"; -'); - - if LOV_FRAME is not null then - htp.p(' var lovFra = "'||LOV_FRAME||'";'); - htp.p(' var winpar = "";'); - else - htp.p(' var lovFra = "winLOV";'); - htp.p(' var winpar = "scrollbars=yes,resizable=yes,width=400,height=400";'); - end if; - htp.p(' var filterprompt = "";'); - htp.p(' - - var lovTitle = "'||replace('','"','\"')||'"; - window.current_lov_title = lovTitle; - - JSLOpenLOV( ctl, index, modeStr, "efnow110$cust.eflv_cust_name1_lov", depStr, lovFra, winpar, filterprompt ); - -'); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('CUST','OnLoad')); - htp.p(' - if ( FormType != "PostDelete") - { - form_num=0; - do - { - elem_num=0; - len = document.forms[form_num].elements.length; - if (len > 0) - { - while (elem_num < len && - document.forms[form_num].elements[elem_num].type != "text" && - document.forms[form_num].elements[elem_num].type != "textarea") - { - elem_num++; - } - if (elem_num < len) - { - document.forms[form_num].elements[elem_num].focus(); - break; - } - } - form_num++; - } while ( form_num < document.forms.length ); - } -'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnQFQ','OnClick')); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Maintain Customer#1058#', - QF_BODY_ATTRIBUTES, 'efnow110$js$cust.CreateQueryJavaScript'); - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$js$cust.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$js$cust.spc deleted file mode 100644 index d847a52..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow110$js$cust.spc +++ /dev/null @@ -1,23 +0,0 @@ -create or replace package efnow110$js$cust is - - procedure CreateQueryJavaScript( - LOV_FRAME in varchar2, - QF_BODY_ATTRIBUTES in varchar2); - - procedure CreateViewJavaScript( - VF_ROWS_UPDATED in integer, - VF_ROWS_DELETED in integer, - VF_ROWS_ERROR in integer, - VF_BODY_ATTRIBUTES in varchar2, - IF_ROWS_INSERTED in integer, - IF_ROWS_ERROR in integer, - LOV_FRAME in varchar2); - - procedure CreateInsertJavaScript( - IF_ROWS_INSERTED in integer, - IF_ROWS_ERROR in integer, - IF_BODY_ATTRIBUTES in varchar2, - LOV_FRAME in varchar2); - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$.bdy deleted file mode 100644 index ebcb6d9..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$.bdy +++ /dev/null @@ -1,232 +0,0 @@ -create or replace package body efnow120$ is - private_ModuleRef WSGOC.MODULE_REF; - - - procedure CreateStartupJavaScript; --------------------------------------------------------------------------------- --- Name: efnow120$.Startup --- --- Description: This procedure is the entry point for the 'efnow120$' --- module (#View Commercial Confirmations#2480#). --- --- Parameters: None --- --------------------------------------------------------------------------------- - procedure Startup - is - begin - if not caco_security.security_check('efnow120$') then - return; - end if; - - WSGL.RegisterURL('efnow120$.startup'); - if WSGL.NotLowerCase then - return; - end if; - WSGL.StoreURLLink(0, '#View Commercial Confirmations#2480#'); - efnow120$conf.startup( - Z_DIRECT_CALL => TRUE - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#', - '', 'efnow120$.Startup'); - end; --------------------------------------------------------------------------------- --- Name: efnow120$.firstpage --- --- Description: This procedure creates the first page for the 'efnow120$' --- module (#View Commercial Confirmations#2480#). --- --- Parameters: Z_DIRECT_CALL - --- --------------------------------------------------------------------------------- - procedure FirstPage(Z_DIRECT_CALL in boolean - -) is - begin - if not caco_security.security_check('efnow120$') then - return; - end if; - - WSGL.OpenPageHead('#View Commercial Confirmations#2480#'); - WSGL.METATag; - WSGL.ClosePageHead; - WSGL.OpenPageBody(FALSE, p_attributes=>''); - - CreateStartupJavaScript; - - WSGL.DefaultPageCaption('#View Commercial Confirmations#2480#', 1); - htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="SP$AIForm"'); - WSGL.NavLinks(WSGL.MENU_LONG, WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT), 0, 'efnow120$.showabout', '_top', p_output_line=>FALSE); - WSGL.NavLinks; - htp.formClose; - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#', - '', 'efnow120$.FirstPage'); - end; - - --------------------------------------------------------------------------------- --- Name: efnow120$.showabout --- --- Description: This procedure is used to display an 'About' page for the --- 'efnow120$' module (#View Commercial Confirmations#2480#). --- --------------------------------------------------------------------------------- - procedure showabout is - l_usr varchar2(255) := null; - begin - if not caco_security.security_check('efnow120$') then - return; - end if; - l_usr := caco_security.get_user; - - WSGL.RegisterURL('efnow120$.showabout'); - if WSGL.NotLowerCase then - return; - end if; - - WSGL.OpenPageHead(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' #View Commercial Confirmations#2480#'); - WSGL.METATag; - TemplateHeader(TRUE,2); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>''); - - htp.p(caco_system.menu); - - WSGL.DefaultPageCaption(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' #View Commercial Confirmations#2480#'); - - htp.para; - htp.p(' -$Revision: 1.4 $'); - htp.para; - - htp.para; - - htp.p(WSGL.MsgGetText(108,WSGLM.DSP108_GENERATED_BY, 'PL/SQL Web Generator', '10.1.2.6.18')); - htp.para; - - WSGL.Info(FALSE, 'Nominations', 'EFNOW120', l_usr); - - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#', - '', 'efnow120$.ShowAbout'); - end; --------------------------------------------------------------------------------- --- Name: efnow120$.TemplateHeader --- --- Description: --- --------------------------------------------------------------------------------- - procedure TemplateHeader(Z_DIRECT_CALL in boolean, - Z_TEMPLATE_ID in number) is - begin - if not caco_security.security_check('efnow120$') then - return; - end if; - - if Z_TEMPLATE_ID = 1 then - -- Template defined in \\loordv01\framework\css2\css_content.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 2 then - -- Template defined in \\loordv01\framework\css2\css_about.htm - htp.p(' '); - elsif Z_TEMPLATE_ID = 3 then - -- Template defined in \\loordv01\framework\css2\css_query.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 4 then - -- Template defined in \\loordv01\framework\css2\css_view.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 5 then - -- Template defined in \\loordv01\framework\css2\css_insert.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 6 then - -- Template defined in \\loordv01\framework\css2\css_recordlist.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 7 then - -- Template defined in \\loordv01\framework\css2\css_lov.htm - htp.p(' - -'); - elsif Z_TEMPLATE_ID = 8 then - -- Template defined in \\loordv01\framework\css2\css_text.htm - htp.p(' - -'); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#', - '', 'efnow120$.TemplateHeader'); - end; --------------------------------------------------------------------------------- --- Name: efnow120$.GetRef --- --- Description: Returns a handle to the display data for the --- 'efnow120$' module (#View Commercial Confirmations#2480#). --- If the display object does not exist then it creates it first. --- --- Parameters: --- --------------------------------------------------------------------------------- - - function GetRef return WSGOC.MODULE_REF - is - begin - if ( WSGOC.Is_Null(private_ModuleRef)) then - private_ModuleRef := WSGOC.Module - ( pShortName => 'efnow120$' - , pFirstTitle => '#View Commercial Confirmations#2480#' - ); - end if; - return private_ModuleRef; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#', - '', 'efnow120$.GetRef'); - raise; - end; - - - --------------------------------------------------------------------------------- --- Name: efnow120$.CreateStartupJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateStartupJavaScript is - begin - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "Startup";'); - htp.p(WSGJSL.CloseScript); - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$.spc deleted file mode 100644 index 0496ece..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$.spc +++ /dev/null @@ -1,14 +0,0 @@ -create or replace package efnow120$ is - - procedure Startup -; - procedure FirstPage(Z_DIRECT_CALL in boolean - -); - procedure ShowAbout; - procedure TemplateHeader(Z_DIRECT_CALL in boolean, - Z_TEMPLATE_ID in number); - function GetRef return WSGOC.MODULE_REF; - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$conf.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$conf.bdy deleted file mode 100644 index 51670c4..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$conf.bdy +++ /dev/null @@ -1,1539 +0,0 @@ -create or replace package body efnow120$conf is - - function CUST_CONT_LOV( - P_VALUE in varchar2 default null, - P_CTRL in number default 0, - P_MODE in varchar2 default 'Q', - p_select_first in boolean default false, - p_onclick in boolean default false, - p_onchange in boolean default false, - p_onblur in boolean default false, - p_onfocus in boolean default false, - p_onselect in boolean default false, - p_row in number default null) return varchar2; - function BuildSQL( - P_L_CONT2_CONTRACT_NUMBER in varchar2 default null, - P_L_NOMI_IDENTIFIER in varchar2 default null, - P_CONFIRMATION_SENT in varchar2 default null, - U_CONFIRMATION_SENT in varchar2 default null, - P_GAS_DAY in varchar2 default null, - U_GAS_DAY in varchar2 default null, - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean; - procedure OpenZoneSql ( I_CURSOR OUT integer ); - procedure AssignZoneRow( I_CURSOR IN integer ); - - function PreQuery( - P_L_CONT2_CONTRACT_NUMBER in varchar2 default null, - P_L_NOMI_IDENTIFIER in varchar2 default null, - P_CONFIRMATION_SENT in varchar2 default null, - U_CONFIRMATION_SENT in varchar2 default null, - P_GAS_DAY in varchar2 default null, - U_GAS_DAY in varchar2 default null) return boolean; - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean; - - QF_BODY_ATTRIBUTES constant varchar2(500) := ''; - QF_QUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(3,WSGLM.CAP003_QF_FIND); - QF_CLEAR_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(4,WSGLM.CAP004_QF_CLEAR); - QF_QUERY_BUT_ACTION constant varchar2(10) := 'QUERY'; - QF_CLEAR_BUT_ACTION constant varchar2(10) := 'CLEAR'; - QF_NUMBER_OF_COLUMNS constant number(4) := 1; - VF_BODY_ATTRIBUTES constant varchar2(500) := ''; - IF_BODY_ATTRIBUTES constant varchar2(500) := ''; - RL_BODY_ATTRIBUTES constant varchar2(500) := ''; - RL_NEXT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(11,WSGLM.CAP011_RL_NEXT); - RL_PREV_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(12,WSGLM.CAP012_RL_PREVIOUS); - RL_FIRST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(13,WSGLM.CAP013_RL_FIRST); - RL_LAST_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(14,WSGLM.CAP014_RL_LAST); - RL_COUNT_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(15,WSGLM.CAP015_RL_COUNT); - RL_REQUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(16,WSGLM.CAP016_RL_REQUERY); - RL_QUERY_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(24,WSGLM.CAP024_RL_QUERY); - RL_QUERY_BUT_ACTION constant varchar2(10) := 'QUERY'; - RL_NEXT_BUT_ACTION constant varchar2(10) := 'NEXT'; - RL_PREV_BUT_ACTION constant varchar2(10) := 'PREV'; - RL_FIRST_BUT_ACTION constant varchar2(10) := 'FIRST'; - RL_LAST_BUT_ACTION constant varchar2(10) := 'LAST'; - RL_COUNT_BUT_ACTION constant varchar2(10) := 'COUNT'; - RL_REQUERY_BUT_ACTION constant varchar2(10) := 'REQUERY'; - RL_RECORD_SET_SIZE constant number(4) := 10; - RL_TOTAL_COUNT_REQD constant boolean := FALSE; - RL_NUMBER_OF_COLUMNS constant number(4) := 1; - LOV_BODY_ATTRIBUTES constant varchar2(500) := ''; - LOV_FIND_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(17,WSGLM.CAP017_LOV_FIND); - LOV_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP018_LOV_CLOSE); - LOV_FIND_BUT_ACTION constant varchar2(10) := 'FIND'; - LOV_CLOSE_BUT_ACTION constant varchar2(10) := 'CLOSE'; - LOV_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - LOV_FRAME constant varchar2(20) := null; - CAL_BUTTON_TEXT constant varchar2(100) := htf.img('/framework/images/lov.gif','TOP','List Values',NULL,'WIDTH=18 HEIGHT=22 BORDER=0'); - CAL_CLOSE_BUT_CAPTION constant varchar2(100) := WSGL.MsgGetText(18,WSGLM.CAP025_CAL_CLOSE); - CAL_BODY_ATTRIBUTES constant varchar2(500) := ''; - TF_BODY_ATTRIBUTES constant varchar2(500) := ''; - DEF_BODY_ATTRIBUTES constant varchar2(500) := ''; - - type FORM_REC is record - (L_CUST2_NAME varchar2(600) - ,L_CONT2_CONTRACT_NUMBER varchar2(180) - ,L_NOMI_IDENTIFIER varchar2(180) - ,UI_GAS_DAY varchar2(24000) - ,CONFIRMATION_SENT varchar2(19) - ,UI_CONF_SENT varchar2(24000) - ,UI_URL varchar2(24000) - ,CONF_ID varchar2(40) - ,NOMI_ID varchar2(40) - ,UI_GAS_DAY_DATE varchar2(40) - ,GAS_DAY varchar2(12) - ,CONT_ID varchar2(40) - ); - FORM_VAL FORM_REC; - - PROCESSING_VIEW boolean := false; - ZONE_SQL varchar2(32767) := null; - ZONE_CHECKSUM varchar2(10); - - REF_COMPONENT WSGOC.COMPONENT_REF; - R_L_CUST2_NAME WSGOC.ITEM_REF; - R_L_CONT2_CONTRACT_NUMBER WSGOC.ITEM_REF; - R_L_NOMI_IDENTIFIER WSGOC.ITEM_REF; - R_UI_GAS_DAY WSGOC.ITEM_REF; - R_CONFIRMATION_SENT WSGOC.ITEM_REF; - R_UI_CONF_SENT WSGOC.ITEM_REF; - R_UI_URL WSGOC.ITEM_REF; - R_CONF_ID WSGOC.ITEM_REF; - R_NOMI_ID WSGOC.ITEM_REF; - R_UI_GAS_DAY_DATE WSGOC.ITEM_REF; - R_GAS_DAY WSGOC.ITEM_REF; - R_CONT_ID WSGOC.ITEM_REF; - - - -FUNCTION FormatDate ( p_date IN VARCHAR2 ) RETURN VARCHAR2 IS - --- FormatDate --- --- - - - - -- - v_return VARCHAR2(100); - v_mask VARCHAR2(34) := cout_system_configuration.get_configuration_item('G_DATE_FORMAT'); - -- -BEGIN - -- - v_return := TO_CHAR(TO_DATE(p_date, v_mask),v_mask); - -- - RETURN v_return; - -- -EXCEPTION - WHEN OTHERS THEN - RETURN p_date; -END FormatDate; -FUNCTION FormatDateTime ( p_date IN VARCHAR2 ) RETURN VARCHAR2 IS - --- FormatDateTime --- --- - - - - -- - v_return VARCHAR2(100); - v_mask VARCHAR2(34) := cout_system_configuration.get_configuration_item('G_DATE_FORMAT')||' HH24:MI:SS'; - -- -BEGIN - -- - v_return := TO_CHAR(TO_DATE(p_date, v_mask||' HH24:MI:SS'),v_mask); - -- - RETURN v_return; - -- -EXCEPTION - WHEN OTHERS THEN - RETURN p_date; -END FormatDateTime; --------------------------------------------------------------------------------- --- Name: efnow120$conf.CUST_CONT_LOV --- --- Description: Builds a GUI control to display the values returned by --- LOV 'CUST_CONT'. --- --- --------------------------------------------------------------------------------- - function CUST_CONT_LOV( - P_VALUE in varchar2, - P_CTRL in number, - P_MODE in varchar2 default 'Q', - p_select_first in boolean default false, - p_onclick in boolean, - p_onchange in boolean, - p_onblur in boolean, - p_onfocus in boolean, - p_onselect in boolean, - p_row in number) return varchar2 is - - L_RET_VALUE varchar2(32766) := null; - l_events varchar2(1000) := null; - l_valid boolean := false; - l_first boolean := true; - - cursor c1( z_mode in varchar2 - , z_filter in varchar2 - , z_uu in varchar2 - , z_ul in varchar2 - , z_lu in varchar2 - , z_ll in varchar2 - ) - is - SELECT CONT.CONTRACT_NUMBER CONTRACT_NUMBER -FROM CONTRACTS CONT -WHERE /* CG$LOVI_WC_START CUST_CONT 10 */ - (CONT.cust_id = caco_utilities.get_cust_id) - /* CG$LOVI_WC_END CUST_CONT 10 */ AND - (CONT.CONTRACT_NUMBER like z_uu||'%' or CONT.CONTRACT_NUMBER like z_ul||'%' or CONT.CONTRACT_NUMBER like z_lu||'%' or CONT.CONTRACT_NUMBER like z_ll||'%') and upper(CONT.CONTRACT_NUMBER) like upper(z_filter) -; - - l_rownum_txt varchar2(30); - begin - if p_row is not null then - l_rownum_txt := ', ' || to_char(p_row - 1); - end if; - if p_onclick then - l_events := l_events || ' onClick="return L_CONT2_CONTRACT_NUMBER_OnClick(this'||l_rownum_txt||')"'; - end if; - if p_onchange then - l_events := l_events || ' onChange="return L_CONT2_CONTRACT_NUMBER_OnChange(this'||l_rownum_txt||')"'; - end if; - if p_onblur then - l_events := l_events || ' onBlur="return L_CONT2_CONTRACT_NUMBER_OnBlur(this'||l_rownum_txt||')"'; - end if; - if p_onfocus then - l_events := l_events || ' onFocus="return L_CONT2_CONTRACT_NUMBER_OnFocus(this'||l_rownum_txt||')"'; - end if; - if p_onselect then - l_events := l_events || ' onSelect="return L_CONT2_CONTRACT_NUMBER_OnSelect(this'||l_rownum_txt||')"'; - end if; - - -- IDs Feature: - if P_CTRL = WSGL.CTL_QUERY and 1 <> 1 then - L_RET_VALUE := htf.formSelectOpen('P_L_CONT2_CONTRACT_NUMBER', - nsize=>'1', - cattributes=>'MULTIPLE CLASS = cglovlist'||l_events||' ID="'||'P_L_CONT2_CONTRACT_NUMBER'||'"'); - else - L_RET_VALUE := htf.formSelectOpen('P_L_CONT2_CONTRACT_NUMBER', - nsize=>'1', - cattributes=>'CLASS = cglovlist'||l_events||' ID="'||'P_L_CONT2_CONTRACT_NUMBER'||'"'); - end if; - - if P_CTRL = WSGL.CTL_QUERY and p_select_first then - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(' ', 'SELECTED'); - l_first := false; - l_valid := true; - end if; - - for c1rec in c1( P_MODE, '%',null,null,null,null) loop - if ((WSGL.EscapeItem(c1rec.CONTRACT_NUMBER) = P_VALUE) or c1rec.CONTRACT_NUMBER = P_VALUE) or (p_select_first and l_first) then - l_valid := true; - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.EscapeItem(c1rec.CONTRACT_NUMBER), 'SELECTED', - cattributes=>'VALUE="'||WSGL.EscapeItem(c1rec.CONTRACT_NUMBER)||'"'); - else - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.EscapeItem(c1rec.CONTRACT_NUMBER), null, - cattributes=>'VALUE="'||WSGL.EscapeItem(c1rec.CONTRACT_NUMBER)||'"'); - end if; - l_first := false; - end loop; - - if P_CTRL = WSGL.CTL_QUERY then - if l_first and p_select_first then - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.MsgGetText(1,WSGLM.CAP001_UNKNOWN), 'SELECTED'); - else - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.MsgGetText(1,WSGLM.CAP001_UNKNOWN)); - end if; - end if; - - if not l_valid then - L_RET_VALUE := L_RET_VALUE || htf.formSelectOption(WSGL.MsgGetText(28,WSGLM.CAP028_INVALID_VAL), 'SELECTED', - 'VALUE="'||WSGL.MsgGetText(28,WSGLM.CAP028_INVALID_VAL)||'"'); - end if; - L_RET_VALUE := L_RET_VALUE || htf.formSelectClose; - - return L_RET_VALUE; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#', - DEF_BODY_ATTRIBUTES, 'efnow120$conf.CUST_CONT_LOV'); - return L_RET_VALUE; - end; --------------------------------------------------------------------------------- --- Name: efnow120$conf.calendar --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - - procedure calendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ) is - - Field_Caption Varchar2 (2000); - - begin - - if Z_FIELD_PROMPT is null then - Field_Caption := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - else - Field_Caption := initcap (replace (Z_FIELD_PROMPT, '_', ' ')); - end if; - - - WSGL.RegisterURL('efnow120$conf.calendar'); - WSGL.AddURLParam('Z_FIELD_NAME', Z_FIELD_NAME); - WSGL.AddURLParam('Z_CALLER_URL', Z_CALLER_URL); - - if WSGL.NotLowerCase then - return; - end if; - - WSGL.Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow120$conf', - CAL_CLOSE_BUT_CAPTION, - True, - 'DD-MON-RRRR' - ); - - efnow120$.TemplateHeader(TRUE,7); - - WSGL.Output_Calendar - ( - Z_FIELD_NAME, - Z_FIELD_VALUE, - Z_FIELD_FORMAT, - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - 'efnow120$conf', - CAL_CLOSE_BUT_CAPTION, - False, - 'DD-MON-RRRR' - ); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', - CAL_BODY_ATTRIBUTES, 'efnow120$conf.calendar'); - end calendar; - --------------------------------------------------------------------------------- --- Name: efnow120$conf.format_cal_date --- --- Description: Converts the chosen date into the correct format using the format mask assigned --- to the field that the calendar was popped up for --- --------------------------------------------------------------------------------- - -procedure format_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ) is - - Field_Caption Varchar2 (2000) := initcap (replace (substr (Z_FIELD_NAME, 3, length (Z_FIELD_NAME) - 2), '_', ' ')); - l_day varchar2(15) := day; - -begin - - if l_day = '0' then - l_day := '01'; - end if; - - WSGL.Output_Format_Cal_JS - ( - WSGL.MsgGetText(123,WSGLM.DSP128_CAL_CAPTION, Field_Caption), - CAL_BODY_ATTRIBUTES, - l_day || '-' || month || '-' || year, - Z_FIELD_FORMAT - ); - -end format_cal_date; - --------------------------------------------------------------------------------- --- Name: efnow120$conf.Startup --- --- Description: Entry point for the 'CONF' module --- component . --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure Startup( - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2, - Z_FORM in varchar2) is - l_Foundform boolean := FALSE; - l_fs_text varchar2(32767) := '' ; - begin - if not caco_security.security_check('efnow120$conf') then - return; - end if; - - WSGL.RegisterURL('efnow120$conf.startup'); - WSGL.AddURLParam('Z_CHK', Z_CHK); - - - WSGL.StoreURLLink(1, 'CONF'); - - -- Either no frames are being used or the query form is on a - -- separate page. - if Z_FORM is not null then - null; - -- Work out which form is required, and check if that is possible - if Z_FORM = 'QUERY' then - FormQuery( - Z_DIRECT_CALL=>TRUE); - l_Foundform := TRUE; - end if; - if Z_FORM = 'LIST' then - QueryList( - Z_DIRECT_CALL=>TRUE); - l_Foundform := TRUE; - end if; - end if; - if l_Foundform = FALSE then - FormQuery( - Z_DIRECT_CALL=>TRUE); - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#'||' : '||'', - DEF_BODY_ATTRIBUTES, 'efnow120$conf.Startup'); - end; - --------------------------------------------------------------------------------- --- Name: efnow120$conf.ActionQuery --- --- Description: Called when a Query form is subitted to action the query request. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure ActionQuery( - P_L_CONT2_CONTRACT_NUMBER in varchar2, - P_L_NOMI_IDENTIFIER in varchar2, - P_CONFIRMATION_SENT in varchar2, - U_CONFIRMATION_SENT in varchar2, - P_GAS_DAY in varchar2, - U_GAS_DAY in varchar2, - Z_DIRECT_CALL in boolean default false, - Z_ACTION in varchar2, - Z_CHK in varchar2 ) is - - L_CHK varchar2(10) := Z_CHK; - L_BUTCHK varchar2(100):= null; - l_dummy_bool boolean := false; - begin - if not caco_security.security_check('efnow120$conf') then - return; - end if; - - if not Z_DIRECT_CALL then - null; - end if; - - l_dummy_bool := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - QueryList( - P_L_CONT2_CONTRACT_NUMBER, - P_L_NOMI_IDENTIFIER, - P_CONFIRMATION_SENT, - U_CONFIRMATION_SENT, - P_GAS_DAY, - U_GAS_DAY, - Z_START=>null, - Z_ACTION=>L_BUTCHK, - Z_DIRECT_CALL=>TRUE); - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#'||' : '||'', - DEF_BODY_ATTRIBUTES, 'efnow120$conf.ActionQuery'); - end; - --------------------------------------------------------------------------------- --- Name: efnow120$conf.QueryHits --- --- Description: Returns the number or rows which matches the given search --- criteria (if any). --- --- Parameters: --- --------------------------------------------------------------------------------- - function QueryHits( - P_L_CONT2_CONTRACT_NUMBER in varchar2, - P_L_NOMI_IDENTIFIER in varchar2, - P_CONFIRMATION_SENT in varchar2, - U_CONFIRMATION_SENT in varchar2, - P_GAS_DAY in varchar2, - U_GAS_DAY in varchar2) return number is - I_QUERY varchar2(32767) := ''; - I_CURSOR integer; - I_VOID integer; - I_FROM_POS integer := 0; - I_COUNT number(10); - begin - if not caco_security.security_check('efnow120$conf') then - return -1; - end if; - - if not BuildSQL(P_L_CONT2_CONTRACT_NUMBER, - P_L_NOMI_IDENTIFIER, - P_CONFIRMATION_SENT, - U_CONFIRMATION_SENT, - P_GAS_DAY, - U_GAS_DAY) then - return -1; - end if; - - if not PreQuery(P_L_CONT2_CONTRACT_NUMBER, - P_L_NOMI_IDENTIFIER, - P_CONFIRMATION_SENT, - U_CONFIRMATION_SENT, - P_GAS_DAY, - U_GAS_DAY) then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - '#View Commercial Confirmations#2480#'||' : '||'', DEF_BODY_ATTRIBUTES); - return -1; - end if; - - I_FROM_POS := instr(upper(ZONE_SQL), ' FROM '); - - if I_FROM_POS = 0 then - return -1; - end if; - - I_QUERY := 'SELECT count(*)' || - substr(ZONE_SQL, I_FROM_POS); - - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, I_QUERY, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, I_COUNT); - I_VOID := dbms_sql.execute(I_CURSOR); - I_VOID := dbms_sql.fetch_rows(I_CURSOR); - dbms_sql.column_value(I_CURSOR, 1, I_COUNT); - dbms_sql.close_cursor(I_CURSOR); - - return I_COUNT; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#'||' : '||'', - DEF_BODY_ATTRIBUTES, 'efnow120$conf.QueryHits'); - return -1; - end; --------------------------------------------------------------------------------- --- Name: efnow120$conf.BuildSQL --- --- Description: Builds the SQL for the 'CONF' module component. --- This incorporates all query criteria and Foreign key columns. --- --- Parameters: --- --------------------------------------------------------------------------------- - function BuildSQL( - P_L_CONT2_CONTRACT_NUMBER in varchar2, - P_L_NOMI_IDENTIFIER in varchar2, - P_CONFIRMATION_SENT in varchar2, - U_CONFIRMATION_SENT in varchar2, - P_GAS_DAY in varchar2, - U_GAS_DAY in varchar2, - Z_QUERY_BY_KEY in boolean default false, - Z_ROW_ID in ROWID default null, - Z_BIND_ROW_ID in boolean default false) return boolean is - - I_WHERE varchar2(32767); - row_idx integer; - begin - - - -- Build up the Where clause - if Z_QUERY_BY_KEY then - I_WHERE := 'WHERE CONF_ID = ' || to_char(CURR_VAL.CONF_ID) || ' '; - elsif Z_ROW_ID is not null then - I_WHERE := 'WHERE CG$ROW_ID = ''' || rowidtochar( Z_ROW_ID ) || ''''; - elsif Z_BIND_ROW_ID then - I_WHERE := 'WHERE CG$ROW_ID = :b_row_id'; - else - WSGL.BuildWhere(P_L_CONT2_CONTRACT_NUMBER, 'L_CONT2_CONTRACT_NUMBER', WSGL.TYPE_CHAR, I_WHERE); - WSGL.BuildWhere(P_L_NOMI_IDENTIFIER, 'L_NOMI_IDENTIFIER', WSGL.TYPE_CHAR, I_WHERE); - begin - WSGL.BuildWhere(P_CONFIRMATION_SENT, U_CONFIRMATION_SENT, 'CONFIRMATION_SENT', WSGL.TYPE_DATE, I_WHERE, 'DD/MM/YYYY HH24:MI:SS'); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_ERROR_QRY, SQLERRM, - '#View Commercial Confirmations#2480#'||' : '||'', DEF_BODY_ATTRIBUTES, NULL, - WSGL.MsgGetText(210,WSGLM.MSG210_INVALID_QRY,'#Confirmation Sent#2482#'), - WSGL.MsgGetText(211,WSGLM.MSG211_EXAMPLE_TODAY,to_char(sysdate, 'DD/MM/YYYY HH24:MI:SS'))); - return false; - end; - begin - WSGL.BuildWhere(P_GAS_DAY, U_GAS_DAY, 'GAS_DAY', WSGL.TYPE_DATE, I_WHERE, 'DD/MM/YYYY'); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_ERROR_QRY, SQLERRM, - '#View Commercial Confirmations#2480#'||' : '||'', DEF_BODY_ATTRIBUTES, NULL, - WSGL.MsgGetText(210,WSGLM.MSG210_INVALID_QRY,'#Gas Day#1142#'), - WSGL.MsgGetText(211,WSGLM.MSG211_EXAMPLE_TODAY,to_char(sysdate, 'DD/MM/YYYY'))); - return false; - end; - - end if; - - ZONE_SQL := 'SELECT L_CUST2_NAME, - L_CONT2_CONTRACT_NUMBER, - L_NOMI_IDENTIFIER, - UI_GAS_DAY, - CONFIRMATION_SENT, - UI_CONF_SENT, - UI_URL, - CONF_ID, - NOMI_ID, - UI_GAS_DAY_DATE, - GAS_DAY, - CONT_ID - FROM ( SELECT L_CUST2.NAME L_CUST2_NAME, - L_CONT2.CONTRACT_NUMBER L_CONT2_CONTRACT_NUMBER, - L_NOMI.IDENTIFIER L_NOMI_IDENTIFIER, - ( SELECT EFNOW120$CONF.FORMATDATE(TO_CHAR(MIN(gas_day),cout_system_configuration.get_configuration_item(''G_DATE_FORMAT''))) FROM conf_net_point_cat_vals WHERE conf_id = CONF.CONF_ID ) UI_GAS_DAY, - CONF.CONFIRMATION_SENT CONFIRMATION_SENT, - ( SELECT EFNOW120$CONF.FORMATDATETIME(TO_CHAR(CONF.CONFIRMATION_SENT, cout_system_configuration.get_configuration_item(''G_DATE_FORMAT'')||'' HH24:MI:SS'')) FROM dual ) UI_CONF_SENT, - ''efnow099$.startup?p_conf_id=''||CONF.CONF_ID UI_URL, - CONF.CONF_ID CONF_ID, - CONF.NOMI_ID NOMI_ID, - ( SELECT MIN(gas_day) FROM conf_net_point_cat_vals WHERE conf_id = CONF.CONF_ID ) UI_GAS_DAY_DATE, - CONF.GAS_DAY GAS_DAY, - CONF.CONT_ID CONT_ID -FROM CONFIRMATIONS CONF, - NOMINATIONS L_NOMI, - CONTRACTS L_CONT2, - CUSTOMERS L_CUST2 -WHERE ( /* CG$MDTU_QWC_START CONF.CONF */ - (NVL(CONF.approved,''N'') = ''Y'' and CONF.confirmation_type = ''CO'') - /* CG$MDTU_QWC_END CONF.CONF */ - ) AND - CONF.NOMI_ID = L_NOMI.NOMI_ID (+) AND - CONF.CONT_ID = L_CONT2.CONT_ID (+) AND - ( /* CG$MDTU_QWC_START CONF.L_CUST2 */ - (L_CUST2.CUST_ID = caco_utilities.get_cust_id) - /* CG$MDTU_QWC_END CONF.L_CUST2 */ - ) AND - L_CONT2.CUST_ID = L_CUST2.CUST_ID (+) - ) '; - ZONE_SQL := ZONE_SQL || I_WHERE; - ZONE_SQL := ZONE_SQL || ' ORDER BY UI_GAS_DAY_DATE Desc '; - return true; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#'||' : '||'', - DEF_BODY_ATTRIBUTES, 'efnow120$conf.BuildSQL'); - return false; - end; - --------------------------------------------------------------------------------- --- Name: efnow120$conf.OpenZoneSql --- --- Description: Open's the cursor for the zone SQL of --- 'CONF' module component. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure OpenZoneSql - ( I_CURSOR OUT integer - ) - is - begin - I_CURSOR := dbms_sql.open_cursor; - dbms_sql.parse(I_CURSOR, ZONE_SQL, dbms_sql.v7); - dbms_sql.define_column(I_CURSOR, 1, NBT_VAL.L_CUST2_NAME, 100); - dbms_sql.define_column(I_CURSOR, 2, NBT_VAL.L_CONT2_CONTRACT_NUMBER, 30); - dbms_sql.define_column(I_CURSOR, 3, NBT_VAL.L_NOMI_IDENTIFIER, 30); - dbms_sql.define_column(I_CURSOR, 4, NBT_VAL.UI_GAS_DAY, 4000); - dbms_sql.define_column(I_CURSOR, 5, CURR_VAL.CONFIRMATION_SENT); - dbms_sql.define_column(I_CURSOR, 6, NBT_VAL.UI_CONF_SENT, 4000); - dbms_sql.define_column(I_CURSOR, 7, NBT_VAL.UI_URL, 4000); - dbms_sql.define_column(I_CURSOR, 8, CURR_VAL.CONF_ID); - dbms_sql.define_column(I_CURSOR, 9, CURR_VAL.NOMI_ID); - dbms_sql.define_column(I_CURSOR, 10, NBT_VAL.UI_GAS_DAY_DATE); - dbms_sql.define_column(I_CURSOR, 11, CURR_VAL.GAS_DAY); - dbms_sql.define_column(I_CURSOR, 12, CURR_VAL.CONT_ID); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#'||' : '||'', - '', 'efnow120$conf.OpenZoneSql'); - raise; - end; - --------------------------------------------------------------------------------- --- Name: efnow120$conf.AssignZoneRow --- --- Description: Assign's a row of data and calculates the check sum from the --- zone SQL of 'CONF' module component. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure AssignZoneRow - ( I_CURSOR IN integer - ) - is - begin - dbms_sql.column_value(I_CURSOR, 1, NBT_VAL.L_CUST2_NAME); - dbms_sql.column_value(I_CURSOR, 2, NBT_VAL.L_CONT2_CONTRACT_NUMBER); - dbms_sql.column_value(I_CURSOR, 3, NBT_VAL.L_NOMI_IDENTIFIER); - dbms_sql.column_value(I_CURSOR, 4, NBT_VAL.UI_GAS_DAY); - dbms_sql.column_value(I_CURSOR, 5, CURR_VAL.CONFIRMATION_SENT); - dbms_sql.column_value(I_CURSOR, 6, NBT_VAL.UI_CONF_SENT); - dbms_sql.column_value(I_CURSOR, 7, NBT_VAL.UI_URL); - dbms_sql.column_value(I_CURSOR, 8, CURR_VAL.CONF_ID); - dbms_sql.column_value(I_CURSOR, 9, CURR_VAL.NOMI_ID); - dbms_sql.column_value(I_CURSOR, 10, NBT_VAL.UI_GAS_DAY_DATE); - dbms_sql.column_value(I_CURSOR, 11, CURR_VAL.GAS_DAY); - dbms_sql.column_value(I_CURSOR, 12, CURR_VAL.CONT_ID); - ZONE_CHECKSUM := to_char(WSGL.Checksum - ( '' - || CURR_VAL.CONF_ID - ) ); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#'||' : '||'', - '', 'efnow120$conf.AssignZoneRow'); - raise; - end; - - - - --------------------------------------------------------------------------------- --- Name: efnow120$conf.FormQuery --- --- Description: This procedure builds an HTML form for entry of query criteria. --- The criteria entered are to restrict the query of the 'CONF' --- module component. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure FormQuery( - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2) is - L_SUCCESS boolean := TRUE; - begin - if not caco_security.security_check('efnow120$conf') then - return; - end if; - - if not Z_DIRECT_CALL then - - null; - end if; - - L_SUCCESS := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - WSGL.OpenPageHead('#View Commercial Confirmations#2480#'||' : '||''); - WSGL.METATag; - efnow120$.TemplateHeader(TRUE,1); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>QF_BODY_ATTRIBUTES || 'onLoad="return CONF_OnLoad()"'); - efnow120$js$conf.CreateQueryJavaScript(LOV_FRAME,QF_BODY_ATTRIBUTES); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => false - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - htp.p(caco_system.menu); - efnow120$.FirstPage(Z_DIRECT_CALL => TRUE - - ); - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - htp.p(WSGL.MsgGetText(115,WSGLM.DSP115_ENTER_QRY)); - htp.para; - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow120$conf.actionquery', cattributes => 'NAME="efnow120$conf$QForm"'); - - SaveState; - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE); - WSGL.LayoutRowStart; - for i in 1..QF_NUMBER_OF_COLUMNS loop - WSGL.LayoutHeader(29, 'LEFT', NULL); - WSGL.LayoutHeader(30, 'LEFT', NULL); - end loop; - WSGL.LayoutRowEnd; - - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Contract Number#2013#:')); - WSGL.LayoutData(CUST_CONT_LOV(NULL, WSGL.CTL_QUERY, 'Q', true)); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Nomination Identifier#2060#:')); - WSGL.LayoutData(WSGL.BuildQueryControl('L_NOMI_IDENTIFIER', '30', FALSE, p_maxlength=>'30')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Confirmation Sent#2482#:')); - WSGL.LayoutData(WSGL.BuildQueryControl('CONFIRMATION_SENT', '11', TRUE, p_maxlength=>'19' - , p_cal_but_text => CAL_BUTTON_TEXT - , p_cal_date_format => 'DD/MM/YYYY HH24:MI:SS' - , p_cal_prompt => '#Confirmation Sent#2482#' - , p_form=>'efnow120$conf$QForm')); - WSGL.LayoutRowEnd; - WSGL.LayoutRowStart('TOP'); - WSGL.LayoutData(htf.bold('#Gas Day#1142#:')); - WSGL.LayoutData(WSGL.BuildQueryControl('GAS_DAY', '11', TRUE, p_maxlength=>'10' - , p_cal_but_text => CAL_BUTTON_TEXT - , p_cal_date_format => 'DD/MM/YYYY' - , p_cal_prompt => '#Gas Day#1142#' - , p_form=>'efnow120$conf$QForm')); - WSGL.LayoutRowEnd; - - WSGL.LayoutClose; - - WSGL.SubmitButton('Z_ACTION', htf.escape_sc(QF_QUERY_BUT_CAPTION), 'btnQFQ', 'this.form.Z_ACTION.value=\''' || QF_QUERY_BUT_ACTION || '\'''); - htp.formReset(htf.escape_sc(QF_CLEAR_BUT_CAPTION), 'ID="'||htf.escape_sc(QF_CLEAR_BUT_CAPTION)||'"'); - - - WSGL.HiddenField('Z_CHK', to_char(WSGL.Checksum - (''))); - htp.formClose; - - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#'||' : '||'', - QF_BODY_ATTRIBUTES, 'efnow120$conf.FormQuery'); - WSGL.ClosePageBody; - end; - --------------------------------------------------------------------------------- --- Name: efnow120$conf.QueryList --- --- Description: This procedure builds the Record list for the 'CONF' --- module component. --- --- The Record List displays context information for records which --- match the specified query criteria. --- Sets of records are displayed (10 records at a time) --- with Next/Previous buttons to get other record sets. --- --- Parameters: P_L_CONT2_CONTRACT_NUMBER - #Contract Number#2013# --- P_L_NOMI_IDENTIFIER - #Nomination Identifier#2060# --- P_CONFIRMATION_SENT - #Confirmation Sent#2482# --- U_CONFIRMATION_SENT - #Confirmation Sent#2482# (upper bound) --- P_GAS_DAY - #Gas Day#1142# --- U_GAS_DAY - #Gas Day#1142# (upper bound) --- Z_START - First record to display --- Z_ACTION - Next or Previous set --- --------------------------------------------------------------------------------- - procedure QueryList( - P_L_CONT2_CONTRACT_NUMBER in varchar2, - P_L_NOMI_IDENTIFIER in varchar2, - P_CONFIRMATION_SENT in varchar2, - U_CONFIRMATION_SENT in varchar2, - P_GAS_DAY in varchar2, - U_GAS_DAY in varchar2, - Z_START in varchar2, - Z_ACTION in varchar2, - Z_DIRECT_CALL in boolean, - Z_CHK in varchar2 ) is - - I_VF_FRAME varchar2(20) := null; - I_WHERE varchar2(2000) := ''; - I_CURSOR integer; - I_VOID integer; - I_ROWS_FETCHED integer := 0; - I_TOTAL_ROWS integer := 0; - I_START number(38) := to_number(Z_START); - I_COUNT number(10) := 0; - I_OF_TOTAL_TEXT varchar2(200) := ''; - I_NEXT_BUT boolean; - I_PREV_BUT boolean; - I_COL_COUNT integer; - I_SUCCESS boolean := true; - l_row integer := 0; - l_id varchar2(35) := null; - -- Reset break group? - RSCONF boolean := true; - I_LAST_BASE CURR_VAL%TYPE; - I_LAST_NBT NBT_REC; - - - - begin - - if not caco_security.security_check('efnow120$conf') then - return; - end if; - - - WSGL.RegisterURL('efnow120$conf.querylist'); - WSGL.AddURLParam('P_L_CONT2_CONTRACT_NUMBER', P_L_CONT2_CONTRACT_NUMBER); - WSGL.AddURLParam('P_L_NOMI_IDENTIFIER', P_L_NOMI_IDENTIFIER); - WSGL.AddURLParam('P_CONFIRMATION_SENT', P_CONFIRMATION_SENT); - WSGL.AddURLParam('U_CONFIRMATION_SENT', U_CONFIRMATION_SENT); - WSGL.AddURLParam('P_GAS_DAY', P_GAS_DAY); - WSGL.AddURLParam('U_GAS_DAY', U_GAS_DAY); - WSGL.AddURLParam('Z_START', Z_START); - WSGL.AddURLParam('Z_ACTION', Z_ACTION); - WSGL.AddURLParam('Z_CHK', Z_CHK); - if (not Z_DIRECT_CALL) then - - null; - - - end if; - if (Z_ACTION = RL_QUERY_BUT_ACTION) or (Z_ACTION = RL_QUERY_BUT_CAPTION) then - FormQuery( - Z_DIRECT_CALL=>TRUE); - return; - end if; - - -- Set up any master context values that may be required - I_SUCCESS := RestoreState - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 99 - , Z_RESTORE_OWN_ROW => false - ); - - - - WSGL.OpenPageHead('#View Commercial Confirmations#2480#'||' : '||''); - WSGL.METATag; - efnow120$.TemplateHeader(TRUE,6); - WSGL.ClosePageHead; - - WSGL.OpenPageBody(FALSE, p_attributes=>RL_BODY_ATTRIBUTES); - efnow120$js$conf.CreateListJavaScript(RL_BODY_ATTRIBUTES); - - LoadCache - ( Z_CURR_DEPTH => 0 - , Z_MAX_DEPTH => 2 - , Z_OWN_ROW_VALUES => false - , Z_CONTEXT_FOR => REF_COMPONENT - ); - - - - htp.p(caco_system.menu); - - WSGMC_OUTPUT2.Before(REF_COMPONENT,2); - - if (Z_ACTION = RL_LAST_BUT_ACTION) or (Z_ACTION = RL_LAST_BUT_CAPTION) or - (Z_ACTION = RL_COUNT_BUT_ACTION) or (Z_ACTION = RL_COUNT_BUT_CAPTION) or - (RL_TOTAL_COUNT_REQD) - then - - I_COUNT := QueryHits( - P_L_CONT2_CONTRACT_NUMBER, - P_L_NOMI_IDENTIFIER, - P_CONFIRMATION_SENT, - U_CONFIRMATION_SENT, - P_GAS_DAY, - U_GAS_DAY); - if I_COUNT = -1 then - WSGL.ClosePageBody; - return; - end if; - end if; - - if (Z_ACTION = RL_COUNT_BUT_ACTION) or (Z_ACTION = RL_COUNT_BUT_CAPTION) or - RL_TOTAL_COUNT_REQD then - I_OF_TOTAL_TEXT := ' '||WSGL.MsgGetText(111,WSGLM.DSP111_OF_TOTAL, to_char(I_COUNT)); - end if; - if Z_START IS NULL or (Z_ACTION = RL_FIRST_BUT_ACTION) or (Z_ACTION = RL_FIRST_BUT_CAPTION) then - I_START := 1; - elsif (Z_ACTION = RL_NEXT_BUT_ACTION) or (Z_ACTION = RL_NEXT_BUT_CAPTION) then - I_START := I_START + RL_RECORD_SET_SIZE; - elsif (Z_ACTION = RL_PREV_BUT_ACTION) or (Z_ACTION = RL_PREV_BUT_CAPTION) then - I_START := I_START - RL_RECORD_SET_SIZE; - elsif (Z_ACTION = RL_LAST_BUT_ACTION) or (Z_ACTION = RL_LAST_BUT_CAPTION) then - I_START := 1 + (floor((I_COUNT-1)/RL_RECORD_SET_SIZE)*RL_RECORD_SET_SIZE); - elsif Z_ACTION is null and I_START = 1 then - null; - elsif Z_ACTION IS NULL then - WSGL.DisplayMessage(WSGL.MESS_ERROR, WSGL.MsgGetText(215,WSGLM.MSG215_NO_MULTIPLE_SUBMITS), - '#View Commercial Confirmations#2480#'||' : '||'', RL_BODY_ATTRIBUTES); - WSGL.ClosePageBody; - return; - end if; - - if I_START < 1 then - I_START := 1; - end if; - - I_PREV_BUT := TRUE; - I_NEXT_BUT := FALSE; - if I_START = 1 or Z_ACTION IS NULL then - I_PREV_BUT := FALSE; - end if; - - if nvl(Z_ACTION, 'X') != 'DONTQUERY' then - - if ZONE_SQL IS NULL then - if not BuildSQL( - P_L_CONT2_CONTRACT_NUMBER, - P_L_NOMI_IDENTIFIER, - P_CONFIRMATION_SENT, - U_CONFIRMATION_SENT, - P_GAS_DAY, - U_GAS_DAY) then - WSGL.ClosePageBody; - return; - end if; - end if; - - if not PreQuery( - P_L_CONT2_CONTRACT_NUMBER, - P_L_NOMI_IDENTIFIER, - P_CONFIRMATION_SENT, - U_CONFIRMATION_SENT, - P_GAS_DAY, - U_GAS_DAY) then - WSGL.DisplayMessage(WSGL.MESS_ERROR, cg$errors.GetErrors, - '#View Commercial Confirmations#2480#'||' : '||'', RL_BODY_ATTRIBUTES); - return; - end if; - - - - OpenZoneSql( I_CURSOR ); - I_VOID := dbms_sql.execute(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - else - I_ROWS_FETCHED := 0; - end if; - I_TOTAL_ROWS := I_ROWS_FETCHED; - - if I_ROWS_FETCHED != 0 then - WSGL.LayoutOpen(WSGL.LAYOUT_TABLE, P_BORDER=>TRUE); - - WSGL.LayoutRowStart(p_attrs=>'class = cgrlheaderrow'); - for i in 1..RL_NUMBER_OF_COLUMNS loop - WSGL.LayoutHeader(40, 'LEFT', '#Customer Name#1145#','NAME'); - WSGL.LayoutHeader(30, 'LEFT', '#Contract Number#2013#','CONTRACT_NUMBER'); - WSGL.LayoutHeader(30, 'LEFT', '#Nomination Identifier#2060#','IDENTIFIER'); - WSGL.LayoutHeader(30, 'LEFT', '#Gas Day#1142#',''); - WSGL.LayoutHeader(30, 'LEFT', '#Confirmation Sent#2482#',''); - WSGL.LayoutHeader(30, 'LEFT', '#View#2062#',''); - end loop; - WSGL.LayoutRowEnd; - - while I_ROWS_FETCHED <> 0 loop - - if I_TOTAL_ROWS >= I_START then - AssignZoneRow(I_CURSOR); - - if (NBT_VAL.L_CUST2_NAME != I_LAST_NBT.L_CUST2_NAME or (NBT_VAL.L_CUST2_NAME is null and I_LAST_NBT.L_CUST2_NAME is not null) or (NBT_VAL.L_CUST2_NAME is not null and I_LAST_NBT.L_CUST2_NAME is null) ) or - (NBT_VAL.L_CONT2_CONTRACT_NUMBER != I_LAST_NBT.L_CONT2_CONTRACT_NUMBER or (NBT_VAL.L_CONT2_CONTRACT_NUMBER is null and I_LAST_NBT.L_CONT2_CONTRACT_NUMBER is not null) or (NBT_VAL.L_CONT2_CONTRACT_NUMBER is not null and I_LAST_NBT.L_CONT2_CONTRACT_NUMBER is null) ) or - (NBT_VAL.L_NOMI_IDENTIFIER != I_LAST_NBT.L_NOMI_IDENTIFIER or (NBT_VAL.L_NOMI_IDENTIFIER is null and I_LAST_NBT.L_NOMI_IDENTIFIER is not null) or (NBT_VAL.L_NOMI_IDENTIFIER is not null and I_LAST_NBT.L_NOMI_IDENTIFIER is null) ) or - (NBT_VAL.UI_GAS_DAY != I_LAST_NBT.UI_GAS_DAY or (NBT_VAL.UI_GAS_DAY is null and I_LAST_NBT.UI_GAS_DAY is not null) or (NBT_VAL.UI_GAS_DAY is not null and I_LAST_NBT.UI_GAS_DAY is null) ) or - (CURR_VAL.CONFIRMATION_SENT != I_LAST_BASE.CONFIRMATION_SENT or (CURR_VAL.CONFIRMATION_SENT is null and I_LAST_BASE.CONFIRMATION_SENT is not null) or (CURR_VAL.CONFIRMATION_SENT is not null and I_LAST_BASE.CONFIRMATION_SENT is null) ) or - (NBT_VAL.UI_CONF_SENT != I_LAST_NBT.UI_CONF_SENT or (NBT_VAL.UI_CONF_SENT is null and I_LAST_NBT.UI_CONF_SENT is not null) or (NBT_VAL.UI_CONF_SENT is not null and I_LAST_NBT.UI_CONF_SENT is null) ) or - (NBT_VAL.UI_URL != I_LAST_NBT.UI_URL or (NBT_VAL.UI_URL is null and I_LAST_NBT.UI_URL is not null) or (NBT_VAL.UI_URL is not null and I_LAST_NBT.UI_URL is null) ) or - (CURR_VAL.CONF_ID != I_LAST_BASE.CONF_ID or (CURR_VAL.CONF_ID is null and I_LAST_BASE.CONF_ID is not null) or (CURR_VAL.CONF_ID is not null and I_LAST_BASE.CONF_ID is null) ) or - (CURR_VAL.NOMI_ID != I_LAST_BASE.NOMI_ID or (CURR_VAL.NOMI_ID is null and I_LAST_BASE.NOMI_ID is not null) or (CURR_VAL.NOMI_ID is not null and I_LAST_BASE.NOMI_ID is null) ) or - (NBT_VAL.UI_GAS_DAY_DATE != I_LAST_NBT.UI_GAS_DAY_DATE or (NBT_VAL.UI_GAS_DAY_DATE is null and I_LAST_NBT.UI_GAS_DAY_DATE is not null) or (NBT_VAL.UI_GAS_DAY_DATE is not null and I_LAST_NBT.UI_GAS_DAY_DATE is null) ) or - (CURR_VAL.GAS_DAY != I_LAST_BASE.GAS_DAY or (CURR_VAL.GAS_DAY is null and I_LAST_BASE.GAS_DAY is not null) or (CURR_VAL.GAS_DAY is not null and I_LAST_BASE.GAS_DAY is null) ) or - (CURR_VAL.CONT_ID != I_LAST_BASE.CONT_ID or (CURR_VAL.CONT_ID is null and I_LAST_BASE.CONT_ID is not null) or (CURR_VAL.CONT_ID is not null and I_LAST_BASE.CONT_ID is null) ) then - RSCONF := true; - else - RSCONF := false; - end if; - - - I_LAST_NBT.L_CUST2_NAME := NBT_VAL.L_CUST2_NAME; - I_LAST_NBT.L_CONT2_CONTRACT_NUMBER := NBT_VAL.L_CONT2_CONTRACT_NUMBER; - I_LAST_NBT.L_NOMI_IDENTIFIER := NBT_VAL.L_NOMI_IDENTIFIER; - I_LAST_NBT.UI_GAS_DAY := NBT_VAL.UI_GAS_DAY; - I_LAST_BASE.CONFIRMATION_SENT := CURR_VAL.CONFIRMATION_SENT; - I_LAST_NBT.UI_CONF_SENT := NBT_VAL.UI_CONF_SENT; - I_LAST_NBT.UI_URL := NBT_VAL.UI_URL; - I_LAST_BASE.CONF_ID := CURR_VAL.CONF_ID; - I_LAST_BASE.NOMI_ID := CURR_VAL.NOMI_ID; - I_LAST_NBT.UI_GAS_DAY_DATE := NBT_VAL.UI_GAS_DAY_DATE; - I_LAST_BASE.GAS_DAY := CURR_VAL.GAS_DAY; - I_LAST_BASE.CONT_ID := CURR_VAL.CONT_ID; - l_row := l_row + 1; - - - WSGL.LayoutRowStart('TOP', p_attrs=>'class = cgrldatarow'); - l_id := 'NAME' || l_row; - if RSCONF and NBT_VAL.L_CUST2_NAME is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.L_CUST2_NAME), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := 'CONTRACT_NUMBER' || l_row; - if RSCONF and NBT_VAL.L_CONT2_CONTRACT_NUMBER is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.L_CONT2_CONTRACT_NUMBER), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := 'IDENTIFIER' || l_row; - if RSCONF and NBT_VAL.L_NOMI_IDENTIFIER is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.L_NOMI_IDENTIFIER), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSCONF and NBT_VAL.UI_GAS_DAY is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.UI_GAS_DAY), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSCONF and NBT_VAL.UI_CONF_SENT is not null then - WSGL.LayoutData(p_text=>replace(WSGL.EscapeItem(NBT_VAL.UI_CONF_SENT), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - l_id := '' || l_row; - if RSCONF and NBT_VAL.UI_URL is not null then - WSGL.LayoutData(p_text=>replace(wsgl.anchor2(WSGL.EscapeItem(NBT_VAL.UI_URL), '#View#2062#'), ' -', '
-'), p_id=>l_id); - else - WSGL.LayoutData(p_text=>' ', p_id=>l_id); - end if; - - WSGL.LayoutRowEnd; - - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - if I_TOTAL_ROWS = I_START + RL_RECORD_SET_SIZE - 1 then - if I_ROWS_FETCHED <> 0 then - I_NEXT_BUT := TRUE; - end if; - exit; - end if; - else - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - end if; - - I_TOTAL_ROWS := I_TOTAL_ROWS + I_ROWS_FETCHED; - - end loop; - - WSGL.LayoutClose; - - if I_START = I_TOTAL_ROWS then - htp.p(WSGL.MsgGetText(109,WSGLM.DSP109_RECORD, to_char(I_TOTAL_ROWS))||I_OF_TOTAL_TEXT); - else - htp.p(WSGL.MsgGetText(110,WSGLM.DSP110_RECORDS_N_M, - to_char(I_START), to_char(I_TOTAL_ROWS))|| - I_OF_TOTAL_TEXT); - end if; - htp.para; - else - htp.p(WSGL.MsgGetText(112,WSGLM.DSP112_NO_RECORDS)); - end if; - - if nvl(Z_ACTION, 'X') != 'DONTQUERY' then - dbms_sql.close_cursor(I_CURSOR); - end if; - - WSGL.ResetForMultipleForms ; - htp.formOpen(curl => 'efnow120$conf.querylist', cattributes => 'NAME="efnow120$conf$LForm"'); - SaveState; - WSGL.HiddenField('P_L_CONT2_CONTRACT_NUMBER', P_L_CONT2_CONTRACT_NUMBER); - WSGL.HiddenField('P_L_NOMI_IDENTIFIER', P_L_NOMI_IDENTIFIER); - WSGL.HiddenField('P_CONFIRMATION_SENT', P_CONFIRMATION_SENT); - WSGL.HiddenField('U_CONFIRMATION_SENT', U_CONFIRMATION_SENT); - WSGL.HiddenField('P_GAS_DAY', P_GAS_DAY); - WSGL.HiddenField('U_GAS_DAY', U_GAS_DAY); - WSGL.HiddenField('Z_START', to_char(I_START)); - htp.p (''); - - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', htf.escape_sc(RL_FIRST_BUT_CAPTION), WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_FIRST_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', htf.escape_sc(RL_PREV_BUT_CAPTION), WSGL.MsgGetText(213,WSGLM.MSG213_AT_FIRST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_PREV_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', htf.escape_sc(RL_NEXT_BUT_CAPTION), WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_NEXT_BUT_ACTION || '\''"'); - WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', htf.escape_sc(RL_LAST_BUT_CAPTION), WSGL.MsgGetText(214,WSGLM.MSG214_AT_LAST), FALSE, - 'onClick="this.form.Z_ACTION.value=\''' || RL_LAST_BUT_ACTION || '\''"'); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(RL_REQUERY_BUT_CAPTION),p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_REQUERY_BUT_ACTION || '\''"'); - - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(RL_COUNT_BUT_CAPTION),p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_COUNT_BUT_ACTION || '\''"'); - htp.para; - - WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(RL_QUERY_BUT_CAPTION),p_dojs=>FALSE, - buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_QUERY_BUT_ACTION || '\''"'); - WSGL.HiddenField('Z_CHK', - to_char(WSGL.Checksum(''))); - htp.formClose; - - WSGL.ReturnLinks('0.1', WSGL.MENU_LONG, p_target=>'_top'); - WSGL.NavLinks; - WSGMC_OUTPUT2.After(REF_COMPONENT,2); - - htp.p(caco_system.footer); - - WSGL.ClosePageBody; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#'||' : '||'', - RL_BODY_ATTRIBUTES, 'efnow120$conf.QueryList'); - WSGL.ClosePageBody; - end; --------------------------------------------------------------------------------- --- Name: efnow120$conf.RestoreState --- --- Description: Restore the data state and optional meta data for the --- 'CONF' module component. --- --- Parameters: --- --------------------------------------------------------------------------------- - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean ) return boolean - is - I_REMAINING_DEPTH integer; - I_CURSOR integer; - I_VOID integer; - I_ROWS_FETCHED integer; - I_FETCH_ERROR boolean := FALSE; - I_SUCCESS boolean := TRUE; - begin - if Z_RESTORE_OWN_ROW then - if ( CURR_VAL.CONF_ID is null - ) then - return FALSE; - end if; - end if; - - if ( Z_RESTORE_OWN_ROW ) then - - -- Use the CURR_VAL fields for UID to get the other values - - if not BuildSQL( Z_QUERY_BY_KEY => true ) then - return FALSE; - end if; - - OpenZoneSql(I_CURSOR); - I_VOID := dbms_sql.execute(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED = 0 then - I_FETCH_ERROR := TRUE; - else - - AssignZoneRow(I_CURSOR); - I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR); - - if I_ROWS_FETCHED != 0 then - I_FETCH_ERROR := TRUE; - end if; - - end if; - - dbms_sql.close_cursor(I_CURSOR); - if I_FETCH_ERROR then - return FALSE; - end if; - - end if; - return TRUE; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#'||' : '||'', - '', 'efnow120$conf.RestoreState'); - raise; - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow120$conf.SaveState --- --- Description: Saves the data state for the 'CONF' module component. --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure SaveState - is - begin - - - null; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#'||' : '||'', - '', 'efnow120$conf.SaveState'); - raise; - end; - - --------------------------------------------------------------------------------- --- Name: efnow120$conf.GetRef --- --- Description: Returns a handle to the component object --- --- Parameters: --- --------------------------------------------------------------------------------- - function GetRef return WSGOC.COMPONENT_REF - is - begin - return ref_Component; - end; - --------------------------------------------------------------------------------- --- Name: efnow120$conf.LoadCache --- --- Description: Populate the object cache with --- 'CONF' module component. --- --------------------------------------------------------------------------------- - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF - , Z_BRANCH in WSGOC.BRANCH_REF - ) - is - I_VF_FRAME varchar2(20) := null; - begin - - -- Is cache already loaded - if not WSGOC.Is_Null(ref_Component) then - return; - end if; - - - ref_Component := WSGOC.Component - ( pModule => efnow120$.GetRef - , pBranch => Z_BRANCH - , pContext_For=> Z_CONTEXT_FOR - , pName => 'CONF' - , pSystemImagePath=> '/images/' - ); - - r_L_CUST2_NAME := WSGOC.Item - ( pName => 'L_CUST2_NAME' - , pPrompt => '#Customer Name#1145#' - , pIsContext=> true - ); - r_L_CONT2_CONTRACT_NUMBER := WSGOC.Item - ( pName => 'L_CONT2_CONTRACT_NUMBER' - , pPrompt => '#Contract Number#2013#' - , pIsContext=> true - ); - r_L_NOMI_IDENTIFIER := WSGOC.Item - ( pName => 'L_NOMI_IDENTIFIER' - , pPrompt => '#Nomination Identifier#2060#' - , pIsContext=> true - ); - r_UI_GAS_DAY := WSGOC.Item - ( pName => 'UI_GAS_DAY' - , pPrompt => '#Gas Day#1142#' - , pIsContext=> true - ); - r_CONFIRMATION_SENT := WSGOC.Item - ( pName => 'CONFIRMATION_SENT' - , pPrompt => '#Confirmation Sent#2482#' - ); - r_UI_CONF_SENT := WSGOC.Item - ( pName => 'UI_CONF_SENT' - , pPrompt => '#Confirmation Sent#2482#' - , pIsContext=> true - ); - r_UI_URL := WSGOC.Item - ( pName => 'UI_URL' - , pPrompt => '#View#2062#' - , pIsContext=> true - ); - r_CONF_ID := WSGOC.Item - ( pName => 'CONF_ID' - , pPrompt => '#Conf Id#2483#' - ); - r_NOMI_ID := WSGOC.Item - ( pName => 'NOMI_ID' - , pPrompt => '#Nomi Id#2481#' - ); - r_UI_GAS_DAY_DATE := WSGOC.Item - ( pName => 'UI_GAS_DAY_DATE' - , pPrompt => '' - ); - r_GAS_DAY := WSGOC.Item - ( pName => 'GAS_DAY' - , pPrompt => '#Gas Day#1142#' - ); - r_CONT_ID := WSGOC.Item - ( pName => 'CONT_ID' - , pPrompt => 'Cont Id' - ); - - WSGOC.Add_Items(ref_Component, r_L_CUST2_NAME); - WSGOC.Add_Items(ref_Component, r_L_CONT2_CONTRACT_NUMBER); - WSGOC.Add_Items(ref_Component, r_L_NOMI_IDENTIFIER); - WSGOC.Add_Items(ref_Component, r_UI_GAS_DAY); - WSGOC.Add_Items(ref_Component, r_CONFIRMATION_SENT); - WSGOC.Add_Items(ref_Component, r_UI_CONF_SENT); - WSGOC.Add_Items(ref_Component, r_UI_URL); - WSGOC.Add_Items(ref_Component, r_CONF_ID); - WSGOC.Add_Items(ref_Component, r_NOMI_ID); - WSGOC.Add_Items(ref_Component, r_UI_GAS_DAY_DATE); - WSGOC.Add_Items(ref_Component, r_GAS_DAY); - WSGOC.Add_Items(ref_Component, r_CONT_ID); - - - if ( Z_OWN_ROW_VALUES ) then - - -- Set the display value for each item - -- ( As would be displayed on the Record List ) - WSGOC.Set_Value( r_L_CUST2_NAME, replace(WSGL.EscapeItem(NBT_VAL.L_CUST2_NAME), ' -', '
-') ); - WSGOC.Set_Value( r_L_CONT2_CONTRACT_NUMBER, replace(WSGL.EscapeItem(NBT_VAL.L_CONT2_CONTRACT_NUMBER), ' -', '
-') ); - WSGOC.Set_Value( r_L_NOMI_IDENTIFIER, replace(WSGL.EscapeItem(NBT_VAL.L_NOMI_IDENTIFIER), ' -', '
-') ); - WSGOC.Set_Value( r_UI_GAS_DAY, replace(WSGL.EscapeItem(NBT_VAL.UI_GAS_DAY), ' -', '
-') ); - WSGOC.Set_Value( r_CONFIRMATION_SENT, WSGL.EscapeItem(ltrim(to_char(CURR_VAL.CONFIRMATION_SENT, 'DD/MM/YYYY HH24:MI:SS'))) ); - WSGOC.Set_Value( r_UI_CONF_SENT, replace(WSGL.EscapeItem(NBT_VAL.UI_CONF_SENT), ' -', '
-') ); - WSGOC.Set_Value( r_UI_URL, replace(wsgl.anchor2(WSGL.EscapeItem(NBT_VAL.UI_URL), '#View#2062#'), ' -', '
-') ); - WSGOC.Set_Value( r_CONF_ID, WSGL.EscapeItem(CURR_VAL.CONF_ID) ); - WSGOC.Set_Value( r_NOMI_ID, WSGL.EscapeItem(CURR_VAL.NOMI_ID) ); - WSGOC.Set_Value( r_UI_GAS_DAY_DATE, WSGL.EscapeItem(ltrim(to_char(NBT_VAL.UI_GAS_DAY_DATE, 'DD-MON-RRRR'))) ); - WSGOC.Set_Value( r_GAS_DAY, WSGL.EscapeItem(ltrim(to_char(CURR_VAL.GAS_DAY, 'DD/MM/YYYY'))) ); - WSGOC.Set_Value( r_CONT_ID, WSGL.EscapeItem(CURR_VAL.CONT_ID) ); - - end if; - - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#'||' : '||'', - '', 'efnow120$conf.LoadCache'); - raise; - end; - - - --------------------------------------------------------------------------------- --- Name: efnow120$conf.PreQuery --- --- Description: Provides place holder for code to be run prior to a query --- for the 'CONF' module component . --- --- Parameters: None --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PreQuery( - P_L_CONT2_CONTRACT_NUMBER in varchar2, - P_L_NOMI_IDENTIFIER in varchar2, - P_CONFIRMATION_SENT in varchar2, - U_CONFIRMATION_SENT in varchar2, - P_GAS_DAY in varchar2, - U_GAS_DAY in varchar2) return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#'||' : '||'', - DEF_BODY_ATTRIBUTES, 'efnow120$conf.PreQuery'); - return FALSE; - end; - --------------------------------------------------------------------------------- --- Name: efnow120$conf.PostQuery --- --- Description: Provides place holder for code to be run after a query --- for the 'CONF' module component . --- --- Parameters: Z_POST_DML Flag indicating if Query after insert or update --- Z_UPDATE_ROW Can be set to mark that row as modified when a --- multirow form is displayed, causing it to be --- updated when the form is submitted. --- --- Returns: True If success --- False Otherwise --- --------------------------------------------------------------------------------- - function PostQuery(Z_POST_DML in boolean, Z_UPDATE_ROW in out boolean) return boolean is - L_RET_VAL boolean := TRUE; - begin - return L_RET_VAL; - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#'||' : '||'', - DEF_BODY_ATTRIBUTES, 'efnow120$conf.PostQuery'); - return FALSE; - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$conf.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$conf.spc deleted file mode 100644 index ca5a7eb..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$conf.spc +++ /dev/null @@ -1,94 +0,0 @@ -create or replace package efnow120$conf is - - type NBT_REC is record - ( L_CUST2_NAME CUSTOMERS.NAME%type - , L_CONT2_CONTRACT_NUMBER CONTRACTS.CONTRACT_NUMBER%type - , L_NOMI_IDENTIFIER NOMINATIONS.IDENTIFIER%type - , UI_GAS_DAY varchar2(24000) - , UI_CONF_SENT varchar2(24000) - , UI_URL varchar2(24000) - , UI_GAS_DAY_DATE date - ); - - NBT_VAL NBT_REC; - CURR_VAL CONFIRMATIONS%rowtype; - - - procedure Startup( - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null, - Z_FORM in varchar2 default null); - procedure ActionQuery( - P_L_CONT2_CONTRACT_NUMBER in varchar2 default null, - P_L_NOMI_IDENTIFIER in varchar2 default null, - P_CONFIRMATION_SENT in varchar2 default null, - U_CONFIRMATION_SENT in varchar2 default null, - P_GAS_DAY in varchar2 default null, - U_GAS_DAY in varchar2 default null, - Z_DIRECT_CALL in boolean default false, - Z_ACTION in varchar2 default null, - Z_CHK in varchar2 default null ); - - procedure FormQuery( - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null); - - procedure QueryList( - P_L_CONT2_CONTRACT_NUMBER in varchar2 default null, - P_L_NOMI_IDENTIFIER in varchar2 default null, - P_CONFIRMATION_SENT in varchar2 default null, - U_CONFIRMATION_SENT in varchar2 default null, - P_GAS_DAY in varchar2 default null, - U_GAS_DAY in varchar2 default null, - Z_START in varchar2 default null, - Z_ACTION in varchar2 default null, - Z_DIRECT_CALL in boolean default false, - Z_CHK in varchar2 default null ); - function QueryHits( - P_L_CONT2_CONTRACT_NUMBER in varchar2 default null, - P_L_NOMI_IDENTIFIER in varchar2 default null, - P_CONFIRMATION_SENT in varchar2 default null, - U_CONFIRMATION_SENT in varchar2 default null, - P_GAS_DAY in varchar2 default null, - U_GAS_DAY in varchar2 default null) return number; - procedure LoadCache - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_OWN_ROW_VALUES in boolean default false - , Z_CONTEXT_FOR in WSGOC.COMPONENT_REF default null - , Z_BRANCH in WSGOC.BRANCH_REF default null - ); - function RestoreState - ( Z_CURR_DEPTH in number - , Z_MAX_DEPTH in number - , Z_RESTORE_OWN_ROW in boolean default true - ) return boolean; - procedure SaveState; - function GetRef return WSGOC.COMPONENT_REF; - - - - procedure calendar - ( - Z_FIELD_NAME in varchar2, - Z_CALLER_URL in varchar2, - Z_FIELD_VALUE in varchar2 default null, - Z_FIELD_FORMAT in varchar2 default null, - Z_FIELD_PROMPT in varchar2 default null - ); - - procedure format_cal_date - ( - Z_FIELD_NAME in Varchar2, - Z_FIELD_FORMAT in varchar2, - day in varchar2, - month in varchar2, - year in varchar2 - ); -FUNCTION FormatDate ( p_date IN VARCHAR2 ) RETURN VARCHAR2; - -FUNCTION FormatDateTime ( p_date IN VARCHAR2 ) RETURN VARCHAR2; - - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$js$conf.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$js$conf.bdy deleted file mode 100644 index 6379ab0..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$js$conf.bdy +++ /dev/null @@ -1,122 +0,0 @@ -create or replace package body efnow120$js$conf is - - --------------------------------------------------------------------------------- --- Name: efnow120$js$conf.CreateQueryJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateQueryJavaScript ( - LOV_FRAME in varchar2, - QF_BODY_ATTRIBUTES in varchar2) - is - begin - if not caco_security.security_check('efnow120$conf') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "Query";'); - - - - WSGJSL.Output_Invoke_CAL_JS ('efnow120$conf', 'scrollbars=no,resizable=no,width=320,height=350'); - - - htp.p(WSGJSL.OpenEvent('L_CONT2_CONTRACT_NUMBER','LOV')); htp.p(' - var depStr = ""; - var modeStr = "" - index = -1; - modeStr = "Q"; -'); - - if LOV_FRAME is not null then - htp.p(' var lovFra = "'||LOV_FRAME||'";'); - htp.p(' var winpar = "";'); - else - htp.p(' var lovFra = "winLOV";'); - htp.p(' var winpar = "scrollbars=yes,resizable=yes,width=400,height=400";'); - end if; - htp.p(' var filterprompt = "";'); - htp.p(' - - var lovTitle = "'||replace('','"','\"')||'"; - window.current_lov_title = lovTitle; - - JSLOpenLOV( ctl, index, modeStr, "efnow120$conf.cust_cont_lov", depStr, lovFra, winpar, filterprompt ); - -'); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('CONF','OnLoad')); - htp.p(' - if ( FormType != "PostDelete") - { - form_num=0; - do - { - elem_num=0; - len = document.forms[form_num].elements.length; - if (len > 0) - { - while (elem_num < len && - document.forms[form_num].elements[elem_num].type != "text" && - document.forms[form_num].elements[elem_num].type != "textarea") - { - elem_num++; - } - if (elem_num < len) - { - document.forms[form_num].elements[elem_num].focus(); - break; - } - } - form_num++; - } while ( form_num < document.forms.length ); - } -'); - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.OpenEvent('btnQFQ','OnClick')); - htp.p(WSGJSL.StandardSubmit(false)); - - htp.p(WSGJSL.CloseEvent); - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#'||' : '||'', - QF_BODY_ATTRIBUTES, 'efnow120$js$conf.CreateQueryJavaScript'); - end; - --------------------------------------------------------------------------------- --- Name: efnow120$js$conf.CreateListJavaScript --- --- Description: --- --- Parameters: --- --------------------------------------------------------------------------------- - procedure CreateListJavaScript ( - RL_BODY_ATTRIBUTES in varchar2) - is - begin - if not caco_security.security_check('efnow120$conf') then - return; - end if; - - htp.p(WSGJSL.OpenScript); - htp.p('var FormType = "List";'); - - - htp.p( 'var P_7 = new Array();' ); - - htp.p(WSGJSL.CloseScript); - exception - when others then - WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#'||' : '||'', - RL_BODY_ATTRIBUTES, 'efnow120$js$conf.CreateListJavaScript'); - end; -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$js$conf.spc b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$js$conf.spc deleted file mode 100644 index 079970b..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow120$js$conf.spc +++ /dev/null @@ -1,11 +0,0 @@ -create or replace package efnow120$js$conf is - - procedure CreateQueryJavaScript( - LOV_FRAME in varchar2, - QF_BODY_ATTRIBUTES in varchar2); - - procedure CreateListJavaScript( - RL_BODY_ATTRIBUTES in varchar2); - -end; -/ diff --git a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow131$.bdy b/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow131$.bdy deleted file mode 100644 index 9ee9fff..0000000 --- a/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/efnow131$.bdy +++ /dev/null @@ -1,976 +0,0 @@ -CREATE OR REPLACE PACKAGE BODY efnow131$ IS - -- - -- Text constants - -- - c_heading CONSTANT NUMBER := 1141; - c_gas_day CONSTANT NUMBER := 1142; - c_window_open CONSTANT NUMBER := 1143; - c_window_close CONSTANT NUMBER := 1144; - c_customer_name CONSTANT NUMBER := 1145; - c_contract_name CONSTANT NUMBER := 2082; - c_include_exclude CONSTANT NUMBER := 1146; - c_submit CONSTANT NUMBER := 1147; - c_selectall CONSTANT NUMBER := 1148; - c_message CONSTANT NUMBER := 1150; - c_customers CONSTANT NUMBER := 1045; - c_contracts CONSTANT NUMBER := 2401; - c_timestamp CONSTANT NUMBER := 1152; - c_subject CONSTANT NUMBER := 2148; - -- - -- Other Constants - -- - c_gas_day_start CONSTANT NUMBER := cout_system_configuration.get_configuration_item(p_parameter => 'GAS_DAY_OFFSET'); - c_timecomp_format CONSTANT VARCHAR2(2) := '00'; - c_yes CONSTANT VARCHAR2(1) := 'Y'; - c_date_format CONSTANT VARCHAR2(255) := g_date_format; - c_datetime_format CONSTANT VARCHAR2(255) := c_date_format || - ' HH24:MI:SS'; - c_nom_wdw_format CONSTANT VARCHAR2(255) := c_date_format || ' HH24:MI'; - c_renom_window CONSTANT VARCHAR2(1) := 'R'; - c_time_format CONSTANT VARCHAR2(255) := 'HH24:MI'; - -- - -- Global variables - -- - g_gas_day_lbl VARCHAR2(255) := caco_utilities.get_module_text(c_gas_day); - g_subject_lbl VARCHAR2(255) := caco_utilities.get_module_text(c_subject); - g_message_lbl VARCHAR2(255) := caco_utilities.get_module_text(c_message); - g_customers VARCHAR2(255) := caco_utilities.get_module_text(c_customers); - g_contracts VARCHAR2(255) := caco_utilities.get_module_text(c_contracts); - g_wdw_open_lbl VARCHAR2(255) := caco_utilities.get_module_text(c_window_open); - g_wdw_close_lbl VARCHAR2(255) := caco_utilities.get_module_text(c_window_close); - g_timestamp_lbl VARCHAR2(255) := caco_utilities.get_module_text(c_timestamp); - -- - -- standard web calendar package - -- - PROCEDURE calendar(z_field_name IN VARCHAR2 - ,z_caller_url IN VARCHAR2 - ,z_field_value IN VARCHAR2 DEFAULT NULL - ,z_field_format IN VARCHAR2 DEFAULT NULL - ,z_field_prompt IN VARCHAR2 DEFAULT NULL) IS - -- - field_caption VARCHAR2(2000); - -- - BEGIN - -- - IF z_field_prompt IS NULL THEN - -- - field_caption := INITCAP(REPLACE(SUBSTR(z_field_name - ,3 - ,LENGTH(z_field_name) - 2) - ,'_' - ,' ')); - -- - ELSE - -- - field_caption := INITCAP(REPLACE(z_field_prompt - ,'_' - ,' ')); - -- - END IF; - -- - wsgl.registerurl(g_package_name || '.calendar'); - wsgl.addurlparam('Z_FIELD_NAME' - ,z_field_name); - wsgl.addurlparam('Z_CALLER_URL' - ,z_caller_url); - -- - IF wsgl.notlowercase THEN - RETURN; - END IF; - -- - wsgl.output_calendar(z_field_name - ,z_field_value - ,z_field_format - ,wsgl.msggettext(123 - ,wsglm.dsp128_cal_caption - ,field_caption) - ,NULL - ,g_package_name - ,'Close' - ,TRUE - ,g_date_format); - -- - wsgl.output_calendar(z_field_name - ,z_field_value - ,z_field_format - ,wsgl.msggettext(123 - ,wsglm.dsp128_cal_caption - ,field_caption) - ,NULL - ,g_package_name - ,'Close' - ,FALSE - ,g_date_format); - -- - EXCEPTION - WHEN OTHERS THEN - wsgl.displaymessage(wsgl.mess_exception - ,SQLERRM - ,'' - ,NULL - ,g_package_name || '.calendar'); - END calendar; - -- - -- Standard web formatting package for submitted dates - -- - PROCEDURE format_cal_date(z_field_name IN VARCHAR2 - ,z_field_format IN VARCHAR2 - ,DAY IN VARCHAR2 - ,MONTH IN VARCHAR2 - ,YEAR IN VARCHAR2) IS - -- - field_caption VARCHAR2(2000) := INITCAP(REPLACE(SUBSTR(z_field_name - ,3 - ,LENGTH(z_field_name) - 2) - ,'_' - ,' ')); - l_day VARCHAR2(15) := DAY; - -- - PROCEDURE output_format_cal_js(page_header IN VARCHAR2 - ,body_attributes IN VARCHAR2 - ,chosen_date IN VARCHAR2 - ,field_format IN VARCHAR2) IS - -- - -- Copied from WSGL - -- - the_date DATE := TO_DATE(chosen_date - ,'DD-MONTH-YYYY'); - -- - BEGIN - -- - wsgl.openpagehead(page_header); - wsgl.closepagehead; - wsgl.openpagebody(FALSE - ,p_attributes => body_attributes); - htp.p(''); - wsgl.closepagebody; - -- - END output_format_cal_js; - -- - BEGIN - -- - IF l_day = '0' THEN - l_day := '01'; - END IF; - -- - output_format_cal_js(wsgl.msggettext(123 - ,wsglm.dsp128_cal_caption - ,field_caption) - ,NULL - ,l_day || '-' || MONTH || '-' || YEAR - ,z_field_format); - -- - END format_cal_date; - -- - -- Produce the hour poplist - -- - PROCEDURE hour_option_list IS - -- - l_hour NUMBER; - -- - BEGIN - -- - -- - -- Start at the gas day begining.... - -- - l_hour := c_gas_day_start; - -- - FOR i IN 1 .. 24 LOOP - -- - -- Reset the counter to do hours from midnight to 5 - -- - IF l_hour > 23 THEN - -- - l_hour := 0; - -- - END IF; - -- - IF TO_NUMBER(TO_CHAR(l_hour - ,c_timecomp_format)) = - TO_NUMBER(TO_CHAR((SYSDATE + 1 / 24) - ,'HH24')) THEN - -- - htp.p('