归档   
奋斗,幸福一直在闪亮~

K3WISE15对老单进行二次开发,老单序时簿上添加按钮的二次开发示例。
本功能为,生产模块任务回报单序时薄增加“工时批量填充”功能。

一、通过SQL直接增加按钮

--以下SQL脚本
--获取 MENU ID 
select FID,FmenuID,FName from iclisttemplate where Fname LIKE '%任务单汇报%' --(FID=603,FmenuID=90)  (FID=11,FmenuID=82) 
--增加元数据按钮
select * from t_MenuToolBar Where FToolID = '30005' order by FToolID
--Delete From t_MenuToolBar Where FToolID = '30005' 
insert into t_MenuToolBar (FToolID,FName,FCaption,FCaption_CHT,FCaption_EN,FImageName,FToolTip,FToolTip_CHT,FToolTip_EN,FControlType,FVisible,FEnable,FChecked,FShortCut,FCBList,FCBList_CHT,FCBList_EN,FCBStyle,FCBWidth,FIndex,FToolCaption,FToolCaption_CHT,FToolCaption_EN) 
values (30005,'mnuHRWTime','工时批量填充','工时批量填充','工时批量填充','6','工时批量填充','工时批量填充','工时批量填充',0,0,1,0,0,'','','',0,0,0,'工时批量填充','工时批量填充','工时批量填充') 

--将上面的按钮插入到工具栏
select * from t_BandToolMapping where fid=90 and fbandid=52 order by findex 
Delete From t_BandToolMapping where FToolID = 30005 and FID = 90 
insert into t_BandToolMapping (FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup) 
values (90,53,30005,0,77,'|ICMORpt.LLP_551',1) --插件名称.类模块名称

--在序时薄显示按钮(如果里面有"|V",则只能在后面加菜单项) 
select * from IclistTemplate where FID =603
Update IclistTemplate 
set FLogicStr=FLogicStr+ Case When Right(FLogicStr,1)='|' then 'V:mnuHRWTime' else '|V:mnuHRWTime' end 
where FID =603 and FLogicStr not like '%mnuHRWTime%' 

转载请注明原地址:http://www.chuqi.site/article/7200a3e0c32ffffffffe26f0

阅读(90)  评论(0) 

SQL2000多次安装失败解决办法 命令提示符内运行下面四句:

odbcconf.exe /S /Lv odbcconf.log /F %systemroot%\system32\mdaccore.rsp
odbcconf.exe /S /Lv odbcconf.log /F %systemroot%\system32\sqlclnt.rsp
odbcconf.exe /S /Lv odbcconf.log /F %systemroot%\system32\odbcconf.rsp
odbcconf.exe /S /Lv odbcconf.log /F %systemroot%\system32\redist.rsp
阅读(50)  评论(0) 

GOLANG获取硬盘序列号
虚拟机无效

    cmd := exec.Command("CMD", "/C", "WMIC DISKDRIVE GET SERIALNUMBER")
    serialNo, err := cmd.Output()
    if err != nil {
        return 
    }
    fmt.Println(string(serialNo))
阅读(47)  评论(0) 

2018-11-01 英雄联盟S8世界总决赛在韩国仁川文鹤体育场拉开帷幕。经过3个小时的比赛,来自中国LPL赛区的战队IG最终以3:0的成绩,强势碾压LCS欧洲老牌强队Fnatic,夺得LPL赛区在英雄联盟S赛上的首个世界冠军!

S8IG

阅读(86)  评论(0) 

2018年10月开始使用新个税计算方法,起征整由原来的3500变成了5000!

工资个税的计算公式为:应纳税额=(工资薪金所得 -“五险一金”-扣除数)×适用税率-速算扣除数

新的个税免征额是5000:
个税对比表

EXCEL个税计算公式

=MAX((A1-5000)*{3;10;20;25;30;35;45}%-{0;210;1410;2660;4410;7160;15160},)

阅读(90)  评论(0) 

凭证过账时提示名称或代码在系统中已被使用错误代码3604(E14H)
Source:Microsoft OLE DB Provider for SQL server
Detail:在结果的列表中多次出现列名“F2。”

由于核算项目信息表中的核算项目类别个数与设置的核算项目类别不对应造成,请调整为一致即可。更新SQL语句参考如下。

操作前请备份账套

update a set a.fdetailcount=b.Fcount 
from t_itemdetail a join (select Fdetailid,count(*) as Fcount from t_itemdetailv where fitemid=-1 group by Fdetailid) b 
on a.fdetailid=b.fdetailid where a.fdetailcount<>b.Fcount 
阅读(326)  评论(62) 

校验和算法是将ICMP报文编码以每个16bit为单位,先取反码,再将这些反码求和。但这里用的是先求和,再取反。

public UInt16 getCheckSum(byte[] msgData)//msgData存放ICMP报文内容
{
    UInt32 checksum = 0 //校验和初始值为0
    int size = msgData.length;
    int index = 0;
    while(size > 1){
        //从index开始取msgData相邻两个字节,将其转换成无符号16位整数,再将其转换成无符号32位整数累加到checksum中。
        checksum += Convert.ToUInt32(BitConverter.ToUInt16(msgData,index));
        index += 2;
        size -= 2;
	}
    //如果为奇数,将最后一个字节扩展到4字节,再累加到checksum中
    if(size == 1){checksum += Convert.ToUInt32(msgData[index]);}
    //因为最后要返回16位字节码,所以将checksum高16位字节码加到低16位字节码中
    checksum=(checksum>>16)+(checksum&0xffff);
    //将上一步溢出到高16位字节码加入到低16位字节码中
    checksum+=(checksum>>16);
    //最后将字节码和取反返回
    return (UInt16)(~cksum);
}
阅读(97)  评论(0) 

版本:金蝶K3_WISE15.0

需求:
  金蝶K3委托加工出库单,发料仓库自动获取加工单位(供应商)对应的发料仓库。
  加工单位对应的发料仓库为供应商核算项目自定义字段(仓库)。

解决方案:
  用VB编写客户端插件。当供应商字段信息变更时,自动获取对应仓库并更新发料仓库字段值。

主要应用事件与方法:
  m_BillTransfer_HeadChange //单据头更新事件
  m_BillTransfer.SetHead //设置单位头字段值

阅读(227)  评论(1) 
// 获取程序根目录
func RootPath() (string, error) {
	root, err := os.Getwd()
    if err != nil {
		return "", err
	}
	root = strings.Replace(root, "\\", "/", -1)
	return root, nil
}
阅读(103)  评论(0) 
EXCEL大写金额公式 ... :18.09.19  excel  
=SUBSTITUTE(SUBSTITUTE(IF(A1<0,"负","")&TEXT(TRUNC(FIXED(A1)),"[>0][dbnum2];[<0][dbnum2];;")&TEXT(RIGHT(FIXED(A1),2),"元[dbnum2]0角0分;;"&IF(ABS(A1)>1%,"元整",)),"零角",IF(ABS(A1)<1,,"零")),"零分","整") 
阅读(100)  评论(0) 
1 +1