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

分类

问题
上个主题 下个主题
主题:工业单据在编辑时改变F7选择的辅助资料
avatar
yu_hao
IT 行业
Ta擅长:
SOA(1),K/3 BOS其他(1) 本周回答(0),本月回答(0)
发贴时间: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
IT 行业
Ta擅长:
SOA(1),K/3 BOS其他(1) 本周回答(0),本月回答(0)
回答时间:2007-9-5 13:18:15
怎么没有金蝶的专家来回答
俺辛苦找到方法了,给大家参考,用此方法可更改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

自问自答,真没意思啊!
发文者评价: (共获积分:40
 
网友评价: 0%       0%     (目前有 0 人评价)
你的评价:
其他回答
avatar
coolegg
IT 行业
Ta擅长:
K/3 BOS(3),SOA(3) 本周回答(0),本月回答(0)
回答时间:2007-9-3 8:52:34
不需要些插件,可以增加自定义字段,来源于其他基础资料即可.
 
avatar
yu_hao
IT 行业
Ta擅长:
SOA(1),K/3 BOS其他(1) 本周回答(0),本月回答(0)
回答时间:2007-9-3 12:22:17
补充一下:
我的需求是:如果指定了不同的客户,需要从不同的辅助资料中选择另一项数据,所以需要动态指定另一项数据的来源。
如果在另一项数据LookUp之前更新它的查询类别,这样就能根据不同的客户,重新指定这项数据的选择来源
 
avatar
coolegg
IT 行业
Ta擅长:
K/3 BOS(3),SOA(3) 本周回答(0),本月回答(0)
回答时间:2007-9-3 14:36:40
下面的代码与调用基础资料类似,参考一下
----------
关于批次号分别按输入的物料、仓库、仓位的过滤批次的范例代码。
解决方法:
环境说明:
物料:字段名称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
 
avatar
潘承方
IT 行业
Ta擅长:
金蝶K/3(18),金蝶KIS(18) 本周回答(0),本月回答(0)
回答时间:2007-9-5 18:53:46
虽然你是回答了这个问题,但我还说一声.
你看看在我之前回答你问题的人是BOS版主啊.怎么不是专家呢?
谦虚一点.呵呵
=================================================
公司网站:
http://www.zzsyrj.com
金蝶KIS标准版数据交换工具出来了.
有特定需求的客户请将需求发到邮箱中,必复!

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

View as RSS news feed in XML
© 2008 金蝶国际软件集团 版权所有  Version:3.2.2008.27643 页面时间:112.0106Ms