自动发送特定信息到首页公告栏功能的配置

业务场景：

    用户每次登录系统时，在首页公告栏以及右下角弹出窗口处可以收到系统自动发送的消息，此消息内容可以根据不同业务需要定制发送内容，接收人，接收时间等等，非常灵活有效。

基本原理：

    通过向T_TIPS表中写入特定数据，即可达到发送自定义消息功能。需要说明的是，写入这个表中的数据并不是立刻发送的，而是根据表中的发送日期字段来判定，当前日期已经超过设定的发送日期才会发送。因此主要用于在未来某个时间点发送预期的消息。

实施部署步骤：

    1、创建自定义标量值函数dbo.FVGetIfSendTips(BILL_NO,USER_ID)，作用是判断是否已经发送过消息，输入参数为单号和用户，返回值为字符“Y、N”

    2、创建发送消息的存储过程dbo.P_UF_AUTO_TIPS，作用是根据不同业务场景，写入T_TIPS表，达到定时发送的目的。此存储过程可以要参数或者不要参数，如果加上BILL_ID参数，则可以指定对某张单发送消息。不要参数，则可以统一发送消息。

    3、根据需要，可以在不同的地方调用存储过程，比如审批流程节点中，在特定节点审批后发送；或者放到数据库计划任务中，每天自动发送一批。

代码范例：

--检查是否已经发送消息
create FUNCTION [dbo].[FVGetIfSendTips]
(
	@BILL_NO VARCHAR(50)
	,@USER_ID VARCHAR(50)
)
RETURNS CHAR(1)
AS
BEGIN
	DECLARE @RESULT CHAR(1)='N'

	IF EXISTS (SELECT TT_TO FROM T_TIPS WHERE TT_BILL_NO=@BILL_NO AND TT_TO=@USER_ID)
		SET @RESULT='Y'

	RETURN @RESULT

END

--发送消息
create PROC [dbo].[P_UF_AUTO_TIPS]
AS
BEGIN


	--场景1：借款到期归还
	INSERT INTO T_TIPS (TT_ID,TT_TO,TT_BILL_NO,TT_SUBJECT,TT_CONTENT,TT_TIPS_DATE,TT_COUNT_SUM,TT_CREATER)
	SELECT NEWID(),BILL_SUBMIT_USER,BILL_NO,'借款到期 | '+BILL_NO,'借款单摘要：'+BILL_REMARK
	,BILLC_EX_DATE01
	,1,'借款到期' FROM TBILL B
	INNER JOIN TBILL_CONTENT BC ON BC.BILLC_BILL_ID=B.BILL_ID
	WHERE B.BILL_FLAG IN ('JZ','CLOSE') 
	AND BILLC_LAMOUNT<>0 
	AND BILLC_EX_DATE01 <>'' 
	AND BILLC_EX_DATE01 IS NOT NULL
	AND DBO.FVGETIFSENDTIPS(BILL_NO,BILL_SUBMIT_USER)='N'
	AND BILL_TEMPLATE_TYPE='T-L'
	AND BILLC_EX_DATE01>GETDATE()
	ORDER BY BILL_NO,BILLC_SEQ

	--场景2：申请流程走完提醒报销
	INSERT INTO T_TIPS (TT_ID,TT_TO,TT_BILL_NO,TT_SUBJECT,TT_CONTENT,TT_TIPS_DATE,TT_COUNT_SUM,TT_CREATER)
	SELECT NEWID(),BILL_SUBMIT_USER,BILL_NO,'申请流程走完 | '+BILL_NO,'申请单摘要：'+BILL_REMARK
	,DATEADD("HOUR", 1,DBO.FVGETLASTTIMEBYBILL(B.BILL_ID))
	 ,1,'及时报销' FROM TBILL B
	INNER JOIN TBILL_CONTENT BC ON BC.BILLC_BILL_ID=B.BILL_ID
	WHERE B.BILL_FLAG IN ('JZ','CLOSE') 
	--AND CAST(DBO.FVGETLASTTIMEBYBILL(B.BILL_ID) AS DATE)=@TODAY
	AND DBO.FVGETIFSENDTIPS(BILL_NO,BILL_SUBMIT_USER)='N'
	AND BILL_TEMPLATE_TYPE  IN ('T-L','T-A')
	AND B.BILL_NO NOT IN (SELECT DISTINCT BILL_APPLY FROM TBILL WHERE BILL_APPLY<>'')
	ORDER BY BILL_NO,BILLC_SEQ

	--场景3：有沟通信息及时查看
	INSERT INTO T_TIPS (TT_ID,TT_TO,TT_BILL_NO,TT_SUBJECT,TT_CONTENT,TT_TIPS_DATE,TT_COUNT_SUM,TT_CREATER)
	SELECT NEWID(),BILL_SUBMIT_USER,BILL_NO,('有沟通信息 | '+BILL_NO)
	,('单据摘要：'+BILL_REMARK+CHAR(10)+'沟通发起人：'+CHAT_NAME+CHAR(10)+'沟通内容：'+CHAT_CONTENT+CHAR(10))
	,DATEADD("DAY",1,CAST(CHAT_DATE AS DATE))
	 ,1,'单据沟通' FROM TBILL B
	INNER JOIN TCHAT ON BILL_ID=CHAT_BILLS
	WHERE B.BILL_FLAG NOT IN ('NO') 
	--AND CAST(CHAT_DATE AS DATE)=@TODAY
	AND DBO.FVGETIFSENDTIPS(BILL_NO,BILL_SUBMIT_USER)='N'
	AND B.BILL_NO NOT LIKE '%***%'
	AND CHAT_NAME<>'系统管理员'
	ORDER BY BILL_NO

END