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

U8知识库文档

状态描述 Dim GXL_cVoucherStatus_US As String, GXL_cVoucherStatus_CN As String, GXL_cVoucherStatus_IMG As String, GXL_cVoucherStatus_TW As String GXL_cVoucherStatus_US = \ting,Closed,Effecting,Effected,Cased,Declare,Noteffective,Effectivestatus,Freedomstatus,Closedstatus,Cancel,Lockedopening,Lockedapproving,disagreement\ GXL_cVoucherStatus_CN = \开立,锁定,复核中,已复核,审核中,已审核,作废,变更,变更审批中,已关闭,生效中,生效,结案,已申报,未生效,生效,开立,结案,核销,锁定开立,锁定审核中,终审不同意\ GXL_cVoucherStatus_TW = \開立,鎖定,覆核中,已覆核,審核中,已審核,作廢,變更,變更審批中,已關閉,生效中,生效,結案,已申報,未生效,生效,開立,結案,核銷,鎖定開立,鎖定審核中,終審不同意\ GXL_cVoucherStatus_IMG = \ting,Closed,Effecting,Effected,Cased,Declare,Noteffective,Effectivestatus,Freedomstatus,Closedstatus,Cancel,Lockedopening,Lockedapproving,disagreement\ Dim GXL_cBussinessStatus_US As String, GXL_cBussinessStatus_CN As String, GXL_cBussinessStatus_IMG As String, GXL_cBussinessStatus_TW As String GXL_cBussinessStatus_US = \ GXL_cBussinessStatus_CN = \现付,现结\ GXL_cBussinessStatus_TW = \現付,現結\ GXL_cBussinessStatus_IMG = \ Dim GXL_cSettledStaus_US As String, GXL_cSettledStaus_CN As String, GXL_cSettledStaus_ING As String, GXL_cSettledStaus_TW As String GXL_cSettledStaus_US = \ GXL_cSettledStaus_CN = \结算\ GXL_cSettledStaus_TW = \結算\ GXL_cSettledStaus_ING = \ Dim CW_cVoucherStatus_US As String, CW_cVoucherStatus_CN As String, CW_cVoucherStatus_IMG As String, CW_cVoucherStatus_TW As String CW_cVoucherStatus_US = \ged,Charging,SubmitSuccess,SubmitUnknow,SubmitFailed\ CW_cVoucherStatus_CN = \已复核,已审核,支付成功,支付失败,支付不明,开立,审核中,已关闭,已记账,记账中,提交成功,提交不明,提交失败\ CW_cVoucherStatus_TW = \已覆核,已審核,支付成功,支付失敗,支付不明,開立,審核中,已關閉,已記帳,記帳中,提交成功,提交不明,提交失敗\ CW_cVoucherStatus_IMG = \ged,Charging,SubmitSuccess,SubmitUnknow,SubmitFailed\ Dim FC_cVoucherStatus_US As String, FC_cVoucherStatus_CN As String, FC_cVoucherStatus_IMG As String, FC_cVoucherStatus_TW As String FC_cVoucherStatus_US = \ www.yonyou.com

U8知识库文档

FC_cVoucherStatus_CN = \开立,锁定,审核中,已审核,已关闭\ FC_cVoucherStatus_TW = \開立,鎖定,審核中,已審核,已關閉\ FC_cVoucherStatus_IMG = \ 示例 Public Function Init(ByVal oLogin As Object, ByVal sCardNum As String) As Boolean Set m_oLogin = oLogin m_sCardNum = sCardNum m_sSubID = m_oLogin.cSub_Id InitPlugin Init = m_bCreatePlugin End Function '''从这里开始为二次开发的接口函数 Public Sub headBrowUser(ByRef Voucher As Object, ByVal Index As Variant, sRet As Variant, ByRef referPara As ReferParameter, ByRef bCancel As Boolean) On Error Resume Next ‘参数设置见单据控件的事件描述 End Sub Public Sub bodyBrowUser(ByRef Voucher As Object, ByVal Row As Long, ByVal Col As Long, sRet As Variant, ByRef referPara As ReferParameter, ByRef bCancel As Boolean) On Error Resume Next ‘参数设置见单据控件的事件描述 End Sub Public Sub bodyCellCheck(ByRef Voucher As Object, RetValue As Variant, bChanged As Long, ByVal r As Long, ByVal c As Long, ByRef referPara As ReferParameter, ByRef bCancel As Boolean) On Error Resume Next ‘参数设置见单据控件的事件描述 End Sub Public Sub headCellCheck(ByRef Voucher As Object, Index As Variant, RetValue As String, bChanged As CheckRet, ByRef referPara As ReferParameter, ByRef bCancel As Boolean) On Error Resume Next ‘参数设置见单据控件的事件描述 End Sub Public Sub Click(ByRef Voucher As Object, section As SectionsConstants, ByVal Index As Long, ByRef bCancel As Boolean) On Error Resume Next ‘参数设置见单据控件的事件描述 End Sub Public Sub DblClick(ByRef Voucher As Object, section As On Error Resume Next SectionsConstants, ByVal Index As Long, ByRef bCancel As Boolean) www.yonyou.com U8知识库文档

End Sub Public Sub RowColChange(ByRef Voucher As Object) On Error Resume Next ‘参数设置见单据控件的事件描述 End Sub Public Sub ModifyAuthString(ByRef Voucher As Object, ByRef sAuthString As String) On Error Resume Next ‘参数设置见单据控件的事件描述 End Sub

单据二次开发

组件关系

单据控件 单据插件管理 销售订单插件 采购订单插件 采购入库单插件

插件配置文件的说明

位置： u8安装盘下的c:\%u8soft\\VoucherPlugin.config 格式：

注、配置文件最终放到数据库中，门户启动的时候生成文件

年度data 库select * from dbo.VoucherPlugins 支持接口

www.yonyou.com

U8知识库文档

bodyBrowUser headBrowUser bodyCellCheck headCellCheck Click DblClick 开发步骤

相关知识

列举与该组件或API有密切关联的其他知识

www.yonyou.com