fix:v3 orderprice update 22 ~7 1.3

wanglizhong

2025-06-24 e40f86fb35ffe1535bb66181fb0ec0c6b10e3fa8

 API/inc/thirdpay.asp

@@ -1,6 +1,6 @@
<%
'第三方支付
Function ThirdPay(PayMoney,ServiceOrdID,DispatchOrdID)
Function ThirdPay(PayType,PayMoney,ServiceOrdID,DispatchOrdID)
'PayType:支付类型
'PayMoney:支付金额
'ServiceOrdID:服务单ID 
@@ -11,10 +11,16 @@
If not rs.Eof then    
      PayQRcodeURL = rs("PayQRcodeURL")
      if PayQRcodeURL<>"" Then
         PayQRcodeURL = PayQRcodeURL&"?PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
         PayQRcodeURL = PayQRcodeURL&"?PayType="&PayType&"&PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
         Response.Redirect PayQRcodeURL
      End If
End If
rs.close()
End Function

Function buildPayURL(PayType,PayMoney,ServiceOrdID,DispatchOrdID,PayQRcodeURL)
      Dim PayURL
      PayURL = PayQRcodeURL&"?PayType="&PayType&"&PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
      buildPayURL = PayURL
End Function
%>