U8开发之单据控件 - 图文(9)

www.yonyou.com

U8知识库文档

Call voucher.PrintVoucherEx(rsTemplate, rsField, True) ’显示打印对话框 End Sub ? ExportToFile方法

功能：导出单据单据数据到指定的文件 语法： Public Function ExportToFile(ByVal rsTemplate As Variant, ByVal rsField As Variant) As Boolean

示例 Public Sub Command1-_Click() Dim o as Object Dim rsTemplate as Recordset Dim rsField as Recordset Set o = CreateObject(‘UFVoucherServer85.clsVoucherTemplate’) If o is nothing then Exit Sub ’如果创建对象Fail,则退出 Set rsTemplate = o.GetTemplateData2(数据库连接(Connection),单据 (CardNumber),模版号(VT_ID)) Set rsField = o.GetFixedData(数据库连接字符串(String),模版号(VT_ID)) Call voucher. ExportToFile(rsTemplate, rsField) ‘导出文件 End Sub 参数：

rsTemplate [IN]记录集 单据模版数据(必需通过单据后台服务提供) rsField [IN]记录集 固定文本数据(必需通过单据后台服务提供) 返回值： 如果导出成功返回0，否则返回非0，具体的错误信息请参考打印控件(Error Table)。

主要事件

? HeadBrowUser 当用户单击表头参照时产生此事件 语法：

Private Sub voucher_headBrowUser(ByVal Index As Variant, sRet As Variant, ByRef referPara As ReferParameter) End Sub 参数说明： 参数 Voucher index sRet referPara

描述 单据控件名称 表头下标 返回值 参照参数对象 www.yonyou.com

U8知识库文档

? BodyBrowUser 当用户单击表体参照时产生此事件 语法：

Private Sub voucher_bodyBrowUser(ByVal row As Long, ByVal col As Long, sRet As variant) End Sub 参数说明： 参数 Voucher row col sRet

? BodyCellCheck BodyCellCheckWeb 表体数据发生该变，需要数据检查时发生此事

件

语法： Private Sub Voucher_bodyCellCheck(RetValue As String, bChanged As VoucherControl85.CheckRet, ByVal r As Long, ByVal c As Long)

End Sub

参数说明：

参数 Voucher RetValue bChanged row col

? Click 当用户在单据控件上单击时产生此事件

? DblClick 当用户在单据控件上双击时产生此事件

? KeyDown , KeyPress, KeyUp, MouseDown, MouseMove, MouseUp 鼠标及键盘响应事件

? BillNumberChecksucceed 在设置单据编号规则后，如果当前单据满足了编号规则

后，将会激活当前事件

? AddNewLineEvent 当调用AddLine方法时，该事件将会产生

描述 单据控件名称 返回当前单元的值 数据检测是否居功 下标 下标(可用关键字) 描述 单据控件名称 下标 下标(可用关键字) 返回值

www.yonyou.com

U8知识库文档

应用案例

表头附件

www.yonyou.com

U8知识库文档

示例 1) Toolbar 增加按钮 附件 按钮响应事件代码 Me.ctlVoucher1.SelectFile() 需要根据自己单据的状态设置按钮的状态 2) 单据保存部分 在原来的单据内容保存完成以后，事务提交以前增减保存附件的代码 Dim cnn As New ADODB.Connection cnn.Open m_strConnect Dim ErrDesc As String Dim blnsaveAcc As Boolean Dim strXml As String strXml = ctlVoucher1.GetAccessoriesInfo(ErrDesc) If ErrDesc <> \ MsgBox ErrDesc End If Dim m_oServer as UFVoucherServer85.clsVoucherTemplate Dim objDoc As New MSXML2.DOMDocument30 Call objDoc.loadXML(strXml) Call objDoc.documentElement.setAttribute(\ Call objDoc.documentElement.setAttribute(\ strXml = objDoc.xml set objDoc ＝ nothing Call m_oServer.SaveAccessories(strXml, cnn, ErrDesc) If ErrDesc <> \ MsgBox ErrDesc End If 备注： 蓝字部分如果不是新增，则可以不写 VoucherTypeID 如果没有更改（即和单据模版一致）也可以不用设置 VoucherID 表示单据主键值的value，可以是组合 2005001{#}003 ,顺序和前面的vchtblPrimarykeyNames 顺序一致 如果是单据删除 , Call m_oServer.SaveAccessories(strXml, cnn, ErrDesc) 删除附件 strXML = \3) 初始化模版代码部分 '设置单据数据源对象 单据数据源对象是单据的数据访问组件，web版使用的时候需要自己实现这个接口 Dim m_oDataSource As Object Set m_oDataSource = CreateObject(\ If m_oDataSource Is Nothing Then MsgBox \设置单据数据源对象Fail!\渣昫\ End If m_oDataSource.SetLogin m_oLogin Set ctlVoucher1.SetDataSource = m_oDataSource www.yonyou.com