CDM客开经验共享

windy8848

--抬头项焦点跳转
抬头项至明细项
"SetField('DBGrid1','SetFocus',True)"
抬头项之间
"[SetField('dwmch','SetFocus','True')]"

--CS单据中调用查询方案
使用dj_cxrun_调用CS查询方案
:hz_gzid, :hz_dwbh, :mx_spid
使用openbill_调用BS查询表单
  var ObjectUtility = new ActiveXObject('SmartClient.Utility');
     var djbs = ObjectUtility.GetProfileValue('CCERP_DJ_COMMON','djbs');
var dwbh = ObjectUtility.GetProfileValue('CCERP_DJ'+djbs, 'hz.dwbh');
     var spid = ObjectUtility.GetProfileValue('CCERP_DJ'+djbs,'mx.spid');

--CS查询方案中调用查询
查询方案中调用CS查询
‘skcxrun_xs_xskp,skcxrun_cg_ddkp’ as __zl_sel_fa, ‘销售开票查询,采购订单查询’ as __zl_sel_name
（也可用于审核方案、删除方案中）

查询方案中调用BS查询表单
“LOADBILL_yc_cx_dpfx” as __menu,“商品单品分析" as __menuname
var ObjectUtility = new ActiveXObject('SmartClient.Utility');
var fabh = ObjectUtility.GetProfileValue('View_Common','FABH');
var spid = ObjectUtility.GetProfileValue('View_'+fabh,'mx.spid');


--查询方案中调用检索方案显示信息
页面属性维护窗口的响应函数中加入zl_myfld_、zl_allfld_
1、在查询结果域双击鼠标左键时出现资料检索窗口
2、使用zl_myfld_时，where子句中不加变参时在所有字段上生效，带变参时仅在变参对应字段上双击时生效
3、使用zl_allfld_时，在所有字段上双击时生效，且where子句中的变参起作用

--单据抬头项默认值
通过存储过程 SOF_GETDJVAL 实现
select 'bm' as fdname, b.bm as fdvalue
from hr_bmzhygw a(nolock)  JOIN bmdoc b(nolock)  ON a.bmid=b.bmid where a.dzyid = @dzyid
   union all  
select 'start_date' as fdname,CONVERT(char(8),getdate(),120)+'01' as fdvalue
   union all
   select 'end_date' as fdname,CONVERT(CHAR(10),DATEADD(Day,-1,CONVERT(char(8),DATEADD(Month,1,getdate()),120)+'1'),120) as fdvalue
在单据的控件属性编辑窗口的缺省取值中填写__bm

--色标使用
查询方案和检索方案中的色标： __fcolor与__bcolor
‘clred’ as __fcolor, ‘clwhite’ as __bcolor
‘$000000’ as __fcolor, ‘$FFFFFF’ as __bcolor
资料检索方案中的扩展字段色标
'if([fieldname]='‘kcshl'',''clred/b'','''')' as __expfcolor,  'if([fieldname]='‘kcshl'',''clyellow'','''')' as __expbcolor
  'if(([fieldname]=''jlgg'') and ([jlgg]<1000),''clgreen'',if(([fieldname]=''jlgg''),''clgreen/b'',''''))' as __expfcolor,
   'if([fieldname]=''jlgg'',''clyellow'','''')' as __expbcolor

--单据存盘后执行参数
单据高级选项——单据存盘后执行（SaveAfterSQL）
用于CS单据中数据已存储到汇总表/明细表后的特殊处理
IF NOT EXISTS (SELECT 1 FROM dj_gsetup WHERE djlx='110' AND shezhibs='SaveAfterSQL')
INSERT INTO dj_gsetup(djlx,shezhibs,shezmc,shezlx,shurz,quesz,shuom)
VALUES('110','SaveAfterSQL','单据存盘后执行','字符型','exec demoproc :gzid,:djlxbs ','','单据存盘后执行')

CREATE PROCEDURE demoproc
@gzid VARCHAR(15), @djlxbs CHAR(3)
AS
......
IF @djlxbs=‘110’ and @hsje<10000
UPDATE jxddhz SET shenhe='是' where djbh=@djbh
......

补充内容 (2016-2-20 15:20):
欢迎大家加入时空软件交流群279958350

windy8848

以上仅是分享一些代码，具体如何使用大家可以在以后的实际应用中慢慢体会。。。

xhw2048

cdm与KSOA有什么区别

davids

欣赏版主的无私奉献！

807544522

807544522

cdm与KSOA有什么区别

hlsoftware

很好，有更多的资料吗？

ssmmaall

用友时空  软件的查询都是要自己设置sql语句吗

水果刺猬

无私的老师

no66781

有没有CS 中GRID中行、列颜色控制的语句啊。

恬淡生活

请问kaoa、cdm为何没有输出excel功能？怎么实现呢？有大侠在吗

nxz

很好，大家应该学习！很有用的。

曲儿23

看看看看看看看看看看看看看看看看看看