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

U8知识库文档

备注： 增加一张新单据，实际上就是将表头对象(Header)和表体对象(Body)中各项目的值据增加模式清空。在增加一张新的单据时,应先调用。

? GetVoucherDataXML方法 功能：得到单据数据DOM对象 语法： Public Sub getVoucherData(oDomhead As Variant,oDomBody As Variant) 参数： rstHeader: 表头数据DOM对象(MSXML.DOMDocument对象) rstBody: 表体数据DOM对象(MSXML.DOMDocument对象) 返回值：无

备注：更新数据(从控件生成DOMDocumetn对象)

? GetLineDom方法

功能：返回当前或指定行的Dom对象(得到表体一行的全部Dom数据对象) 语法： Public Function GetLineDom(Optional ByVal nRow As Long = 0) As DOMDocument 参数： nRow指定的行Index,缺省为0，即取当有Mouse所在行的数据 返回值：DOMDocument对象

? PrintVoucherEx方法 功能：打印单据数据 语法： Public Function PrintVoucherEx(ByVal rsTemplate As Variant, ByVal rsField As Variant, Optional ByVal bShowPrintDlg As Boolean = True) As Long 参数：

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

示例 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))