专家坐堂-[求助]在执行计划的时候，HttpRequest好像是无响应的，怎么解决？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

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