用友开发,用友二次开发U8开发

U8开发之自动纬度扩展客户化开发案例知识库属性适用产品 U8支持版本 V11.1行业 通用关键字 纬度扩展客户化开发最后更新时间 2014.06.16作者 申荣光应用场景描述“U8公共平台”产品从V10.1版本起支持在单据中显示部分基础档案的相关属性，既维度扩展，支持维度扩展的档案范围包含：存货、供应商和客户等。本文档举例说明如何利用U8公共平台维度扩展二次开发常用的组件、接口。通过对GSP管理“行业模板初始化”二次开发功能事件及接口的学习，掌握相关的客户化开发技术，可以在U8产品的基础上实现单据中档案维度扩展的灵活应用。概念说明维度扩展：如果在单据中预置相关档案的属性不足以表达用户需要的信息，根据客户需要系统还支持扩展显示档案的其他相关属性。运行环境支持本文档的VB代码范例在VB6.0SP6环境下调试通过，U8开发环境为U8V11.1，同时请安装U8公共平台以VI结尾的补丁支持。其他低于V11.0的版本不做支持。在GSP管理“行业模板初始化”客户化开发实例本节举例说明如何在GSP管理的“行业模板初始化”客户化开发实例。实现的目标功能:通过行业模板初始化功能实现对支持维度扩展的单据自动完成扩展相关得维度属性信息，并将扩展成功后的信息设置显示在单据的模板界面中。实现的功能比较简洁，主要目的是说明如何自动纬度扩展功能，并将扩展数据显示在单据模板中。实现效果：行业税桓初妗化 X更新偃药流逋推苣以下内容：L更鼬单据模械-列表等数据项描述如、自动增加显示相关数据项注；本功能不司逆」请怪慎操作执行」［_退出」概要需求：GSP质量根据一些医药行业的要求，需要更新很多单据模板及列表的显示项，为实现快速实施需要，行业产品提供了行业模板初始化功能，自动实现按规范的需要设置单据模板的信息。采购订单、销售订单能自动在单据模板中增加显示：通用名称、剂型、生产厂商、批准文号包括单据卡片模板、单据列表到货单、采购退货单、发货单、销售退货单、采购入库单、销售出库单、其他入库单、其他出库单、销售发票（普票、专票）、委托代销发货单、不合格品记录单、不合格品处理单能自动在单据模板中增加显示：通用名称、剂型、生产厂商、批准文号包括单据卡片模板、单据列表客户化开发实现方法：在VB6.0中建立“ActiveXDLL”动态链接库工程，如下图:选择ActiveXDLL项目。点击“打开”后，工程建立完成。添加一个Form窗体选择窗体项目。点击“打开”后，窗体添加完成。添加相关控件（添加窗体控件如下文窗体描述），并将窗体更名为frmTradelnit。此窗体中添加的控件如下，内容如下:frmTradelnit.frmBeginVB.FormfrmTradelnitBorderStyle = 3'FixedDialogCaption =行业模板初始化"ClientHeight = 2430ClientLeft = 45ClientTop = 330ClientWidth = 4770BeginPropertyFontName ="Tahoma"Size = 8.25Charset = 0Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough= 0 'FalseEndPropertyIcon = "frmTradeInit.frx":0000LinkTopic = "Form1"MaxButton = 0 'FalseMinButton = 0 'FalseScaleHeight = 2430ScaleWidth = 4770ShowInTaskbar = 0 'FalseStartUpPosition = 1所有者中心BeginUFLABELLib.UFLabellblrunHeight=255Left=360Tabindex=6Top=1605Visible=0 'FalseWidth=4455_Version=65536_ExtentX=7858_ExtentY=450_StockProps=111Caption=正在处理..."EndBeginUFLABELLib.UFLabelUFLabellHeight=195Index=0Left=360Tabindex=2Top=240Width=2460_Version=65536_ExtentX=4339_ExtentY=423_StockProps=111Caption=更新“医药流通”账套以下内容：”AutoSize=-1'TrueEndBeginUFCOMMANDBUTTONLib.UFCommandButtoncmdOKHeight=375Left=2160Tabindex=0Top=1920Width=1095_Version=65536_ExtentX=2646_ExtentY=1323_StockProps=41Caption=执行"UToolTipText=""Cursor=0BeginPropertyFont{0BE35203-8F91-11CE-9DE3-00AA004BB851}Name="MSSansSerif"Size= 8.25Charset= 0Weight= 400Underline= 0 'FalseItalic=0 'FalseStrikethrough=0 'FalseEndPropertyFlat =0'FalseEnabled =-1'TrueStyle =0'FalseValue =0'FalseEndBeginUFCOMMANDBUTTONLib.UFCommandButtoncmdExitHeight =375Left =3480TabIndex =1Top =1920Width =1095_Version =65536_ExtentX =2646_ExtentY =1323_StockProps =41Caption =退出”UToolTipText =""Cursor =0BeginPropertyFont{0BE35203-8F91-11CE-9DE3-00AA004BB851}Name="MSSansSerif"Size=8.25Charset=0Weight=400Underline=0 'FalseItalic=0 'FalseStrikethrough=0 'FalseEndPropertyFlat =0'FalseEnabled =-1'TrueStyle =0'FalseValue =0'FalseEndBeginUFLABELLib.UFLabelUFLabel1Height =195Index =1Left =360TabIndex =3Top =600Width =2970_Version =65536_ExtentX =5239ExtentY =423_StockProps =111Caption =、"更新单据模板、列表等数据项描述"AutoSize =End-1'TrueBeginUFLABELLib.UFLabelUFLabel1Height =195Index =2Left =360TabIndex =4Top =960Width =2250_Version =65536_ExtentX =3969_ExtentY =423_StockProps =111Caption =、”自动增加显示相关数据项”AutoSize =End-1'TrueBeginUFLABELLib.UFLabelUFLabel1Height =195Index =3Left =360TabIndex =5Top =1320Width =2520_Version =65536_ExtentX =4445_ExtentY =423_StockProps =111Caption =注:"本功能不可逆，请谨慎操作"ForeColor =255AutoSize =EndEnd-1'True在frmTradeInit.frm窗体加载中增加以下代码：frmTradelnit.frmPrivateSubcmdOK_Click()DimssqlAsStringDimdbMetaAsADODB.ConnectionOnErrorGoToerrHandle:SetdbMeta=NewADODB.ConnectiondbMeta.OpenmLogin.UfMetaNameIfMsgBox（"青确认是否现在开始行业模板初始化？"，vbYesNo,"行业模板初始化"）=vbYesThenMe.MousePointer=vbHourglassIblrun.Visible=TruecmdOK.Enabled=FalsecmdExit.Enabled=False维度扩展（扩展存货属性）lblrun.Caption=正在进行【销售订单】维度扩展..."DoEventsExtendVoucher"17"'销售订单lblrun.Caption=正在进行【采购订单】维度扩展..."DoEventsExtendVoucher"88"'采购订单lblrun.Caption=正在进行【到货'采购退货单】维度扩展...”DoEventsExtendVoucher"26"到货单、采购退货单lblrun.Caption=正在进行【发货单】维度扩展...”DoEventsExtendVoucher"01"发货单lblrun.Caption=正在进行【销售退货单】维度扩展...”DoEventsExtendVoucher"03"销售退货单lblrun.Caption=正在进行【采购入库单】维度扩展...”DoEventsExtendVoucher"24"米购入库单lblrun.Caption=正在进行【销售出库单】维度扩展...”DoEventsExtendVoucher"0303"销售出库单lblrun.Caption=正在进行【其他入库单】维度扩展...”DoEventsExtendVoucher"0301"其他入库单lblrun.Caption=正在进行【其他出库单】维度扩展...”DoEventsExtendVoucher"0302"其他出库单lblrun.Caption=正在进行【销售普票发票】维度扩展...”DoEventsExtendVoucher"07"销售发票（普票、专票）lblrun.Caption=正在进行【销售专票发票】维度扩展...”DoEventsExtendVoucher"13"lblrun.Caption=正在进行【委托代销发货单】维度扩展...”DoEventsExtendVoucher"05"委托代销发货单Iblrun.Caption=正在进行【不合格品记录单】维度扩展..."DoEventsExtendVoucher"0314"不合格品记录单Iblrun.Caption=正在进行【不合格品处理单】维度扩展...”DoEventsExtendVoucher"0315"不合格品处理单DbGSP.DbConnect.BeginTransdbMeta.BeginTrans'1项目改名保质期改为有效期，保质期单位改为有效期单位，生产企业改为生产厂商'1.1单据模板Iblrun.Caption=正在修改单据项目名称...”DoEventsssq="updatevouchertemplates_basesetVT_CardNumber=VT_CardNumber"&"updatevoucheritems_langsetcardformulal^'效期',cardformula2='有效期'wherelocaleid='zh-cn'andcarditemname='保质期'"&"updatevoucheritems_prn_langsetcardformulal^'效期',cardformula2='有效期'wherelocaleid='zh-cn'andcarditemname='保质期'"&"updatevoucheritems_langsetcardformulal^'效期单位',cardformula2='有效期单位'wherelocaleid='zh-cn'andcarditemname='保质期单位'"&_"updatevoucheritems_prn_langsetcardformulal^T'效期单位',cardformula2='有效期单位'wherelocaleid='zh-cn'andcarditemname='保质期单位'"&_"updatevoucheritems_langsetcardformula1^=^产厂商',cardformula2='生产厂商'wherelocaleid='zh-cn'and(FieldNamelike'%_v_inventory_centerprise'orFieldName='CENTERPRISE')"&"updatevoucheritems_prn_langsetcardformula1Hi产厂商',cardformula2='生产厂商'wherelocaleid='zh-cn'and(FieldNamelike'%_v_inventory_centerprise'orFieldName='CENTERPRISE')"DbGSP.DbConnect.Executessql'1.2单据列表lblrun.Caption=正在修改列表项目名称...”DoEventsssql="updateAA_ColumnDic_basesetcCaption=有效期'wherecCaption='保质期'"&"updateAA_ColumnSet_basesetcCaption有'效期'wherecCaption='保质期'"&"updateAA_ColumnDic_basesetcCaption有效期单位'wherecCaption='保质期单位'"&"updateAA_ColumnSet_basesetcCaption有效期单位'wherecCaption='保质期单位'"&_"updateAA_ColumnDic_basesetcCaption生产厂商'wherecFldlike'%_v_inventory_centerprise'orcFld='CENTERPRISE'"&"updateAA_ColumnSet_basesetcCaption生产厂商'wherecFldlike'%_v_inventory_centerprise'orcFld='CENTERPRISE'"dbMeta.Executessqlssql=ssql&"updateAA_ColumnDicCache_DetailsetcCaption有效期',cSCaption='有效期'wherecCaption='保质期'"&"updateAA_ColumnDicCache_DetailsetcCaption有效期单位',cSCaption='有效期单位'wherecCaption='保质期单位'"&"updateAA_ColumnDicCache_DetailsetcCaption生产厂商',cSCaption='生产厂商'wherecFldlike'%_v_inventory_centerprise'orcFld='CENTERPRISE'"DbGSP.DbConnect.Executessql'2显示项目通用名称、剂型、生产厂商、批准文号、批号、生产日期、有效期、有效期单位、有效期至'2.1单据模板lblrun.Caption=正在设置单据项目显示属性..."DoEventsssql="updatevoucheritems_basesetShowIt=1whereFieldNamelike'%_v_inventory_ccurrencyname'orFieldName='CCURRENCYNAME'"&"updaVoucheritems_prn_basesetShowIt=1whereFieldNamelike'%_v_inventory_ccurrencyname'orFieldName='CCURRENCYNAME'"&"updatevoucheritems_basesetShowIt=1whereFieldNamelike'%_v_inventory_cpreparationtype'orFieldName='CPREPARATIONTYPE'"&"updaVoucheritems_prn_basesetShowIt=1whereFieldNamelike'%_v_inventory_cpreparationtype'orFieldName='CPREPARATIONTYPE'"&"updatevoucheritems_basesetShowIt=1whereFieldNamelike'%_v_inventory_centerprise'orFieldName='CENTERPRISE'"&"updaVoucheritems_prn_basesetShowIt=1whereFieldNamelike'%_v_inventory_centerprise'orFieldName='CENTERPRISE'"&"updatevoucheritems_basesetShowIt=1whereFieldNamelike'%_v_inventory_cfile'orFieldName='CFILE'"&"updaVeucheritems_prn_basesetShowIt=1whereFieldNamelike'%_v_inventory_cfile'orFieldName='CFILE'"DbGSP.DbConnect.Executessqlssql="updatebsetShowIt=1fromvoucheritems_basebinnerjoinvoucheritems_langlonb.VT_ID=l.vt_idandb.FieldName=l.fieldnameandb.CardSection=l.cardsection"&"whereb.CanNotSelect=0andl.localeid='zh-cn'andl.carditemnamein（'批号'，'生产日期'，'有效期至'）"&_"updatesetShowIt=1fromvoucheritems_prn_basebinnerjoinvoucheritems_prn_langlonb.VT_ID=l.vt_idandb.FieldName=l.fieldnameandb.CardSection=l.cardsection"&"whereb.CanNotSelect=0andl.localeid='zh-cn'andl.carditemnamein（'批号'，'生产日期'，'有效期至'）"DbGSP.DbConnect.Executessqlssql="updatebsetShowIt=1fromvoucheritems_basebinnerjoinvoucheritems_langlonb.VT_ID=l.vt_idandb.FieldName=l.fieldnameandb.CardSection=l.cardsection"&"whereb.CanNotSelect=0andl.localeid='zh-cn'and（l.carditemname='有效期'orl.carditemname='保质期'）"&"updatesetShowIt=1fromvoucheritems_prn_basebinnerjoinvoucheritems_prn_langlonb.VT_ID=l.vt_idandb.FieldName=l.fieldnameandb.CardSection=l.cardsection"&"whereb.CanNotSelect=0andl.localeid='zh-cn'and（l.carditemname='有效期'orl.carditemname='保质期'）"DbGSP.DbConnect.Executessqlssql="updatebsetShowIt=1fromvoucheritems_basebinnerjoinvoucheritems_langlonb.VT_ID=l.vt_idandb.FieldName=l.fieldnameandb.CardSection=l.cardsection"&"whereb.CanNotSelect=0andl.localeid='zh-cn'and（l.carditemname='有效期单位'orl.carditemname='保质期单位'）"&"updatesetShowIt=1fromvoucheritems_prn_basebinnerjoinvoucheritems_prn_langlonb.VT_ID=l.vt_idandb.FieldName=l.fieldnameandb.CardSection=l.cardsection"&"whereb.CanNotSelect=0andl.localeid='zh-cn'and（l.carditemname='有效期单位'orl.carditemname='保质期单位'）"DbGSP.DbConnect.Executessql'2.2单据列表lblrun.Caption=正在设置列表项目显示属性..."DoEventsssql="updateAA_ColumnDic_basesetbDisp=1wherecFldlike'%_v_inventory_ccurrencyname'orcFld='CCURRENCYNAME'"&"updateAA_ColumnSet_basesetbDisp=1wherecFldlike'%_v_inventory_ccurrencyname'orcFld='CCURRENCYNAME'"&"updateAA_ColumnDic_basesetbDisp=1wherecFldlike'%_v_inventory_cpreparationtype'orcFld='CPREPARATIONTYPE'"&"updateAA_ColumnSet_basesetbDisp=1wherecFldlike'%_v_inventory_cpreparationtype'orcFld='CPREPARATIONTYPE'"&"updateAAColumnDicbasesetbDisp=1wherecFldlike

'%_v_inventory_centerprise'orcFld='CENTERPRISE'"&"updateAA_ColumnSet_basesetbDisp=1wherecFldlike'%_v_inventory_centerprise'orcFld='CENTERPRISE'"&"updateAA_ColumnDic_basesetbDisp=1wherecFldlike'%_v_inventory_cfile'orcFld='CFILE'"&"updateAA_ColumnSet_basesetbDisp=1wherecFldlike'%_v_inventory_cfile'orcFld='CFILE'"&"updateAA_ColumnDic_basesetbDisp=1wherecCaptiori）批号'"&"updateAA_ColumnSet_basesetbDisp=1wherecCaptiori）批号'"&"updateAA_ColumnDic_basesetbDisp=1wherecCaptionl=/产日期'"&"updateAA_ColumnSet_basesetbDisp=1wherecCaptionl=/产日期'"&"updaAA_ColumnDic_basesetbDisp=1wherecCaption='有效期'"&"updaAA_ColumnSet_basesetbDisp=1wherecCaption='有效期'"&"updateAA_ColumnDic_basesetbDisp=1wherecCaptio有效期单位'"&_"updateAA_ColumnSet_basesetbDisp=1wherecCaptio有效期单位'"&_"updateAA_ColumnDic_basesetbDisp=1wherecCaptio有效期至'"&"updateAA_ColumnSet_basesetbDisp=1wherecCaptio有效期至'"dbMeta.Executessqlssql=ssql&"updateAA_ColumnDicCache'%_v_inventory_ccurrencyname'orcFld='CCURRENCYNAME'"&"updateAA_ColumnDicCache_DetailsetbDisp=1'%_v_inventory_cpreparationtype'orcFld='CPREPARATIONTYPE'"updateAA_ColumnDicCache_Detailset'%_v_inventory_centerprise'orcFld='CENTERPRISE'""updateAA_ColumnDicCache_Detail'%_v_inventory_cfile'orcFld='CFILE'"&"updateDetailsetbDisp=1AAColumnDicCacheDetailsetsetwherewherecFldcFldlikelikebDisp=1bDisp=1bDisp=1wherewherewherecFldcFldlikelikecCaption='ssql=ssql&"updateAA_ColumnDicCache'%_v_inventory_ccurrencyname'orcFld='CCURRENCYNAME'"&"updateAA_ColumnDicCache_DetailsetbDisp=1'%_v_inventory_cpreparationtype'orcFld='CPREPARATIONTYPE'"updateAA_ColumnDicCache_Detailset'%_v_inventory_centerprise'orcFld='CENTERPRISE'""updateAA_ColumnDicCache_Detail'%_v_inventory_cfile'orcFld='CFILE'"&"updateDetailsetbDisp=1AAColumnDicCacheDetailsetsetwherewherecFldcFldlikelikebDisp=1bDisp=1bDisp=1wherewherewherecFldcFldlikelikecCaption='"update生产日期'"&_"updateAAColumnDicCacheDetailAAColumnDicCacheDetailsetsetbDisp=1bDisp=1wherewherecCaption='cCaption='有效期'"&"updateAAColumnDicCacheDetailsetbDisp=1wherecCaption="updateAAColumnDicCacheDetailsetbDisp=1wherecCaption=有效期单位’〃&_"updateAA_ColumnDicCache_DetailsetbDisp=1wherecCaption=有效期至’〃DbGSP.DbConnect.ExecutessqlDbGSP.DbConnect.CommitTransdbMeta.CommitTransMe.MousePointer=vbDefaultlblrun.Visible=FalsecmdOK.Enabled=TruecmdExit.Enabled=TrueMsgBox”行业模板初始化完成，请重启登陆。“UnloadMeEndIfExitSuberrHandle:DbGSP.DbConnect.RollbackTransdbMeta.RollbackTransMe.MousePointer=vbDefaultlblrun.Visible=FalsecmdOK.Enabled=TruecmdExit.Enabled=TrueMsgBox〃行业模板初始化失败，请退出所有客户端后重试。“EndSub纬度扩展实现代码frmTradelnit.frmPrivateSubExtendVoucher(cardnumberAsString,OptionalcardSectionAsString="B",OptionaljoinFieldAsString="")DimerrMsgAsStringDimvoucherExtendSrvObjAsObjectSetvoucherExtendSrvObj=CreateObject("UFVoucherHY.clsRepairVoucherExtendSrv")voucherExtendSrvObj.SetLoginmLoginIf(voucherExtendSrvObj.ExtendVoucher(cardnumber,cardSection,"inventory","cCurrencyName",errMsg,joinFiel