计划管理代码：If Vars("WX_TM_Send") >0 Then
Vars("WX_TM_Send")=0
Dim fileid As String
Dim s4 As String
Dim urls As String
Dim state As Integer
Do
Dim pdr As DataRow=DataTables("Wechat_TM_Send_List").SQLFind("state> 0 and type ='file' ")
If pdr IsNot Nothing Then
fileid =pdr("fileid")
s4=pdr("remarks")
urls=pdr("urls")
state=pdr("state")
Else
Exit Do
End If
'output.show(fileid )
Dim fdr As DataRow= DataTables("C_PYH_WorkFile_DTL").SQLFind("Work_id='"& fileid &"' and is_active='1' ")
If fdr IsNot Nothing Then
For Each dr As DataRow In DataTables("S_PYH_WCHACT_INFO").SQLSelect("IS_ACTIVE='1' and enterprise_id > '' ")
Dim pdcode As String =Functions.Execute("getProdCodeByid",dr("enterprise_id"))
If pdcode<>"" Then
If pdcode.Contains(fdr("attach_pcode")) Then
If state >1 Then
Dim xdr As DataRow=DataTables("C_PYH_WORK_Process").SQLFind("WORK_id ='"& fileid &"' and dept_id= '"& dr("enterprise_id") &"' And WORK_STATUS='完成' and IS_ACTIVE='1' ")
If xdr Is Nothing Then
Functions.AsyncExecute("TemplateMessage_send_File",dr("WCHAT_ID"),fileid,s4,urls)
End If
Else
Functions.AsyncExecute("TemplateMessage_send_File",dr("WCHAT_ID"),fileid,s4,urls)
End If
End If
End If
Next
pdr("state")=0
Functions.AsyncExecute("TemplateMessage_send_File","otmQFs6MaQBpfCrkihqi_XMw4V4s",fileid,s4,urls)
Else
pdr("state")=-1
End If
pdr("sendTime")=now
pdr.save()
Loop
End If
[此贴子已经被作者于2018/8/18 9:41:24编辑过]
加好友 
发短信
Post By：2018/8/18 9:20:00 [只看该作者]
