个人博客 用于记载日常收集的一些技术文章 ...

K3 功能 : 账套列表 KIS-Z-160 K3 功能 : 账套列表 KIS-Z-160 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 账套列表 KIS-Z-160

select

a.FAcctID
,a.FVersion
,a.FAcctNumber,a.FAcctName
,a.FCompanyName,a.FDescription
,a.FServer
,a.FSysUser
,a.FDBName
,b.FileName

,a.FCreateTime,a.FDupTime
,a.FBackupTime
,a.FAutoBakTime

from AcctCtl.dbo.t_ad_kdAccount_gl a
left join master.dbo.Sysdatabases b on a.facctnumber = b.name

order by a.FAcctName


------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 更新：版本号

update AcctCtl.dbo.t_ad_kdAccount_gl set FVersion = '3.0.03.10' where FAcctID = 26 郭少锋 编辑 2023-09-10 22:54:03 创建 2023-09-10 22:51:39 K3 功能 K3 功能 : 金蝶新单：常用功能 K3 功能 : 金蝶新单：常用功能 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 金蝶新单：单据名称

exec a_Select 'ICClassType' ,@where = 'FID like ''21000%'' '
,@order = 'FStockType,FID'


exec a_Select 'ICClassTypeEntry' ,@where = 'FParentID like ''21000%'' '

/*
----------------------------------------------------------------------------------------------------
1 1 210001102 采购+入库单
1 -1 210001103 采购+退库单

2 1 210001202 销售+送货单
2 -1 210001203 销售+退货单
----------------------------------------------------------------------------------------------------
1 1 210001521 受托加工+入库单

2 1 210001502 受托加工+送货单
2 -1 210001503 受托加工+退货单
----------------------------------------------------------------------------------------------------
1 1 210001612 委外加工+入库单
1 -1 210001613 委外加工+退库单

2 1 210001602 委外加工+出仓单
2 -1 210001603 委外加工+退仓单
----------------------------------------------------------------------------------------------------
1 1 210001301 其他入库单
2 1 210001302 其他出库单

1 1 210001202 盘点单
----------------------------------------------------------------------------------------------------
*/


--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 单据：数据表

select * from a_StockBill order by FID desc
select * from a_StockBillEntry order by FID desc,FIndex

select * from a_PrOrder order by FID desc
select * from a_PrOrderEntry order by FID desc



--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 单据：流程图

select * from ICClassWorkFlow where FID > 1124
select * from ICClassWorkFlowBill where FID > 1124
select * from ICClassWorkFlowJoin where FID > 1124


--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 单据：下推关系

exec a_Select 'a_ICClassLink' ,@where = 'FDestClassTypeID like ''%210001202%'' '

exec a_Select 'a_ICClassLinkEntry' ,@where = 'FDestClassTypeID like ''%210001202%'' '
,@order = 'FDeTab'

/*
( a_StockBill.FCheckId > 0 ) and ( a_StockBill.FCancel != '1' ) and ( a_StockBill.FConfirmId = 0 )
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
update ICClassLink set FCondition = '( a_StockBill.FCheckId > 0 ) and ( a_StockBill.FCancellation != ''1'' ) and ( a_StockBill.FConfirmId = 0 ) '
where FSourClassTypeID = 210001613
and FDestClassTypeID = 210001202

*/




--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 菜单：功能名称

exec a_Select 'ICClassBillAction' ,@where = 'FName_CHS like ''%%'' and FClassTypeID = 210001202 '
,@order = 'FClassTypeID,FID'

exec a_Select 'ICClassBillAction' ,@Field = 'FID,FClassTypeID,FCode,FName_CHS,FEnvironment,FRightGroupMask,FRightMask,FRightControl,FAddLog,FIsFirst,FIconFile,FShortCut '
,@where = 'FName_CHS like ''%%'' and FClassTypeID = 210001202 '
,@order = 'FClassTypeID,FCode'


--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 菜单：自定义位置

exec a_Select 'ICClassActionPosition' ,@where = 'FClassTypeID = 210001202 '
,@order = 'FClassTypeID,FActionID'


--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 菜单：功能事件

exec a_Select 'ICClassActionList' ,@where = 'FSourceType = 256 and FClassTypeID = 210001202 and FObject like ''%%'' '
,@order = 'FClassTypeID,FObject,FClassActionID'


--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 字段：值更新事件

exec a_Select 'ICClassActionList' ,@where = 'FSourceType != 256 and FClassTypeID = 210001202 and FObject like ''%%'' '
,@order = 'FClassTypeID,FObject,FClassActionID'



--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 单据：工具条设置 K3-151

select * from ICClassToolBarProfile where FTemplateID=210001202 and FUserID=16398 and FType='0'

/*
新增 mnuFileNew
查看 mnuFileView

保存 mnuFileSave = 1
复制 mnuEditCopy = 1

恢复 mnuRecover = 0
单序 mnuEditResetOrder = 0

修改 mnuEditModify
删除 mnuEditDelete

预览 mnuFilePreview ◆
打印 mnuFilePrint ◆

启动审核 mnuEditStartMultiCheck ◆
审核 mnuEditMultiCheck
驳回 mnuEditUnMultiCheck

审核不通过 mnuEditUnPassMultiCheck ◆
查看审核 mnuEditCheckRoad ◆

确认 mnuEditConfirm ★
反确认 mnuEditUnConfirm ★

凭证选项 mnuVoucherOptions ◆

合并生成 mnuMultiToOne【生成凭证】
查看凭证 mnuBOSViewVoucher

上查 mnuDataViewPrvBill
下查 mnuDataViewNextBill

关联信息 mnuViewUnionQuery ◆
刷新 mnuDataRefesh
过滤 mnuDataFilter
查找 mnuDataSearch

首张 mnuDataFirst = 1
前张 mnuDataPre = 1
后张 mnuDataNext = 1
末张 mnuDataLast = 1

资料 mnuDataLookUp = 0 【F7】

附件 mnuDataAccessory ◆
计算器 mnuCaculate ◆

*/



--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 字段：FKey

exec a_Select 'ICClassTableInfo' ,@Field = 'FID,FClassTypeID,FPage,FKey,FCaption_CHS,FFieldName ,FHeight,FWidth,FLeft,FTop ,FVisible,FEnable,FTabIndex,FFont '
,@where = 'FCaption_CHS like ''%%'' and FClassTypeID = 210001202 '
,@order = 'FPage,FTabIndex'

exec a_Select 'ICClassTableInfo' ,@Field = 'FID,FClassTypeID,FPage,FKey,FCaption_CHS,FFieldName ,FHeight,FWidth,FLeft,FTop ,FVisible,FEnable,FTabIndex,FFont '
,@where = 'FKey != FFieldName and FClassTypeID = 210001202 '
,@order = 'FPage,FTabIndex'


update ICClassTableInfo set FKey = FFieldName where FClassTypeID = 210001202 and FFieldName = 'FBiller'
update ICClassTableInfo set FKey = FFieldName where FClassTypeID = 210001202 and FFieldName = 'FCreateTime'



--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 字段：字体

update ICClassTableInfo set FFont = 'FontName=微软雅黑|FontSize=12|FontBold=False|FontItalic=False|'
where
FClassTypeID = 210001202



--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 字段：下拉列表值

select FLookUpList,* from ICClassTableInfo where FClassTypeID = 210001202 and FFieldName like '%FCancel%'

/*
update ICClassTableInfo set FLookUpList = 'VALUELIST{0= ,1=Y}' where FClassTypeID = 210001202 and FFieldName = 'FCancel'

*/


--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 字段：录入顺序 FListIndex FTabIndex

exec a_Select 'ICClassTableInfo' ,@Field = 'FCondition,FDSPFieldName,FID,FClassTypeID,FPage,FTabIndex,FListIndex ,FFieldName,FKey ,FCaption_CHS,FCaption_CHT,FCaption_EN,FTableName ,FKeyWord,FLeft,FTop,FHeight,FWidth,FLock ,FTableNameAs,FListClassName,FVisible,FEnable,FNeedSave,FMustInput,FCtlType,FProperty,FLookUpType,FLookUpClassID,FLookUpList,FSRCFieldName,FSRCTableName,FSRCTableNameAs,FDSPFieldName,FFNDFieldName,FValueLocation,FFilter,FFilterGroup,FValueType,FDspColType,FEditlen,FValuePrecision,FSaveRule,FDefValue,FAction,FUserDefine,FNote,FSum,FPrec,FScale,FLayer,FLoadAction,FUnControl,FFont,FSourceType,FSubKey,FParentKey,FConditionExt,FFrameBorder,FFrameBorderColor,FLabelWidth,FLabelColor,FTextColor,FIsF7,FContainer,FStyle,FDescription,FDescription_CHT,FDescription_EN,IsSupportImport,FMargin,FMobileFieldLinkID,FIsShowTitle,FBackgroundImage '
,@where = 'FClassTypeID like ''%210001202%'' and FFieldName like ''%%'' '
,@order = 'FPage,FTabIndex,FListIndex'

/*
-- 过滤 显示 源单编号

update ICClassTableInfo set FCondition = '0,13' ,FDSPFieldName = 'FName' where FClassTypeID = 210001202 and FFieldName = 'FBillNo_SRC'

update ICClassTableInfo set FVisible = 1806 where FClassTypeID = 210001202 and FKey = 'FIndex2' -- 行号
*/


declare @Index int = 0 ,@FClassTypeID int = 210001202 ;

select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FClassTypeID'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FID'

select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FVoucherId'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FPrintCount'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FCancel'

select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FConfirmId'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FConfirmTime'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FCheckId'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FCheckTime'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FBiller'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FCreateTime'

select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FMultiCheckStatus'

select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FCompanyId'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FDate'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FBillNo'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FCustId'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FNoteBill'

select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FEntryID2'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FID2'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FIndex2'


select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FClassID_SRC'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FID_SRC'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FEntryID_SRC'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FBillNo_SRC'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FIndex_Src'

select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FID_Order'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FEntryId_Order'

select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FBillNo_Order'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FIndex_Order'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FCustId_Order'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FProcess'

select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FItemId'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FItemName'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FAuxPropId'

select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FUnitStock2'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FUnitSale2'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FStockId2'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FQtyStock2'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FQtyUnit2'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FQtyGe2'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FQtySale2'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FPriceSale2'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FAmountSale2'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FNoteItem2'

select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FUnitStock'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FUnitSale'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FStockId'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FQtyStock'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FQtyUnit'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FQtyGe'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FQtySale'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FPriceSale'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FAmountSale'
select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FNoteItem'


select @Index = @Index + 1 ; update ICClassTableInfo set FListIndex = @Index ,FTabIndex = @Index where FClassTypeID = @FClassTypeID and FKey = 'FChangeTxt'
go 郭少锋 创建 2023-09-07 11:43:16 K3 功能 K3 功能 : K3-151 工具条设置 K3 功能 : K3-151 工具条设置 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 工具条设置 K3-151

select * from ICClassToolBarProfile where FTemplateID=210001202 and FUserID=16398 and FType='0'

/*
新增 mnuFileNew
查看 mnuFileView

保存 mnuFileSave = 1
复制 mnuEditCopy = 1

恢复 mnuRecover = 0
单序 mnuEditResetOrder = 0

修改 mnuEditModify
删除 mnuEditDelete

预览 mnuFilePreview ◆
打印 mnuFilePrint ◆

启动审核 mnuEditStartMultiCheck ◆
审核 mnuEditMultiCheck
驳回 mnuEditUnMultiCheck

审核不通过 mnuEditUnPassMultiCheck ◆
查看审核 mnuEditCheckRoad ◆

确认 mnuEditConfirm ★
反确认 mnuEditUnConfirm ★

凭证选项 mnuVoucherOptions ◆

合并生成 mnuMultiToOne【生成凭证】
查看凭证 mnuBOSViewVoucher

上查 mnuDataViewPrvBill
下查 mnuDataViewNextBill

关联信息 mnuViewUnionQuery ◆
刷新 mnuDataRefesh
过滤 mnuDataFilter
查找 mnuDataSearch

首张 mnuDataFirst = 1
前张 mnuDataPre = 1
后张 mnuDataNext = 1
末张 mnuDataLast = 1

资料 mnuDataLookUp = 0 【F7】

附件 mnuDataAccessory ◆
计算器 mnuCaculate ◆

*/ 郭少锋 创建 2023-09-07 10:16:18 K3 功能 K3 功能 : 主控台：添加模块 K3 功能 : 主控台：添加模块 -----------------------------------------------------------------------------------------------------------------------------------------------------------------
--【查看】 主控台

exec a_Select 'aDataFlow' ,@order = 'FTopVisible DESC,FTopIndex,FTopClassID,FSubIndex,FFuncIndex,FDetailIndex '

,@where = ' FTopName LIKE ''%一星%''
AND FSubName LIKE ''%%''
AND FSubFuncName LIKE ''%%''
AND FDetFuncName LIKE ''%%''
AND FTopClassID > 0 '

-----------------------------------------------------------------------------------------------------------------------------------------------------------------
--【查看】 大模块


select * from t_DataFlowTopClass order by FIndex -- 2 一星

select * from t_DataFlowSubFunc where FSubSysID = 12 order by FSubSysID -- 子功能
select * from t_DataFlowDetailFunc where FSubFuncID = 1202 order by FDetailFuncID -- 明细功能

/*
delete from t_DataFlowTopClass where FTopClassID = 2

insert Into t_DataFlowTopClass( FIndex ,FVisible ,FTopClassID , FTopClassName , FTopClassName_CHT , FTopClassName_EN , FToolTips , FAcctType ,FShowSysType )
select 0 ,1 ,2 ,'一星' ,'一星' ,'一星' ,'Y' ,',1,' ,1

update t_DataFlowTimeStamp set FName = FName
*/

-----------------------------------------------------------------------------------------------------------------------------------------------------------------
--【编辑】 模块名称

exec a_Select 't_SubSystem'
exec a_Select 't_DataFlowSubSystem' ,@where = 'FTopClassID = 2 ' -- 12 进销存
,@order = 'FSubSysID '

/*
FSubSysID 图标： C:\Program Files (x86)\Kingdee\K3ERP\K3Express\SYSTEMICON\ Sys_1.dat dat 改成 bmp


Delete t_DataFlowSubSystem Where FSubSysID = 11

insert into t_DataFlowSubSystem ( FTopClassID,FIndex,FSubSysID,FVisible , FName , FName_CHT , FName_EN , FClassName , FAcctType,FRefresh ,FNote,FNote_CHT,FNote_EN,FAppClassName,FHelpFileName ,FTipID,FUpdateBaseData ,FSubID ,FIsEdit,FSubSystemID,FShowSysType ,FUrl ,FUrlType )
select 2 ,3 ,15 ,1 ,'仓存管理','仓存管理' ,'仓存管理' ,'K3BOSActive.Application' ,',1,' ,0 ,'' ,'' ,'' ,'' ,'' ,0 ,1 ,'' ,0 ,0 ,1 ,'' ,''

insert into t_DataFlowSubSystem ( FTopClassID,FIndex,FSubSysID,FVisible , FName , FName_CHT , FName_EN , FClassName , FAcctType,FRefresh ,FNote,FNote_CHT,FNote_EN,FAppClassName,FHelpFileName ,FTipID,FUpdateBaseData ,FSubID ,FIsEdit,FSubSystemID,FShowSysType ,FUrl ,FUrlType )
select 2 ,4 ,16 ,1 ,'现金管理','现金管理' ,'现金管理' ,'K3BOSActive.Application' ,',1,' ,0 ,'' ,'' ,'' ,'' ,'' ,0 ,1 ,'' ,0 ,0 ,1 ,'' ,''


update t_DataFlowSubSystem set FName = '应付管理' ,FName_CHT = '应付管理' ,FName_EN = '应付管理',FSubID = '' where FSubSysID = 11
update t_DataFlowSubSystem set FName = '应收管理' ,FName_CHT = '应收管理' ,FName_EN = '应收管理',FSubID = '' where FSubSysID = 12

update t_DataFlowTimeStamp set FName = FName -- 更新主控台
*/


-----------------------------------------------------------------------------------------------------------------------------------------------------------------
--【编辑】 子功能

exec a_Select 't_DataFlowSubFunc' ,@where = 'FSubSysID = 15 '
,@order = 'FSubSysID,FIndex '

delete t_DataFlowSubFunc where FSubSysID = 15

declare @Index int = 0

select @Index +=1 ; exec a_insFunc 'Sub' ,@Index ,15 ,'入库' ; -- 添加 子功能名称
select @Index +=1 ; exec a_insFunc 'Sub' ,@Index ,15 ,'出库' ;
select @Index +=1 ; exec a_insFunc 'Sub' ,@Index ,15 ,'库存' ;
go



-----------------------------------------------------------------------------------------------------------------------------------------------------------------
--【编辑】 明细功能

exec a_Select 't_DataFlowDetailFunc' ,@where = 'FSubFuncID like ''1601'' ' -- 明细功能
,@order = 'FSubFuncID,FIndex '

-----------------------------------------------------------------------------------------------------------------------------------------------------------------
delete t_DataFlowDetailFunc where FSubFuncID like '1503' and FIndex > 2 and FIndex < 11

update t_DataFlowDetailFunc set FDetailFuncID = FDetailFuncID * 100 + 88 where FSubFuncID = 1101 and FIndex >= 3

go
declare @Name varchar(30) ,@Index int = 0 ,@SubID int = 1102 ,@NewFuncID int

select @Index +=1 ,@NewFuncID = @SubID*100+@Index ; exec a_ChangeFunc 'Detail' ,110101 ,@SubID ,@Index ,@NewFuncID ,'新增 - 生产任务单' ; -- 修改 名称,顺序
select @Index +=1 ,@NewFuncID = @SubID*100+@Index ; exec a_ChangeFunc 'Detail' ,110102 ,@SubID ,@Index ,@NewFuncID ,'查询 - 生产任务单' ;

select @Index +=1 ,@NewFuncID = @SubID*100+@Index ; exec a_ChangeFunc 'Detail' ,11010189 ,@SubID ,@Index ,@NewFuncID ,'--------------------------' ; -- 修改 名称,顺序

select @Index +=1 ,@NewFuncID = @SubID*100+@Index ; exec a_CopyFunc 'Detail' ,120105 ,@SubID ,@Index ,@NewFuncID ,'新增 - 生产任务单' ; -- 复制 名称,顺序
select @Index +=1 ,@NewFuncID = @SubID*100+@Index ; exec a_CopyFunc 'Detail' ,120106 ,@SubID ,@Index ,@NewFuncID ,'查询 - 生产任务单' ;

select @Index +=1 ,@NewFuncID = @SubID*100+@Index ; exec a_insFunc 'Detail' ,@Index ,@SubID -- 添加横线
go



-----------------------------------------------------------------------------------------------------------------------------------------------------------------
--【查询】

exec a_Select 't_DataFlowSubFunc' ,@where = 'FSubSysID = 12 ' -- 子功能
,@order = 'FSubFuncID '

exec a_Select 't_DataFlowDetailFunc' ,@where = 'FSubFuncID like ''12__'' ' -- 明细功能
,@order = 'FSubFuncID,FIndex '

-----------------------------------------------------------------------------------------------------------------------------------------------------------------
--【删除】 明细功能


delete t_DataFlowDetailFunc where FSubFuncID = 1202 -- 1202 基础资料
delete t_DataFlowSubFunc where FSubFuncID = 1202 -- 1202 基础资料



-----------------------------------------------------------------------------------------------------------------------------------------------------------------
--【删除】 主控台编辑

delete t_UserDetailFunc -- 所有用户.主控台编辑


-----------------------------------------------------------------------------------------------------------------------------------------------------------------
update t_DataFlowTimeStamp set FName = FName --【更新主控台】









/*
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
--【用户设置】

exec a_Select 't_NormalFunc' ,@where = 'FUserId = 16398 ' ,@order = 'FIndex ' -- 我的K3

exec a_Select 't_UserDetailFunc' ,@where = 'FUserId = 16398 ' ,@order = 'FIndex,FDetailFuncID ' -- 主控台编辑



-----------------------------------------------------------------------------------------------------------------------------------------------------------------
--【主控台编辑】 用户 / delete t_UserDetailFunc -- 删除设置


exec a_Select 't_UserMainField' ,@where = 'FUserId = 16398 ' ,@order = 'FIndex ' --
exec a_Select 't_UserTopClass' ,@where = 'FUserId = 16398 ' ,@order = 'FIndex ' --
exec a_Select 't_UserSubSystem' ,@where = 'FUserId = 16398 ' ,@order = 'FIndex ' --
exec a_Select 't_UserSubFunc' ,@where = 'FUserId = 16398 ' ,@order = 'FIndex ' --
exec a_Select 't_UserDetailFunc' ,@where = 'FUserId = 16398 ' ,@order = 'FIndex,FDetailFuncID ' --

exec a_Select 't_UserDataFlowProfile' ,@where = 'FUserId = 16398 ' --

-----------------------------------------------------------------------------------------------------------------------------------------------------------------
--【主控台编辑】 所有用户

exec a_Select 't_UserMainField' ,@where = 'FUserId = 0 ' ,@order = 'FIndex ' --
exec a_Select 't_UserTopClass' ,@where = 'FUserId = 0 ' ,@order = 'FIndex ' --
exec a_Select 't_UserSubSystem' ,@where = 'FUserId = 0 ' ,@order = 'FIndex ' --
exec a_Select 't_UserSubFunc' ,@where = 'FUserId = 0 ' ,@order = 'FIndex ' --
exec a_Select 't_UserDetailFunc' ,@where = 'FUserId = 0 ' ,@order = 'FIndex,FDetailFuncID ' --

exec a_Select 't_UserDataFlowProfile' ,@where = 'FUserId = 0 ' --


-------------------------------------------------------------------------------------------------------------
update t_DataFlowTimeStamp set FName = FName -- 更新主控台

*/ 郭少锋 创建 2023-09-06 23:46:05 K3 功能 K3 功能 : 【存储过程】 a_CopyFunc 复制明细功能：更改名称,排序 K3 功能 : 【存储过程】 a_CopyFunc 复制明细功能：更改名称,排序 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【存储过程】 删除

if exists ( select * from sys.objects where object_id = OBJECT_ID(N'dbo.a_CopyFunc') AND type in (N'P', N'PC') )
drop procedure dbo.a_CopyFunc
go


------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【存储过程】 a_CopyFunc 复制明细功能：更改名称,排序


create procedure dbo.a_CopyFunc

@FuncName varchar(30)
,@FuncID int = 0
,@SubID int = 0
,@Index int = 0
,@NewFuncID int = 0
,@Name varchar(30)
as
------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【添加】 子功能

if @FuncName = 'Sub' begin

insert t_DataFlowSubFunc (
FSubFuncID,FSubSysID,FIndex,FFuncName,FFuncName_CHT,FFuncName_EN ,FClassName,FClassParam,FVisible,FAcctType,FFuncType,FRefresh,FSetEnable,FSubID,FIsEdit,FShowSysType,FUrl,FUrlType
)
select
@NewFuncID,@SubID,@Index,@Name,@Name,@Name ,FClassName,FClassParam,FVisible,FAcctType,FFuncType,FRefresh,FSetEnable,FSubID,FIsEdit,FShowSysType,FUrl,FUrlType
from t_DataFlowSubFunc
where FSubFuncID = @FuncID
end


------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【添加】 明细功能

if @FuncName = 'Detail' begin

insert t_DataFlowDetailFunc (
FDetailFuncID,FSubFuncID,FIndex ,FFuncName,FFuncName_CHT,FFuncName_EN ,FClassName,FClassParam,FIsNormal,FHelpCode,FVisible,FAcctType,FFuncType,FEnable,FShowName,FShowName_CHT,FShowName_EN,FIsEdit,FShowSysType,FUrl,FUrlType,FFuncType_Ex,FAccessModeID
)
select
@NewFuncID,@SubID,@Index ,@Name,@Name,@Name ,FClassName,FClassParam,FIsNormal,FHelpCode,FVisible,FAcctType,FFuncType,FEnable,FShowName,FShowName_CHT,FShowName_EN,FIsEdit,FShowSysType,FUrl,FUrlType,FFuncType_Ex,FAccessModeID
from t_DataFlowDetailFunc
where FDetailFuncID = @FuncID
end


/*
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

exec a_CopyFunc 'Sub' 1201 ,12 ,2 ,1202 ,'销售'
exec a_CopyFunc 'Detail' 120900 ,1201 ,4 ,120104 ,'新增 - 受托加工入库单'

exec a_Select 't_DataFlowDetailFunc' ,@where = 'FSubFuncID like ''12__'' ' -- 明细功能
,@Order = 'FSubFuncID,FIndex '

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*/
go 郭少锋 创建 2023-09-06 23:39:21 K3 功能 K3 功能 : 【存储过程】 a_ChangeFunc 更改明细功能：名称,排序 K3 功能 : 【存储过程】 a_ChangeFunc 更改明细功能：名称,排序 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【存储过程】 删除

if exists ( select * from sys.objects where object_id = OBJECT_ID(N'dbo.a_ChangeFunc') AND type in (N'P', N'PC') )
drop procedure dbo.a_ChangeFunc
go


------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【存储过程】 a_ChangeFunc 更改明细功能：名称,排序


create procedure dbo.a_ChangeFunc

@FuncName varchar(30)
,@FuncID int = 0
,@SubID int = 0
,@Index int = 0
,@NewFuncID int = 0
,@Name varchar(30)
as

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【修改】 子功能

if @FuncName = 'Sub' begin

update t_DataFlowSubFunc set FSubSysID = @SubID ,FIndex = @Index ,FFuncName = @Name ,FFuncName_CHT = @Name ,FFuncName_EN = @Name
where FSubFuncID = @FuncID ;
----------------------------------------
if @NewFuncID > 0 begin
update t_DataFlowSubFunc set FSubFuncID = @NewFuncID where FSubFuncID = @FuncID ;
end
end


------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【修改】 明细功能

if @FuncName = 'Detail' begin

update t_DataFlowDetailFunc set FSubFuncID = @SubID ,FIndex = @Index ,FFuncName = @Name ,FFuncName_CHT = @Name ,FFuncName_EN = @Name
where FDetailFuncID = @FuncID ;
----------------------------------------
if @NewFuncID > 0 begin
update t_DataFlowDetailFunc set FDetailFuncID = @NewFuncID where FDetailFuncID = @FuncID ;
end
end


---------------------------------------------------------------------------------
update t_DataFlowTimeStamp set FName = FName -- 更新主控台


/*
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

exec a_ChangeFunc 'Sub' 1201 ,12 ,1 ,0 ,'销售'
exec a_ChangeFunc 'Detail' 120900 ,1201 ,4 ,0 ,'新增 - 受托加工入库单33'

exec a_Select 't_DataFlowDetailFunc' ,@where = 'FSubFuncID like ''12__'' ' -- 明细功能
,@Order = 'FSubFuncID,FIndex '

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*/
go 郭少锋 编辑 2023-09-06 23:38:43 创建 2023-09-06 23:35:04 K3 功能 K3 功能 : 【存储过程】 a_insFunc 添加：子功能,明细横线 K3 功能 : 【存储过程】 a_insFunc 添加：子功能,明细横线 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【存储过程】 删除

if exists ( select * from sys.objects where object_id = OBJECT_ID(N'dbo.a_insFunc') AND type in (N'P', N'PC') )
drop procedure dbo.a_insFunc
go


------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【存储过程】 a_insFunc 添加：子功能,明细横线


create procedure dbo.a_insFunc

@FuncName varchar(30)
,@Index int = 0
,@FSubFuncID int = 0
,@Name varchar(30) = '--------------------------'
as
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

declare @FuncID int = 0 ; set @FuncID = @FSubFuncID * 100 + @Index ;

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【添加】 子功能

if @FuncName = 'Sub' begin

--select @FuncID = MAX(FSubFuncID) +1 from t_DataFlowSubFunc where FSubSysID = @FSubFuncID ;

--if ISNULL(@FuncID,0) = 0 begin
-- set @FuncID = @FSubFuncID * 100 + @Index
--end

insert t_DataFlowSubFunc (
FSubFuncID,FSubSysID,FIndex,FFuncName,FFuncName_CHT,FFuncName_EN,FClassName,FClassParam,FVisible,FAcctType,FFuncType,FRefresh,FSetEnable,FSubID,FIsEdit,FShowSysType,FUrl,FUrlType
)
values (
@FuncID,@FSubFuncID,@Index,@Name,@Name,@Name,'','',1,'',0,0,0,'',1,1,'',''
)
end


------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【添加】 明细功能

if @FuncName = 'Detail' begin

--select @FuncID = MAX(FDetailFuncID) +1 from t_DataFlowDetailFunc where FSubFuncID = @FSubFuncID ;

--if ISNULL(@FuncID,0) = 0 begin
-- set @FuncID = @FSubFuncID * 100 + 1
--end

insert t_DataFlowDetailFunc (
FDetailFuncID,FFuncName,FFuncName_CHT,FFuncName_EN,FSubFuncID,FIndex,FClassName,FClassParam,FIsNormal,FHelpCode,FVisible,FAcctType,FFuncType,FEnable,FShowName,FShowName_CHT,FShowName_EN,FIsEdit,FShowSysType,FUrl,FUrlType,FFuncType_Ex,FAccessModeID
)
values (
@FuncID,@Name,@Name,@Name,@FSubFuncID,@Index,'','',1,'',1,'',0,1,'','','',1,1,'','','',8
)
end


------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【更新】 主控台

update t_DataFlowTimeStamp set FName = FName


/*
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

exec a_insFunc 'Sub' ,1 ,12 ,'销售'
exec a_insFunc 'Detail' ,4 ,1200


exec a_Select 't_DataFlowSubFunc' ,@where = 'FSubSysID = 12 ' -- 12 进销存
,@Order = 'FSubSysID,FIndex '

exec a_Select 't_DataFlowDetailFunc' ,@where = 'FSubFuncID like ''12__'' ' -- 明细功能
,@Order = 'FSubFuncID,FIndex '

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*/
go 郭少锋 编辑 2023-09-06 23:37:57 创建 2023-09-06 23:31:29 K3 功能 K3 功能 : 用户管理 其他权限 K3 功能 : 用户管理 其他权限 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【其他权限】

select * from t_DataObject --【功能权限】【单据名称】
select * from t_FieldObject --【字段权限】


select * from t_ObjectType where FObjectType>= 4100 and FObjectType<= 4109 and FObjectID=0 --【权限分组】




select * from t_ObjectRefs

select * from ICClassBillAction where FClassTypeID = 210000001 --【功能权限】【FRightMask = 1024】
select * from t_ObjectAccessDetail where FObjectType = 4100 --【功能权限】



select * from t_ObjectAccessType where FObjectType = 4100 and FName LIKE '%打印%' --【单据权限 功能名称】

select FRightMask A,* from ICClassBillAction where FName_CHS LIKE '%预览%'

/*
select FRightMask,* from ICClassBillAction where FClassTypeID = 210000001 and FCode = 'mnuFileSave' --【单据】【操作列表】mnuFileSave

select FAccessMask A,* from t_ObjectAccessType where FObjectID = 210000001 order by FAccessMask,FName
select FRightMask A,* from ICClassBillAction where FClassTypeID = 210000001 and FRightMask != 0 order by FRightMask ,FName_CHS

select FAccessMask ,* from t_ObjectAccessType where FObjectType = 4100 and FObjectID = 210000001 --【单据权限 功能名称】
select FAccessMask ,* from t_ObjectAccessType where FObjectType = 4100 and FObjectID = 1000108 --【单据权限 功能名称】

insert into t_ObjectAccessType( FObjectType,FObjectID,FIndex,FAccessMask,FAccessUse,FName,FDescription,FName_cht,FName_en,FDescription_cht,FDescription_en ) VALUES( 4100,210000001,3,131072,3145728,'新增','新增','新增','New','新增','New' )
insert into t_ObjectAccessType( FObjectType,FObjectID,FIndex,FAccessMask,FAccessUse,FName,FDescription,FName_cht,FName_en,FDescription_cht,FDescription_en ) VALUES( 4100,210000001,11,1,3145728,'保存','保存','保存','Save','保存','Save' )

insert into t_ObjectAccess( FGroupID,FObjectType,FObjectID,FIndex ) VALUES( 2102,4100,210000001,3 )
insert into t_ObjectAccess( FGroupID,FObjectType,FObjectID,FIndex ) VALUES( 2102,4100,210000001,11 )


UPDATE ICClassBillAction SET FRightControl = 1 ,FRightMask = 1 where FClassTypeID = 210000001 and FCode = 'mnuFileSave'
UPDATE ICClassBillAction SET FRightControl = 1 ,FRightMask = 131072 where FClassTypeID = 210000001 and FCode = 'mnuFileImportBill'
*/ 郭少锋 创建 2023-09-06 23:25:50 K3 功能 K3 功能 : 用户管理 功能权限管理 K3 功能 : 用户管理 功能权限管理 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【功能权限管理】【高级】：【数据引入引出】

select * from t_ObjectAccess where FGroupID = 3 --【模块名称.权限名称】
select * from t_ObjectType where FObjectType = 2003 --【权限名称】
select * from t_ObjectAccessType where FObjectType = 2003 --【功能名称】

select * from t_AccessControl where FObjectType = 2003 and FUserID = 16399 order by FUserID,FObjectType,FObjectID --【单据权限】【用户】


--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【功能权限管理】【高级】：【单据_附件管理】

select * from t_ObjectAccess where FGroupID = 9 --【模块名称.权限名称】
select * from t_ObjectType where FObjectType = 2007 --【权限名称】
select * from t_ObjectAccessType where FObjectType = 2007 --【功能名称】

select * from t_AccessControl where FObjectType = 2007 and FUserID = 16399 order by FUserID,FObjectType,FObjectID --【单据权限】【用户】


--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【单据权限】客户化开发

select * from t_GroupAccessType where FGroupID IN ( 2101,2102 ) --【模块名称】
select * from t_ObjectAccess where FGroupID IN ( 2101,2102 ) and FObjectID = 0 --【模块名称.权限名称】
select * from t_ObjectType where FObjectType IN ( 4100 ) and FObjectID = 0 --【权限名称】


select * from t_ObjectAccess where FObjectID = 210000001 --【模块名称.权限名称】
select * from t_ObjectType where FObjectID = 210000001 --【权限名称】
select * from t_ObjectAccessType where FObjectID = 210000001 --【功能名称】


select * from t_GroupAccess where FUserID = 16399 --【模块权限】【用户】
select * from t_AccessControl where FObjectID = 210000001 order by FUserID,FObjectType,FObjectID --【单据权限】【用户】 郭少锋 创建 2023-09-06 23:24:55 K3 功能 K3 功能 : 用户管理 功能权限管理 K3 功能 : 用户管理 功能权限管理 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【功能权限管理】【查询权,管理权】


select * from t_GroupAccessType --【模块名称】
select * from t_GroupAccess where FUserID = 16399 --【模块权限】【用户】

select * from t_GroupAccessType where FGroupID IN ( 15 ,16 ) --【一星软件】
select * from t_GroupAccessType where FGroupID IN ( 2101,2102 ) --【客户化开发】

select * from t_Groups --【空】
select * from t_GrouptLink --【空】


/*
delete from t_GroupAccessType where FGroupID in ( 15 ,16 )

insert into t_GroupAccessType( FGroupID,FMask,FAccess,FSubSys,FSubSys_Cht,FSubSys_en,FAccess_Cht,FAccess_en,FVisiableForPlus )

select 15,1 ,'查询权','一星模块','一星模块','一星模块','一星模块','一星模块' ,1
union select 16,7 ,'管理权','一星模块','一星模块','一星模块','一星模块','一星模块' ,1
*/


--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【功能权限管理】【高级】

exec a_Select 'a_ObjectAccess' ,@where = 'FAccess LIKE ''%%'' and FObjectTypeName LIKE ''%一星%'' and FObjectName LIKE ''%%'' '
,@order = 'FGroupID,FObjectType,FObjectID,FIndex'


select * from t_ObjectAccess --【模块名称.权限名称】
select * from t_GroupAccessType --【模块名称】

select * from t_ObjectType where FObjectID = 0 --【权限名称】上级组
select * from t_ObjectType --【权限名称】单据

select * from t_ObjectAccessType --【功能名称】

/*
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
delete from T_ObjectType where FObjectType = 20 and FObjectID = 0
delete from T_ObjectType where FObjectType = 18 and FObjectID = 0
delete from t_ObjectType where FObjectType = 18 and FObjectID = 210001201;

insert into T_ObjectType( FObjectType,FObjectID,FName,FName_cht,FName_en ,FDescription,FDescription_cht,FDescription_en )

select 20,0 ,'一星基础','一星基础','一星基础','一星基础','一星基础','一星基础'
union select 18,0 ,'一星单据','一星单据','一星单据','一星单据','一星单据','一星单据'

union select 18,210001201 ,'销售订单_New','销售订单_New','Bill_210001201','','',''


--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
delete t_ObjectAccessType where FObjectType = 18 and FObjectID = 210001201


insert into t_ObjectAccessType( FObjectType,FObjectID,FIndex,FAccessMask,FAccessUse,FName,FDescription,FName_cht,FName_en,FDescription_cht,FDescription_en )

select 18,210001201 ,1 ,2097152 ,1048576 ,'查看','查看','查看','查看','查看','查看'
union select 18,210001201 ,3 ,1024 ,3145728 ,'查看凭证','查看凭证','查看凭证','查看凭证','查看凭证','查看凭证'
union select 18,210001201 ,4 ,131072 ,3145728 ,'新增','新增','新增','新增','新增','新增'
union select 18,210001201 ,5 ,4194304 ,3145728 ,'修改','修改','修改','修改','修改','修改'
union select 18,210001201 ,6 ,65536 ,3145728 ,'删除','删除','刪除','delete','刪除','delete'
union select 18,210001201 ,7 ,32768 ,3145728 ,'打印','打印','列印','Print','列印','Print'
union select 18,210001201 ,8 ,1 ,3145728 ,'作废','','作废','作废','',''
union select 18,210001201 ,9 ,4 ,3145728 ,'反作废','','反作废','反作废','',''
union select 18,210001201 ,10,2 ,3145728 ,'确认','','确认','确认','',''
union select 18,210001201 ,11,8 ,3145728 ,'反确认','','反确认','反确认','',''
union select 18,210001201 ,12,16 ,3145728 ,'引出内部数据','引出内部数据','引出内部数据','引出内部数据','引出内部数据','引出内部数据'
union select 18,210001201 ,13,512 ,0 ,'合并生成凭证','合并生成凭证','合併生成憑證','Consolidate and Generate Voucher','合併生成憑證','Consolidate and Generate Voucher'


--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
delete t_ObjectAccess where FObjectType = 18 and FObjectID = 210001201

insert into t_ObjectAccess( FGroupID,FObjectType,FObjectID,FIndex )

select 15,18,210001201,1
union select 15,18,210001201,3

union select 16,18,210001201,4
union select 16,18,210001201,5
union select 16,18,210001201,6
union select 16,18,210001201,7
union select 16,18,210001201,8
union select 16,18,210001201,9
union select 16,18,210001201,10
union select 16,18,210001201,11
union select 16,18,210001201,12
union select 16,18,210001201,13
*/ 郭少锋 编辑 2023-09-06 23:24:13 创建 2023-09-06 23:23:53 K3 功能