/*
描述：统一获取SCH1.ID方式使用Core_NewId_SCH01

更改的过程：
HOCRM_SCH1_CallBackEdit
HOCRM_SCH1_SCA1_SCA04ChangeLog
HOCRM_SCH1_WillDoEdit
HOCRM_SCH1_WillDoLog
*/
IF EXISTS(SELECT 1 FROM SYSOBJECTS WHERE NAME = 'HOCRM_SCH1_CallBackEdit' AND TYPE = 'P')
  DROP PROC HOCRM_SCH1_CallBackEdit
GO
CREATE PROC HOCRM_SCH1_CallBackEdit
 @SCH01 INT
,@SCA01 INT
,@Type varchar(64)
,@Title varchar(24)
,@Content varchar(4000) 
,@Date datetime
,@EmpID int
,@EmpName varchar(20)
,@TagSCA1_SCA04 int = -1
AS
/*
select SCH01,  SCH11 回访类型, SCH12 回访情况, SCH16 回访主题, BCE01A 回访人员ID, 
   BCE03A 回访人员,  SCH23 回访日期 
from SCH1
where SCA01 = @SCA01 and SCH06 ='CallBack'
*/
BEGIN
  IF @SCH01 = 0 
  BEGIN
    EXEC Core_NewId_SCH01 @SCH01 OUT
    INSERT INTO SCH1(SCH01, SCH11, SCH12, SCH16, BCE01A, BCE03A, SCH23, SCH06, SCA01)
    VALUES(@SCH01, @Type, @Content, @Title, @EmpID, @EmpName, @Date, 'CallBack', @SCA01)
  END
  ELSE
  BEGIN
    UPDATE SCH1 SET SCH11 = @Type, SCH12 = @Content, SCH16 = @Title, 
    SCH23 = @Date WHERE SCH01 = @SCH01
  END
  IF (@TagSCA1_SCA04 >= 0) AND (@SCA01 > 0)
  begin 
    UPDATE SCA1 SET SCA04 = @TagSCA1_SCA04 WHERE SCA01 = @SCA01
    -- 写入修改日志
    EXEC HOCRM_SCH1_SCA1_SCA04ChangeLog @SCH01, @EmpID, @EmpName, @TagSCA1_SCA04
  end 
END
GO

IF EXISTS(SELECT 1 FROM SYSOBJECTS WHERE NAME = 'HOCRM_SCH1_SCA1_SCA04ChangeLog' AND TYPE = 'P')
  DROP PROC HOCRM_SCH1_SCA1_SCA04ChangeLog
GO
CREATE PROC HOCRM_SCH1_SCA1_SCA04ChangeLog
@SCH01A INT,
@EmpID int,
@EmpName varchar(20),
@TagSCA1_SCA04 int = -1
AS
  DECLARE @SCH01 INT,@msg varchar(500), @EmpNo varchar(30), @LevName varchar(30)
BEGIN
  IF @TagSCA1_SCA04 >= 0 
  BEGIN
    EXEC Core_NewId_SCH01 @SCH01 OUT
    select @EmpNo = isnull(BCE02, '') from BCE1 where BCE01 = @EmpID
    if ISNULL(@EmpNo, '') = '' set @EmpNo = ''
    SELECT @LevName = ISNULL(ADV02, '') FROM ADV1 WHERE ADV01 = @TagSCA1_SCA04
    IF ISNULL(@LevName, '') = '' SET @LevName = ''
    set @msg = @EmpName + '(' + @EmpNo + ')更改客户级别为：' + @LevName
    INSERT INTO SCH1(SCH01, SCH01A,BCE01A,BCE03A,SCH09,SCH10,SCH11,SCH12,SCH19) 
      VALUES(@SCH01, @SCH01A, @EmpID, @EmpName,6,407,'客户级别变更日志', @msg,GETDATE())
  END
END
GO

IF EXISTS(SELECT 1 FROM SYSOBJECTS WHERE NAME = 'HOCRM_SCH1_WillDoEdit' AND TYPE = 'P')
  DROP PROC HOCRM_SCH1_WillDoEdit
GO
CREATE PROC HOCRM_SCH1_WillDoEdit
 @SCH01   INT
,@SCA01   INT
,@SCH11   VARCHAR(64)-- 标题 
,@SCH12   VARCHAR(4048)-- 内容
,@BCE01A  INT -- 登记人ID
,@BCE03A  VARCHAR(20)-- 登记人
,@SCH20   DATETIME -- 预计时间
,@SCH09   INT = 3 -- ;1=定义事件、2=事件; 3=待办事件;4备注信息,5=日志
-- 可默认备选字段
,@BCE01B  INT = 0-- 执行人ID 【】 默认 = 登记人ID，不等于则为其他人指派任务
,@BCE03B  VARCHAR(20) = ''-- 执行人
,@SCH23   DATETIME = null -- 执行时间 【】默认 = 预计时间，可延期
,@SCH30   VARCHAR(1024) = ''-- VARCHAR(1024)放弃原因/备注
-- 暂时没有使用到的字段
,@SCH13   INT = 1--  重要级别, 1普通， 2重要
,@SCH14   INT = 2--  保密级别 1,私有; 2公开
,@BCE01C  INT = 0-- 确认人ID
,@BCE03C  VARCHAR(20) = ''-- 确认人
,@SCH27   DATETIME = NULL-- 确认时间
-- 自动设置的字段
,@SCH01A  INT = 0
,@SCH08   INT = 2 -- ;1=系统, 2=用户
,@SCH10   INT = 405-- 405 = 待办 406 = 备注
,@SCH19   DATETIME = NULL -- 登记时间 
-- 标识不处理字段
,@SCH28   TINYINT = 1 -- TINYINT 状态 1=未完成 2=已完成 3=延期 4=放弃 5 = 删除
AS
BEGIN
  -- 预处理
  IF @SCH09 = 4
    SET @SCH10 = 406
  SET @SCH19 = GETDATE()
 -- 如果是待办事件，则处理默认备选字段
 IF @SCH09 = 3
 BEGIN
   IF (@BCE01B = 0) OR (@BCE03B = '')
   BEGIN
    SET @BCE01B = @BCE01A
    SET @BCE03B = @BCE03A
   END
   IF ISNULL(@SCH23,'') = ''
     SET @SCH23 = @SCH20
 END
  -- 新增
  IF @SCH01 = 0
  BEGIN
    EXEC Core_NewId_SCH01 @SCH01 out 
    INSERT INTO SCH1(SCH01,SCA01,SCH11,SCH12,BCE01A,BCE03A,SCH20,SCH09
           ,BCE01B,BCE03B,SCH23,SCH30,SCH13,SCH14,BCE01C
           ,BCE03C,SCH27,SCH01A,SCH08,SCH10,SCH19,SCH28) 
    VALUES(@SCH01,@SCA01,@SCH11,@SCH12,@BCE01A,@BCE03A,@SCH20,@SCH09
           ,@BCE01B,@BCE03B,@SCH23,@SCH30,@SCH13,@SCH14,@BCE01C
           ,@BCE03C,@SCH27,@SCH01A,@SCH08,@SCH10,@SCH19,@SCH28)
  END
  ELSE -- 编辑
  BEGIN
    UPDATE SCH1 SET SCA01 =@SCA01,SCH11 =@SCH11,SCH12 =@SCH12,BCE01A =@BCE01A
          ,BCE03A =@BCE03A,SCH09 =@SCH09,BCE01B =@BCE01B --,SCH20 =@SCH20  -- 更新不更改预计时间
          ,BCE03B =@BCE03B,SCH23 =@SCH23,SCH30 =@SCH30,SCH13 =@SCH13
    WHERE SCH01 = @SCH01
  END 
END
GO

IF EXISTS(SELECT 1 FROM SYSOBJECTS WHERE NAME = 'HOCRM_SCH1_WillDoLog' AND TYPE = 'P')
  DROP PROC HOCRM_SCH1_WillDoLog
GO
CREATE PROC HOCRM_SCH1_WillDoLog
@SCH01A INT,
@EmpID int,
@EmpName varchar(20),
@OptionDescription varchar(4000),
@Remark varchar(1024) = ''
AS
  DECLARE @SCH01 INT
BEGIN
  EXEC Core_NewId_SCH01 @SCH01 OUT
  INSERT INTO SCH1(SCH01, SCH01A,BCE01A,BCE03A,SCH09,SCH10,SCH11,SCH12,SCH19) 
    VALUES(@SCH01, @SCH01A, @EmpID, @EmpName,5,407,'操作日志', @OptionDescription,GETDATE())
END
GO

-- 更新SCH1_ID

UPDATE SCH1_ID SET Value = isnull((select max(sch01) from SCH1),0)