EBU客户化开发基本能力提升手册(V890版)(7)

ERP事业部咨询实施客户化开发部

Sub OpenFromDraft(ByVal nMode As TemplateModes) Dim sCardNum As String

sCardNum = m_bill(cboBill.ListIndex)

Call m_oHelper.GetDraftList(nMode, sCardNum) End Sub

Sub SaveAsDraft(ByVal nMode As TemplateModes) Dim sCardNum As String

sCardNum = m_bill(cboBill.ListIndex)

Dim str As String

Dim DomHead As DOMDocument Dim DomBody As DOMDocument

Call ctlVoucher1.getVoucherDataXML(DomHead, DomBody)

MsgBox \草稿编号：\& m_oHelper.SaveAsDraft(nMode, sCardNum, ctlVoucher1.GetVoucherState().sTitle, DomHead, DomBody) End Sub

1.2.1.5 应用技巧

单据控件是一个标准的ocx控件，使用的过程符合标准ocx的方法。

1.2.1.6 应用习题

习题1

实现表体汇总功能 习题2 实现表头附件功能

1.2.1.7 示例代码

具体实例见\\\\U890客开资料\\U8基础开发篇Demo\\单据控件\\ 文件夹下

1.2.2 VB参照开发

下面所有参照ID只用做测试使用，不作最终的参照ID

第31页 共 329页

ERP事业部咨询实施客户化开发部

1.2.2.1 使用说明

1.2.2.2 参照类型

第32页 共 329页

ERP事业部咨询实施客户化开发部

1.2.2.2.1 元素据定义参照

属性设置

RefEdit.RefType= Reftypes.RefArchive

示例：程序动态设置部分元素据定义示例： EdtArchive.RefType=RefArchive Call Me.EdtArchive.Init(g_oLogin, \ sMetaXML = \ Call EdtArchiveUser.Init(g_oLogin, \1.2.2.2.2 枚举参照

属性设置：

EdtRefEnum.RefType = Reftypes.RefEnumType

1.2.2.2.2.1 调用类型1（完整型）

Dim sXml As String sXml = \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \& _ \cFld='name' bDisp='1' cCaption='' iColWidth='1500' iAlign='1'/>\ \ \ \ \ \第33页 共 329页

ERP事业部咨询实施客户化开发部

1.2.2.2.2.2 调用类型2（简约型）

格式定义：同UFComboBox控件的SetEnumMapString(\格式保持一致 例如： Dim strEnum As String strEnum = \是{#}否{##}yes{#}no\ Call Me.EdtRefEnum.Init(g_oLogin, strEnum, False, \ 1.2.2.2.2.3 调用类型3（数据库型）

应用场景：对于参照的枚举数据需要从AA_Enum中读取； 例如（示例格式为XML简写格式）： Dim sXML As String sXML = \ \\ \ \ Call RefEditEnumDB.Init(g_oLogin, sXML, False, \ 1.2.2.2.3 日历调用

直接设置属性：

EdtDate.RefType = Reftypes.RefDate 1.2.2.2.4 计算器调用

直接设置属性：

EdtCal.RefType = Reftypes.RefCalculator 1.2.2.2.5 自定义数据参照调用

属性设置：

EdtArchive.RefType = RefTypes.RefUserDefine 元素据定义、显示数据完全由调用者实现 示例：树表结构窗体参照 示例：表结构窗体参照 示例：列表参照

下面将三个示例一起实现 第一步：初始化：

provider='DB'

第34页 共 329页

ERP事业部咨询实施客户化开发部

Call RefUserDefineEdit.Init(Me, \

Call RefUserDefineSimpleEdit.Init(Me, \

Call RefUserDefineSimpleEdit_List.Init(Me, \第二步：实现获取元素据方法

'------------------------------------------------ '功能：实现自定义参照的获取元素据 '------------------------------------------------

Public Sub GetSrvRefMeta(sRefID As String, sXML As String, MetaXML As String, sMsg As String, bFlag As Boolean)

Select Case LCase(sRefID) Case \

MetaXML = \存货自定义参照' cEntityKeyFld='cInvCode' cEntityNameFld='cInvName'> \

\ \ \ \ \

\cDataSrcID='InventoryClass' cRefClsName='存货分类' bRule='1' clsCode='cInvCCode' clsName='cInvCName' sortField='cInvCCode'/>\

\ \

\

\ \

\ \

\ \ \ Case \

MetaXML = \仓库自定义参照' cEntityKeyFld='cWhcode' cEntityNameFld='cWhName' > \

\ \

\ \ \ \

\

\ \

\ \

\ \ \

Case \

MetaXML = \仓库自定义参照' cEntityKeyFld='cWhcode'

第35页 共 329页