发布时间 : 星期六 文章K3 BOS开发百问百答更新完毕开始阅读
客户化开发技术资料——K/3 BOS开发百问百答
ERow-合计结束行，可选参数，默认值是最大行
举例（要求税额合计值）： Set
参考（表体行数的取值方法）： BillEntry.MaxRows
dct
=
m_BillInterface.GetFieldInfoByKey(\
\
0)
dblTaxSum
=
m_BillInterface.Sum(dct)
【问题12】隐藏选单时序时簿不要的菜单和工具栏。K/3单据查看和选单使用的是同一个序时簿，在插件中用MenuBarInitialize添加的菜单和工具栏在选单时也显示出来。
【解答】
在MenuBarInitialize事件中使用m_ListInterface.List.ShowMode判断（查看和选单）1—查看；2—选单。如：If m_ListInterface.List.ShowMode = 1 Then ??end. 如需隐藏其他的菜单和工具栏，参考以下代码： Dim oTool As K3ClassEvents.BOSTool Dim oBand As K3ClassEvents.BOSBand
'*************** 开始设置 BOS 原有菜单 ***************
'获得 mnuEdit 菜单对象，并设置属性 Set oBand = oMenuBar.BOSBands(\ Set oTool = oBand.BOSTools(\ With oTool
.Visible = False .Enabled = False End With
【问题13】标体行高设置和值更新事件
1. 表单的表体的行高的属性在哪里，我找不到，如果发布后到主控台里去调，表体的标
题行会同比例变化，非常不美观。 2. 在值更新事件里怎么能调用sql呢？
3. 对于已携带辅助属性的字段再定义值更新事件，如果值更新事件里包含该辅助属性，
计算公司无效。也就是值更新事件公式里调用的辅助属性是更新前的。 4. 事件函数描述中，tkeyword参数应该是fkeyword的笔误，能否改正。
【解答】
1. 2. 3. 4.
标体的行高目前不能调整。
插件中调用SQL的方法有：m_BillInterface.K3Lib.GetData 和 m_BillInterface.K3Lib.UpdateData。 在插件中使用更新后事件。 谢谢提醒，在下一版本中改之。
第9页
客户化开发技术资料——K/3 BOS开发百问百答
【问题14】事务处理
1. BOS的插件开发中，事务怎样处理啊？又不能直接操作数据库。有什么好方法吗？否则
数据可能就乱掉了。
2. 在事务完整性处理上，目前的BOS插件还有很多需要改进。
说个简单例子：
BOS是支持多插件的，那么多插件之间如何保证事务完整性呢？
同样是审核事件，有2个插件响应了这个事件，如果第一个插件通过了审核，但是第二
个插件却不能通过，那么第一个插件处理了的数据又如何回滚？
【解答】 1. 2.
如在插件中编写大量的更新SQL请使用中间层插件，中间层插件能保证事务的完整性。
如果在客户端希望执行SQL时保证事务一致性，建议使用 K3Lib.UpdateData 方法，将希望在同一事物中处理的SQL语句通过它一次性提交，BOS会自动启用事务处理来保证；如果像多个插件中的审核等操作的一致性问题，解决的方法是制定一个中间层的审核前插肩来判断处理；这类的问题都可以在中间层的相关事件中处理，来保证一致性。
【问题15】如何在新的BOS单据中通过代码逐行添加分录数据？
在BOS单据中新增菜单，功能为向当前新单据（单据为BOS创建）中添加物料等数据，因需加入的数据来自多张表，所以不适用于BOS的单据流程下推功能生成，而采用插件的方式实现。但在用
SetFieldValue 方法向分录中添加数据时发现第一行总是顺利通过，但写下一行（即第二行）时就写不下去了,错误提示：
Err.Description : 没有找到给定字段名的字段的值 Err.Number : -2147221403
Err.Source : K3ClassEvents.BillEvent 请问是什么原因？ 附部分代码： With rsItem lngRow = 1 .MoveFirst Do Until .EOF
m_BillInterface.SetFieldValue \ m_BillInterface.SetFieldValue \ lngRow = lngRow + 1 .MoveNext Loop End With
【解答】
参考下列代码 With rsItem lngRow = 1 MoveFirst
第10页
客户化开发技术资料——K/3 BOS开发百问百答 Do Until EOF
m_BillInterface.InsertNewRowAndFill 2,lngRow,\!FNumber,\lngRow lngRow = lngRow + 1 MoveNext Loop End With
【问题16】在单据体中有没有办法让下一条分录自动携带上一条分录的数据（只是部分字段）。 【解答】
用插件可以实现。示例代码：
'物料录入后，第二行的值自动默认第一行的值 If dct(\
m_BillInterface.SetFieldValue \row - 1, Enu_ValueType_FFND), row '提货地点
endif
【问题17】否有办法完成单据体中的行点击事件？现在有需要在点击BOS单据中单据体的某一行时，在另一个表体中显示与该行有关的信息，请问各位有什么好的实现方法，特别是怎么获取点击事件和所点击的行数据信息。
【解答】
【问题18】多分录序时簿浏览，字段权限。
1. 2.
在多表体单据中,用序事簿预览时,不出现第二个表体的内容.怎么实现查询第二个表体的内容. 在使用单据的序事簿查询时,想看单据的全部内容,但在选单时想看一少部分内容,现在不能实现. 可用字段授权对不同的人进行授权解决（给选单人字段权限少一些字段）
【解答】
1. 2.
目前序时薄只能实现单据头+一个单据体的预览方式，但单据体在过滤界面是可选择的。如果问题的要求是实现多单据体的同时展现，则为需求，目前暂不能实现，待后续版本规划。
此问题要求选单与单据序时薄有不同的展现设置，字段授权的方式解决不了这个问题，请确定这个需求的通用性。如不通用建议通过序时薄插件开发来实现。FillRow时，不可见字段内容作屏蔽。
【问题19】怎么样可以用代码调出单据的序时薄窗口。
【解答】
调用序时簿不返回选中值 'lClassTypeID ——BOS单据ID
Private Function ShowList(ByVal lClassTypeID As Long) As Boolean
第11页
客户化开发技术资料——K/3 BOS开发百问百答 Dim oDataSrv As Object Dim objLookup As Object
On Error GoTo err_ctr
Set oDataSrv = m_BillInterface.K3Lib.CreateK3Object(\ oDataSrv.ClassTypeID = lClassTypeID If oDataSrv.showfilter Then
Set objLookup = CreateObject(\ objLookup.ClassTypeID = lClassTypeID 'oDataSrv.ClassTypeID Set objLookup.DataSrv = oDataSrv
objLookup.Show End If
Set oDataSrv = Nothing Set objLookup = Nothing
Exit Function err_ctr:
Set oDataSrv = Nothing Set objLookup = Nothing End Function
调用序时簿返回选中值
Private Function ShowListByReturn(ByVal lClassTypeID As Long) As Object Dim oDataSrv As Object Dim objLookup As Object
On Error GoTo err_ctr
Set oDataSrv = m_BillInterface.K3Lib.CreateK3Object(\ oDataSrv.ClassTypeID = lClassTypeID If oDataSrv.showfilter Then
Set objLookup = CreateObject(\ objLookup.ClassTypeID = lClassTypeID Set objLookup.DataSrv = oDataSrv
objLookup.Lookup
Set ShowListByReturn = objLookup.VectReturn End If
第12页