<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<%Response.Buffer = True
|
Server.ScriptTimeOut=240000
|
'On Error Resume Next
|
%>
|
<!--#include virtual="/inc/chkadmin_for_wx.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<!--#include virtual="/inc/core.asp"-->
|
|
<%
|
objConn.BeginTrans
|
|
PaidMoneyID = SafeRequest(request("PaidMoneyID"))
|
searchTXT = SafeRequest(request("searchTXT"))
|
page = SafeRequest(request("page"))
|
PaidMoney_Check= SafeRequest(request("PaidMoney_Check"))
|
OrdState= SafeRequest(request("OrdState"))
|
OrdClassList= SafeRequest(request("OrdClassList"))
|
OrdType = SafeRequest(request("OrdType"))
|
OrdDateType = SafeRequest(request("OrdDateType"))
|
ServiceOrdID = SafeRequest(request("ServiceOrdID"))
|
DispatchOrdID = SafeRequest(request("DispatchOrdID"))
|
ReturnID = SafeRequest(request("ReturnID"))
|
|
If PaidMoneyID="" Then
|
If ServiceOrdID<>"" Then
|
response.write "serviceOrdID is empty"
|
ElseIf DispatchOrdID<>"" Then
|
response.write "dispatchOrdID is empty"
|
Else
|
response.write "PaidMoneyID is empty"
|
End If
|
End If
|
|
If PaidMoneyID<>"" Then
|
If ServiceOrdID<>"" Then
|
Else
|
response.write "paidmoneyID"&PaidMoneyID&" is not exist"
|
End If
|
End If
|
|
PaidMoneyID_SP = SPLIT(PaidMoneyID,", ")
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
for i=0 to ubound(PaidMoneyID_SP)
|
PaidMoneyID = PaidMoneyID_SP(i)
|
PaidMoneyMono = SafeRequest(request("PaidMoneyMono_"&PaidMoneyID))
|
sql="select PaidMoney_AP_Check,PaidMoney,ServiceOrdIDDt,DispatchOrdIDDt,PaidMoneyOaID,PaidMoneyType from PaidMoney where id="&PaidMoneyID
|
rs.open sql,objConn,1,1
|
if not rs.eof then
|
old_PaidMoney_Check=rs(0)
|
PaidMoney=rs(1)
|
ServiceOrdIDDt=rs(2)
|
DispatchOrdIDDt=rs(3)
|
PaidMoneyOaID=rs(4)
|
PaidMoneyType=rs(5)
|
end If
|
rs.close()
|
If ReturnID<>"m" And (PaidMoneyType=3 Or PaidMoneyType=4) And PaidMoney<0 And PaidMoney>-2000 And PaidMoney_Check="1" Then
|
'禁止PC端审核微信&支付宝退款单(2000元以下)
|
Response.Redirect "/ServiceOrder.gds?ServiceOrdID="&ServiceOrdIDDt&"&SystemMessageType=4&SMT=43"
|
End If
|
If (PaidMoney_Check="1" And old_PaidMoney_Check<>"0") Or (PaidMoney_Check="-1" And old_PaidMoney_Check<>"0") Or (PaidMoney_Check="0" And old_PaidMoney_Check<>"1") Or (PaidMoney_Check<>"1" and PaidMoney_Check<>"0" and PaidMoney_Check<>"-1") Then
|
'审核状态错误
|
Response.Redirect "/PaidMoney_List.gds?searchTXT="&searchTXT&"&page="&page&"&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&SystemMessageType=4&SMT=2"
|
End If
|
If PaidMoneyMono<>"" Then
|
PaidMoneyMonoSql=",PaidMoneyMono='"&PaidMoneyMono&"'"
|
End If
|
sql="update PaidMoney set PaidMoney_AP_Check="&PaidMoney_Check&""&PaidMoneyMonoSql&",PaidMoney_AP_Time=getdate(),PaidMoney_AP_ID="&session("adminID")&" where id="&PaidMoneyID
|
objConn.Execute sql
|
If PaidMoney_Check="-1" And ServiceOrdIDDt<>"" And PaidMoneyOaID<>"14" Then
|
sql="update ServiceOrder set ServiceOrdTraPaidPrice=ServiceOrdTraPaidPrice-("&PaidMoney&") where ServiceOrdID="&ServiceOrdIDDt
|
objConn.Execute sql
|
End If
|
If ServiceOrdIDDt<>"" And DispatchOrdIDDt<>"" Then
|
call PaidMoneyB(ServiceOrdIDDt,DispatchOrdIDDt)
|
End If
|
Next
|
|
If ServiceOrdID<>"" Then
|
ReturnURL="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
|
ElseIf DispatchOrdID<>"" Then
|
ReturnURL="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
|
ElseIf ReturnID="m" Then
|
ReturnURL="/m_PaidMoneyRefund.gds?PaidMoneyID="&PaidMoneyID
|
ElseIf ReturnID="2" Then
|
ReturnURL="/PaidMoney_List2.gds?searchTXT="&searchTXT&"&page="&page&"&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&OrdType="&OrdType
|
Else
|
ReturnURL="/PaidMoney_List.gds?searchTXT="&searchTXT&"&page="&page&"&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&OrdType="&OrdType
|
End If
|
Call OA_Running("费用单审核:"&PaidMoneyID&" Check:"&PaidMoney_Check&" ServiceOrdID:"&ServiceOrdIDDt)
|
rsRollbackTrans(objConn.Errors.count)
|
If PaidMoney_Check="1" Then
|
Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=23"
|
ElseIf PaidMoney_Check="0" Then
|
Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=24"
|
Else
|
Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=25"
|
End If
|
Response.End
|
%>
|
