HAND-客户化健弹性域实现StepbyStep V1

Author:Yunfang.shangCreationDate:2006-02-20LastUpdated:2006-02-20DocumentRef:Version:1.0 Approvals: PDFcreatedwithpdfFactoryProtrialversion文档控制DateAuthorVersionChangeReference2006-02-231Yunfang.shangCreateNamePositionCopyNo.NameLocation12345PDFcreatedwithpdfFactoryProtrialversion iv OA数据结构 2 组别集 21.4在OA中：定义值集 2 Outsourcing 5Commec 5 DGROUPV WINDOW 10OKCAPRPRODGROUPV ProgramUnits 11在Form中添加弹性域支持(关键步骤) 11 建立弹性域定义(弹性域结构ID从参数中获取) 13r PDFcreatedwithpdfFactoryProtrialversion概述et描述了一下客户化程序创建和使用健弹性域的过程。系统中的Item的CategorySet健弹性域。是要实现按照不同的分组集对我们自定义的产品或服务从不同的角度、不同的层次进完成后的界面如下图所示，在Group列上我们应用了我们自己创建的健弹性域PDFcreatedwithpdfFactoryProtrialversion第一步创建弹性域、设置弹性域。CREATETABLECUX.HD_OKC_TKGP_COMBINATIONS(GROUP_STRUCTURE_IDGROUP_IDSEGMENT1SEGMENT2SEGMENT3SEGMENT4SEGMENT5SEGMENT6SEGMENT7SEGMENT8SEGMENT9SEGMENT10SEGMENT11SEGMENT12SEGMENT13SEGMENT14SEGMENT15SUMMARY_FLAGENABLED_FLAGSTART_DATE_ACTIVEEND_DATE_ACTIVECREATED_BYCREATION_DATELAST_UPDATED_BYLAST_UPDATE_DATELAST_UPDATE_LOGIN,,,,,,,,,,,,,,,,,,,,NUMBERVARCHAR2(30)VARCHAR2(30)VARCHAR2(30)VARCHAR2(30)VARCHAR2(30)VARCHAR2(30)VARCHAR2(30)VARCHAR2(30)VARCHAR2(30)VARCHAR2(30)VARCHAR2(30)VARCHAR2(30)VARCHAR2(30)VARCHAR2(30)VARCHAR2(30)VARCHAR2(1VARCHAR2(1)VARCHAR2(1)datedate,,DATE,,N,,DATENUMBER,,,,在唯一ID上建立唯一性索引,并创建sequenceXXX_S这里XXX是表名。createuniqueindexCUX.HD_OKC_TKGP_COMBINATIONS_U1onCUX.HD_OKC_TKGP_COMBINATIONS(GROUP_ID);CREATESYNONYMAPPS.HD_OKC_TKGP_COMBINATIONSFORCUX.HD_OKC_TKGP_COMBINATIONS;createsequenceCUX.HW_OKC_TKGP_COMBINATIONS_SNOCACHE;CREATESYNONYMAPPS.HW_OKC_TKGP_COMBINATIONS_SFORCUX.HD_OKC_TKGP_COMBINATIONS_S;PDFcreatedwithpdfFactoryProtrialversionOAEXECUTEEXECUTE'N');EXECUTEEXECUTEEXECUTEEXECUTEEXECUTEEXECUTEEXECUTEEXECUTEEXECUTEEXECUTEEXECUTEEXECUTE'N');EXECUTE'N');EXECUTE'N');EXECUTE'N');EXECUTEad_dd.register_table('CUX','HD_OKC_TKGP_COMBINATIONS','T',8,10,90);ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','GROUP_STRUCTURE_ID',1,'NUMBER',38,'Y',ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','GROUP_ID',2,'NUMBER',38,'Y','N');ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','SEGMENT1',3,'VARCHAR2',30,'Y','N');ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','SEGMENT2',4,'VARCHAR2',30,'Y','N');ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','SEGMENT3',5,'VARCHAR2',30,'Y','N');ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','SEGMENT4',6,'VARCHAR2',30,'Y','N');ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','SEGMENT5',7,'VARCHAR2',30,'Y','N');ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','SEGMENT6',8,'VARCHAR2',30,'Y','N');ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','SEGMENT7',9,'VARCHAR2',30,'Y','N');ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','SEGMENT8',10,'VARCHAR2',30,'Y','N');ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','SEGMENT9',11,'VARCHAR2',30,'Y','N');ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','SEGMENT10',12,'VARCHAR2',30,'Y','N');ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','SEGMENT11',13,'VARCHAR2',30,'Y',ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','SEGMENT12',14,'VARCHAR2',30,'Y',ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','SEGMENT13',15,'VARCHAR2',30,'Y',ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','SEGMENT14',16,'VARCHAR2',30,'Y',ad_dd.register_column('CUX','HD_OKC_TKGP_COMBINATIONS','SEGMENT15',17,'VARCHAR2',30,'Y','N');备注：这里CUX是客户化Application的简称3在OA中：注册健弹性域ApplicationDeveloper>FlexField>Key>RegisterApplicationCUX客户化应用模块eGRtleTurnkeyGroupSetDescriptionTableApplicationCUX客户化应用模块TableNameHD_OKC_TKGP_COMBINATIONSUniqueIDColumnGROUP_IDStructCloumnGROUP_STRUCTURE_IDDynamicInsertFeasiblesAllowIdValuesets 4在OA中：定义值集HD_OKC_TKGP_STAND_LEVEL1Systemadministrator>Application>Validation>VALIDATION>SETPDFcreatedwithpdfFactoryProtrialversionValuesetNameDescriptionListType:FormatValuesetNameDescriptionListType:FormatType:MaximumSize:ValidationtypeHD_OKC_TKGP_StandGroupListValuer30(备注：值集gmentn选择不到)tValuesetNameDescriptionListType:FormatType:MaximumSize:ValidationtypeHD_OKC_OutsourcingListValuer30(备注：值集gmentn选择不到)tSTANDLEVEL1lMaxSize须小于对应的的大小，否则定义Segmentn的值集的时候就Systemadministrator>Application>Validation>VALIDATION>SystemHWP备C配套CW-OSP建造工程NWPM项目管理HD_OKC_TKGP_OUTS_LEVEL1Systemadministrator>Application>Validation>VALIDATION>SystemGroupsetLevel1MaxSize须小于对应的的大小，否则定义Segmentn的值集的时候就Systemadministrator>Application>Validation>VALIDATION>SystemNG外配套-工程类物料EL外配套-电信类物料H外配套-其他类物料HD_OKC_TKGP_COMMEC_LEVEL2(用于测试)Systemadministrator>Application>Validation>VALIDATION>SETValuesetNameHD_OKC_TKGP_COMMEC_LEVEL2DescriptionCommecalGroupsetLevel1ListType:ListValueFormatType:rMaximumSize:30(备注：值集的MaxSize必须小于对应的Segmentn的大小，否则定义Segmentn的值集的时候就PDFcreatedwithpdfFactoryProtrialversionValidationtype选择不到)Validationtype选择不到)Systemadministrator>Application>Validation>VALIDATION>SystemQPALLStandSystemAdministrator->Application->FlexField->Key->SegmentsQuerybyFlexfieldTitle=TurnkeyGroupSetructurePDFcreatedwithpdfFactoryProtrialversioneDtleDDescriptionStandgroupsetAllowDynamicInsertsThenPress[Segment]ButtonNumberNameWindowPromptValueset1evelevelEGMENTHD_OKC_TKGP_STAND_LEVEL1OutsourcingSystemAdministrator->Application->FlexField->Key->SegmentsQuerybyFlexfieldTitle=TurnkeyGroupSetructureeOUTSOURCINGtleOUTSOURCINGDescriptionOutsourcinggroupsetAllowDynamicInsertsThenPress[Segment]ButtonNumberNameWindowPromptValueset1evelevelEGMENTHD_OKC_TKGP_OUTS_LEVEL1CommecSystemAdministrator->Application->FlexField->Key->SegmentsQuerybyFlexfieldTitle=TurnkeyGroupSetructureeMMECtleMMECDescriptionCommecalgroupsetAllowDynamicInsertsThenPress[Segment]ButtonNumberNameWindowPromptValueset1evelevelEGMENTHD_OKC_TKGP_STAND_LEVEL12evelevelEGMENTHD_OKC_TKGP_COMMEC_LEVEL2PDFcreatedwithpdfFactoryProtrialversion第二步在Form中使用健弹性域。Groupset(Block)HW_OKC_APR_PROD_GROUP_V(Block)AFormGroupSetName设置一个LOV，可以列出第一步的弹性域的的所有已定义的结构。PDFcreatedwithpdfFactoryProtrialversionmInstancePIDFLEXNUMupD图[2-1]的Form非常简单，本文的StepbyStep的步骤中不包含此Form的组信息表：HD_OKC_APPR_PRODUCT_GROUP--组信息表CREATETABLECUX.HD_OKC_APPR_PRODUCT_GROUP(GROUP_CATEGORYGROUP_CATEGORY_IDPRODUCT_GROUP_IDVARCHAR2(30),NUMBER,NUMBERNOTNULLD,--产品或服务分组IDCREATED_BYNUMBERNOTNULL,CREATION_DATEDATENOTNULL,LAST_UPDATED_BYLAST_UPDATE_DATELAST_UPDATE_LOGINNUMBERDATENUMBER,,CREATEUNIQUEINDEXCUX.HD_OKC_APPR_PRODUCT_GROUP_U1ONCUX.HD_OKC_APPR_PRODUCT_GROUP(PRODUCT_GROUP_ID);CREATESYNONYMAPPS.HD_OKC_APPR_PRODUCT_GROUPFORCUX.HD_OKC_APPR_PRODUCT_GROUP;CREATESEQUENCECUX.HD_OKC_APPR_PRODUCT_GROUP_SNOCACHE;CREATESYNONYMAPPS.HD_OKC_APPR_PRODUCT_GROUP_SFORCUX.HD_OKC_APPR_PRODUCT_GROUP_S;COMMENTONCOLUMNCUX.HD_OKC_APPR_PRODUCT_GROUP.GROUP_CATEGORYIS'组别集';COMMENTONCOLUMNCUX.HD_OKC_APPR_PRODUCT_GROUP.PRODUCT_GROUP_IDIS'产品或服务分组ID';--视图：HW_OKC_APR_PROD_GROUP_V组信息createorreplaceviewHD_OKC_APR_PROD_GROUP_Vasselectpg.rowidROW_ID,pg.created_by,pg.creation_date,pg.last_updated_by,pg.last_update_date,pg.last_update_login,pg.group_category,pg.group_category_id,duct_group_id,HD_BASE_PKG.concatenated_descriptions('HW','TKGR',pg.group_category_id,duct_group_id)PRODUCT_GROUP_DSPfromHD_OKC_APPR_PRODUCT_GROUPpg----视图：HW_OKC_APR_GROUPSET_V分组集createorreplaceviewHD_OKC_APR_GROUPSET_Vasselectfs.id_flex_structure_codeGROUP_CATEGORY_CODE,fs.ID_FLEX_STRUCTURE_NAMEGROUP_CATEGORY_NAME,fs.DESCRIPTIONGROUP_CATEGORY_DESCRIPTION,fs.ID_FLEX_NUMGROUP_CATEGORY_IDfromFND_ID_FLEX_STRUCTURES_VLfswherefs.id_flex_code='TKGR'andfs.APPLICATION_ID=CUX的ApplicationIDPDFcreatedwithpdfFactoryProtrialversionCONTROL其主要属性如下：NameScrollBarWidth.146ScrollBarLength2.083NameSubclassSubclassInformationRequRequiredDataDatabaseItemListListofValuesCanvasXXPositionPositionWidthPromptBTNPRODUCTBUTTONHD_OKC_APR_PROD_GROUP_V.3964.5311.344ProductCategoryBTNPRODUCTCLABUTTONHD_OKC_APR_PROD_GROUP_V2.3024.5312.125Mainproduct/servicetyHW_OKC_APR_PROD_GROUP_V其主要属性如下：NameHD_OKC_APR_PROD_GROUP_VNumberofRecordsDisplayedQueryDataSourceNameHD_OKC_APR_PROD_GROUP_VQueryDataSourceColumnsShowScrollBarYesScrollBarCanvasHD_OKC_APR_PROD_GROUP_VScrollBarTabPageScrollBarXPositionScrollBarYPositionScrollBarWidth.208PDFcreatedwithpdfFactoryProtrialversionScrollBarLength2.99NameSubclassInformationReqRequiredDataDatabaseItemListListofValuesCanvasXPosiXPositionYPosiYPositionWidthPromptROW_IDNoYes00.729CURRENT_RECORD_INDICATORCURRENT_RECORD_INDICATORNoNoHD_OKC_APR_PROD_GROUP_V.1681.333CREATED_BYYesYes00.802CreatedByCREATION_DATECREATION_OR_LAST_UPDATE_DATEYesYes00CreationDateLAST_UPDATED_BYNoYes00.802LastUpdatedByLAST_UPDATE_DACREATION_OR_LAST_UPDATE_DATENoYes00LastUpdateDateLAST_UPDATE_LOGINNoYes00.802LastUpdateLoginGROUP_CATEGORYNoYes002.26GroupCategoryGROUP_CATEGORY_IDNoYes00.729PRODUCT_GROUP_IDNoYes00.802ProductGroupIdPRODUCT_GROUP_CONCNoNoENABLE_LIST_LAMPHD_OKC_APR_PROD_GROUP_V.3131.3541.625GroupPRODUCT_GROUP_DESCNoNoHD_OKC_APR_PROD_GROUP_V1.971.3542.51DescriptionSEGMENT1NoNo002.26Segment1SEGMENT2NoNo002.26Segment2SEGMENT3NoNo002.26Segment3SEGMENT4NoNo002.26Segment4SEGMENT5NoNo002.26Segment5SEGMENT6NoNo00.729SEGMENT7NoNo00.729SEGMENT8NoNo00.729SEGMENT9NoNo00.729SEGMENT10NoNo00.729SEGMENT11NoNo00.729SEGMENT12NoNo00.729SEGMENT13NoNo00.729SEGMENT14NoNo00.729SEGMENT15NoNo00.729GROUPSET其主要属性如下：NameQueryDataSourceNameDOKCAPRGROUPSETVInsertAllowedNoUpdateAllowedNoDeleteAllowedNoScrollBarWidth.146PDFcreatedwithpdfFactoryProtrialversionScrollBarLength2.083NameSubclassSubclassInformationRequRequiredDataDatabaseItemListListofValuesCanvasXXPositionPositionWidthPromptGROUP_CATEGORY_IDNoYes00.729GROUP_CATEGORY_CODENoYes00.729GROUP_CATEGORY_NAMEITEMNoYesHD_OKC_APR_PROD_GROUP_V1.364.4591.792GroupsetNameGROUP_CATEGORY_DESCRIPTIONITEMNoYesHD_OKC_APR_PROD_GROUP_V1.364.743.042DescriptionCANVASHW_OKC_APR_PROD_GROUP_V其主要属性如下：NameHD_OKC_APR_PROD_GROUP_VSubclassInformationCANVASWindowHD_OKC_APR_PROD_GROUP_VWidth5.563Height4.969WINDOWHD_OKC_APR_PROD_GROUP_V其主要属性如下：NameHD_OKC_APR_PROD_GROUP_VSubclassInformationWINDOWTitleGroupInformationSetupPrimaryCanvasHD_OKC_APR_PROD_GROUP_VWidth5.552PDFcreatedwithpdfFactoryProtrialversionHeight4.948ParametersNameSubclassInformationParameterDataTypeMaximumLengthParameterInitialValueP_ID_FLEX_NUMNumber30ProgramUnits应代码，可以自己写或者林总的工具自动生成。建立隐藏字段对健弹性域而言隐藏字段包括：结构ID和CombinationID,Segment1~SegmentnCombinationID主要属性PRODUCT_GROUP_IDTEXT_ITEMSubclassInformationTEXT_ITEMDatatypeNumberQueryLengthVisiablenvasNullDatabaseItemsPDFcreatedwithpdfFactoryProtrialversionTEXT_ITEMSubclassInformationTEXT_ITEMDatatypeNumberQueryLengthVisiablenvasNullDatabaseItemsSegment1~SegmentnSegment1~SegmentnTEXT_ITEMSubclassInformationTEXT_ITEMDatatyperMaxlengthQueryLengthVisiablenvasNullDatabaseItemo建立显示字段PRODUCT_GROUPPRODUCT_GROUP_CONCTEXT_ITEMSubclassInformationTEXT_ITEMDatatyperMaxLengthQueryLengthVisiablenvasHD_OKC_APR_PROD_GROUP_VDatabaseItemoListofValueEnable_list_lampValidatefromlistNoPDFcreatedwithpdfFactoryProtrialversion建立弹性域定义(弹性域结构ID从参数中获取)BLOCKHDOKCAPRPRODGROUPVIELDPRODUCTGROUPCONCUPDESCID=>'PRODUCT_GROUP_ID',APPL_SHORT_NAME=>'HW',NUM=>:PARAMETER.P_ID_FLEX_NUM,REQUIRED=>'N',VRULE=>'',TITLE=>'TurnkeyGroupSet');在一些Trigger中调用弹性域定义在Form级Trigger中分别调用如下API在TriggerProcedurePRE-QUERYFND_FLEX.EVENT('PRE-QUERY');POST-QUERYFND_FLEX.EVENT('POST-QUERY');PRE-INSERTFND_FLEX.EVENT('PRE-INSERT');PRE-UPDATEFND_FLEX.EVENT('PRE-UPDATE');WHEN-VALIDATE-RECORDFND_FLEX.EVENT('WHEN-VALIDATE-RECORD');WHEN-NEW-ITEM-INSTANCEFND_FLEX.EVENT('WHEN-NEW-ITEM-INSTANCE');WHEN-VALIDATE-ITEMFND_FLEX.EVENT('WHEN-VALIDATE-ITEM');PDFcreatedwithpdfFactoryProtrialversion我们添加一种Group:如下图PDFcreatedwithpdfFactoryProtrialversion在Group上点LOV输入，系统弹出健弹性域组合窗口。由于我们在注册弹性域及定义COMMEC这个结构的时候是允许动态插入的。所以这里可以动态组合。点[ok]则返回在没有点[保存]按钮的时候，我们看到在HW_OKC_TKGP_COMBINATIONS