会员名称: 登录密码: (找回密码) 登录 会员注册
 
 

分类

问题
上个主题 下个主题
主题:工业单据在编辑时改变F7选择的辅助资料
avatar
yu_hao
未上排行榜
帖子 7
积分 172
发贴时间:2007-8-31 11:50:19   完成时间: 2007-9-6 16:07:24
赠分:40      回答:5   已经到期    
工业单据二次开发:
Private Sub m_BillTransfer_BeforHeadLookUp(ByVal CtlIndex As Long, ByVal nLookUpClsID As Long, Cancel As Boolean)
'需求示意
if m_BillTransfer.HeadCtl(CtlIndex).Caption="送货地址" then
'根据(其他)条件改变
m_BillTransfer.HeadCtl(CtlIndex).LookUpCls=9999 '指定新的
end if
End Sub

可以吗?如果做到?
目的是改变查询的内容
修改时间:2007-8-31 11:51:16
修改时间:2007-8-31 11:52:00
最佳答案
avatar
yu_hao
未上排行榜
帖子 7
积分 172
怎么没有金蝶的专家来回答
俺辛苦找到方法了,给大家参考,用此方法可更改HeadCtl,EntryCtl中的值

if m_BillTransfer.HeadCtl(CtlIndex).Caption="送货地址" then
'根据(其他)条件改变
dim vCtl as Variant
vCtl=m_BillTransfer.HeadCtl
vCtl(CtlIndex).LookUpCls=9999 '想让他查什么就查什么
m_BillTransfer.HeadCtl=vCtl

'm_BillTransfer.HeadCtl(CtlIndex).LookUpCls=9999 '指定新的
end if

自问自答,真没意思啊!
回答时间:2007-9-5 13:18:15
发文者评价: (共获积分:40
 
网友评价: 0%       0%     (目前有 0 人评价)
你的评价:
其他回答
avatar
coolegg
社区贡献Top 200
帖子 109
积分 1,649
K/3 BOS版主
不需要些插件,可以增加自定义字段,来源于其他基础资料即可.
回答时间:2007-9-3 8:52:34
 
avatar
yu_hao
未上排行榜
帖子 7
积分 172
补充一下:
我的需求是:如果指定了不同的客户,需要从不同的辅助资料中选择另一项数据,所以需要动态指定另一项数据的来源。
如果在另一项数据LookUp之前更新它的查询类别,这样就能根据不同的客户,重新指定这项数据的选择来源
回答时间:2007-9-3 12:22:17
 
avatar
coolegg
社区贡献Top 200
帖子 109
积分 1,649
K/3 BOS版主
下面的代码与调用基础资料类似,参考一下
----------
关于批次号分别按输入的物料、仓库、仓位的过滤批次的范例代码。
解决方法:
环境说明:
物料:字段名称FItemID
仓库:字段名称FDCStockID
仓位:字段名称FDCSPID
批次号:字段名称FBatchNo
1、 录入仓库后,依据仓库的仓库组过滤仓位。
update ICClasstableinfo set FFilter='FSPGroupID = (SELECT FSPGroupID FROM t_Stock WHERE FItemID = GetFldValue(FDCStockID,1))' where FKey='FDCSPID' and FClassTypeID=300000000
2、 根据输入的物料、仓库、仓位过滤过率批次号时。
update ICClassTableinfo set FFilter='(FItemID=GetFldValue(FItemID,1) and FStockID=GetFldValue(FDCStockID,1) and FStockplaceID=GetFldValue(FDCSPID,1))' where FKey='FBatchNo' and FClassTypeID=300000000
3、 更新BOS单据缓存
UPdate ICClasstype set fid=fid
回答时间:2007-9-3 14:36:40
 
avatar
潘承方
社区贡献Top 25
帖子 1,145
积分 10,890
虽然你是回答了这个问题,但我还说一声.
你看看在我之前回答你问题的人是BOS版主啊.怎么不是专家呢?
谦虚一点.呵呵
=================================================
公司网站:
http://www.zzsyrj.com
金蝶KIS标准版数据交换工具出来了.
有特定需求的客户请将需求发到邮箱中,必复!

株洲金蝶软件服务商
株洲市世亚软件有限责任公司
潘承方 0733-6199007
zzkdpcf@163.com

回答时间:2007-9-5 18:53:46
View as RSS news feed in XML
© 2007 金蝶国际软件集团 版权所有 | 关于我们 | 联系我们 | 隐私申明 | 使用帮助