日报自动填报


需求：每天都要填写日报表，日报表的数据来源于生产业务一线的工单，有一百多家二级单位每天手动上报，希望能自动填报日报表，替代人工操作。
方法：通过代理服务自动填报日报数据。
实现：明细数据这里为演示改为直接插入，实际可以从外部系统获得。
1、脚本

1. /****** 自动任务填报日报  ******/
   
2. Declare @Date As datetime
   
3. Set @Date = GetDate()
   
4. --Set @Date = '2024-05-27 00:20:00.000'  --单独插入某一天的数据
   
5. If Not Exists(
   
6.         --依据日期字段判断该单位名称今天是否存在日报数据
   
7.         SELECT [F_2467]        --日报日期字段
   
8.                 FROM [dbo].[T_24]        --日报主表
   
9.                 Where Convert(Varchar(100),[F_2467],23) = Convert(Varchar(100),@Date,23) And CuName = '单位名称'
   
10.   )
    
11.         Begin
    
12.                 Declare @ID As Varchar(50)
    
13.                 SET @ID = NewID()
    
14. 
    
15.                 --插入主表T_24数据
    
16.                 --CuName 填报用户姓名，CDate 填报时间，Cuid填报人ID，CDid填报人所属部门ID
    
17.                 Insert Into T_24(ID,F_2467,F_2249,CUNAME,CDATE,CUID,CDID) Values (@ID,@Date,'单位名称','填报人姓名',@Date,'8aea7b0e-8621-4278-b1e9-7d5bcb2fc5dc','91c8f637-37a4-4117-992a-d5c425418cd8')
    
18. 
    
19.                 --插入明细T_70数据
    
20.                 Insert Into T_70(F_3336,F_3337,ID) values('明细A1',1,@ID)
    
21.                 Insert Into T_70(F_3336,F_3337,ID) values('明细A2',2,@ID)
    
22.                 Insert Into T_70(F_3336,F_3337,ID) values('明细A3',3,@ID)
    
23.                 Insert Into T_70(F_3336,F_3337,ID) values('明细A4',4,@ID)
    
24.                 Insert Into T_70(F_3336,F_3337,ID) values('明细A5',5,@ID)
    
25.         End

复制代码

2、将脚本文件放服务器上，配置代理自动任务，每天执行。

日报自动填报


需求：每天都要填写日报表，日报表的数据来源于生产业务一线的工单，有一百多家二级单位每天手动上报，希望能自动填报日报表，替代人工操作。
方法：通过代理服务自动填报日报数据。
实现：明细数据这里为演示改为直接插入，实际可以从外部系统获得。
1、脚本

1. /****** 自动任务填报日报  ******/
   
2. Declare @Date As datetime
   
3. Set @Date = GetDate()
   
4. --Set @Date = '2024-05-27 00:20:00.000'  --单独插入某一天的数据
   
5. If Not Exists(
   
6.         --依据日期字段判断该单位名称今天是否存在日报数据
   
7.         SELECT [F_2467]        --日报日期字段
   
8.                 FROM [dbo].[T_24]        --日报主表
   
9.                 Where Convert(Varchar(100),[F_2467],23) = Convert(Varchar(100),@Date,23) And CuName = '单位名称'
   
10.   )
    
11.         Begin
    
12.                 Declare @ID As Varchar(50)
    
13.                 SET @ID = NewID()
    
14. 
    
15.                 --插入主表T_24数据
    
16.                 --CuName 填报用户姓名，CDate 填报时间，Cuid填报人ID，CDid填报人所属部门ID
    
17.                 Insert Into T_24(ID,F_2467,F_2249,CUNAME,CDATE,CUID,CDID) Values (@ID,@Date,'单位名称','填报人姓名',@Date,'8aea7b0e-8621-4278-b1e9-7d5bcb2fc5dc','91c8f637-37a4-4117-992a-d5c425418cd8')
    
18. 
    
19.                 --插入明细T_70数据
    
20.                 Insert Into T_70(F_3336,F_3337,ID) values('明细A1',1,@ID)
    
21.                 Insert Into T_70(F_3336,F_3337,ID) values('明细A2',2,@ID)
    
22.                 Insert Into T_70(F_3336,F_3337,ID) values('明细A3',3,@ID)
    
23.                 Insert Into T_70(F_3336,F_3337,ID) values('明细A4',4,@ID)
    
24.                 Insert Into T_70(F_3336,F_3337,ID) values('明细A5',5,@ID)
    
25.         End

复制代码

2、将脚本文件放服务器上，配置代理自动任务，每天执行。