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

K3 功能 : 【视图】a_ICField 金蝶老单 所有字段 K3 功能 : 【视图】a_ICField 金蝶老单 所有字段 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】 删除

if exists ( select * from sys.views where object_id = OBJECT_ID(N'dbo.a_ICField') )
drop view dbo.a_ICField
go

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】 a_ICField 金蝶老单 所有字段


create view dbo.a_ICField
as
select FID,FBillName,FPage,FSort,FCtlIndex,FTabIndex,FTableName,FTableAlias,FFieldName,FCaption,FCaption2,FFullName
from aICTemplateAll

union all
select FID,FBillName,FPage,3 FSort,FInterID,FSort,FTableName,FTableAlias,FColName,FColCaption,FCaption2,FFullName
from aICChatBillTitle

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

select * from a_ICField where FID = 'S01' and FFieldName like '%%' order by FFieldName,FSort,FTabIndex -- 金蝶老单 所有字段

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*/
go 郭少锋 编辑 2023-09-05 23:06:31 创建 2023-09-05 23:04:37 K3 功能 K3 功能 : 【视图】a_ICTemplateAll 金蝶老单字段 K3 功能 : 【视图】a_ICTemplateAll 金蝶老单字段 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】 删除

if exists ( select * from sys.views where object_id = OBJECT_ID(N'dbo.a_ICTemplateAll') )
drop view dbo.a_ICTemplateAll
go


-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】a_ICTemplateAll 金蝶老单 单据字段

create view dbo.a_ICTemplateAll
as
select
FID
,FBillName
,FPage

,FOptionExt
,FCtlIndex,FTabIndex
,FFullName
,FRelationID,FAction,FFilter

,FLeft,FTop,FWidth,FHeight

,FVisForBillType,FIsVisibleForList
,FEnable,FMustInput,FNeedSave,FNeedCount
,FAllowCopy,IsSupportImport
,FPrint
,FInEntryForSPrint

,FCtlType,FLookUpType,FLookUpCls

,FSort
,FTableName,FTableAlias
,FFieldName,FCaption,FCaption2

from a_ICTemplate

union all
select
FID
,FBillName
,FPage

,FOptionExt
,FCtlIndex,FCtlOrder

,FFullName
,FRelationID,FAction,FFilter

,0 FLeft,0 FTop,FWidth,0 FHeight

,FVisForBillType,FIsVisibleForList
,FEnable,FMustInput,FNeedSave,FNeedCount
,FAllowCopy,IsSupportImport
,FPrint
,0 FInEntryForSPrint

,FCtlType,FLookUpType,FLookUpCls

,FSort
,FTableName,FTableAlias
,FFieldName,FHeadCaption,FCaption2

from a_ICTemplateEntry

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

select * from a_ICTemplateAll where FID = 'S01' order by FSort,FTabIndex -- 金蝶老单 单据字段

------------------------------------------------------------------------------------------------------------------------------------------------------------------------

select * from a_ICTemplate where FID = 'S01'
select * from a_ICTemplateEntry where FID = 'S01'

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*/
go 郭少锋 编辑 2023-09-05 23:03:53 创建 2023-09-05 22:50:01 K3 功能 K3 功能 : 【视图】a_ICTemplateEntry 金蝶老单 表体字段 K3 功能 : 【视图】a_ICTemplateEntry 金蝶老单 表体字段 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】 删除

if exists ( select * from sys.views where object_id = OBJECT_ID(N'dbo.a_ICTemplateEntry') )
drop view dbo.a_ICTemplateEntry
go


-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】a_ICTemplateEntry 金蝶老单 表体字段

create view dbo.a_ICTemplateEntry
as
select
a1.FID
,a2.FName FBillName
,a1.FFieldName
,a1.FHeadCaption

,REPLACE(REPLACE(a1.FHeadCaption,' ',''),':','') FCaption2

,a1.FOptionExt
,a1.FCtlIndex,a1.FCtlOrder

,'【'+ a1.FID +',u1.'+ a1.FFieldName +' '+ a1.FHeadCaption +'】' FFullName

,a1.FRelationID,a1.FAction,a1.FFilter
,a1.FWidth,a1.FVisForBillType,a1.FIsVisibleForList
,a1.FEnable,a1.FMustInput,a1.FSysMustInputItem,a1.FNeedSave,a1.FNeedCount
,a1.FAllowCopy,a1.IsSupportImport,a1.FPrint,a1.FPrintStatus

,a1.FCtlType,a1.FLookUpType,a1.FLookUpCls
,a1.FValueType,a1.FSaveValue,a1.FMaxValue,a1.FMinValue,a1.FDefaultValue,a1.FFormat,a1.FSaveRule
,a1.FRelateOutTbl,a1.FCanEditedAllTime
,a1.FStatCount
,a1.FHeadCaption_CHT,a1.FHeadCaption_EN
,a1.FDescription,a1.FDescription_CHT,a1.FDescription_EN
,a1.FDefaultCtl
,a1.FItemClassID,a1.FUserDefineClassID

,a2.FEntryTable FTableName
, 'u1' FTableAlias
, '分录' FPage
, 2 FSort

from ICTemplateEntry a1
left join ICTransactionType a2 on a1.FID = a2.FTemplateID and a2.FAllowDefined = 1

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

select * from a_ICTemplateEntry where FID = 'B01' -- 金蝶老单 表体字段

------------------------------------------------------------------------------------------------------------------------------------------------------------------------

select * from ICTemplateEntry

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*/
go 郭少锋 创建 2023-09-05 22:45:38 K3 功能 K3 功能 : 【视图】 a_ICTemplate 金蝶老单 表头字段 K3 功能 : 【视图】 a_ICTemplate 金蝶老单 表头字段 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】 删除

if exists ( select * from sys.views where object_id = OBJECT_ID(N'dbo.a_ICTemplate') )
drop view dbo.a_ICTemplate
go


-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】 a_ICTemplate 金蝶老单 表头字段

create view dbo.a_ICTemplate
as
select
a1.FROB
,a1.FID
,a2.FName FBillName

,a1.FFieldName
,a1.FCaption

,REPLACE(REPLACE(a1.FCaption,' ',''),':','') FCaption2

,a1.FOptionExt
,a1.FCtlIndex,a1.FTabIndex

,'【'+ a1.FID +',v1.'+ a1.FFieldName +' '+ a1.FCaption +'】' FFullName

,a1.FRelationID,a1.FAction,a1.FFilter
,a1.FLeft,a1.FTop,a1.FWidth,a1.FHeight

,a1.FVisForBillType,a1.FIsVisibleForList,a1.FEnable,a1.FMustInput,a1.FSysMustInputItem,a1.FNeedSave,0 FNeedCount
,a1.FAllowCopy,a1.IsSupportImport
,a1.FPrint,a1.FInEntryForSPrint

,a1.FCtlType,a1.FLookUpType,a1.FLookUpCls
,a1.FValueType,a1.FSaveValue,a1.FMaxValue,a1.FMinValue,a1.FDefaultValue,a1.FFormat


,a1.FFontName,a1.FFontSize,a1.FSelBill,a1.FLockA,a1.FVBACtlType,a1.FRelateOutTbl
,a1.FRMustInput,a1.FCanEditedAllTime
,a1.FCaption_CHT,a1.FCaption_EN
,a1.FDescription,a1.FDescription_CHT,a1.FDescription_EN
,a1.FDefaultCtl
,a1.FItemClassID,a1.FUserDefineClassID

,a2.FHeadTable FTableName
, 'v1' FTableAlias
, '单据' FPage
, 1 FSort

from ICTemplate a1
left join ICTransactionType a2 on a1.FID = a2.FTemplateID and a2.FAllowDefined = 1


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

select * from a_ICTemplate where FID = 'B01' -- 金蝶老单 表头字段

------------------------------------------------------------------------------------------------------------------------------------------------------------------------

select * from ICTemplate where FID = 'A01'
select * from ICTransactionType ORDER BY FTemplateID

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*/
go 郭少锋 创建 2023-09-05 22:43:28 K3 功能 K3 功能 : 【视图】 a_ICReportKeywords 直接SQL报表 关键字 K3 功能 : 【视图】 a_ICReportKeywords 直接SQL报表 关键字 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】 删除

if exists (select * from sys.views where object_id = OBJECT_ID(N'dbo.a_ICReportKeywords'))
drop view dbo.a_ICReportKeywords
go


-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】 a_ICReportKeywords 直接SQL报表 关键字


create view dbo.a_ICReportKeywords
as
select *

,'insert into ICReportKeywords ( FInterID,FKeyword,FCaption,FCaption_CHT,FCaption_EN,FValueType,FDataSource,FBaseField,FSourceSql,FSourceField,FISAllowEnter,FISNeed,FLookUpType,FKeywordType ) '
+'select '

+ convert(varchar(50),FInterID)

+' ,'''+ FKeyword +''''
+' ,'''+ FCaption +''''
+' ,'''+ FCaption_CHT +''''
+' ,'''+ FCaption_EN +''''

+' ,'+ convert(varchar(50),FValueType )
+' ,'+ convert(varchar(50),FDataSource )
+' ,'+ convert(varchar(50),FBaseField )

+' ,'''+ FSourceSql +''''
+' ,'''+ FSourceField +''''

+' ,'+ convert(varchar(50),FISAllowEnter )
+' ,'+ convert(varchar(50),FISNeed )
+' ,'+ convert(varchar(50),FLookUpType )
+' ,'+ convert(varchar(50),FKeywordType ) FTxt

from ICReportKeywords


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

select * from a_ICReportKeywords

------------------------------------------------------------------------------------------------------------------------------------------------------------------------

select * from ICReportKeywords

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*/
go 郭少锋 创建 2023-09-05 22:35:13 K3 功能 K3 功能 : 【视图】a_BillField 数据表字段描述 K3 功能 : 【视图】a_BillField 数据表字段描述 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】 删除

if exists (select * from sys.views where object_id = OBJECT_ID(N'dbo.a_BillField'))
drop view dbo.a_BillField
go


-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】a_BillField 数据表字段描述


create view dbo.a_BillField
as
select
a1.colid

,isnull(a2.FTableCaption ,'') FTableCaption

,a1.FTableName +'.'+ a1.FFieldName + ' '+ isnull(a2.FFieldCaption ,'') FFullName

,a1.FDataType

,a1.FFieldName

,a1.xtype
,a1.FTableName

,isnull(a2.FFieldCaption ,'') FFieldCaption

,isnull(a2.FFieldNote ,'') FFieldNote
,isnull(a2.FLookUpType ,'') FLookUpType
,isnull(a2.FLookUpClassID ,'') FLookUpClassID
,isnull(a2.FSRCTableName ,'') FSRCTableName
,isnull(a2.FSRCFieldName ,'') FSRCFieldName
,isnull(a2.FDSPFieldName ,'') FDSPFieldName
,isnull(a2.FFNDFieldName ,'') FFNDFieldName
,isnull(a2.FNeedFilter ,'') FNeedFilter
,isnull(a2.FCanInput ,'') FCanInput
,isnull(a2.FMustInput ,'') FMustInput
,isnull(a2.FFormat ,'') FFormat
,isnull(a2.FSubSystemID ,'') FSubSystemID
,isnull(a2.FTableID ,'') FTableID
,isnull(a2.FTableNote ,'') FTableNote
,isnull(a2.FTableSefDefSign ,'') FTableSefDefSign
,isnull(a2.FTableType ,'') FTableType
,isnull(a2.FFieldSefDefSign ,'') FFieldSefDefSign
,isnull(a2.FFieldType ,'') FFieldType


from a_TableField a1
FULL join a_TableDesc a2 on a2.FTableName = a1.FTableName AND a2.FFieldName = a1.FFieldName

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

select * from a_BillField where FTableName LIKE '%SEOrder%' AND FTableCaption LIKE '%%' order by FTableName,colid --【数据表】【字段描述】

------------------------------------------------------------------------------------------------------------------------------------------------------------------------

select * from a_TableField -- 数据表字段
select * from a_TableDesc -- 金蝶老单字段描述

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*/
go 郭少锋 创建 2023-09-05 22:31:40 K3 功能 K3 功能 : 【视图】a_TableDesc 金蝶老单字段描述 K3 功能 : 【视图】a_TableDesc 金蝶老单字段描述 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】 删除

if exists (select * from sys.views where object_id = OBJECT_ID(N'dbo.a_TableDesc'))
drop view dbo.a_TableDesc
go


-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】a_TableDesc 金蝶老单字段描述


create view dbo.a_TableDesc
as
select
RTRIM( a1.FTableName ) FTableName
,RTRIM( a1.FDescription) FTableCaption

,RTRIM( a2.FFieldName ) FFieldName
,RTRIM( a2.FDescription) FFieldCaption

,RTRIM( isnull( a2.FFieldNote,'') ) FFieldNote

,a2.FLookUpType
,a2.FLookUpClassID

,a2.FSRCTableName
,a2.FSRCFieldName
,a2.FDSPFieldName
,a2.FFNDFieldName

,a2.FNeedFilter
,a2.FCanInput
,a2.FMustInput
,a2.FFormat

,a1.FSubSystemID

,a1.FTableID
,RTRIM( a1.FTableNote ) FTableNote

,a1.FSefDefSign FTableSefDefSign
,a1.FType FTableType

,a2.FSefDefSign FFieldSefDefSign
,a2.FType FFieldType


from t_TableDescription a1
join t_FieldDescription a2 on a1.FTableID = a2.FTableID


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

select * from a_TableDesc where FTableCaption LIKE '%销售订单%' order by FTableName,FFieldName -- 金蝶老单字段描述

------------------------------------------------------------------------------------------------------------------------------------------------------------------------

select * from t_TableDescription
select * from t_FieldDescription

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*/
go 郭少锋 编辑 2023-09-05 22:30:08 创建 2023-09-05 22:21:38 K3 功能 K3 功能 : 【视图】a_BillField 数据表字段描述 K3 功能 : 【视图】a_BillField 数据表字段描述 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】 删除

if exists (select * from sys.views where object_id = OBJECT_ID(N'dbo.a_BillField'))
drop view dbo.a_BillField
go


-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】a_BillField 数据表字段描述


create view dbo.a_BillField
as
select
a1.colid

,isnull(a2.FTableCaption ,'') FTableCaption

,a1.FTableName +'.'+ a1.FFieldName + ' '+ isnull(a2.FFieldCaption ,'') FFullName

,a1.FDataType

,a1.FFieldName

,a1.xtype
,a1.FTableName

,isnull(a2.FFieldCaption ,'') FFieldCaption

,isnull(a2.FFieldNote ,'') FFieldNote
,isnull(a2.FLookUpType ,'') FLookUpType
,isnull(a2.FLookUpClassID ,'') FLookUpClassID
,isnull(a2.FSRCTableName ,'') FSRCTableName
,isnull(a2.FSRCFieldName ,'') FSRCFieldName
,isnull(a2.FDSPFieldName ,'') FDSPFieldName
,isnull(a2.FFNDFieldName ,'') FFNDFieldName
,isnull(a2.FNeedFilter ,'') FNeedFilter
,isnull(a2.FCanInput ,'') FCanInput
,isnull(a2.FMustInput ,'') FMustInput
,isnull(a2.FFormat ,'') FFormat
,isnull(a2.FSubSystemID ,'') FSubSystemID
,isnull(a2.FTableID ,'') FTableID
,isnull(a2.FTableNote ,'') FTableNote
,isnull(a2.FTableSefDefSign ,'') FTableSefDefSign
,isnull(a2.FTableType ,'') FTableType
,isnull(a2.FFieldSefDefSign ,'') FFieldSefDefSign
,isnull(a2.FFieldType ,'') FFieldType


from a_TableField a1
FULL join a_TableDesc a2 on a2.FTableName = a1.FTableName AND a2.FFieldName = a1.FFieldName

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

select * from a_BillField where FTableName LIKE '%SEOrder%' AND FTableCaption LIKE '%%' order by FTableName,colid --【数据表】【字段描述】

------------------------------------------------------------------------------------------------------------------------------------------------------------------------

select * from t_TableDescription
select * from t_FieldDescription where ftableid = 11

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*/
go 郭少锋 创建 2023-09-05 22:27:28 K3 功能 K3 功能 : 【视图】 a_TableField 数据表字段 K3 功能 : 【视图】 a_TableField 数据表字段 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】 删除

if exists (select * from sys.views where object_id = OBJECT_ID(N'dbo.a_TableField'))
drop view dbo.a_TableField
go


-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】 a_TableField 数据表字段


create view dbo.a_TableField
as
select
a1.xtype -- 数据类型

,a1.name FTableName -- 数据表名

,a2.colid
,a2.name FFieldName -- 字段名称

------------------------------------------------------------------------------------------------------------------------------------------------------------
,(CASE WHEN a3.name IN ( 'varchar','nvarchar','char','nchar' ) THEN a3.name +'('+ CONVERT(varchar(10),a2.prec) +')'
WHEN a3.name IN ( 'decimal' ) THEN a3.name +'('+ CONVERT(varchar(10),a2.prec) +','+ CONVERT(varchar(10),a2.scale) +')'
ELSE a3.name END)

+(CASE WHEN a2.isnullable = 0 THEN '' ELSE ' Not Null' END) FDataType -- 数据类型

------------------------------------------------------------------------------------------------------------------------------------------------------------
,a3.name FDataName -- 字段类型
,a2.length FDataLength -- 字段长度
,a2.prec FDataPrec -- 字段精度

,(CASE WHEN a2.scale IS NULL THEN '' ELSE CONVERT(varchar(10),a2.scale) END) FDataScale -- 小数位数

,a2.isnullable FDataNull -- 允许为空

,a1.crdate FCreateDate -- 创建日期

from sysobjects a1
join syscolumns a2 on a2.id = a1.id
join systypes a3 on a3.xusertype = a2.xusertype

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

select * from a_TableField where FTableName LIKE '%t_ICItemCore%' order by FCreateDate,FTableName,colid --【数据表】【字段信息】

------------------------------------------------------------------------------------------------------------------------------------------------------------------------

select * from sysobjects order by crdate DESC
select * from syscolumns order by id DESC
select * from systypes order by xusertype

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*/
go 郭少锋 创建 2023-09-05 22:17:05 K3 功能 K3 功能 : 【视图】a_ICClassLinkEntry 新单 下推字段 K3 功能 : 【视图】a_ICClassLinkEntry 新单 下推字段 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】 删除

if exists (select * from sys.views where object_id = OBJECT_ID(N'dbo.a_ICClassLinkEntry'))
drop view dbo.a_ICClassLinkEntry
go


-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【视图】a_ICClassLinkEntry 新单 下推字段


create view dbo.a_ICClassLinkEntry
as
select
b1.FName_CHS FSourClassType
,b2.FName_CHS FDestClassType

,(case when a1.FSourPage = isnull(a2.FPage,'') then '' else convert(varchar(10),isnull(a2.FPage,'')) end) FSrPage
,isnull(a2.FCaption_CHS,'') FSrCaption

,isnull(a2.FTableName,'') +'.'+ isnull(a2.FFieldName,'') FSrField

,dbo.aBillNo( convert(varchar(10),isnull(a2.FPage,''))+'.' ,'0' ,2 ,isnull(a2.FTabIndex,'') ) FSrTab

,(case when a1.FDestPage = isnull(a3.FPage,'') then '' else convert(varchar(10),isnull(a3.FPage,'')) end) FDePage
,isnull(a3.FCaption_CHS,'') FDeCaption

,isnull(a3.FTableName,'') +'.'+ isnull(a3.FFieldName,'') FDeField
,dbo.aBillNo( convert(varchar(10),isnull(a3.FPage,''))+'.' ,'0' ,2 ,isnull(a3.FTabIndex,'') ) FDeTab

,a1.FSourClassTypeID
,a1.FSourPage
,a1.FSourFKey

,a1.FDestClassTypeID
,a1.FDestPage
,a1.FDestFKey

,a1.FISUserDefine
,a1.FAllowModified

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
,'insert ICClassLinkEntry( FISUserDefine,FAllowModified,FSourClassTypeID,FSourPage,FSourFKey,FDestClassTypeID,FDestPage,FDestFKey ) values( '

+ convert(varchar(30),a1.FISUserDefine)
+','+ convert(varchar(30),a1.FAllowModified) +' '

+','+ convert(varchar(30),a1.FSourClassTypeID) +','+ convert(varchar(30),a1.FSourPage) +','''+ a1.FSourFKey +'''' + dbo.aSpace( a1.FSourFKey,'18')
+','+ convert(varchar(30),a1.FDestClassTypeID) +','+ convert(varchar(30),a1.FDestPage) +','''+ a1.FDestFKey +'''' + dbo.aSpace( a1.FDestFKey,'18')

+') -- '
+'【 '+ convert(varchar(30),a1.FSourPage) +' '+ a1.FSourFKey + dbo.aSpace( a1.FSourFKey,'18') +' '+ isnull(a2.FCaption_CHS,'') + dbo.aSpace( isnull(a2.FCaption_CHS,''),'15') +' '+ isnull(a2.FFieldName,'') + dbo.aSpace( isnull(a2.FFieldName,''),'18') +' 】'
+'【 '+ convert(varchar(30),a1.FDestPage) +' '+ a1.FDestFKey + dbo.aSpace( a1.FDestFKey,'18') +' '+ isnull(a3.FCaption_CHS,'') + dbo.aSpace( isnull(a3.FCaption_CHS,''),'15') +' '+ isnull(a3.FFieldName,'') + dbo.aSpace( isnull(a3.FFieldName,''),'18') +' 】'
------------------------------------------------------------------------------------------------------------------------------------------------------------------------
FTxt

,a1.FIsCheck
,a1.FDoAction

,a1.FBeforeFormula
,a1.FAfterFormula
,a1.FCheckStatCol
,a1.FHaveCheckCol

,a1.FIsGroup
,a1.FIsFilter
,a1.FControl
,a1.FRedNeg
,a1.FSourTypeID
,a1.FDestTypeID


from ICClassLinkEntry a1
left join ICClassTableInfo a2 on a1.FSourClassTypeID = a2.FClassTypeID and a1.FSourFKey = a2.FKey
left join ICClassTableInfo a3 on a1.FDestClassTypeID = a3.FClassTypeID and a1.FDestFKey = a3.FKey

left join ICClassType b1 on a1.FSourClassTypeID = b1.FID
left join ICClassType b2 on a1.FDestClassTypeID = b2.FID


------------------------------------------------------------------------------------------------------------------------------------------------------------------------
/* 调用：

Exec a_Select 'ICClassType' ,@where = 'FSourClassTypeID = 1006001 '

Exec a_Select 'a_ICClassLink' ,@where = 'FSourClassTypeID = 1006001 '

Exec a_Select 'a_ICClassLinkEntry' ,@where = 'FSourClassTypeID = 1006001 '
,@Order = 'FDestClassTypeID,FSrTab'

Exec a_Select 'a_ICClassLinkEntry' ,@where = 'FSourClassTypeID = 210001201 and FDestClassTypeID = 210001401 '
,@Order = 'FDestClassTypeID,FSrTab'


insert ICClassLinkEntry( FISUserDefine,FAllowModified,FSourClassTypeID,FSourPage,FSourFKey,FDestClassTypeID,FDestPage,FDestFKey ) values( 0,0 ,1006001,1,'FNumber' ,1006002,1,'FSourceBillNo_CN' ) -- 【 1 FNumber 单据编号 FNumber 】【 1 FSourceBillNo_CN 付款申请单号 FSourceBillNo_CN 】
insert ICClassLinkEntry( FISUserDefine,FAllowModified,FSourClassTypeID,FSourPage,FSourFKey,FDestClassTypeID,FDestPage,FDestFKey ) values( 0,1 ,1006001,1,'FDate' ,1006002,1,'FDate' ) -- 【 1 FDate 日期 FDate 】【 1 FDate 日期 FDate 】
insert ICClassLinkEntry( FISUserDefine,FAllowModified,FSourClassTypeID,FSourPage,FSourFKey,FDestClassTypeID,FDestPage,FDestFKey ) values( 0,0 ,1006001,1,'FPayInside_CN' ,1006002,1,'FPayInside_CN' ) -- 【 1 FPayInside_CN 内部结算 FPayInside_CN 】【 1 FPayInside_CN 内部结算 FPayInside_CN 】
insert ICClassLinkEntry( FISUserDefine,FAllowModified,FSourClassTypeID,FSourPage,FSourFKey,FDestClassTypeID,FDestPage,FDestFKey ) values( 0,0 ,1006001,1,'FRP_CN' ,1006002,1,'FRP_CN' ) -- 【 1 FRP_CN 结算类型 FRP_CN 】【 1 FRP_CN 结算类型 FRP_CN 】
insert ICClassLinkEntry( FISUserDefine,FAllowModified,FSourClassTypeID,FSourPage,FSourFKey,FDestClassTypeID,FDestPage,FDestFKey ) values( 0,0 ,1006001,1,'FItemClassID' ,1006002,1,'FItemClassID' ) -- 【 1 FItemClassID 收款单位类别 FItemClassID 】【 1 FItemClassID 收款单位类别 FItemClassID 】

*/
go 郭少锋 创建 2023-09-05 18:06:21 K3 功能