K/3插件,库存可用量分析VB6源码

最新推荐文章于 2025-10-25 10:22:38 发布
原创 最新推荐文章于 2025-10-25 10:22:38 发布 · 4.5k 阅读 · 4 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#vb #integer #microsoft #sql #object #string

该博客介绍了如何使用VB6编写K/3插件进行库存可用量分析。通过事件监听，插件在分录网格发生变化时，实时查询即时库存和已分配库存，并计算出可用库存，最后将结果显示在表体中。

库存可用量分析VB6源码

 

Option Explicit

'引用K3BillTransfer

'引用K3ClassEvents

'引用Kingdee Foundation Object 1.0

'引用Microsoft Activex Data Object 2.8 Libary

'引用Microsoft ADO 3.6 Object Libary

 

'定义 BillEvent 接口. 必须具有的声明, 以此来获得事件

Private WithEvents m_BillTransfer  As K3BillTransfer.Bill

Public Sub Show(ByVal oBillTransfer As Object)

 

    'BillEvent 接口实现

    '注意: 此方法必须存在, 请勿修改

    Set m_BillTransfer = oBillTransfer

 

最低0.47元/天 解锁文章
VB6编写的Hosts编辑器源码-作者：gosub60
03-18
VB6源码 Hosts编辑器 listview控件 PNG控件
金蝶K3脱离原系统额外打开K3单据程序以及源码.rar
07-08
附件包含源码 以及 示例程序,可以在脱离K3系统之外打开显示K3的单据,调用K3原本的单据组件进行显示,常用于我们的二次开发中在其他程序中或者插件中需要打开K3单据甚至编辑K3单据的情况.源码很简单,几句话就实现了.比如我做了一个批次追踪的功能(c#开发),展开一个单据树形图,点击图中的节点,可以打开对应的K3单据,从材料进仓 到成品客户签收,都有跟踪.
Excel+MSSQL开发金蝶K3欠料报表
qq_52337172的博客
12-25 1307
将K3所有订单需求、MRP运算、库存及在途数据等数据整体展示，适合计划部门根据报表数据统筹考量物料供给情况，特制作此报表及Excel集成工具，以减少手工汇总统计的工作量。 本代码适用于金蝶K3 WISE 12.2版本 1、K3后台mssql数据库创建存储过程： create procedure [dbo].[sp_mymrp_must_sum] as set nocount on create table #icmo ( FTranType int, FOrgInterID int, FOrgEntryID
老单据如何插入多行值
Colin的专栏
11-18 6063
老单据如何插入多行值   2010-06-09 17:36:07|  分类： 金蝶|字号 订阅 While Not rs.EOF  '填充对应的行  With m_BillTransfer  '如果超过两行以上的值,需要先用  .BillForm.InsertRow  '插入一行  .SetGridText LRow, dicFieldEntry
金蝶K3老单 工艺路线维护特殊字符（使用窗体传参方法）
最新发布
weixin_44819434的博客
10-25 245
原先工艺员写工艺时，形位公差符号都是特殊字符，使用输入法的小键盘开，后来在表头处增加一些字符，用于复制粘贴用，提高些许效率。现在使用窗体传参方法，进行维护。原本只是想在录前面的文字后，点击进行插入字符，再回到单元格录入字符后的内容。但后来发现工艺描述其实也可以在这里维护好，再回写至单元格。如果要修改，也是光标在所要修改列处，点击按钮。文本框处会有工艺列单元格的内容。点击“确认&退出”，这样维护的内容就到工艺列上了。光标在“加工说明”列时点击按钮，跳出窗体。当光标不在“加工说明”列时，提示。
金蝶K3工业单据二次开发指导汇总
热门推荐
舊日的足跡
05-05 1万+
转自金蝶社区的工业单据二次开发指导汇总 工业单据二次开发指导汇总 (一)          二次开发组件如何注册到系统中？ 常用二次开发组件需要注册到系统二次开发组件列表中，物理表为t_thirdPartyComponent，其标结构和相关说明如下: 结构 说明 FTypeID 一般取值为0或2 其中0代表客户端，2代表中间层 FTypeDetailID 一般代表单据的FTra
金蝶K3WISE 销售订单序时簿即时库存的开发
时秋的博客
06-30 5731
K3WISE15.0的即时库存是不在序时簿里面显示的 1.先给老单序时簿添加字段 这里假设为 FEntrySelfS0169 2.通过批更的方式同步库存到这个列中 update SEOrderEntry set FEntrySelfS0169=(select FQty from ICInventory where ICInventory.FItemID=SEOrderEntry.FIte...
K3查询基础资料开发代码
giianhui的专栏
03-27 4003
'视图查询一个科目 Private Sub ViewAccount() '添加错误陷阱 On Error GoTo HERROR Dim obj As Object Dim retObj As Object Set obj = CreateObject("EBCGLView.GLView") Set retObj = obj.AccountLookup() If retObj.
精选资源
vb源码/vb源代码/visual basic源码/visual basic商业代码/visual basic6.0代码大全
08-27
vb源码/vb源代码/visual basic源码/visual basic商业代码/visual basic6.0代码大全【100套】 vb源码/vb源代码/visual basic源码/visual basic商业代码/visual basic6.0代码大全【100套】 vb源码/vb源代码/visual ...
vb串口通讯源码VB6的串口通信带crc校验
03-12
vb串口通讯源码VB6的串口通信程序,还有crc校验本资源系百度网盘分享地址
vb串口串口通讯源码包vb串口串口通讯源码包
03-12
vb串口通讯源码vb 串口通讯的源程序很不错的入门的源码参考程序本资源系百度网盘分享地址
转金蝶KIS专业版单据开发插件事件指南
05-23
转金蝶KIS专业版单据开发插件事件指南
VB账套管理源码（类似金碟账套）
04-05
Vb6完整的账套管理，含源码，编译可使用！
用友财务软件源码(VB)
06-22
用友财务软件源码，不错的资源，VB 二次开发必备！！！
对接金蝶凭证K3（java对接）
yanlingkong741的博客
11-21 9974
讲怎么对接之前先让我吐槽一下，对接金蝶要安装金蝶系统，我自己安装了一次没安装成功，金蝶公司的给我安装了七次也没有成功，最后发给我一个镜像，里面有安装好的金蝶系统才勉强可以，后面的就是这种坑了，对你爱理不理的！对接文档三张截图对接去吧！有些参数不清楚问一下结果对方也不清楚，有这么不负责任的公司吗！我这块需要java对接结果人给了份C#的代码尼玛坑啊！后来人又发了个用CXF生成的！搞了好久！后来问对方...
金蝶二次开发之（二）-----新增快捷键插件
qq_36723501的博客
02-04 1446
环境 开发环境：VB6.0 引用：ActiveBar3.0 没有ActiveBar3.0的伙伴点击此连接下载–actbar3.ocx 实现 使用VB插件开发向导选择我们的工业老单 增加个自定义菜单 选择主要的两个单据事件： BillInitialize :单据初始化事件；UserMenuClick:菜单点击事件 Private Sub m_BillTransfer_BillInitialize() '引用ActiveBar3Library Dim oBand As ActiveBa
金蝶二次开发
钟爱技术
02-24 6027
MMTS.bas 模块    Option Explicit '╰?磞瓃,誹╰??甧蠢? Public SUBID As String Public SUBNAME As String 'mts share property lockmode Private Const LockMethod = 1 Private Const LockSetGet = 0 'mts sh
K3老单插件控制字段显示
weixin_30612769的博客
04-10 610
【问题描述:】 我想在工业单据的插件中锁定单据头字段,但实现不了？ 【解决方法:】 For i = 0 To m_BillTransfer.Head.count - 1 If m_BillTransfer.Head(i).Caption = "客户地点:" Then '客户地点显示、不可编辑（Visible改为False为不显示） m_BillT...
Ｋ３中更新数据库的常规操作
青铜骑士的专栏
11-07 4408
Private Sub m_billtransfer_BeforeSave(ByVal bNew As Boolean, ReturnCode As Long)    Dim objAPP As Object    Dim adoRS As ADODB.Recordset    Dim strSQL As String        Dim strContract As String   
VB6打造Web打印ActiveX插件的源码分享
VB6简单实现web打印ActiveX插件源码展示了一种用VB6编程语言来实现Web打印功能的方法。在实现过程中，开发者需要处理好以下几个关键技术点： 1. **组件接口设计**：创建ActiveX控件时，需要设计出合适的接口供网页...
评论 2
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值