u8单据控件开发手册

u8单据控件开发手册内容摘要：

berChecksucceed 在设置单据编号规则后，如果当前单据满足了编号规则后，将会激活当前事件 • AddNewLineEvent 当调用 AddLine 方法时，该事件将会产生 4. 应用案例： . 表头附件 1) Toolbar 增加按钮 附件 按钮响应事件代码 () 需要根据自己单据的状态设置按钮的状态 2) 单据保存部分 在原来的单据内容保存完成以后，事务提交以前增减保存附件的代码 Dim n As New m_strConnect Dim ErrDesc As String Dim blnsaveAcc As Boolean Dim strXml As String strXml = (ErrDesc) If ErrDesc Then MsgBox ErrDesc End If Dim m_oServer as Dim objDoc As New Call (strXml) Call (VoucherTypeID, 88) Call (VoucherID, 01) strXml = set objDoc ＝ nothing Call (strXml, n, ErrDesc) If ErrDesc Then MsgBox ErrDesc End If 备注： 蓝字部分如果不是新增，则可以不写 VoucherTypeID 如果没有更改（即和单据模版一致）也可以不用设置 VoucherID 表示单据主键值的 value ，可以是组合 2020001{}003 , 顺序和前面的vchtblPrimarykeyNames 顺序一致 如果是单据删除 , Call (strXml, n, ErrDesc) 删除附件 strXML = Data AccessoriesChanged=39。 139。 Deleted=39。 139。 VoucherTypeID=39。 8839。 VoucherID=39。 00139。 / 3) 初始化模版代码部分 39。 设置单据数据源对象 单据数据源对象是单据的数据访问组件， web 版使用的时候需要自己实现这个接口 Dim m_oDataSource As Object Set m_oDataSource = CreateObject() If m_oDataSource Is Nothing Then MsgBox 设置单据数据源对象 Fail!, vbCritical, 渣昫 End If m_oLogin Set = m_oDataSource . 表体附件 1： 870 单据格式 设计器中可以设置字段的参照类型，需要指定一个文本字段的参照类型为附件 2：需要配置应用服务器的文件服务器设置。 3： 如果需要显示的支持该功能，需要在单据模板中增加一条文本类型，参照类 型为附件的记录 . 表体定位 1： Toolbar 增加按钮 定位 2： 按钮响应事件代码 需要根据自己单据的状态设置按钮的状态 . 表体固定行 单据控件设计态时设置 ShowFIxColer ＝ true . 表体排序 单据控件设计态时设置 ShowSorter ＝ true . 表体汇总 1： Toolbar 增加按钮 汇总 2： 按钮响应事件代码 Call 需要根据自己单据的状态设置按钮的状态，只 有在查看状态可用。 . 表体批改 . ShowBatchModify () . 单据内容模板和草稿 单据内容模板和草稿主要有以下功能： 1：用户可以把已有的单据保存为模板，以利于 下次内容差不多的情况下，可以快速使用模板，简单修改就可以了，类似于单据复制，但是单据复制一般是完整的单据表头、或者表体、或者整单，模板可以是任意的部分内容。 类似于缺省值的功能。 2：用户可以把录入一部分的单据暂存为草稿，下次有时间的时候接着录入。 示例： 声明模板助手对象 Private WithEvents m_oHelper As Helper 39。 单据助手对象 响应打开模板或者草稿的事件 Private Sub m_oHelper_LoadFromTemplate(ByVal enumType As , ByVal TemplateID As String, oDomHead As Variant, oDomBody As Variant, oOtherDom As Variant) m_sCurrentDraftID = TemplateID oDomHead, oDomBody End Sub 增加六 个按钮 Case 5 39。 保存为草稿 SaveAsDraft DraftMode Case 6 39。 从草稿打开 OpenFromDraft DraftMode Case 7 DraftMode, m_sCurrentDraftID Case 8 39。 保存为模板 SaveAsDraft TemplateMode Case 9 39。 从模板打开 OpenFromDraft TemplateMode Case 10 删除草稿，用于草稿单据正式保存以后 TemplateMode, m_sCurrentDraftID Case 11 草稿或者模板管理 TemplateMode, m_bill() Sub OpenFromDraft(ByVal nMode As TemplateModes) Dim sCardNum As String sCardNum = m_bill() Call (nMode, sCardNum) End Sub Sub SaveAsDraft(ByVal nMode As TemplateModes) Dim sCardNum As String sCardNum = m_bill() Dim str As String Dim DomHead As DOMDocument Dim DomBody As DOMDocument Call (DomHead, DomBody) MsgBox 草稿编号： amp。 (nMode, sCardNum, ().sTitle, DomHead, DomBody) End Sub . 模拟录入和模拟参照 39。 39。 Procedure : SimulateInput 39。 DateTime : 20200506 16:03 39。 Author : lizheng 39。 Purpose : 模拟参照， col 是列名，或者显示的真实列 39。 39。 Public Sub SimulateInput(ByVal section As SectionsConstants, ByVal nRow As Long, ByVal Col As Variant, ByRef sRetValue As String, ByRef eCheck As Long) 3。