1.实现销售合同中【直接客户】信息的录入后,自动带出关联【省份】的信息,根据BOS单据的基本设置不能将省份信息写成字

段进行推送,故需要在BOS单据中进行插件开发;

开发过程中有个关键表:

1)选择直接用户的表结构  为新增添的核算项目,查询表语句为:

select b.fid from t_Item_3030 a inner join t_submessage b on a.f_102=b.finterid where a.fitemid = 196918

--t_Item_3030 :核算项目存储表;--t_submessage 辅助资料基础表

2)选择购货客户的表结构,查询语句为:

select B.fid from t_Organization a inner join t_submessage b on a.F_107=b.finterid where fitemid=12316

--客户信息表为:t_Organization; --t_submessage 辅助资料基础表

2.利用K3 wise与VB6.0插件开发工具进行插件开发;开发代码如下:

'定义 BillEvent 接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_BillInterface As BillEvent Public Sub Show(ByVal oBillInterface As Object) 'BillEvent 接口实现
'注意: 此方法必须存在, 请勿修改
Set m_BillInterface = oBillInterface End Sub Private Sub Class_Terminate() '释放接口对象
'注意: 此方法必须存在, 请勿修改
Set m_BillInterface = Nothing End Sub Private Sub m_BillInterface_Change(ByVal Dct As KFO.IDictionary, ByVal dctFld As KFO.IDictionary, ByVal Col As Long, ByVal Row As Long, Cancel As Boolean) 'TODO: 请在此处添加代码响应事件 On Error GoTo Handle Dim LDct As KFO.Dictionary
Dim LdctFld As KFO.Dictionary
Dim LCol As Long, LRow As Long, Fieldname As String
Dim FItemID As Long
Dim SQL(2) As String
Dim obj As Object
Set LDct = Dct
Set LdctFld = dctFld
LCol = Col
LRow = Row
FItemID = Val(LdctFld("FFld")) ''直接用户
If LDct("ctlindex") = 42 And FItemID > 0 Then
SQL(0) = "select b.fid from t_Item_3030 a inner join t_submessage b on a.f_102=b.finterid where a.fitemid = "
SQL(0) = SQL(0) & FItemID
Set obj = m_BillInterface.K3Lib.GetData(SQL(0))
If obj.bof = True Then
Exit Sub
Else
m_BillInterface.SetFieldValue "FBase3", obj!FID
Set obj = Nothing
End If ''购货单位
ElseIf LDct("ctlindex") = 46 And FItemID > 0 Then
SQL(1) = "select b.FID from t_Organization a inner join t_submessage b on a.F_107=b.finterid where fitemid= " & FItemID
Set obj = m_BillInterface.K3Lib.GetData(SQL(1))
If obj.bof = True Then
Exit Sub
Else
m_BillInterface.SetFieldValue "FBase5", obj!FID
Set obj = Nothing
End If ElseIf UCase(LDct("ffieldname")) = UCase("FProductID") And FItemID > 0 Then
''产品代码-包装类别、物料大类
SQL(2) = "select b.fname MatrType,c.fname PackType from t_icitem a inner join t_item b on a.F_128=b.fitemid inner join t_item c on a.F_142=c.fitemid where a.fitemid= "
SQL(2) = SQL(2) & FItemID
Set obj = m_BillInterface.K3Lib.GetData(SQL(2))
If obj.bof = True Then
Exit Sub
Else
m_BillInterface.SetFieldValue "PackType", obj!PackType
m_BillInterface.SetFieldValue "MatrType", obj!MatrType
Set obj = Nothing
End If
End If
Exit Sub
Handle:
MsgBox Error.Description
Set obj = Nothing End Sub

  

程序中出现个人问题,导致时间浪费,主要问题归纳总结为:

On Error GoTo Handle 使用问题 错误处理程序必须在程序结束后,挂上后程序执行未出现错误就不会报错,本次因对该方法运用不熟练导致调试过程中浪费时间较长,后续将on error goto 进行总结;

On Error GoTo

On Error GoTo 0
      表示禁止当前过程中任何已启动的错误处理程序。

On Error Resume Next
     说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。

On Error GoTo line
     启动错误处理程序,且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误,则控件会跳到 line,激活错误处理程序。指定的 line 必须在一个过程中,这个过程与 On Error 语句相同; 否则会发生编译时间错误。

一般情况下,如果在对我们创建的对象或控件进行错误捕捉,需要使用On Error Resume Next ,然后在判断它的Err.Number,根据错误类型来做相应的处理。

K3 销售合同开发的更多相关文章

  1. K3 WISE 开发插件《K3 WISE常用数据表整理》

    在后台数据库ICClassType表中,字段FID<0的是老单,FID>0的是新单. ----------------系统设置------------------------ FStatu ...

  2. k3 Bos开发百问百答

              K/3 BOS开发百问百答   (版本:V1.1)           K3产品市场部       目录 一.基础资料篇__ 1 [摘要]bos基础资料的显示问题_ 1 [摘要]单 ...

  3. 一、K3 WISE 开发插件《K3 WISE常用数据表整理》

    在后台数据库ICClassType表中,字段FID<0的是老单,FID>0的是新单. ----------------系统设置------------------------FStatus ...

  4. 三、K3 Cloud 开发插件《K3 Cloud插件开发新手指导 + K3 Cloud插件开发代码调试》

    案例需求:在销售订单上新增一个按钮,在订单明细中新增一个字段,命名[即时库存]. 点击按钮,弹出“Hello World!”,并获取订单明细物料的即时库存,填入字段[即时库存]. 开发工具:Visua ...

  5. 六、K3 WISE 开发插件《直接SQL报表开发新手指导 - BOM成本报表》

    ======================== 目录: 1.直接SQL报表 ======================== 1.直接SQL报表 以BOM成本报表为例,在销售模块部署,需要购买[金蝶 ...

  6. 四、K3 WISE 开发插件《工业单据老单插件开发新手指导》

    开发环境:K/3 Wise 13.0.K/3 Bos开发平台.Visual Basic 6.0 =============================================== 目录 一 ...

  7. 十一、K3 WISE 开发插件《VB插件开发如何代码调试 - 步骤讲解》

    =================================== 目录: 1.配置代码调试启动程序kdmain.exe 2.设置断点 3.触发调试 4.变量跟踪 ================ ...

  8. 十、K3 WISE 开发插件《SQL Profiler跟踪单据操作时产生的SQL语句》

    =================================== 目录: 1.查询帐套的数据库DBID 2.配置需要跟踪数据库的DBID 3.配置跟踪参数 4.跟踪进行 5.分析跟踪语句 === ...

  9. 八、K3 WISE 开发插件《工业单据老单插件中获取登陆用户名》

    备注:如果是BOS新单,都有获取用户名的方法.在单据有m_BillInterface.K3Lib.User.UserId,在序时薄有m_ListInterface.K3Lib.User.UserID ...

随机推荐

  1. BZOJ 3930 Luogu P3172 选数 (莫比乌斯反演)

    手动博客搬家:本文发表于20180310 11:46:11, 原地址https://blog.csdn.net/suncongbo/article/details/79506484 题目链接: (Lu ...

  2. (20)Spring Boot Servlet【从零开始学Spring Boot】

    Web开发使用 Controller 基本上可以完成大部分需求,但是我们还可能会用到 Servlet.Filter.Listener.Interceptor 等等. 当使用Spring-Boot时,嵌 ...

  3. UVALive Archive - 6196 - Party Games

    题目: You've been invited to a party. The host wants to divide the guests into 2 teams for party games ...

  4. 手动搭建HTTP下载站点

    手动搭建HTTP下载站点 index.jsp <%--Listfile.jsp--%> <%@ page import="java.io.File,java.text.Si ...

  5. [React] Forward a DOM reference to another Component using forwardRef in React 16.3

    The function forwardRef allows us to extract a ref and pass it to its descendants. This is a powerfu ...

  6. ssh 结构

    service:业务层 dao:数据訪问层 hibernate:持久层

  7. Super超级ERP系统---(4)采购管理--采购单创建

    Erp系统中采购是系统必不可少的一部分,也就是ERP种的进货模块,超级ERP系统中的采购模块选选择采购供应商,然后选择进货商品的数量和采购价格,创建采购进货单 1.创建采购单 2.审核采购单 采购单创 ...

  8. Fabric quickly

    环境很重要.环境很重要.环境很重要 # CentOS 7 $ setenforce 0 # 可以设置配置文件永久关闭 $ systemctl stop iptables.service $ syste ...

  9. MessageDigest的功能及用法(加密解密)

    MessageDigest的功能及用法 MessageDigest 类为应用程序提供信息摘要算法的功能,如 MD5 或 SHA 算法.信息摘要是安全的单向哈希函数,它接收任意大小的数据,并输出固定长度 ...

  10. Data内置对象

    1.内置对象 Date 日期对象 2.创建日期对象 2.1 根据当前的系统时间来创建日期对象. var date1 = new Date(); //a.输出日期对象的信息 console.log(da ...