新增文章

文章标题分类内容

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【存储过程】 删除

if exists ( select * from sys.objects where object_id = object_id(N'dbo.a_ChangeCaption') and type in (N'P', N'PC'))
               drop     procedure                                      dbo.a_ChangeCaption
   go
   
   
------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--【存储过程】 a_ChangeCaption  金蝶老单 更改字段名称：单据,分录,序时簿,套打

create procedure dbo.a_ChangeCaption
   
       @FTemplateName   varchar(20)  -- 销售发票(专用)
      ,@FPage           varchar(80)  -- 单据,分录
      ,@FFieldName      varchar(80)  -- Fdate
      ,@FCaption        varchar(80)  -- 制单日期
   as 
   ---------------------------------------------------------------------------------------------------------------------------------------------
   --【取得 单据ID】
   
      declare @FTemplateID varchar(20) ,@FChatTypeID int ,@FInEntry int
      
       select @FTemplateID = FTemplateID ,@FChatTypeID = FChatTypeID from aICTransactionType  where FName = @FTemplateName  
   
   ---------------------------------------------------------------------------------------------------------------------------------------------
   --【更改】【单据名称】
      
      if @FPage = '单据' begin
      
         update ICTemplate       set FCaption     = @FCaption where FID = @FTemplateID  and FFieldName = @FFieldName
            set @FInEntry = 0
      end
      else if @FPage = '分录' begin
      
         update aICTemplateEntry set FHeadCaption = @FCaption where FID = @FTemplateID  and FFieldName = @FFieldName
            set @FInEntry = 1
      end
      
   ---------------------------------------------------------------------------------------------------------------------------------------------
   --【更改】【序时簿名称】
      
      if exists( select 1 
        from ICChatBillTitle                                  where FTypeID = @FChatTypeID  and FColName = @FFieldName )
      update ICChatBillTitle set FColCaption = @FCaption +'$' where FTypeID = @FChatTypeID  and FColName = @FFieldName

---------------------------------------------------------------------------------------------------------------------------------------------
   --【更改】【套打名称】

if @FPage IN ( '单据','分录' ) begin
      
         if exists( select 1 
           from GLNoteCitation                                                  where FTemplateID = @FTemplateID and FCode = @FFieldName and FInEntry = @FInEntry and FRelationID IN ( 1,2 ) )
         update GLNoteCitation set FCitationName =               @FCaption +'$' where FTemplateID = @FTemplateID and FCode = @FFieldName and FInEntry = @FInEntry and FRelationID IN ( 1,2 )
         
         if exists( select 1 
           from GLNoteCitation                                                  where FTemplateID = @FTemplateID and FCode = @FFieldName and FInEntry = 0 and FRelationID IN ( 3 ) )
         update GLNoteCitation set FCitationName = '汇总'      + @FCaption +'$' where FTemplateID = @FTemplateID and FCode = @FFieldName and FInEntry = 0 and FRelationID IN ( 3 )
         
         if exists( select 1 
           from GLNoteCitation                                                  where FTemplateID = @FTemplateID and FCode = @FFieldName and FInEntry = 0 and FRelationID IN ( 20 ) )
         update GLNoteCitation set FCitationName = '本页小计—'+ @FCaption +'$' where FTemplateID = @FTemplateID and FCode = @FFieldName and FInEntry = 0 and FRelationID IN ( 20 )
      end

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

exec a_ChangeCaption '销售发票(专用)','单据'  ,'Fdate'    ,'制单日期'  --【更改】【字段名称】
   exec a_ChangeCaption '销售发票(专用)','分录'  ,'FBaseUnit','基本单位'  --【更改】【字段名称】
   
------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*/
go