二开-给老单序时簿添加按钮

在【编辑】菜单的“复制全部单据(Y)”之下一次增加菜单【寄售对账】、【寄售反对账】和【寄售对账设置…】 在右键菜单中，在“复制全部单据(Y)”菜单之下一次增加右键菜单【寄售对账】和【寄售反对账】

首先添加2个按钮到t_MenuToolBar 中，自定义的FToolID 是10000（非必须），并且不能重复（必须）

Delete From t_MenuToolBar Where FToolID in( 11000,10009)

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 (11000,'FMenuCheckQP','寄售对账','寄售对账','寄售对账','','寄售对账','寄售对账','寄售对账',0,0,1,0,0,'','','',0,0,0,'寄售对账','寄售对账','寄售对账')

go

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 (10009,'FMenuUnCheckQP','寄售反对账','寄售反对账','寄售反对账','','寄售反对账','寄售反对账','寄售反对账',0,0,1,0,0,'','','',0,0,0,'寄售反对账','寄售反对账','寄售反对账')

go

FMenuCheckQP，FMenuUnCheckQP是2个按钮的Key；

再把按钮指定到的对应的序时簿上

--只在销售出库单序时薄显示按钮(如果里面有"|V",则只能在后面加菜单项)

Update IclistTemplate

set FLogicStr=FLogicStr+

Case When Right(FLogicStr,1)='|' then 'V:FMenuCheckQP,FMenuUnCheckQP'

else '|V:FMenuCheckQP,FMenuUnCheckQP'

end

where FID =8 and not FLogicStr like '%FMenuCheckQP,FMenuUnCheckQP%'

让FLogicStr包含|V:FMenuCheckQP,FMenuUnCheckQP的串；如果已经存在|V:xxxx,xx.就把

FMenuCheckQP,FMenuUnCheckQP放在xxxx,xx后面。要保证这个字符串里面最多只有一个|V:

select FMenuID,* from IclistTemplate where fname = '销售出库'

--FMenuID=82

--将上面的按钮插入到工具栏和菜单栏

--菜单栏,FID对应iclisttemplate里的FMenuID, FBandID表示放在哪个菜单下，可以通

过以下语句关联得到是哪个菜单

select a.*,b.fname,b.FCaption From

t_BandToolMapping a, t_MenuToolBar b where a.FID = 82 and a.ftoolid=b.ftoolid

order by a.FBandID,a.FIndex

Delete From t_BandToolMapping where FBandID=3 and FToolID in( 11000,10009) and FID = 82

insert into t_BandToolMapping (FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup) values (82,3,11000,0,88,'|Project1.ListBill',0)

insert into t_BandToolMapping (FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup) values (82,3,10009,0,89,'|Project1.ListBill',0)

--工具栏（根据需求看需不需要增加）

--Delete From t_BandToolMapping where FBandID=53 and FToolID in( 10009,10002) and FID = 82

--insert into t_BandToolMapping (FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup) --values (82,53,11000,0,196