【调度系统】广东民航医疗快线调度系统源代码
wzp
2025-05-06 18c7a44d2e9db3f4a5322389c3ee94468cce4de1
API/v1/index.gds
@@ -19,7 +19,8 @@
UnixTime=trim(Request("UnixTime"))
Call MD5_UnixTime(UnixTime)
'时间戳验证---end
GlobalSign=""
GlobalOriginSign=""
'签名验证----------
ApiSign=trim(Request("Sign"))
if ApiSign="" Then
@@ -77,10 +78,12 @@
         Case Else BuildRequestMysign = ""
       End Select
   End Function
   GlobalOriginSign = sParaSort
   sParaSort=BuildRequestMysign(sParaSort)
   GlobalSign = sParaSort
   If CStr(ApiSign)<>CStr(sParaSort) Then
      errcode=40006
      errmsg="invalid Sign"
      errmsg="invalid Sign,ApiSign:"&ApiSign&",Sign:"&GlobalSign&",OriginSign:"&GlobalOriginSign
      '签名调试
      If is_test="1" And ApiSign="vicgame" Then errmsg="invalid stringA:"&stringA&",Sign:"&sParaSort
   End If
@@ -1159,12 +1162,12 @@
               objConn.Execute sql
            End If
            
            '小程序入口生成订单自动备注(没联系人姓名)
            '小程序入口生成订单自动备注(没联系人姓名),submitOrdValue="1" 表示自动报价的
            If ServiceOrdCoName="" And submitOrdValue="1" Then
               sql="update ServiceOrder set ServiceOrdOperationRemarks='[客户未正式提交需求,可不联系]' where ServiceOrdID="&ServiceOrdID
               objConn.Execute sql
            Elseif ServiceOrdCoName="" Then
               sql="update ServiceOrder set ServiceOrdOperationRemarks='[客户未正式提交需求,可不联系]' where ServiceOrdID="&ServiceOrdID
               sql="update ServiceOrder set ServiceOrdOperationRemarks='[客户未正式提交需求]' where ServiceOrdID="&ServiceOrdID
               objConn.Execute sql
            End If
@@ -1237,7 +1240,7 @@
            End If
            ServiceOrdNo         = ServiceOrdClass& year(ServiceOrd_CC_Time)&Right("0"&month(ServiceOrd_CC_Time),2)&Right("0"&day(ServiceOrd_CC_Time),2) & "-"&Right("00"&ServiceOrdNo,3)
            webJson="{""method"":""ServiceOrder_APP"",""result"":1,""UserID"":"&UserID&",""UserPhone"":"""&UserPhone&""",""ServiceOrdID"":"""&ServiceOrdID&""",""ServiceOrdNo"":"""&ServiceOrdNo&""",""OrdPrice"":"""&ServiceOrdTraTxnPrice&"""}"
            webJson="{""method"":""ServiceOrder_APP"",""result"":1,""UserID"":"&UserID&",""UserPhone"":"""&UserPhone&""",""ServiceOrdID"":"""&ServiceOrdID&""",""ServiceOrdNo"":"""&ServiceOrdNo&""",""OrdPrice"":"""&ServiceOrdTraTxnPrice&""",""Sign"":"""&GlobalSign&"""}"
            '营销小程序数据更新(48小时内有效)
            sql="select top 1 id,iuid,uuid from UserUUID where ToUserID="&UserID&" and DATEDIFF(hh,LoginTime,getdate())<=48 order by LoginTime desc"
@@ -1251,7 +1254,7 @@
            End If
            rs.close()
            
            If (ServiceOrdCoName<>"" Or  submitOrdValue<>"1") And 1=2 Then '新订单第一步不提示(2024.8.5)
            If (ServiceOrdCoName<>"" Or  submitOrdValue<>"1") Then
               If NC_OAIDs<>"" Then
                  If Mid(NC_OAIDs,1,1)="," Then NC_OAIDs=Mid(NC_OAIDs,2)
                  If Right(NC_OAIDs,1)="," Then NC_OAIDs=Mid(NC_OAIDs,1,Len(NC_OAIDs)-1)
@@ -1558,7 +1561,7 @@
            errcode=40503
            errmsg="服务单已取消"
         ElseIf Left(errcode,1)<>"4" Then
            sql="update ServiceOrder set ServiceOrdState=4,ServiceOrdPoints=0,ServiceOrd_AP_ID=0,ServiceOrd_AP_Time=getdate(),ServiceOrdCancelReason=9,ServiceOrdCancelReasonTXT='"&DELRemarks&"' where ServiceOrdID="&ServiceOrdID
            sql="update ServiceOrder set ServiceOrdState=4,ServiceOrdPoints=0,ServiceOrd_AP_ID=0,ServiceOrd_AP_Time=getdate(),ServiceOrdCancelReason=9,ServiceOrdOperationRemarks='',ServiceOrdCancelReasonTXT='"&DELRemarks&"' where ServiceOrdID="&ServiceOrdID
            objConn.Execute sql
            sql="delete from UserPoints where Points_Type=6 and ServiceOrdIDDt="&ServiceOrdID&" and ToUserID="&UserID
            objConn.Execute sql