【调度系统】广东民航医疗快线调度系统源代码
wanglizhong
2025-06-24 a51d070d364b0da8e5f8ea9203a6e50c8b4c0af3
API/v3/OrderPrice.gds
@@ -306,18 +306,28 @@
         '   IRPrice=99
         '   IRlimit1=5
         '   IRDtPrice=6
         elseIf StartArea="越秀区" Or StartArea="荔湾区" Or StartArea="海珠区" Or StartArea="天河区" Or StartArea="番禺区" Or StartArea="黄埔区"  Or StartArea="白云区" Then
         elseIf StartArea="越秀区" Or StartArea="荔湾区" Or StartArea="海珠区" Or StartArea="天河区"  Or StartArea="黄埔区"  Or StartArea="白云区" Then
            IRPrice=169
            IRlimit1=5
            IRDtPrice=6
         elseif StartArea="番禺区" Then
            IRPrice=219
            IRlimit1=5
            IRDtPrice=6
         ElseIf StartArea="花都区" Then
            IRPrice=319
            IRPrice=169
            IRlimit1=5
            IRDtPrice=6
         ElseIf StartArea="增城区" Then
            IRPrice=359
         ElseIf StartArea="增城区" And  Isluxury="0" Then
            IRPrice=99
            IRlimit1=5
            IRDtPrice=6
            IsOrdinary="1"
         Elseif StartArea="增城区" And  Isluxury="1" Then
            IRPrice=99
            IRlimit1=5
            IRDtPrice=6
            IsOrdinary="1"
         ElseIf StartArea="从化区" Then
            IRPrice=359
            IRlimit1=5
@@ -380,7 +390,7 @@
            OrderPriceFRM = OrderPriceFRM & "+"&WaitingInt&"*"&IRWaitingCost
            OrderPriceTXT = OrderPriceTXT&"等待费用:"&WaitingInt*IRWaitingCost&"元\n"
         End If
         If ServiceOrdApptDate<>"" Then   '非工作时间服务费用,周一~五的0800-2000 1.3倍
         If ServiceOrdApptDate<>"" Then   '非工作时间服务费用20250624,周一~周五晚上22点后至早上7点整前为1.3倍
            sql="select SpecialRatio from SpecialDates where SpecialDates='"&formatdatetime(ServiceOrdApptDate,2)&"'"
            rs.open sql,objConn,1,1
            if not rs.Eof Then
@@ -388,7 +398,7 @@
               OrderPriceFRM = OrderPriceFRM & OrderPrice*(SpecialRatio-1)
               OrderPriceTXT = OrderPriceTXT&"节假日时间服务费用:"&OrderPrice*(SpecialRatio-1)&"元\n"
               OrderPrice=OrderPrice*SpecialRatio
            ElseIf (hour(ServiceOrdApptDate)<=8 Or hour(ServiceOrdApptDate)>=20)  Then
            ElseIf (hour(ServiceOrdApptDate)>=22 Or hour(ServiceOrdApptDate)<7)  Then
               OrderPriceFRM = OrderPriceFRM & OrderPrice*0.3
               OrderPriceTXT = OrderPriceTXT&"非工作时间服务费用:"&OrderPrice*0.3&"元\n"
               OrderPrice=OrderPrice*1.3