<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include file="JsonPost_1000006.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
InvoiceID=Request("InvoiceID")
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select top 1 InvoiceID,ServiceOrderIDPK,InvoiceType,InvoiceName,InvoiceMakeout,AuditStatus,ApplicationTime,AuditTime,Invoice_strEmail,InvoiceCompanyID,Invoice_strPhone,InvoiceURL,InvoiceOddNo,InvoiceMoney,ApplyOAID from InvoiceData where InvoiceID="&InvoiceID
|
rs.open sql,objConn,1,1
|
if not rs.Eof Then
|
If rs("AuditStatus")="3" And rs("ApplyOAID")<>"0" Then
|
ServiceOrdID = rs("ServiceOrderIDPK")
|
InvoiceName = rs("InvoiceName")
|
InvoiceMoney = rs("InvoiceMoney")
|
InvoiceURL = rs("InvoiceURL")
|
InvoiceOddNo = rs("InvoiceOddNo")
|
ApplyOAID = rs("ApplyOAID")
|
'touser = "ylkx_vicgame"
|
'ApplyOAID=8
|
touser = OAUser(ApplyOAID,"weixinUserID")
|
'微信OA信息下发接口
|
appUrl="https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token="&access_token
|
|
'微信验证码下发
|
args1="{"
|
args1=args1&"""touser"": """&touser&"""," '成员ID列表（消息接收者，多个接收者用‘|’分隔，最多支持1000个）。特殊情况：指定为@all，则向关注该企业应用的全部成员发送 |liaojunliang
|
args1=args1&"""toparty"": """"," '部门ID列表，多个接收者用‘|’分隔，最多支持100个。当touser为@all时忽略本参数
|
args1=args1&"""totag"": """"," '标签ID列表，多个接收者用‘|’分隔。当touser为@all时忽略本参数
|
args1=args1&"""agentid"": 1000006," '企业应用的id，整型。可在应用的设置页面查看
|
|
args1=args1&"""msgtype"": ""textcard"","
|
args1=args1&"""textcard"": {"
|
args1=args1&"""title"": ""已开发票"","
|
If InvoiceURL<>"" Then
|
args1=args1&"""description"": """&InvoiceName&"的发票申请已开票成功，开票金额"&InvoiceMoney&"。请点击以下链接下载电子发票"","
|
args1=args1&"""url"" : """&InvoiceURL&""","
|
args1=args1&"""btntxt"":""点击下载"""
|
Else
|
args1=args1&"""description"": """&InvoiceName&"的发票申请已开票成功，开票金额"&InvoiceMoney
|
If InvoiceOddNo<>"" Then
|
args1=args1&"，物流单号"&InvoiceOddNo
|
End If
|
args1=args1&"。"","
|
args1=args1&"""url"" : ""https://sys.966120.com.cn/m_Invoice.gds?ServiceOrdID="&ServiceOrdID&"&InvoiceID="&InvoiceURL&""","
|
args1=args1&"""btntxt"":""点击查看"""
|
End If
|
args1=args1&"}"
|
|
args1=args1&"}"
|
'Response.Write args1 &"<br>"
|
HTMLCODE= PostBody(appUrl,args1)
|
'Response.Write HTMLCODE &"<br>"
|
End If
|
End If
|
rs.close()
|
|
|
Response.Redirect "/Invoice_List.php?SMT=1&SystemMessageType=3"
|
%>
|
