From a51d070d364b0da8e5f8ea9203a6e50c8b4c0af3 Mon Sep 17 00:00:00 2001
From: wanglizhong <wlz>
Date: 星期三, 09 七月 2025 22:06:34 +0800
Subject: [PATCH] feat(派单模块): 添加敏感信息隐藏功能
---
admin_save_20.asp | 610 ++
API/v1/SendSms.php | 16
word/平台管理端功能说明.md | 672 ++
API/web.config | 74
admin_save_32.gds | 256 +
weixin_pay_QR.asp | 5
word/实验员端功能说明.md | 319 +
admin_save_9.4.gds | 2
admin_save_25.asp | 559 ++
inc/chkadmin_for_wx.gds | 137
word/平台端实验管理功能说明.md | 352 +
AdminUser.gds | 1
admin_save_follower.gds | 58
weixin/JsonPost_1000006.gds | 38
m_DispatchOrder_PaidMoney.gds | 2
API/v1/web.config11 | 4
API/v1/index.gds | 2
m_DispatchOrder.gds | 50
inc/thirdpay.asp | 28
word/实验室端功能说明.md | 425 +
word/销售端功能说明.md | 319 +
API/v1/sms/SmsSend.php | 9
web.config | 26
admin_save_34.gds | 102
admin_save_19.gds | 491 +
API/v1/sms/SmsUtils.php | 2
Report_DispatchDetailed_Data.php | 35
/dev/null | 27
API/inc/thirdpay.asp | 10
admin_save.gds | 2
API/v3/OrderPrice.gds | 4
admin_save_for_wx.gds | 9518 +++++++++++++++++++++++++++++++++++++
admin_save_24.asp | 435 +
admin_save_33.gds | 232
word/客户侧功能说明.md | 279 +
35 files changed, 14,977 insertions(+), 124 deletions(-)
diff --git a/API/inc/thirdpay.asp b/API/inc/thirdpay.asp
index a469e80..2685b08 100644
--- a/API/inc/thirdpay.asp
+++ b/API/inc/thirdpay.asp
@@ -1,6 +1,6 @@
<%
'绗笁鏂规敮浠�
-Function ThirdPay(PayMoney,ServiceOrdID,DispatchOrdID)
+Function ThirdPay(PayType,PayMoney,ServiceOrdID,DispatchOrdID)
'PayType:鏀粯绫诲瀷
'PayMoney:鏀粯閲戦
'ServiceOrdID:鏈嶅姟鍗旾D
@@ -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
%>
\ No newline at end of file
diff --git a/API/v1/SendSms.php b/API/v1/SendSms.php
index 1666f2e..0694d6c 100644
--- a/API/v1/SendSms.php
+++ b/API/v1/SendSms.php
@@ -99,7 +99,17 @@
}
}
-
+function sendPayUrl($phone,$name,$payurl){
+ $payurl="wx.966120.com.cn/?n=".$payurl;
+ $content='銆愬箍涓滄皯鑸尰鐤椼�戠Щ鍔ㄦ敮浠樻寚寮曪細'.$name.'鎮ㄥソ锛佽鐐瑰嚮浠ヤ笅閾炬帴杩涘叆淇℃伅纭鍜屾敮浠樼晫闈€�傛牳瀵规偍鐨勫嚭杞︿俊鎭棤璇悗锛屽彲閫夋嫨鏀粯瀹濇垨鑰呭井淇℃敮浠橈細' .$payurl;
+ // echo $content;
+ require './sms/SmsSend.php';
+ $sms = new SmsSend('gdmhhy', 'lLsZyz3YVYKQ');
+ $result = $sms->sendSmsOne([['phone' => $phone, 'content' => $content]], '');
+ // print_r($result);
+ return $result;
+
+}
// 璋冪敤绀轰緥锛�
set_time_limit(0);
header('Content-Type: text/plain; charset=utf-8');
@@ -115,6 +125,10 @@
$name=empty($_REQUEST['name'])!=false ? "" : addslashes($_REQUEST['name']); //鍐呭--濮撳悕
$payurl=empty($_REQUEST['payurl'])!=false ? "" : addslashes($_REQUEST['payurl']); //鍐呭--鐭摼鎺ラ獙璇佺爜
$codejson=json_encode(array("name"=>$name,"payurl"=>$payurl), JSON_UNESCAPED_UNICODE);
+ $result=sendPayUrl($Phone,$name,$payurl);
+ echo json_encode($result);
+ return;
+
}elseif ($lateCode=="SMS_172011256" or $lateCode=="SMS_219742082") {
//鍑鸿溅鐭俊
$UserName=empty($_REQUEST['UserName'])!=false ? "" : addslashes($_REQUEST['UserName']); //鍐呭--璐熻矗浜�
diff --git a/API/v1/index.gds b/API/v1/index.gds
index 7432fa5..217888c 100644
--- a/API/v1/index.gds
+++ b/API/v1/index.gds
@@ -14,7 +14,7 @@
errcode=40001
errmsg="invalid method"
end If
-
+Response.write trim(Request("ApptDate"))
'鏃堕棿鎴抽獙璇�----------
UnixTime=trim(Request("UnixTime"))
Call MD5_UnixTime(UnixTime)
diff --git a/API/v1/sms/SmsSend.php b/API/v1/sms/SmsSend.php
index 7268c11..2d8124c 100644
--- a/API/v1/sms/SmsSend.php
+++ b/API/v1/sms/SmsSend.php
@@ -6,7 +6,7 @@
private $password = "";
private $address = "";
- public function __construct($userName, $password, $address="http://sms.izjun.com:8001/sms") {
+ public function __construct($userName, $password, $address="sms.izjun.com:8001") {
$this->userName = $userName;
$this->password = $password;
$this->address = $address;
@@ -42,14 +42,17 @@
$sign = SmsUtils::generateSign($this->userName, $this->password, $timestamp);
// 鑾峰彇url
$url = "http://" . $this->address . "/sms/api/sendMessageOne";
+ // print_r($url);
+
// 璇锋眰鏁版嵁
$data = array(
"userName" => $this->userName,
"timestamp" => $timestamp,
"sign" => $sign,
- "messageList" => $messageList,
- "sendTime" => $sendTime,
+ "messageList" => $messageList
+
);
+ // print_r($data);
// 鍙戦�佽姹�
return SmsUtils::send($url, $data);
diff --git a/API/v1/sms/SmsUtils.php b/API/v1/sms/SmsUtils.php
index afcebce..70b83ba 100644
--- a/API/v1/sms/SmsUtils.php
+++ b/API/v1/sms/SmsUtils.php
@@ -14,6 +14,8 @@
// post璇锋眰
public static function send($url, $data) {
+ // print_r($url);
+ // print_r($data);
// 瀹氫箟璇锋眰閫夐」
$options = [
'http' => [
diff --git a/API/v1/web.config111 b/API/v1/web.config11
similarity index 70%
rename from API/v1/web.config111
rename to API/v1/web.config11
index b6458c3..d603664 100644
--- a/API/v1/web.config111
+++ b/API/v1/web.config11
@@ -15,8 +15,8 @@
<handlers>
<remove name="php" />
<remove name="FastCGI" />
- <add name="gds" path="*.gds" verb="*" modules="IsapiModule" scriptProcessor="C:\Windows\System32\inetsrv\asp.dll" resourceType="File" preCondition="bitness64" />
- <add name="FastCGI" path="*.php" verb="*" modules="FastCgiModule" scriptProcessor="D:\project\鎬ユ晳杞繍\code\php\php-cgi.exe" resourceType="File" requireAccess="Script" />
+
+
<add name="php" path="*.php" verb="*" modules="FastCgiModule" scriptProcessor="C:\php\php-cgi.exe" resourceType="File" requireAccess="Script" />
</handlers>
<httpErrors errorMode="DetailedLocalOnly" />
diff --git a/API/v3/OrderPrice.gds b/API/v3/OrderPrice.gds
index e1f8e90..b832f77 100644
--- a/API/v3/OrderPrice.gds
+++ b/API/v3/OrderPrice.gds
@@ -390,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
@@ -398,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
diff --git a/API/web.config b/API/web.config
index 3fa2e59..0756460 100644
--- a/API/web.config
+++ b/API/web.config
@@ -1,29 +1,45 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<configuration>
- <system.webServer>
- <defaultDocument>
- <files>
- <remove value="Default.htm" />
- <remove value="Default.asp" />
- <remove value="index.htm" />
- <remove value="index.html" />
- <remove value="iisstart.htm" />
- <remove value="default.aspx" />
- <add value="index.php" />
- <add value="index.asp" />
- <add value="index.gds" />
- </files>
- </defaultDocument>
- <httpErrors errorMode="Detailed" />
- <handlers>
- <add name="gds" path="*.gds" verb="GET,HEAD,POST" modules="IsapiModule" scriptProcessor="%windir%\system32\inetsrv\asp.dll" resourceType="File" requireAccess="Script" preCondition="bitness64" />
- </handlers>
- <directoryBrowse enabled="false" />
- <httpProtocol>
- <customHeaders>
- <add name="Access-Control-Allow-Headers" value="Content-Type, api_key, Authorization" />
- <add name="Access-Control-Allow-Origin" value="*" />
- </customHeaders>
- </httpProtocol>
- </system.webServer>
-</configuration>
+<?xml version="1.0" encoding="UTF-8"?>
+<configuration>
+ <system.web>
+ <compilation debug="true" targetFramework="4.7.2" />
+ <httpRuntime targetFramework="4.7.2" />
+ <authentication mode="Windows" />
+ <identity impersonate="true" />
+ </system.web>
+ <system.webServer>
+ <fastCgi>
+ <application fullPath="D:\project\鎬ユ晳杞繍\code\php\php-cgi.exe" monitorChangesTo="php.ini" activityTimeout="600" requestTimeout="600" instanceMaxRequests="10000">
+ <environmentVariables>
+ <environmentVariable name="PHP_FCGI_MAX_REQUESTS" value="10000" />
+ <environmentVariable name="PHPRC" value="D:\project\鎬ユ晳杞繍\code\php" />
+ </environmentVariables>
+ </application>
+ </fastCgi>
+ <defaultDocument>
+ <files>
+ <remove value="Default.htm" />
+ <remove value="Default.asp" />
+ <remove value="index.htm" />
+ <remove value="index.html" />
+ <remove value="iisstart.htm" />
+ <remove value="default.aspx" />
+ <add value="index.php" />
+ <add value="index.asp" />
+ <add value="index.gds" />
+ </files>
+ </defaultDocument>
+ <httpErrors errorMode="Detailed" />
+ <handlers>
+ <remove name="php" />
+ <add name="php" path="*.php" verb="*" modules="FastCgiModule" scriptProcessor="D:\project\鎬ユ晳杞繍\code\php\php-cgi.exe" resourceType="File" requireAccess="Script" />
+ <add name="gds" path="*.gds" verb="GET,HEAD,POST" modules="IsapiModule" scriptProcessor="%windir%\system32\inetsrv\asp.dll" resourceType="File" requireAccess="Script" preCondition="bitness64" />
+ </handlers>
+ <directoryBrowse enabled="false" />
+ <httpProtocol>
+ <customHeaders>
+ <add name="Access-Control-Allow-Headers" value="Content-Type, api_key, Authorization" />
+ <add name="Access-Control-Allow-Origin" value="*" />
+ </customHeaders>
+ </httpProtocol>
+ </system.webServer>
+</configuration>
diff --git a/AdminUser.gds b/AdminUser.gds
index 8dc571b..dd8c9ad 100644
--- a/AdminUser.gds
+++ b/AdminUser.gds
@@ -260,6 +260,7 @@
</div>
<div class="input">
<%sql="select OA_CompetencyID from OA_Competency where OA_CompetencyUserID="&OA_UserID
+ response.write sql
rs.open sql,objConn,1,1
do while not rs.Eof
OA_CompetencyID = rs(0)
diff --git a/Report_DispatchDetailed_Data.php b/Report_DispatchDetailed_Data.php
index aa4a10a..3d2c514 100644
--- a/Report_DispatchDetailed_Data.php
+++ b/Report_DispatchDetailed_Data.php
@@ -353,6 +353,7 @@
while ($rsEntourage = sqlsrv_fetch_array($dataEntourage)) {
$entourageList[$i]["Follower"] = $rsEntourage['PersonName'];
$entourageList[$i]["FollowerRatio"] = $rsEntourage['CommissionRatio'];
+ $i++;
}
$staffList['entourage'] = $entourageList;
}
@@ -376,10 +377,14 @@
$sqlPage="" ;
}
$sql = "select * $Additional_sql from ($Result_sql) sqlData ".$sqlPage." order by sqlData.n" ;
-// echo $sql;exit;
+// echo $sql;exit;
+
+// 鍒濆鍖栧彉閲忥紝纭繚鍦ㄦ墍鏈夋儏鍐典笅閮借瀹氫箟
+$FormArrayX = 0;
+$FormArray = array();
+
$data = sqlsrv_query($conn,$sql);
if($data == true){
- $FormArray=array();
//琛ㄥご
$FormArray[0]=array("搴忓彿","鏈嶅姟鍗曞彿","璋冨害鍗曞彿","绾у埆","鍒嗗尯","棰勭害绫诲瀷","璋冨害鍗曠姸鎬�","鏃ユ湡","鏃堕棿","鐝","鑱旂郴浜�","鑱旂郴鐢佃瘽","鎮ｈ�呭鍚�","閿�鍞�","浠嬬粛浜�","瀹㈡湇","璋冨害","鏉ユ簮","鏄惁浼佸井鎴愪氦","涓昏浼佸井瀹㈡湇","鍏朵粬浼佸井瀹㈡湇","鎯呮櫙缂栧彿","浼佸井缁╂晥","鎬婚儴涓嬪彂","鏀彺鎬婚儴","鎵垮寘缁�","鍖哄煙","绫诲瀷","鍑哄彂鐪佷唤","鍑哄彂甯�","鍑哄彂鍖�","杞嚭鍖婚櫌","杞嚭绉戝","杞嚭搴婁綅","杞叆鐪佷唤","杞叆甯�","杞叆鍖�","杞叆鍖婚櫌","杞叆绉戝","鎬绘垚浜や环","绯荤粺鎶ヤ环鍙傝��","绛夊緟璐�","鎷呮灦璐�","灞呭ICU璐�","璺濈(鍏噷)","鏀粯鏂瑰紡","浣跨敤鍛煎惛鏈�","杞︾墝","鍑鸿溅鎴愬憳","鍑鸿溅宀椾綅","鍖绘姢鍑鸿溅鏃堕棿(鍒嗛挓)","寮�鍗曚汉","寮�鍗曚汉鎻愭垚姣斾緥","璺熷崟浜�","璺熷崟浜烘彁鎴愭瘮渚�","璺熷崟浜�","璺熷崟浜烘彁鎴愭瘮渚�","璺熷崟浜�","璺熷崟浜烘彁鎴愭瘮渚�","璺熷崟浜�","璺熷崟浜烘彁鎴愭瘮渚�");
if ($is_CSV==1){array_push($FormArray[0],"浠诲姟澶囨敞");}
@@ -533,22 +538,24 @@
}
if (!empty($rs2['entourage'])) {
//$rs2['entourage']鐨勯暱搴�
- $count=count($rs2['entourage']);
+
+ $FormArray[$i][53]='--';
+ $FormArray[$i][54]='';
+ $FormArray[$i][55]='--';
+ $FormArray[$i][56]='';
+ $FormArray[$i][57]='--';
+ $FormArray[$i][58]='';
+ $FormArray[$i][59]='--';
+ $FormArray[$i][60]='';
$j=0;
foreach ($rs2['entourage'] as $key => $value) {
- $FormArray[$i][53+$j]=$value['Follower'];
- $FormArray[$i][54+$j]=$value['FollowerRatio'];
- $j++;
+ $FormArray[$i][53+$j*2]=$value['Follower'];
+ $FormArray[$i][54+$j*2]=$value['FollowerRatio'];
+ $j++;
}
- if($count<4){
- //琛ヨ冻4涓�
- while($j<4){
- $FormArray[$i][53+$j*2]='--';
- $FormArray[$i][54+$j*2]='';
- $j++;
- }
- }
+
+
}else{
$FormArray[$i][53]='--';
$FormArray[$i][54]='';
diff --git a/admin_save.gds b/admin_save.gds
index a244810..e821f28 100644
--- a/admin_save.gds
+++ b/admin_save.gds
@@ -3301,7 +3301,7 @@
</script><%
Response.End
End If
- If DispatchOrdClass="SA" And CInt(old_TraTxnPrice)>CInt(TraPaidPrice) And (DispatchOrdState="8") Then
+ If DispatchOrdClass="SA" And CLng(old_TraTxnPrice)>CLng(TraPaidPrice) And (DispatchOrdState="8") Then
%><script language=javascript>
alert('杩斿洖鍓嶏紝璇风‘璁ゆ敹娆炬祦姘村拰鎴愪氦浠蜂竴鑷�');
window.location.href="/m_DispatchOrder.gds?DispatchOrdID=<%=DispatchOrdID%>&EndMileage=<%=EndMileage%>"
diff --git a/admin_save_19.gds b/admin_save_19.gds
new file mode 100644
index 0000000..8080f1e
--- /dev/null
+++ b/admin_save_19.gds
@@ -0,0 +1,491 @@
+
+<%@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"-->
+<!--#include virtual="admin_save_follower.gds"-->
+<%
+
+objConn.BeginTrans
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+ServiceOrdClass = SafeRequest(Request.form("ServiceOrdClass")) '鍗曟嵁绫诲瀷
+ServiceOrdAreaType = SafeRequest(Request.form("ServiceOrdAreaType")) '鏈嶅姟鍗曟墽琛屽尯鍩�
+ServiceOrdType = SafeRequest(Request.form("ServiceOrdType")) '鏈嶅姟鍗曟墽琛岀被鍨�
+ServiceOrdState = SafeRequest(Request.form("ServiceOrdState")) '鏈嶅姟鍗曠姸鎬�
+ServiceOrdStartDate = SafeRequest(Request.form("ServiceOrdStartDate")) '寮�鍗曟棩鏈�
+ServiceOrdApptDate = SafeRequest(Request.form("ServiceOrdApptDate")) '棰勭害鏃ユ湡
+ServiceOrdCoName = SafeRequest(Request.form("ServiceOrdCoName")) '鑱旂郴浜哄鍚�
+ServiceOrdCoPhone = StrTrim(SafeRequest(Request.form("ServiceOrdCoPhone"))) '鑱旂郴浜虹數璇�
+ServiceOrdCoTies = SafeRequest(Request.form("ServiceOrdCoTies")) '鑱旂郴浜轰笌鎮ｈ�呭叧绯�
+ServiceOrdPtName = SafeRequest(Request.form("ServiceOrdPtName")) '鎮ｈ�呭鍚�
+ServiceOrdPtAge = SafeRequest(Request.form("ServiceOrdPtAge")) '鎮ｈ�呭勾榫�
+ServiceOrdPtKG = SafeRequest(Request.form("ServiceOrdPtKG")) '鎮ｈ�呬綋閲�
+ServiceOrdPtSex = SafeRequest(Request.form("ServiceOrdPtSex")) '鎮ｈ�呮�у埆
+ServiceOrdPtNat = SafeRequest(Request.form("ServiceOrdPtNat")) '鎮ｈ�呭浗绫�
+ServiceOrdPtIDCard = SafeRequest(Request.form("ServiceOrdPtIDCard")) '鎮ｈ�呰韩浠借瘉
+ServiceOrdPtOutHospID_New=SafeRequest(Request.form("ServiceOrdPtOutHospID")) '杞嚭鍖婚櫌ID
+ServiceOrdPtOutHosp = SafeRequest(Request.form("ServiceOrdPtOutHosp")) '杞嚭鍖婚櫌
+ServiceOrdPtInHospID_New=SafeRequest(Request.form("ServiceOrdPtInHospID")) '杞叆鍖婚櫌ID
+ServiceOrdPtInHosp = SafeRequest(Request.form("ServiceOrdPtInHosp")) '杞叆鍖婚櫌
+ServiceOrdPtServices = SafeRequest(Request.form("ServiceOrdPtServices")) '杞嚭绉戝
+ServiceOrdPtServicesID = SafeRequest(Request.form("ServiceOrdPtServicesID")) '杞嚭绉戝ID
+ServiceOrdPtInServices = SafeRequest(Request.form("ServiceOrdPtInServices")) '杞叆绉戝
+ServiceOrdPtInServicesID= SafeRequest(Request.form("ServiceOrdPtInServicesID")) '杞叆绉戝ID
+ServiceOrdPtDiagnosis = SafeRequest(Request.form("ServiceOrdPtDiagnosis")) '璇婃柇
+ServiceOrdPtCondition = SafeRequest(Request.form("ServiceOrdPtCondition")) '鐥呮儏鎻忚堪
+ServiceOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '鍖绘姢鍙稿娉�
+ServiceOrdPtDoctor = SafeRequest(Request.form("ServiceOrdPtDoctor")) '鎮ｈ�呭尰鐢�
+ServiceOrdPtDoctorPhone = SafeRequest(Request.form("ServiceOrdPtDoctorPhone")) '鎮ｈ�呭尰鐢熺數璇�
+ServiceOrdTraProvince = SafeRequest(Request.form("province")) '鍑哄彂鍦扮渷浠�
+ServiceOrdTraCity = SafeRequest(Request.form("city")) '鍑哄彂鍦板煄甯�
+ServiceOrdTraStreet = SafeRequest(Request.form("ServiceOrdTraStreet")) '鍑哄彂鍦�
+ServiceOrdTraStreetCoo = SafeRequest(Request.form("ServiceOrdTraStreetCoo")) '鍑哄彂鍦板潗鏍�
+ServiceOrdTraEnd = SafeRequest(Request.form("ServiceOrdTraEnd")) '鐩殑鍦�
+ServiceOrdTraEndCoo = SafeRequest(Request.form("ServiceOrdTraEndCoo")) '鐩殑鍦板潗鏍�
+ServiceOrdTraVia = SafeRequest(Request.form("ServiceOrdTraVia")) '閫旂粡鍦�
+ServiceOrdViaDistance = SafeRequest(Request.form("ServiceOrdViaDistance")) '涓�旇窛绂�(鍏噷)
+ServiceOrdTraDistance = SafeRequest(Request.form("ServiceOrdTraDistance")) '璺濈(鍏噷)
+ServiceOrdTraDuration = SafeRequest(Request.form("ServiceOrdTraDuration")) '棰勮琛岀▼鏃堕棿
+ServiceOrdTraUnitPrice = SafeRequest(Request.form("ServiceOrdTraUnitPrice")) '鍗曚环/鍏噷
+ServiceOrdTraOfferPrice = SafeRequest(Request.form("ServiceOrdTraOfferPrice")) '鏍囧噯鎶ヤ环
+ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '鎴愪氦浠�
+ServiceOrdTraPrePayment = SafeRequest(Request.form("ServiceOrdTraPrePayment")) '闇�棰勪粯娆�
+SettlementPrice = SafeRequest(Request.form("SettlementPrice")) '缁撶畻浠�
+ServiceOrdTraPriceReason= SafeRequest(Request.form("ServiceOrdTraPriceReason")) '宸环鍘熷洜
+TEL_Phone = SafeRequest(Request.form("Phone")) '鏉ョ數鐢佃瘽
+TEL_Time = SafeRequest(Request.form("TEL_Time")) '鏉ョ數鏃堕棿
+TEL_Remarks = SafeRequest(Request.form("TEL_Remarks")) '鏉ョ數澶囨敞
+TransferModeID = SafeRequest(Request.form("TransferModeID")) '杞繍鏂瑰紡
+ServiceOrdVIP = SafeRequest(Request.form("ServiceOrdVIP")) 'VIP瀹㈡埛
+ServiceOrd_CC_ID = SafeRequest(Request.form("ServiceOrd_CC_ID")) '瀹㈡湇浜哄憳ID
+ServiceOrd_Sale_ID = SafeRequest(Request.form("ServiceOrd_Sale_ID")) '閿�鍞汉鍛業D
+ServiceOrdIntroducer = SafeRequest(Request.form("ServiceOrdIntroducer")) '浠嬬粛浜�
+ServiceOrd_work_ID = SafeRequest(Request.form("ServiceOrd_work_ID")) '涓昏浼佸井瀹㈡湇ID
+ServiceOrd_work_IDs = SafeRequest(Request.form("ServiceOrd_work_IDs")) '鍏朵粬浼佸井瀹㈡湇ID
+ServiceOrd_work_is = SafeRequest(request.form("ServiceOrd_work_is")) '鏄惁浼佸井鎴愪氦
+CommissionScenarioID = SafeRequest(request.form("CommissionScenarioID")) '浼佸井缁╂晥鏂规
+ServiceOrdOperationRemarks = SafeRequest(Request.form("ServiceOrdOperationRemarks"))'鎿嶄綔澶囨敞
+ServiceOrdEstimatedOrderDate= SafeRequest(Request.form("ServiceOrdEstimatedOrderDate"))'棰勮娲惧崟鏃堕棿
+ServiceOrdSource = SafeRequest(Request.form("ServiceOrdSource")) '璁㈠崟鏉ユ簮
+OrderLevel = SafeRequest(Request.form("OrderLevel")) '鏌ョ湅绛夌骇
+ServiceOrdDepartureType = SafeRequest(Request.form("ServiceOrdDepartureType")) '棰勭害绫诲瀷
+ConditionLevel = SafeRequest(Request.form("ConditionLevel")) '鐥呴噸绾у埆
+DirectionType = SafeRequest(Request.form("DirectionType")) '杞繍鍘诲悜
+ServiceOrd_m = SafeRequest(Request.form("ServiceOrd_m")) '鏉ユ簮鍏ュ彛
+FromHQ2_is = SafeRequest(Request.form("FromHQ2_is")) '骞垮窞鎬婚儴鎺ㄩ�佷换鍔℃爣璁�
+OrderPrice_Auto = SafeRequest(Request.form("OrderPrice_Auto")) '璁㈠崟鑷姩鎶ヤ环鍙傝�冨��
+
+
+
+
+Call RequestForm(Origin)
+session("Origin")=Origin
+'response.write Origin
+
+If ServiceOrdTraUnitPrice="" Then ServiceOrdTraUnitPrice=0
+If ServiceOrdTraOfferPrice="" Then ServiceOrdTraOfferPrice=0
+If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
+If ServiceOrdTraPrePayment="" Then ServiceOrdTraPrePayment=0
+If SettlementPrice="" Then SettlementPrice=0
+If InStr(ServiceOrdTraTxnPrice,",")>0 Then ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","")
+If InStr(ServiceOrdTraOfferPrice,",")>0 Then ServiceOrdTraOfferPrice=Replace(ServiceOrdTraOfferPrice,",","")
+If InStr(ServiceOrdTraPrePayment,",")>0 Then ServiceOrdTraPrePayment=Replace(ServiceOrdTraPrePayment,",","")
+If InStr(SettlementPrice,",")>0 Then SettlementPrice=Replace(SettlementPrice,",","")
+If ServiceOrdState="" Then ServiceOrdState=1
+'If InStr(ServiceOrdTraDistance,"鍏噷")>0 Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance,"鍏噷","")
+'If InStr(ServiceOrdTraDistance,"绫�")>0 Then ServiceOrdTraDistance=CInt(Replace(ServiceOrdTraDistance,"绫�",""))/1000
+If ServiceOrdViaDistance="" Or OrderLevel<>"2" Then ServiceOrdViaDistance=0
+If ServiceOrdTraDistance="" Then ServiceOrdTraDistance=0
+If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","")
+If ServiceOrd_Sale_ID="" Then ServiceOrd_Sale_ID="null"
+If ServiceOrd_work_ID="" Then ServiceOrd_work_ID="null"
+If ServiceOrd_work_is="" Then ServiceOrd_work_is=0
+If CommissionScenarioID="" Then CommissionScenarioID=0
+If ServiceOrd_CC_ID="" Then ServiceOrd_CC_ID=session("adminID")
+If ServiceOrdPtOutHospID_New="" Then ServiceOrdPtOutHospID_New=0
+If ServiceOrdPtInHospID_New="" Then ServiceOrdPtInHospID_New=0
+If ServiceOrdVIP="" Then ServiceOrdVIP=0
+If ServiceOrdSource="" Then ServiceOrdSource=0
+If ServiceOrdPtServicesID="" Then ServiceOrdPtServicesID=0
+If ServiceOrdPtInServicesID="" Then ServiceOrdPtInServicesID=0
+If OrderLevel="" Then OrderLevel=0
+If ServiceOrdDepartureType="" Then ServiceOrdDepartureType=1
+If ConditionLevel="" Then ConditionLevel=0
+If DirectionType="" Then DirectionType=0
+If FromHQ2_is="" Then FromHQ2_is=0
+If OrderPrice_Auto="" or OrderPrice_Auto="undefined" Then OrderPrice_Auto="0"
+RedirectURL="ServiceOrder.gds"
+
+'鏁版嵁涓嶅畬鏁�
+If (ServiceOrdState="1" Or ServiceOrdState="4") And (ServiceOrdCoPhone="" Or ServiceOrdClass="" Or ServiceOrdTraDistance="" or ServiceOrdType="" Or ServiceOrdAreaType="") Then
+ response.write "data not complete"
+ response.end
+end if
+If ServiceOrdState="2" And ServiceOrd_m<>"1" Then
+ error=","
+ If ServiceOrdAreaType="" Then error=error&"ServiceOrdAreaType,"
+ If ServiceOrdType="" Then error=error&"ServiceOrdType,"
+ If ServiceOrdCoPhone="" Or ServiceOrdClass="" Then error=error&"ServiceOrdCoPhone,"
+ If ServiceOrdTraDistance="" Then error=error&"ServiceOrdTraDistance,"
+ If ServiceOrdCoName="" Then error=error&"ServiceOrdCoName,"
+ 'If ServiceOrdApptDate="" Then error=error&"ServiceOrdApptDate,"
+ If ServiceOrdPtName="" Then error=error&"ServiceOrdPtName,"
+ 'If ServiceOrdPtOutHosp="" Then error=error&"ServiceOrdPtOutHosp,"
+ If ServiceOrdTraStreet="" Then error=error&"ServiceOrdTraStreet,"
+ If ServiceOrdTraEnd="" Then error=error&"ServiceOrdTraEnd,"
+ If ServiceOrdTraTxnPrice="" Then error=error&"ServiceOrdTraTxnPrice,"
+ 'If ServiceOrd_Sale_ID="" Then error=error&"ServiceOrd_Sale_Name,"
+ 'If ServiceOrdIntroducer="" Then error=error&"ServiceOrdIntroducer,"
+ If ServiceOrdSource="0" Then error=error&"ServiceOrdSource,"
+ 'If ConditionLevel="0" Then error=error&"ConditionLevel,"
+ 'If DirectionType="0" Then error=error&"DirectionType,"
+ If ServiceOrdPtServicesID="0" Then error=error&"ServiceOrdPtServicesID,"
+ If ServiceOrdPtInServicesID="0" Then error=error&"ServiceOrdPtInServicesID,"
+
+ RedirectURL="ServiceOrder.gds"
+ If Len(error)>2 Then
+ response.write "data error "&error
+ response.end
+ end if
+
+ElseIf ServiceOrd_m="1" Then
+ '鎵嬫満绔粯璁ゅ��
+ If ServiceOrdCoPhone="" Then ServiceOrdCoPhone=""
+ If ServiceOrdTraProvince="" Then ServiceOrdTraProvince=""
+ If ServiceOrdTraCity="" Then ServiceOrdTraCity=""
+ If ServiceOrdTraStreet="" And ServiceOrdClass<>"" Then
+ sql="select vMono from dictionary where vType=1 and vtitle='OrderClass' and vOrder2='"&ServiceOrdClass&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdTraStreet=rs(0)
+ End If
+ rs.close()
+ End If
+ If ServiceOrdTraVia="" Then ServiceOrdTraVia=ServiceOrdPtOutHosp
+ If ServiceOrdTraEnd="" Then ServiceOrdTraEnd=ServiceOrdPtInHosp
+
+ error=","
+ If ServiceOrdCoName="" Then error=error&"ServiceOrdCoName,"
+ If ServiceOrdPtName="" Then error=error&"ServiceOrdPtName,"
+ 'If ConditionLevel="0" Then error=error&"ConditionLevel,"
+ 'If DirectionType="0" Then error=error&"DirectionType,"
+ If ServiceOrdPtOutHospID_New="" Then error=error&"ServiceOrdPtOutHospID,"
+ If ServiceOrdPtInHospID_New="" Then error=error&"ServiceOrdPtInHospID,"
+ RedirectURL="m_ServiceOrder.gds"
+ If Len(error)>2 Then
+ response.write "error:"&error
+ end if
+
+End if
+
+
+'楠岃瘉鏈夋病閲嶅鎻愪氦
+sql="select ServiceOrdID from ServiceOrder where ServiceOrdCoPhone='"&ServiceOrdCoPhone&"' and ServiceOrdStartDate='"&ServiceOrdStartDate&"'"
+rs.open sql,objConn,1,1
+if not rs.eof Then
+ session("Origin")=""
+ response.write "repeat submit"
+ response.end
+End if
+rs.close()
+
+'娉ㄥ唽&鏌ヨ鐢ㄦ埛ID
+If ServiceOrdCoPhone<>"" And Len(ServiceOrdCoPhone)=11 And Left(ServiceOrdCoPhone,1)="1" And IsNumeric(ServiceOrdCoPhone) Then
+ UserPhone=ServiceOrdCoPhone
+ UserName=ServiceOrdCoName
+ Call User_Login(UserID,UserPhone,wxOriginalID,wxOpenid,wxUnionID,UserSource,UserName)
+Else
+ UserID=0
+End If
+
+'閲嶅鎵嬫満鍙风爜姣忔湀涓嶈兘瓒呰繃5涓鍗�,鍙栨秷涓嶇畻
+sql="select count(ServiceOrdID) from ServiceOrder where ServiceOrdCoPhone='"&ServiceOrdCoPhone&"' and ServiceOrdState<>4 and ServiceOrd_CC_Time between DATEADD(mm,DATEDIFF(mm,0,getdate()),0) and dateadd(ms,-3,DATEADD(mm,DATEDIFF(m,0,getdate())+1,0))"
+rs.open sql,objConn,1,1
+if rs(0)>5 Then
+ 'Response.Redirect "/"&RedirectURL&"?Phone="&TEL_Phone&"&NEWOrder="&NEWOrder&"&SystemMessageType=4&SMT=12"
+End if
+rs.close()
+
+'鏌ユ壘鍖婚櫌ID
+If ServiceOrdPtOutHosp<>"" Then
+ If InStr(ServiceOrdPtOutHosp,"|")>0 Then ServiceOrdPtOutHosp=Mid(ServiceOrdPtOutHosp,1,InStr(ServiceOrdPtOutHosp,"|")-1)
+ sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtOutHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID=rs(0)
+ Else
+ rs.close()
+ sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID=rs(0)+1
+ Else
+ ServiceOrdPtOutHospID=1
+ End if
+ sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtOutHospID&",'"&ServiceOrdPtOutHosp&"','HospName',1,'鍖婚櫌鍚嶇О')"
+ objConn.Execute sql
+ End If
+ rs.close()
+ If ServiceOrdPtOutHospID_New="0" Then
+ sql="select HospID from HospData where HospState=1 and HospName='"&ServiceOrdPtOutHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID_New=rs(0)
+ End If
+ rs.close()
+ End If
+Else
+ ServiceOrdPtOutHospID=0
+End If
+If ServiceOrdPtInHosp<>"" then
+ If InStr(ServiceOrdPtInHosp,"|")>0 Then ServiceOrdPtInHosp=Mid(ServiceOrdPtInHosp,1,InStr(ServiceOrdPtInHosp,"|")-1)
+ sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtInHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID=rs(0)
+ Else
+ rs.close()
+ sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID=rs(0)+1
+ Else
+ ServiceOrdPtInHospID=1
+ End if
+ sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtInHospID&",'"&ServiceOrdPtInHosp&"','HospName',1,'鍖婚櫌鍚嶇О')"
+ objConn.Execute sql
+ End If
+ rs.close()
+ If ServiceOrdPtInHospID_New="0" Then
+ sql="select HospID from HospData where HospState=1 and HospName='"&ServiceOrdPtInHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID_New=rs(0)
+ End If
+ rs.close()
+ End If
+Else
+ ServiceOrdPtInHospID=0
+End If
+
+'鏌ユ壘鍚堜綔鍗曚綅ID
+If ServiceOrdIntroducer<>"" And IsNumeric(ServiceOrdIntroducer) Then
+ sql="select IntroducerID,IntroducerName,IntroducerUnitID from IntroducerData where IntroducerUnitID<>'' and IntroducerID="&ServiceOrdIntroducer
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdUnitID=rs("IntroducerUnitID")
+ Else
+ ServiceOrdUnitID=0
+ End If
+ rs.close()
+Else
+ ServiceOrdUnitID=0
+End If
+
+'鏂版湇鍔″崟搴忓彿
+sql="select top 1 ServiceOrdNo from ServiceOrder where CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),GETDATE(),120) and ServiceOrdClass='"&ServiceOrdClass&"' order by ServiceOrdNo desc"
+rs.open sql,objConn,1,1
+If not rs.Eof Then
+ ServiceOrdNo=rs(0)+1
+Else
+ ServiceOrdNo=1
+End if
+rs.close()
+
+'鍐欏叆鏂版湇鍔″崟
+sql="insert into ServiceOrder (ServiceOrdUserID,ServiceOrdClass,ServiceOrdAreaType,ServiceOrdType,ServiceOrdState,ServiceOrdStartDate,ServiceOrdApptDate,ServiceOrdCoName,ServiceOrdCoPhone,ServiceOrdCoTies,ServiceOrdPtName,ServiceOrdPtAge,ServiceOrdPtKG,ServiceOrdPtSex,ServiceOrdPtNat,ServiceOrdPtIDCard,ServiceOrdPtOutHospID,ServiceOrdPtOutHosp,ServiceOrdPtInHospID,ServiceOrdPtInHosp,ServiceOrdPtServices,ServiceOrdPtServicesID,ServiceOrdPtInServices,ServiceOrdPtInServicesID,ServiceOrdPtDiagnosis,ServiceOrdPtCondition,ServiceOrdTaskRemarks,ServiceOrdPtDoctor,ServiceOrdPtDoctorPhone,ServiceOrdTraProvince,ServiceOrdTraCity,ServiceOrdTraStreet,ServiceOrdTraStreetCoo,ServiceOrdTraEnd,ServiceOrdTraEndCoo,ServiceOrdTraVia,ServiceOrdViaDistance,ServiceOrdTraDistance,ServiceOrdTraDuration,ServiceOrdTraUnitPrice,ServiceOrdTraOfferPrice,ServiceOrdTraTxnPrice,ServiceOrdTraPrePayment,SettlementPrice,ServiceOrdTraPriceReason,ServiceOrd_CC_ID,ServiceOrd_CC_Time,ServiceOrdNo,ServiceOrd_Sale_ID,ServiceOrd_work_ID,ServiceOrd_work_IDs,ServiceOrd_work_is,CommissionScenarioID,ServiceOrdIntroducer,ServiceOrdUnitID,ServiceOrdVIP,ServiceOrdOperationRemarks,ServiceOrdEstimatedOrderDate,ServiceOrdSource,OrderLevel,ServiceOrdDepartureType,ConditionLevel,DirectionType,FromHQ2_is,OrderPrice_Auto) values ("&UserID&",'"&ServiceOrdClass&"',"&ServiceOrdAreaType&","&ServiceOrdType&","&ServiceOrdState&",'"&ServiceOrdStartDate&"','"&ServiceOrdApptDate&"','"&ServiceOrdCoName&"','"&ServiceOrdCoPhone&"','"&ServiceOrdCoTies&"','"&ServiceOrdPtName&"','"&ServiceOrdPtAge&"','"&ServiceOrdPtKG&"','"&ServiceOrdPtSex&"','"&ServiceOrdPtNat&"','"&ServiceOrdPtIDCard&"',"&ServiceOrdPtOutHospID_New&","&ServiceOrdPtOutHospID&","&ServiceOrdPtInHospID_New&","&ServiceOrdPtInHospID&",'"&ServiceOrdPtServices&"',"&ServiceOrdPtServicesID&",'"&ServiceOrdPtInServices&"',"&ServiceOrdPtInServicesID&",'"&ServiceOrdPtDiagnosis&"','"&ServiceOrdPtCondition&"','"&ServiceOrdTaskRemarks&"','"&ServiceOrdPtDoctor&"','"&ServiceOrdPtDoctorPhone&"','"&ServiceOrdTraProvince&"','"&ServiceOrdTraCity&"','"&ServiceOrdTraStreet&"','"&ServiceOrdTraStreetCoo&"','"&ServiceOrdTraEnd&"','"&ServiceOrdTraEndCoo&"','"&ServiceOrdTraVia&"','"&ServiceOrdViaDistance&"','"&ServiceOrdTraDistance&"','"&ServiceOrdTraDuration&"',"&ServiceOrdTraUnitPrice&","&ServiceOrdTraOfferPrice&","&ServiceOrdTraTxnPrice&","&ServiceOrdTraPrePayment&","&SettlementPrice&",'"&ServiceOrdTraPriceReason&"',"&ServiceOrd_CC_ID&",getdate(),"&ServiceOrdNo&","&ServiceOrd_Sale_ID&","&ServiceOrd_work_ID&",'"&ServiceOrd_work_IDs&"',"&ServiceOrd_work_is&","&CommissionScenarioID&",'"&ServiceOrdIntroducer&"',"&ServiceOrdUnitID&","&ServiceOrdVIP&",'"&ServiceOrdOperationRemarks&"','"&ServiceOrdEstimatedOrderDate&"',"&ServiceOrdSource&","&OrderLevel&","&ServiceOrdDepartureType&","&ConditionLevel&","&DirectionType&","&FromHQ2_is&","&OrderPrice_Auto&")"
+'Response.write sql&"<BR>"
+objConn.Execute sql
+sql="select top 1 ServiceOrdID from ServiceOrder where ServiceOrdCoPhone='"&ServiceOrdCoPhone&"' order by ServiceOrdID desc"
+rs.open sql,objConn,1,1
+ServiceOrdID = rs(0)
+rs.close()
+ServiceOrdNo = ServiceOrdClass& year(now())&Right("0"&month(now()),2)&Right("0"&day(now()),2) & "-"&Right("00"&ServiceOrdNo,3)
+
+
+SaveOpenerCommission ServiceOrdID
+SaveFollowers ServiceOrdID
+'鍜ㄨ鍗曡浆涓烘湇鍔″崟('鑷姩瀹℃牳)
+If ServiceOrdState="2" then
+ sql="update ServiceOrder set ServiceOrd_NS_ID="&session("adminID")&",ServiceOrd_NS_Time=getdate(),ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")&" where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+Else '鑷姩瀹℃牳
+ 'sql="update ServiceOrder set ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")&" where ServiceOrdID="&ServiceOrdID
+ 'objConn.Execute sql
+End if
+
+'鍐欏叆鐢佃瘽璁板綍
+If TEL_Phone<>"" then
+ sql="select CallRecordID from CallRecord where CallRecord_Phine='"&TEL_Phone&"' and CallRecord_StartTime between dateadd(Ss,-10,'"&TEL_Time&"') and dateadd(Ss,10,'"&TEL_Time&"')"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update CallRecord set CallRecord_OAUserID="&session("adminID")&",CallRecord_EndTime=getdate(),CallRecord_OrdClass='"&ServiceOrdClass&"',CallRecord_OrdID="&ServiceOrdID&",CallRecord_Record='"&TEL_Remarks&"' where CallRecordID="&rs(0)
+ objConn.Execute sql
+ Else
+ sql="insert into CallRecord (CallRecord_Phine,CallRecord_OAUserID,CallRecord_StartTime,CallRecord_EndTime,CallRecord_Type,CallRecord_OrdClass,CallRecord_OrdID,CallRecord_Record) values ('"&TEL_Phone&"',"&session("adminID")&",'"&TEL_Time&"',getdate(),1,'"&ServiceOrdClass&"',"&ServiceOrdID&",'"&TEL_Remarks&"')"
+ objConn.Execute sql
+ End if
+ rs.close()
+End if
+
+'鍐欏叆鐩墠鐥呮儏(鍗曢�夐」绫�)
+sql="select vOrder from dictionary where vType=2 and vtitle='Condition' order by vOrder,vID"
+rs.open sql,objConn,1,1
+do while not rs.Eof
+ ConditionOrder=rs("vOrder")
+ ConditionID=SafeRequest(Request.form("ConditionID_"&ConditionOrder))
+ If ConditionID<>"" Then
+ sql="insert into ServiceOrd_Condition (ServiceOrdCoID,ConditionID) values ("&ServiceOrdID&","&ConditionID&")"
+ objConn.Execute sql
+ End If
+ If ConditionID="4" Then
+ sql=" update ServiceOrder set AMV_is=1 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ ElseIf ConditionID="3" Then
+ sql=" update ServiceOrder set AMV_is=0 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+rs.movenext
+loop
+rs.close()
+
+'鍐欏叆璇婃柇ICD
+OrdICD_ID = SafeRequest(Request.form("OrdICD_ID")) '璇婃柇ICD_ID
+OrdICD_ID_old = SafeRequest(Request.form("OrdICD_ID_old"))
+If OrdICD_ID<>OrdICD_ID_old Then
+ If OrdICD_ID<>"" then
+ OrdICD_IDSP = SPLIT(OrdICD_ID,",")
+ for i=1 to ubound(OrdICD_IDSP)-1
+ If OrdICD_IDSP(i)<>"" Then
+ sql="insert into ServiceOrder_ICD (ServiceOrdIDDt,icd_id) values ("&ServiceOrdID&","&OrdICD_IDSP(i)&")"
+ objConn.Execute sql
+ End If
+ Next
+ End If
+End If
+
+'鍐欏叆杞繍鏂瑰紡(澶氶�夐」)
+TransferModeIDSP = SPLIT(TransferModeID,", ")
+for i = 0 to UBOUND(TransferModeIDSP)
+ TransferModeID = TransferModeIDSP(i)
+ If TransferModeID<>"" then
+ sql="insert into ServiceOrd_TransferMode (ServiceOrdTMID,TransferModeID) values ("&ServiceOrdID&","&TransferModeID&")"
+ objConn.Execute sql
+ End if
+Next
+
+'鏍搁攢浼樻儬鍒�
+Call CouponUse(ServiceOrdTraPriceReason,ServiceOrdID)
+
+'鍐欏叆棰勮娲惧崟鏃堕棿閫氱煡
+If ServiceOrdEstimatedOrderDate<>"" Then
+ NC_OAID="78"
+ ServiceOrdNo = ServiceOrdClass& year(now())&Right("0"&month(now()),2)&Right("0"&day(now()),2) & "-"&Right("00"&ServiceOrdNo,3)
+ NC_Name="銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�"
+ NC_Content="鏈嶅姟鍗�:"&ServiceOrdNo&",宸插埌棰勫畾鐨勬淳鍗曟椂闂�,璇峰嵆鏃跺鐞�"
+ NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+ NC_PageUrlM=ServiceOrdEstimatedOrderDate
+ Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
+End If
+
+session("Origin")=""
+If ServiceOrd_m="1" Then
+ ReturnURL="m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+ Call OA_Running("鎵嬫満鏂板缓鏈嶅姟鍗�:"&ServiceOrdID)
+Else
+ ReturnURL="ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+ Call OA_Running("鏂板缓鏈嶅姟鍗�:"&ServiceOrdID)
+End If
+objConn.Execute "exec OrdDataUP "&ServiceOrdID
+rsRollbackTrans(objConn.Errors.count)
+
+'鐩存帴瀹℃牳骞惰浆璺宠嚦璋冨害鍗�
+NEWOrder = SafeRequest(Request.form("NEWOrder"))
+If NEWOrder="2" Then
+ sql="update ServiceOrder set ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")&" where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ Perfomance = SafeRequest(Request.form("DispatchOrdPerfomance")) '缁╂晥
+ Stretcher = SafeRequest(Request.form("StretcherMoney")) '鎷呮灦璐�
+ If ServiceOrd_m="1" Then
+ Response.Redirect "m_DispatchOrder.gds?ServiceOrdID="&ServiceOrdID&"&NEWOrder=3&Perfomance="&Perfomance&"&Stretcher="&Stretcher
+ else
+ Response.Redirect "DispatchOrder.gds?ServiceOrdID="&ServiceOrdID&"&SystemMessageType=3&SMT=12&Perfomance="&Perfomance&"&Stretcher="&Stretcher
+ End If
+Else
+ '鍐欏叆鐩稿叧閿�鍞汉鍛橀�氱煡(鏆傚仠鎺ㄩ��2020.9.17)
+ If ServiceOrdPtOutHospID_New<>"0" And ServiceOrdPtInHospID_New<>"0" And OrderLevel<>"1" And 1=2 Then
+ %>
+ <!--#include virtual="/weixin/JsonPost_1000006.gds"-->
+ <%
+ touser=""
+ sql="SELECT STUFF((select ',' + HospOAID from HospData where HospID in ("&ServiceOrdPtOutHospID_New&","&ServiceOrdPtInHospID_New&") and HospOAID<>'' and HospOAID is not null FOR XML PATH('')), 1, 1, '')"
+ rs.open sql,objConn,1,1
+ HospOAIDs=rs(0)
+ rs.close()
+
+
+ If not isnull(HospOAIDs) Then
+ HospOAIDPS = SPLIT(HospOAIDs,",")
+ HospOAIDs=""
+ for z = 0 to UBOUND(HospOAIDPS)
+ If HospOAIDPS(z)<>"" Then
+ HospOAIDs=HospOAIDs&","&HospOAIDPS(z)
+ End If
+ Next
+ If HospOAIDs<>"" Then HospOAIDs=Mid(HospOAIDs,2)
+ touser = ""
+ If HospOAIDs<>"" Then
+ sql="select OA_weixinUserID,OA_Name from OA_User where OA_execLevel>=0 and OA_User_ID in ("&HospOAIDs&")"
+ rs.open sql,objConn,1,1
+ do while not rs.Eof
+ touser = touser&"|"&rs("OA_weixinUserID")
+ MessageName=MessageName&"銆�"&rs("OA_Name")
+ rs.movenext
+ loop
+ rs.close()
+ If touser<>"" Then
+ touser=Mid(touser,2)
+ MessageName=Mid(MessageName,2)
+ End If
+ End If
+ 'touser="ylkx_vicgame"
+ If touser<>"" Then
+ '璁㈠崟鐣欒█
+ MessageContents="璁㈠崟鎺ㄩ�佺粰"&MessageName
+ sql="insert into ServiceOrd_Message (ServiceOrdIDDt,MessageContents,MessageOAid) values ("&ServiceOrdID&",'"&MessageContents&"',"&session("adminID")&")"
+ objConn.Execute sql
+ '寰俊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," '浼佷笟搴旂敤鐨刬d锛屾暣鍨嬨�傚彲鍦ㄥ簲鐢ㄧ殑璁剧疆椤甸潰鏌ョ湅
+ args1=args1&"""msgtype"": ""news"","
+ args1=args1&"""news"": {"
+ args1=args1&"""articles"":["
+ args1=args1&"{"
+ args1=args1&"""title"": ""銆愭柊鏈嶅姟鍗曘��"&ServiceOrdNo&""","
+ args1=args1&"""description"": """
+ If ServiceOrdApptDate<>"" Then args1=args1&"棰勭害鏃堕棿锛�"&ServiceOrdApptDate&"\n"
+ If ServiceOrdPtInHosp="瀹朵腑" Then ServiceOrdPtInHosp=ServiceOrdTraEnd
+ args1=args1&"鍑哄彂鍦帮細"&ServiceOrdPtOutHosp&"\n鐩殑鍦帮細"&ServiceOrdPtInHosp&"锛堢害"&ServiceOrdTraDistance&"锛�"","
+ args1=args1&"""url"": """&WEBURL&"/m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&OrdEdit=NO"","
+ args1=args1&"""picurl"": """""
+ args1=args1&"}"
+ args1=args1&"]"
+ args1=args1&"}"
+ args1=args1&"}"
+ call PostBody(appUrl,args1)
+ End If
+ End If
+ End If
+End If
+Response.write "OK"
+Response.End%>
\ No newline at end of file
diff --git a/admin_save_20.asp b/admin_save_20.asp
new file mode 100644
index 0000000..afc7402
--- /dev/null
+++ b/admin_save_20.asp
@@ -0,0 +1,610 @@
+<%
+Set rs = Server.CreateObject("ADODB.Recordset")
+ServiceOrdID = SafeRequest(Request.form("ServiceOrdID")) '鍗曟嵁ID
+DispatchOrdID = SafeRequest(Request.form("DispatchOrdID")) '璋冨害鍗旾D
+ServiceOrdUserID = SafeRequest(Request.form("ServiceOrdUserID")) '鐢ㄦ埛ID
+ServiceOrdClass = SafeRequest(Request.form("ServiceOrdClass")) '鍗曟嵁绫诲瀷
+ServiceOrdAreaType = SafeRequest(Request.form("ServiceOrdAreaType")) '鏈嶅姟鍗曞尯鍩�
+ServiceOrdType = SafeRequest(Request.form("ServiceOrdType")) '鏈嶅姟鍗曠被鍨�
+ServiceOrdState = SafeRequest(Request.form("ServiceOrdState")) '鏈嶅姟鍗曠姸鎬�
+ServiceOrdStartDate = SafeRequest(Request.form("ServiceOrdStartDate")) '寮�鍗曟棩鏈�
+ServiceOrdApptDate = SafeRequest(Request.form("ServiceOrdApptDate")) '棰勭害鏃ユ湡
+ServiceOrdEstimatedOrderDate=SafeRequest(Request.form("ServiceOrdEstimatedOrderDate")) '棰勮娲惧崟鏃堕棿
+ServiceOrdEstimatedOrderDateOld=SafeRequest(Request.form("ServiceOrdEstimatedOrderDateOld")) '鍘熼璁℃淳鍗曟椂闂�
+ServiceOrdCoName = SafeRequest(Request.form("ServiceOrdCoName")) '鑱旂郴浜哄鍚�
+ServiceOrdCoPhone = StrTrim(SafeRequest(Request.form("ServiceOrdCoPhone"))) '鑱旂郴浜虹數璇�
+ServiceOrdCoTies = SafeRequest(Request.form("ServiceOrdCoTies")) '鑱旂郴浜轰笌鎮ｈ�呭叧绯�
+ServiceOrdPtName = SafeRequest(Request.form("ServiceOrdPtName")) '鎮ｈ�呭鍚�
+ServiceOrdPtAge = SafeRequest(Request.form("ServiceOrdPtAge")) '鎮ｈ�呭勾榫�
+ServiceOrdPtKG = SafeRequest(Request.form("ServiceOrdPtKG")) '鎮ｈ�呬綋閲�
+ServiceOrdPtSex = SafeRequest(Request.form("ServiceOrdPtSex")) '鎮ｈ�呮�у埆
+ServiceOrdPtNat = SafeRequest(Request.form("ServiceOrdPtNat")) '鎮ｈ�呭浗绫�
+ServiceOrdPtIDCard = SafeRequest(Request.form("ServiceOrdPtIDCard")) '鎮ｈ�呰韩浠借瘉
+ServiceOrdPtOutHospID_New=SafeRequest(Request.form("ServiceOrdPtOutHospID")) '杞嚭鍖婚櫌ID
+ServiceOrdPtOutHosp = SafeRequest(Request.form("ServiceOrdPtOutHosp")) '杞嚭鍖婚櫌
+ServiceOrdPtInHospID_New= SafeRequest(Request.form("ServiceOrdPtInHospID")) '杞叆鍖婚櫌ID
+ServiceOrdPtInHosp = SafeRequest(Request.form("ServiceOrdPtInHosp")) '杞叆鍖婚櫌
+ServiceOrdPtServices = SafeRequest(Request.form("ServiceOrdPtServices")) '杞嚭绉戝
+ServiceOrdPtServicesID = SafeRequest(Request.form("ServiceOrdPtServicesID")) '杞嚭绉戝ID
+ServiceOrdPtInServices = SafeRequest(Request.form("ServiceOrdPtInServices")) '杞叆绉戝
+ServiceOrdPtInServicesID= SafeRequest(Request.form("ServiceOrdPtInServicesID")) '杞叆绉戝ID
+ServiceOrdPtDiagnosis = SafeRequest(Request.form("ServiceOrdPtDiagnosis")) '璇婃柇
+ServiceOrdPtCondition = SafeRequest(Request.form("ServiceOrdPtCondition")) '鐥呮儏鎻忚堪
+ServiceOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '鍖绘姢鍙稿娉�
+ServiceOrdPtDoctor = SafeRequest(Request.form("ServiceOrdPtDoctor")) '鎮ｈ�呭尰鐢�
+ServiceOrdPtDoctorPhone = SafeRequest(Request.form("ServiceOrdPtDoctorPhone")) '鎮ｈ�呭尰鐢熺數璇�
+ServiceOrdTraProvince = SafeRequest(Request.form("province")) '鍑哄彂鍦扮渷浠�
+ServiceOrdTraCity = SafeRequest(Request.form("city")) '鍑哄彂鍦板煄甯�
+ServiceOrdTraStreet = SafeRequest(Request.form("ServiceOrdTraStreet")) '鍑哄彂鍦�
+ServiceOrdTraStreetCoo = SafeRequest(Request.form("ServiceOrdTraStreetCoo")) '鍑哄彂鍦板潗鏍�
+ServiceOrdTraEnd = SafeRequest(Request.form("ServiceOrdTraEnd")) '鐩殑鍦�
+ServiceOrdTraEndCoo = SafeRequest(Request.form("ServiceOrdTraEndCoo")) '鐩殑鍦板潗鏍�
+ServiceOrdTraVia = SafeRequest(Request.form("ServiceOrdTraVia")) '閫旂粡鍦�
+ServiceOrdViaDistance = SafeRequest(Request.form("ServiceOrdViaDistance")) '涓�旇窛绂�(鍏噷)
+ServiceOrdTraDistance = SafeRequest(Request.form("ServiceOrdTraDistance")) '璺濈(鍏噷)
+ServiceOrdTraDuration = SafeRequest(Request.form("ServiceOrdTraDuration")) '棰勮琛岀▼鏃堕棿
+ServiceOrdTraUnitPrice = SafeRequest(Request.form("ServiceOrdTraUnitPrice")) '鍗曚环/鍏噷
+ServiceOrdTraOfferPrice = SafeRequest(Request.form("ServiceOrdTraOfferPrice")) '鏍囧噯鎶ヤ环
+ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '鎴愪氦浠�
+ServiceOrdTraPrePayment = SafeRequest(Request.form("ServiceOrdTraPrePayment")) '闇�棰勪粯娆�
+SettlementPrice = SafeRequest(Request.form("SettlementPrice")) '缁撶畻浠�
+ServiceOrdTraPriceReason= SafeRequest(Request.form("ServiceOrdTraPriceReason")) '宸环鍘熷洜
+TEL_Phone = SafeRequest(Request.form("Phone")) '鏉ョ數鐢佃瘽
+TEL_Time = SafeRequest(Request.form("TEL_Time")) '鏉ョ數鏃堕棿
+TEL_Remarks = SafeRequest(Request.form("TEL_Remarks")) '鏉ョ數澶囨敞
+TransferModeID = SafeRequest(Request.form("TransferModeID")) '杞繍鏂瑰紡
+ServiceOrdVIP = SafeRequest(Request.form("ServiceOrdVIP")) 'VIP瀹㈡埛
+ServiceOrd_CC_ID = SafeRequest(Request.form("ServiceOrd_CC_ID")) '瀹㈡湇浜哄憳ID
+ServiceOrd_Sale_ID = SafeRequest(Request.form("ServiceOrd_Sale_ID")) '閿�鍞汉鍛業D
+ServiceOrdIntroducer = SafeRequest(Request.form("ServiceOrdIntroducer")) '浠嬬粛浜�
+ServiceOrd_work_ID = SafeRequest(Request.form("ServiceOrd_work_ID")) '涓昏浼佸井瀹㈡湇ID
+ServiceOrd_work_IDs = SafeRequest(Request.form("ServiceOrd_work_IDs")) '鍏朵粬浼佸井瀹㈡湇ID
+ServiceOrd_work_is = SafeRequest(request.form("ServiceOrd_work_is")) '鏄惁浼佸井鎴愪氦
+CommissionScenarioID = SafeRequest(request.form("CommissionScenarioID")) '浼佸井缁╂晥鏂规
+ReturnChannel = SafeRequest(Request.form("ReturnChannel")) '鍥炶鑾风煡966120鐨勬笭閬�
+ReturnChannelOther = SafeRequest(Request.form("ReturnChannelOther")) '鍥炶鑾风煡966120鐨勬笭閬�(鍏跺畠)
+VisitDict = SafeRequest(Request.form("VisitDict")) '鍥炶璁板綍(璇勪环绫诲瀷)
+ServiceOrdVisit = SafeRequest(Request.form("ServiceOrdVisit")) '鍥炶璁板綍
+ServiceOrdVisit_old = SafeRequest(Request.form("ServiceOrdVisit_old")) '鍘熷洖璁胯褰�
+ServiceOrdOperationRemarks= SafeRequest(Request.form("ServiceOrdOperationRemarks")) '鎿嶄綔澶囨敞
+CancelReason = SafeRequest(Request.form("CancelReason")) '鍙栨秷鍘熷洜
+CancelReasonTXT = SafeRequest(Request.form("CancelReasonTXT")) '鍙栨秷鍘熷洜澶囨敞
+CancelReasonTXT = CancelReasonTXT&"[鍙栨秷鎿嶄綔:"&OAUser(session("adminID"),"UserName")&"]"
+ServiceOrdSource = SafeRequest(Request.form("ServiceOrdSource")) '璁㈠崟鏉ユ簮
+OrderLevel = SafeRequest(Request.form("OrderLevel")) '鏌ョ湅绛夌骇
+ServiceOrdDepartureType = SafeRequest(Request.form("ServiceOrdDepartureType")) '棰勭害绫诲瀷
+ConditionLevel = SafeRequest(Request.form("ConditionLevel")) '鐥呴噸绾у埆
+DirectionType = SafeRequest(Request.form("DirectionType")) '杞繍鍘诲悜
+ServiceOrd_m = SafeRequest(Request.form("ServiceOrd_m")) '鏉ユ簮鍏ュ彛
+FromHQ2_is = SafeRequest(Request.form("FromHQ2_is")) '骞垮窞鎬婚儴鎺ㄩ�佷换鍔℃爣璁�
+
+ServiceOrd_Check = SafeRequest(Request.form("ServiceOrd_Check")) '褰撳墠瀹℃牳鎿嶄綔
+EditDataForm = SafeRequest(Request.form("EditDataForm")) '褰撳墠淇敼椤圭洰
+
+SaveOpenerCommission ServiceOrdID
+SaveFollowers ServiceOrdID
+
+Call RequestForm(Origin)
+session("Origin")=Origin
+'response.write Origin
+'response.end
+If ServiceOrdTraUnitPrice="" Then ServiceOrdTraUnitPrice=0
+If ServiceOrdTraOfferPrice="" Then ServiceOrdTraOfferPrice=0
+If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
+If ServiceOrdTraPrePayment="" Then ServiceOrdTraPrePayment=0
+If SettlementPrice="" Then SettlementPrice=0
+If ServiceOrdState="" Then ServiceOrdState=1
+If ServiceOrd_Sale_ID="" Then ServiceOrd_Sale_ID="null"
+If ServiceOrd_work_ID="" Then ServiceOrd_work_ID="null"
+If ServiceOrd_work_is="" Then ServiceOrd_work_is=0
+If CommissionScenarioID="" Then CommissionScenarioID=0
+If ServiceOrd_CC_ID="" Then ServiceOrd_CC_ID="ServiceOrd_CC_ID"
+If ServiceOrd_CC_ID="0" Then ServiceOrd_CC_ID=session("adminID")
+If CancelReason="" Then CancelReason=0
+If ServiceOrdSource="" Then ServiceOrdSource=0
+'If InStr(ServiceOrdTraDistance,"鍏噷")>0 Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance,"鍏噷","")
+'If InStr(ServiceOrdTraDistance,"绫�")>0 Then ServiceOrdTraDistance=CInt(Replace(ServiceOrdTraDistance,"绫�",""))/1000
+If ServiceOrdViaDistance="" Or OrderLevel<>"2" Then ServiceOrdViaDistance=0
+If ServiceOrdTraDistance="" Then ServiceOrdTraDistance=0
+If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","")
+If ServiceOrdPtOutHospID_New="" Then ServiceOrdPtOutHospID_New=0
+If ServiceOrdPtInHospID_New="" Then ServiceOrdPtInHospID_New=0
+If ServiceOrdVIP="" Then ServiceOrdVIP=0
+If ServiceOrdOperationRemarks<>"" Then ServiceOrdOperationRemarks=replace(replace(ServiceOrdOperationRemarks,"[瀹㈡埛鏈寮忔彁浜ら渶姹傦紝鍙笉鑱旂郴]",""),"[瀹㈡埛鏈寮忔彁浜ら渶姹俔","")
+If ServiceOrdVisit<>"" And ServiceOrdVisit_old<>ServiceOrdVisit Then
+ RV_Point=0
+ sql="select id from DispatchOrd_Entourage,DispatchOrd where EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and ServiceOrdIDDt="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ do while not rs.Eof
+ DE_id=rs("id")
+ RV_PointE=SafeRequest(Request.form("RV_PointE_"&DE_id))
+ If RV_PointE<>"" Then
+ RV_Point=RV_Point+1
+ sql="update DispatchOrd_Entourage set RV_PointE='"&RV_PointE&"' where id="&DE_id
+ objConn.Execute sql
+ End If
+ rs.movenext
+ loop
+ rs.close()
+ SqlVisit=",ServiceOrdVisit='"&ServiceOrdVisit&"',ServiceOrdVisit_time=getdate(),ServiceOrdVisit_ID="&session("adminID")
+ If VisitDict<>"" Then SqlVisit=SqlVisit&",ServiceOrdVisit_Dict='"&VisitDict&"'"
+ If RV_Point>0 Then SqlVisit=SqlVisit&",RV_Point="&RV_Point
+ElseIf ServiceOrdVisit="" Then
+ SqlVisit=",ServiceOrdVisit_Dict=null,ServiceOrdVisit=null,ServiceOrdVisit_time=null,ServiceOrdVisit_ID=null,RV_Point=0"
+End If
+If ReturnChannel="鍏朵粬锛堟墜鍔ㄥ～鍐欙級" Then
+ If ReturnChannelOther="" Then ReturnChannelOther="鍏跺畠"
+ SqlVisit=SqlVisit&",ServiceOrdReturnChannel='"&ReturnChannelOther&"'"
+ElseIf ReturnChannel<>"" Then
+ SqlVisit=SqlVisit&",ServiceOrdReturnChannel='"&ReturnChannel&"'"
+Else
+ SqlVisit=SqlVisit&",ServiceOrdReturnChannel=null"
+End If
+
+SMT=3
+ServiceOrdTraPrePayment=Replace(ServiceOrdTraPrePayment,",","")
+SettlementPrice=Replace(SettlementPrice,",","")
+ServiceOrdTraOfferPrice=Replace(ServiceOrdTraOfferPrice,",","")
+ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","")
+If ServiceOrdPtServicesID="" Then ServiceOrdPtServicesID=0
+If ServiceOrdPtInServicesID="" Then ServiceOrdPtInServicesID=0
+If OrderLevel="" Then OrderLevel=0
+If ServiceOrdDepartureType="" Then ServiceOrdDepartureType=1
+If ConditionLevel="" Then ConditionLevel=0
+If DirectionType="" Then DirectionType=0
+If ServiceOrdUserID="" Then ServiceOrdUserID=0
+If FromHQ2_is="" Then FromHQ2_is=0
+If EditDataForm<>"" Then EditDataForm="["&EditDataForm&"] ID"
+
+'鏁版嵁涓嶅畬鏁�
+If ServiceOrdID="" Or Not IsNumeric(ServiceOrdID) Then Response.Redirect "/ServiceOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=1"
+If ServiceOrdState="1" And (ServiceOrdCoPhone="" Or ServiceOrdClass="" Or ServiceOrdTraDistance="") Then Response.Redirect "/ServiceOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=1&error=,ServiceOrdCoPhone,"
+If ServiceOrdState="2" And ServiceOrd_m<>"1" Then
+ error=","
+ If ServiceOrdCoPhone="" Or ServiceOrdClass="" Then error=error&"ServiceOrdCoPhone,"
+ If ServiceOrdTraDistance="" Then error=error&"ServiceOrdTraDistance,"
+ If ServiceOrdCoName="" Then error=error&"ServiceOrdCoName,"
+ 'If ServiceOrdApptDate="" Then error=error&"ServiceOrdApptDate,"
+ If ServiceOrdPtName="" Then error=error&"ServiceOrdPtName,"
+ 'If ServiceOrdPtOutHosp="" Then error=error&"ServiceOrdPtOutHosp,"
+ If ServiceOrdTraStreet="" Then error=error&"ServiceOrdTraStreet,"
+ If ServiceOrdTraEnd="" Then error=error&"ServiceOrdTraEnd,"
+ If ServiceOrdTraTxnPrice="" Then error=error&"ServiceOrdTraTxnPrice,"
+ If ServiceOrdSource="0" Then error=error&"ServiceOrdSource,"
+ 'If ConditionLevel="0" Then error=error&"ConditionLevel,"
+ 'If DirectionType="0" Then error=error&"DirectionType,"
+ If ServiceOrdPtServicesID="0" Then error=error&"ServiceOrdPtServicesID,"
+ If ServiceOrdPtInServicesID="0" Then error=error&"ServiceOrdPtInServicesID,"
+
+ If Len(error)>2 Then Response.Redirect "/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=4&error="&error
+
+ElseIf ServiceOrd_m="1" Then
+ '鎵嬫満绔粯璁ゅ��
+ If ServiceOrdCoPhone="" Then ServiceOrdCoPhone=""
+ If ServiceOrdTraProvince="" Then ServiceOrdTraProvince=""
+ If ServiceOrdTraCity="" Then ServiceOrdTraCity=""
+ If ServiceOrdTraStreet="" And ServiceOrdClass<>"" Then
+ sql="select vMono from dictionary where vType=1 and vtitle='OrderClass' and vOrder2='"&ServiceOrdClass&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdTraStreet=rs(0)
+ End If
+ rs.close()
+ End If
+ If ServiceOrdTraVia="" Then ServiceOrdTraVia=ServiceOrdPtOutHosp
+ If ServiceOrdTraEnd="" Then ServiceOrdTraEnd=ServiceOrdPtInHosp
+
+ error=","
+ If ServiceOrdCoName="" Then error=error&"ServiceOrdCoName,"
+ If ServiceOrdPtName="" Then error=error&"ServiceOrdPtName,"
+ 'If ConditionLevel="0" Then error=error&"ConditionLevel,"
+ 'If DirectionType="0" Then error=error&"DirectionType,"
+ If ServiceOrdPtOutHospID_New="" Then error=error&"ServiceOrdPtOutHospID,"
+ If ServiceOrdPtInHospID_New="" Then error=error&"ServiceOrdPtInHospID,"
+
+ If Len(error)>2 Then Response.Redirect "/m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&SystemMessageType=4&SMT=4&error="&error
+End if
+
+'楠岃瘉鍗曟嵁ID鏄惁姝ｇ‘
+sql="select ServiceOrdID,ServiceOrdState,ServiceOrd_AP_Check,ServiceOrdUnitID,ServiceOrdClass,ServiceOrd_CC_Time,ServiceOrdNo,ServiceOrdCoName,ServiceOrdCoPhone,ServiceOrdTraVia,ServiceOrdTraEnd,ServiceOrdTraTxnPrice,ServiceOrdPtOutHospID,ServiceOrdPtInHospID,ToUserUUID from ServiceOrder where ServiceOrdID="&ServiceOrdID
+rs.open sql,objConn,1,1
+if rs.eof Then
+ session("Origin")=""
+ Response.Redirect "/ServiceOrder.gds?SystemMessageType=4&SMT=1&Phone&="&TEL_Phone
+Else
+ ServiceOrd_AP_Check=rs("ServiceOrd_AP_Check")
+ Old_ServiceOrdState=rs("ServiceOrdState")
+ ServiceOrdUnitID=rs("ServiceOrdUnitID")
+ Old_ServiceOrdClass=rs("ServiceOrdClass")
+ If ServiceOrdClass="" Then ServiceOrdClass=Old_ServiceOrdClass
+ ServiceOrd_CC_Time=rs("ServiceOrd_CC_Time")
+ ServiceOrdNo=rs("ServiceOrdNo")
+ Old_ServiceOrdCoName=rs("ServiceOrdCoName")
+ Old_ServiceOrdCoPhone=rs("ServiceOrdCoPhone")
+ Old_ServiceOrdTraVia=rs("ServiceOrdTraVia")
+ Old_ServiceOrdTraEnd=rs("ServiceOrdTraEnd")
+ Old_ServiceOrdTraTxnPrice=rs("ServiceOrdTraTxnPrice")
+ Old_ServiceOrdPtOutHospID=rs("ServiceOrdPtOutHospID")
+ Old_ServiceOrdPtInHospID=rs("ServiceOrdPtInHospID")
+ ToUserUUID=rs("ToUserUUID")
+End if
+rs.close()
+
+'娉ㄥ唽&鏌ヨ鐢ㄦ埛ID
+If ServiceOrdCoPhone<>"" And Len(ServiceOrdCoPhone) And Left(ServiceOrdCoPhone,1)="1" And IsNumeric(ServiceOrdCoPhone) Then
+ UserID=ServiceOrdUserID
+ UserPhone=ServiceOrdCoPhone
+ UserName=ServiceOrdCoName
+ Call User_Login(UserID,UserPhone,wxOriginalID,wxOpenid,wxUnionID,UserSource,UserName)
+ sql="update ServiceOrder set ServiceOrdUserID="&UserID&" where ServiceOrdUserID<>"&UserID&" and ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+Else
+ UserID=0
+End If
+
+'鐣欒█淇濆瓨
+MessageContents = SafeRequest(request("MessageContents_form1"))
+If MessageContents<>"" Then
+ sql="insert into ServiceOrd_Message (ServiceOrdIDDt,MessageContents,MessageOAid) values ("&ServiceOrdID&",'"&MessageContents&"',"&session("adminID")&")"
+ objConn.Execute sql
+End If
+
+'鏂版湇鍔″崟搴忓彿
+If Old_ServiceOrdClass<>ServiceOrdClass Then
+ 'sql="select top 1 ServiceOrdNo from ServiceOrder where CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'"&ServiceOrd_CC_Time&"',120) and ServiceOrdClass='"&ServiceOrdClass&"' order by ServiceOrdNo desc"
+ sql="select top 1 ServiceOrdNo from ServiceOrder where DATEPART(yyyy,ServiceOrd_CC_Time)=DATEPART(yyyy,'"&ServiceOrd_CC_Time&"') and DATEPART(m,ServiceOrd_CC_Time)=DATEPART(m,'"&ServiceOrd_CC_Time&"') and DATEPART(d,ServiceOrd_CC_Time)=DATEPART(d,'"&ServiceOrd_CC_Time&"') and ServiceOrdClass='"&ServiceOrdClass&"' order by ServiceOrdNo desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdNo=rs(0)+1
+ Else
+ ServiceOrdNo=1
+ End if
+ rs.close()
+ ServiceOrdEstimatedOrderDate=""
+ ServiceOrdNo_UPSql=",ServiceOrdNo="&ServiceOrdNo
+End If
+
+
+'鍜ㄨ鍗曡浆鏈嶅姟鍗�
+If Old_ServiceOrdState="1" And ServiceOrdState="2" Then
+ ServiceOrdSql=",ServiceOrdState=2,ServiceOrdStartDate=getdate(),ServiceOrd_NS_ID="&session("adminID")&",ServiceOrd_NS_Time=getdate()"
+ SMT=7
+'鍙栨秷鏈嶅姟鍗曞苟杞负鍜ㄨ鍗�
+ElseIf Old_ServiceOrdState="2" And ServiceOrdState="4" Then
+ ServiceOrdSql=",ServiceOrdPoints=0,ServiceOrdState=1,ServiceOrdStartDate=ServiceOrd_CC_Time,ServiceOrd_NS_ID=null,ServiceOrd_NS_Time=null,ServiceOrdCancelReason="&CancelReason&",ServiceOrdCancelReasonTXT='"&CancelReasonTXT&"'"
+ SMT=8
+ '鍙栨秷绉垎浣跨敤
+ sql="delete from PaidMoney where PaidMoneyType=9 and ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ sql="delete from UserPoints where Points_Type=6 and ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ '鍙嶆牳閿�浼樻儬鍒�
+ Call CouponReverseUse(ServiceOrdTraPriceReason,ServiceOrdID)
+ ServiceOrdTraPriceReason=""
+ Call OA_Running("鍙栨秷鏈嶅姟鍗�:"&ServiceOrdID)
+'浣滃簾鍜ㄨ鍗�
+ElseIf (Old_ServiceOrdState="1" Or Old_ServiceOrdState="2") And ServiceOrdState="5" Then
+ ServiceOrdSql=",ServiceOrdPoints=0,ServiceOrdState=4,ServiceOrd_AP_ID="&session("adminID")&",ServiceOrd_AP_Time=getdate(),ServiceOrdCancelReason="&CancelReason&",ServiceOrdCancelReasonTXT='"&CancelReasonTXT&"'"
+ SMT=9
+ '钀ラ攢灏忕▼搴忔暟鎹洿鏂�
+ If ToUserUUID<>"0" And ToUserUUID<>"" Then
+ sql="select top 1 id,iuid from UserUUID where id="&ToUserUUID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ iuid=rs("iuid")
+ Call Get_TritonshAPI(ToUserUUID,1,ServiceOrdID,iuid,ServiceOrdCoName,ServiceOrdCoPhone,0)
+ End If
+ rs.close()
+ End If
+ '鍙栨秷绉垎浣跨敤
+ sql="delete from PaidMoney where PaidMoneyType=9 and ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ sql="delete from UserPoints where Points_Type=6 and ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ '鍙嶆牳閿�浼樻儬鍒�
+ Call CouponReverseUse(ServiceOrdTraPriceReason,ServiceOrdID)
+ ServiceOrdTraPriceReason=""
+ Call OA_Running("浣滃簾鏈嶅姟鍗�:"&ServiceOrdID)
+
+'杩樺師鏈嶅姟鍗�
+ElseIf Old_ServiceOrdState="4" And ServiceOrdState="2" Then
+ ServiceOrdSql=",ServiceOrdState=2,ServiceOrdStartDate=getdate(),ServiceOrd_NS_ID="&session("adminID")&",ServiceOrd_NS_Time=getdate(),ServiceOrdCancelReason=null,ServiceOrdCancelReasonTXT=''"
+ SMT=10
+ Call OA_Running("杩樺師鏈嶅姟鍗�:"&ServiceOrdID)
+End If
+
+'鏌ユ壘鍖婚櫌ID
+If ServiceOrdPtOutHosp<>"" Then
+ If InStr(ServiceOrdPtOutHosp,"|")>0 Then ServiceOrdPtOutHosp=Mid(ServiceOrdPtOutHosp,1,InStr(ServiceOrdPtOutHosp,"|")-1)
+ sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtOutHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID=rs(0)
+ Else
+ rs.close()
+ sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID=rs(0)+1
+ Else
+ ServiceOrdPtOutHospID=1
+ End if
+ sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtOutHospID&",'"&ServiceOrdPtOutHosp&"','HospName',1,'鍖婚櫌鍚嶇О')"
+ objConn.Execute sql
+ End If
+ rs.close()
+ If ServiceOrdPtOutHospID_New="0" Then
+ sql="select HospID from HospData where HospState=1 and HospName='"&ServiceOrdPtOutHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID_New=rs(0)
+ End If
+ rs.close()
+ End If
+Else
+ ServiceOrdPtOutHospID=0
+End If
+If ServiceOrdPtInHosp<>"" then
+ If InStr(ServiceOrdPtInHosp,"|")>0 Then ServiceOrdPtInHosp=Mid(ServiceOrdPtInHosp,1,InStr(ServiceOrdPtInHosp,"|")-1)
+ sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtInHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID=rs(0)
+ Else
+ rs.close()
+ sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID=rs(0)+1
+ Else
+ ServiceOrdPtInHospID=1
+ End if
+ sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtInHospID&",'"&ServiceOrdPtInHosp&"','HospName',1,'鍖婚櫌鍚嶇О')"
+ objConn.Execute sql
+ End If
+ rs.close()
+ If ServiceOrdPtInHospID_New="0" Then
+ sql="select HospID from HospData where HospState=1 and HospName='"&ServiceOrdPtInHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID_New=rs(0)
+ End If
+ rs.close()
+ End If
+Else
+ ServiceOrdPtInHospID=0
+End If
+
+
+'鏌ユ壘鍚堜綔鍗曚綅ID
+If ServiceOrdIntroducer<>"" And IsNumeric(ServiceOrdIntroducer) Then
+ sql="select IntroducerID,IntroducerName,IntroducerUnitID from IntroducerData where IntroducerUnitID<>'' and IntroducerID="&ServiceOrdIntroducer
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdUnitID=rs("IntroducerUnitID")
+ End If
+ rs.close()
+End If
+
+'鍐欏叆鐢佃瘽璁板綍
+If TEL_Phone<>"" then
+ sql="select CallRecordID from CallRecord where CallRecord_Phine='"&TEL_Phone&"' and CallRecord_StartTime between dateadd(Ss,-10,'"&TEL_Time&"') and dateadd(Ss,10,'"&TEL_Time&"')"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update CallRecord set CallRecord_OAUserID="&session("adminID")&",CallRecord_EndTime=getdate(),CallRecord_OrdClass='"&ServiceOrdClass&"',CallRecord_OrdID="&ServiceOrdID&",CallRecord_Record='"&TEL_Remarks&"' where CallRecordID="&rs(0)
+ objConn.Execute sql
+ Else
+ sql="insert into CallRecord (CallRecord_Phine,CallRecord_OAUserID,CallRecord_StartTime,CallRecord_EndTime,CallRecord_Type,CallRecord_OrdClass,CallRecord_OrdID,CallRecord_Record) values ('"&TEL_Phone&"',"&session("adminID")&",'"&TEL_Time&"',getdate(),1,'"&ServiceOrdClass&"',"&ServiceOrdID&",'"&TEL_Remarks&"')"
+ objConn.Execute sql
+ End if
+ rs.close()
+End If
+
+'鏁忔劅淇℃伅淇敼
+CoSql=""
+If ServiceOrdCoName<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdCoName='"&ServiceOrdCoName&"'"
+If ServiceOrdCoPhone<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdCoPhone='"&ServiceOrdCoPhone&"'"
+If ServiceOrdPtName<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtName='"&ServiceOrdPtName&"'"
+If ServiceOrdPtAge<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtAge='"&ServiceOrdPtAge&"'"
+If ServiceOrdPtServicesID<>"-2" Then CoSql=CoSql&",ServiceOrdPtServicesID="&ServiceOrdPtServicesID&""
+If ServiceOrdPtServices<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtServices='"&ServiceOrdPtServices&"'"
+If ServiceOrdPtInServicesID<>"-2" Then CoSql=CoSql&",ServiceOrdPtInServicesID="&ServiceOrdPtInServicesID&""
+If ServiceOrdPtInServices<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtInServices='"&ServiceOrdPtInServices&"'"
+
+'淇敼鏈嶅姟鍗�(鑷姩瀹℃牳)
+sql="update ServiceOrder set ServiceOrdClass='"&ServiceOrdClass&"',ServiceOrdAreaType="&ServiceOrdAreaType&",ServiceOrdType="&ServiceOrdType&",ServiceOrdApptDate='"&ServiceOrdApptDate&"',ServiceOrdEstimatedOrderDate='"&ServiceOrdEstimatedOrderDate&"',ServiceOrdCoTies='"&ServiceOrdCoTies&"',ServiceOrdPtSex='"&ServiceOrdPtSex&"',ServiceOrdPtNat='"&ServiceOrdPtNat&"',ServiceOrdPtIDCard='"&ServiceOrdPtIDCard&"',ServiceOrdPtOutHospID="&ServiceOrdPtOutHospID_New&",ServiceOrdPtOutHosp="&ServiceOrdPtOutHospID&",ServiceOrdPtInHospID="&ServiceOrdPtInHospID_New&",ServiceOrdPtInHosp="&ServiceOrdPtInHospID&",ServiceOrdPtDiagnosis='"&ServiceOrdPtDiagnosis&"',ServiceOrdPtCondition='"&ServiceOrdPtCondition&"',ServiceOrdTaskRemarks='"&ServiceOrdTaskRemarks&"',ServiceOrdPtDoctor='"&ServiceOrdPtDoctor&"',ServiceOrdPtDoctorPhone='"&ServiceOrdPtDoctorPhone&"',ServiceOrdTraProvince='"&ServiceOrdTraProvince&"',ServiceOrdTraCity='"&ServiceOrdTraCity&"',ServiceOrdTraStreet='"&ServiceOrdTraStreet&"',ServiceOrdTraStreetCoo='"&ServiceOrdTraStreetCoo&"',ServiceOrdTraEnd='"&ServiceOrdTraEnd&"',ServiceOrdTraEndCoo='"&ServiceOrdTraEndCoo&"',ServiceOrdTraVia='"&ServiceOrdTraVia&"',ServiceOrdViaDistance='"&ServiceOrdViaDistance&"',ServiceOrdTraDistance='"&ServiceOrdTraDistance&"',ServiceOrdTraDuration='"&ServiceOrdTraDuration&"',ServiceOrdTraUnitPrice="&ServiceOrdTraUnitPrice&",ServiceOrdTraOfferPrice="&ServiceOrdTraOfferPrice&",ServiceOrdTraTxnPrice="&ServiceOrdTraTxnPrice&",ServiceOrdTraPrePayment="&ServiceOrdTraPrePayment&",SettlementPrice="&SettlementPrice&",ServiceOrdTraPriceReason='"&ServiceOrdTraPriceReason&"',ServiceOrd_CC_ID="&ServiceOrd_CC_ID&",ServiceOrd_Sale_ID="&ServiceOrd_Sale_ID&",ServiceOrdIntroducer='"&ServiceOrdIntroducer&"',ServiceOrd_work_ID="&ServiceOrd_work_ID&",ServiceOrd_work_IDs='"&ServiceOrd_work_IDs&"',ServiceOrd_work_is="&ServiceOrd_work_is&",CommissionScenarioID="&CommissionScenarioID&",ServiceOrdUnitID="&ServiceOrdUnitID&""&ServiceOrdSql&",ServiceOrdVIP="&ServiceOrdVIP&SqlVisit&",ServiceOrdOperationRemarks='"&ServiceOrdOperationRemarks&"',ServiceOrdSource="&ServiceOrdSource&",OrderLevel="&OrderLevel&",ServiceOrdDepartureType="&ServiceOrdDepartureType&",ConditionLevel="&ConditionLevel&",DirectionType="&DirectionType&",ServiceOrdPtKG='"&ServiceOrdPtKG&"',FromHQ2_is="&FromHQ2_is&CoSql&ServiceOrdNo_UPSql&" where ServiceOrdID="&ServiceOrdID
+'&",ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")
+'Response.Write sql
+objConn.Execute sql
+
+'淇敼鐩稿叧璋冨害鍗�
+CoSql=""
+If ServiceOrdCoPhone<>"銆愰殣銆�" Then CoSql=",DispatchOrdCoPhone='"&ServiceOrdCoPhone&"'"
+sql="update DispatchOrd set DispatchOrdPerfomance="&ServiceOrdTraTxnPrice&",DispatchOrdCoName='"&ServiceOrdCoName&"',DispatchOrdTraVia='"&ServiceOrdTraVia&"',DispatchOrdTraEnd='"&ServiceOrdTraEnd&"'"&CoSql&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdCoName='"&Old_ServiceOrdCoName&"' and DispatchOrdCoPhone='"&Old_ServiceOrdCoPhone&"' and DispatchOrdTraVia='"&Old_ServiceOrdTraVia&"' and DispatchOrdTraEnd='"&Old_ServiceOrdTraEnd&"' and DispatchOrdPerfomance="&Old_ServiceOrdTraTxnPrice&" and DispatchOrdState not in (10) and ServiceOrdIDDt="&ServiceOrdID
+'Call GetBody("https://api.966120.com.cn/v1/dottmedAPI.php","OrdID="&DispatchOrdID&"&method="&method)
+'Response.Write sql
+objConn.Execute sql
+
+
+'淇敼鐩墠鐥呮儏(鍗曢�夐」绫�)
+sql="select vOrder from dictionary where vType=2 and vtitle='Condition' order by vOrder,vID"
+rs.open sql,objConn,1,1
+If not rs.Eof Then
+ ConditionOrder=rs("vOrder")
+ ConditionID=SafeRequest(Request.form("ConditionID_"&ConditionOrder))
+ If ConditionID<>"" Then
+ sql="delete from ServiceOrd_Condition where ServiceOrdCoID="&ServiceOrdID
+ objConn.Execute sql
+ do while not rs.Eof
+ ConditionOrder=rs("vOrder")
+ ConditionID=SafeRequest(Request.form("ConditionID_"&ConditionOrder))
+ If ConditionID<>"" Then
+ sql="insert into ServiceOrd_Condition (ServiceOrdCoID,ConditionID) values ("&ServiceOrdID&","&ConditionID&")"
+ objConn.Execute sql
+ End If
+ If ConditionID="4" Then
+ sql=" update ServiceOrder set AMV_is=1 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ ElseIf ConditionID="3" Then
+ sql=" update ServiceOrder set AMV_is=0 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+ rs.movenext
+ Loop
+ End If
+End If
+rs.close()
+
+'鍐欏叆璇婃柇ICD
+OrdICD_ID = SafeRequest(Request.form("OrdICD_ID")) '璇婃柇ICD_ID
+OrdICD_ID_old = SafeRequest(Request.form("OrdICD_ID_old"))
+If OrdICD_ID<>OrdICD_ID_old Then
+ sql="delete from ServiceOrder_ICD where ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ If OrdICD_ID<>"" then
+ OrdICD_IDSP = SPLIT(OrdICD_ID,",")
+ for i=1 to ubound(OrdICD_IDSP)-1
+ If OrdICD_IDSP(i)<>"" Then
+ sql="insert into ServiceOrder_ICD (ServiceOrdIDDt,icd_id) values ("&ServiceOrdID&","&OrdICD_IDSP(i)&")"
+ objConn.Execute sql
+ End If
+ Next
+ End If
+End If
+
+'淇敼杞繍鏂瑰紡(澶氶�夐」)
+sql="delete from ServiceOrd_TransferMode where ServiceOrdTMID="&ServiceOrdID
+objConn.Execute sql
+TransferModeIDSP = SPLIT(TransferModeID,", ")
+for i = 0 to UBOUND(TransferModeIDSP)
+ TransferModeID = TransferModeIDSP(i)
+ If TransferModeID<>"" then
+ sql="insert into ServiceOrd_TransferMode (ServiceOrdTMID,TransferModeID) values ("&ServiceOrdID&","&TransferModeID&")"
+ 'Response.Write sql
+ objConn.Execute sql
+ End if
+Next
+
+'鏍搁攢浼樻儬鍒�
+Call CouponUse(ServiceOrdTraPriceReason,ServiceOrdID)
+
+'瀹℃牳鏈嶅姟鍗�(鑷姩瀹℃牳)
+'If ServiceOrd_Check="1" And ServiceOrd_AP_Check="0" Then
+If ServiceOrd_AP_Check="0" Then
+ sql="update ServiceOrder set ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")&" where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ SMT=5
+End If
+
+'鍙嶅鏍告湇鍔″崟
+If ServiceOrd_Check="0" And ServiceOrd_AP_Check="1" Then
+ sql="update ServiceOrder set ServiceOrd_AP_Check=0,ServiceOrd_AP_Time=null,ServiceOrd_AP_ID=null where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ SMT=6
+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)
+If SMT=9 Or (ServiceOrdEstimatedOrderDate="" And ServiceOrdEstimatedOrderDateOld<>"") Then
+ sql="delete from Notification where NC_Name like '%娲惧崟鏃堕棿鎻愰啋銆�' and NC_PageUrl like '%"&ServiceOrdID&"%'"
+ objConn.Execute sql
+ElseIf ServiceOrdEstimatedOrderDate<>"" And ServiceOrdEstimatedOrderDateOld<>ServiceOrdEstimatedOrderDate Then
+ sql="delete from Notification where NC_Name like '%娲惧崟鏃堕棿鎻愰啋銆�' and NC_PageUrl like '%"&ServiceOrdID&"%'"
+ objConn.Execute sql
+ NC_OAID="78"
+ NC_Name="銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�"
+ NC_Content="鏈嶅姟鍗�:"&ServiceOrdNo&",宸插埌棰勫畾鐨勬淳鍗曟椂闂�,璇峰嵆鏃跺鐞�"
+ NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+ NC_PageUrlM=ServiceOrdEstimatedOrderDate
+ Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
+End If
+
+session("Origin")=""
+If ServiceOrdState="2" And ServiceOrd_m="1" Then
+ ReturnURL="m_DispatchOrder.gds?ServiceOrdID="&ServiceOrdID&"&NEWOrder=3&Perfomance="&Perfomance&"&Stretcher="&Stretcher
+ElseIf ServiceOrd_m="1" Then
+ ReturnURL="m_DispatchOrder.gds?ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
+Else
+ ReturnURL="ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&h_menu1_1="&session("h_menu1_1")
+End If
+Call OA_Running("淇敼鏈嶅姟鍗�"&EditDataForm&":"&ServiceOrdID)
+objConn.Execute "exec OrdDataUP "&ServiceOrdID
+rsRollbackTrans(objConn.Errors.count)
+
+'绗笁鏂瑰钩鍙版暟鎹洿鏂�
+Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)
+
+'鍐欏叆鐩稿叧閿�鍞汉鍛橀�氱煡(鏆傚仠鎺ㄩ��2020.9.17)
+If ServiceOrdPtOutHospID_New<>"0" And ServiceOrdPtInHospID_New<>"0" And OrderLevel<>"1" And (cstr(Old_ServiceOrdPtOutHospID)<>cstr(ServiceOrdPtOutHospID_New) Or cstr(Old_ServiceOrdPtInHospID)<>cstr(ServiceOrdPtInHospID_New)) And 1=2 Then
+ %>
+ <!--#include virtual="/weixin/JsonPost_1000006.gds"-->
+ <%
+ touser=""
+ sql="SELECT STUFF((select ',' + HospOAID from HospData where HospID in ("&ServiceOrdPtOutHospID_New&","&ServiceOrdPtInHospID_New&") and HospOAID<>'' and HospOAID is not null FOR XML PATH('')), 1, 1, '')"
+ rs.open sql,objConn,1,1
+ HospOAIDs=rs(0)
+ rs.close()
+
+
+ If not isnull(HospOAIDs) Then
+ HospOAIDPS = SPLIT(HospOAIDs,",")
+ HospOAIDs=""
+ for z = 0 to UBOUND(HospOAIDPS)
+ If HospOAIDPS(z)<>"" Then
+ HospOAIDs=HospOAIDs&","&HospOAIDPS(z)
+ End If
+ Next
+ If HospOAIDs<>"" Then HospOAIDs=Mid(HospOAIDs,2)
+ touser = ""
+ If HospOAIDs<>"" Then
+ sql="select OA_weixinUserID,OA_Name from OA_User where OA_execLevel>=0 and OA_User_ID in ("&HospOAIDs&")"
+ rs.open sql,objConn,1,1
+ do while not rs.Eof
+ touser = touser&"|"&rs("OA_weixinUserID")
+ MessageName=MessageName&"銆�"&rs("OA_Name")
+ rs.movenext
+ loop
+ rs.close()
+ If touser<>"" Then
+ touser=Mid(touser,2)
+ MessageName=Mid(MessageName,2)
+ End If
+ End If
+ 'touser="ylkx_vicgame"
+ If touser<>"" Then
+ '璁㈠崟鐣欒█
+ MessageContents="璁㈠崟鎺ㄩ�佺粰"&MessageName
+ sql="insert into ServiceOrd_Message (ServiceOrdIDDt,MessageContents,MessageOAid) values ("&ServiceOrdID&",'"&MessageContents&"',"&session("adminID")&")"
+ objConn.Execute sql
+
+ '寰俊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," '浼佷笟搴旂敤鐨刬d锛屾暣鍨嬨�傚彲鍦ㄥ簲鐢ㄧ殑璁剧疆椤甸潰鏌ョ湅
+ args1=args1&"""msgtype"": ""news"","
+ args1=args1&"""news"": {"
+ args1=args1&"""articles"":["
+ args1=args1&"{"
+ args1=args1&"""title"": ""銆愭柊鏈嶅姟鍗曘��"&ServiceOrdNo&""","
+ args1=args1&"""description"": """
+ If ServiceOrdApptDate<>"" Then args1=args1&"棰勭害鏃堕棿锛�"&ServiceOrdApptDate&"\n"
+ If ServiceOrdPtInHosp="瀹朵腑" Then ServiceOrdPtInHosp=ServiceOrdTraEnd
+ args1=args1&"鍑哄彂鍦帮細"&ServiceOrdPtOutHosp&"\n鐩殑鍦帮細"&ServiceOrdPtInHosp&"锛堢害"&ServiceOrdTraDistance&"锛�"","
+ args1=args1&"""url"": """&WEBURL&"/m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&OrdEdit=NO"","
+ args1=args1&"""picurl"": """""
+ args1=args1&"}"
+ args1=args1&"]"
+ args1=args1&"}"
+ args1=args1&"}"
+ call PostBody(appUrl,args1)
+ End If
+ End If
+End If
+
+
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT
+Response.End
+%>
\ No newline at end of file
diff --git a/admin_save_24.asp b/admin_save_24.asp
new file mode 100644
index 0000000..13febee
--- /dev/null
+++ b/admin_save_24.asp
@@ -0,0 +1,435 @@
+<%
+Set rs = Server.CreateObject("ADODB.Recordset")
+DispatchOrdClass = SafeRequest(Request.form("DispatchOrdClass")) '鍗曟嵁绫诲瀷
+ServiceOrdID = SafeRequest(Request.form("ServiceOrdID")) '瀵瑰簲鏈嶅姟鍗曞彿
+DispatchOrdState = SafeRequest(Request.form("DispatchOrdState")) '璋冨害鍗曠姸鎬�
+DispatchOrdTraSDTime = SafeRequest(Request.form("DispatchOrdTraSDTime")) '鎷熷嚭鍙戞椂闂�
+DispatchOrdCarID = SafeRequest(Request.form("DispatchOrdCarID")) '娲鹃仯杞﹁締ID
+DispatchOrdCoName = SafeRequest(Request.form("DispatchOrdCoName")) '璋冨害鑱旂郴浜哄鍚�
+DispatchOrdCoPhone = SafeRequest(Request.form("DispatchOrdCoPhone")) '璋冨害鑱旂郴浜虹數璇�
+ServiceOrdCoName = SafeRequest(Request.form("ServiceOrdCoName")) '鑱旂郴浜哄鍚�
+ServiceOrdCoPhone = StrTrim(SafeRequest(Request.form("ServiceOrdCoPhone"))) '鑱旂郴浜虹數璇�
+DispatchOrdTraStreet = SafeRequest(Request.form("DispatchOrdTraStreet")) '瀹為檯鍑哄彂鍦�
+DispatchOrdTraEnd = SafeRequest(Request.form("DispatchOrdTraEnd")) '瀹為檯鐩殑鍦�
+DispatchOrdTraVia = SafeRequest(Request.form("DispatchOrdTraVia")) '瀹為檯閫旂粡鍦�
+DispatchOrd_Check = SafeRequest(Request.form("DispatchOrd_Check")) '涓嬪彂/瀹℃牳鍛戒护(0鍙嶅鏍�,1瀹℃牳,2涓嬪彂寰俊,3鐩存帴寮哄埗瀹屾垚)
+DispatchOrd_NS_Time = SafeRequest(Request.form("DispatchOrd_NS_Time")) '寮�鍗曟椂闂�
+
+DispatchOrdPerfomance = SafeRequest(Request.form("DispatchOrdPerfomance")) '璁㈠崟缁╂晥
+StretcherMoney = SafeRequest(Request.form("StretcherMoney")) '鎷呮灦璐�
+AddMoneyType = SafeRequest(Request.form("AddMoneyType")) '闄勫姞椤圭洰
+AddMoney = SafeRequest(Request.form("AddMoney")) '闄勫姞椤圭洰璐圭敤
+AddMoneyExplain = SafeRequest(Request.form("AddMoneyExplain")) '闄勫姞椤圭洰璇存槑
+
+EntourageName_aid1 = SafeRequest(Request.form("EntourageName_aid1")) '澶栨彺浜哄憳1
+EntourageName_aid2 = SafeRequest(Request.form("EntourageName_aid2")) '澶栨彺浜哄憳2
+DispatchOrd_NS_ID = SafeRequest(Request.form("DispatchOrd_NS_ID")) '璋冨害浜哄憳ID
+RecommendedCar = SafeRequest(Request.form("RecommendedCar")) '鎸囧畾杞﹀瀷
+DispatchOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '鍖绘姢鍙稿娉�
+
+'Phone
+TEL_Phone = SafeRequest(Request.form("Phone")) '鏉ョ數鐢佃瘽
+TEL_Time = SafeRequest(Request.form("TEL_Time")) '鏉ョ數鏃堕棿
+TEL_Remarks = SafeRequest(Request.form("TEL_Remarks")) '鏉ョ數澶囨敞
+
+TimeLength_Program = SafeRequest(Request.form("TimeLength_Program")) '澶у瀷娲诲姩淇濋殰鏃堕暱
+TimeLength_ICU = SafeRequest(Request.form("TimeLength_ICU")) '灞呭ICU鏃堕暱
+TimeLength_Wait = SafeRequest(Request.form("TimeLength_Wait")) '绛夊緟鏃堕暱
+
+DispatchOrdTraStreetMileage = SafeRequest(request("DispatchOrdTraStreetMileage")) '寮�濮嬮噷绋嬫暟
+DispatchOrdTraEndMileage = SafeRequest(request("DispatchOrdTraEndMileage")) '缁撴潫閲岀▼鏁�
+
+If DispatchOrdClass="" Then DispatchOrdClass="SA"
+If DispatchOrdCoName="" Then DispatchOrdCoName=ServiceOrdCoName
+If DispatchOrdCoPhone="" Then DispatchOrdCoPhone=ServiceOrdCoPhone
+If DispatchOrdCarID="" Then DispatchOrdCarID=0
+If DispatchOrd_NS_ID="" Then DispatchOrd_NS_ID=session("adminID")
+If DispatchOrdPerfomance="" Or not IsNumeric(DispatchOrdPerfomance) Then DispatchOrdPerfomance=0
+If StretcherMoney="" Then StretcherMoney=0
+If AddMoney="" Or Not isnumeric(AddMoney) Then AddMoney=0
+If TimeLength_Program="" Then TimeLength_Program=0
+If TimeLength_ICU="" Then TimeLength_ICU=0
+If TimeLength_Wait="" Then TimeLength_Wait=0
+If DispatchOrd_NS_Time="" Then DispatchOrd_NS_Time=Now()
+If AddMoneyType<>"" And AddMoneyType<>"0" And AddMoney>0 Then StretcherMoney=AddMoney
+
+'鏁版嵁涓嶅畬鏁�
+error=","
+'If DispatchOrdCarID="0" Then error=error&"DispatchOrdCarLicense,"
+If DispatchOrdCoName="" And DispatchOrdClass<>"SP" Then error=error&"DispatchOrdCoName,"
+If DispatchOrdCoPhone="" And DispatchOrdClass<>"SP" And DispatchOrd_Check<>"3" Then error=error&"DispatchOrdCoPhone,"
+If DispatchOrdTraSDTime="" And DispatchOrdClass="SP" Then error=error&"DispatchOrdTraSDTime,"
+'If Len(error)>2 Then Response.Redirect "/DispatchOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=4&error="&error
+
+'楠岃瘉鏈嶅姟鍗曟槸鍚︽纭�
+If ServiceOrdID<>"" Then
+ sql="select top 1 ServiceOrdID,ServiceOrdUnitID,ServiceOrdCoName,ServiceOrdCoPhone from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If rs.eof Then
+ Response.Redirect "/DispatchOrder.gds?SystemMessageType=4&SMT=1"
+ Else
+ ServiceOrdUnitID=rs("ServiceOrdUnitID")
+ If DispatchOrdCoName="銆愰殣銆�" Then DispatchOrdCoName=rs("ServiceOrdCoName")
+ If DispatchOrdCoPhone="銆愰殣銆�" Then DispatchOrdCoPhone=rs("ServiceOrdCoPhone")
+ End If
+ rs.close()
+End If
+
+'楠岃瘉鏄惁閲嶅鐢熸垚
+If ServiceOrdID<>"" And DispatchOrd_Check="3" Then
+ sql="select DispatchOrdID from DispatchOrd where DispatchOrdState not in (10) and ServiceOrdIDDt="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ Response.Redirect "/m_DispatchOrder.gds?DispatchOrdID="&rs("DispatchOrdID")
+ End If
+ rs.close()
+End If
+
+'楠岃瘉缁╂晥璁′环鏄惁姝ｇ‘
+If DispatchOrdPerfomance=0 And ServiceOrdID<>"" Then
+ sql="select DispatchOrdID from DispatchOrd where DispatchOrdState<>10 and ServiceOrdIDDt="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If rs.eof Then
+ ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '鎴愪氦浠�
+ If ServiceOrdTraTxnPrice="" Or ServiceOrdTraTxnPrice="0" Then ServiceOrdTraTxnPrice=1
+ If InStr(ServiceOrdTraTxnPrice,",")>0 Then ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","")
+ DispatchOrdPerfomance=ServiceOrdTraTxnPrice
+ End If
+ rs.close()
+End If
+
+'楠岃瘉鏈夋病閲嶅鎻愪氦
+sql="select DispatchOrdID from DispatchOrd where DispatchOrdCoPhone='"&DispatchOrdCoPhone&"' and DispatchOrd_NS_Time='"&DispatchOrd_NS_Time&"'"
+rs.open sql,objConn,1,1
+if not rs.eof Then
+ Response.Redirect "/DispatchOrder.gds?SystemMessageType=4&SMT=2&DispatchOrdID="&rs(0)
+End if
+rs.close()
+
+'鐣欒█淇濆瓨
+MessageContents = SafeRequest(request("MessageContents_form1"))
+If MessageContents<>"" And ServiceOrdID<>"" Then
+ sql="insert into ServiceOrd_Message (ServiceOrdIDDt,MessageContents,MessageOAid) values ("&ServiceOrdID&",'"&MessageContents&"',"&session("adminID")&")"
+ objConn.Execute sql
+End If
+
+'鏂拌皟搴﹀崟搴忓彿
+sql="select top 1 DispatchOrdNo from DispatchOrd where CONVERT(VARCHAR(10),DispatchOrd_NS_Time,120)=CONVERT(VARCHAR(10),GETDATE(),120) and DispatchOrdClass='"&DispatchOrdClass&"' order by DispatchOrdNo desc"
+rs.open sql,objConn,1,1
+If not rs.Eof Then
+ DispatchOrdNo=rs(0)+1
+Else
+ DispatchOrdNo=1
+End if
+rs.close()
+
+'鍐欏叆鏂拌皟搴﹀崟
+sql="insert into DispatchOrd (DispatchOrdClass,DispatchOrdStartDate,DispatchOrdCarID,DispatchOrdTraStreet,DispatchOrdTraEnd,DispatchOrdTraVia,DispatchOrdCoName,DispatchOrdCoPhone,DispatchOrd_NS_ID,DispatchOrd_NS_Time,EntourageName_aid1,EntourageName_aid2,DispatchOrdNo,DispatchOrdPerfomance,RecommendedCar,StretcherMoney,TimeLength_Program,TimeLength_ICU,TimeLength_Wait,DispatchOrdTaskRemarks) values ('"&DispatchOrdClass&"','"&DispatchOrd_NS_Time&"',"&DispatchOrdCarID&",'"&DispatchOrdTraStreet&"','"&DispatchOrdTraEnd&"','"&DispatchOrdTraVia&"','"&DispatchOrdCoName&"','"&DispatchOrdCoPhone&"',"&DispatchOrd_NS_ID&",'"&DispatchOrd_NS_Time&"','"&EntourageName_aid1&"','"&EntourageName_aid2&"',"&DispatchOrdNo&","&DispatchOrdPerfomance&",'"&RecommendedCar&"',"&StretcherMoney&","&TimeLength_Program&","&TimeLength_ICU&","&TimeLength_Wait&",'"&DispatchOrdTaskRemarks&"')"
+objConn.Execute sql
+sql="select top 1 DispatchOrdID from DispatchOrd where DispatchOrdStartDate='"&DispatchOrd_NS_Time&"' order by DispatchOrdID desc"
+rs.open sql,objConn,1,1
+DispatchOrdID = rs(0)
+rs.close()
+If DispatchOrdTraSDTime<>"" Then
+sql="update DispatchOrd set DispatchOrdTraSDTime='"&DispatchOrdTraSDTime&"' where DispatchOrdID="&DispatchOrdID
+objConn.Execute sql
+End If
+
+'鍐欏叆闄勫姞椤圭洰璐圭敤
+If AddMoneyType<>"" And AddMoneyType<>"0" And AddMoney>0 And StretcherMoney>0 Then
+ If ServiceOrdID="" Then
+ ToServiceOrdID=0
+ Else
+ ToServiceOrdID=ServiceOrdID
+ End If
+ sql="insert into PaidMoney_Add (ToServiceOrdID,ToDispatchOrdID,AddMoneyType,AddMoney,AddMoneyExplain,AddMoneyOAID) values ("&ToServiceOrdID&","&DispatchOrdID&","&AddMoneyType&","&AddMoney&",'"&AddMoneyExplain&"',"&session("adminID")&")"
+ objConn.Execute sql
+ Call OA_Running("淇敼璋冨害鍗�:"&DispatchOrdID&" 鏂板闄勫姞璐圭敤閲戦:"&AddMoney)
+End If
+
+'鍐欏叆闅忚浜哄憳
+EntourageLeadID = SafeRequest(Request.form("EntourageLeadID")) '棰嗛槦ID
+sql="select vID from dictionary where vType=1 and vtitle='DispatchOrdEntourage' order by vOrder"
+rs.open sql,objConn,1,1
+do while not rs.Eof
+ EntourageID = rs("vID")
+ EntourageOAid=SafeRequest(Request.form("Entourage_"&EntourageID))
+ EntourageOT_is = SafeRequest(Request("EntourageOT_is_"&EntourageID)) '鍔犵彮鍑鸿溅
+ EntourageOT2_is = SafeRequest(Request("EntourageOT2_is_"&EntourageID)) '鍔犵彮鍑鸿溅2
+ EntourageBetimesHH = SafeRequest(Request("EntourageBetimesHH_"&EntourageID)) '鎻愬墠鍑鸿溅N灏忔椂
+ EntourageLong_is = SafeRequest(Request("EntourageLong_is_"&EntourageID)) '璺熻溅
+ Stretcher_is = SafeRequest(Request("Stretcher_is_"&EntourageID)) '鎶媴鏋�
+ If EntourageOT_is="" Then EntourageOT_is=0
+ If EntourageOT2_is="" Then EntourageOT2_is=0
+ If EntourageBetimesHH="" Then EntourageBetimesHH=0
+ If EntourageLong_is="" Then EntourageLong_is=0
+ If Stretcher_is="" Then Stretcher_is=0
+ If EntourageOT_is<>0 Or EntourageOT2_is<>0 Or EntourageBetimesHH>0 Then
+ Check_is=0
+ Else
+ Check_is=1
+ End If
+ If EntourageLeadID="" And DispatchOrd_Check="3" And CStr(EntourageOAid)=CStr(session("adminID")) Then EntourageLeadID=EntourageID
+ If EntourageOAid<>"" And EntourageOAid<>"0" Then
+ EntourageLead=0
+ If CStr(EntourageLeadID)=CStr(EntourageID) Then EntourageLead=1
+ sql="insert into DispatchOrd_Entourage (DispatchOrdIDDt,EntourageID,EntourageOAid,EntourageLead,EntourageOT_is,EntourageOT2_is,EntourageBetimesHH,EntourageLong_is,Check_is,Stretcher_is,Entourage_Time) values ("&DispatchOrdID&","&EntourageID&","&EntourageOAid&","&EntourageLead&","&EntourageOT_is&","&EntourageOT2_is&","&EntourageBetimesHH&","&EntourageLong_is&","&Check_is&","&Stretcher_is&",'"&DispatchOrd_NS_Time&"')"
+ objConn.Execute sql
+ If EntourageLead=1 Then
+ sql="update DispatchOrd set DispatchEmployeeGroup=(select top 1 OA_EmployeeGroup from OA_User where OA_User_ID="&EntourageOAid&") where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ End If
+ End if
+rs.movenext
+loop
+rs.close()
+
+
+'鍐欏叆鐢佃瘽璁板綍
+If TEL_Phone<>"" then
+ sql="select CallRecordID from CallRecord where CallRecord_Phine='"&TEL_Phone&"' and CallRecord_StartTime between dateadd(Ss,-10,'"&TEL_Time&"') and dateadd(Ss,10,'"&TEL_Time&"')"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update CallRecord set CallRecord_OAUserID="&session("adminID")&",CallRecord_EndTime=getdate(),CallRecord_OrdClass='"&ServiceOrdClass&"',CallRecord_OrdID="&ServiceOrdID&",CallRecord_Record='"&TEL_Remarks&"' where CallRecordID="&rs(0)
+ objConn.Execute sql
+ Else
+ sql="insert into CallRecord (CallRecord_Phine,CallRecord_OAUserID,CallRecord_StartTime,CallRecord_EndTime,CallRecord_Type,CallRecord_OrdClass,CallRecord_OrdID,CallRecord_Record) values ('"&TEL_Phone&"',"&session("adminID")&",'"&TEL_Time&"',getdate(),1,'"&ServiceOrdClass&"',"&ServiceOrdID&",'"&TEL_Remarks&"')"
+ objConn.Execute sql
+ End if
+ rs.close()
+End If
+
+If ServiceOrdID<>"" And DispatchOrd_Check<>"3" Then
+ ServiceOrdPtCondition = SafeRequest(Request.form("ServiceOrdPtCondition")) '鐥呮儏鎻忚堪
+ ServiceOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '鍖绘姢鍙稿娉�
+ ServiceOrdPtDoctor = SafeRequest(Request.form("ServiceOrdPtDoctor")) '鎮ｈ�呭尰鐢�
+ ServiceOrdPtDoctorPhone = SafeRequest(Request.form("ServiceOrdPtDoctorPhone")) '鎮ｈ�呭尰鐢熺數璇�
+ TransferModeID = SafeRequest(Request.form("TransferModeID")) '杞繍鏂瑰紡
+ ServiceOrdVIP = SafeRequest(Request.form("ServiceOrdVIP")) 'VIP瀹㈡埛
+ ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '鎴愪氦浠�
+ ServiceOrdTraPrePayment = SafeRequest(Request.form("ServiceOrdTraPrePayment")) '闇�棰勪粯娆�
+ SettlementPrice = SafeRequest(Request.form("SettlementPrice")) '缁撶畻浠�
+ ServiceOrdTraPriceReason= SafeRequest(Request.form("ServiceOrdTraPriceReason")) '宸环鍘熷洜
+ ServiceOrd_CC_ID = SafeRequest(Request.form("ServiceOrd_CC_ID")) '瀹㈡湇浜哄憳ID
+ ServiceOrd_Sale_ID = SafeRequest(Request.form("ServiceOrd_Sale_ID")) '閿�鍞汉鍛業D
+ ServiceOrdIntroducer = SafeRequest(Request.form("ServiceOrdIntroducer")) '浠嬬粛浜�
+ ServiceOrd_work_ID = SafeRequest(Request.form("ServiceOrd_work_ID")) '涓昏浼佸井瀹㈡湇ID
+ ServiceOrd_work_IDs = SafeRequest(Request.form("ServiceOrd_work_IDs")) '鍏朵粬浼佸井瀹㈡湇ID
+ ServiceOrd_work_is = SafeRequest(request.form("ServiceOrd_work_is")) '鏄惁浼佸井鎴愪氦
+ CommissionScenarioID = SafeRequest(request.form("CommissionScenarioID")) '浼佸井缁╂晥鏂规
+ ServiceOrdApptDate = SafeRequest(Request.form("ServiceOrdApptDate")) '棰勭害鏃堕棿
+ ServiceOrdPtDiagnosis = SafeRequest(Request.form("ServiceOrdPtDiagnosis")) '璇婃柇
+ ServiceOrdOperationRemarks=SafeRequest(Request.form("ServiceOrdOperationRemarks")) '鎿嶄綔澶囨敞
+ ServiceOrdEstimatedOrderDate=SafeRequest(Request.form("ServiceOrdEstimatedOrderDate")) '棰勮娲惧崟鏃堕棿
+ ServiceOrdEstimatedOrderDateOld=SafeRequest(Request.form("ServiceOrdEstimatedOrderDateOld")) '鍘熼璁℃淳鍗曟椂闂�
+ ServiceOrdViaDistance = SafeRequest(Request.form("ServiceOrdViaDistance")) '涓�旇窛绂�
+ ServiceOrdTraDistance = SafeRequest(Request.form("ServiceOrdTraDistance")) '璺濈
+ OrderLevel = SafeRequest(Request.form("OrderLevel")) '鏌ョ湅绛夌骇
+ ServiceOrdDepartureType = SafeRequest(Request.form("ServiceOrdDepartureType")) '棰勭害绫诲瀷
+ ConditionLevel = SafeRequest(Request.form("ConditionLevel")) '鐥呴噸绾у埆
+ DirectionType = SafeRequest(Request.form("DirectionType")) '杞繍鍘诲悜
+ ServiceOrdPtOutHospID_New=SafeRequest(Request.form("ServiceOrdPtOutHospID")) '杞嚭鍖婚櫌ID
+ ServiceOrdPtInHospID_New= SafeRequest(Request.form("ServiceOrdPtInHospID")) '杞叆鍖婚櫌ID
+ ServiceOrdPtOutHosp = SafeRequest(Request.form("ServiceOrdPtOutHosp")) '杞嚭鍖婚櫌
+ ServiceOrdTraVia = SafeRequest(Request.form("ServiceOrdTraVia")) '杞嚭鍦板潃
+ ServiceOrdPtInHosp = SafeRequest(Request.form("ServiceOrdPtInHosp")) '杞叆鍖婚櫌
+ ServiceOrdTraEnd = SafeRequest(Request.form("ServiceOrdTraEnd")) '杞叆鍦板潃
+ FromHQ2_is = SafeRequest(Request.form("FromHQ2_is")) '骞垮窞鎬婚儴鎺ㄩ�佷换鍔℃爣璁�
+
+ If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
+ If ServiceOrdTraPrePayment="" Then ServiceOrdTraPrePayment=0
+ If SettlementPrice="" Then SettlementPrice=0
+ If ServiceOrd_Sale_ID="" Then ServiceOrd_Sale_ID="null"
+ If ServiceOrd_work_ID="" Then ServiceOrd_work_ID="null"
+ If ServiceOrd_work_is="" Then ServiceOrd_work_is=0
+ If CommissionScenarioID="" Then CommissionScenarioID=0
+ If ServiceOrd_CC_ID="" Then ServiceOrd_CC_ID="ServiceOrd_CC_ID"
+ If ServiceOrdVIP="" Then ServiceOrdVIP=0
+ If InStr(ServiceOrdTraTxnPrice,",")>0 Then ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","")
+ If InStr(ServiceOrdTraPrePayment,",")>0 Then ServiceOrdTraPrePayment=Replace(ServiceOrdTraPrePayment,",","")
+ If InStr(SettlementPrice,",")>0 Then SettlementPrice=Replace(SettlementPrice,",","")
+ If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","")
+ If ServiceOrdViaDistance<>"" And OrderLevel="2" Then
+ ServiceOrdViaDistance = Replace(ServiceOrdViaDistance,"鍏噷","")
+ If ServiceOrdViaDistance="" Or Not isnumeric(ServiceOrdViaDistance) Then ServiceOrdViaDistance="0"
+ ServiceOrdViaDistance = ServiceOrdViaDistance&"鍏噷"
+ Else
+ ServiceOrdViaDistance="0"
+ End If
+ ServiceOrdTraDistance = Replace(ServiceOrdTraDistance,"鍏噷","")
+ If ServiceOrdTraDistance="" Or Not isnumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance="0"
+ If ServiceOrdTraDistance="0" Then error=error&"ServiceOrdTraDistance,"
+ ServiceOrdTraDistance = ServiceOrdTraDistance&"鍏噷"
+ If OrderLevel="" Then OrderLevel=0
+ If ServiceOrdDepartureType="" Then ServiceOrdDepartureType=1
+ If ConditionLevel="" Then ConditionLevel=0
+ If DirectionType="" Then DirectionType=0
+ If ServiceOrdPtOutHospID_New="" Then ServiceOrdPtOutHospID_New=0
+ If ServiceOrdPtInHospID_New="" Then ServiceOrdPtInHospID_New=0
+ If FromHQ2_is="" Then FromHQ2_is=0
+
+ '楠岃瘉鍗曟嵁ID鏄惁姝ｇ‘
+ sql="select ServiceOrdID,ServiceOrdState,ServiceOrd_AP_Check,ServiceOrdUnitID,ServiceOrdClass,ServiceOrd_CC_Time,ServiceOrdNo from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ if rs.eof Then
+ session("Origin")=""
+ Response.Redirect "/ServiceOrder.gds?SystemMessageType=4&SMT=1&Phone&="&TEL_Phone
+ Else
+ ServiceOrd_AP_Check=rs("ServiceOrd_AP_Check")
+ Old_ServiceOrdState=rs("ServiceOrdState")
+ ServiceOrdUnitID=rs("ServiceOrdUnitID")
+ ServiceOrdClass=rs("ServiceOrdClass")
+ ServiceOrd_CC_Time=rs("ServiceOrd_CC_Time")
+ ServiceOrdNo=rs("ServiceOrdNo")
+ End if
+ rs.close()
+
+ '鍏宠仈鏈嶅姟鍗�
+ sql="update DispatchOrd set ServiceOrdIDDt="&ServiceOrdID&" where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+
+ '鏌ユ壘鍚堜綔鍗曚綅ID
+ ServiceOrdUnitSql=",ServiceOrdUnitID=0"
+ If ServiceOrdIntroducer<>"" And IsNumeric(ServiceOrdIntroducer) Then
+ sql="select IntroducerID,IntroducerName,IntroducerUnitID from IntroducerData where IntroducerUnitID<>'' and IntroducerID="&ServiceOrdIntroducer
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdUnitSql=",ServiceOrdUnitID="&rs("IntroducerUnitID")
+ End If
+ rs.close()
+ End If
+
+ '淇敼涓昏瘖鍖荤敓,鎴愪氦浠风瓑璧勬枡(鏈嶅姟鍗�)
+ sql="update ServiceOrder set ServiceOrdPtCondition='"&ServiceOrdPtCondition&"',ServiceOrdTaskRemarks='"&ServiceOrdTaskRemarks&"',ServiceOrdPtDoctor='"&ServiceOrdPtDoctor&"',ServiceOrdPtDoctorPhone='"&ServiceOrdPtDoctorPhone&"',ServiceOrdTraTxnPrice="&ServiceOrdTraTxnPrice&",ServiceOrdTraPrePayment="&ServiceOrdTraPrePayment&",SettlementPrice="&SettlementPrice&",ServiceOrdTraPriceReason='"&ServiceOrdTraPriceReason&"',ServiceOrdState=3,ServiceOrdStartDate=getdate(),ServiceOrd_CC_ID="&ServiceOrd_CC_ID&",ServiceOrd_Sale_ID="&ServiceOrd_Sale_ID&",ServiceOrdIntroducer='"&ServiceOrdIntroducer&"',ServiceOrd_work_ID="&ServiceOrd_work_ID&",ServiceOrd_work_IDs='"&ServiceOrd_work_IDs&"',ServiceOrd_work_is="&ServiceOrd_work_is&",CommissionScenarioID="&CommissionScenarioID&ServiceOrdUnitSql&",ServiceOrdApptDate='"&ServiceOrdApptDate&"',ServiceOrdVIP="&ServiceOrdVIP&",ServiceOrdPtDiagnosis='"&ServiceOrdPtDiagnosis&"',ServiceOrdOperationRemarks='"&ServiceOrdOperationRemarks&"',ServiceOrdViaDistance='"&ServiceOrdViaDistance&"',ServiceOrdTraDistance='"&ServiceOrdTraDistance&"',ServiceOrdEstimatedOrderDate='"&ServiceOrdEstimatedOrderDate&"',OrderLevel="&OrderLevel&",ServiceOrdDepartureType="&ServiceOrdDepartureType&",ConditionLevel="&ConditionLevel&",DirectionType="&DirectionType&",FromHQ2_is="&FromHQ2_is&" where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+
+ '淇敼鐩墠鐥呮儏(鍗曢�夐」绫�)
+ sql="delete from ServiceOrd_Condition where ServiceOrdCoID="&ServiceOrdID
+ objConn.Execute sql
+ sql="select vOrder from dictionary where vType=2 and vtitle='Condition' order by vOrder,vID"
+ rs.open sql,objConn,1,1
+ do while not rs.Eof
+ ConditionOrder=rs("vOrder")
+ ConditionID=SafeRequest(Request.form("ConditionID_"&ConditionOrder))
+ If ConditionID<>"" Then
+ sql="insert into ServiceOrd_Condition (ServiceOrdCoID,ConditionID) values ("&ServiceOrdID&","&ConditionID&")"
+ objConn.Execute sql
+ End If
+ If ConditionID="4" Then
+ sql=" update ServiceOrder set AMV_is=1 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ ElseIf ConditionID="3" Then
+ sql=" update ServiceOrder set AMV_is=0 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+ rs.movenext
+ loop
+ rs.close()
+
+ '鍐欏叆璇婃柇ICD
+ OrdICD_ID = SafeRequest(Request.form("OrdICD_ID")) '璇婃柇ICD_ID
+ OrdICD_ID_old = SafeRequest(Request.form("OrdICD_ID_old"))
+ If OrdICD_ID<>OrdICD_ID_old Then
+ sql="delete from ServiceOrder_ICD where ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ If OrdICD_ID<>"" then
+ OrdICD_IDSP = SPLIT(OrdICD_ID,",")
+ for i=1 to ubound(OrdICD_IDSP)-1
+ If OrdICD_IDSP(i)<>"" Then
+ sql="insert into ServiceOrder_ICD (ServiceOrdIDDt,icd_id) values ("&ServiceOrdID&","&OrdICD_IDSP(i)&")"
+ objConn.Execute sql
+ End If
+ Next
+ End If
+ End If
+
+ '淇敼杞繍鏂瑰紡(澶氶�夐」)
+ sql="delete from ServiceOrd_TransferMode where ServiceOrdTMID="&ServiceOrdID
+ objConn.Execute sql
+ TransferModeIDSP = SPLIT(TransferModeID,", ")
+ for i = 0 to UBOUND(TransferModeIDSP)
+ TransferModeID = TransferModeIDSP(i)
+ If TransferModeID<>"" then
+ sql="insert into ServiceOrd_TransferMode (ServiceOrdTMID,TransferModeID) values ("&ServiceOrdID&","&TransferModeID&")"
+ objConn.Execute sql
+ End if
+ Next
+
+ '鏍搁攢浼樻儬鍒�
+ Call CouponUse(ServiceOrdTraPriceReason,ServiceOrdID)
+
+ '鍐欏叆棰勮娲惧崟鏃堕棿閫氱煡
+ ServiceOrdNo = ServiceOrdClass& year(ServiceOrd_CC_Time)&Right("0"&month(ServiceOrd_CC_Time),2)&Right("0"&day(ServiceOrd_CC_Time),2) & "-"&Right("00"&ServiceOrdNo,3)
+ If SMT=9 Or (ServiceOrdEstimatedOrderDate="" And ServiceOrdEstimatedOrderDateOld<>"") Then
+ sql="delete from Notification where NC_Name='銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�'"
+ objConn.Execute sql
+ ElseIf ServiceOrdEstimatedOrderDate<>"" And ServiceOrdEstimatedOrderDateOld<>ServiceOrdEstimatedOrderDate Then
+ sql="delete from Notification where NC_Name='銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�'"
+ objConn.Execute sql
+ NC_OAID="78"
+ NC_Name="銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�"
+ NC_Content="鏈嶅姟鍗�:"&ServiceOrdNo&",宸插埌棰勫畾鐨勬淳鍗曟椂闂�,璇峰嵆鏃跺鐞�"
+ NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+ NC_PageUrlM=ServiceOrdEstimatedOrderDate
+ Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
+ End If
+ '鍏宠仈璐圭敤鍗�
+ sql="update PaidMoney set DispatchOrdIDDt="&DispatchOrdID&" where ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ElseIf ServiceOrdID<>"" And DispatchOrd_Check="3" Then
+ '鍏宠仈鏈嶅姟鍗�
+ sql="update DispatchOrd set ServiceOrdIDDt="&ServiceOrdID&" where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ sql="update ServiceOrder set ServiceOrdState=3,ServiceOrdStartDate=getdate() where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ sql="update ServiceOrder set ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")&" where ServiceOrdID="&ServiceOrdID&" and ServiceOrd_AP_Check=0"
+ objConn.Execute sql
+ '鍏宠仈璐圭敤鍗�
+ sql="update PaidMoney set DispatchOrdIDDt="&DispatchOrdID&" where ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+End If
+
+'涓嬪彂寰俊
+If DispatchOrd_Check="2" And Len(error)<2 Then
+ session("JsonKey")="1"
+ '寰俊棣栨涓嬪彂鏃堕棿
+ sql="update DispatchOrd set DispatchOrdWeixinDate=getdate() where DispatchOrdWeixinDate is null and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ ReturnURL="/weixin/message_send_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ Call OA_Running("涓嬪彂璋冨害鍗�:"&DispatchOrdID)
+'寮哄埗瀹屾垚
+ElseIf DispatchOrd_Check="3" And Len(error)<2 Then
+ ActualSql=",DispatchOrdActualDate=getdate()"
+ sql="update DispatchOrd_Entourage set EntourageState=3,EntourageState_Time=GETDATE() where DispatchOrdIDDt="&DispatchOrdID
+ objConn.Execute sql
+ If DispatchOrdTraStreetMileage<>"" Then
+ MileageSql=MileageSql&",DispatchOrdTraStreetMileage="&DispatchOrdTraStreetMileage
+ End If
+ If DispatchOrdTraEndMileage<>"" Then
+ MileageSql=MileageSql&",DispatchOrdTraEndMileage="&DispatchOrdTraEndMileage
+ End If
+ If OA_latitude="" or OA_longitude="" Then
+ OA_latitude=0
+ OA_longitude=0
+ End If
+ sql="update DispatchOrd set DispatchOrdState="&DispatchOrdState&",DispatchOrdStartDate=getdate(),DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost)"&ActualSql&MileageSql&" where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ ReturnURL="admin_save.gds?admin_save=38&NEWOrder=3&DispatchOrdID="&DispatchOrdID&"&DispatchOrdCarID="&DispatchOrdCarID&"&SetOutDateR="&DispatchOrd_NS_Time&"&ReturnDateR="&DispatchOrd_NS_Time
+
+Else
+ ReturnURL="DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+End If
+Call OA_Running("鏂板缓璋冨害鍗�:"&DispatchOrdID)
+If ServiceOrdID<>"" Then
+ objConn.Execute "exec OrdDataUP "&ServiceOrdID
+Else
+ objConn.Execute "exec OrdDataUP "&DispatchOrdID
+End If
+rsRollbackTrans(objConn.Errors.count)
+
+'绗笁鏂瑰钩鍙版暟鎹洿鏂�
+Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)
+
+If Len(error)>2 Then Response.Redirect ReturnURL&"&SystemMessageType=1&SMT=4&error="&error
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+Response.End %>
\ No newline at end of file
diff --git a/admin_save_25.asp b/admin_save_25.asp
new file mode 100644
index 0000000..77316ff
--- /dev/null
+++ b/admin_save_25.asp
@@ -0,0 +1,559 @@
+<%
+Set rs = Server.CreateObject("ADODB.Recordset")
+DispatchOrdID = SafeRequest(Request.form("DispatchOrdID")) '璋冨害鍗曞彿
+DispatchOrdClass = SafeRequest(Request.form("DispatchOrdClass")) '鍗曟嵁绫诲瀷
+ServiceOrdID = SafeRequest(Request.form("ServiceOrdID")) '瀵瑰簲鏈嶅姟鍗曞彿
+DispatchOrdState = SafeRequest(Request.form("DispatchOrdState")) '璋冨害鍗曠姸鎬�
+DispatchOrdTraSDTime = SafeRequest(Request.form("DispatchOrdTraSDTime")) '鎷熷嚭鍙戞椂闂�
+DispatchOrdCarID = SafeRequest(Request.form("DispatchOrdCarID")) '娲鹃仯杞﹁締ID
+DispatchOrdCoName = SafeRequest(Request.form("DispatchOrdCoName")) '璋冨害鑱旂郴浜哄鍚�
+DispatchOrdCoPhone = SafeRequest(Request.form("DispatchOrdCoPhone")) '璋冨害鑱旂郴浜虹數璇�
+ServiceOrdCoName = SafeRequest(Request.form("ServiceOrdCoName")) '鑱旂郴浜哄鍚�
+ServiceOrdCoPhone = StrTrim(SafeRequest(Request.form("ServiceOrdCoPhone"))) '鑱旂郴浜虹數璇�
+DispatchOrdTraStreet = SafeRequest(Request.form("DispatchOrdTraStreet")) '瀹為檯鍑哄彂鍦�
+DispatchOrdTraEnd = SafeRequest(Request.form("DispatchOrdTraEnd")) '瀹為檯鐩殑鍦�
+DispatchOrdTraVia = SafeRequest(Request.form("DispatchOrdTraVia")) '瀹為檯閫旂粡鍦�
+DispatchOrd_Check = SafeRequest(Request.form("DispatchOrd_Check")) '涓嬪彂/瀹℃牳鍛戒护(0鍙嶅鏍�,1瀹℃牳,2涓嬪彂寰俊,4瀹℃牳涓嶉�氳繃)
+
+DispatchOrdPerfomance = SafeRequest(Request.form("DispatchOrdPerfomance")) '璁㈠崟缁╂晥
+StretcherMoney = SafeRequest(Request.form("StretcherMoney")) '鎷呮灦璐�(澶辨晥)
+AddMoneyType = SafeRequest(Request.form("AddMoneyType")) '闄勫姞椤圭洰
+AddMoney = SafeRequest(Request.form("AddMoney")) '闄勫姞椤圭洰璐圭敤
+AddMoneyExplain = SafeRequest(Request.form("AddMoneyExplain")) '闄勫姞椤圭洰璇存槑
+EntourageName_aid1 = SafeRequest(Request.form("EntourageName_aid1")) '澶栨彺浜哄憳1
+EntourageName_aid2 = SafeRequest(Request.form("EntourageName_aid2")) '澶栨彺浜哄憳2
+DispatchOrd_NS_ID = SafeRequest(Request.form("DispatchOrd_NS_ID")) '璋冨害浜哄憳ID
+RecommendedCar = SafeRequest(Request.form("RecommendedCar")) '鎸囧畾杞﹀瀷
+DispatchOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '鍖绘姢鍙稿娉�
+DispatchEmployeeGroup = SafeRequest(Request.form("DispatchEmployeeGroup")) '鍛樺伐缁勫埆
+
+'Phone
+TEL_Phone = SafeRequest(Request.form("Phone")) '鏉ョ數鐢佃瘽
+TEL_Time = SafeRequest(Request.form("TEL_Time")) '鏉ョ數鏃堕棿
+TEL_Remarks = SafeRequest(Request.form("TEL_Remarks")) '鏉ョ數澶囨敞
+
+TimeLength_Program = SafeRequest(Request.form("TimeLength_Program")) '澶у瀷娲诲姩淇濋殰鏃堕暱
+TimeLength_ICU = SafeRequest(Request.form("TimeLength_ICU")) '灞呭ICU鏃堕暱
+TimeLength_Wait = SafeRequest(Request.form("TimeLength_Wait")) '绛夊緟鏃堕暱
+
+ServiceOrdTraStreet = SafeRequest(Request.form("ServiceOrdTraStreet")) '杞﹁締鍑哄彂鍦板潃
+ServiceOrdTraVia = SafeRequest(Request.form("ServiceOrdTraVia")) '杞嚭鍦板潃
+ServiceOrdTraEnd = SafeRequest(Request.form("ServiceOrdTraEnd")) '杞叆鍦板潃
+EditDataForm = SafeRequest(Request.form("EditDataForm")) '褰撳墠淇敼椤圭洰
+
+
+
+If ServiceOrdTraStreet<>"" Then DispatchOrdTraStreet=ServiceOrdTraStreet
+If ServiceOrdTraVia<>"" Then DispatchOrdTraVia=ServiceOrdTraVia
+If ServiceOrdTraEnd<>"" Then DispatchOrdTraEnd=ServiceOrdTraEnd
+
+If DispatchOrdClass="" Then DispatchOrdClass="SA"
+If DispatchOrdCoName="" Then DispatchOrdCoName=ServiceOrdCoName
+If DispatchOrdCoPhone="" Then DispatchOrdCoPhone=ServiceOrdCoPhone
+If DispatchOrdCarID="" Then DispatchOrdCarID=0
+If DispatchOrd_NS_ID="" Then DispatchOrd_NS_ID="DispatchOrd_NS_ID"
+If TimeLength_Program="" Then TimeLength_Program=0
+If TimeLength_ICU="" Then TimeLength_ICU=0
+If TimeLength_Wait="" Then TimeLength_Wait=0
+If AddMoney="" Or Not isnumeric(AddMoney) Then AddMoney=0
+If EditDataForm<>"" Then EditDataForm="["&EditDataForm&"] ID"
+
+'鏁版嵁涓嶅畬鏁�
+If DispatchOrdID="" Or Not IsNumeric(DispatchOrdID) Then Response.Redirect "/DispatchOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=1"
+error=","
+'If DispatchOrdCarID="0" Then error=error&"DispatchOrdCarLicense,"
+If DispatchOrdCoName="" And DispatchOrdClass<>"SP" Then error=error&"DispatchOrdCoName,"
+If DispatchOrdCoPhone="" And DispatchOrdClass<>"SP" Then error=error&"DispatchOrdCoPhone,"
+If DispatchOrdTraSDTime="" And DispatchOrdClass="SP" Then error=error&"DispatchOrdTraSDTime,"
+'If Len(error)>2 Then Response.Redirect "/DispatchOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=4&error="&error
+
+'楠岃瘉鏈嶅姟鍗曟槸鍚︽纭�
+If ServiceOrdID<>"" And ServiceOrdID<>"0" Then
+ sql="select top 1 ServiceOrdID,ServiceOrdUnitID from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If rs.eof Then
+ Response.Redirect "/DispatchOrder.gds?SystemMessageType=4&SMT=1"
+ Else
+ ServiceOrdUnitID=rs("ServiceOrdUnitID")
+ End If
+ rs.close()
+End If
+
+'楠岃瘉缁╂晥璁′环鏄惁姝ｇ‘
+If (DispatchOrdPerfomance="" Or DispatchOrdPerfomance="0") And ServiceOrdID<>"" Then
+ sql="select DispatchOrdID from DispatchOrd where DispatchOrdState<>10 and DispatchOrdID<>"&DispatchOrdID&" and ServiceOrdIDDt="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If rs.eof Then
+ ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '鎴愪氦浠�
+ If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
+ If InStr(ServiceOrdTraTxnPrice,",")>0 Then ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","")
+ DispatchOrdPerfomance=ServiceOrdTraTxnPrice
+ End If
+ rs.close()
+End If
+sql="select DispatchOrdID,DispatchOrd_NS_Time from DispatchOrd where DispatchOrdID="&DispatchOrdID
+rs.open sql,objConn,1,1
+If rs.eof Then
+ DispatchOrd_NS_Time = rs("DispatchOrd_NS_Time")
+End If
+rs.close()
+
+'鐣欒█淇濆瓨
+MessageContents = SafeRequest(request("MessageContents_form1"))
+If MessageContents<>"" And ServiceOrdID<>"" Then
+ sql="insert into ServiceOrd_Message (ServiceOrdIDDt,MessageContents,MessageOAid) values ("&ServiceOrdID&",'"&MessageContents&"',"&session("adminID")&")"
+ objConn.Execute sql
+End If
+
+'淇敼璋冨害鍗�
+If DispatchOrdTraSDTime<>"" Then SDTimeSql=",DispatchOrdTraSDTime='"&DispatchOrdTraSDTime&"'"
+If DispatchOrdPerfomance<>"" Then DKPSql=",DispatchOrdPerfomance="&DispatchOrdPerfomance
+If AddMoneyType<>"" And AddMoney>0 Then SMSql=",StretcherMoney=StretcherMoney+"&AddMoney
+If DispatchEmployeeGroup<>"" Then EGSql=",DispatchEmployeeGroup="&DispatchEmployeeGroup
+sql="update DispatchOrd set DispatchOrdCarID="&DispatchOrdCarID&",DispatchOrdTraStreet='"&DispatchOrdTraStreet&"',DispatchOrdTraEnd='"&DispatchOrdTraEnd&"',DispatchOrdTraVia='"&DispatchOrdTraVia&"',DispatchOrdCoName='"&DispatchOrdCoName&"',DispatchOrdCoPhone='"&DispatchOrdCoPhone&"',EntourageName_aid1='"&EntourageName_aid1&"',EntourageName_aid2='"&EntourageName_aid2&"',DispatchOrd_NS_ID="&DispatchOrd_NS_ID&",RecommendedCar='"&RecommendedCar&"',TimeLength_Program="&TimeLength_Program&",TimeLength_ICU="&TimeLength_ICU&",TimeLength_Wait="&TimeLength_Wait&",DispatchOrdTaskRemarks='"&DispatchOrdTaskRemarks&"'"&SDTimeSql&DKPSql&SMSql&EGSql&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+'Response.write sql
+'Response.End
+objConn.Execute sql
+
+'淇敼闅忚浜哄憳
+EntourageLeadID = SafeRequest(Request.form("EntourageLeadID")) '棰嗛槦ID
+sql="select DispatchOrd_Entourage.id,vID,vtext,vOrder2,EntourageOAid=isnull(EntourageOAid,0),EntourageLead=isnull(EntourageLead,0),EntourageState=isnull(EntourageState,0),EntourageState_Time,Check_is=isnull(Check_is,1) from dictionary LEFT JOIN DispatchOrd_Entourage on DispatchOrdIDDt="&DispatchOrdID&" and EntourageID=vID and EntourageState<>4 where vType=1 and vtitle='DispatchOrdEntourage' order by vOrder"
+rs.open sql,objConn,1,1
+do while not rs.Eof
+ EID = rs("id") '闅忚鍒楄〃ID
+ EntourageID = rs("vID") '鑱岃兘ID
+ EntourageName=rs("vtext") '
+ OA_CompetencyID=rs("vOrder2")'瀵瑰簲鑱岃兘ID
+ EntourageOAid=rs("EntourageOAid")
+ EntourageLead=rs("EntourageLead")
+ EntourageState=rs("EntourageState") '浜哄憳纭鐘舵��(1绛夊緟纭,2涓嶆帴鍙�,3宸茬‘璁�,4鍙栨秷)
+ EntourageState_Time=rs("EntourageState_Time")
+ EntourageOAid_NEW=SafeRequest(Request("Entourage_"&EntourageID))
+ EntourageOT_is = SafeRequest(Request("EntourageOT_is_"&EntourageID)) '浼戞伅鍑鸿溅
+ EntourageOT2_is = SafeRequest(Request("EntourageOT2_is_"&EntourageID)) '鍔犵彮鍑鸿溅2
+ EntourageBetimesHH = SafeRequest(Request("EntourageBetimesHH_"&EntourageID)) '鎻愬墠鍑鸿溅N灏忔椂
+ EntourageLong_is = SafeRequest(Request("EntourageLong_is_"&EntourageID)) '璺熻溅
+ Stretcher_is = SafeRequest(Request("Stretcher_is_"&EntourageID)) '鎶媴鏋�
+ If Stretcher_is="" Then Stretcher_is=0
+
+ Check_is = rs("Check_is")'鍔犵彮瀹℃牳(0鏈鏍�,1涓嶉渶瑕佸鏍�,2宸插鏍�,4瀹℃牳涓嶉�氳繃)
+ If EntourageOT_is="" Then EntourageOT_is=0
+ If EntourageOT2_is="" Then EntourageOT2_is=0
+ If EntourageBetimesHH="" Then EntourageBetimesHH=0
+ If EntourageLong_is="" Then EntourageLong_is=0
+ If Stretcher_is="" Then Stretcher_is=0
+ EntourageLead=0
+ If CStr(EntourageLeadID)=CStr(EntourageID) Then EntourageLead=1
+ If (EntourageOT_is<>0 Or EntourageBetimesHH>0 Or EntourageOT2_is>0) And Check_is=1 Then
+ Check_is=0
+ End If
+
+
+ If EntourageOAid_NEW="" And Not isnull(EID) Then
+ '娓呯┖闅忚浜哄憳
+ If (EntourageState=2 Or EntourageState=3) And Not Isnull(EID) Then
+ sql="update DispatchOrd_Entourage set EntourageState=4 where id="&EID
+ objConn.Execute sql
+ Else
+ sql="delete from DispatchOrd_Entourage where id="&EID
+ objConn.Execute sql
+ End If
+
+ ElseIf EntourageOAid_NEW<>"" And Not isnull(EID) And CStr(EntourageOAid_NEW)<>CStr(EntourageOAid) Then
+ '淇敼闅忚浜哄憳(鏇存崲)
+ If (EntourageState=2 Or EntourageState=3) And Not Isnull(EID) Then
+ sql="update DispatchOrd_Entourage set EntourageState=4 where id="&EID
+ objConn.Execute sql
+ Else
+ sql="delete from DispatchOrd_Entourage where id="&EID
+ objConn.Execute sql
+ End If
+ sql="insert into DispatchOrd_Entourage (DispatchOrdIDDt,EntourageID,EntourageOAid,EntourageLead,EntourageOT_is,EntourageOT2_is,EntourageBetimesHH,EntourageLong_is,Check_is,Stretcher_is,Entourage_Time) values ("&DispatchOrdID&","&EntourageID&","&EntourageOAid_NEW&","&EntourageLead&","&EntourageOT_is&","&EntourageOT2_is&","&EntourageBetimesHH&","&EntourageLong_is&","&Check_is&","&Stretcher_is&",'"&DispatchOrd_NS_Time&"')"
+ objConn.Execute sql
+ If EntourageLead=1 Then
+ sql="update DispatchOrd set DispatchEmployeeGroup=(select top 1 OA_EmployeeGroup from OA_User where OA_User_ID="&EntourageOAid&") where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ End If
+
+ ElseIf EntourageOAid_NEW<>"" And Not isnull(EID) And CStr(EntourageOAid_NEW)=CStr(EntourageOAid) Then
+ '淇敼闅忚浜哄憳(鏇存柊)
+ sql="update DispatchOrd_Entourage set EntourageLead="&EntourageLead&",EntourageOT_is="&EntourageOT_is&",EntourageOT2_is="&EntourageOT2_is&",EntourageBetimesHH="&EntourageBetimesHH&",EntourageLong_is="&EntourageLong_is&",Check_is="&Check_is&",Stretcher_is="&Stretcher_is&" where id="&EID
+ objConn.Execute sql
+
+ ElseIf EntourageOAid_NEW<>"" And isnull(EID) Then
+ '鍐欏叆闅忚浜哄憳
+ sql="insert into DispatchOrd_Entourage (DispatchOrdIDDt,EntourageID,EntourageOAid,EntourageLead,EntourageOT_is,EntourageOT2_is,EntourageBetimesHH,EntourageLong_is,Check_is,Stretcher_is,Entourage_Time) values ("&DispatchOrdID&","&EntourageID&","&EntourageOAid_NEW&","&EntourageLead&","&EntourageOT_is&","&EntourageOT2_is&","&EntourageBetimesHH&","&EntourageLong_is&","&Check_is&","&Stretcher_is&",'"&DispatchOrd_NS_Time&"')"
+ objConn.Execute sql
+ If EntourageLead=1 Then
+ sql="update DispatchOrd set DispatchEmployeeGroup=(select top 1 OA_EmployeeGroup from OA_User where OA_User_ID="&EntourageOAid&") where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ End If
+
+ End if
+rs.movenext
+loop
+rs.close()
+
+'淇敼璋冨害鍗�
+If DispatchOrd_Check="2" And DispatchOrdState="0" then
+ DispatchOrdState="1"
+ sql="update DispatchOrd set DispatchOrdState="&DispatchOrdState&",DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost) where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+Else
+ sql="update DispatchOrd set DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost) where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+End if
+
+'鍐欏叆闄勫姞椤圭洰璐圭敤
+If AddMoneyType<>"" And AddMoneyType<>"0" And AddMoney>0 Then
+ If ServiceOrdID="" Then
+ ToServiceOrdID=0
+ Else
+ ToServiceOrdID=ServiceOrdID
+ End If
+ sql="insert into PaidMoney_Add (ToServiceOrdID,ToDispatchOrdID,AddMoneyType,AddMoney,AddMoneyExplain,AddMoneyOAID) values ("&ToServiceOrdID&","&DispatchOrdID&","&AddMoneyType&","&AddMoney&",'"&AddMoneyExplain&"',"&session("adminID")&")"
+ objConn.Execute sql
+ Call OA_Running("淇敼璋冨害鍗�:"&DispatchOrdID&" 鏂板闄勫姞璐圭敤閲戦:"&AddMoney)
+End If
+
+'鍐欏叆鐢佃瘽璁板綍
+If TEL_Phone<>"" then
+ sql="select CallRecordID from CallRecord where CallRecord_Phine='"&TEL_Phone&"' and CallRecord_StartTime between dateadd(Ss,-10,'"&TEL_Time&"') and dateadd(Ss,10,'"&TEL_Time&"')"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update CallRecord set CallRecord_OAUserID="&session("adminID")&",CallRecord_EndTime=getdate(),CallRecord_OrdClass='"&DispatchOrdState&"',CallRecord_OrdID="&DispatchOrdID&",CallRecord_Record='"&TEL_Remarks&"' where CallRecordID="&rs(0)
+ objConn.Execute sql
+ Else
+ sql="insert into CallRecord (CallRecord_Phine,CallRecord_OAUserID,CallRecord_StartTime,CallRecord_EndTime,CallRecord_Type,CallRecord_OrdClass,CallRecord_OrdID,CallRecord_Record) values ('"&TEL_Phone&"',"&session("adminID")&",'"&TEL_Time&"',getdate(),1,'"&DispatchOrdState&"',"&DispatchOrdID&",'"&TEL_Remarks&"')"
+ objConn.Execute sql
+ End if
+ rs.close()
+End If
+
+If ServiceOrdID<>"" Then
+ ServiceOrdCoName = SafeRequest(Request.form("ServiceOrdCoName")) '鎮ｈ�呰仈绯讳汉濮撳悕
+ ServiceOrdCoPhone = StrTrim(SafeRequest(Request.form("ServiceOrdCoPhone"))) '鎮ｈ�呰仈绯讳汉鐢佃瘽
+ ServiceOrdPtCondition = SafeRequest(Request.form("ServiceOrdPtCondition")) '鐥呮儏鎻忚堪
+ ServiceOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '鍖绘姢鍙稿娉�
+ ServiceOrdPtDoctor = SafeRequest(Request.form("ServiceOrdPtDoctor")) '鎮ｈ�呭尰鐢�
+ ServiceOrdPtDoctorPhone = SafeRequest(Request.form("ServiceOrdPtDoctorPhone")) '鎮ｈ�呭尰鐢熺數璇�
+ TransferModeID = SafeRequest(Request.form("TransferModeID")) '杞繍鏂瑰紡
+ ServiceOrdVIP = SafeRequest(Request.form("ServiceOrdVIP")) 'VIP瀹㈡埛
+ ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '鎴愪氦浠�
+ ServiceOrdTraPrePayment = SafeRequest(Request.form("ServiceOrdTraPrePayment")) '闇�棰勪粯娆�
+ SettlementPrice = SafeRequest(Request.form("SettlementPrice")) '缁撶畻浠�
+ ServiceOrdTraPriceReason= SafeRequest(Request.form("ServiceOrdTraPriceReason")) '宸环鍘熷洜
+ ServiceOrd_CC_ID = SafeRequest(Request.form("ServiceOrd_CC_ID")) '瀹㈡湇浜哄憳ID
+ ServiceOrd_Sale_ID = SafeRequest(Request.form("ServiceOrd_Sale_ID")) '閿�鍞汉鍛業D
+ ServiceOrdIntroducer = SafeRequest(Request.form("ServiceOrdIntroducer")) '浠嬬粛浜�
+ ServiceOrd_work_ID = SafeRequest(Request.form("ServiceOrd_work_ID")) '涓昏浼佸井瀹㈡湇ID
+ ServiceOrd_work_IDs = SafeRequest(Request.form("ServiceOrd_work_IDs")) '鍏朵粬浼佸井瀹㈡湇ID
+ ServiceOrd_work_is = SafeRequest(request.form("ServiceOrd_work_is")) '鏄惁浼佸井鎴愪氦
+ CommissionScenarioID = SafeRequest(request.form("CommissionScenarioID")) '浼佸井缁╂晥鏂规
+ ServiceOrdApptDate = SafeRequest(Request.form("ServiceOrdApptDate")) '棰勭害鏃堕棿
+ ServiceOrdEstimatedOrderDate=SafeRequest(Request.form("ServiceOrdEstimatedOrderDate")) '棰勮娲惧崟鏃堕棿
+ ServiceOrdEstimatedOrderDateOld=SafeRequest(Request.form("ServiceOrdEstimatedOrderDateOld")) '鍘熼璁℃淳鍗曟椂闂�
+ ReturnChannel = SafeRequest(Request.form("ReturnChannel")) '鍥炶鑾风煡966120鐨勬笭閬�
+ ReturnChannelOther = SafeRequest(Request.form("ReturnChannelOther")) '鍥炶鑾风煡966120鐨勬笭閬�(鍏跺畠)
+ VisitDict = SafeRequest(Request.form("VisitDict")) '鍥炶璁板綍(璇勪环绫诲瀷)
+ ServiceOrdVisit = SafeRequest(Request.form("ServiceOrdVisit")) '鍥炶璁板綍
+ ServiceOrdVisit_old = SafeRequest(Request.form("ServiceOrdVisit_old")) '鍘熷洖璁胯褰�
+ ServiceOrdSource = SafeRequest(Request.form("ServiceOrdSource")) '璁㈠崟鏉ユ簮
+ ServiceOrdViaDistance = SafeRequest(Request.form("ServiceOrdViaDistance")) '涓�旇窛绂�
+ ServiceOrdTraDistance = SafeRequest(Request.form("ServiceOrdTraDistance")) '璺濈
+ ServiceOrdPtDiagnosis = SafeRequest(Request.form("ServiceOrdPtDiagnosis")) '璇婃柇
+ ServiceOrdOperationRemarks = SafeRequest(Request.form("ServiceOrdOperationRemarks")) '鎿嶄綔澶囨敞椤�
+ ServiceOrdPtOutHospID_New=SafeRequest(Request.form("ServiceOrdPtOutHospID")) '杞嚭鍖婚櫌ID
+ ServiceOrdPtOutHosp = SafeRequest(Request.form("ServiceOrdPtOutHosp")) '杞嚭鍖婚櫌
+ ServiceOrdPtInHospID_New= SafeRequest(Request.form("ServiceOrdPtInHospID")) '杞叆鍖婚櫌ID
+ ServiceOrdPtInHosp = SafeRequest(Request.form("ServiceOrdPtInHosp")) '杞叆鍖婚櫌
+ ServiceOrdTraProvince = SafeRequest(Request.form("province")) '鍑哄彂鍦扮渷浠�
+ ServiceOrdTraCity = SafeRequest(Request.form("city")) '鍑哄彂鍦板煄甯�
+
+ ServiceOrdCoTies = SafeRequest(Request.form("ServiceOrdCoTies")) '
+ ServiceOrdPtName = SafeRequest(Request.form("ServiceOrdPtName")) '
+ ServiceOrdPtAge = SafeRequest(Request.form("ServiceOrdPtAge")) '
+ ServiceOrdPtKG = SafeRequest(Request.form("ServiceOrdPtKG")) '
+ ServiceOrdPtSex = SafeRequest(Request.form("ServiceOrdPtSex")) '
+ ServiceOrdPtNat = SafeRequest(Request.form("ServiceOrdPtNat")) '
+ ServiceOrdPtIDCard = SafeRequest(Request.form("ServiceOrdPtIDCard")) '
+ ServiceOrdPtServices = SafeRequest(Request.form("ServiceOrdPtServices")) '
+ ServiceOrdPtServicesID = SafeRequest(Request.form("ServiceOrdPtServicesID"))
+ ServiceOrdPtInServices = SafeRequest(Request.form("ServiceOrdPtInServices")) '
+ ServiceOrdPtInServicesID = SafeRequest(Request.form("ServiceOrdPtInServicesID"))
+ ServiceOrdTraStreet = SafeRequest(Request.form("ServiceOrdTraStreet")) '
+ ServiceOrdTraEnd = SafeRequest(Request.form("ServiceOrdTraEnd")) '
+ ServiceOrdTraVia = SafeRequest(Request.form("ServiceOrdTraVia")) '
+ ServiceOrdTraDuration = SafeRequest(Request.form("ServiceOrdTraDuration")) '
+ ServiceOrdTraUnitPrice = SafeRequest(Request.form("ServiceOrdTraUnitPrice")) '
+ ServiceOrdTraOfferPrice = SafeRequest(Request.form("ServiceOrdTraOfferPrice")) '
+ OrderLevel = SafeRequest(Request.form("OrderLevel")) '鏌ョ湅绛夌骇
+ ServiceOrdDepartureType = SafeRequest(Request.form("ServiceOrdDepartureType")) '棰勭害绫诲瀷
+ ConditionLevel = SafeRequest(Request.form("ConditionLevel")) '鐥呴噸绾у埆
+ DirectionType = SafeRequest(Request.form("DirectionType")) '杞繍鍘诲悜
+ FromHQ2_is = SafeRequest(Request.form("FromHQ2_is")) '骞垮窞鎬婚儴鎺ㄩ�佷换鍔℃爣璁�
+
+ If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
+ If ServiceOrdTraPrePayment="" Then ServiceOrdTraPrePayment=0
+ If SettlementPrice="" Then SettlementPrice=0
+ If ServiceOrdTraOfferPrice="" Then ServiceOrdTraOfferPrice=0
+ If InStr(ServiceOrdTraTxnPrice,",")>0 Then ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","")
+ If InStr(ServiceOrdTraPrePayment,",")>0 Then ServiceOrdTraPrePayment=Replace(ServiceOrdTraPrePayment,",","")
+ If InStr(SettlementPrice,",")>0 Then SettlementPrice=Replace(SettlementPrice,",","")
+ If ServiceOrdVIP="" Then ServiceOrdVIP=0
+ If ServiceOrd_Sale_ID="" Then ServiceOrd_Sale_ID="null"
+ If ServiceOrd_work_ID="" Then ServiceOrd_work_ID="null"
+ If ServiceOrd_work_is="" Then ServiceOrd_work_is=0
+ If CommissionScenarioID="" Then CommissionScenarioID=0
+ If ServiceOrd_CC_ID="" Then ServiceOrd_CC_ID="ServiceOrd_CC_ID"
+ If ServiceOrdVisit<>"" And ServiceOrdVisit_old<>ServiceOrdVisit Then
+ RV_Point=0
+ sql="select id from DispatchOrd_Entourage,DispatchOrd where EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and ServiceOrdIDDt="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ do while not rs.Eof
+ DE_id=rs("id")
+ RV_PointE=SafeRequest(Request.form("RV_PointE_"&DE_id))
+ If RV_PointE<>"" Then
+ RV_Point=RV_Point+1
+ sql="update DispatchOrd_Entourage set RV_PointE='"&RV_PointE&"' where id="&DE_id
+ objConn.Execute sql
+ End If
+ rs.movenext
+ loop
+ rs.close()
+ SqlVisit=",ServiceOrdVisit='"&ServiceOrdVisit&"',ServiceOrdVisit_time=getdate(),ServiceOrdVisit_ID="&session("adminID")
+ If VisitDict<>"" Then SqlVisit=SqlVisit&",ServiceOrdVisit_Dict='"&VisitDict&"'"
+ If RV_Point>0 Then SqlVisit=SqlVisit&",RV_Point="&RV_Point
+ ElseIf ServiceOrdVisit="" Then
+ SqlVisit=",ServiceOrdVisit_Dict=null,ServiceOrdVisit=null,ServiceOrdVisit_time=null,ServiceOrdVisit_ID=null,RV_Point=0"
+ End If
+ If ReturnChannel="鍏朵粬锛堟墜鍔ㄥ～鍐欙級" Then
+ If ReturnChannelOther="" Then ReturnChannelOther="鍏跺畠"
+ SqlVisit=SqlVisit&",ServiceOrdReturnChannel='"&ReturnChannelOther&"'"
+ ElseIf ReturnChannel<>"" Then
+ SqlVisit=SqlVisit&",ServiceOrdReturnChannel='"&ReturnChannel&"'"
+ Else
+ SqlVisit=SqlVisit&",ServiceOrdReturnChannel=null"
+ End If
+ If ServiceOrdSource="" Then ServiceOrdSource=0
+ If ServiceOrdPtServicesID="" Then ServiceOrdPtServicesID=0
+ If ServiceOrdPtInServicesID="" Then ServiceOrdPtInServicesID=0
+ If ServiceOrdTraUnitPrice="" Then ServiceOrdTraUnitPrice=0
+ If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","")
+ If ServiceOrdViaDistance<>"" And OrderLevel="2" Then
+ ServiceOrdViaDistance = Replace(ServiceOrdViaDistance,"鍏噷","")
+ If ServiceOrdViaDistance="" Or Not isnumeric(ServiceOrdViaDistance) Then ServiceOrdViaDistance="0"
+ ServiceOrdViaDistance = ServiceOrdViaDistance&"鍏噷"
+ Else
+ ServiceOrdViaDistance="0"
+ End If
+ ServiceOrdTraDistance = Replace(ServiceOrdTraDistance,"鍏噷","")
+ If ServiceOrdTraDistance="" Or Not isnumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance="0"
+ If ServiceOrdTraDistance="0" Then error=error&"ServiceOrdTraDistance,"
+ ServiceOrdTraDistance = ServiceOrdTraDistance&"鍏噷"
+ If OrderLevel="" Then OrderLevel=0
+ If ServiceOrdDepartureType="" Then ServiceOrdDepartureType=1
+ If ConditionLevel="" Then ConditionLevel=0
+ If DirectionType="" Then DirectionType=0
+ If FromHQ2_is="" Then FromHQ2_is=0
+
+
+ '楠岃瘉鍗曟嵁ID鏄惁姝ｇ‘
+ sql="select ServiceOrdID,ServiceOrdState,ServiceOrd_AP_Check,ServiceOrdUnitID,ServiceOrdClass,ServiceOrd_CC_Time,ServiceOrdNo from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ if rs.eof Then
+ session("Origin")=""
+ Response.Redirect "/ServiceOrder.gds?SystemMessageType=4&SMT=1&Phone&="&TEL_Phone
+ Else
+ ServiceOrd_AP_Check=rs("ServiceOrd_AP_Check")
+ Old_ServiceOrdState=rs("ServiceOrdState")
+ ServiceOrdUnitID=rs("ServiceOrdUnitID")
+ ServiceOrdClass=rs("ServiceOrdClass")
+ ServiceOrd_CC_Time=rs("ServiceOrd_CC_Time")
+ ServiceOrdNo=rs("ServiceOrdNo")
+ End if
+ rs.close()
+
+ '鏌ユ壘鍖婚櫌ID
+ If ServiceOrdPtOutHosp<>"" Then
+ If InStr(ServiceOrdPtOutHosp,"|")>0 Then ServiceOrdPtOutHosp=Mid(ServiceOrdPtOutHosp,1,InStr(ServiceOrdPtOutHosp,"|")-1)
+ sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtOutHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID=rs(0)
+ Else
+ rs.close()
+ sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID=rs(0)+1
+ Else
+ ServiceOrdPtOutHospID=1
+ End if
+ sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtOutHospID&",'"&ServiceOrdPtOutHosp&"','HospName',1,'鍖婚櫌鍚嶇О')"
+ objConn.Execute sql
+ End If
+ rs.close()
+ Else
+ ServiceOrdPtOutHospID=0
+ End If
+ If ServiceOrdPtInHosp<>"" Then
+ If InStr(ServiceOrdPtInHosp,"|")>0 Then ServiceOrdPtInHosp=Mid(ServiceOrdPtInHosp,1,InStr(ServiceOrdPtInHosp,"|")-1)
+ sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtInHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID=rs(0)
+ Else
+ rs.close()
+ sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID=rs(0)+1
+ Else
+ ServiceOrdPtInHospID=1
+ End if
+ sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtInHospID&",'"&ServiceOrdPtInHosp&"','HospName',1,'鍖婚櫌鍚嶇О')"
+ objConn.Execute sql
+ End If
+ rs.close()
+ Else
+ ServiceOrdPtInHospID=0
+ End If
+
+ '鏌ユ壘鍚堜綔鍗曚綅ID
+ ServiceOrdUnitSql=",ServiceOrdUnitID=0"
+ If ServiceOrdIntroducer<>"" And IsNumeric(ServiceOrdIntroducer) Then
+ sql="select IntroducerID,IntroducerName,IntroducerUnitID from IntroducerData where IntroducerUnitID<>'' and IntroducerID="&ServiceOrdIntroducer
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdUnitSql=",ServiceOrdUnitID="&rs("IntroducerUnitID")
+ End If
+ rs.close()
+ End If
+
+
+ '鍏宠仈鏈嶅姟鍗�
+ sql="update DispatchOrd set ServiceOrdIDDt="&ServiceOrdID&" where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+
+ '鏁忔劅淇℃伅淇敼
+ CoSql=""
+ If ServiceOrdCoName<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdCoName='"&ServiceOrdCoName&"'"
+ If ServiceOrdCoPhone<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdCoPhone='"&ServiceOrdCoPhone&"'"
+ If ServiceOrdPtName<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtName='"&ServiceOrdPtName&"'"
+ If ServiceOrdPtAge<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtAge='"&ServiceOrdPtAge&"'"
+ If ServiceOrdPtServicesID<>"-2" Then CoSql=CoSql&",ServiceOrdPtServicesID="&ServiceOrdPtServicesID&""
+ If ServiceOrdPtServices<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtServices='"&ServiceOrdPtServices&"'"
+ If ServiceOrdPtInServicesID<>"-2" Then CoSql=CoSql&",ServiceOrdPtInServicesID="&ServiceOrdPtInServicesID&""
+ If ServiceOrdPtInServices<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtInServices='"&ServiceOrdPtInServices&"'"
+
+ '淇敼涓昏瘖鍖荤敓,鎴愪氦浠风瓑璧勬枡(鏈嶅姟鍗�)
+ sql="update ServiceOrder set ServiceOrdPtCondition='"&ServiceOrdPtCondition&"',ServiceOrdTaskRemarks='"&ServiceOrdTaskRemarks&"',ServiceOrdPtDoctor='"&ServiceOrdPtDoctor&"',ServiceOrdPtDoctorPhone='"&ServiceOrdPtDoctorPhone&"',ServiceOrdTraTxnPrice="&ServiceOrdTraTxnPrice&",ServiceOrdTraPrePayment="&ServiceOrdTraPrePayment&",SettlementPrice="&SettlementPrice&",ServiceOrdTraPriceReason='"&ServiceOrdTraPriceReason&"',ServiceOrd_CC_ID="&ServiceOrd_CC_ID&",ServiceOrd_Sale_ID="&ServiceOrd_Sale_ID&",ServiceOrdIntroducer='"&ServiceOrdIntroducer&"',ServiceOrd_work_ID="&ServiceOrd_work_ID&",ServiceOrd_work_IDs='"&ServiceOrd_work_IDs&"',ServiceOrd_work_is="&ServiceOrd_work_is&",CommissionScenarioID="&CommissionScenarioID&ServiceOrdUnitSql&",ServiceOrdApptDate='"&ServiceOrdApptDate&"',ServiceOrdSource="&ServiceOrdSource&",ServiceOrdPtDiagnosis='"&ServiceOrdPtDiagnosis&"',ServiceOrdOperationRemarks='"&ServiceOrdOperationRemarks&"',ServiceOrdViaDistance='"&ServiceOrdViaDistance&"',ServiceOrdTraDistance='"&ServiceOrdTraDistance&"',ServiceOrdVIP="&ServiceOrdVIP&SqlVisit&",ServiceOrdPtOutHospID="&ServiceOrdPtOutHospID_New&",ServiceOrdPtOutHosp="&ServiceOrdPtOutHospID&",ServiceOrdPtInHospID="&ServiceOrdPtInHospID_New&",ServiceOrdPtInHosp="&ServiceOrdPtInHospID&",ServiceOrdTraProvince='"&ServiceOrdTraProvince&"',ServiceOrdTraCity='"&ServiceOrdTraCity&"',ServiceOrdCoTies='"&ServiceOrdCoTies&"',ServiceOrdPtSex='"&ServiceOrdPtSex&"',ServiceOrdPtNat='"&ServiceOrdPtNat&"',ServiceOrdPtIDCard='"&ServiceOrdPtIDCard&"',ServiceOrdTraStreet='"&ServiceOrdTraStreet&"',ServiceOrdTraEnd='"&ServiceOrdTraEnd&"',ServiceOrdTraVia='"&ServiceOrdTraVia&"',ServiceOrdTraDuration='"&ServiceOrdTraDuration&"',ServiceOrdTraUnitPrice="&ServiceOrdTraUnitPrice&",ServiceOrdTraOfferPrice="&ServiceOrdTraOfferPrice&",ServiceOrdEstimatedOrderDate='"&ServiceOrdEstimatedOrderDate&"',OrderLevel="&OrderLevel&",ServiceOrdDepartureType="&ServiceOrdDepartureType&",ConditionLevel="&ConditionLevel&",DirectionType="&DirectionType&",ServiceOrdPtKG='"&ServiceOrdPtKG&"',FromHQ2_is="&FromHQ2_is&CoSql&" where ServiceOrdID="&ServiceOrdID
+ 'Response.Write sql
+ objConn.Execute sql
+
+ '淇敼鐩墠鐥呮儏(鍗曢�夐」绫�)
+ sql="delete from ServiceOrd_Condition where ServiceOrdCoID="&ServiceOrdID
+ objConn.Execute sql
+ sql="select vOrder from dictionary where vType=2 and vtitle='Condition' order by vOrder,vID"
+ rs.open sql,objConn,1,1
+ do while not rs.Eof
+ ConditionOrder=rs("vOrder")
+ ConditionID=SafeRequest(Request.form("ConditionID_"&ConditionOrder))
+ If ConditionID<>"" Then
+ sql="insert into ServiceOrd_Condition (ServiceOrdCoID,ConditionID) values ("&ServiceOrdID&","&ConditionID&")"
+ objConn.Execute sql
+ End If
+ If ConditionID="4" Then
+ sql=" update ServiceOrder set AMV_is=1 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ ElseIf ConditionID="3" Then
+ sql=" update ServiceOrder set AMV_is=0 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+ rs.movenext
+ loop
+ rs.close()
+
+ '鍐欏叆璇婃柇ICD
+ OrdICD_ID = SafeRequest(Request.form("OrdICD_ID")) '璇婃柇ICD_ID
+ OrdICD_ID_old = SafeRequest(Request.form("OrdICD_ID_old"))
+ If OrdICD_ID<>OrdICD_ID_old Then
+ sql="delete from ServiceOrder_ICD where ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ If OrdICD_ID<>"" then
+ OrdICD_IDSP = SPLIT(OrdICD_ID,",")
+ for i=1 to ubound(OrdICD_IDSP)-1
+ If OrdICD_IDSP(i)<>"" Then
+ sql="insert into ServiceOrder_ICD (ServiceOrdIDDt,icd_id) values ("&ServiceOrdID&","&OrdICD_IDSP(i)&")"
+ objConn.Execute sql
+ End If
+ Next
+ End If
+ End If
+
+ '淇敼杞繍鏂瑰紡(澶氶�夐」)
+ sql="delete from ServiceOrd_TransferMode where ServiceOrdTMID="&ServiceOrdID
+ objConn.Execute sql
+ TransferModeIDSP = SPLIT(TransferModeID,", ")
+ for i = 0 to UBOUND(TransferModeIDSP)
+ TransferModeID = TransferModeIDSP(i)
+ If TransferModeID<>"" then
+ sql="insert into ServiceOrd_TransferMode (ServiceOrdTMID,TransferModeID) values ("&ServiceOrdID&","&TransferModeID&")"
+ objConn.Execute sql
+ End if
+ Next
+
+ '鏍搁攢浼樻儬鍒�
+ Call CouponUse(ServiceOrdTraPriceReason,ServiceOrdID)
+
+ '鍐欏叆棰勮娲惧崟鏃堕棿閫氱煡
+ ServiceOrdNo = ServiceOrdClass& year(ServiceOrd_CC_Time)&Right("0"&month(ServiceOrd_CC_Time),2)&Right("0"&day(ServiceOrd_CC_Time),2) & "-"&Right("00"&ServiceOrdNo,3)
+ If SMT=9 Or (ServiceOrdEstimatedOrderDate="" And ServiceOrdEstimatedOrderDateOld<>"") Then
+ sql="delete from Notification where NC_Name='銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�'"
+ objConn.Execute sql
+ ElseIf ServiceOrdEstimatedOrderDate<>"" And ServiceOrdEstimatedOrderDateOld<>ServiceOrdEstimatedOrderDate Then
+ sql="delete from Notification where NC_Name='銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�'"
+ objConn.Execute sql
+ NC_OAID="78"
+ NC_Name="銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�"
+ NC_Content="鏈嶅姟鍗�:"&ServiceOrdNo&",宸插埌棰勫畾鐨勬淳鍗曟椂闂�,璇峰嵆鏃跺鐞�"
+ NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+ NC_PageUrlM=ServiceOrdEstimatedOrderDate
+ Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
+ End If
+End If
+
+'涓嬪彂寰俊
+If DispatchOrd_Check="2" And Len(error)<2 Then
+ session("JsonKey")="1"
+ '寰俊棣栨涓嬪彂鏃堕棿
+ sql="update DispatchOrd set DispatchOrdWeixinDate=getdate() where DispatchOrdWeixinDate=null and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ ReturnURL="/weixin/message_send_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ Call OA_Running("涓嬪彂璋冨害鍗�:"&DispatchOrdID)
+Else
+ ReturnURL="DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+End If
+
+
+'鏇存柊鎻愭垚鏁版嵁
+Call EntourageDKP_Money_C2(DispatchOrdID)
+
+'鏇存柊鍑鸿溅缁╂晥
+If DispatchOrdState>=4 Then
+ call EntourageDKP_A(DispatchOrdID,DispatchOrdPerfomance)
+End If
+
+
+Call OA_Running("淇敼璋冨害鍗�"&EditDataForm&":"&DispatchOrdID)
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+
+'绗笁鏂瑰钩鍙版暟鎹洿鏂�
+Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)
+
+If Len(error)>2 Then Response.Redirect ReturnURL&"&SystemMessageType=1&SMT=4&error="&error
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3&h_menu1_1="&session("h_menu1_1")
+Response.End
+%>
\ No newline at end of file
diff --git a/admin_save_32.gds b/admin_save_32.gds
new file mode 100644
index 0000000..08dab12
--- /dev/null
+++ b/admin_save_32.gds
@@ -0,0 +1,256 @@
+<%@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
+ServiceOrdID = SafeRequest(request("ServiceOrdID"))
+DispatchOrdID = SafeRequest(request("DispatchOrdID"))
+DispatchOrdState= SafeRequest(request("DispatchOrdState"))
+EntourageLeadID = SafeRequest(request("EntourageLeadID")) '棰嗛槦ID
+StreetMileage = SafeRequest(request("StreetMileage")) '鍑哄彂閲岀▼鏁�
+EndMileage = SafeRequest(request("EndMileage")) '缁撴潫閲岀▼鏁�
+PaidMoney = SafeRequest(request("PaidMoney")) '鐜版敮浠橀噾棰�
+PaidMoneyType = SafeRequest(request("PaidMoneyType")) '鏀粯鏂瑰紡
+PaidMoneyTimestamp= SafeRequest(request("PaidMoneyTimestamp")) '鏀粯鏃堕棿鎴�
+OA_latitude = SafeRequest(request("OA_latitude")) '绾害
+OA_longitude = SafeRequest(request("OA_longitude")) '缁忓害
+OA_address = SafeRequest(request("OA_address")) '瀹氫綅鍦板潃
+If EntourageLeadID="" Then EntourageLeadID=0
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+'妫�鏌ョ姸鎬佹槸鍚︽纭�
+If CInt(session("adminID"))<>CInt(EntourageLeadID) And PaidMoneyType="" Then
+ response.write "Result:not allower"
+ Response.End
+End If
+If DispatchOrdID="" Then Response.End()
+sql="select DispatchOrdID,ServiceOrdIDDt,DispatchOrdCarID,DispatchOrdPerfomance,DispatchOrd_NS_Time,DispatchOrdNo,DispatchOrdClass,CarSeatBelt_OAId,DispatchOrdTraStreetMileage,DispatchOrdTraEndMileage,StretcherMoney from DispatchOrd where DispatchOrdID="&DispatchOrdID
+rs.open sql,objConn,1,1
+If rs.eof Then Response.End()
+DispatchOrdCarID=rs("DispatchOrdCarID")
+ServiceOrdID=rs("ServiceOrdIDDt")
+DispatchOrdClass=rs("DispatchOrdClass")
+old_Perfomance=rs("DispatchOrdPerfomance")
+old_StreetMileage=rs("DispatchOrdTraStreetMileage")
+old_EndMileage=rs("DispatchOrdTraEndMileage")
+CarSeatBelt_OAId=rs("CarSeatBelt_OAId")
+DispatchOrd_NS_Time=rs("DispatchOrd_NS_Time")
+StretcherMoney=rs("StretcherMoney")
+DispatchOrdNo = rs("DispatchOrdClass")& year(rs("DispatchOrd_NS_Time"))&Right("0"&month(rs("DispatchOrd_NS_Time")),2)&Right("0"&day(rs("DispatchOrd_NS_Time")),2) & "-"&Right("00"&rs("DispatchOrdNo"),3) '璋冨害鍗曠紪鍙�
+rs.close()
+
+'楠岃瘉鏈嶅姟鍗曟槸鍚︽纭�
+If ServiceOrdID<>"" And ServiceOrdID<>"0" Then
+ sql="select top 1 ServiceOrdID,ServiceOrdUnitID,ServiceOrdState,ServiceOrdCoPhone,ServiceOrdCoName,ServiceOrdTraTxnPrice,ServiceOrdTraPaidPrice,ToUserUUID from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ ServiceOrdUnitID=rs("ServiceOrdUnitID")
+ ServiceOrdState=rs("ServiceOrdState")
+ ServiceOrdCoPhone=rs("ServiceOrdCoPhone")
+ ServiceOrdCoName=rs("ServiceOrdCoName")
+ old_TraTxnPrice=rs("ServiceOrdTraTxnPrice")
+ TraPaidPrice=rs("ServiceOrdTraPaidPrice")-StretcherMoney
+ ToUserUUID=rs("ToUserUUID")
+ End If
+ rs.close()
+End If
+sql="select id from ServiceOrd_TransferMode where ServiceOrdTMID="&ServiceOrdID&" and TransferModeID=6"
+rs.open sql,objConn,1,1
+If not rs.eof Then '鍑鸿溅闄愬埗
+ TransferMode=0
+Else
+ TransferMode=1
+ If (DispatchOrdCarID="" Or isnull(DispatchOrdCarID) Or DispatchOrdCarID="0") And (DispatchOrdState="4" Or DispatchOrdState="7" Or DispatchOrdState="14") Then
+ response.write "Result:need car"
+ Response.End
+ End If
+ rs.close()
+ sql="select EntourageOAid from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and EntourageState<>4 and EntourageState<>2 and vType=1 and vID=EntourageID and vtext like '%鍙告満%' and DispatchOrdIDDt="&DispatchOrdID
+ rs.open sql,objConn,1,1
+ If rs.eof And (DispatchOrdState="4" Or DispatchOrdState="7" Or DispatchOrdState="14") Then
+ response.write "Result:need driver"
+ Response.End
+ End If
+ If (old_StreetMileage=0 Or isnull(old_StreetMileage)) And (DispatchOrdState="4" Or DispatchOrdState="7" Or DispatchOrdState="14") Then
+ response.write "Result:need street mileage"
+ Response.End
+ End If
+ If (old_EndMileage=0 Or isnull(old_EndMileage)) And (DispatchOrdState="8") Then
+ response.write "Result:need end mileage"
+ Response.End
+ End If
+ If DispatchOrdClass="SA" And CLng(old_TraTxnPrice)>CLng(TraPaidPrice) And (DispatchOrdState="8") Then
+ response.write "Result:need paid money"
+ Response.End
+ End If
+End If
+rs.close()
+
+if DispatchOrdID<>"" and DispatchOrdState<>"" And CInt(session("adminID"))=CInt(EntourageLeadID) Then
+ '杞﹁締瀹炴椂瀹氫綅(鏆傛椂鍏抽棴 2019.9.12)
+
+ OA_longitude = 0
+ OA_latitude = 0
+ OA_address = ""
+
+ '瀹為檯鏃堕棿璁板綍
+ If DispatchOrdState=4 Then
+ ActualSql=",DispatchOrdActualDate=getdate()"
+ sql="update DispatchOrd_Entourage set EntourageState=3,EntourageState_Time=GETDATE() where EntourageState=1 and DispatchOrdIDDt="&DispatchOrdID
+ objConn.Execute sql
+ sql="update DispatchOrd_Entourage set EntourageDKP=0,EntourageDKPScale=0 where EntourageOAid in (select EntourageOAid from DispatchOrd_Entourage where EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&") and EntourageDKPScale=1 and EntourageEnd_Time=CONVERT(varchar(10),getdate(),120)"
+ objConn.Execute sql
+ If session("adminID")<>8 Then '杩囨护娴嬭瘯浜哄憳璁㈠崟鎺ㄩ��
+ weixin="1"
+ End If
+ ElseIf DispatchOrdState=7 Then
+ ActualSql=",DispatchOrdArriveDate=getdate()"
+ If TransferMode=0 Then ActualSql=ActualSql&",DispatchOrdActualDate=getdate()"
+ ElseIf DispatchOrdState=14 Then
+ ActualSql=",DispatchOrdActualDate=getdate()"
+ End If
+
+ '閲岀▼鏁拌褰�
+ If StreetMileage<>"" Then
+ MileageSql=",DispatchOrdTraStreetMileage="&StreetMileage
+ ElseIf EndMileage<>"" Then
+ MileageSql=",DispatchOrdTraEndMileage="&EndMileage
+ End If
+ If OA_latitude="" or OA_longitude="" Then
+ OA_latitude=0
+ OA_longitude=0
+ End If
+
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA,OA_longitude,OA_latitude,OA_address) values ("&DispatchOrdID&","&DispatchOrdState&","&session("adminID")&","&OA_longitude&","&OA_latitude&",'"&OA_address&"')"
+ objConn.Execute sql
+ sql="update DispatchOrd set DispatchOrdState="&DispatchOrdState&",DispatchOrdStartDate=getdate(),StateInt=StateInt+1,DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost)"&ActualSql&MileageSql&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+
+ '椹荤偣浜哄憳缁╂晥
+ If DispatchOrdState=14 Then
+ sql="update DispatchOrd set DispatchOrdReturnDate=DispatchOrdTraSDTime,DispatchOrd_AP_Check=1,DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState=14 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ sql="update DispatchOrd_Entourage set EntourageEnd_Time=(select CONVERT(varchar(10),DispatchOrdTraSDTime,120) from DispatchOrd where DispatchOrdID=DispatchOrdIDDt) where EntourageState<>4 and EntourageEnd_Time is null and DispatchOrdIDDt="&DispatchOrdID
+ objConn.Execute sql
+ call EntourageDKP_A(DispatchOrdID,50)
+
+ '璺戠┖鍗曠哗鏁�(鎸夊凡鏀惰垂鐢ㄨ绠�)
+ ElseIf DispatchOrdState=9 Then
+ sql="select isnull(SUM(PaidMoney),0) from PaidMoney where PaidMoney_AP_Check<>-1 and (ServiceOrdIDDt="&ServiceOrdID&" or DispatchOrdIDDt="&DispatchOrdID&")"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ DispatchOrdPerfomance=rs(0)-StretcherMoney
+ End If
+ rs.close()
+ If DispatchOrdPerfomance="" Or isnull(DispatchOrdPerfomance) Then DispatchOrdPerfomance=0
+ sql="update DispatchOrd set DispatchOrdPerfomance="&DispatchOrdPerfomance&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState=9 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ sql="update ServiceOrder set ServiceOrdTraTxnPrice="&DispatchOrdPerfomance&",ServiceOrdTraPriceReason=ServiceOrdTraPriceReason+'璺戠┖鍗�,鍘熸垚浜や环:"&old_TraTxnPrice&",鍘熺哗鏁堣浠�:"&old_Perfomance&"' where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ call EntourageDKP_A(DispatchOrdID,DispatchOrdPerfomance)
+ '鏇存柊鐢ㄦ埛绉垎
+ Call UserPointsA(ServiceOrdID,DispatchOrdID)
+ '閲嶇偣璁櫒褰掕繕
+ call DispatchMRPOrderReturn(14,DispatchOrdID)
+
+ '瀹屾垚杩斿洖,鏇存柊缁╂晥璁′环
+ ElseIf DispatchOrdState=8 Then
+ call EntourageDKP_A(DispatchOrdID,old_Perfomance)
+ '鏇存柊鐢ㄦ埛绉垎
+ Call UserPointsA(ServiceOrdID,DispatchOrdID)
+ '閲嶇偣璁櫒褰掕繕
+ call DispatchMRPOrderReturn(14,DispatchOrdID)
+
+ End if
+
+end If
+
+'璐圭敤鏀粯鎿嶄綔
+'If isDepartment("030204")=1 Then PaidMoneyCheck=1 '鑷姩瀹℃牳鏉�(2019.6.26鍙栨秷)
+'If PaidMoneyType<>"" And IsNumeric(PaidMoney) And PaidMoneyTimestamp<>"" And ServiceOrdID<>"" And DispatchOrdID<>"" And CInt(session("adminID"))=CInt(EntourageLeadID) Then
+If PaidMoneyType<>"" And IsNumeric(PaidMoney) And PaidMoneyTimestamp<>"" And ServiceOrdID<>"" And DispatchOrdID<>"" Then
+ If PaidMoney<>0 Then
+ Call PaidMoneyA(ServiceOrdID,DispatchOrdID,PaidMoney,PaidMoneyType,PaidMoneyTimestamp,PaidMoneyMono,PaidMoneyCheck)
+ End if
+End If
+
+
+Call OA_Running("璋冨害鍗曞井淇″嚭杞︾姸鎬佹洿鏀�:"&DispatchOrdID&" State:"&DispatchOrdState)
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+
+'钀ラ攢灏忕▼搴忔暟鎹洿鏂�
+If ToUserUUID<>"0" And ToUserUUID<>"" And (DispatchOrdState="8" Or DispatchOrdState="9") Then
+ sql="select top 1 id,iuid from UserUUID where id="&ToUserUUID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ iuid=rs("iuid")
+ If DispatchOrdState="8" Then
+ OrdPrice=old_TraTxnPrice
+ Else
+ OrdPrice=0
+ End If
+ Call Get_TritonshAPI(ToUserUUID,1,ServiceOrdID,iuid,ServiceOrdCoName,ServiceOrdCoPhone,OrdPrice)
+ End If
+ rs.close()
+End If
+'Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)
+
+'鏇存柊鎻愭垚鏁版嵁
+Call EntourageDKP_Money_C2(DispatchOrdID)
+
+'鍙戝嚭杞︾煭淇�
+If (DispatchOrdState="4") And Len(ServiceOrdCoPhone)=11 And DispatchOrdCarID<>"" And DispatchOrdCarID<>"0" Then
+ Send_Phone = ServiceOrdCoPhone
+ 'Send_Phone="13352878722"
+ lateCode="SMS_232168326" '鍑鸿溅鐭俊妯℃澘ID
+ SMSID=5399
+ sql="select vtext,vOrder2 from dictionary where vtitle in ('SMS') and id="&SMSID&" order by id desc"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ Send_Text=rs("vOrder2")
+ Send_Text=Replace(Send_Text,"#CarLicense#",CarDataA(DispatchOrdCarID,"","CarLicense"))
+ Send_Text=Replace(Send_Text,"#UserName#",OAUser(EntourageLeadID,"UserName"))
+ Send_Text=Replace(Send_Text,"#UserPhone#",OAUser(EntourageLeadID,"UserPhone"))
+ End If
+ rs.close()
+ Send_Text=Send_Text&"銆愬尰鐤楀揩绾裤��"
+ appUrl="https://api.966120.com.cn/v1/SendSms.php?Phone="&Send_Phone&"&UserName="&OAUser(EntourageLeadID,"UserName")&"&CarLicense="&CarDataA(DispatchOrdCarID,"","CarLicense")&"&lateCode="&lateCode
+ 'Response.Write appUrl
+ 'Response.end
+ HTMLCODE= PostBody(appUrl,args1)
+ Send_Remarks="DispatchOrdID:"&DispatchOrdID
+ sql="Insert into Sms_Log (Log_Id,Send_Text,Send_Phone,Send_OA,Send_errMsg,Send_Remarks) values ('闃块噷浜�','"&Send_Text&"','"&Send_Phone&"',"&session("adminID")&",'"&errMsg&"','"&Send_Remarks&"')"
+ objConn.Execute sql
+End If
+
+'鍖绘姢杩斿洖浜ゅ崟鎻愰啋
+If (DispatchOrdState="8" Or DispatchOrdState="9") Then
+ If DispatchOrdState="8" Then
+ NC_OAID="78"
+ NC_Name="銆�"&DispatchOrdNo&"鍖绘姢宸茶繑鍥炪��"
+ NC_Content="璋冨害鍗�:"&DispatchOrdNo&"鍖绘姢宸插畬鎴愪换鍔¤繑鍥�"
+ NC_PageUrl="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ NC_PageUrlM="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ Else
+ NC_OAID="78"
+ NC_Name="銆�"&DispatchOrdNo&"璺戠┖,鍖绘姢宸茶繑鍥炪��"
+ NC_Content="璋冨害鍗�:"&DispatchOrdNo&"璺戠┖,鍖绘姢宸茶繑鍥�"
+ NC_PageUrl="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ NC_PageUrlM="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ End If
+ Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
+
+
+End If
+
+
+Response.write "OK"
+Response.End%>
\ No newline at end of file
diff --git a/admin_save_33.gds b/admin_save_33.gds
new file mode 100644
index 0000000..93a49df
--- /dev/null
+++ b/admin_save_33.gds
@@ -0,0 +1,232 @@
+<%@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
+
+ServiceOrdID = SafeRequest(request("ServiceOrdID"))
+DispatchOrdID = SafeRequest(request("DispatchOrdID"))
+EntourageLeadID = SafeRequest(request("EntourageLeadID")) '棰嗛槦ID
+DispatchOrdCarID= SafeRequest(request("DispatchOrdCarID"))
+weixin = SafeRequest(request("weixin"))
+DispatchOrd_Check= SafeRequest(request("DispatchOrd_Check"))
+DispatchOrd_AP_Reason=SafeRequest(request("DispatchOrd_AP_Reason"))
+
+'杞繍鎯呭喌
+DispatchOrdActualDate = SafeRequest(request("DispatchOrdActualDate")) '鍑哄彂鏃堕棿
+DispatchOrdReturnDate = SafeRequest(request("DispatchOrdReturnDate")) '杩斿洖鏃堕棿
+DispatchOrdTraStreet = SafeRequest(request("DispatchOrdTraStreet")) '鍑哄彂鍦�
+DispatchOrdTraEnd = SafeRequest(request("DispatchOrdTraEnd")) '鐩殑鍦�
+DispatchOrdTraStreetMileage = SafeRequest(request("DispatchOrdTraStreetMileage")) '寮�濮嬮噷绋嬫暟
+DispatchOrdTraEndMileage = SafeRequest(request("DispatchOrdTraEndMileage")) '缁撴潫閲岀▼鏁�
+'DispatchOrdMileage = SafeRequest(request("DispatchOrdMileage")) '杞繍瀹為檯閲岀▼(鍏噷)
+DispatchOrdResult = SafeRequest(request("DispatchOrdResult")) '杞繍缁撴灉
+If DispatchOrdResult="0" Then DispatchOrdResult=SafeRequest(request("DispatchOrdResult_0")) '杞繍缁撴灉(鍏跺畠)
+If DispatchOrdMileage="" And Not IsNumeric(DispatchOrdMileage) Then DispatchOrdMileage=0
+DispatchOrdRemarks = SafeRequest(request("DispatchOrdRemarks")) '澶囨敞璇存槑
+DispatchOrdPerfomance = SafeRequest(request("DispatchOrdPerfomance")) '璋冨害鍗曠哗鏁�
+If DispatchOrdPerfomance="" Then DispatchOrdPerfomance=0
+If DispatchOrdTraStreetMileage="" And Not IsNumeric(DispatchOrdTraStreetMileage) Then DispatchOrdTraStreetMileage=0
+If DispatchOrdTraEndMileage="" And Not IsNumeric(DispatchOrdTraEndMileage) Then DispatchOrdTraEndMileage=0
+DispatchOrdMileage=DispatchOrdTraEndMileage-DispatchOrdTraStreetMileage
+ServiceOrdTraDistance = SafeRequest(request("ServiceOrdTraDistance")) '缁╂晥璺濈
+If ServiceOrdTraDistance="" Or Not isnumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance="0"
+If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","")
+ServiceOrdTraDistance = ServiceOrdTraDistance&"鍏噷"
+ServiceOrdPtServices = SafeRequest(Request("ServiceOrdPtServices")) '杞嚭绉戝
+ServiceOrdPtServicesID = SafeRequest(Request("ServiceOrdPtServicesID")) '杞嚭绉戝ID
+ServiceOrdPtInServices = SafeRequest(Request("ServiceOrdPtInServices")) '杞叆绉戝
+ServiceOrdPtInServicesID= SafeRequest(Request("ServiceOrdPtInServicesID")) '杞叆绉戝ID
+
+
+'鍙戠敓璐圭敤
+DispatchOrdLuqiaoFee = SafeRequest(request("DispatchOrdLuqiaoFee")) '璺ˉ璐�
+DispatchOrdGasolineFee = SafeRequest(request("DispatchOrdGasolineFee"))'娌硅垂
+DispatchOrdTravelFee = SafeRequest(request("DispatchOrdTravelFee")) '宸梾璐�
+DispatchOrdOtherFee = SafeRequest(request("DispatchOrdOtherFee")) '鍏跺畠璐圭敤
+DispatchOrdOtherFee_TXT = SafeRequest(request("DispatchOrdOtherFee_TXT"))'鍏跺畠璐圭敤璇存槑
+If DispatchOrdLuqiaoFee="" Then DispatchOrdLuqiaoFee=0
+If DispatchOrdGasolineFee="" Then DispatchOrdGasolineFee=0
+If DispatchOrdTravelFee="" Then DispatchOrdTravelFee=0
+If DispatchOrdOtherFee="" Then DispatchOrdOtherFee=0
+
+'姘ф皵銆佹槗鑰楀搧銆佽嵂鍝佹秷鑰�
+DispatchOrdOxygen = SafeRequest(request("DispatchOrdOxygen")) '姘ф皵
+DispatchOrdConsumables = SafeRequest(request("DispatchOrdConsumables"))'鏄撹�楀搧
+DispatchOrdDrugs = SafeRequest(request("DispatchOrdDrugs")) '鑽搧
+
+'闄勫姞鏃堕暱
+TimeLength_Program = SafeRequest(Request.form("TimeLength_Program")) '澶у瀷娲诲姩淇濋殰鏃堕暱
+TimeLength_ICU = SafeRequest(Request.form("TimeLength_ICU")) '灞呭ICU鏃堕暱
+TimeLength_Wait = SafeRequest(Request.form("TimeLength_Wait")) '绛夊緟鏃堕暱
+If TimeLength_Program="" Then TimeLength_Program=0
+If TimeLength_ICU="" Then TimeLength_ICU=0
+If TimeLength_Wait="" Then TimeLength_Wait=0
+
+'杞﹁締浣跨敤鎯呭喌
+CarInspectionID = SafeRequest(request("CarInspectionID"))
+CarInspection = SafeRequest(request("CarInspection"))
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+if DispatchOrdID<>"" Then
+ If IsDate(DispatchOrdActualDate) And DispatchOrdActualDate<>"" Then ActualDateSql=",DispatchOrdActualDate='"&DispatchOrdActualDate&"'"
+ If IsDate(DispatchOrdReturnDate) And DispatchOrdReturnDate<>"" Then ReturnDateSql=",DispatchOrdReturnDate='"&DispatchOrdReturnDate&"'"
+ If DispatchOrdTraStreet<>"" Then TraStreetSql=",DispatchOrdTraStreet='"&DispatchOrdTraStreet&"'"
+ If DispatchOrdTraEnd<>"" Then TraEndSql=",DispatchOrdTraEnd='"&DispatchOrdTraEnd&"'"
+ If DispatchOrd_Check="" then
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",11,"&session("adminID")&")"
+ objConn.Execute sql
+ IsEndSql=",DispatchOrdIsEndDate=getdate()"
+ EquipmentOASql=",EquipmentOAid="&session("adminID")&" ,EquipmentTime=getdate()"
+ End If
+
+ '淇敼璋冨害鍗�
+ sql="update DispatchOrd set DispatchOrdIsEnd=1"&IsEndSql&",DispatchOrdTraEndMileage="&DispatchOrdTraEndMileage&",DispatchOrdTraStreetMileage="&DispatchOrdTraStreetMileage&",DispatchOrdMileage="&DispatchOrdMileage&",DispatchOrdLuqiaoFee="&DispatchOrdLuqiaoFee&",DispatchOrdGasolineFee="&DispatchOrdGasolineFee&",DispatchOrdTravelFee="&DispatchOrdTravelFee&",DispatchOrdOtherFee="&DispatchOrdOtherFee&",DispatchOrdOtherFee_TXT='"&DispatchOrdOtherFee_TXT&"',DispatchOrdOxygen='"&DispatchOrdOxygen&"',DispatchOrdConsumables='"&DispatchOrdConsumables&"',DispatchOrdDrugs='"&DispatchOrdDrugs&"',DispatchOrdRemarks='"&DispatchOrdRemarks&"',DispatchOrdPerfomance="&DispatchOrdPerfomance&ActualDateSql&ReturnDateSql&TraStreetSql&TraEndSql&",TimeLength_Program="&TimeLength_Program&",TimeLength_ICU="&TimeLength_ICU&",TimeLength_Wait="&TimeLength_Wait&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+
+ '淇敼鏈嶅姟鍗�
+ If ServiceOrdID<>"" And ServiceOrdTraDistance<>"" And ServiceOrdTraDistance<>"0鍏噷" Then
+ sql="update ServiceOrder set ServiceOrdTraDistance='"&ServiceOrdTraDistance&"' where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+ If ServiceOrdID<>"" Then
+ CoSql=""
+ If ServiceOrdPtServicesID<>"" Then CoSql=CoSql&",ServiceOrdPtServicesID="&ServiceOrdPtServicesID&""
+ If ServiceOrdPtServices<>"" Then CoSql=CoSql&",ServiceOrdPtServices='"&ServiceOrdPtServices&"'"
+ If ServiceOrdPtInServicesID<>"" Then CoSql=CoSql&",ServiceOrdPtInServicesID="&ServiceOrdPtInServicesID&""
+ If ServiceOrdPtInServices<>"" Then CoSql=CoSql&",ServiceOrdPtInServices='"&ServiceOrdPtInServices&"'"
+ If CoSql<>"" Then
+ sql="update ServiceOrder set ServiceOrdUserID=ServiceOrdUserID"&CoSql&" where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+ End If
+
+ '鍙傚姞浜哄憳鎯呭喌
+ EId = SafeRequest(request("EId")) '浜哄憳ID
+ EId_SP = SPLIT(EId,", ")
+ for i=0 to ubound(EId_SP)
+ EId = EId_SP(i)
+ EntourageOT_is = SafeRequest(Request("EntourageOT_is_"&EId)) '浼戞伅鍑鸿溅
+ EntourageOT2_is = SafeRequest(Request("EntourageOT2_is_"&EId)) '鍔犵彮鍑鸿溅2
+ EntourageLong_is = SafeRequest(Request("EntourageLong_is_"&EId)) '瓒呴暱閫�
+ EntourageBetimesHH = SafeRequest(Request("EntourageBetimesHH_"&EId)) '鎻愬墠鍑鸿溅N灏忔椂
+ EntourageOther = SafeRequest(Request("EntourageOther_"&EId)) '鍏跺畠鎯呭喌
+ Stretcher_is = SafeRequest(Request("Stretcher_is_"&EId)) '鎶媴鏋�
+ If EntourageOT_is="" Then EntourageOT_is=0
+ If EntourageOT2_is="" Then EntourageOT2_is=0
+ If EntourageLong_is="" Then EntourageLong_is=0
+ If Stretcher_is="" Then Stretcher_is=0
+ If EntourageBetimesHH="" Then EntourageBetimesHH=0
+ '鏇存柊鍔犵彮瀹℃牳鐘舵��
+ sql="update DispatchOrd_Entourage set Check_is=0,Check_Time=null,Check_OAid=null where ((Check_is=1 and (EntourageOT_is<>0 or EntourageOT2_is<>0 or EntourageBetimesHH>0)) or (Check_is=2 and (EntourageOT_is<>"&EntourageOT_is&" or EntourageOT2_is<>"&EntourageOT2_is&" or EntourageBetimesHH<"&EntourageBetimesHH&"))) and id="&EId
+ objConn.Execute sql
+ '鏇存柊鍔犵彮鐘舵��
+ sql="update DispatchOrd_Entourage set EntourageOT_is="&EntourageOT_is&",EntourageOT2_is="&EntourageOT2_is&",EntourageLong_is="&EntourageLong_is&",EntourageBetimesHH="&EntourageBetimesHH&",EntourageOther='"&EntourageOther&"',Stretcher_is="&Stretcher_is&" where id="&EId
+ objConn.Execute sql
+ '鍐欏叆鎻愪氦瀹屾垚鏃堕棿
+ sql="update DispatchOrd_Entourage set EntourageEnd_Time=getdate() where EntourageEnd_Time is null and id="&EId
+ objConn.Execute sql
+
+ Next
+
+ '浜哄憳缁╂晥
+ call EntourageDKP_A(DispatchOrdID,DispatchOrdPerfomance)
+
+ '璁惧浣跨敤鎯呭喌_2021.4.6鍋滅敤
+ If 1=2 then
+ EquipmentID = SafeRequest(request("EquipmentID")) '璁惧ID
+ EquipmentID_SP = SPLIT(EquipmentID,", ")
+ for i=0 to ubound(EquipmentID_SP)
+ EquipmentID = EquipmentID_SP(i)
+ EquipmentDefault = SafeRequest(Request("EquipmentDefault_"&EquipmentID)) '榛樿浣跨敤鎯呭喌
+ EquipmentUseSituation = SafeRequest(Request("EquipmentUseSituation_"&EquipmentID))'浣跨敤鎯呭喌
+ EquipmentInspect = SafeRequest(Request("EquipmentInspect_"&EquipmentID)) '杩旂珯鍚庢鏌�
+ If EquipmentUseSituation="" Then EquipmentUseSituation=EquipmentDefault
+ If EquipmentInspect="" Then EquipmentInspect="姝ｅ父"
+ sql="select id from DispatchOrd_Equipment where EquipmentID="&EquipmentID&" and DispatchOrdIDDt="&DispatchOrdID
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update DispatchOrd_Equipment set EquipmentUseSituation='"&EquipmentUseSituation&"',EquipmentInspect='"&EquipmentInspect&"'"&EquipmentOASql&" where id="&rs("id")
+ objConn.Execute sql
+ Else
+ sql="insert into DispatchOrd_Equipment (EquipmentID,DispatchOrdIDDt,EquipmentUseSituation,EquipmentInspect,EquipmentOAid) values ("&EquipmentID&","&DispatchOrdID&",'"&EquipmentUseSituation&"','"&EquipmentInspect&"',"&session("adminID")&")"
+ objConn.Execute sql
+ End If
+ rs.close()
+ Next
+ End If
+ '璁惧浣跨敤鎯呭喌_2021.4.6鍚敤
+ strItmID = SafeRequest(request("strItmID")) '璁惧ID
+ strItmID_SP = SPLIT(strItmID,", ")
+ for i=0 to ubound(strItmID_SP)
+ strItmID = strItmID_SP(i)
+ EquipmentDefault = SafeRequest(Request("EquipmentDefault_"&strItmID)) '榛樿浣跨敤鎯呭喌
+ EquipmentUseSituation = SafeRequest(Request("EquipmentUseSituation_"&strItmID)) '浣跨敤鎯呭喌(鏁伴噺)
+ EquipmentPurchasePrice = SafeRequest(Request("EquipmentPurchasePrice_"&strItmID)) '鐗╁搧鎴愭湰
+ 'EquipmentInspect = SafeRequest(Request("EquipmentInspect_"&strItmID)) '杩旂珯鍚庢鏌�
+ If EquipmentUseSituation="" Then EquipmentUseSituation=EquipmentDefault
+ If not IsNumeric(EquipmentUseSituation) Then EquipmentUseSituation=0
+ If not IsNumeric(EquipmentPurchasePrice) Then EquipmentPurchasePrice=0
+ 'If EquipmentInspect="" Then EquipmentInspect="姝ｅ父"
+ 'EquipmentPurchasePrice=0
+ sql="select id from DispatchOrd_Equipment2 where strItmIDPK="&strItmID&" and DispatchOrdIDDt="&DispatchOrdID
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update DispatchOrd_Equipment2 set EquipmentUseSituation="&EquipmentUseSituation&" "&EquipmentOASql&" where id="&rs("id")
+ objConn.Execute sql
+ Else
+ sql="insert into DispatchOrd_Equipment2 (strItmIDPK,DispatchOrdIDDt,EquipmentUseSituation,EquipmentPurchasePrice,EquipmentOAid) values ("&strItmID&","&DispatchOrdID&","&EquipmentUseSituation&","&EquipmentPurchasePrice&","&session("adminID")&")"
+ objConn.Execute sql
+ End If
+ rs.close()
+ Next
+
+ '杞﹁締浣跨敤鎯呭喌
+ If CarInspection<>"" Then
+ CarInspection = Replace(CarInspection,":, ",":")
+ CarInspection = Replace(CarInspection,", ","|")
+ CarInspection = CarInspection&"|"
+ If CarInspectionID<>"" Then
+ sql="update CarInspection set CarInspection='"&CarInspection&"',InspectionDate=getdate(),OAID="&session("adminID")&",OATime=getdate() where CarInspection<>'"&CarInspection&"' and id="&CarInspectionID
+ objConn.Execute sql
+ Else
+ sql="insert into CarInspection (InspectionCarID,DispatchOrdIDPK,CarInspection,OAID,InspectionState) values ("&DispatchOrdCarID&","&DispatchOrdID&",'"&CarInspection&"',"&session("adminID")&",2)"
+ objConn.Execute sql
+ End If
+ End If
+
+ '榛樿鑷姩瀹℃牳閫氳繃
+ 'sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",12,"&session("adminID")&")"
+ 'objConn.Execute sql
+ 'sql="update DispatchOrd set DispatchOrd_AP_Check=1,DispatchOrd_AP_Time=getdate(),DispatchOrd_AP_ID="&session("adminID")&" where DispatchOrdID="&DispatchOrdID
+ 'objConn.Execute sql
+
+End If
+
+'瀹℃牳杞烦
+If DispatchOrd_Check="1" Or DispatchOrd_Check="4" Or DispatchOrd_Check="0" Then
+ ReturnURL="admin_save.gds?admin_save=28&DispatchOrd_Check="&DispatchOrd_Check&"&DispatchOrdID="&DispatchOrdID&"&DispatchOrd_AP_Reason="&DispatchOrd_AP_Reason
+
+ElseIf weixin="1" then
+ 'ReturnURL="/m_DispatchOrder_End.gds?order_type=5&DispatchOrdID="&DispatchOrdID
+ session("JsonKey")="1"
+ ReturnURL="/weixin/message_send_DispatchOrder_end.gds?DispatchOrdID="&DispatchOrdID
+
+Else
+ ReturnURL="/DispatchOrder_End.gds?h_menu1_1=1&SystemMessageType=3&SMT=4&DispatchOrdID="&DispatchOrdID
+End If
+'鏇存柊鎻愭垚鏁版嵁
+Call EntourageDKP_Money_C2(DispatchOrdID)
+Call OA_Running("璋冨害鍗曞井淇¤皟搴﹀崟鎻愪氦鏁版嵁瀹℃牳:"&DispatchOrdID)
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+Response.write "OK"
+Response.End
+%>
\ No newline at end of file
diff --git a/admin_save_34.gds b/admin_save_34.gds
new file mode 100644
index 0000000..e95fe32
--- /dev/null
+++ b/admin_save_34.gds
@@ -0,0 +1,102 @@
+<%@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
+%>
\ No newline at end of file
diff --git a/admin_save_9.4.gds b/admin_save_9.4.gds
index 10a3fad..a3793a5 100644
--- a/admin_save_9.4.gds
+++ b/admin_save_9.4.gds
@@ -763,7 +763,7 @@
ServiceOrd_work_is = SafeRequest(request.form("ServiceOrd_work_is")) '鏄惁浼佸井鎴愪氦
ServiceOrdOperationRemarks = SafeRequest(Request.form("ServiceOrdOperationRemarks"))'鎿嶄綔澶囨敞
ServiceOrdEstimatedOrderDate= SafeRequest(Request.form("ServiceOrdEstimatedOrderDate"))'棰勮娲惧崟鏃堕棿
-ServiceOrdSource = SafeRequest(Request.form("ServiceOrdSource")) '璁㈠崟鏉ユ簮
+ = SafeRequest(Request.form("ServiceOrdSource")) '璁㈠崟鏉ユ簮
OrderLevel = SafeRequest(Request.form("OrderLevel")) '鏌ョ湅绛夌骇
ServiceOrdDepartureType = SafeRequest(Request.form("ServiceOrdDepartureType")) '棰勭害绫诲瀷
ConditionLevel = SafeRequest(Request.form("ConditionLevel")) '鐥呴噸绾у埆
diff --git a/admin_save_follower.gds b/admin_save_follower.gds
new file mode 100644
index 0000000..0690368
--- /dev/null
+++ b/admin_save_follower.gds
@@ -0,0 +1,58 @@
+<%
+Function delFollower(ServiceOrderID)
+ sql = "DELETE FROM ServiceOrderCommissionDetails WHERE ServiceOrderID = " & ServiceOrderID & " AND PersonType = 'Follower'"
+ objConn.Execute sql
+End Function
+
+Function SaveFollower(ServiceOrderID,userId,userName,userRatio)
+ if userId<>"" and userName<>"" and userRatio<>"" then
+ ' 濡傛灉涓嶅瓨鍦紝鍒欐彃鍏ユ柊璁板綍
+ sql = "INSERT INTO ServiceOrderCommissionDetails (ServiceOrderID, PersonID, PersonName, CommissionRatio, PersonType) VALUES (" & ServiceOrderID & ", " & userId & ", '" & userName & "', " & userRatio & ", 'Follower')"
+ objConn.Execute sql
+ End if
+End Function
+
+Function SaveFollowers(ServiceOrderID)
+ ' 鍏堝垹闄ゆ墍鏈夎窡鍗曚汉璁板綍
+ followerCount = SafeRequest(Request.form("FollowersCount"))
+ If Trim(followerCount)<>"" and IsNumeric(followerCount) then
+ numericFollowerCount = CInt(Trim(followerCount))
+
+ if numericFollowerCount>0 then
+ delFollower ServiceOrderID
+ for i=1 to numericFollowerCount
+ userId = SafeRequest(Request.form("FollowerId_" & i ))
+ userName = SafeRequest(Request.form("FollowerName_" & i))
+ userRatio = SafeRequest(Request.form("FollowerRatio_" & i))
+ SaveFollower ServiceOrderID, userId, userName, userRatio
+ next
+ end if
+ end if
+End Function
+
+
+' 淇濆瓨寮�鍗曚汉鍙婃彁鎴愭瘮渚嬬殑鍑芥暟
+Function SaveOpenerCommission(ServiceOrderID)
+ OpenerID = SafeRequest(Request.form("OpenUserID")) '寮�鍗曚汉ID
+ OpenerName = SafeRequest(Request.form("OpenUserName")) '寮�鍗曚汉鍚嶇О
+ OpenerRatio = SafeRequest(Request.form("OpenUserRatio")) '寮�鍗曚汉鎻愭垚姣斾緥
+ if OpenerID<>"" and OpenerName<>"" and OpenerRatio<>"" then
+
+ ' 鍏堟鏌ユ槸鍚﹀凡缁忓瓨鍦ㄨ鏈嶅姟鍗曠殑寮�鍗曚汉璁板綍
+ sql = "SELECT ID FROM ServiceOrderCommissionDetails WHERE ServiceOrderID = " & ServiceOrderID & " AND PersonType = 'Opener'"
+
+ rs.Open sql, objConn, 1, 1
+
+ If rs.EOF Then
+ ' 濡傛灉涓嶅瓨鍦紝鍒欐彃鍏ユ柊璁板綍
+ sql = "INSERT INTO ServiceOrderCommissionDetails (ServiceOrderID, PersonID, PersonName, CommissionRatio, PersonType) VALUES (" & ServiceOrderID & ", " & OpenerID & ", '" & OpenerName & "', " & OpenerRatio & ", 'Opener')"
+ Else
+ ' 濡傛灉瀛樺湪锛屽垯鏇存柊璁板綍
+ sql = "UPDATE ServiceOrderCommissionDetails SET PersonID = " & OpenerID & ", PersonName = '" & OpenerName & "', " &"CommissionRatio = " & OpenerRatio & " WHERE ID = " & rs("ID")
+ End If
+ 'response.write sql
+ rs.Close
+ objConn.Execute sql
+ End if
+End Function
+%>
\ No newline at end of file
diff --git a/admin_save_for_wx.gds b/admin_save_for_wx.gds
new file mode 100644
index 0000000..3e20603
--- /dev/null
+++ b/admin_save_for_wx.gds
@@ -0,0 +1,9518 @@
+<%@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"-->
+<%
+dim admin_save
+admin_save=request("admin_save")
+admin_save_type= request("admin_save_type")
+
+
+<%
+Function delFollower(ServiceOrderID)
+ sql = "DELETE FROM ServiceOrderCommissionDetails WHERE ServiceOrderID = " & ServiceOrderID & " AND PersonType = 'Follower'"
+ objConn.Execute sql
+End Function
+
+Function SaveFollower(ServiceOrderID,userId,userName,userRatio)
+ if userId<>"" and userName<>"" and userRatio<>"" then
+ ' 濡傛灉涓嶅瓨鍦紝鍒欐彃鍏ユ柊璁板綍
+ sql = "INSERT INTO ServiceOrderCommissionDetails (ServiceOrderID, PersonID, PersonName, CommissionRatio, PersonType) VALUES (" & ServiceOrderID & ", " & userId & ", '" & userName & "', " & userRatio & ", 'Follower')"
+ objConn.Execute sql
+ End if
+End Function
+
+Function SaveFollowers(ServiceOrderID)
+ ' 鍏堝垹闄ゆ墍鏈夎窡鍗曚汉璁板綍
+ followerCount = SafeRequest(Request.form("FollowersCount"))
+ If Trim(followerCount)<>"" and IsNumeric(followerCount) then
+ numericFollowerCount = CInt(Trim(followerCount))
+
+ if numericFollowerCount>0 then
+ delFollower ServiceOrderID
+ for i=1 to numericFollowerCount
+ userId = SafeRequest(Request.form("FollowerId_" & i ))
+ userName = SafeRequest(Request.form("FollowerName_" & i))
+ userRatio = SafeRequest(Request.form("FollowerRatio_" & i))
+ SaveFollower ServiceOrderID, userId, userName, userRatio
+ next
+ end if
+ end if
+End Function
+
+
+' 淇濆瓨寮�鍗曚汉鍙婃彁鎴愭瘮渚嬬殑鍑芥暟
+Function SaveOpenerCommission(ServiceOrderID)
+ OpenerID = SafeRequest(Request.form("OpenUserID")) '寮�鍗曚汉ID
+ OpenerName = SafeRequest(Request.form("OpenUserName")) '寮�鍗曚汉鍚嶇О
+ OpenerRatio = SafeRequest(Request.form("OpenUserRatio")) '寮�鍗曚汉鎻愭垚姣斾緥
+ if OpenerID<>"" and OpenerName<>"" and OpenerRatio<>"" then
+
+ ' 鍏堟鏌ユ槸鍚﹀凡缁忓瓨鍦ㄨ鏈嶅姟鍗曠殑寮�鍗曚汉璁板綍
+ sql = "SELECT ID FROM ServiceOrderCommissionDetails WHERE ServiceOrderID = " & ServiceOrderID & " AND PersonType = 'Opener'"
+
+ rs.Open sql, objConn, 1, 1
+
+ If rs.EOF Then
+ ' 濡傛灉涓嶅瓨鍦紝鍒欐彃鍏ユ柊璁板綍
+ sql = "INSERT INTO ServiceOrderCommissionDetails (ServiceOrderID, PersonID, PersonName, CommissionRatio, PersonType) VALUES (" & ServiceOrderID & ", " & OpenerID & ", '" & OpenerName & "', " & OpenerRatio & ", 'Opener')"
+ Else
+ ' 濡傛灉瀛樺湪锛屽垯鏇存柊璁板綍
+ sql = "UPDATE ServiceOrderCommissionDetails SET PersonID = " & OpenerID & ", PersonName = '" & OpenerName & "', " &"CommissionRatio = " & OpenerRatio & " WHERE ID = " & rs("ID")
+ End If
+ 'response.write sql
+ rs.Close
+ objConn.Execute sql
+ End if
+End Function
+%>
+
+<%
+objConn.BeginTrans
+
+select case admin_save%>
+
+
+
+<%case "19"
+'-------------------------------------------------------------鏂板鏈嶅姟鍗�
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+ServiceOrdClass = SafeRequest(Request.form("ServiceOrdClass")) '鍗曟嵁绫诲瀷
+ServiceOrdAreaType = SafeRequest(Request.form("ServiceOrdAreaType")) '鏈嶅姟鍗曟墽琛屽尯鍩�
+ServiceOrdType = SafeRequest(Request.form("ServiceOrdType")) '鏈嶅姟鍗曟墽琛岀被鍨�
+ServiceOrdState = SafeRequest(Request.form("ServiceOrdState")) '鏈嶅姟鍗曠姸鎬�
+ServiceOrdStartDate = SafeRequest(Request.form("ServiceOrdStartDate")) '寮�鍗曟棩鏈�
+ServiceOrdApptDate = SafeRequest(Request.form("ServiceOrdApptDate")) '棰勭害鏃ユ湡
+ServiceOrdCoName = SafeRequest(Request.form("ServiceOrdCoName")) '鑱旂郴浜哄鍚�
+ServiceOrdCoPhone = StrTrim(SafeRequest(Request.form("ServiceOrdCoPhone"))) '鑱旂郴浜虹數璇�
+ServiceOrdCoTies = SafeRequest(Request.form("ServiceOrdCoTies")) '鑱旂郴浜轰笌鎮ｈ�呭叧绯�
+ServiceOrdPtName = SafeRequest(Request.form("ServiceOrdPtName")) '鎮ｈ�呭鍚�
+ServiceOrdPtAge = SafeRequest(Request.form("ServiceOrdPtAge")) '鎮ｈ�呭勾榫�
+ServiceOrdPtKG = SafeRequest(Request.form("ServiceOrdPtKG")) '鎮ｈ�呬綋閲�
+ServiceOrdPtSex = SafeRequest(Request.form("ServiceOrdPtSex")) '鎮ｈ�呮�у埆
+ServiceOrdPtNat = SafeRequest(Request.form("ServiceOrdPtNat")) '鎮ｈ�呭浗绫�
+ServiceOrdPtIDCard = SafeRequest(Request.form("ServiceOrdPtIDCard")) '鎮ｈ�呰韩浠借瘉
+ServiceOrdPtOutHospID_New=SafeRequest(Request.form("ServiceOrdPtOutHospID")) '杞嚭鍖婚櫌ID
+ServiceOrdPtOutHosp = SafeRequest(Request.form("ServiceOrdPtOutHosp")) '杞嚭鍖婚櫌
+ServiceOrdPtInHospID_New=SafeRequest(Request.form("ServiceOrdPtInHospID")) '杞叆鍖婚櫌ID
+ServiceOrdPtInHosp = SafeRequest(Request.form("ServiceOrdPtInHosp")) '杞叆鍖婚櫌
+ServiceOrdPtServices = SafeRequest(Request.form("ServiceOrdPtServices")) '杞嚭绉戝
+ServiceOrdPtServicesID = SafeRequest(Request.form("ServiceOrdPtServicesID")) '杞嚭绉戝ID
+ServiceOrdPtInServices = SafeRequest(Request.form("ServiceOrdPtInServices")) '杞叆绉戝
+ServiceOrdPtInServicesID= SafeRequest(Request.form("ServiceOrdPtInServicesID")) '杞叆绉戝ID
+ServiceOrdPtDiagnosis = SafeRequest(Request.form("ServiceOrdPtDiagnosis")) '璇婃柇
+ServiceOrdPtCondition = SafeRequest(Request.form("ServiceOrdPtCondition")) '鐥呮儏鎻忚堪
+ServiceOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '鍖绘姢鍙稿娉�
+ServiceOrdPtDoctor = SafeRequest(Request.form("ServiceOrdPtDoctor")) '鎮ｈ�呭尰鐢�
+ServiceOrdPtDoctorPhone = SafeRequest(Request.form("ServiceOrdPtDoctorPhone")) '鎮ｈ�呭尰鐢熺數璇�
+ServiceOrdTraProvince = SafeRequest(Request.form("province")) '鍑哄彂鍦扮渷浠�
+ServiceOrdTraCity = SafeRequest(Request.form("city")) '鍑哄彂鍦板煄甯�
+ServiceOrdTraStreet = SafeRequest(Request.form("ServiceOrdTraStreet")) '鍑哄彂鍦�
+ServiceOrdTraStreetCoo = SafeRequest(Request.form("ServiceOrdTraStreetCoo")) '鍑哄彂鍦板潗鏍�
+ServiceOrdTraEnd = SafeRequest(Request.form("ServiceOrdTraEnd")) '鐩殑鍦�
+ServiceOrdTraEndCoo = SafeRequest(Request.form("ServiceOrdTraEndCoo")) '鐩殑鍦板潗鏍�
+ServiceOrdTraVia = SafeRequest(Request.form("ServiceOrdTraVia")) '閫旂粡鍦�
+ServiceOrdViaDistance = SafeRequest(Request.form("ServiceOrdViaDistance")) '涓�旇窛绂�(鍏噷)
+ServiceOrdTraDistance = SafeRequest(Request.form("ServiceOrdTraDistance")) '璺濈(鍏噷)
+ServiceOrdTraDuration = SafeRequest(Request.form("ServiceOrdTraDuration")) '棰勮琛岀▼鏃堕棿
+ServiceOrdTraUnitPrice = SafeRequest(Request.form("ServiceOrdTraUnitPrice")) '鍗曚环/鍏噷
+ServiceOrdTraOfferPrice = SafeRequest(Request.form("ServiceOrdTraOfferPrice")) '鏍囧噯鎶ヤ环
+ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '鎴愪氦浠�
+ServiceOrdTraPrePayment = SafeRequest(Request.form("ServiceOrdTraPrePayment")) '闇�棰勪粯娆�
+SettlementPrice = SafeRequest(Request.form("SettlementPrice")) '缁撶畻浠�
+ServiceOrdTraPriceReason= SafeRequest(Request.form("ServiceOrdTraPriceReason")) '宸环鍘熷洜
+TEL_Phone = SafeRequest(Request.form("Phone")) '鏉ョ數鐢佃瘽
+TEL_Time = SafeRequest(Request.form("TEL_Time")) '鏉ョ數鏃堕棿
+TEL_Remarks = SafeRequest(Request.form("TEL_Remarks")) '鏉ョ數澶囨敞
+TransferModeID = SafeRequest(Request.form("TransferModeID")) '杞繍鏂瑰紡
+ServiceOrdVIP = SafeRequest(Request.form("ServiceOrdVIP")) 'VIP瀹㈡埛
+ServiceOrd_CC_ID = SafeRequest(Request.form("ServiceOrd_CC_ID")) '瀹㈡湇浜哄憳ID
+ServiceOrd_Sale_ID = SafeRequest(Request.form("ServiceOrd_Sale_ID")) '閿�鍞汉鍛業D
+ServiceOrdIntroducer = SafeRequest(Request.form("ServiceOrdIntroducer")) '浠嬬粛浜�
+ServiceOrd_work_ID = SafeRequest(Request.form("ServiceOrd_work_ID")) '涓昏浼佸井瀹㈡湇ID
+ServiceOrd_work_IDs = SafeRequest(Request.form("ServiceOrd_work_IDs")) '鍏朵粬浼佸井瀹㈡湇ID
+ServiceOrd_work_is = SafeRequest(request.form("ServiceOrd_work_is")) '鏄惁浼佸井鎴愪氦
+CommissionScenarioID = SafeRequest(request.form("CommissionScenarioID")) '浼佸井缁╂晥鏂规
+ServiceOrdOperationRemarks = SafeRequest(Request.form("ServiceOrdOperationRemarks"))'鎿嶄綔澶囨敞
+ServiceOrdEstimatedOrderDate= SafeRequest(Request.form("ServiceOrdEstimatedOrderDate"))'棰勮娲惧崟鏃堕棿
+ServiceOrdSource = SafeRequest(Request.form("ServiceOrdSource")) '璁㈠崟鏉ユ簮
+OrderLevel = SafeRequest(Request.form("OrderLevel")) '鏌ョ湅绛夌骇
+ServiceOrdDepartureType = SafeRequest(Request.form("ServiceOrdDepartureType")) '棰勭害绫诲瀷
+ConditionLevel = SafeRequest(Request.form("ConditionLevel")) '鐥呴噸绾у埆
+DirectionType = SafeRequest(Request.form("DirectionType")) '杞繍鍘诲悜
+ServiceOrd_m = SafeRequest(Request.form("ServiceOrd_m")) '鏉ユ簮鍏ュ彛
+FromHQ2_is = SafeRequest(Request.form("FromHQ2_is")) '骞垮窞鎬婚儴鎺ㄩ�佷换鍔℃爣璁�
+OrderPrice_Auto = SafeRequest(Request.form("OrderPrice_Auto")) '璁㈠崟鑷姩鎶ヤ环鍙傝�冨��
+
+
+
+
+Call RequestForm(Origin)
+session("Origin")=Origin
+'response.write Origin
+
+If ServiceOrdTraUnitPrice="" Then ServiceOrdTraUnitPrice=0
+If ServiceOrdTraOfferPrice="" Then ServiceOrdTraOfferPrice=0
+If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
+If ServiceOrdTraPrePayment="" Then ServiceOrdTraPrePayment=0
+If SettlementPrice="" Then SettlementPrice=0
+If InStr(ServiceOrdTraTxnPrice,",")>0 Then ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","")
+If InStr(ServiceOrdTraOfferPrice,",")>0 Then ServiceOrdTraOfferPrice=Replace(ServiceOrdTraOfferPrice,",","")
+If InStr(ServiceOrdTraPrePayment,",")>0 Then ServiceOrdTraPrePayment=Replace(ServiceOrdTraPrePayment,",","")
+If InStr(SettlementPrice,",")>0 Then SettlementPrice=Replace(SettlementPrice,",","")
+If ServiceOrdState="" Then ServiceOrdState=1
+'If InStr(ServiceOrdTraDistance,"鍏噷")>0 Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance,"鍏噷","")
+'If InStr(ServiceOrdTraDistance,"绫�")>0 Then ServiceOrdTraDistance=CInt(Replace(ServiceOrdTraDistance,"绫�",""))/1000
+If ServiceOrdViaDistance="" Or OrderLevel<>"2" Then ServiceOrdViaDistance=0
+If ServiceOrdTraDistance="" Then ServiceOrdTraDistance=0
+If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","")
+If ServiceOrd_Sale_ID="" Then ServiceOrd_Sale_ID="null"
+If ServiceOrd_work_ID="" Then ServiceOrd_work_ID="null"
+If ServiceOrd_work_is="" Then ServiceOrd_work_is=0
+If CommissionScenarioID="" Then CommissionScenarioID=0
+If ServiceOrd_CC_ID="" Then ServiceOrd_CC_ID=session("adminID")
+If ServiceOrdPtOutHospID_New="" Then ServiceOrdPtOutHospID_New=0
+If ServiceOrdPtInHospID_New="" Then ServiceOrdPtInHospID_New=0
+If ServiceOrdVIP="" Then ServiceOrdVIP=0
+If ServiceOrdSource="" Then ServiceOrdSource=0
+If ServiceOrdPtServicesID="" Then ServiceOrdPtServicesID=0
+If ServiceOrdPtInServicesID="" Then ServiceOrdPtInServicesID=0
+If OrderLevel="" Then OrderLevel=0
+If ServiceOrdDepartureType="" Then ServiceOrdDepartureType=1
+If ConditionLevel="" Then ConditionLevel=0
+If DirectionType="" Then DirectionType=0
+If FromHQ2_is="" Then FromHQ2_is=0
+If OrderPrice_Auto="" or OrderPrice_Auto="undefined" Then OrderPrice_Auto="0"
+RedirectURL="ServiceOrder.gds"
+
+'鏁版嵁涓嶅畬鏁�
+If (ServiceOrdState="1" Or ServiceOrdState="4") And (ServiceOrdCoPhone="" Or ServiceOrdClass="" Or ServiceOrdTraDistance="" or ServiceOrdType="" Or ServiceOrdAreaType="") Then Response.Redirect "/ServiceOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=1&error=,ServiceOrdCoPhone,"
+If ServiceOrdState="2" And ServiceOrd_m<>"1" Then
+ error=","
+ If ServiceOrdAreaType="" Then error=error&"ServiceOrdAreaType,"
+ If ServiceOrdType="" Then error=error&"ServiceOrdType,"
+ If ServiceOrdCoPhone="" Or ServiceOrdClass="" Then error=error&"ServiceOrdCoPhone,"
+ If ServiceOrdTraDistance="" Then error=error&"ServiceOrdTraDistance,"
+ If ServiceOrdCoName="" Then error=error&"ServiceOrdCoName,"
+ 'If ServiceOrdApptDate="" Then error=error&"ServiceOrdApptDate,"
+ If ServiceOrdPtName="" Then error=error&"ServiceOrdPtName,"
+ 'If ServiceOrdPtOutHosp="" Then error=error&"ServiceOrdPtOutHosp,"
+ If ServiceOrdTraStreet="" Then error=error&"ServiceOrdTraStreet,"
+ If ServiceOrdTraEnd="" Then error=error&"ServiceOrdTraEnd,"
+ If ServiceOrdTraTxnPrice="" Then error=error&"ServiceOrdTraTxnPrice,"
+ 'If ServiceOrd_Sale_ID="" Then error=error&"ServiceOrd_Sale_Name,"
+ 'If ServiceOrdIntroducer="" Then error=error&"ServiceOrdIntroducer,"
+ If ServiceOrdSource="0" Then error=error&"ServiceOrdSource,"
+ 'If ConditionLevel="0" Then error=error&"ConditionLevel,"
+ 'If DirectionType="0" Then error=error&"DirectionType,"
+ If ServiceOrdPtServicesID="0" Then error=error&"ServiceOrdPtServicesID,"
+ If ServiceOrdPtInServicesID="0" Then error=error&"ServiceOrdPtInServicesID,"
+
+ RedirectURL="ServiceOrder.gds"
+ If Len(error)>2 Then Response.Redirect "/"&RedirectURL&"?Phone="&TEL_Phone&"&SystemMessageType=4&SMT=4&error="&Error
+
+ElseIf ServiceOrd_m="1" Then
+ '鎵嬫満绔粯璁ゅ��
+ If ServiceOrdCoPhone="" Then ServiceOrdCoPhone=""
+ If ServiceOrdTraProvince="" Then ServiceOrdTraProvince=""
+ If ServiceOrdTraCity="" Then ServiceOrdTraCity=""
+ If ServiceOrdTraStreet="" And ServiceOrdClass<>"" Then
+ sql="select vMono from dictionary where vType=1 and vtitle='OrderClass' and vOrder2='"&ServiceOrdClass&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdTraStreet=rs(0)
+ End If
+ rs.close()
+ End If
+ If ServiceOrdTraVia="" Then ServiceOrdTraVia=ServiceOrdPtOutHosp
+ If ServiceOrdTraEnd="" Then ServiceOrdTraEnd=ServiceOrdPtInHosp
+
+ error=","
+ If ServiceOrdCoName="" Then error=error&"ServiceOrdCoName,"
+ If ServiceOrdPtName="" Then error=error&"ServiceOrdPtName,"
+ 'If ConditionLevel="0" Then error=error&"ConditionLevel,"
+ 'If DirectionType="0" Then error=error&"DirectionType,"
+ If ServiceOrdPtOutHospID_New="" Then error=error&"ServiceOrdPtOutHospID,"
+ If ServiceOrdPtInHospID_New="" Then error=error&"ServiceOrdPtInHospID,"
+ RedirectURL="m_ServiceOrder.gds"
+ If Len(error)>2 Then Response.Redirect "/"&RedirectURL&"?NEWOrder="&NEWOrder&"&SystemMessageType=4&SMT=4&error="&error
+End if
+
+
+'楠岃瘉鏈夋病閲嶅鎻愪氦
+sql="select ServiceOrdID from ServiceOrder where ServiceOrdCoPhone='"&ServiceOrdCoPhone&"' and ServiceOrdStartDate='"&ServiceOrdStartDate&"'"
+rs.open sql,objConn,1,1
+if not rs.eof Then
+ session("Origin")=""
+ Response.Redirect "/"&RedirectURL&"?SystemMessageType=4&SMT=2&ServiceOrdID="&rs(0)
+End if
+rs.close()
+
+'娉ㄥ唽&鏌ヨ鐢ㄦ埛ID
+If ServiceOrdCoPhone<>"" And Len(ServiceOrdCoPhone)=11 And Left(ServiceOrdCoPhone,1)="1" And IsNumeric(ServiceOrdCoPhone) Then
+ UserPhone=ServiceOrdCoPhone
+ UserName=ServiceOrdCoName
+ Call User_Login(UserID,UserPhone,wxOriginalID,wxOpenid,wxUnionID,UserSource,UserName)
+Else
+ UserID=0
+End If
+
+'閲嶅鎵嬫満鍙风爜姣忔湀涓嶈兘瓒呰繃5涓鍗�,鍙栨秷涓嶇畻
+sql="select count(ServiceOrdID) from ServiceOrder where ServiceOrdCoPhone='"&ServiceOrdCoPhone&"' and ServiceOrdState<>4 and ServiceOrd_CC_Time between DATEADD(mm,DATEDIFF(mm,0,getdate()),0) and dateadd(ms,-3,DATEADD(mm,DATEDIFF(m,0,getdate())+1,0))"
+rs.open sql,objConn,1,1
+if rs(0)>5 Then
+ 'Response.Redirect "/"&RedirectURL&"?Phone="&TEL_Phone&"&NEWOrder="&NEWOrder&"&SystemMessageType=4&SMT=12"
+End if
+rs.close()
+
+'鏌ユ壘鍖婚櫌ID
+If ServiceOrdPtOutHosp<>"" Then
+ If InStr(ServiceOrdPtOutHosp,"|")>0 Then ServiceOrdPtOutHosp=Mid(ServiceOrdPtOutHosp,1,InStr(ServiceOrdPtOutHosp,"|")-1)
+ sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtOutHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID=rs(0)
+ Else
+ rs.close()
+ sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID=rs(0)+1
+ Else
+ ServiceOrdPtOutHospID=1
+ End if
+ sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtOutHospID&",'"&ServiceOrdPtOutHosp&"','HospName',1,'鍖婚櫌鍚嶇О')"
+ objConn.Execute sql
+ End If
+ rs.close()
+ If ServiceOrdPtOutHospID_New="0" Then
+ sql="select HospID from HospData where HospState=1 and HospName='"&ServiceOrdPtOutHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID_New=rs(0)
+ End If
+ rs.close()
+ End If
+Else
+ ServiceOrdPtOutHospID=0
+End If
+If ServiceOrdPtInHosp<>"" then
+ If InStr(ServiceOrdPtInHosp,"|")>0 Then ServiceOrdPtInHosp=Mid(ServiceOrdPtInHosp,1,InStr(ServiceOrdPtInHosp,"|")-1)
+ sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtInHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID=rs(0)
+ Else
+ rs.close()
+ sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID=rs(0)+1
+ Else
+ ServiceOrdPtInHospID=1
+ End if
+ sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtInHospID&",'"&ServiceOrdPtInHosp&"','HospName',1,'鍖婚櫌鍚嶇О')"
+ objConn.Execute sql
+ End If
+ rs.close()
+ If ServiceOrdPtInHospID_New="0" Then
+ sql="select HospID from HospData where HospState=1 and HospName='"&ServiceOrdPtInHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID_New=rs(0)
+ End If
+ rs.close()
+ End If
+Else
+ ServiceOrdPtInHospID=0
+End If
+
+'鏌ユ壘鍚堜綔鍗曚綅ID
+If ServiceOrdIntroducer<>"" And IsNumeric(ServiceOrdIntroducer) Then
+ sql="select IntroducerID,IntroducerName,IntroducerUnitID from IntroducerData where IntroducerUnitID<>'' and IntroducerID="&ServiceOrdIntroducer
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdUnitID=rs("IntroducerUnitID")
+ Else
+ ServiceOrdUnitID=0
+ End If
+ rs.close()
+Else
+ ServiceOrdUnitID=0
+End If
+
+'鏂版湇鍔″崟搴忓彿
+sql="select top 1 ServiceOrdNo from ServiceOrder where CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),GETDATE(),120) and ServiceOrdClass='"&ServiceOrdClass&"' order by ServiceOrdNo desc"
+rs.open sql,objConn,1,1
+If not rs.Eof Then
+ ServiceOrdNo=rs(0)+1
+Else
+ ServiceOrdNo=1
+End if
+rs.close()
+
+'鍐欏叆鏂版湇鍔″崟
+sql="insert into ServiceOrder (ServiceOrdUserID,ServiceOrdClass,ServiceOrdAreaType,ServiceOrdType,ServiceOrdState,ServiceOrdStartDate,ServiceOrdApptDate,ServiceOrdCoName,ServiceOrdCoPhone,ServiceOrdCoTies,ServiceOrdPtName,ServiceOrdPtAge,ServiceOrdPtKG,ServiceOrdPtSex,ServiceOrdPtNat,ServiceOrdPtIDCard,ServiceOrdPtOutHospID,ServiceOrdPtOutHosp,ServiceOrdPtInHospID,ServiceOrdPtInHosp,ServiceOrdPtServices,ServiceOrdPtServicesID,ServiceOrdPtInServices,ServiceOrdPtInServicesID,ServiceOrdPtDiagnosis,ServiceOrdPtCondition,ServiceOrdTaskRemarks,ServiceOrdPtDoctor,ServiceOrdPtDoctorPhone,ServiceOrdTraProvince,ServiceOrdTraCity,ServiceOrdTraStreet,ServiceOrdTraStreetCoo,ServiceOrdTraEnd,ServiceOrdTraEndCoo,ServiceOrdTraVia,ServiceOrdViaDistance,ServiceOrdTraDistance,ServiceOrdTraDuration,ServiceOrdTraUnitPrice,ServiceOrdTraOfferPrice,ServiceOrdTraTxnPrice,ServiceOrdTraPrePayment,SettlementPrice,ServiceOrdTraPriceReason,ServiceOrd_CC_ID,ServiceOrd_CC_Time,ServiceOrdNo,ServiceOrd_Sale_ID,ServiceOrd_work_ID,ServiceOrd_work_IDs,ServiceOrd_work_is,CommissionScenarioID,ServiceOrdIntroducer,ServiceOrdUnitID,ServiceOrdVIP,ServiceOrdOperationRemarks,ServiceOrdEstimatedOrderDate,ServiceOrdSource,OrderLevel,ServiceOrdDepartureType,ConditionLevel,DirectionType,FromHQ2_is,OrderPrice_Auto) values ("&UserID&",'"&ServiceOrdClass&"',"&ServiceOrdAreaType&","&ServiceOrdType&","&ServiceOrdState&",'"&ServiceOrdStartDate&"','"&ServiceOrdApptDate&"','"&ServiceOrdCoName&"','"&ServiceOrdCoPhone&"','"&ServiceOrdCoTies&"','"&ServiceOrdPtName&"','"&ServiceOrdPtAge&"','"&ServiceOrdPtKG&"','"&ServiceOrdPtSex&"','"&ServiceOrdPtNat&"','"&ServiceOrdPtIDCard&"',"&ServiceOrdPtOutHospID_New&","&ServiceOrdPtOutHospID&","&ServiceOrdPtInHospID_New&","&ServiceOrdPtInHospID&",'"&ServiceOrdPtServices&"',"&ServiceOrdPtServicesID&",'"&ServiceOrdPtInServices&"',"&ServiceOrdPtInServicesID&",'"&ServiceOrdPtDiagnosis&"','"&ServiceOrdPtCondition&"','"&ServiceOrdTaskRemarks&"','"&ServiceOrdPtDoctor&"','"&ServiceOrdPtDoctorPhone&"','"&ServiceOrdTraProvince&"','"&ServiceOrdTraCity&"','"&ServiceOrdTraStreet&"','"&ServiceOrdTraStreetCoo&"','"&ServiceOrdTraEnd&"','"&ServiceOrdTraEndCoo&"','"&ServiceOrdTraVia&"','"&ServiceOrdViaDistance&"','"&ServiceOrdTraDistance&"','"&ServiceOrdTraDuration&"',"&ServiceOrdTraUnitPrice&","&ServiceOrdTraOfferPrice&","&ServiceOrdTraTxnPrice&","&ServiceOrdTraPrePayment&","&SettlementPrice&",'"&ServiceOrdTraPriceReason&"',"&ServiceOrd_CC_ID&",getdate(),"&ServiceOrdNo&","&ServiceOrd_Sale_ID&","&ServiceOrd_work_ID&",'"&ServiceOrd_work_IDs&"',"&ServiceOrd_work_is&","&CommissionScenarioID&",'"&ServiceOrdIntroducer&"',"&ServiceOrdUnitID&","&ServiceOrdVIP&",'"&ServiceOrdOperationRemarks&"','"&ServiceOrdEstimatedOrderDate&"',"&ServiceOrdSource&","&OrderLevel&","&ServiceOrdDepartureType&","&ConditionLevel&","&DirectionType&","&FromHQ2_is&","&OrderPrice_Auto&")"
+'Response.write sql&"<BR>"
+objConn.Execute sql
+sql="select top 1 ServiceOrdID from ServiceOrder where ServiceOrdCoPhone='"&ServiceOrdCoPhone&"' order by ServiceOrdID desc"
+rs.open sql,objConn,1,1
+ServiceOrdID = rs(0)
+rs.close()
+ServiceOrdNo = ServiceOrdClass& year(now())&Right("0"&month(now()),2)&Right("0"&day(now()),2) & "-"&Right("00"&ServiceOrdNo,3)
+
+
+SaveOpenerCommission ServiceOrdID
+SaveFollowers ServiceOrdID
+'鍜ㄨ鍗曡浆涓烘湇鍔″崟('鑷姩瀹℃牳)
+If ServiceOrdState="2" then
+ sql="update ServiceOrder set ServiceOrd_NS_ID="&session("adminID")&",ServiceOrd_NS_Time=getdate(),ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")&" where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+Else '鑷姩瀹℃牳
+ 'sql="update ServiceOrder set ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")&" where ServiceOrdID="&ServiceOrdID
+ 'objConn.Execute sql
+End if
+
+'鍐欏叆鐢佃瘽璁板綍
+If TEL_Phone<>"" then
+ sql="select CallRecordID from CallRecord where CallRecord_Phine='"&TEL_Phone&"' and CallRecord_StartTime between dateadd(Ss,-10,'"&TEL_Time&"') and dateadd(Ss,10,'"&TEL_Time&"')"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update CallRecord set CallRecord_OAUserID="&session("adminID")&",CallRecord_EndTime=getdate(),CallRecord_OrdClass='"&ServiceOrdClass&"',CallRecord_OrdID="&ServiceOrdID&",CallRecord_Record='"&TEL_Remarks&"' where CallRecordID="&rs(0)
+ objConn.Execute sql
+ Else
+ sql="insert into CallRecord (CallRecord_Phine,CallRecord_OAUserID,CallRecord_StartTime,CallRecord_EndTime,CallRecord_Type,CallRecord_OrdClass,CallRecord_OrdID,CallRecord_Record) values ('"&TEL_Phone&"',"&session("adminID")&",'"&TEL_Time&"',getdate(),1,'"&ServiceOrdClass&"',"&ServiceOrdID&",'"&TEL_Remarks&"')"
+ objConn.Execute sql
+ End if
+ rs.close()
+End if
+
+'鍐欏叆鐩墠鐥呮儏(鍗曢�夐」绫�)
+sql="select vOrder from dictionary where vType=2 and vtitle='Condition' order by vOrder,vID"
+rs.open sql,objConn,1,1
+do while not rs.Eof
+ ConditionOrder=rs("vOrder")
+ ConditionID=SafeRequest(Request.form("ConditionID_"&ConditionOrder))
+ If ConditionID<>"" Then
+ sql="insert into ServiceOrd_Condition (ServiceOrdCoID,ConditionID) values ("&ServiceOrdID&","&ConditionID&")"
+ objConn.Execute sql
+ End If
+ If ConditionID="4" Then
+ sql=" update ServiceOrder set AMV_is=1 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ ElseIf ConditionID="3" Then
+ sql=" update ServiceOrder set AMV_is=0 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+rs.movenext
+loop
+rs.close()
+
+'鍐欏叆璇婃柇ICD
+OrdICD_ID = SafeRequest(Request.form("OrdICD_ID")) '璇婃柇ICD_ID
+OrdICD_ID_old = SafeRequest(Request.form("OrdICD_ID_old"))
+If OrdICD_ID<>OrdICD_ID_old Then
+ If OrdICD_ID<>"" then
+ OrdICD_IDSP = SPLIT(OrdICD_ID,",")
+ for i=1 to ubound(OrdICD_IDSP)-1
+ If OrdICD_IDSP(i)<>"" Then
+ sql="insert into ServiceOrder_ICD (ServiceOrdIDDt,icd_id) values ("&ServiceOrdID&","&OrdICD_IDSP(i)&")"
+ objConn.Execute sql
+ End If
+ Next
+ End If
+End If
+
+'鍐欏叆杞繍鏂瑰紡(澶氶�夐」)
+TransferModeIDSP = SPLIT(TransferModeID,", ")
+for i = 0 to UBOUND(TransferModeIDSP)
+ TransferModeID = TransferModeIDSP(i)
+ If TransferModeID<>"" then
+ sql="insert into ServiceOrd_TransferMode (ServiceOrdTMID,TransferModeID) values ("&ServiceOrdID&","&TransferModeID&")"
+ objConn.Execute sql
+ End if
+Next
+
+'鏍搁攢浼樻儬鍒�
+Call CouponUse(ServiceOrdTraPriceReason,ServiceOrdID)
+
+'鍐欏叆棰勮娲惧崟鏃堕棿閫氱煡
+If ServiceOrdEstimatedOrderDate<>"" Then
+ NC_OAID="78"
+ ServiceOrdNo = ServiceOrdClass& year(now())&Right("0"&month(now()),2)&Right("0"&day(now()),2) & "-"&Right("00"&ServiceOrdNo,3)
+ NC_Name="銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�"
+ NC_Content="鏈嶅姟鍗�:"&ServiceOrdNo&",宸插埌棰勫畾鐨勬淳鍗曟椂闂�,璇峰嵆鏃跺鐞�"
+ NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+ NC_PageUrlM=ServiceOrdEstimatedOrderDate
+ Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
+End If
+
+session("Origin")=""
+If ServiceOrd_m="1" Then
+ ReturnURL="m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+ Call OA_Running("鎵嬫満鏂板缓鏈嶅姟鍗�:"&ServiceOrdID)
+Else
+ ReturnURL="ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+ Call OA_Running("鏂板缓鏈嶅姟鍗�:"&ServiceOrdID)
+End If
+objConn.Execute "exec OrdDataUP "&ServiceOrdID
+rsRollbackTrans(objConn.Errors.count)
+
+'鐩存帴瀹℃牳骞惰浆璺宠嚦璋冨害鍗�
+NEWOrder = SafeRequest(Request.form("NEWOrder"))
+If NEWOrder="2" Then
+ sql="update ServiceOrder set ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")&" where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ Perfomance = SafeRequest(Request.form("DispatchOrdPerfomance")) '缁╂晥
+ Stretcher = SafeRequest(Request.form("StretcherMoney")) '鎷呮灦璐�
+ If ServiceOrd_m="1" Then
+ Response.Redirect "m_DispatchOrder.gds?ServiceOrdID="&ServiceOrdID&"&NEWOrder=3&Perfomance="&Perfomance&"&Stretcher="&Stretcher
+ else
+ Response.Redirect "DispatchOrder.gds?ServiceOrdID="&ServiceOrdID&"&SystemMessageType=3&SMT=12&Perfomance="&Perfomance&"&Stretcher="&Stretcher
+ End If
+Else
+ '鍐欏叆鐩稿叧閿�鍞汉鍛橀�氱煡(鏆傚仠鎺ㄩ��2020.9.17)
+ If ServiceOrdPtOutHospID_New<>"0" And ServiceOrdPtInHospID_New<>"0" And OrderLevel<>"1" And 1=2 Then
+ %>
+ <!--#include virtual="/weixin/JsonPost_1000006.gds"-->
+ <%
+ touser=""
+ sql="SELECT STUFF((select ',' + HospOAID from HospData where HospID in ("&ServiceOrdPtOutHospID_New&","&ServiceOrdPtInHospID_New&") and HospOAID<>'' and HospOAID is not null FOR XML PATH('')), 1, 1, '')"
+ rs.open sql,objConn,1,1
+ HospOAIDs=rs(0)
+ rs.close()
+
+
+ If not isnull(HospOAIDs) Then
+ HospOAIDPS = SPLIT(HospOAIDs,",")
+ HospOAIDs=""
+ for z = 0 to UBOUND(HospOAIDPS)
+ If HospOAIDPS(z)<>"" Then
+ HospOAIDs=HospOAIDs&","&HospOAIDPS(z)
+ End If
+ Next
+ If HospOAIDs<>"" Then HospOAIDs=Mid(HospOAIDs,2)
+ touser = ""
+ If HospOAIDs<>"" Then
+ sql="select OA_weixinUserID,OA_Name from OA_User where OA_execLevel>=0 and OA_User_ID in ("&HospOAIDs&")"
+ rs.open sql,objConn,1,1
+ do while not rs.Eof
+ touser = touser&"|"&rs("OA_weixinUserID")
+ MessageName=MessageName&"銆�"&rs("OA_Name")
+ rs.movenext
+ loop
+ rs.close()
+ If touser<>"" Then
+ touser=Mid(touser,2)
+ MessageName=Mid(MessageName,2)
+ End If
+ End If
+ 'touser="ylkx_vicgame"
+ If touser<>"" Then
+ '璁㈠崟鐣欒█
+ MessageContents="璁㈠崟鎺ㄩ�佺粰"&MessageName
+ sql="insert into ServiceOrd_Message (ServiceOrdIDDt,MessageContents,MessageOAid) values ("&ServiceOrdID&",'"&MessageContents&"',"&session("adminID")&")"
+ objConn.Execute sql
+ '寰俊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," '浼佷笟搴旂敤鐨刬d锛屾暣鍨嬨�傚彲鍦ㄥ簲鐢ㄧ殑璁剧疆椤甸潰鏌ョ湅
+ args1=args1&"""msgtype"": ""news"","
+ args1=args1&"""news"": {"
+ args1=args1&"""articles"":["
+ args1=args1&"{"
+ args1=args1&"""title"": ""銆愭柊鏈嶅姟鍗曘��"&ServiceOrdNo&""","
+ args1=args1&"""description"": """
+ If ServiceOrdApptDate<>"" Then args1=args1&"棰勭害鏃堕棿锛�"&ServiceOrdApptDate&"\n"
+ If ServiceOrdPtInHosp="瀹朵腑" Then ServiceOrdPtInHosp=ServiceOrdTraEnd
+ args1=args1&"鍑哄彂鍦帮細"&ServiceOrdPtOutHosp&"\n鐩殑鍦帮細"&ServiceOrdPtInHosp&"锛堢害"&ServiceOrdTraDistance&"锛�"","
+ args1=args1&"""url"": """&WEBURL&"/m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&OrdEdit=NO"","
+ args1=args1&"""picurl"": """""
+ args1=args1&"}"
+ args1=args1&"]"
+ args1=args1&"}"
+ args1=args1&"}"
+ call PostBody(appUrl,args1)
+ End If
+ End If
+ End If
+End If
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+Response.End%>
+
+<%case "20"
+'-------------------------------------------------------------淇敼鏈嶅姟鍗�
+Set rs = Server.CreateObject("ADODB.Recordset")
+ServiceOrdID = SafeRequest(Request.form("ServiceOrdID")) '鍗曟嵁ID
+DispatchOrdID = SafeRequest(Request.form("DispatchOrdID")) '璋冨害鍗旾D
+ServiceOrdUserID = SafeRequest(Request.form("ServiceOrdUserID")) '鐢ㄦ埛ID
+ServiceOrdClass = SafeRequest(Request.form("ServiceOrdClass")) '鍗曟嵁绫诲瀷
+ServiceOrdAreaType = SafeRequest(Request.form("ServiceOrdAreaType")) '鏈嶅姟鍗曞尯鍩�
+ServiceOrdType = SafeRequest(Request.form("ServiceOrdType")) '鏈嶅姟鍗曠被鍨�
+ServiceOrdState = SafeRequest(Request.form("ServiceOrdState")) '鏈嶅姟鍗曠姸鎬�
+ServiceOrdStartDate = SafeRequest(Request.form("ServiceOrdStartDate")) '寮�鍗曟棩鏈�
+ServiceOrdApptDate = SafeRequest(Request.form("ServiceOrdApptDate")) '棰勭害鏃ユ湡
+ServiceOrdEstimatedOrderDate=SafeRequest(Request.form("ServiceOrdEstimatedOrderDate")) '棰勮娲惧崟鏃堕棿
+ServiceOrdEstimatedOrderDateOld=SafeRequest(Request.form("ServiceOrdEstimatedOrderDateOld")) '鍘熼璁℃淳鍗曟椂闂�
+ServiceOrdCoName = SafeRequest(Request.form("ServiceOrdCoName")) '鑱旂郴浜哄鍚�
+ServiceOrdCoPhone = StrTrim(SafeRequest(Request.form("ServiceOrdCoPhone"))) '鑱旂郴浜虹數璇�
+ServiceOrdCoTies = SafeRequest(Request.form("ServiceOrdCoTies")) '鑱旂郴浜轰笌鎮ｈ�呭叧绯�
+ServiceOrdPtName = SafeRequest(Request.form("ServiceOrdPtName")) '鎮ｈ�呭鍚�
+ServiceOrdPtAge = SafeRequest(Request.form("ServiceOrdPtAge")) '鎮ｈ�呭勾榫�
+ServiceOrdPtKG = SafeRequest(Request.form("ServiceOrdPtKG")) '鎮ｈ�呬綋閲�
+ServiceOrdPtSex = SafeRequest(Request.form("ServiceOrdPtSex")) '鎮ｈ�呮�у埆
+ServiceOrdPtNat = SafeRequest(Request.form("ServiceOrdPtNat")) '鎮ｈ�呭浗绫�
+ServiceOrdPtIDCard = SafeRequest(Request.form("ServiceOrdPtIDCard")) '鎮ｈ�呰韩浠借瘉
+ServiceOrdPtOutHospID_New=SafeRequest(Request.form("ServiceOrdPtOutHospID")) '杞嚭鍖婚櫌ID
+ServiceOrdPtOutHosp = SafeRequest(Request.form("ServiceOrdPtOutHosp")) '杞嚭鍖婚櫌
+ServiceOrdPtInHospID_New= SafeRequest(Request.form("ServiceOrdPtInHospID")) '杞叆鍖婚櫌ID
+ServiceOrdPtInHosp = SafeRequest(Request.form("ServiceOrdPtInHosp")) '杞叆鍖婚櫌
+ServiceOrdPtServices = SafeRequest(Request.form("ServiceOrdPtServices")) '杞嚭绉戝
+ServiceOrdPtServicesID = SafeRequest(Request.form("ServiceOrdPtServicesID")) '杞嚭绉戝ID
+ServiceOrdPtInServices = SafeRequest(Request.form("ServiceOrdPtInServices")) '杞叆绉戝
+ServiceOrdPtInServicesID= SafeRequest(Request.form("ServiceOrdPtInServicesID")) '杞叆绉戝ID
+ServiceOrdPtDiagnosis = SafeRequest(Request.form("ServiceOrdPtDiagnosis")) '璇婃柇
+ServiceOrdPtCondition = SafeRequest(Request.form("ServiceOrdPtCondition")) '鐥呮儏鎻忚堪
+ServiceOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '鍖绘姢鍙稿娉�
+ServiceOrdPtDoctor = SafeRequest(Request.form("ServiceOrdPtDoctor")) '鎮ｈ�呭尰鐢�
+ServiceOrdPtDoctorPhone = SafeRequest(Request.form("ServiceOrdPtDoctorPhone")) '鎮ｈ�呭尰鐢熺數璇�
+ServiceOrdTraProvince = SafeRequest(Request.form("province")) '鍑哄彂鍦扮渷浠�
+ServiceOrdTraCity = SafeRequest(Request.form("city")) '鍑哄彂鍦板煄甯�
+ServiceOrdTraStreet = SafeRequest(Request.form("ServiceOrdTraStreet")) '鍑哄彂鍦�
+ServiceOrdTraStreetCoo = SafeRequest(Request.form("ServiceOrdTraStreetCoo")) '鍑哄彂鍦板潗鏍�
+ServiceOrdTraEnd = SafeRequest(Request.form("ServiceOrdTraEnd")) '鐩殑鍦�
+ServiceOrdTraEndCoo = SafeRequest(Request.form("ServiceOrdTraEndCoo")) '鐩殑鍦板潗鏍�
+ServiceOrdTraVia = SafeRequest(Request.form("ServiceOrdTraVia")) '閫旂粡鍦�
+ServiceOrdViaDistance = SafeRequest(Request.form("ServiceOrdViaDistance")) '涓�旇窛绂�(鍏噷)
+ServiceOrdTraDistance = SafeRequest(Request.form("ServiceOrdTraDistance")) '璺濈(鍏噷)
+ServiceOrdTraDuration = SafeRequest(Request.form("ServiceOrdTraDuration")) '棰勮琛岀▼鏃堕棿
+ServiceOrdTraUnitPrice = SafeRequest(Request.form("ServiceOrdTraUnitPrice")) '鍗曚环/鍏噷
+ServiceOrdTraOfferPrice = SafeRequest(Request.form("ServiceOrdTraOfferPrice")) '鏍囧噯鎶ヤ环
+ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '鎴愪氦浠�
+ServiceOrdTraPrePayment = SafeRequest(Request.form("ServiceOrdTraPrePayment")) '闇�棰勪粯娆�
+SettlementPrice = SafeRequest(Request.form("SettlementPrice")) '缁撶畻浠�
+ServiceOrdTraPriceReason= SafeRequest(Request.form("ServiceOrdTraPriceReason")) '宸环鍘熷洜
+TEL_Phone = SafeRequest(Request.form("Phone")) '鏉ョ數鐢佃瘽
+TEL_Time = SafeRequest(Request.form("TEL_Time")) '鏉ョ數鏃堕棿
+TEL_Remarks = SafeRequest(Request.form("TEL_Remarks")) '鏉ョ數澶囨敞
+TransferModeID = SafeRequest(Request.form("TransferModeID")) '杞繍鏂瑰紡
+ServiceOrdVIP = SafeRequest(Request.form("ServiceOrdVIP")) 'VIP瀹㈡埛
+ServiceOrd_CC_ID = SafeRequest(Request.form("ServiceOrd_CC_ID")) '瀹㈡湇浜哄憳ID
+ServiceOrd_Sale_ID = SafeRequest(Request.form("ServiceOrd_Sale_ID")) '閿�鍞汉鍛業D
+ServiceOrdIntroducer = SafeRequest(Request.form("ServiceOrdIntroducer")) '浠嬬粛浜�
+ServiceOrd_work_ID = SafeRequest(Request.form("ServiceOrd_work_ID")) '涓昏浼佸井瀹㈡湇ID
+ServiceOrd_work_IDs = SafeRequest(Request.form("ServiceOrd_work_IDs")) '鍏朵粬浼佸井瀹㈡湇ID
+ServiceOrd_work_is = SafeRequest(request.form("ServiceOrd_work_is")) '鏄惁浼佸井鎴愪氦
+CommissionScenarioID = SafeRequest(request.form("CommissionScenarioID")) '浼佸井缁╂晥鏂规
+ReturnChannel = SafeRequest(Request.form("ReturnChannel")) '鍥炶鑾风煡966120鐨勬笭閬�
+ReturnChannelOther = SafeRequest(Request.form("ReturnChannelOther")) '鍥炶鑾风煡966120鐨勬笭閬�(鍏跺畠)
+VisitDict = SafeRequest(Request.form("VisitDict")) '鍥炶璁板綍(璇勪环绫诲瀷)
+ServiceOrdVisit = SafeRequest(Request.form("ServiceOrdVisit")) '鍥炶璁板綍
+ServiceOrdVisit_old = SafeRequest(Request.form("ServiceOrdVisit_old")) '鍘熷洖璁胯褰�
+ServiceOrdOperationRemarks= SafeRequest(Request.form("ServiceOrdOperationRemarks")) '鎿嶄綔澶囨敞
+CancelReason = SafeRequest(Request.form("CancelReason")) '鍙栨秷鍘熷洜
+CancelReasonTXT = SafeRequest(Request.form("CancelReasonTXT")) '鍙栨秷鍘熷洜澶囨敞
+CancelReasonTXT = CancelReasonTXT&"[鍙栨秷鎿嶄綔:"&OAUser(session("adminID"),"UserName")&"]"
+ServiceOrdSource = SafeRequest(Request.form("ServiceOrdSource")) '璁㈠崟鏉ユ簮
+OrderLevel = SafeRequest(Request.form("OrderLevel")) '鏌ョ湅绛夌骇
+ServiceOrdDepartureType = SafeRequest(Request.form("ServiceOrdDepartureType")) '棰勭害绫诲瀷
+ConditionLevel = SafeRequest(Request.form("ConditionLevel")) '鐥呴噸绾у埆
+DirectionType = SafeRequest(Request.form("DirectionType")) '杞繍鍘诲悜
+ServiceOrd_m = SafeRequest(Request.form("ServiceOrd_m")) '鏉ユ簮鍏ュ彛
+FromHQ2_is = SafeRequest(Request.form("FromHQ2_is")) '骞垮窞鎬婚儴鎺ㄩ�佷换鍔℃爣璁�
+
+ServiceOrd_Check = SafeRequest(Request.form("ServiceOrd_Check")) '褰撳墠瀹℃牳鎿嶄綔
+EditDataForm = SafeRequest(Request.form("EditDataForm")) '褰撳墠淇敼椤圭洰
+
+SaveOpenerCommission ServiceOrdID
+SaveFollowers ServiceOrdID
+
+Call RequestForm(Origin)
+session("Origin")=Origin
+'response.write Origin
+'response.end
+If ServiceOrdTraUnitPrice="" Then ServiceOrdTraUnitPrice=0
+If ServiceOrdTraOfferPrice="" Then ServiceOrdTraOfferPrice=0
+If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
+If ServiceOrdTraPrePayment="" Then ServiceOrdTraPrePayment=0
+If SettlementPrice="" Then SettlementPrice=0
+If ServiceOrdState="" Then ServiceOrdState=1
+If ServiceOrd_Sale_ID="" Then ServiceOrd_Sale_ID="null"
+If ServiceOrd_work_ID="" Then ServiceOrd_work_ID="null"
+If ServiceOrd_work_is="" Then ServiceOrd_work_is=0
+If CommissionScenarioID="" Then CommissionScenarioID=0
+If ServiceOrd_CC_ID="" Then ServiceOrd_CC_ID="ServiceOrd_CC_ID"
+If ServiceOrd_CC_ID="0" Then ServiceOrd_CC_ID=session("adminID")
+If CancelReason="" Then CancelReason=0
+If ServiceOrdSource="" Then ServiceOrdSource=0
+'If InStr(ServiceOrdTraDistance,"鍏噷")>0 Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance,"鍏噷","")
+'If InStr(ServiceOrdTraDistance,"绫�")>0 Then ServiceOrdTraDistance=CInt(Replace(ServiceOrdTraDistance,"绫�",""))/1000
+If ServiceOrdViaDistance="" Or OrderLevel<>"2" Then ServiceOrdViaDistance=0
+If ServiceOrdTraDistance="" Then ServiceOrdTraDistance=0
+If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","")
+If ServiceOrdPtOutHospID_New="" Then ServiceOrdPtOutHospID_New=0
+If ServiceOrdPtInHospID_New="" Then ServiceOrdPtInHospID_New=0
+If ServiceOrdVIP="" Then ServiceOrdVIP=0
+If ServiceOrdOperationRemarks<>"" Then ServiceOrdOperationRemarks=replace(replace(ServiceOrdOperationRemarks,"[瀹㈡埛鏈寮忔彁浜ら渶姹傦紝鍙笉鑱旂郴]",""),"[瀹㈡埛鏈寮忔彁浜ら渶姹俔","")
+If ServiceOrdVisit<>"" And ServiceOrdVisit_old<>ServiceOrdVisit Then
+ RV_Point=0
+ sql="select id from DispatchOrd_Entourage,DispatchOrd where EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and ServiceOrdIDDt="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ do while not rs.Eof
+ DE_id=rs("id")
+ RV_PointE=SafeRequest(Request.form("RV_PointE_"&DE_id))
+ If RV_PointE<>"" Then
+ RV_Point=RV_Point+1
+ sql="update DispatchOrd_Entourage set RV_PointE='"&RV_PointE&"' where id="&DE_id
+ objConn.Execute sql
+ End If
+ rs.movenext
+ loop
+ rs.close()
+ SqlVisit=",ServiceOrdVisit='"&ServiceOrdVisit&"',ServiceOrdVisit_time=getdate(),ServiceOrdVisit_ID="&session("adminID")
+ If VisitDict<>"" Then SqlVisit=SqlVisit&",ServiceOrdVisit_Dict='"&VisitDict&"'"
+ If RV_Point>0 Then SqlVisit=SqlVisit&",RV_Point="&RV_Point
+ElseIf ServiceOrdVisit="" Then
+ SqlVisit=",ServiceOrdVisit_Dict=null,ServiceOrdVisit=null,ServiceOrdVisit_time=null,ServiceOrdVisit_ID=null,RV_Point=0"
+End If
+If ReturnChannel="鍏朵粬锛堟墜鍔ㄥ～鍐欙級" Then
+ If ReturnChannelOther="" Then ReturnChannelOther="鍏跺畠"
+ SqlVisit=SqlVisit&",ServiceOrdReturnChannel='"&ReturnChannelOther&"'"
+ElseIf ReturnChannel<>"" Then
+ SqlVisit=SqlVisit&",ServiceOrdReturnChannel='"&ReturnChannel&"'"
+Else
+ SqlVisit=SqlVisit&",ServiceOrdReturnChannel=null"
+End If
+
+SMT=3
+ServiceOrdTraPrePayment=Replace(ServiceOrdTraPrePayment,",","")
+SettlementPrice=Replace(SettlementPrice,",","")
+ServiceOrdTraOfferPrice=Replace(ServiceOrdTraOfferPrice,",","")
+ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","")
+If ServiceOrdPtServicesID="" Then ServiceOrdPtServicesID=0
+If ServiceOrdPtInServicesID="" Then ServiceOrdPtInServicesID=0
+If OrderLevel="" Then OrderLevel=0
+If ServiceOrdDepartureType="" Then ServiceOrdDepartureType=1
+If ConditionLevel="" Then ConditionLevel=0
+If DirectionType="" Then DirectionType=0
+If ServiceOrdUserID="" Then ServiceOrdUserID=0
+If FromHQ2_is="" Then FromHQ2_is=0
+If EditDataForm<>"" Then EditDataForm="["&EditDataForm&"] ID"
+
+'鏁版嵁涓嶅畬鏁�
+If ServiceOrdID="" Or Not IsNumeric(ServiceOrdID) Then Response.Redirect "/ServiceOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=1"
+If ServiceOrdState="1" And (ServiceOrdCoPhone="" Or ServiceOrdClass="" Or ServiceOrdTraDistance="") Then Response.Redirect "/ServiceOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=1&error=,ServiceOrdCoPhone,"
+If ServiceOrdState="2" And ServiceOrd_m<>"1" Then
+ error=","
+ If ServiceOrdCoPhone="" Or ServiceOrdClass="" Then error=error&"ServiceOrdCoPhone,"
+ If ServiceOrdTraDistance="" Then error=error&"ServiceOrdTraDistance,"
+ If ServiceOrdCoName="" Then error=error&"ServiceOrdCoName,"
+ 'If ServiceOrdApptDate="" Then error=error&"ServiceOrdApptDate,"
+ If ServiceOrdPtName="" Then error=error&"ServiceOrdPtName,"
+ 'If ServiceOrdPtOutHosp="" Then error=error&"ServiceOrdPtOutHosp,"
+ If ServiceOrdTraStreet="" Then error=error&"ServiceOrdTraStreet,"
+ If ServiceOrdTraEnd="" Then error=error&"ServiceOrdTraEnd,"
+ If ServiceOrdTraTxnPrice="" Then error=error&"ServiceOrdTraTxnPrice,"
+ If ServiceOrdSource="0" Then error=error&"ServiceOrdSource,"
+ 'If ConditionLevel="0" Then error=error&"ConditionLevel,"
+ 'If DirectionType="0" Then error=error&"DirectionType,"
+ If ServiceOrdPtServicesID="0" Then error=error&"ServiceOrdPtServicesID,"
+ If ServiceOrdPtInServicesID="0" Then error=error&"ServiceOrdPtInServicesID,"
+
+ If Len(error)>2 Then Response.Redirect "/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=4&error="&error
+
+ElseIf ServiceOrd_m="1" Then
+ '鎵嬫満绔粯璁ゅ��
+ If ServiceOrdCoPhone="" Then ServiceOrdCoPhone=""
+ If ServiceOrdTraProvince="" Then ServiceOrdTraProvince=""
+ If ServiceOrdTraCity="" Then ServiceOrdTraCity=""
+ If ServiceOrdTraStreet="" And ServiceOrdClass<>"" Then
+ sql="select vMono from dictionary where vType=1 and vtitle='OrderClass' and vOrder2='"&ServiceOrdClass&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdTraStreet=rs(0)
+ End If
+ rs.close()
+ End If
+ If ServiceOrdTraVia="" Then ServiceOrdTraVia=ServiceOrdPtOutHosp
+ If ServiceOrdTraEnd="" Then ServiceOrdTraEnd=ServiceOrdPtInHosp
+
+ error=","
+ If ServiceOrdCoName="" Then error=error&"ServiceOrdCoName,"
+ If ServiceOrdPtName="" Then error=error&"ServiceOrdPtName,"
+ 'If ConditionLevel="0" Then error=error&"ConditionLevel,"
+ 'If DirectionType="0" Then error=error&"DirectionType,"
+ If ServiceOrdPtOutHospID_New="" Then error=error&"ServiceOrdPtOutHospID,"
+ If ServiceOrdPtInHospID_New="" Then error=error&"ServiceOrdPtInHospID,"
+
+ If Len(error)>2 Then Response.Redirect "/m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&SystemMessageType=4&SMT=4&error="&error
+End if
+
+'楠岃瘉鍗曟嵁ID鏄惁姝ｇ‘
+sql="select ServiceOrdID,ServiceOrdState,ServiceOrd_AP_Check,ServiceOrdUnitID,ServiceOrdClass,ServiceOrd_CC_Time,ServiceOrdNo,ServiceOrdCoName,ServiceOrdCoPhone,ServiceOrdTraVia,ServiceOrdTraEnd,ServiceOrdTraTxnPrice,ServiceOrdPtOutHospID,ServiceOrdPtInHospID,ToUserUUID from ServiceOrder where ServiceOrdID="&ServiceOrdID
+rs.open sql,objConn,1,1
+if rs.eof Then
+ session("Origin")=""
+ Response.Redirect "/ServiceOrder.gds?SystemMessageType=4&SMT=1&Phone&="&TEL_Phone
+Else
+ ServiceOrd_AP_Check=rs("ServiceOrd_AP_Check")
+ Old_ServiceOrdState=rs("ServiceOrdState")
+ ServiceOrdUnitID=rs("ServiceOrdUnitID")
+ Old_ServiceOrdClass=rs("ServiceOrdClass")
+ If ServiceOrdClass="" Then ServiceOrdClass=Old_ServiceOrdClass
+ ServiceOrd_CC_Time=rs("ServiceOrd_CC_Time")
+ ServiceOrdNo=rs("ServiceOrdNo")
+ Old_ServiceOrdCoName=rs("ServiceOrdCoName")
+ Old_ServiceOrdCoPhone=rs("ServiceOrdCoPhone")
+ Old_ServiceOrdTraVia=rs("ServiceOrdTraVia")
+ Old_ServiceOrdTraEnd=rs("ServiceOrdTraEnd")
+ Old_ServiceOrdTraTxnPrice=rs("ServiceOrdTraTxnPrice")
+ Old_ServiceOrdPtOutHospID=rs("ServiceOrdPtOutHospID")
+ Old_ServiceOrdPtInHospID=rs("ServiceOrdPtInHospID")
+ ToUserUUID=rs("ToUserUUID")
+End if
+rs.close()
+
+'娉ㄥ唽&鏌ヨ鐢ㄦ埛ID
+If ServiceOrdCoPhone<>"" And Len(ServiceOrdCoPhone) And Left(ServiceOrdCoPhone,1)="1" And IsNumeric(ServiceOrdCoPhone) Then
+ UserID=ServiceOrdUserID
+ UserPhone=ServiceOrdCoPhone
+ UserName=ServiceOrdCoName
+ Call User_Login(UserID,UserPhone,wxOriginalID,wxOpenid,wxUnionID,UserSource,UserName)
+ sql="update ServiceOrder set ServiceOrdUserID="&UserID&" where ServiceOrdUserID<>"&UserID&" and ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+Else
+ UserID=0
+End If
+
+'鐣欒█淇濆瓨
+MessageContents = SafeRequest(request("MessageContents_form1"))
+If MessageContents<>"" Then
+ sql="insert into ServiceOrd_Message (ServiceOrdIDDt,MessageContents,MessageOAid) values ("&ServiceOrdID&",'"&MessageContents&"',"&session("adminID")&")"
+ objConn.Execute sql
+End If
+
+'鏂版湇鍔″崟搴忓彿
+If Old_ServiceOrdClass<>ServiceOrdClass Then
+ 'sql="select top 1 ServiceOrdNo from ServiceOrder where CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'"&ServiceOrd_CC_Time&"',120) and ServiceOrdClass='"&ServiceOrdClass&"' order by ServiceOrdNo desc"
+ sql="select top 1 ServiceOrdNo from ServiceOrder where DATEPART(yyyy,ServiceOrd_CC_Time)=DATEPART(yyyy,'"&ServiceOrd_CC_Time&"') and DATEPART(m,ServiceOrd_CC_Time)=DATEPART(m,'"&ServiceOrd_CC_Time&"') and DATEPART(d,ServiceOrd_CC_Time)=DATEPART(d,'"&ServiceOrd_CC_Time&"') and ServiceOrdClass='"&ServiceOrdClass&"' order by ServiceOrdNo desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdNo=rs(0)+1
+ Else
+ ServiceOrdNo=1
+ End if
+ rs.close()
+ ServiceOrdEstimatedOrderDate=""
+ ServiceOrdNo_UPSql=",ServiceOrdNo="&ServiceOrdNo
+End If
+
+
+'鍜ㄨ鍗曡浆鏈嶅姟鍗�
+If Old_ServiceOrdState="1" And ServiceOrdState="2" Then
+ ServiceOrdSql=",ServiceOrdState=2,ServiceOrdStartDate=getdate(),ServiceOrd_NS_ID="&session("adminID")&",ServiceOrd_NS_Time=getdate()"
+ SMT=7
+'鍙栨秷鏈嶅姟鍗曞苟杞负鍜ㄨ鍗�
+ElseIf Old_ServiceOrdState="2" And ServiceOrdState="4" Then
+ ServiceOrdSql=",ServiceOrdPoints=0,ServiceOrdState=1,ServiceOrdStartDate=ServiceOrd_CC_Time,ServiceOrd_NS_ID=null,ServiceOrd_NS_Time=null,ServiceOrdCancelReason="&CancelReason&",ServiceOrdCancelReasonTXT='"&CancelReasonTXT&"'"
+ SMT=8
+ '鍙栨秷绉垎浣跨敤
+ sql="delete from PaidMoney where PaidMoneyType=9 and ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ sql="delete from UserPoints where Points_Type=6 and ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ '鍙嶆牳閿�浼樻儬鍒�
+ Call CouponReverseUse(ServiceOrdTraPriceReason,ServiceOrdID)
+ ServiceOrdTraPriceReason=""
+ Call OA_Running("鍙栨秷鏈嶅姟鍗�:"&ServiceOrdID)
+'浣滃簾鍜ㄨ鍗�
+ElseIf (Old_ServiceOrdState="1" Or Old_ServiceOrdState="2") And ServiceOrdState="5" Then
+ ServiceOrdSql=",ServiceOrdPoints=0,ServiceOrdState=4,ServiceOrd_AP_ID="&session("adminID")&",ServiceOrd_AP_Time=getdate(),ServiceOrdCancelReason="&CancelReason&",ServiceOrdCancelReasonTXT='"&CancelReasonTXT&"'"
+ SMT=9
+ '钀ラ攢灏忕▼搴忔暟鎹洿鏂�
+ If ToUserUUID<>"0" And ToUserUUID<>"" Then
+ sql="select top 1 id,iuid from UserUUID where id="&ToUserUUID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ iuid=rs("iuid")
+ Call Get_TritonshAPI(ToUserUUID,1,ServiceOrdID,iuid,ServiceOrdCoName,ServiceOrdCoPhone,0)
+ End If
+ rs.close()
+ End If
+ '鍙栨秷绉垎浣跨敤
+ sql="delete from PaidMoney where PaidMoneyType=9 and ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ sql="delete from UserPoints where Points_Type=6 and ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ '鍙嶆牳閿�浼樻儬鍒�
+ Call CouponReverseUse(ServiceOrdTraPriceReason,ServiceOrdID)
+ ServiceOrdTraPriceReason=""
+ Call OA_Running("浣滃簾鏈嶅姟鍗�:"&ServiceOrdID)
+
+'杩樺師鏈嶅姟鍗�
+ElseIf Old_ServiceOrdState="4" And ServiceOrdState="2" Then
+ ServiceOrdSql=",ServiceOrdState=2,ServiceOrdStartDate=getdate(),ServiceOrd_NS_ID="&session("adminID")&",ServiceOrd_NS_Time=getdate(),ServiceOrdCancelReason=null,ServiceOrdCancelReasonTXT=''"
+ SMT=10
+ Call OA_Running("杩樺師鏈嶅姟鍗�:"&ServiceOrdID)
+End If
+
+'鏌ユ壘鍖婚櫌ID
+If ServiceOrdPtOutHosp<>"" Then
+ If InStr(ServiceOrdPtOutHosp,"|")>0 Then ServiceOrdPtOutHosp=Mid(ServiceOrdPtOutHosp,1,InStr(ServiceOrdPtOutHosp,"|")-1)
+ sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtOutHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID=rs(0)
+ Else
+ rs.close()
+ sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID=rs(0)+1
+ Else
+ ServiceOrdPtOutHospID=1
+ End if
+ sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtOutHospID&",'"&ServiceOrdPtOutHosp&"','HospName',1,'鍖婚櫌鍚嶇О')"
+ objConn.Execute sql
+ End If
+ rs.close()
+ If ServiceOrdPtOutHospID_New="0" Then
+ sql="select HospID from HospData where HospState=1 and HospName='"&ServiceOrdPtOutHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID_New=rs(0)
+ End If
+ rs.close()
+ End If
+Else
+ ServiceOrdPtOutHospID=0
+End If
+If ServiceOrdPtInHosp<>"" then
+ If InStr(ServiceOrdPtInHosp,"|")>0 Then ServiceOrdPtInHosp=Mid(ServiceOrdPtInHosp,1,InStr(ServiceOrdPtInHosp,"|")-1)
+ sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtInHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID=rs(0)
+ Else
+ rs.close()
+ sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID=rs(0)+1
+ Else
+ ServiceOrdPtInHospID=1
+ End if
+ sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtInHospID&",'"&ServiceOrdPtInHosp&"','HospName',1,'鍖婚櫌鍚嶇О')"
+ objConn.Execute sql
+ End If
+ rs.close()
+ If ServiceOrdPtInHospID_New="0" Then
+ sql="select HospID from HospData where HospState=1 and HospName='"&ServiceOrdPtInHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID_New=rs(0)
+ End If
+ rs.close()
+ End If
+Else
+ ServiceOrdPtInHospID=0
+End If
+
+
+'鏌ユ壘鍚堜綔鍗曚綅ID
+If ServiceOrdIntroducer<>"" And IsNumeric(ServiceOrdIntroducer) Then
+ sql="select IntroducerID,IntroducerName,IntroducerUnitID from IntroducerData where IntroducerUnitID<>'' and IntroducerID="&ServiceOrdIntroducer
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdUnitID=rs("IntroducerUnitID")
+ End If
+ rs.close()
+End If
+
+'鍐欏叆鐢佃瘽璁板綍
+If TEL_Phone<>"" then
+ sql="select CallRecordID from CallRecord where CallRecord_Phine='"&TEL_Phone&"' and CallRecord_StartTime between dateadd(Ss,-10,'"&TEL_Time&"') and dateadd(Ss,10,'"&TEL_Time&"')"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update CallRecord set CallRecord_OAUserID="&session("adminID")&",CallRecord_EndTime=getdate(),CallRecord_OrdClass='"&ServiceOrdClass&"',CallRecord_OrdID="&ServiceOrdID&",CallRecord_Record='"&TEL_Remarks&"' where CallRecordID="&rs(0)
+ objConn.Execute sql
+ Else
+ sql="insert into CallRecord (CallRecord_Phine,CallRecord_OAUserID,CallRecord_StartTime,CallRecord_EndTime,CallRecord_Type,CallRecord_OrdClass,CallRecord_OrdID,CallRecord_Record) values ('"&TEL_Phone&"',"&session("adminID")&",'"&TEL_Time&"',getdate(),1,'"&ServiceOrdClass&"',"&ServiceOrdID&",'"&TEL_Remarks&"')"
+ objConn.Execute sql
+ End if
+ rs.close()
+End If
+
+'鏁忔劅淇℃伅淇敼
+CoSql=""
+If ServiceOrdCoName<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdCoName='"&ServiceOrdCoName&"'"
+If ServiceOrdCoPhone<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdCoPhone='"&ServiceOrdCoPhone&"'"
+If ServiceOrdPtName<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtName='"&ServiceOrdPtName&"'"
+If ServiceOrdPtAge<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtAge='"&ServiceOrdPtAge&"'"
+If ServiceOrdPtServicesID<>"-2" Then CoSql=CoSql&",ServiceOrdPtServicesID="&ServiceOrdPtServicesID&""
+If ServiceOrdPtServices<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtServices='"&ServiceOrdPtServices&"'"
+If ServiceOrdPtInServicesID<>"-2" Then CoSql=CoSql&",ServiceOrdPtInServicesID="&ServiceOrdPtInServicesID&""
+If ServiceOrdPtInServices<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtInServices='"&ServiceOrdPtInServices&"'"
+
+'淇敼鏈嶅姟鍗�(鑷姩瀹℃牳)
+sql="update ServiceOrder set ServiceOrdClass='"&ServiceOrdClass&"',ServiceOrdAreaType="&ServiceOrdAreaType&",ServiceOrdType="&ServiceOrdType&",ServiceOrdApptDate='"&ServiceOrdApptDate&"',ServiceOrdEstimatedOrderDate='"&ServiceOrdEstimatedOrderDate&"',ServiceOrdCoTies='"&ServiceOrdCoTies&"',ServiceOrdPtSex='"&ServiceOrdPtSex&"',ServiceOrdPtNat='"&ServiceOrdPtNat&"',ServiceOrdPtIDCard='"&ServiceOrdPtIDCard&"',ServiceOrdPtOutHospID="&ServiceOrdPtOutHospID_New&",ServiceOrdPtOutHosp="&ServiceOrdPtOutHospID&",ServiceOrdPtInHospID="&ServiceOrdPtInHospID_New&",ServiceOrdPtInHosp="&ServiceOrdPtInHospID&",ServiceOrdPtDiagnosis='"&ServiceOrdPtDiagnosis&"',ServiceOrdPtCondition='"&ServiceOrdPtCondition&"',ServiceOrdTaskRemarks='"&ServiceOrdTaskRemarks&"',ServiceOrdPtDoctor='"&ServiceOrdPtDoctor&"',ServiceOrdPtDoctorPhone='"&ServiceOrdPtDoctorPhone&"',ServiceOrdTraProvince='"&ServiceOrdTraProvince&"',ServiceOrdTraCity='"&ServiceOrdTraCity&"',ServiceOrdTraStreet='"&ServiceOrdTraStreet&"',ServiceOrdTraStreetCoo='"&ServiceOrdTraStreetCoo&"',ServiceOrdTraEnd='"&ServiceOrdTraEnd&"',ServiceOrdTraEndCoo='"&ServiceOrdTraEndCoo&"',ServiceOrdTraVia='"&ServiceOrdTraVia&"',ServiceOrdViaDistance='"&ServiceOrdViaDistance&"',ServiceOrdTraDistance='"&ServiceOrdTraDistance&"',ServiceOrdTraDuration='"&ServiceOrdTraDuration&"',ServiceOrdTraUnitPrice="&ServiceOrdTraUnitPrice&",ServiceOrdTraOfferPrice="&ServiceOrdTraOfferPrice&",ServiceOrdTraTxnPrice="&ServiceOrdTraTxnPrice&",ServiceOrdTraPrePayment="&ServiceOrdTraPrePayment&",SettlementPrice="&SettlementPrice&",ServiceOrdTraPriceReason='"&ServiceOrdTraPriceReason&"',ServiceOrd_CC_ID="&ServiceOrd_CC_ID&",ServiceOrd_Sale_ID="&ServiceOrd_Sale_ID&",ServiceOrdIntroducer='"&ServiceOrdIntroducer&"',ServiceOrd_work_ID="&ServiceOrd_work_ID&",ServiceOrd_work_IDs='"&ServiceOrd_work_IDs&"',ServiceOrd_work_is="&ServiceOrd_work_is&",CommissionScenarioID="&CommissionScenarioID&",ServiceOrdUnitID="&ServiceOrdUnitID&""&ServiceOrdSql&",ServiceOrdVIP="&ServiceOrdVIP&SqlVisit&",ServiceOrdOperationRemarks='"&ServiceOrdOperationRemarks&"',ServiceOrdSource="&ServiceOrdSource&",OrderLevel="&OrderLevel&",ServiceOrdDepartureType="&ServiceOrdDepartureType&",ConditionLevel="&ConditionLevel&",DirectionType="&DirectionType&",ServiceOrdPtKG='"&ServiceOrdPtKG&"',FromHQ2_is="&FromHQ2_is&CoSql&ServiceOrdNo_UPSql&" where ServiceOrdID="&ServiceOrdID
+'&",ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")
+'Response.Write sql
+objConn.Execute sql
+
+'淇敼鐩稿叧璋冨害鍗�
+CoSql=""
+If ServiceOrdCoPhone<>"銆愰殣銆�" Then CoSql=",DispatchOrdCoPhone='"&ServiceOrdCoPhone&"'"
+sql="update DispatchOrd set DispatchOrdPerfomance="&ServiceOrdTraTxnPrice&",DispatchOrdCoName='"&ServiceOrdCoName&"',DispatchOrdTraVia='"&ServiceOrdTraVia&"',DispatchOrdTraEnd='"&ServiceOrdTraEnd&"'"&CoSql&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdCoName='"&Old_ServiceOrdCoName&"' and DispatchOrdCoPhone='"&Old_ServiceOrdCoPhone&"' and DispatchOrdTraVia='"&Old_ServiceOrdTraVia&"' and DispatchOrdTraEnd='"&Old_ServiceOrdTraEnd&"' and DispatchOrdPerfomance="&Old_ServiceOrdTraTxnPrice&" and DispatchOrdState not in (10) and ServiceOrdIDDt="&ServiceOrdID
+'Call GetBody("https://api.966120.com.cn/v1/dottmedAPI.php","OrdID="&DispatchOrdID&"&method="&method)
+'Response.Write sql
+objConn.Execute sql
+
+
+'淇敼鐩墠鐥呮儏(鍗曢�夐」绫�)
+sql="select vOrder from dictionary where vType=2 and vtitle='Condition' order by vOrder,vID"
+rs.open sql,objConn,1,1
+If not rs.Eof Then
+ ConditionOrder=rs("vOrder")
+ ConditionID=SafeRequest(Request.form("ConditionID_"&ConditionOrder))
+ If ConditionID<>"" Then
+ sql="delete from ServiceOrd_Condition where ServiceOrdCoID="&ServiceOrdID
+ objConn.Execute sql
+ do while not rs.Eof
+ ConditionOrder=rs("vOrder")
+ ConditionID=SafeRequest(Request.form("ConditionID_"&ConditionOrder))
+ If ConditionID<>"" Then
+ sql="insert into ServiceOrd_Condition (ServiceOrdCoID,ConditionID) values ("&ServiceOrdID&","&ConditionID&")"
+ objConn.Execute sql
+ End If
+ If ConditionID="4" Then
+ sql=" update ServiceOrder set AMV_is=1 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ ElseIf ConditionID="3" Then
+ sql=" update ServiceOrder set AMV_is=0 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+ rs.movenext
+ Loop
+ End If
+End If
+rs.close()
+
+'鍐欏叆璇婃柇ICD
+OrdICD_ID = SafeRequest(Request.form("OrdICD_ID")) '璇婃柇ICD_ID
+OrdICD_ID_old = SafeRequest(Request.form("OrdICD_ID_old"))
+If OrdICD_ID<>OrdICD_ID_old Then
+ sql="delete from ServiceOrder_ICD where ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ If OrdICD_ID<>"" then
+ OrdICD_IDSP = SPLIT(OrdICD_ID,",")
+ for i=1 to ubound(OrdICD_IDSP)-1
+ If OrdICD_IDSP(i)<>"" Then
+ sql="insert into ServiceOrder_ICD (ServiceOrdIDDt,icd_id) values ("&ServiceOrdID&","&OrdICD_IDSP(i)&")"
+ objConn.Execute sql
+ End If
+ Next
+ End If
+End If
+
+'淇敼杞繍鏂瑰紡(澶氶�夐」)
+sql="delete from ServiceOrd_TransferMode where ServiceOrdTMID="&ServiceOrdID
+objConn.Execute sql
+TransferModeIDSP = SPLIT(TransferModeID,", ")
+for i = 0 to UBOUND(TransferModeIDSP)
+ TransferModeID = TransferModeIDSP(i)
+ If TransferModeID<>"" then
+ sql="insert into ServiceOrd_TransferMode (ServiceOrdTMID,TransferModeID) values ("&ServiceOrdID&","&TransferModeID&")"
+ 'Response.Write sql
+ objConn.Execute sql
+ End if
+Next
+
+'鏍搁攢浼樻儬鍒�
+Call CouponUse(ServiceOrdTraPriceReason,ServiceOrdID)
+
+'瀹℃牳鏈嶅姟鍗�(鑷姩瀹℃牳)
+'If ServiceOrd_Check="1" And ServiceOrd_AP_Check="0" Then
+If ServiceOrd_AP_Check="0" Then
+ sql="update ServiceOrder set ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")&" where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ SMT=5
+End If
+
+'鍙嶅鏍告湇鍔″崟
+If ServiceOrd_Check="0" And ServiceOrd_AP_Check="1" Then
+ sql="update ServiceOrder set ServiceOrd_AP_Check=0,ServiceOrd_AP_Time=null,ServiceOrd_AP_ID=null where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ SMT=6
+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)
+If SMT=9 Or (ServiceOrdEstimatedOrderDate="" And ServiceOrdEstimatedOrderDateOld<>"") Then
+ sql="delete from Notification where NC_Name like '%娲惧崟鏃堕棿鎻愰啋銆�' and NC_PageUrl like '%"&ServiceOrdID&"%'"
+ objConn.Execute sql
+ElseIf ServiceOrdEstimatedOrderDate<>"" And ServiceOrdEstimatedOrderDateOld<>ServiceOrdEstimatedOrderDate Then
+ sql="delete from Notification where NC_Name like '%娲惧崟鏃堕棿鎻愰啋銆�' and NC_PageUrl like '%"&ServiceOrdID&"%'"
+ objConn.Execute sql
+ NC_OAID="78"
+ NC_Name="銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�"
+ NC_Content="鏈嶅姟鍗�:"&ServiceOrdNo&",宸插埌棰勫畾鐨勬淳鍗曟椂闂�,璇峰嵆鏃跺鐞�"
+ NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+ NC_PageUrlM=ServiceOrdEstimatedOrderDate
+ Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
+End If
+
+session("Origin")=""
+If ServiceOrdState="2" And ServiceOrd_m="1" Then
+ ReturnURL="m_DispatchOrder.gds?ServiceOrdID="&ServiceOrdID&"&NEWOrder=3&Perfomance="&Perfomance&"&Stretcher="&Stretcher
+ElseIf ServiceOrd_m="1" Then
+ ReturnURL="m_DispatchOrder.gds?ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
+Else
+ ReturnURL="ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&h_menu1_1="&session("h_menu1_1")
+End If
+Call OA_Running("淇敼鏈嶅姟鍗�"&EditDataForm&":"&ServiceOrdID)
+objConn.Execute "exec OrdDataUP "&ServiceOrdID
+rsRollbackTrans(objConn.Errors.count)
+
+'绗笁鏂瑰钩鍙版暟鎹洿鏂�
+Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)
+
+'鍐欏叆鐩稿叧閿�鍞汉鍛橀�氱煡(鏆傚仠鎺ㄩ��2020.9.17)
+If ServiceOrdPtOutHospID_New<>"0" And ServiceOrdPtInHospID_New<>"0" And OrderLevel<>"1" And (cstr(Old_ServiceOrdPtOutHospID)<>cstr(ServiceOrdPtOutHospID_New) Or cstr(Old_ServiceOrdPtInHospID)<>cstr(ServiceOrdPtInHospID_New)) And 1=2 Then
+ %>
+ <!--#include virtual="/weixin/JsonPost_1000006.gds"-->
+ <%
+ touser=""
+ sql="SELECT STUFF((select ',' + HospOAID from HospData where HospID in ("&ServiceOrdPtOutHospID_New&","&ServiceOrdPtInHospID_New&") and HospOAID<>'' and HospOAID is not null FOR XML PATH('')), 1, 1, '')"
+ rs.open sql,objConn,1,1
+ HospOAIDs=rs(0)
+ rs.close()
+
+
+ If not isnull(HospOAIDs) Then
+ HospOAIDPS = SPLIT(HospOAIDs,",")
+ HospOAIDs=""
+ for z = 0 to UBOUND(HospOAIDPS)
+ If HospOAIDPS(z)<>"" Then
+ HospOAIDs=HospOAIDs&","&HospOAIDPS(z)
+ End If
+ Next
+ If HospOAIDs<>"" Then HospOAIDs=Mid(HospOAIDs,2)
+ touser = ""
+ If HospOAIDs<>"" Then
+ sql="select OA_weixinUserID,OA_Name from OA_User where OA_execLevel>=0 and OA_User_ID in ("&HospOAIDs&")"
+ rs.open sql,objConn,1,1
+ do while not rs.Eof
+ touser = touser&"|"&rs("OA_weixinUserID")
+ MessageName=MessageName&"銆�"&rs("OA_Name")
+ rs.movenext
+ loop
+ rs.close()
+ If touser<>"" Then
+ touser=Mid(touser,2)
+ MessageName=Mid(MessageName,2)
+ End If
+ End If
+ 'touser="ylkx_vicgame"
+ If touser<>"" Then
+ '璁㈠崟鐣欒█
+ MessageContents="璁㈠崟鎺ㄩ�佺粰"&MessageName
+ sql="insert into ServiceOrd_Message (ServiceOrdIDDt,MessageContents,MessageOAid) values ("&ServiceOrdID&",'"&MessageContents&"',"&session("adminID")&")"
+ objConn.Execute sql
+
+ '寰俊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," '浼佷笟搴旂敤鐨刬d锛屾暣鍨嬨�傚彲鍦ㄥ簲鐢ㄧ殑璁剧疆椤甸潰鏌ョ湅
+ args1=args1&"""msgtype"": ""news"","
+ args1=args1&"""news"": {"
+ args1=args1&"""articles"":["
+ args1=args1&"{"
+ args1=args1&"""title"": ""銆愭柊鏈嶅姟鍗曘��"&ServiceOrdNo&""","
+ args1=args1&"""description"": """
+ If ServiceOrdApptDate<>"" Then args1=args1&"棰勭害鏃堕棿锛�"&ServiceOrdApptDate&"\n"
+ If ServiceOrdPtInHosp="瀹朵腑" Then ServiceOrdPtInHosp=ServiceOrdTraEnd
+ args1=args1&"鍑哄彂鍦帮細"&ServiceOrdPtOutHosp&"\n鐩殑鍦帮細"&ServiceOrdPtInHosp&"锛堢害"&ServiceOrdTraDistance&"锛�"","
+ args1=args1&"""url"": """&WEBURL&"/m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&OrdEdit=NO"","
+ args1=args1&"""picurl"": """""
+ args1=args1&"}"
+ args1=args1&"]"
+ args1=args1&"}"
+ args1=args1&"}"
+ call PostBody(appUrl,args1)
+ End If
+ End If
+End If
+
+
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT
+Response.End%>
+
+<%case "21"
+'-------------------------------------------------------------鏂板杞﹁締
+CarLicense = SafeRequest(Request("CarLicense"))
+CarModels = SafeRequest(Request("CarModels"))
+CarVIN = SafeRequest(Request("CarVIN"))
+GPS_IMEI = Trim(SafeRequest(Request("GPS_IMEI")))
+Video_ID = Trim(SafeRequest(Request("Video_ID")))
+CarOrdClass = SafeRequest(Request("CarOrdClass"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If CarLicense="" Or CarOrdClass="" Then Response.Redirect "/CarData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=1"
+CarOrdClass = Replace(CarOrdClass," ","")
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+If CarVIN<>"" Then sql=" or CarVIN='"&CarVIN&"'"
+sql="select CarID from CarData where CarState>0 and CarLicense='"&CarLicense&"'"&sql
+rs.open sql,objConn,1,1
+if not rs.eof then
+ Response.Redirect "/CarData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=5"
+end If
+rs.close()
+sql="insert into CarData (CarLicense,CarModels,CarVIN,CarState,GPS_IMEI,Video_ID,CarOrdClass) values ('"&CarLicense&"','"&CarModels&"','"&CarVIN&"',1,'"&GPS_IMEI&"','"&Video_ID&"','"&CarOrdClass&"')"
+objConn.Execute sql
+sql="insert into MRP_Warehouse (WarehouseName,WarehouseContact,WarehouseTEL,WarehouseAddress,WarehouseRemarks,WarehouseType) select CarLicense,'','',CarID,'杞﹁締',2 from CarData where CarID not in (select WarehouseAddress from MRP_Warehouse where WarehouseType=2)"
+objConn.Execute sql
+
+
+
+ReturnURL="CarData.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+Response.End%>
+
+<%case "22"
+'-------------------------------------------------------------淇敼杞﹁締
+CarID = SafeRequest(request.form("CarID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If CarID="" Then Response.Redirect "/CarData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=6"
+
+ID_SP = SPLIT(CarID,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ id = ID_SP(i)
+ CarLicense= SafeRequest(Request("CarLicense_"&ID))
+ CarModels = SafeRequest(Request("CarModels_"&ID))
+ CarVIN = SafeRequest(Request("CarVIN_"&ID))
+ GPS_IMEI = Trim(SafeRequest(Request("GPS_IMEI_"&ID)))
+ Video_ID = Trim(SafeRequest(Request("Video_ID_"&ID)))
+ CarOrdClass = SafeRequest(Request("CarOrdClass_"&ID))
+ CarStateTXT = SafeRequest(Request("CarStateTXT_"&ID))
+ If CarLicense="" Or CarOrdClass="" Then Response.Redirect "/CarData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=1"
+ CarOrdClass = Replace(CarOrdClass," ","")
+ sql="select CarID from CarData where CarState>0 and CarLicense='"&CarLicense&"' and CarID<>"&ID
+ rs.open sql,objConn,1,1
+ if not rs.eof then
+ Response.Redirect "/CarData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=5"
+ end If
+ rs.close()
+ sql="update CarData set CarLicense='"&CarLicense&"',CarModels='"&CarModels&"',CarVIN='"&CarVIN&"',GPS_IMEI='"&GPS_IMEI&"',Video_ID='"&Video_ID&"',CarOrdClass='"&CarOrdClass&"',CarStateTXT='"&CarStateTXT&"' where CarID="&ID
+ objConn.Execute sql
+ sql="update weixinQR set QR_Name='"&CarLicense&"' from weixinQR where QR_type=1 and QR_Key='"&ID&"'"
+ objConn.Execute sql
+Next
+
+ReturnURL="CarData.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2"
+Response.End%>
+
+<%case "23"
+'-------------------------------------------------------------鍒犻櫎杞﹁締
+CarID = SafeRequest(request.form("CarID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If CarID="" Then Response.Redirect "/CarData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=6"
+
+sql="update CarData set CarState=0 where CarID in ("&CarID&")"
+objConn.Execute sql
+
+
+ReturnURL="CarData.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=4"
+Response.End%>
+
+
+<%case "24"
+'-------------------------------------------------------------鏂板璋冨害鍗�
+Set rs = Server.CreateObject("ADODB.Recordset")
+DispatchOrdClass = SafeRequest(Request.form("DispatchOrdClass")) '鍗曟嵁绫诲瀷
+ServiceOrdID = SafeRequest(Request.form("ServiceOrdID")) '瀵瑰簲鏈嶅姟鍗曞彿
+DispatchOrdState = SafeRequest(Request.form("DispatchOrdState")) '璋冨害鍗曠姸鎬�
+DispatchOrdTraSDTime = SafeRequest(Request.form("DispatchOrdTraSDTime")) '鎷熷嚭鍙戞椂闂�
+DispatchOrdCarID = SafeRequest(Request.form("DispatchOrdCarID")) '娲鹃仯杞﹁締ID
+DispatchOrdCoName = SafeRequest(Request.form("DispatchOrdCoName")) '璋冨害鑱旂郴浜哄鍚�
+DispatchOrdCoPhone = SafeRequest(Request.form("DispatchOrdCoPhone")) '璋冨害鑱旂郴浜虹數璇�
+ServiceOrdCoName = SafeRequest(Request.form("ServiceOrdCoName")) '鑱旂郴浜哄鍚�
+ServiceOrdCoPhone = StrTrim(SafeRequest(Request.form("ServiceOrdCoPhone"))) '鑱旂郴浜虹數璇�
+DispatchOrdTraStreet = SafeRequest(Request.form("DispatchOrdTraStreet")) '瀹為檯鍑哄彂鍦�
+DispatchOrdTraEnd = SafeRequest(Request.form("DispatchOrdTraEnd")) '瀹為檯鐩殑鍦�
+DispatchOrdTraVia = SafeRequest(Request.form("DispatchOrdTraVia")) '瀹為檯閫旂粡鍦�
+DispatchOrd_Check = SafeRequest(Request.form("DispatchOrd_Check")) '涓嬪彂/瀹℃牳鍛戒护(0鍙嶅鏍�,1瀹℃牳,2涓嬪彂寰俊,3鐩存帴寮哄埗瀹屾垚)
+DispatchOrd_NS_Time = SafeRequest(Request.form("DispatchOrd_NS_Time")) '寮�鍗曟椂闂�
+
+DispatchOrdPerfomance = SafeRequest(Request.form("DispatchOrdPerfomance")) '璁㈠崟缁╂晥
+StretcherMoney = SafeRequest(Request.form("StretcherMoney")) '鎷呮灦璐�
+AddMoneyType = SafeRequest(Request.form("AddMoneyType")) '闄勫姞椤圭洰
+AddMoney = SafeRequest(Request.form("AddMoney")) '闄勫姞椤圭洰璐圭敤
+AddMoneyExplain = SafeRequest(Request.form("AddMoneyExplain")) '闄勫姞椤圭洰璇存槑
+
+EntourageName_aid1 = SafeRequest(Request.form("EntourageName_aid1")) '澶栨彺浜哄憳1
+EntourageName_aid2 = SafeRequest(Request.form("EntourageName_aid2")) '澶栨彺浜哄憳2
+DispatchOrd_NS_ID = SafeRequest(Request.form("DispatchOrd_NS_ID")) '璋冨害浜哄憳ID
+RecommendedCar = SafeRequest(Request.form("RecommendedCar")) '鎸囧畾杞﹀瀷
+DispatchOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '鍖绘姢鍙稿娉�
+
+'Phone
+TEL_Phone = SafeRequest(Request.form("Phone")) '鏉ョ數鐢佃瘽
+TEL_Time = SafeRequest(Request.form("TEL_Time")) '鏉ョ數鏃堕棿
+TEL_Remarks = SafeRequest(Request.form("TEL_Remarks")) '鏉ョ數澶囨敞
+
+TimeLength_Program = SafeRequest(Request.form("TimeLength_Program")) '澶у瀷娲诲姩淇濋殰鏃堕暱
+TimeLength_ICU = SafeRequest(Request.form("TimeLength_ICU")) '灞呭ICU鏃堕暱
+TimeLength_Wait = SafeRequest(Request.form("TimeLength_Wait")) '绛夊緟鏃堕暱
+
+DispatchOrdTraStreetMileage = SafeRequest(request("DispatchOrdTraStreetMileage")) '寮�濮嬮噷绋嬫暟
+DispatchOrdTraEndMileage = SafeRequest(request("DispatchOrdTraEndMileage")) '缁撴潫閲岀▼鏁�
+
+If DispatchOrdClass="" Then DispatchOrdClass="SA"
+If DispatchOrdCoName="" Then DispatchOrdCoName=ServiceOrdCoName
+If DispatchOrdCoPhone="" Then DispatchOrdCoPhone=ServiceOrdCoPhone
+If DispatchOrdCarID="" Then DispatchOrdCarID=0
+If DispatchOrd_NS_ID="" Then DispatchOrd_NS_ID=session("adminID")
+If DispatchOrdPerfomance="" Or not IsNumeric(DispatchOrdPerfomance) Then DispatchOrdPerfomance=0
+If StretcherMoney="" Then StretcherMoney=0
+If AddMoney="" Or Not isnumeric(AddMoney) Then AddMoney=0
+If TimeLength_Program="" Then TimeLength_Program=0
+If TimeLength_ICU="" Then TimeLength_ICU=0
+If TimeLength_Wait="" Then TimeLength_Wait=0
+If DispatchOrd_NS_Time="" Then DispatchOrd_NS_Time=Now()
+If AddMoneyType<>"" And AddMoneyType<>"0" And AddMoney>0 Then StretcherMoney=AddMoney
+
+'鏁版嵁涓嶅畬鏁�
+error=","
+'If DispatchOrdCarID="0" Then error=error&"DispatchOrdCarLicense,"
+If DispatchOrdCoName="" And DispatchOrdClass<>"SP" Then error=error&"DispatchOrdCoName,"
+If DispatchOrdCoPhone="" And DispatchOrdClass<>"SP" And DispatchOrd_Check<>"3" Then error=error&"DispatchOrdCoPhone,"
+If DispatchOrdTraSDTime="" And DispatchOrdClass="SP" Then error=error&"DispatchOrdTraSDTime,"
+'If Len(error)>2 Then Response.Redirect "/DispatchOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=4&error="&error
+
+'楠岃瘉鏈嶅姟鍗曟槸鍚︽纭�
+If ServiceOrdID<>"" Then
+ sql="select top 1 ServiceOrdID,ServiceOrdUnitID,ServiceOrdCoName,ServiceOrdCoPhone from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If rs.eof Then
+ Response.Redirect "/DispatchOrder.gds?SystemMessageType=4&SMT=1"
+ Else
+ ServiceOrdUnitID=rs("ServiceOrdUnitID")
+ If DispatchOrdCoName="銆愰殣銆�" Then DispatchOrdCoName=rs("ServiceOrdCoName")
+ If DispatchOrdCoPhone="銆愰殣銆�" Then DispatchOrdCoPhone=rs("ServiceOrdCoPhone")
+ End If
+ rs.close()
+End If
+
+'楠岃瘉鏄惁閲嶅鐢熸垚
+If ServiceOrdID<>"" And DispatchOrd_Check="3" Then
+ sql="select DispatchOrdID from DispatchOrd where DispatchOrdState not in (10) and ServiceOrdIDDt="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ Response.Redirect "/m_DispatchOrder.gds?DispatchOrdID="&rs("DispatchOrdID")
+ End If
+ rs.close()
+End If
+
+'楠岃瘉缁╂晥璁′环鏄惁姝ｇ‘
+If DispatchOrdPerfomance=0 And ServiceOrdID<>"" Then
+ sql="select DispatchOrdID from DispatchOrd where DispatchOrdState<>10 and ServiceOrdIDDt="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If rs.eof Then
+ ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '鎴愪氦浠�
+ If ServiceOrdTraTxnPrice="" Or ServiceOrdTraTxnPrice="0" Then ServiceOrdTraTxnPrice=1
+ If InStr(ServiceOrdTraTxnPrice,",")>0 Then ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","")
+ DispatchOrdPerfomance=ServiceOrdTraTxnPrice
+ End If
+ rs.close()
+End If
+
+'楠岃瘉鏈夋病閲嶅鎻愪氦
+sql="select DispatchOrdID from DispatchOrd where DispatchOrdCoPhone='"&DispatchOrdCoPhone&"' and DispatchOrd_NS_Time='"&DispatchOrd_NS_Time&"'"
+rs.open sql,objConn,1,1
+if not rs.eof Then
+ Response.Redirect "/DispatchOrder.gds?SystemMessageType=4&SMT=2&DispatchOrdID="&rs(0)
+End if
+rs.close()
+
+'鐣欒█淇濆瓨
+MessageContents = SafeRequest(request("MessageContents_form1"))
+If MessageContents<>"" And ServiceOrdID<>"" Then
+ sql="insert into ServiceOrd_Message (ServiceOrdIDDt,MessageContents,MessageOAid) values ("&ServiceOrdID&",'"&MessageContents&"',"&session("adminID")&")"
+ objConn.Execute sql
+End If
+
+'鏂拌皟搴﹀崟搴忓彿
+sql="select top 1 DispatchOrdNo from DispatchOrd where CONVERT(VARCHAR(10),DispatchOrd_NS_Time,120)=CONVERT(VARCHAR(10),GETDATE(),120) and DispatchOrdClass='"&DispatchOrdClass&"' order by DispatchOrdNo desc"
+rs.open sql,objConn,1,1
+If not rs.Eof Then
+ DispatchOrdNo=rs(0)+1
+Else
+ DispatchOrdNo=1
+End if
+rs.close()
+
+'鍐欏叆鏂拌皟搴﹀崟
+sql="insert into DispatchOrd (DispatchOrdClass,DispatchOrdStartDate,DispatchOrdCarID,DispatchOrdTraStreet,DispatchOrdTraEnd,DispatchOrdTraVia,DispatchOrdCoName,DispatchOrdCoPhone,DispatchOrd_NS_ID,DispatchOrd_NS_Time,EntourageName_aid1,EntourageName_aid2,DispatchOrdNo,DispatchOrdPerfomance,RecommendedCar,StretcherMoney,TimeLength_Program,TimeLength_ICU,TimeLength_Wait,DispatchOrdTaskRemarks) values ('"&DispatchOrdClass&"','"&DispatchOrd_NS_Time&"',"&DispatchOrdCarID&",'"&DispatchOrdTraStreet&"','"&DispatchOrdTraEnd&"','"&DispatchOrdTraVia&"','"&DispatchOrdCoName&"','"&DispatchOrdCoPhone&"',"&DispatchOrd_NS_ID&",'"&DispatchOrd_NS_Time&"','"&EntourageName_aid1&"','"&EntourageName_aid2&"',"&DispatchOrdNo&","&DispatchOrdPerfomance&",'"&RecommendedCar&"',"&StretcherMoney&","&TimeLength_Program&","&TimeLength_ICU&","&TimeLength_Wait&",'"&DispatchOrdTaskRemarks&"')"
+objConn.Execute sql
+sql="select top 1 DispatchOrdID from DispatchOrd where DispatchOrdStartDate='"&DispatchOrd_NS_Time&"' order by DispatchOrdID desc"
+rs.open sql,objConn,1,1
+DispatchOrdID = rs(0)
+rs.close()
+If DispatchOrdTraSDTime<>"" Then
+sql="update DispatchOrd set DispatchOrdTraSDTime='"&DispatchOrdTraSDTime&"' where DispatchOrdID="&DispatchOrdID
+objConn.Execute sql
+End If
+
+'鍐欏叆闄勫姞椤圭洰璐圭敤
+If AddMoneyType<>"" And AddMoneyType<>"0" And AddMoney>0 And StretcherMoney>0 Then
+ If ServiceOrdID="" Then
+ ToServiceOrdID=0
+ Else
+ ToServiceOrdID=ServiceOrdID
+ End If
+ sql="insert into PaidMoney_Add (ToServiceOrdID,ToDispatchOrdID,AddMoneyType,AddMoney,AddMoneyExplain,AddMoneyOAID) values ("&ToServiceOrdID&","&DispatchOrdID&","&AddMoneyType&","&AddMoney&",'"&AddMoneyExplain&"',"&session("adminID")&")"
+ objConn.Execute sql
+ Call OA_Running("淇敼璋冨害鍗�:"&DispatchOrdID&" 鏂板闄勫姞璐圭敤閲戦:"&AddMoney)
+End If
+
+'鍐欏叆闅忚浜哄憳
+EntourageLeadID = SafeRequest(Request.form("EntourageLeadID")) '棰嗛槦ID
+sql="select vID from dictionary where vType=1 and vtitle='DispatchOrdEntourage' order by vOrder"
+rs.open sql,objConn,1,1
+do while not rs.Eof
+ EntourageID = rs("vID")
+ EntourageOAid=SafeRequest(Request.form("Entourage_"&EntourageID))
+ EntourageOT_is = SafeRequest(Request("EntourageOT_is_"&EntourageID)) '鍔犵彮鍑鸿溅
+ EntourageOT2_is = SafeRequest(Request("EntourageOT2_is_"&EntourageID)) '鍔犵彮鍑鸿溅2
+ EntourageBetimesHH = SafeRequest(Request("EntourageBetimesHH_"&EntourageID)) '鎻愬墠鍑鸿溅N灏忔椂
+ EntourageLong_is = SafeRequest(Request("EntourageLong_is_"&EntourageID)) '璺熻溅
+ Stretcher_is = SafeRequest(Request("Stretcher_is_"&EntourageID)) '鎶媴鏋�
+ If EntourageOT_is="" Then EntourageOT_is=0
+ If EntourageOT2_is="" Then EntourageOT2_is=0
+ If EntourageBetimesHH="" Then EntourageBetimesHH=0
+ If EntourageLong_is="" Then EntourageLong_is=0
+ If Stretcher_is="" Then Stretcher_is=0
+ If EntourageOT_is<>0 Or EntourageOT2_is<>0 Or EntourageBetimesHH>0 Then
+ Check_is=0
+ Else
+ Check_is=1
+ End If
+ If EntourageLeadID="" And DispatchOrd_Check="3" And CStr(EntourageOAid)=CStr(session("adminID")) Then EntourageLeadID=EntourageID
+ If EntourageOAid<>"" And EntourageOAid<>"0" Then
+ EntourageLead=0
+ If CStr(EntourageLeadID)=CStr(EntourageID) Then EntourageLead=1
+ sql="insert into DispatchOrd_Entourage (DispatchOrdIDDt,EntourageID,EntourageOAid,EntourageLead,EntourageOT_is,EntourageOT2_is,EntourageBetimesHH,EntourageLong_is,Check_is,Stretcher_is,Entourage_Time) values ("&DispatchOrdID&","&EntourageID&","&EntourageOAid&","&EntourageLead&","&EntourageOT_is&","&EntourageOT2_is&","&EntourageBetimesHH&","&EntourageLong_is&","&Check_is&","&Stretcher_is&",'"&DispatchOrd_NS_Time&"')"
+ objConn.Execute sql
+ If EntourageLead=1 Then
+ sql="update DispatchOrd set DispatchEmployeeGroup=(select top 1 OA_EmployeeGroup from OA_User where OA_User_ID="&EntourageOAid&") where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ End If
+ End if
+rs.movenext
+loop
+rs.close()
+
+
+'鍐欏叆鐢佃瘽璁板綍
+If TEL_Phone<>"" then
+ sql="select CallRecordID from CallRecord where CallRecord_Phine='"&TEL_Phone&"' and CallRecord_StartTime between dateadd(Ss,-10,'"&TEL_Time&"') and dateadd(Ss,10,'"&TEL_Time&"')"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update CallRecord set CallRecord_OAUserID="&session("adminID")&",CallRecord_EndTime=getdate(),CallRecord_OrdClass='"&ServiceOrdClass&"',CallRecord_OrdID="&ServiceOrdID&",CallRecord_Record='"&TEL_Remarks&"' where CallRecordID="&rs(0)
+ objConn.Execute sql
+ Else
+ sql="insert into CallRecord (CallRecord_Phine,CallRecord_OAUserID,CallRecord_StartTime,CallRecord_EndTime,CallRecord_Type,CallRecord_OrdClass,CallRecord_OrdID,CallRecord_Record) values ('"&TEL_Phone&"',"&session("adminID")&",'"&TEL_Time&"',getdate(),1,'"&ServiceOrdClass&"',"&ServiceOrdID&",'"&TEL_Remarks&"')"
+ objConn.Execute sql
+ End if
+ rs.close()
+End If
+
+If ServiceOrdID<>"" And DispatchOrd_Check<>"3" Then
+ ServiceOrdPtCondition = SafeRequest(Request.form("ServiceOrdPtCondition")) '鐥呮儏鎻忚堪
+ ServiceOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '鍖绘姢鍙稿娉�
+ ServiceOrdPtDoctor = SafeRequest(Request.form("ServiceOrdPtDoctor")) '鎮ｈ�呭尰鐢�
+ ServiceOrdPtDoctorPhone = SafeRequest(Request.form("ServiceOrdPtDoctorPhone")) '鎮ｈ�呭尰鐢熺數璇�
+ TransferModeID = SafeRequest(Request.form("TransferModeID")) '杞繍鏂瑰紡
+ ServiceOrdVIP = SafeRequest(Request.form("ServiceOrdVIP")) 'VIP瀹㈡埛
+ ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '鎴愪氦浠�
+ ServiceOrdTraPrePayment = SafeRequest(Request.form("ServiceOrdTraPrePayment")) '闇�棰勪粯娆�
+ SettlementPrice = SafeRequest(Request.form("SettlementPrice")) '缁撶畻浠�
+ ServiceOrdTraPriceReason= SafeRequest(Request.form("ServiceOrdTraPriceReason")) '宸环鍘熷洜
+ ServiceOrd_CC_ID = SafeRequest(Request.form("ServiceOrd_CC_ID")) '瀹㈡湇浜哄憳ID
+ ServiceOrd_Sale_ID = SafeRequest(Request.form("ServiceOrd_Sale_ID")) '閿�鍞汉鍛業D
+ ServiceOrdIntroducer = SafeRequest(Request.form("ServiceOrdIntroducer")) '浠嬬粛浜�
+ ServiceOrd_work_ID = SafeRequest(Request.form("ServiceOrd_work_ID")) '涓昏浼佸井瀹㈡湇ID
+ ServiceOrd_work_IDs = SafeRequest(Request.form("ServiceOrd_work_IDs")) '鍏朵粬浼佸井瀹㈡湇ID
+ ServiceOrd_work_is = SafeRequest(request.form("ServiceOrd_work_is")) '鏄惁浼佸井鎴愪氦
+ CommissionScenarioID = SafeRequest(request.form("CommissionScenarioID")) '浼佸井缁╂晥鏂规
+ ServiceOrdApptDate = SafeRequest(Request.form("ServiceOrdApptDate")) '棰勭害鏃堕棿
+ ServiceOrdPtDiagnosis = SafeRequest(Request.form("ServiceOrdPtDiagnosis")) '璇婃柇
+ ServiceOrdOperationRemarks=SafeRequest(Request.form("ServiceOrdOperationRemarks")) '鎿嶄綔澶囨敞
+ ServiceOrdEstimatedOrderDate=SafeRequest(Request.form("ServiceOrdEstimatedOrderDate")) '棰勮娲惧崟鏃堕棿
+ ServiceOrdEstimatedOrderDateOld=SafeRequest(Request.form("ServiceOrdEstimatedOrderDateOld")) '鍘熼璁℃淳鍗曟椂闂�
+ ServiceOrdViaDistance = SafeRequest(Request.form("ServiceOrdViaDistance")) '涓�旇窛绂�
+ ServiceOrdTraDistance = SafeRequest(Request.form("ServiceOrdTraDistance")) '璺濈
+ OrderLevel = SafeRequest(Request.form("OrderLevel")) '鏌ョ湅绛夌骇
+ ServiceOrdDepartureType = SafeRequest(Request.form("ServiceOrdDepartureType")) '棰勭害绫诲瀷
+ ConditionLevel = SafeRequest(Request.form("ConditionLevel")) '鐥呴噸绾у埆
+ DirectionType = SafeRequest(Request.form("DirectionType")) '杞繍鍘诲悜
+ ServiceOrdPtOutHospID_New=SafeRequest(Request.form("ServiceOrdPtOutHospID")) '杞嚭鍖婚櫌ID
+ ServiceOrdPtInHospID_New= SafeRequest(Request.form("ServiceOrdPtInHospID")) '杞叆鍖婚櫌ID
+ ServiceOrdPtOutHosp = SafeRequest(Request.form("ServiceOrdPtOutHosp")) '杞嚭鍖婚櫌
+ ServiceOrdTraVia = SafeRequest(Request.form("ServiceOrdTraVia")) '杞嚭鍦板潃
+ ServiceOrdPtInHosp = SafeRequest(Request.form("ServiceOrdPtInHosp")) '杞叆鍖婚櫌
+ ServiceOrdTraEnd = SafeRequest(Request.form("ServiceOrdTraEnd")) '杞叆鍦板潃
+ FromHQ2_is = SafeRequest(Request.form("FromHQ2_is")) '骞垮窞鎬婚儴鎺ㄩ�佷换鍔℃爣璁�
+
+ If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
+ If ServiceOrdTraPrePayment="" Then ServiceOrdTraPrePayment=0
+ If SettlementPrice="" Then SettlementPrice=0
+ If ServiceOrd_Sale_ID="" Then ServiceOrd_Sale_ID="null"
+ If ServiceOrd_work_ID="" Then ServiceOrd_work_ID="null"
+ If ServiceOrd_work_is="" Then ServiceOrd_work_is=0
+ If CommissionScenarioID="" Then CommissionScenarioID=0
+ If ServiceOrd_CC_ID="" Then ServiceOrd_CC_ID="ServiceOrd_CC_ID"
+ If ServiceOrdVIP="" Then ServiceOrdVIP=0
+ If InStr(ServiceOrdTraTxnPrice,",")>0 Then ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","")
+ If InStr(ServiceOrdTraPrePayment,",")>0 Then ServiceOrdTraPrePayment=Replace(ServiceOrdTraPrePayment,",","")
+ If InStr(SettlementPrice,",")>0 Then SettlementPrice=Replace(SettlementPrice,",","")
+ If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","")
+ If ServiceOrdViaDistance<>"" And OrderLevel="2" Then
+ ServiceOrdViaDistance = Replace(ServiceOrdViaDistance,"鍏噷","")
+ If ServiceOrdViaDistance="" Or Not isnumeric(ServiceOrdViaDistance) Then ServiceOrdViaDistance="0"
+ ServiceOrdViaDistance = ServiceOrdViaDistance&"鍏噷"
+ Else
+ ServiceOrdViaDistance="0"
+ End If
+ ServiceOrdTraDistance = Replace(ServiceOrdTraDistance,"鍏噷","")
+ If ServiceOrdTraDistance="" Or Not isnumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance="0"
+ If ServiceOrdTraDistance="0" Then error=error&"ServiceOrdTraDistance,"
+ ServiceOrdTraDistance = ServiceOrdTraDistance&"鍏噷"
+ If OrderLevel="" Then OrderLevel=0
+ If ServiceOrdDepartureType="" Then ServiceOrdDepartureType=1
+ If ConditionLevel="" Then ConditionLevel=0
+ If DirectionType="" Then DirectionType=0
+ If ServiceOrdPtOutHospID_New="" Then ServiceOrdPtOutHospID_New=0
+ If ServiceOrdPtInHospID_New="" Then ServiceOrdPtInHospID_New=0
+ If FromHQ2_is="" Then FromHQ2_is=0
+
+ '楠岃瘉鍗曟嵁ID鏄惁姝ｇ‘
+ sql="select ServiceOrdID,ServiceOrdState,ServiceOrd_AP_Check,ServiceOrdUnitID,ServiceOrdClass,ServiceOrd_CC_Time,ServiceOrdNo from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ if rs.eof Then
+ session("Origin")=""
+ Response.Redirect "/ServiceOrder.gds?SystemMessageType=4&SMT=1&Phone&="&TEL_Phone
+ Else
+ ServiceOrd_AP_Check=rs("ServiceOrd_AP_Check")
+ Old_ServiceOrdState=rs("ServiceOrdState")
+ ServiceOrdUnitID=rs("ServiceOrdUnitID")
+ ServiceOrdClass=rs("ServiceOrdClass")
+ ServiceOrd_CC_Time=rs("ServiceOrd_CC_Time")
+ ServiceOrdNo=rs("ServiceOrdNo")
+ End if
+ rs.close()
+
+ '鍏宠仈鏈嶅姟鍗�
+ sql="update DispatchOrd set ServiceOrdIDDt="&ServiceOrdID&" where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+
+ '鏌ユ壘鍚堜綔鍗曚綅ID
+ ServiceOrdUnitSql=",ServiceOrdUnitID=0"
+ If ServiceOrdIntroducer<>"" And IsNumeric(ServiceOrdIntroducer) Then
+ sql="select IntroducerID,IntroducerName,IntroducerUnitID from IntroducerData where IntroducerUnitID<>'' and IntroducerID="&ServiceOrdIntroducer
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdUnitSql=",ServiceOrdUnitID="&rs("IntroducerUnitID")
+ End If
+ rs.close()
+ End If
+
+ '淇敼涓昏瘖鍖荤敓,鎴愪氦浠风瓑璧勬枡(鏈嶅姟鍗�)
+ sql="update ServiceOrder set ServiceOrdPtCondition='"&ServiceOrdPtCondition&"',ServiceOrdTaskRemarks='"&ServiceOrdTaskRemarks&"',ServiceOrdPtDoctor='"&ServiceOrdPtDoctor&"',ServiceOrdPtDoctorPhone='"&ServiceOrdPtDoctorPhone&"',ServiceOrdTraTxnPrice="&ServiceOrdTraTxnPrice&",ServiceOrdTraPrePayment="&ServiceOrdTraPrePayment&",SettlementPrice="&SettlementPrice&",ServiceOrdTraPriceReason='"&ServiceOrdTraPriceReason&"',ServiceOrdState=3,ServiceOrdStartDate=getdate(),ServiceOrd_CC_ID="&ServiceOrd_CC_ID&",ServiceOrd_Sale_ID="&ServiceOrd_Sale_ID&",ServiceOrdIntroducer='"&ServiceOrdIntroducer&"',ServiceOrd_work_ID="&ServiceOrd_work_ID&",ServiceOrd_work_IDs='"&ServiceOrd_work_IDs&"',ServiceOrd_work_is="&ServiceOrd_work_is&",CommissionScenarioID="&CommissionScenarioID&ServiceOrdUnitSql&",ServiceOrdApptDate='"&ServiceOrdApptDate&"',ServiceOrdVIP="&ServiceOrdVIP&",ServiceOrdPtDiagnosis='"&ServiceOrdPtDiagnosis&"',ServiceOrdOperationRemarks='"&ServiceOrdOperationRemarks&"',ServiceOrdViaDistance='"&ServiceOrdViaDistance&"',ServiceOrdTraDistance='"&ServiceOrdTraDistance&"',ServiceOrdEstimatedOrderDate='"&ServiceOrdEstimatedOrderDate&"',OrderLevel="&OrderLevel&",ServiceOrdDepartureType="&ServiceOrdDepartureType&",ConditionLevel="&ConditionLevel&",DirectionType="&DirectionType&",FromHQ2_is="&FromHQ2_is&" where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+
+ '淇敼鐩墠鐥呮儏(鍗曢�夐」绫�)
+ sql="delete from ServiceOrd_Condition where ServiceOrdCoID="&ServiceOrdID
+ objConn.Execute sql
+ sql="select vOrder from dictionary where vType=2 and vtitle='Condition' order by vOrder,vID"
+ rs.open sql,objConn,1,1
+ do while not rs.Eof
+ ConditionOrder=rs("vOrder")
+ ConditionID=SafeRequest(Request.form("ConditionID_"&ConditionOrder))
+ If ConditionID<>"" Then
+ sql="insert into ServiceOrd_Condition (ServiceOrdCoID,ConditionID) values ("&ServiceOrdID&","&ConditionID&")"
+ objConn.Execute sql
+ End If
+ If ConditionID="4" Then
+ sql=" update ServiceOrder set AMV_is=1 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ ElseIf ConditionID="3" Then
+ sql=" update ServiceOrder set AMV_is=0 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+ rs.movenext
+ loop
+ rs.close()
+
+ '鍐欏叆璇婃柇ICD
+ OrdICD_ID = SafeRequest(Request.form("OrdICD_ID")) '璇婃柇ICD_ID
+ OrdICD_ID_old = SafeRequest(Request.form("OrdICD_ID_old"))
+ If OrdICD_ID<>OrdICD_ID_old Then
+ sql="delete from ServiceOrder_ICD where ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ If OrdICD_ID<>"" then
+ OrdICD_IDSP = SPLIT(OrdICD_ID,",")
+ for i=1 to ubound(OrdICD_IDSP)-1
+ If OrdICD_IDSP(i)<>"" Then
+ sql="insert into ServiceOrder_ICD (ServiceOrdIDDt,icd_id) values ("&ServiceOrdID&","&OrdICD_IDSP(i)&")"
+ objConn.Execute sql
+ End If
+ Next
+ End If
+ End If
+
+ '淇敼杞繍鏂瑰紡(澶氶�夐」)
+ sql="delete from ServiceOrd_TransferMode where ServiceOrdTMID="&ServiceOrdID
+ objConn.Execute sql
+ TransferModeIDSP = SPLIT(TransferModeID,", ")
+ for i = 0 to UBOUND(TransferModeIDSP)
+ TransferModeID = TransferModeIDSP(i)
+ If TransferModeID<>"" then
+ sql="insert into ServiceOrd_TransferMode (ServiceOrdTMID,TransferModeID) values ("&ServiceOrdID&","&TransferModeID&")"
+ objConn.Execute sql
+ End if
+ Next
+
+ '鏍搁攢浼樻儬鍒�
+ Call CouponUse(ServiceOrdTraPriceReason,ServiceOrdID)
+
+ '鍐欏叆棰勮娲惧崟鏃堕棿閫氱煡
+ ServiceOrdNo = ServiceOrdClass& year(ServiceOrd_CC_Time)&Right("0"&month(ServiceOrd_CC_Time),2)&Right("0"&day(ServiceOrd_CC_Time),2) & "-"&Right("00"&ServiceOrdNo,3)
+ If SMT=9 Or (ServiceOrdEstimatedOrderDate="" And ServiceOrdEstimatedOrderDateOld<>"") Then
+ sql="delete from Notification where NC_Name='銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�'"
+ objConn.Execute sql
+ ElseIf ServiceOrdEstimatedOrderDate<>"" And ServiceOrdEstimatedOrderDateOld<>ServiceOrdEstimatedOrderDate Then
+ sql="delete from Notification where NC_Name='銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�'"
+ objConn.Execute sql
+ NC_OAID="78"
+ NC_Name="銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�"
+ NC_Content="鏈嶅姟鍗�:"&ServiceOrdNo&",宸插埌棰勫畾鐨勬淳鍗曟椂闂�,璇峰嵆鏃跺鐞�"
+ NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+ NC_PageUrlM=ServiceOrdEstimatedOrderDate
+ Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
+ End If
+ '鍏宠仈璐圭敤鍗�
+ sql="update PaidMoney set DispatchOrdIDDt="&DispatchOrdID&" where ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ElseIf ServiceOrdID<>"" And DispatchOrd_Check="3" Then
+ '鍏宠仈鏈嶅姟鍗�
+ sql="update DispatchOrd set ServiceOrdIDDt="&ServiceOrdID&" where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ sql="update ServiceOrder set ServiceOrdState=3,ServiceOrdStartDate=getdate() where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ sql="update ServiceOrder set ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")&" where ServiceOrdID="&ServiceOrdID&" and ServiceOrd_AP_Check=0"
+ objConn.Execute sql
+ '鍏宠仈璐圭敤鍗�
+ sql="update PaidMoney set DispatchOrdIDDt="&DispatchOrdID&" where ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+End If
+
+'涓嬪彂寰俊
+If DispatchOrd_Check="2" And Len(error)<2 Then
+ session("JsonKey")="1"
+ '寰俊棣栨涓嬪彂鏃堕棿
+ sql="update DispatchOrd set DispatchOrdWeixinDate=getdate() where DispatchOrdWeixinDate is null and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ ReturnURL="/weixin/message_send_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ Call OA_Running("涓嬪彂璋冨害鍗�:"&DispatchOrdID)
+'寮哄埗瀹屾垚
+ElseIf DispatchOrd_Check="3" And Len(error)<2 Then
+ ActualSql=",DispatchOrdActualDate=getdate()"
+ sql="update DispatchOrd_Entourage set EntourageState=3,EntourageState_Time=GETDATE() where DispatchOrdIDDt="&DispatchOrdID
+ objConn.Execute sql
+ If DispatchOrdTraStreetMileage<>"" Then
+ MileageSql=MileageSql&",DispatchOrdTraStreetMileage="&DispatchOrdTraStreetMileage
+ End If
+ If DispatchOrdTraEndMileage<>"" Then
+ MileageSql=MileageSql&",DispatchOrdTraEndMileage="&DispatchOrdTraEndMileage
+ End If
+ If OA_latitude="" or OA_longitude="" Then
+ OA_latitude=0
+ OA_longitude=0
+ End If
+ sql="update DispatchOrd set DispatchOrdState="&DispatchOrdState&",DispatchOrdStartDate=getdate(),DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost)"&ActualSql&MileageSql&" where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ ReturnURL="admin_save.gds?admin_save=38&NEWOrder=3&DispatchOrdID="&DispatchOrdID&"&DispatchOrdCarID="&DispatchOrdCarID&"&SetOutDateR="&DispatchOrd_NS_Time&"&ReturnDateR="&DispatchOrd_NS_Time
+
+Else
+ ReturnURL="DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+End If
+Call OA_Running("鏂板缓璋冨害鍗�:"&DispatchOrdID)
+If ServiceOrdID<>"" Then
+ objConn.Execute "exec OrdDataUP "&ServiceOrdID
+Else
+ objConn.Execute "exec OrdDataUP "&DispatchOrdID
+End If
+rsRollbackTrans(objConn.Errors.count)
+
+'绗笁鏂瑰钩鍙版暟鎹洿鏂�
+Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)
+
+If Len(error)>2 Then Response.Redirect ReturnURL&"&SystemMessageType=1&SMT=4&error="&error
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+Response.End%>
+
+<%case "25"
+'-------------------------------------------------------------淇敼璋冨害鍗�
+Set rs = Server.CreateObject("ADODB.Recordset")
+DispatchOrdID = SafeRequest(Request.form("DispatchOrdID")) '璋冨害鍗曞彿
+DispatchOrdClass = SafeRequest(Request.form("DispatchOrdClass")) '鍗曟嵁绫诲瀷
+ServiceOrdID = SafeRequest(Request.form("ServiceOrdID")) '瀵瑰簲鏈嶅姟鍗曞彿
+DispatchOrdState = SafeRequest(Request.form("DispatchOrdState")) '璋冨害鍗曠姸鎬�
+DispatchOrdTraSDTime = SafeRequest(Request.form("DispatchOrdTraSDTime")) '鎷熷嚭鍙戞椂闂�
+DispatchOrdCarID = SafeRequest(Request.form("DispatchOrdCarID")) '娲鹃仯杞﹁締ID
+DispatchOrdCoName = SafeRequest(Request.form("DispatchOrdCoName")) '璋冨害鑱旂郴浜哄鍚�
+DispatchOrdCoPhone = SafeRequest(Request.form("DispatchOrdCoPhone")) '璋冨害鑱旂郴浜虹數璇�
+ServiceOrdCoName = SafeRequest(Request.form("ServiceOrdCoName")) '鑱旂郴浜哄鍚�
+ServiceOrdCoPhone = StrTrim(SafeRequest(Request.form("ServiceOrdCoPhone"))) '鑱旂郴浜虹數璇�
+DispatchOrdTraStreet = SafeRequest(Request.form("DispatchOrdTraStreet")) '瀹為檯鍑哄彂鍦�
+DispatchOrdTraEnd = SafeRequest(Request.form("DispatchOrdTraEnd")) '瀹為檯鐩殑鍦�
+DispatchOrdTraVia = SafeRequest(Request.form("DispatchOrdTraVia")) '瀹為檯閫旂粡鍦�
+DispatchOrd_Check = SafeRequest(Request.form("DispatchOrd_Check")) '涓嬪彂/瀹℃牳鍛戒护(0鍙嶅鏍�,1瀹℃牳,2涓嬪彂寰俊,4瀹℃牳涓嶉�氳繃)
+
+DispatchOrdPerfomance = SafeRequest(Request.form("DispatchOrdPerfomance")) '璁㈠崟缁╂晥
+StretcherMoney = SafeRequest(Request.form("StretcherMoney")) '鎷呮灦璐�(澶辨晥)
+AddMoneyType = SafeRequest(Request.form("AddMoneyType")) '闄勫姞椤圭洰
+AddMoney = SafeRequest(Request.form("AddMoney")) '闄勫姞椤圭洰璐圭敤
+AddMoneyExplain = SafeRequest(Request.form("AddMoneyExplain")) '闄勫姞椤圭洰璇存槑
+EntourageName_aid1 = SafeRequest(Request.form("EntourageName_aid1")) '澶栨彺浜哄憳1
+EntourageName_aid2 = SafeRequest(Request.form("EntourageName_aid2")) '澶栨彺浜哄憳2
+DispatchOrd_NS_ID = SafeRequest(Request.form("DispatchOrd_NS_ID")) '璋冨害浜哄憳ID
+RecommendedCar = SafeRequest(Request.form("RecommendedCar")) '鎸囧畾杞﹀瀷
+DispatchOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '鍖绘姢鍙稿娉�
+DispatchEmployeeGroup = SafeRequest(Request.form("DispatchEmployeeGroup")) '鍛樺伐缁勫埆
+
+'Phone
+TEL_Phone = SafeRequest(Request.form("Phone")) '鏉ョ數鐢佃瘽
+TEL_Time = SafeRequest(Request.form("TEL_Time")) '鏉ョ數鏃堕棿
+TEL_Remarks = SafeRequest(Request.form("TEL_Remarks")) '鏉ョ數澶囨敞
+
+TimeLength_Program = SafeRequest(Request.form("TimeLength_Program")) '澶у瀷娲诲姩淇濋殰鏃堕暱
+TimeLength_ICU = SafeRequest(Request.form("TimeLength_ICU")) '灞呭ICU鏃堕暱
+TimeLength_Wait = SafeRequest(Request.form("TimeLength_Wait")) '绛夊緟鏃堕暱
+
+ServiceOrdTraStreet = SafeRequest(Request.form("ServiceOrdTraStreet")) '杞﹁締鍑哄彂鍦板潃
+ServiceOrdTraVia = SafeRequest(Request.form("ServiceOrdTraVia")) '杞嚭鍦板潃
+ServiceOrdTraEnd = SafeRequest(Request.form("ServiceOrdTraEnd")) '杞叆鍦板潃
+EditDataForm = SafeRequest(Request.form("EditDataForm")) '褰撳墠淇敼椤圭洰
+
+
+
+If ServiceOrdTraStreet<>"" Then DispatchOrdTraStreet=ServiceOrdTraStreet
+If ServiceOrdTraVia<>"" Then DispatchOrdTraVia=ServiceOrdTraVia
+If ServiceOrdTraEnd<>"" Then DispatchOrdTraEnd=ServiceOrdTraEnd
+
+If DispatchOrdClass="" Then DispatchOrdClass="SA"
+If DispatchOrdCoName="" Then DispatchOrdCoName=ServiceOrdCoName
+If DispatchOrdCoPhone="" Then DispatchOrdCoPhone=ServiceOrdCoPhone
+If DispatchOrdCarID="" Then DispatchOrdCarID=0
+If DispatchOrd_NS_ID="" Then DispatchOrd_NS_ID="DispatchOrd_NS_ID"
+If TimeLength_Program="" Then TimeLength_Program=0
+If TimeLength_ICU="" Then TimeLength_ICU=0
+If TimeLength_Wait="" Then TimeLength_Wait=0
+If AddMoney="" Or Not isnumeric(AddMoney) Then AddMoney=0
+If EditDataForm<>"" Then EditDataForm="["&EditDataForm&"] ID"
+
+'鏁版嵁涓嶅畬鏁�
+If DispatchOrdID="" Or Not IsNumeric(DispatchOrdID) Then Response.Redirect "/DispatchOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=1"
+error=","
+'If DispatchOrdCarID="0" Then error=error&"DispatchOrdCarLicense,"
+If DispatchOrdCoName="" And DispatchOrdClass<>"SP" Then error=error&"DispatchOrdCoName,"
+If DispatchOrdCoPhone="" And DispatchOrdClass<>"SP" Then error=error&"DispatchOrdCoPhone,"
+If DispatchOrdTraSDTime="" And DispatchOrdClass="SP" Then error=error&"DispatchOrdTraSDTime,"
+'If Len(error)>2 Then Response.Redirect "/DispatchOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=4&error="&error
+
+'楠岃瘉鏈嶅姟鍗曟槸鍚︽纭�
+If ServiceOrdID<>"" And ServiceOrdID<>"0" Then
+ sql="select top 1 ServiceOrdID,ServiceOrdUnitID from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If rs.eof Then
+ Response.Redirect "/DispatchOrder.gds?SystemMessageType=4&SMT=1"
+ Else
+ ServiceOrdUnitID=rs("ServiceOrdUnitID")
+ End If
+ rs.close()
+End If
+
+'楠岃瘉缁╂晥璁′环鏄惁姝ｇ‘
+If (DispatchOrdPerfomance="" Or DispatchOrdPerfomance="0") And ServiceOrdID<>"" Then
+ sql="select DispatchOrdID from DispatchOrd where DispatchOrdState<>10 and DispatchOrdID<>"&DispatchOrdID&" and ServiceOrdIDDt="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If rs.eof Then
+ ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '鎴愪氦浠�
+ If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
+ If InStr(ServiceOrdTraTxnPrice,",")>0 Then ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","")
+ DispatchOrdPerfomance=ServiceOrdTraTxnPrice
+ End If
+ rs.close()
+End If
+sql="select DispatchOrdID,DispatchOrd_NS_Time from DispatchOrd where DispatchOrdID="&DispatchOrdID
+rs.open sql,objConn,1,1
+If rs.eof Then
+ DispatchOrd_NS_Time = rs("DispatchOrd_NS_Time")
+End If
+rs.close()
+
+'鐣欒█淇濆瓨
+MessageContents = SafeRequest(request("MessageContents_form1"))
+If MessageContents<>"" And ServiceOrdID<>"" Then
+ sql="insert into ServiceOrd_Message (ServiceOrdIDDt,MessageContents,MessageOAid) values ("&ServiceOrdID&",'"&MessageContents&"',"&session("adminID")&")"
+ objConn.Execute sql
+End If
+
+'淇敼璋冨害鍗�
+If DispatchOrdTraSDTime<>"" Then SDTimeSql=",DispatchOrdTraSDTime='"&DispatchOrdTraSDTime&"'"
+If DispatchOrdPerfomance<>"" Then DKPSql=",DispatchOrdPerfomance="&DispatchOrdPerfomance
+If AddMoneyType<>"" And AddMoney>0 Then SMSql=",StretcherMoney=StretcherMoney+"&AddMoney
+If DispatchEmployeeGroup<>"" Then EGSql=",DispatchEmployeeGroup="&DispatchEmployeeGroup
+sql="update DispatchOrd set DispatchOrdCarID="&DispatchOrdCarID&",DispatchOrdTraStreet='"&DispatchOrdTraStreet&"',DispatchOrdTraEnd='"&DispatchOrdTraEnd&"',DispatchOrdTraVia='"&DispatchOrdTraVia&"',DispatchOrdCoName='"&DispatchOrdCoName&"',DispatchOrdCoPhone='"&DispatchOrdCoPhone&"',EntourageName_aid1='"&EntourageName_aid1&"',EntourageName_aid2='"&EntourageName_aid2&"',DispatchOrd_NS_ID="&DispatchOrd_NS_ID&",RecommendedCar='"&RecommendedCar&"',TimeLength_Program="&TimeLength_Program&",TimeLength_ICU="&TimeLength_ICU&",TimeLength_Wait="&TimeLength_Wait&",DispatchOrdTaskRemarks='"&DispatchOrdTaskRemarks&"'"&SDTimeSql&DKPSql&SMSql&EGSql&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+'Response.write sql
+'Response.End
+objConn.Execute sql
+
+'淇敼闅忚浜哄憳
+EntourageLeadID = SafeRequest(Request.form("EntourageLeadID")) '棰嗛槦ID
+sql="select DispatchOrd_Entourage.id,vID,vtext,vOrder2,EntourageOAid=isnull(EntourageOAid,0),EntourageLead=isnull(EntourageLead,0),EntourageState=isnull(EntourageState,0),EntourageState_Time,Check_is=isnull(Check_is,1) from dictionary LEFT JOIN DispatchOrd_Entourage on DispatchOrdIDDt="&DispatchOrdID&" and EntourageID=vID and EntourageState<>4 where vType=1 and vtitle='DispatchOrdEntourage' order by vOrder"
+rs.open sql,objConn,1,1
+do while not rs.Eof
+ EID = rs("id") '闅忚鍒楄〃ID
+ EntourageID = rs("vID") '鑱岃兘ID
+ EntourageName=rs("vtext") '
+ OA_CompetencyID=rs("vOrder2")'瀵瑰簲鑱岃兘ID
+ EntourageOAid=rs("EntourageOAid")
+ EntourageLead=rs("EntourageLead")
+ EntourageState=rs("EntourageState") '浜哄憳纭鐘舵��(1绛夊緟纭,2涓嶆帴鍙�,3宸茬‘璁�,4鍙栨秷)
+ EntourageState_Time=rs("EntourageState_Time")
+ EntourageOAid_NEW=SafeRequest(Request("Entourage_"&EntourageID))
+ EntourageOT_is = SafeRequest(Request("EntourageOT_is_"&EntourageID)) '浼戞伅鍑鸿溅
+ EntourageOT2_is = SafeRequest(Request("EntourageOT2_is_"&EntourageID)) '鍔犵彮鍑鸿溅2
+ EntourageBetimesHH = SafeRequest(Request("EntourageBetimesHH_"&EntourageID)) '鎻愬墠鍑鸿溅N灏忔椂
+ EntourageLong_is = SafeRequest(Request("EntourageLong_is_"&EntourageID)) '璺熻溅
+ Stretcher_is = SafeRequest(Request("Stretcher_is_"&EntourageID)) '鎶媴鏋�
+ If Stretcher_is="" Then Stretcher_is=0
+
+ Check_is = rs("Check_is")'鍔犵彮瀹℃牳(0鏈鏍�,1涓嶉渶瑕佸鏍�,2宸插鏍�,4瀹℃牳涓嶉�氳繃)
+ If EntourageOT_is="" Then EntourageOT_is=0
+ If EntourageOT2_is="" Then EntourageOT2_is=0
+ If EntourageBetimesHH="" Then EntourageBetimesHH=0
+ If EntourageLong_is="" Then EntourageLong_is=0
+ If Stretcher_is="" Then Stretcher_is=0
+ EntourageLead=0
+ If CStr(EntourageLeadID)=CStr(EntourageID) Then EntourageLead=1
+ If (EntourageOT_is<>0 Or EntourageBetimesHH>0 Or EntourageOT2_is>0) And Check_is=1 Then
+ Check_is=0
+ End If
+
+
+ If EntourageOAid_NEW="" And Not isnull(EID) Then
+ '娓呯┖闅忚浜哄憳
+ If (EntourageState=2 Or EntourageState=3) And Not Isnull(EID) Then
+ sql="update DispatchOrd_Entourage set EntourageState=4 where id="&EID
+ objConn.Execute sql
+ Else
+ sql="delete from DispatchOrd_Entourage where id="&EID
+ objConn.Execute sql
+ End If
+
+ ElseIf EntourageOAid_NEW<>"" And Not isnull(EID) And CStr(EntourageOAid_NEW)<>CStr(EntourageOAid) Then
+ '淇敼闅忚浜哄憳(鏇存崲)
+ If (EntourageState=2 Or EntourageState=3) And Not Isnull(EID) Then
+ sql="update DispatchOrd_Entourage set EntourageState=4 where id="&EID
+ objConn.Execute sql
+ Else
+ sql="delete from DispatchOrd_Entourage where id="&EID
+ objConn.Execute sql
+ End If
+ sql="insert into DispatchOrd_Entourage (DispatchOrdIDDt,EntourageID,EntourageOAid,EntourageLead,EntourageOT_is,EntourageOT2_is,EntourageBetimesHH,EntourageLong_is,Check_is,Stretcher_is,Entourage_Time) values ("&DispatchOrdID&","&EntourageID&","&EntourageOAid_NEW&","&EntourageLead&","&EntourageOT_is&","&EntourageOT2_is&","&EntourageBetimesHH&","&EntourageLong_is&","&Check_is&","&Stretcher_is&",'"&DispatchOrd_NS_Time&"')"
+ objConn.Execute sql
+ If EntourageLead=1 Then
+ sql="update DispatchOrd set DispatchEmployeeGroup=(select top 1 OA_EmployeeGroup from OA_User where OA_User_ID="&EntourageOAid&") where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ End If
+
+ ElseIf EntourageOAid_NEW<>"" And Not isnull(EID) And CStr(EntourageOAid_NEW)=CStr(EntourageOAid) Then
+ '淇敼闅忚浜哄憳(鏇存柊)
+ sql="update DispatchOrd_Entourage set EntourageLead="&EntourageLead&",EntourageOT_is="&EntourageOT_is&",EntourageOT2_is="&EntourageOT2_is&",EntourageBetimesHH="&EntourageBetimesHH&",EntourageLong_is="&EntourageLong_is&",Check_is="&Check_is&",Stretcher_is="&Stretcher_is&" where id="&EID
+ objConn.Execute sql
+
+ ElseIf EntourageOAid_NEW<>"" And isnull(EID) Then
+ '鍐欏叆闅忚浜哄憳
+ sql="insert into DispatchOrd_Entourage (DispatchOrdIDDt,EntourageID,EntourageOAid,EntourageLead,EntourageOT_is,EntourageOT2_is,EntourageBetimesHH,EntourageLong_is,Check_is,Stretcher_is,Entourage_Time) values ("&DispatchOrdID&","&EntourageID&","&EntourageOAid_NEW&","&EntourageLead&","&EntourageOT_is&","&EntourageOT2_is&","&EntourageBetimesHH&","&EntourageLong_is&","&Check_is&","&Stretcher_is&",'"&DispatchOrd_NS_Time&"')"
+ objConn.Execute sql
+ If EntourageLead=1 Then
+ sql="update DispatchOrd set DispatchEmployeeGroup=(select top 1 OA_EmployeeGroup from OA_User where OA_User_ID="&EntourageOAid&") where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ End If
+
+ End if
+rs.movenext
+loop
+rs.close()
+
+'淇敼璋冨害鍗�
+If DispatchOrd_Check="2" And DispatchOrdState="0" then
+ DispatchOrdState="1"
+ sql="update DispatchOrd set DispatchOrdState="&DispatchOrdState&",DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost) where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+Else
+ sql="update DispatchOrd set DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost) where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+End if
+
+'鍐欏叆闄勫姞椤圭洰璐圭敤
+If AddMoneyType<>"" And AddMoneyType<>"0" And AddMoney>0 Then
+ If ServiceOrdID="" Then
+ ToServiceOrdID=0
+ Else
+ ToServiceOrdID=ServiceOrdID
+ End If
+ sql="insert into PaidMoney_Add (ToServiceOrdID,ToDispatchOrdID,AddMoneyType,AddMoney,AddMoneyExplain,AddMoneyOAID) values ("&ToServiceOrdID&","&DispatchOrdID&","&AddMoneyType&","&AddMoney&",'"&AddMoneyExplain&"',"&session("adminID")&")"
+ objConn.Execute sql
+ Call OA_Running("淇敼璋冨害鍗�:"&DispatchOrdID&" 鏂板闄勫姞璐圭敤閲戦:"&AddMoney)
+End If
+
+'鍐欏叆鐢佃瘽璁板綍
+If TEL_Phone<>"" then
+ sql="select CallRecordID from CallRecord where CallRecord_Phine='"&TEL_Phone&"' and CallRecord_StartTime between dateadd(Ss,-10,'"&TEL_Time&"') and dateadd(Ss,10,'"&TEL_Time&"')"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update CallRecord set CallRecord_OAUserID="&session("adminID")&",CallRecord_EndTime=getdate(),CallRecord_OrdClass='"&DispatchOrdState&"',CallRecord_OrdID="&DispatchOrdID&",CallRecord_Record='"&TEL_Remarks&"' where CallRecordID="&rs(0)
+ objConn.Execute sql
+ Else
+ sql="insert into CallRecord (CallRecord_Phine,CallRecord_OAUserID,CallRecord_StartTime,CallRecord_EndTime,CallRecord_Type,CallRecord_OrdClass,CallRecord_OrdID,CallRecord_Record) values ('"&TEL_Phone&"',"&session("adminID")&",'"&TEL_Time&"',getdate(),1,'"&DispatchOrdState&"',"&DispatchOrdID&",'"&TEL_Remarks&"')"
+ objConn.Execute sql
+ End if
+ rs.close()
+End If
+
+If ServiceOrdID<>"" Then
+ ServiceOrdCoName = SafeRequest(Request.form("ServiceOrdCoName")) '鎮ｈ�呰仈绯讳汉濮撳悕
+ ServiceOrdCoPhone = StrTrim(SafeRequest(Request.form("ServiceOrdCoPhone"))) '鎮ｈ�呰仈绯讳汉鐢佃瘽
+ ServiceOrdPtCondition = SafeRequest(Request.form("ServiceOrdPtCondition")) '鐥呮儏鎻忚堪
+ ServiceOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '鍖绘姢鍙稿娉�
+ ServiceOrdPtDoctor = SafeRequest(Request.form("ServiceOrdPtDoctor")) '鎮ｈ�呭尰鐢�
+ ServiceOrdPtDoctorPhone = SafeRequest(Request.form("ServiceOrdPtDoctorPhone")) '鎮ｈ�呭尰鐢熺數璇�
+ TransferModeID = SafeRequest(Request.form("TransferModeID")) '杞繍鏂瑰紡
+ ServiceOrdVIP = SafeRequest(Request.form("ServiceOrdVIP")) 'VIP瀹㈡埛
+ ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '鎴愪氦浠�
+ ServiceOrdTraPrePayment = SafeRequest(Request.form("ServiceOrdTraPrePayment")) '闇�棰勪粯娆�
+ SettlementPrice = SafeRequest(Request.form("SettlementPrice")) '缁撶畻浠�
+ ServiceOrdTraPriceReason= SafeRequest(Request.form("ServiceOrdTraPriceReason")) '宸环鍘熷洜
+ ServiceOrd_CC_ID = SafeRequest(Request.form("ServiceOrd_CC_ID")) '瀹㈡湇浜哄憳ID
+ ServiceOrd_Sale_ID = SafeRequest(Request.form("ServiceOrd_Sale_ID")) '閿�鍞汉鍛業D
+ ServiceOrdIntroducer = SafeRequest(Request.form("ServiceOrdIntroducer")) '浠嬬粛浜�
+ ServiceOrd_work_ID = SafeRequest(Request.form("ServiceOrd_work_ID")) '涓昏浼佸井瀹㈡湇ID
+ ServiceOrd_work_IDs = SafeRequest(Request.form("ServiceOrd_work_IDs")) '鍏朵粬浼佸井瀹㈡湇ID
+ ServiceOrd_work_is = SafeRequest(request.form("ServiceOrd_work_is")) '鏄惁浼佸井鎴愪氦
+ CommissionScenarioID = SafeRequest(request.form("CommissionScenarioID")) '浼佸井缁╂晥鏂规
+ ServiceOrdApptDate = SafeRequest(Request.form("ServiceOrdApptDate")) '棰勭害鏃堕棿
+ ServiceOrdEstimatedOrderDate=SafeRequest(Request.form("ServiceOrdEstimatedOrderDate")) '棰勮娲惧崟鏃堕棿
+ ServiceOrdEstimatedOrderDateOld=SafeRequest(Request.form("ServiceOrdEstimatedOrderDateOld")) '鍘熼璁℃淳鍗曟椂闂�
+ ReturnChannel = SafeRequest(Request.form("ReturnChannel")) '鍥炶鑾风煡966120鐨勬笭閬�
+ ReturnChannelOther = SafeRequest(Request.form("ReturnChannelOther")) '鍥炶鑾风煡966120鐨勬笭閬�(鍏跺畠)
+ VisitDict = SafeRequest(Request.form("VisitDict")) '鍥炶璁板綍(璇勪环绫诲瀷)
+ ServiceOrdVisit = SafeRequest(Request.form("ServiceOrdVisit")) '鍥炶璁板綍
+ ServiceOrdVisit_old = SafeRequest(Request.form("ServiceOrdVisit_old")) '鍘熷洖璁胯褰�
+ ServiceOrdSource = SafeRequest(Request.form("ServiceOrdSource")) '璁㈠崟鏉ユ簮
+ ServiceOrdViaDistance = SafeRequest(Request.form("ServiceOrdViaDistance")) '涓�旇窛绂�
+ ServiceOrdTraDistance = SafeRequest(Request.form("ServiceOrdTraDistance")) '璺濈
+ ServiceOrdPtDiagnosis = SafeRequest(Request.form("ServiceOrdPtDiagnosis")) '璇婃柇
+ ServiceOrdOperationRemarks = SafeRequest(Request.form("ServiceOrdOperationRemarks")) '鎿嶄綔澶囨敞椤�
+ ServiceOrdPtOutHospID_New=SafeRequest(Request.form("ServiceOrdPtOutHospID")) '杞嚭鍖婚櫌ID
+ ServiceOrdPtOutHosp = SafeRequest(Request.form("ServiceOrdPtOutHosp")) '杞嚭鍖婚櫌
+ ServiceOrdPtInHospID_New= SafeRequest(Request.form("ServiceOrdPtInHospID")) '杞叆鍖婚櫌ID
+ ServiceOrdPtInHosp = SafeRequest(Request.form("ServiceOrdPtInHosp")) '杞叆鍖婚櫌
+ ServiceOrdTraProvince = SafeRequest(Request.form("province")) '鍑哄彂鍦扮渷浠�
+ ServiceOrdTraCity = SafeRequest(Request.form("city")) '鍑哄彂鍦板煄甯�
+
+ ServiceOrdCoTies = SafeRequest(Request.form("ServiceOrdCoTies")) '
+ ServiceOrdPtName = SafeRequest(Request.form("ServiceOrdPtName")) '
+ ServiceOrdPtAge = SafeRequest(Request.form("ServiceOrdPtAge")) '
+ ServiceOrdPtKG = SafeRequest(Request.form("ServiceOrdPtKG")) '
+ ServiceOrdPtSex = SafeRequest(Request.form("ServiceOrdPtSex")) '
+ ServiceOrdPtNat = SafeRequest(Request.form("ServiceOrdPtNat")) '
+ ServiceOrdPtIDCard = SafeRequest(Request.form("ServiceOrdPtIDCard")) '
+ ServiceOrdPtServices = SafeRequest(Request.form("ServiceOrdPtServices")) '
+ ServiceOrdPtServicesID = SafeRequest(Request.form("ServiceOrdPtServicesID"))
+ ServiceOrdPtInServices = SafeRequest(Request.form("ServiceOrdPtInServices")) '
+ ServiceOrdPtInServicesID = SafeRequest(Request.form("ServiceOrdPtInServicesID"))
+ ServiceOrdTraStreet = SafeRequest(Request.form("ServiceOrdTraStreet")) '
+ ServiceOrdTraEnd = SafeRequest(Request.form("ServiceOrdTraEnd")) '
+ ServiceOrdTraVia = SafeRequest(Request.form("ServiceOrdTraVia")) '
+ ServiceOrdTraDuration = SafeRequest(Request.form("ServiceOrdTraDuration")) '
+ ServiceOrdTraUnitPrice = SafeRequest(Request.form("ServiceOrdTraUnitPrice")) '
+ ServiceOrdTraOfferPrice = SafeRequest(Request.form("ServiceOrdTraOfferPrice")) '
+ OrderLevel = SafeRequest(Request.form("OrderLevel")) '鏌ョ湅绛夌骇
+ ServiceOrdDepartureType = SafeRequest(Request.form("ServiceOrdDepartureType")) '棰勭害绫诲瀷
+ ConditionLevel = SafeRequest(Request.form("ConditionLevel")) '鐥呴噸绾у埆
+ DirectionType = SafeRequest(Request.form("DirectionType")) '杞繍鍘诲悜
+ FromHQ2_is = SafeRequest(Request.form("FromHQ2_is")) '骞垮窞鎬婚儴鎺ㄩ�佷换鍔℃爣璁�
+
+ If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
+ If ServiceOrdTraPrePayment="" Then ServiceOrdTraPrePayment=0
+ If SettlementPrice="" Then SettlementPrice=0
+ If ServiceOrdTraOfferPrice="" Then ServiceOrdTraOfferPrice=0
+ If InStr(ServiceOrdTraTxnPrice,",")>0 Then ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","")
+ If InStr(ServiceOrdTraPrePayment,",")>0 Then ServiceOrdTraPrePayment=Replace(ServiceOrdTraPrePayment,",","")
+ If InStr(SettlementPrice,",")>0 Then SettlementPrice=Replace(SettlementPrice,",","")
+ If ServiceOrdVIP="" Then ServiceOrdVIP=0
+ If ServiceOrd_Sale_ID="" Then ServiceOrd_Sale_ID="null"
+ If ServiceOrd_work_ID="" Then ServiceOrd_work_ID="null"
+ If ServiceOrd_work_is="" Then ServiceOrd_work_is=0
+ If CommissionScenarioID="" Then CommissionScenarioID=0
+ If ServiceOrd_CC_ID="" Then ServiceOrd_CC_ID="ServiceOrd_CC_ID"
+ If ServiceOrdVisit<>"" And ServiceOrdVisit_old<>ServiceOrdVisit Then
+ RV_Point=0
+ sql="select id from DispatchOrd_Entourage,DispatchOrd where EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and ServiceOrdIDDt="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ do while not rs.Eof
+ DE_id=rs("id")
+ RV_PointE=SafeRequest(Request.form("RV_PointE_"&DE_id))
+ If RV_PointE<>"" Then
+ RV_Point=RV_Point+1
+ sql="update DispatchOrd_Entourage set RV_PointE='"&RV_PointE&"' where id="&DE_id
+ objConn.Execute sql
+ End If
+ rs.movenext
+ loop
+ rs.close()
+ SqlVisit=",ServiceOrdVisit='"&ServiceOrdVisit&"',ServiceOrdVisit_time=getdate(),ServiceOrdVisit_ID="&session("adminID")
+ If VisitDict<>"" Then SqlVisit=SqlVisit&",ServiceOrdVisit_Dict='"&VisitDict&"'"
+ If RV_Point>0 Then SqlVisit=SqlVisit&",RV_Point="&RV_Point
+ ElseIf ServiceOrdVisit="" Then
+ SqlVisit=",ServiceOrdVisit_Dict=null,ServiceOrdVisit=null,ServiceOrdVisit_time=null,ServiceOrdVisit_ID=null,RV_Point=0"
+ End If
+ If ReturnChannel="鍏朵粬锛堟墜鍔ㄥ～鍐欙級" Then
+ If ReturnChannelOther="" Then ReturnChannelOther="鍏跺畠"
+ SqlVisit=SqlVisit&",ServiceOrdReturnChannel='"&ReturnChannelOther&"'"
+ ElseIf ReturnChannel<>"" Then
+ SqlVisit=SqlVisit&",ServiceOrdReturnChannel='"&ReturnChannel&"'"
+ Else
+ SqlVisit=SqlVisit&",ServiceOrdReturnChannel=null"
+ End If
+ If ServiceOrdSource="" Then ServiceOrdSource=0
+ If ServiceOrdPtServicesID="" Then ServiceOrdPtServicesID=0
+ If ServiceOrdPtInServicesID="" Then ServiceOrdPtInServicesID=0
+ If ServiceOrdTraUnitPrice="" Then ServiceOrdTraUnitPrice=0
+ If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","")
+ If ServiceOrdViaDistance<>"" And OrderLevel="2" Then
+ ServiceOrdViaDistance = Replace(ServiceOrdViaDistance,"鍏噷","")
+ If ServiceOrdViaDistance="" Or Not isnumeric(ServiceOrdViaDistance) Then ServiceOrdViaDistance="0"
+ ServiceOrdViaDistance = ServiceOrdViaDistance&"鍏噷"
+ Else
+ ServiceOrdViaDistance="0"
+ End If
+ ServiceOrdTraDistance = Replace(ServiceOrdTraDistance,"鍏噷","")
+ If ServiceOrdTraDistance="" Or Not isnumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance="0"
+ If ServiceOrdTraDistance="0" Then error=error&"ServiceOrdTraDistance,"
+ ServiceOrdTraDistance = ServiceOrdTraDistance&"鍏噷"
+ If OrderLevel="" Then OrderLevel=0
+ If ServiceOrdDepartureType="" Then ServiceOrdDepartureType=1
+ If ConditionLevel="" Then ConditionLevel=0
+ If DirectionType="" Then DirectionType=0
+ If FromHQ2_is="" Then FromHQ2_is=0
+
+
+ '楠岃瘉鍗曟嵁ID鏄惁姝ｇ‘
+ sql="select ServiceOrdID,ServiceOrdState,ServiceOrd_AP_Check,ServiceOrdUnitID,ServiceOrdClass,ServiceOrd_CC_Time,ServiceOrdNo from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ if rs.eof Then
+ session("Origin")=""
+ Response.Redirect "/ServiceOrder.gds?SystemMessageType=4&SMT=1&Phone&="&TEL_Phone
+ Else
+ ServiceOrd_AP_Check=rs("ServiceOrd_AP_Check")
+ Old_ServiceOrdState=rs("ServiceOrdState")
+ ServiceOrdUnitID=rs("ServiceOrdUnitID")
+ ServiceOrdClass=rs("ServiceOrdClass")
+ ServiceOrd_CC_Time=rs("ServiceOrd_CC_Time")
+ ServiceOrdNo=rs("ServiceOrdNo")
+ End if
+ rs.close()
+
+ '鏌ユ壘鍖婚櫌ID
+ If ServiceOrdPtOutHosp<>"" Then
+ If InStr(ServiceOrdPtOutHosp,"|")>0 Then ServiceOrdPtOutHosp=Mid(ServiceOrdPtOutHosp,1,InStr(ServiceOrdPtOutHosp,"|")-1)
+ sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtOutHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID=rs(0)
+ Else
+ rs.close()
+ sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID=rs(0)+1
+ Else
+ ServiceOrdPtOutHospID=1
+ End if
+ sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtOutHospID&",'"&ServiceOrdPtOutHosp&"','HospName',1,'鍖婚櫌鍚嶇О')"
+ objConn.Execute sql
+ End If
+ rs.close()
+ Else
+ ServiceOrdPtOutHospID=0
+ End If
+ If ServiceOrdPtInHosp<>"" Then
+ If InStr(ServiceOrdPtInHosp,"|")>0 Then ServiceOrdPtInHosp=Mid(ServiceOrdPtInHosp,1,InStr(ServiceOrdPtInHosp,"|")-1)
+ sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtInHosp&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID=rs(0)
+ Else
+ rs.close()
+ sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtInHospID=rs(0)+1
+ Else
+ ServiceOrdPtInHospID=1
+ End if
+ sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtInHospID&",'"&ServiceOrdPtInHosp&"','HospName',1,'鍖婚櫌鍚嶇О')"
+ objConn.Execute sql
+ End If
+ rs.close()
+ Else
+ ServiceOrdPtInHospID=0
+ End If
+
+ '鏌ユ壘鍚堜綔鍗曚綅ID
+ ServiceOrdUnitSql=",ServiceOrdUnitID=0"
+ If ServiceOrdIntroducer<>"" And IsNumeric(ServiceOrdIntroducer) Then
+ sql="select IntroducerID,IntroducerName,IntroducerUnitID from IntroducerData where IntroducerUnitID<>'' and IntroducerID="&ServiceOrdIntroducer
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdUnitSql=",ServiceOrdUnitID="&rs("IntroducerUnitID")
+ End If
+ rs.close()
+ End If
+
+
+ '鍏宠仈鏈嶅姟鍗�
+ sql="update DispatchOrd set ServiceOrdIDDt="&ServiceOrdID&" where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+
+ '鏁忔劅淇℃伅淇敼
+ CoSql=""
+ If ServiceOrdCoName<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdCoName='"&ServiceOrdCoName&"'"
+ If ServiceOrdCoPhone<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdCoPhone='"&ServiceOrdCoPhone&"'"
+ If ServiceOrdPtName<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtName='"&ServiceOrdPtName&"'"
+ If ServiceOrdPtAge<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtAge='"&ServiceOrdPtAge&"'"
+ If ServiceOrdPtServicesID<>"-2" Then CoSql=CoSql&",ServiceOrdPtServicesID="&ServiceOrdPtServicesID&""
+ If ServiceOrdPtServices<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtServices='"&ServiceOrdPtServices&"'"
+ If ServiceOrdPtInServicesID<>"-2" Then CoSql=CoSql&",ServiceOrdPtInServicesID="&ServiceOrdPtInServicesID&""
+ If ServiceOrdPtInServices<>"銆愰殣銆�" Then CoSql=CoSql&",ServiceOrdPtInServices='"&ServiceOrdPtInServices&"'"
+
+ '淇敼涓昏瘖鍖荤敓,鎴愪氦浠风瓑璧勬枡(鏈嶅姟鍗�)
+ sql="update ServiceOrder set ServiceOrdPtCondition='"&ServiceOrdPtCondition&"',ServiceOrdTaskRemarks='"&ServiceOrdTaskRemarks&"',ServiceOrdPtDoctor='"&ServiceOrdPtDoctor&"',ServiceOrdPtDoctorPhone='"&ServiceOrdPtDoctorPhone&"',ServiceOrdTraTxnPrice="&ServiceOrdTraTxnPrice&",ServiceOrdTraPrePayment="&ServiceOrdTraPrePayment&",SettlementPrice="&SettlementPrice&",ServiceOrdTraPriceReason='"&ServiceOrdTraPriceReason&"',ServiceOrd_CC_ID="&ServiceOrd_CC_ID&",ServiceOrd_Sale_ID="&ServiceOrd_Sale_ID&",ServiceOrdIntroducer='"&ServiceOrdIntroducer&"',ServiceOrd_work_ID="&ServiceOrd_work_ID&",ServiceOrd_work_IDs='"&ServiceOrd_work_IDs&"',ServiceOrd_work_is="&ServiceOrd_work_is&",CommissionScenarioID="&CommissionScenarioID&ServiceOrdUnitSql&",ServiceOrdApptDate='"&ServiceOrdApptDate&"',ServiceOrdSource="&ServiceOrdSource&",ServiceOrdPtDiagnosis='"&ServiceOrdPtDiagnosis&"',ServiceOrdOperationRemarks='"&ServiceOrdOperationRemarks&"',ServiceOrdViaDistance='"&ServiceOrdViaDistance&"',ServiceOrdTraDistance='"&ServiceOrdTraDistance&"',ServiceOrdVIP="&ServiceOrdVIP&SqlVisit&",ServiceOrdPtOutHospID="&ServiceOrdPtOutHospID_New&",ServiceOrdPtOutHosp="&ServiceOrdPtOutHospID&",ServiceOrdPtInHospID="&ServiceOrdPtInHospID_New&",ServiceOrdPtInHosp="&ServiceOrdPtInHospID&",ServiceOrdTraProvince='"&ServiceOrdTraProvince&"',ServiceOrdTraCity='"&ServiceOrdTraCity&"',ServiceOrdCoTies='"&ServiceOrdCoTies&"',ServiceOrdPtSex='"&ServiceOrdPtSex&"',ServiceOrdPtNat='"&ServiceOrdPtNat&"',ServiceOrdPtIDCard='"&ServiceOrdPtIDCard&"',ServiceOrdTraStreet='"&ServiceOrdTraStreet&"',ServiceOrdTraEnd='"&ServiceOrdTraEnd&"',ServiceOrdTraVia='"&ServiceOrdTraVia&"',ServiceOrdTraDuration='"&ServiceOrdTraDuration&"',ServiceOrdTraUnitPrice="&ServiceOrdTraUnitPrice&",ServiceOrdTraOfferPrice="&ServiceOrdTraOfferPrice&",ServiceOrdEstimatedOrderDate='"&ServiceOrdEstimatedOrderDate&"',OrderLevel="&OrderLevel&",ServiceOrdDepartureType="&ServiceOrdDepartureType&",ConditionLevel="&ConditionLevel&",DirectionType="&DirectionType&",ServiceOrdPtKG='"&ServiceOrdPtKG&"',FromHQ2_is="&FromHQ2_is&CoSql&" where ServiceOrdID="&ServiceOrdID
+ 'Response.Write sql
+ objConn.Execute sql
+
+ '淇敼鐩墠鐥呮儏(鍗曢�夐」绫�)
+ sql="delete from ServiceOrd_Condition where ServiceOrdCoID="&ServiceOrdID
+ objConn.Execute sql
+ sql="select vOrder from dictionary where vType=2 and vtitle='Condition' order by vOrder,vID"
+ rs.open sql,objConn,1,1
+ do while not rs.Eof
+ ConditionOrder=rs("vOrder")
+ ConditionID=SafeRequest(Request.form("ConditionID_"&ConditionOrder))
+ If ConditionID<>"" Then
+ sql="insert into ServiceOrd_Condition (ServiceOrdCoID,ConditionID) values ("&ServiceOrdID&","&ConditionID&")"
+ objConn.Execute sql
+ End If
+ If ConditionID="4" Then
+ sql=" update ServiceOrder set AMV_is=1 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ ElseIf ConditionID="3" Then
+ sql=" update ServiceOrder set AMV_is=0 where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+ rs.movenext
+ loop
+ rs.close()
+
+ '鍐欏叆璇婃柇ICD
+ OrdICD_ID = SafeRequest(Request.form("OrdICD_ID")) '璇婃柇ICD_ID
+ OrdICD_ID_old = SafeRequest(Request.form("OrdICD_ID_old"))
+ If OrdICD_ID<>OrdICD_ID_old Then
+ sql="delete from ServiceOrder_ICD where ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ If OrdICD_ID<>"" then
+ OrdICD_IDSP = SPLIT(OrdICD_ID,",")
+ for i=1 to ubound(OrdICD_IDSP)-1
+ If OrdICD_IDSP(i)<>"" Then
+ sql="insert into ServiceOrder_ICD (ServiceOrdIDDt,icd_id) values ("&ServiceOrdID&","&OrdICD_IDSP(i)&")"
+ objConn.Execute sql
+ End If
+ Next
+ End If
+ End If
+
+ '淇敼杞繍鏂瑰紡(澶氶�夐」)
+ sql="delete from ServiceOrd_TransferMode where ServiceOrdTMID="&ServiceOrdID
+ objConn.Execute sql
+ TransferModeIDSP = SPLIT(TransferModeID,", ")
+ for i = 0 to UBOUND(TransferModeIDSP)
+ TransferModeID = TransferModeIDSP(i)
+ If TransferModeID<>"" then
+ sql="insert into ServiceOrd_TransferMode (ServiceOrdTMID,TransferModeID) values ("&ServiceOrdID&","&TransferModeID&")"
+ objConn.Execute sql
+ End if
+ Next
+
+ '鏍搁攢浼樻儬鍒�
+ Call CouponUse(ServiceOrdTraPriceReason,ServiceOrdID)
+
+ '鍐欏叆棰勮娲惧崟鏃堕棿閫氱煡
+ ServiceOrdNo = ServiceOrdClass& year(ServiceOrd_CC_Time)&Right("0"&month(ServiceOrd_CC_Time),2)&Right("0"&day(ServiceOrd_CC_Time),2) & "-"&Right("00"&ServiceOrdNo,3)
+ If SMT=9 Or (ServiceOrdEstimatedOrderDate="" And ServiceOrdEstimatedOrderDateOld<>"") Then
+ sql="delete from Notification where NC_Name='銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�'"
+ objConn.Execute sql
+ ElseIf ServiceOrdEstimatedOrderDate<>"" And ServiceOrdEstimatedOrderDateOld<>ServiceOrdEstimatedOrderDate Then
+ sql="delete from Notification where NC_Name='銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�'"
+ objConn.Execute sql
+ NC_OAID="78"
+ NC_Name="銆�"&ServiceOrdNo&"娲惧崟鏃堕棿鎻愰啋銆�"
+ NC_Content="鏈嶅姟鍗�:"&ServiceOrdNo&",宸插埌棰勫畾鐨勬淳鍗曟椂闂�,璇峰嵆鏃跺鐞�"
+ NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+ NC_PageUrlM=ServiceOrdEstimatedOrderDate
+ Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
+ End If
+End If
+
+'涓嬪彂寰俊
+If DispatchOrd_Check="2" And Len(error)<2 Then
+ session("JsonKey")="1"
+ '寰俊棣栨涓嬪彂鏃堕棿
+ sql="update DispatchOrd set DispatchOrdWeixinDate=getdate() where DispatchOrdWeixinDate=null and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ ReturnURL="/weixin/message_send_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ Call OA_Running("涓嬪彂璋冨害鍗�:"&DispatchOrdID)
+Else
+ ReturnURL="DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+End If
+
+
+'鏇存柊鎻愭垚鏁版嵁
+Call EntourageDKP_Money_C2(DispatchOrdID)
+
+'鏇存柊鍑鸿溅缁╂晥
+If DispatchOrdState>=4 Then
+ call EntourageDKP_A(DispatchOrdID,DispatchOrdPerfomance)
+End If
+
+
+Call OA_Running("淇敼璋冨害鍗�"&EditDataForm&":"&DispatchOrdID)
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+
+'绗笁鏂瑰钩鍙版暟鎹洿鏂�
+Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)
+
+If Len(error)>2 Then Response.Redirect ReturnURL&"&SystemMessageType=1&SMT=4&error="&error
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "27"
+'-------------------------------------------------------------鍙栨秷璋冨害鍗�/鏈嶅姟鍗�
+DispatchOrdID = SafeRequest(Request("DispatchOrdID"))'璋冨害鍗曞彿
+ServiceOrdID = SafeRequest(Request("ServiceOrdID")) '瀵瑰簲鏈嶅姟鍗曞彿
+ServiceOrdDel = SafeRequest(Request("ServiceOrdDel"))'鏄惁鍚屾椂鍙栨秷鏈嶅姟鍙�(1鏄�,0鍚�)
+Del = SafeRequest(Request("Del")) '寮哄埗鍙栨秷(YES/NO)
+CancelReason = SafeRequest(Request("CancelReason"))'鍙栨秷鍘熷洜
+CancelReasonTXT = SafeRequest(Request("CancelReasonTXT"))'鍙栨秷鍘熷洜澶囨敞
+CancelReasonTXT = CancelReasonTXT&"[鍙栨秷鎿嶄綔:"&OAUser(session("adminID"),"UserName")&"]"
+Source = SafeRequest(Request("Source")) '鍙栨秷鏉ユ簮(PC/Phone)
+If CancelReason="" Then CancelReason=0
+If ServiceOrdDel="" Then ServiceOrdDel=0
+If Source="Phone" Then SourceURL="m_"
+Set rs = Server.CreateObject("ADODB.Recordset")
+'楠岃瘉璋冨害鍗曟槸鍚﹀彲鍙栨秷
+If DispatchOrdID<>"" Then
+ If Del<>"YES" then
+ sql="select DispatchOrdState,DispatchOrd_AP_Check from DispatchOrd where DispatchOrdID="&DispatchOrdID
+ rs.open sql,objConn,1,1
+ If rs.eof Then
+ Response.Redirect "/DispatchOrder.gds?SystemMessageType=4&SMT=1"
+ Else
+ DispatchOrdState = rs("DispatchOrdState")
+ DispatchOrd_AP_Check= rs("DispatchOrd_AP_Check")
+ If CInt(DispatchOrdState)>=4 Then
+ Response.Redirect "/"&SourceURL&"DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&SystemMessageType=4&SMT=10"
+ ElseIf DispatchOrd_AP_Check=1 Then
+ Response.Redirect "/"&SourceURL&"DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&SystemMessageType=4&SMT=11"
+ End if
+ End If
+ rs.close()
+ End if
+ sql="update DispatchOrd set DispatchOrdState=10,DispatchOrdStartDate=getdate(),DispatchOrdCancelReason="&CancelReason&",DispatchOrdCancelReasonTXT='"&CancelReasonTXT&"',DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost),DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ '淇敼鐩稿叧鏈嶅姟鍗曠姸鎬�
+ If ServiceOrdID<>"" then
+ sql="select DispatchOrdID from DispatchOrd where ServiceOrdIDDt="&ServiceOrdID&" and DispatchOrdState<>10"
+ rs.open sql,objConn,1,1
+ If rs.eof Then
+ If ServiceOrdDel="1" Then
+ sql="update ServiceOrder set ServiceOrdState=4,ServiceOrd_AP_ID="&session("adminID")&",ServiceOrd_AP_Time=getdate(),ServiceOrdCancelReason="&CancelReason&",ServiceOrdCancelReasonTXT='"&CancelReasonTXT&"' where ServiceOrdID="&ServiceOrdID
+ else
+ sql="update ServiceOrder set ServiceOrdState=2,ServiceOrdStartDate=getdate(),ServiceOrdCancelReason="&CancelReason&",ServiceOrdCancelReasonTXT='"&CancelReasonTXT&"' where ServiceOrdID="&ServiceOrdID
+ End If
+ objConn.Execute sql
+ End If
+ rs.close()
+ End If
+ '閲嶇偣璁櫒褰掕繕
+ Call DispatchMRPOrderReturn(14,DispatchOrdID)
+ ReturnURL="/"&SourceURL&"DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ Call OA_Running("鍙栨秷璋冨害鍗�:"&DispatchOrdID)
+ElseIf ServiceOrdID<>"" Then
+ If Del<>"YES" then
+ sql="select ServiceOrdState,ServiceOrd_AP_Check,ServiceOrdCoName,ServiceOrdCoPhone,ToUserUUID from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If rs.eof Then
+ Response.Redirect "/"&SourceURL&"ServiceOrder_List.gds?SystemMessageType=4&SMT=1"
+ Else
+ ServiceOrdState = rs("ServiceOrdState")
+ ServiceOrdCoName= rs("ServiceOrdCoName")
+ ServiceOrdCoPhone= rs("ServiceOrdCoPhone")
+ ToUserUUID = rs("ToUserUUID")
+ If CInt(ServiceOrdState)=3 Then
+ Response.Redirect "/"&SourceURL&"ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&SystemMessageType=4&SMT=10"
+ ElseIf ServiceOrd_AP_Check=1 Then
+ Response.Redirect "/"&SourceURL&"ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&SystemMessageType=4&SMT=11"
+ End if
+ End If
+ rs.close()
+ End if
+ sql="update ServiceOrder set ServiceOrdState=4,ServiceOrd_AP_ID="&session("adminID")&",ServiceOrd_AP_Time=getdate(),ServiceOrdCancelReason="&CancelReason&",ServiceOrdCancelReasonTXT='"&CancelReasonTXT&"' where ServiceOrdState<>4 and ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ '钀ラ攢灏忕▼搴忔暟鎹洿鏂�
+ If ToUserUUID<>"0" And ToUserUUID<>"" Then
+ sql="select top 1 id,iuid from UserUUID where id="&ToUserUUID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ iuid=rs("iuid")
+ Call Get_TritonshAPI(ToUserUUID,1,ServiceOrdID,iuid,ServiceOrdCoName,ServiceOrdCoPhone,0)
+ End If
+ rs.close()
+ End If
+ ReturnURL="/"&SourceURL&"ServiceOrder_List.gds?OrdState=0"
+ Call OA_Running("鍙栨秷璋冨害鍗�:"&ServiceOrdID)
+End If
+
+objConn.Execute "exec OrdDataUP "&ServiceOrdID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=8&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "28"
+'-------------------------------------------------------------瀹℃牳璋冨害鍗�(瀹屾垚浠诲姟鍚�)
+DispatchOrdID = SafeRequest(request("DispatchOrdID"))
+DispatchOrd_Check = SafeRequest(request("DispatchOrd_Check"))
+DispatchOrd_AP_Reason=SafeRequest(request("DispatchOrd_AP_Reason"))
+
+If DispatchOrd_Check="1" then
+ '閫氳繃瀹℃牳
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",12,"&session("adminID")&")"
+ objConn.Execute sql
+ sql="update DispatchOrd set DispatchOrd_AP_Check=1,DispatchOrd_AP_Time=getdate(),DispatchOrd_AP_ID="&session("adminID")&",DispatchOrd_AP_Reason='"&DispatchOrd_AP_Reason&"',DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ SMT=5
+
+ElseIf DispatchOrd_Check="3" Then
+ '鎵归噺瀹℃牳
+ If DispatchOrdID<>"" Then
+ DispatchOrdIDSP = SPLIT(DispatchOrdID,", ")
+ for i = 0 to UBOUND(DispatchOrdIDSP)
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdIDSP(i)&",12,"&session("adminID")&")"
+ objConn.Execute sql
+ Next
+ sql="update DispatchOrd set DispatchOrd_AP_Check=1,DispatchOrd_AP_Time=getdate(),DispatchOrd_AP_ID="&session("adminID")&",DispatchOrd_AP_Reason='"&DispatchOrd_AP_Reason&"',DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrd_AP_Check=0 and DispatchOrdID in ("&DispatchOrdID&")"
+ objConn.Execute sql
+ Call OA_Running("鎵归噺瀹℃牳璋冨害鍗�")
+ End If
+ ReturnURL="DispatchOrder_List.gds?OrdState=8_0&OrdClassList="&request("OrdClassList")
+
+ElseIf DispatchOrd_Check="4" Then
+ '涓嶉�氳繃瀹℃牳
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",13,"&session("adminID")&")"
+ objConn.Execute sql
+ sql="update DispatchOrd set DispatchOrdIsEnd=-1,DispatchOrd_AP_Reason='"&DispatchOrd_AP_Reason&"',DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ SMT=5
+
+ElseIf DispatchOrd_Check="0" Then
+ '鍙嶅鏍�
+ sql="update DispatchOrd set DispatchOrd_AP_Check=0,DispatchOrd_AP_Time=null,DispatchOrd_AP_ID=null,DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ SMT=6
+
+End If
+
+If ReturnURL="" Then
+ ReturnURL="DispatchOrder_End.gds?DispatchOrdID="&DispatchOrdID
+ Call OA_Running("瀹℃牳璋冨害鍗�:"&DispatchOrdID)
+End If
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "28_2"
+'-------------------------------------------------------------瀹℃牳璋冨害鍗曠哗鏁�(瀹屾垚浠诲姟鍚�)
+DispatchOrdID = SafeRequest(request("DispatchOrdID"))
+DispatchOrd_Check = SafeRequest(request("DispatchOrd_Check"))
+DispatchOrd_AP_Reason=SafeRequest(request("DispatchOrd_AP_Reason"))
+
+If DispatchOrd_Check="1" then
+ '浜轰簨閫氳繃瀹℃牳
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",12,"&session("adminID")&")"
+ objConn.Execute sql
+ sql="update DispatchOrd set DispatchOrd_AP_Check=1,DispatchOrd_AP_Time=getdate(),DispatchOrd_AP_ID="&session("adminID")&",DispatchOrd_AP_Reason='"&DispatchOrd_AP_Reason&"',DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ SMT=5
+
+ElseIf DispatchOrd_Check="2" then
+ '璐㈠姟閫氳繃瀹℃牳
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",12,"&session("adminID")&")"
+ objConn.Execute sql
+ sql="update DispatchOrd set DispatchOrd_AP_Check=2,DispatchOrd_AP2_Time=getdate(),DispatchOrd_AP2_ID="&session("adminID")&",DispatchOrd_AP_Reason='"&DispatchOrd_AP_Reason&"',DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ SMT=5
+
+ElseIf DispatchOrd_Check="3" Then
+ '鎵归噺瀹℃牳
+ If DispatchOrdID<>"" Then
+ DispatchOrdIDSP = SPLIT(DispatchOrdID,", ")
+ for i = 0 to UBOUND(DispatchOrdIDSP)
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdIDSP(i)&",12,"&session("adminID")&")"
+ objConn.Execute sql
+ Next
+ sql="update DispatchOrd set DispatchOrd_AP_Check=1,DispatchOrd_AP_Time=getdate(),DispatchOrd_AP_ID="&session("adminID")&",DispatchOrd_AP_Reason='"&DispatchOrd_AP_Reason&"',DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrd_AP_Check=0 and DispatchOrdID in ("&DispatchOrdID&")"
+ objConn.Execute sql
+ Call OA_Running("鎵归噺瀹℃牳缁╂晥璋冨害鍗�")
+ End If
+ ReturnURL="DispatchOrder_List.gds?OrdState=8_0&OrdClassList="&request("OrdClassList")
+
+ElseIf DispatchOrd_Check="4" Then
+ '涓嶉�氳繃瀹℃牳
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",13,"&session("adminID")&")"
+ objConn.Execute sql
+ sql="update DispatchOrd set DispatchOrdIsEnd=-1,DispatchOrd_AP_Reason='"&DispatchOrd_AP_Reason&"',DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ SMT=5
+
+ElseIf DispatchOrd_Check="0" Then
+ '鍙嶅鏍�
+ sql="update DispatchOrd set DispatchOrd_AP_Check=0,DispatchOrd_AP_Time=null,DispatchOrd_AP_ID=null,DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ SMT=6
+
+End If
+
+If ReturnURL="" Then
+ ReturnURL="DispatchOrder_DKP.gds?DispatchOrdID="&DispatchOrdID
+ Call OA_Running("瀹℃牳缁╂晥璋冨害鍗�:"&DispatchOrdID)
+End If
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "29"
+'-------------------------------------------------------------鍙嶅鏍歌皟搴﹀崟(瀹屾垚浠诲姟鍚�)
+testID = SafeRequest(request("testID"))
+
+ReturnURL="/test_weixin.gds?testID="&testID
+Call OA_Running("鍙嶅鏍歌皟搴﹀崟:"&testID)
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+
+<%case "30"
+'-------------------------------------------------------------璋冨害鍗曞井淇＄‘璁�
+DispatchOrdID= SafeRequest(request("DispatchOrdID"))
+EId = SafeRequest(request("EId"))
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+DispatchOrdState=0
+if DispatchOrdID<>"" and EId<>"" then
+ sql="update DispatchOrd_Entourage set EntourageState=3,EntourageState_Time=GETDATE() where EntourageState in (0,1) and id="&EId
+ objConn.Execute sql
+ sql="select id from DispatchOrd_Entourage where EntourageState in (1,2) and DispatchOrdIDDt="&DispatchOrdID
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update DispatchOrd set DispatchOrdState=2,DispatchOrdStartDate=getdate(),DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<=3 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ DispatchOrdState=2
+ Else
+ sql="update DispatchOrd set DispatchOrdState=3,DispatchOrdStartDate=getdate(),DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<=3 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ DispatchOrdState=3
+ End If
+ rs.close()
+end If
+If DispatchOrdState=3 Then
+ '寰俊纭淇℃伅
+ session("JsonKey")="1"
+ ReturnURL="/weixin/message_send_DispatchOrder3.gds?DispatchOrdID="&DispatchOrdID
+Else
+ ReturnURL="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&closeWindow=YES"
+End If
+Call OA_Running("璋冨害鍗曞井淇＄‘璁�:"&DispatchOrdID&" EId:"&EId)
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "31"
+'-------------------------------------------------------------璋冨害鍗曞井淇″彇娑�
+DispatchOrdID= SafeRequest(request("DispatchOrdID"))
+EId = SafeRequest(request("UserEId"))
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+if DispatchOrdID<>"" and EId<>"" then
+ sql="update DispatchOrd_Entourage set EntourageState=2,EntourageState_Time=GETDATE() where EntourageState in (0,1) and id="&EId
+ objConn.Execute sql
+ sql="select id from DispatchOrd_Entourage where EntourageState in (3) and DispatchOrdIDDt="&DispatchOrdID
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update DispatchOrd set DispatchOrdState=2,DispatchOrdStartDate=getdate(),DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<3 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ Else
+ sql="update DispatchOrd set DispatchOrdState=1,DispatchOrdStartDate=getdate(),DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<3 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ End If
+ rs.close()
+end if
+ReturnURL="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&closeWindow=YES"
+Call OA_Running("璋冨害鍗曞井淇″彇娑�:"&DispatchOrdID&" EId:"&EId)
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+
+<%case "32"
+'-------------------------------------------------------------璋冨害鍗曞井淇″嚭杞︾姸鎬佹洿鏀�
+ServiceOrdID = SafeRequest(request("ServiceOrdID"))
+DispatchOrdID = SafeRequest(request("DispatchOrdID"))
+DispatchOrdState= SafeRequest(request("DispatchOrdState"))
+EntourageLeadID = SafeRequest(request("EntourageLeadID")) '棰嗛槦ID
+StreetMileage = SafeRequest(request("StreetMileage")) '鍑哄彂閲岀▼鏁�
+EndMileage = SafeRequest(request("EndMileage")) '缁撴潫閲岀▼鏁�
+PaidMoney = SafeRequest(request("PaidMoney")) '鐜版敮浠橀噾棰�
+PaidMoneyType = SafeRequest(request("PaidMoneyType")) '鏀粯鏂瑰紡
+PaidMoneyTimestamp= SafeRequest(request("PaidMoneyTimestamp")) '鏀粯鏃堕棿鎴�
+OA_latitude = SafeRequest(request("OA_latitude")) '绾害
+OA_longitude = SafeRequest(request("OA_longitude")) '缁忓害
+OA_address = SafeRequest(request("OA_address")) '瀹氫綅鍦板潃
+If EntourageLeadID="" Then EntourageLeadID=0
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+'妫�鏌ョ姸鎬佹槸鍚︽纭�
+If CInt(session("adminID"))<>CInt(EntourageLeadID) And PaidMoneyType="" Then
+ %><script language=javascript>
+ alert('浣犱笉鏄湰娆′换鍔￠闃�,涓嶅彲淇敼浠诲姟鐘舵��!!');
+ window.location.href="/m_DispatchOrder.gds?DispatchOrdID=<%=DispatchOrdID%>"
+ </script><%
+ Response.End
+End If
+If DispatchOrdID="" Then Response.End()
+sql="select DispatchOrdID,ServiceOrdIDDt,DispatchOrdCarID,DispatchOrdPerfomance,DispatchOrd_NS_Time,DispatchOrdNo,DispatchOrdClass,CarSeatBelt_OAId,DispatchOrdTraStreetMileage,DispatchOrdTraEndMileage,StretcherMoney from DispatchOrd where DispatchOrdID="&DispatchOrdID
+rs.open sql,objConn,1,1
+If rs.eof Then Response.End()
+DispatchOrdCarID=rs("DispatchOrdCarID")
+ServiceOrdID=rs("ServiceOrdIDDt")
+DispatchOrdClass=rs("DispatchOrdClass")
+old_Perfomance=rs("DispatchOrdPerfomance")
+old_StreetMileage=rs("DispatchOrdTraStreetMileage")
+old_EndMileage=rs("DispatchOrdTraEndMileage")
+CarSeatBelt_OAId=rs("CarSeatBelt_OAId")
+DispatchOrd_NS_Time=rs("DispatchOrd_NS_Time")
+StretcherMoney=rs("StretcherMoney")
+DispatchOrdNo = rs("DispatchOrdClass")& year(rs("DispatchOrd_NS_Time"))&Right("0"&month(rs("DispatchOrd_NS_Time")),2)&Right("0"&day(rs("DispatchOrd_NS_Time")),2) & "-"&Right("00"&rs("DispatchOrdNo"),3) '璋冨害鍗曠紪鍙�
+rs.close()
+
+'楠岃瘉鏈嶅姟鍗曟槸鍚︽纭�
+If ServiceOrdID<>"" And ServiceOrdID<>"0" Then
+ sql="select top 1 ServiceOrdID,ServiceOrdUnitID,ServiceOrdState,ServiceOrdCoPhone,ServiceOrdCoName,ServiceOrdTraTxnPrice,ServiceOrdTraPaidPrice,ToUserUUID from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ ServiceOrdUnitID=rs("ServiceOrdUnitID")
+ ServiceOrdState=rs("ServiceOrdState")
+ ServiceOrdCoPhone=rs("ServiceOrdCoPhone")
+ ServiceOrdCoName=rs("ServiceOrdCoName")
+ old_TraTxnPrice=rs("ServiceOrdTraTxnPrice")
+ TraPaidPrice=rs("ServiceOrdTraPaidPrice")-StretcherMoney
+ ToUserUUID=rs("ToUserUUID")
+ End If
+ rs.close()
+End If
+sql="select id from ServiceOrd_TransferMode where ServiceOrdTMID="&ServiceOrdID&" and TransferModeID=6"
+rs.open sql,objConn,1,1
+If not rs.eof Then '鍑鸿溅闄愬埗
+ TransferMode=0
+Else
+ TransferMode=1
+ If (DispatchOrdCarID="" Or isnull(DispatchOrdCarID) Or DispatchOrdCarID="0") And (DispatchOrdState="4" Or DispatchOrdState="7" Or DispatchOrdState="14") Then
+ %><script language=javascript>
+ alert('鏈淳閬ｈ溅杈�,涓嶅彲鍑鸿溅!!');
+ window.location.href="/m_DispatchOrder.gds?DispatchOrdID=<%=DispatchOrdID%>"
+ </script><%
+ Response.End
+ End If
+ rs.close()
+ sql="select EntourageOAid from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and EntourageState<>4 and EntourageState<>2 and vType=1 and vID=EntourageID and vtext like '%鍙告満%' and DispatchOrdIDDt="&DispatchOrdID
+ rs.open sql,objConn,1,1
+ If rs.eof And (DispatchOrdState="4" Or DispatchOrdState="7" Or DispatchOrdState="14") Then
+ %><script language=javascript>
+ alert('鏈瀹氬徃鏈�,涓嶅彲鍑鸿溅!!');
+ window.location.href="/m_DispatchOrder.gds?DispatchOrdID=<%=DispatchOrdID%>"
+ </script><%
+ Response.End
+ End If
+ If (old_StreetMileage=0 Or isnull(old_StreetMileage)) And (DispatchOrdState="4" Or DispatchOrdState="7" Or DispatchOrdState="14") Then
+ %><script language=javascript>
+ alert('璇疯鍙告満濉啓鍜屾媿鐓ч噷绋嬭〃鐓х墖');
+ window.location.href="/m_DispatchOrder.gds?DispatchOrdID=<%=DispatchOrdID%>&StreetMileage=<%=StreetMileage%>"
+ </script><%
+ Response.End
+ End If
+ If (old_EndMileage=0 Or isnull(old_EndMileage)) And (DispatchOrdState="8") Then
+ %><script language=javascript>
+ alert('璇疯鍙告満濉啓鍜屾媿鐓ч噷绋嬭〃鐓х墖');
+ window.location.href="/m_DispatchOrder.gds?DispatchOrdID=<%=DispatchOrdID%>&EndMileage=<%=EndMileage%>"
+ </script><%
+ Response.End
+ End If
+ If DispatchOrdClass="SA" And CLng(old_TraTxnPrice)>CLng(TraPaidPrice) And (DispatchOrdState="8") Then
+ %><script language=javascript>
+ alert('杩斿洖鍓嶏紝璇风‘璁ゆ敹娆炬祦姘村拰鎴愪氦浠蜂竴鑷�');
+ window.location.href="/m_DispatchOrder.gds?DispatchOrdID=<%=DispatchOrdID%>&EndMileage=<%=EndMileage%>"
+ </script><%
+ Response.End
+ End If
+End If
+rs.close()
+
+if DispatchOrdID<>"" and DispatchOrdState<>"" And CInt(session("adminID"))=CInt(EntourageLeadID) Then
+ '杞﹁締瀹炴椂瀹氫綅(鏆傛椂鍏抽棴 2019.9.12)
+ If DispatchOrdCarID<>"" And 1=2 Then
+ HTMLCODE= GetBody("https://sys.966120.com.cn/goocar/address.gds","CarID="&DispatchOrdCarID&"&DispatchOrdID="&DispatchOrdID&"&DispatchOrdState="&DispatchOrdState)
+ json = HTMLCODE
+ %>
+ <script language="JScript" runat="Server">
+ function toObject(json) {
+ eval("var o=" + json);
+ return o;
+ }
+ function toArray(s){
+ var dic = Server.CreateObject("Scripting.Dictionary")
+ eval("var a=" + json);
+ for(var i=0;i<a.length;i++){
+ var obj = Server.CreateObject("Scripting.Dictionary")
+ for(x in a[i]) obj.Add(x,a[i][x])
+ dic.Add(i, obj);
+ }
+ return dic
+ }
+ </script>
+
+ <script language="jscript" runat="server">
+ Array.prototype.get = function(i)
+ {
+ return this[i];
+ };
+ function getjson(str){
+ try{
+ eval("var jsonStr = (" + str + ")");
+ }catch(ex){
+ var jsonStr = null;
+ }
+ return jsonStr;
+ }
+ </script>
+ <%
+ str=json
+ dim obj
+ set obj = getjson(str)
+ str0=""
+ data_ret = obj.ret '璁惧鐘舵��(0:姝ｅ父鏁版嵁 1:璁惧鏈笂绾� 2:璁惧宸茶繃鏈� 3:璁惧绂荤嚎)
+ OA_longitude = 0
+ OA_latitude = 0
+ If data_ret=0 Then
+ OA_longitude = obj.data_lng '缁忓害
+ OA_latitude = obj.data_lat '绾害
+ OA_address = obj.address '鍦板潃
+ ElseIf data_ret=1 Then
+ OA_address = "GPS璁惧鏈笂绾�"
+ ElseIf data_ret=2 Then
+ OA_address = "GPS璁惧宸茶繃鏈�"
+ ElseIf data_ret=3 Then
+ OA_address = "GPS璁惧绂荤嚎"
+ Else
+ OA_address = "GPS鏌ヨ澶辫触"
+ End if
+ Else
+ OA_longitude = 0
+ OA_latitude = 0
+ OA_address = ""
+ End If
+ '瀹為檯鏃堕棿璁板綍
+ If DispatchOrdState=4 Then
+ ActualSql=",DispatchOrdActualDate=getdate()"
+ sql="update DispatchOrd_Entourage set EntourageState=3,EntourageState_Time=GETDATE() where EntourageState=1 and DispatchOrdIDDt="&DispatchOrdID
+ objConn.Execute sql
+ sql="update DispatchOrd_Entourage set EntourageDKP=0,EntourageDKPScale=0 where EntourageOAid in (select EntourageOAid from DispatchOrd_Entourage where EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&") and EntourageDKPScale=1 and EntourageEnd_Time=CONVERT(varchar(10),getdate(),120)"
+ objConn.Execute sql
+ If session("adminID")<>8 Then '杩囨护娴嬭瘯浜哄憳璁㈠崟鎺ㄩ��
+ weixin="1"
+ End If
+ ElseIf DispatchOrdState=7 Then
+ ActualSql=",DispatchOrdArriveDate=getdate()"
+ If TransferMode=0 Then ActualSql=ActualSql&",DispatchOrdActualDate=getdate()"
+ ElseIf DispatchOrdState=14 Then
+ ActualSql=",DispatchOrdActualDate=getdate()"
+ End If
+
+ '閲岀▼鏁拌褰�
+ If StreetMileage<>"" Then
+ MileageSql=",DispatchOrdTraStreetMileage="&StreetMileage
+ ElseIf EndMileage<>"" Then
+ MileageSql=",DispatchOrdTraEndMileage="&EndMileage
+ End If
+ If OA_latitude="" or OA_longitude="" Then
+ OA_latitude=0
+ OA_longitude=0
+ End If
+
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA,OA_longitude,OA_latitude,OA_address) values ("&DispatchOrdID&","&DispatchOrdState&","&session("adminID")&","&OA_longitude&","&OA_latitude&",'"&OA_address&"')"
+ objConn.Execute sql
+ sql="update DispatchOrd set DispatchOrdState="&DispatchOrdState&",DispatchOrdStartDate=getdate(),StateInt=StateInt+1,DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost)"&ActualSql&MileageSql&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+
+ '椹荤偣浜哄憳缁╂晥
+ If DispatchOrdState=14 Then
+ sql="update DispatchOrd set DispatchOrdReturnDate=DispatchOrdTraSDTime,DispatchOrd_AP_Check=1,DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState=14 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ sql="update DispatchOrd_Entourage set EntourageEnd_Time=(select CONVERT(varchar(10),DispatchOrdTraSDTime,120) from DispatchOrd where DispatchOrdID=DispatchOrdIDDt) where EntourageState<>4 and EntourageEnd_Time is null and DispatchOrdIDDt="&DispatchOrdID
+ objConn.Execute sql
+ call EntourageDKP_A(DispatchOrdID,50)
+
+ '璺戠┖鍗曠哗鏁�(鎸夊凡鏀惰垂鐢ㄨ绠�)
+ ElseIf DispatchOrdState=9 Then
+ sql="select isnull(SUM(PaidMoney),0) from PaidMoney where PaidMoney_AP_Check<>-1 and (ServiceOrdIDDt="&ServiceOrdID&" or DispatchOrdIDDt="&DispatchOrdID&")"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ DispatchOrdPerfomance=rs(0)-StretcherMoney
+ End If
+ rs.close()
+ If DispatchOrdPerfomance="" Or isnull(DispatchOrdPerfomance) Then DispatchOrdPerfomance=0
+ sql="update DispatchOrd set DispatchOrdPerfomance="&DispatchOrdPerfomance&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState=9 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ sql="update ServiceOrder set ServiceOrdTraTxnPrice="&DispatchOrdPerfomance&",ServiceOrdTraPriceReason=ServiceOrdTraPriceReason+'璺戠┖鍗�,鍘熸垚浜や环:"&old_TraTxnPrice&",鍘熺哗鏁堣浠�:"&old_Perfomance&"' where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ call EntourageDKP_A(DispatchOrdID,DispatchOrdPerfomance)
+ '鏇存柊鐢ㄦ埛绉垎
+ Call UserPointsA(ServiceOrdID,DispatchOrdID)
+ '閲嶇偣璁櫒褰掕繕
+ call DispatchMRPOrderReturn(14,DispatchOrdID)
+
+ '瀹屾垚杩斿洖,鏇存柊缁╂晥璁′环
+ ElseIf DispatchOrdState=8 Then
+ call EntourageDKP_A(DispatchOrdID,old_Perfomance)
+ '鏇存柊鐢ㄦ埛绉垎
+ Call UserPointsA(ServiceOrdID,DispatchOrdID)
+ '閲嶇偣璁櫒褰掕繕
+ call DispatchMRPOrderReturn(14,DispatchOrdID)
+
+ End if
+
+end If
+
+'璐圭敤鏀粯鎿嶄綔
+'If isDepartment("030204")=1 Then PaidMoneyCheck=1 '鑷姩瀹℃牳鏉�(2019.6.26鍙栨秷)
+'If PaidMoneyType<>"" And IsNumeric(PaidMoney) And PaidMoneyTimestamp<>"" And ServiceOrdID<>"" And DispatchOrdID<>"" And CInt(session("adminID"))=CInt(EntourageLeadID) Then
+If PaidMoneyType<>"" And IsNumeric(PaidMoney) And PaidMoneyTimestamp<>"" And ServiceOrdID<>"" And DispatchOrdID<>"" Then
+ If PaidMoney<>0 Then
+ Call PaidMoneyA(ServiceOrdID,DispatchOrdID,PaidMoney,PaidMoneyType,PaidMoneyTimestamp,PaidMoneyMono,PaidMoneyCheck)
+ End if
+End If
+
+If EndMileage<>"" then
+ ReturnURL="/m_DispatchOrder_End.gds?DispatchOrdID="&DispatchOrdID&"&order_type=5"
+ElseIf PaidMoneyType<>"" Then
+ ReturnURL="/m_DispatchOrder_PaidMoney.gds?DispatchOrdID="&DispatchOrdID&"&order_type=6&closeWindow=YES"
+ElseIf weixin="1" Then
+ session("JsonKey")="1"
+ ReturnURL="/weixin/message_send_Report_Dispatch.gds?DispatchOrdID="&DispatchOrdID
+else
+ ReturnURL="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&closeWindow=YES"
+End If
+Call OA_Running("璋冨害鍗曞井淇″嚭杞︾姸鎬佹洿鏀�:"&DispatchOrdID&" State:"&DispatchOrdState)
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+
+'绗笁鏂瑰钩鍙版暟鎹洿鏂�
+If (DispatchOrdCarID="45" Or DispatchOrdCarID="40") And (DispatchOrdState="4" Or DispatchOrdState="8" Or DispatchOrdState="9") Then '澶氱壒鎺ュ彛 绮61HA5 绮56AD9
+ If DispatchOrdState="4" Then
+ method="mh_ambulance_send"
+ ElseIf DispatchOrdState="8" Or DispatchOrdState="9" Then
+ method="end_task"
+ End If
+ Call GetBody("https://api.966120.com.cn/v1/dottmedAPI.php","OrdID="&DispatchOrdID&"&method="&method)
+End If
+'钀ラ攢灏忕▼搴忔暟鎹洿鏂�
+If ToUserUUID<>"0" And ToUserUUID<>"" And (DispatchOrdState="8" Or DispatchOrdState="9") Then
+ sql="select top 1 id,iuid from UserUUID where id="&ToUserUUID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ iuid=rs("iuid")
+ If DispatchOrdState="8" Then
+ OrdPrice=old_TraTxnPrice
+ Else
+ OrdPrice=0
+ End If
+ Call Get_TritonshAPI(ToUserUUID,1,ServiceOrdID,iuid,ServiceOrdCoName,ServiceOrdCoPhone,OrdPrice)
+ End If
+ rs.close()
+End If
+'Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)
+
+'鏇存柊鎻愭垚鏁版嵁
+Call EntourageDKP_Money_C2(DispatchOrdID)
+
+'鍙戝嚭杞︾煭淇�
+If (DispatchOrdState="4") And Len(ServiceOrdCoPhone)=11 And DispatchOrdCarID<>"" And DispatchOrdCarID<>"0" Then
+ Send_Phone = ServiceOrdCoPhone
+ 'Send_Phone="13352878722"
+ lateCode="SMS_232168326" '鍑鸿溅鐭俊妯℃澘ID
+ SMSID=5399
+ sql="select vtext,vOrder2 from dictionary where vtitle in ('SMS') and id="&SMSID&" order by id desc"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ Send_Text=rs("vOrder2")
+ Send_Text=Replace(Send_Text,"#CarLicense#",CarDataA(DispatchOrdCarID,"","CarLicense"))
+ Send_Text=Replace(Send_Text,"#UserName#",OAUser(EntourageLeadID,"UserName"))
+ Send_Text=Replace(Send_Text,"#UserPhone#",OAUser(EntourageLeadID,"UserPhone"))
+ End If
+ rs.close()
+ Send_Text=Send_Text&"銆愬尰鐤楀揩绾裤��"
+ appUrl="https://api.966120.com.cn/v1/SendSms.php?Phone="&Send_Phone&"&UserName="&OAUser(EntourageLeadID,"UserName")&"&CarLicense="&CarDataA(DispatchOrdCarID,"","CarLicense")&"&lateCode="&lateCode
+ 'Response.Write appUrl
+ 'Response.end
+ HTMLCODE= PostBody(appUrl,args1)
+ Send_Remarks="DispatchOrdID:"&DispatchOrdID
+ sql="Insert into Sms_Log (Log_Id,Send_Text,Send_Phone,Send_OA,Send_errMsg,Send_Remarks) values ('闃块噷浜�','"&Send_Text&"','"&Send_Phone&"',"&session("adminID")&",'"&errMsg&"','"&Send_Remarks&"')"
+ objConn.Execute sql
+End If
+
+'鍖绘姢杩斿洖浜ゅ崟鎻愰啋
+If (DispatchOrdState="8" Or DispatchOrdState="9") Then
+ If DispatchOrdState="8" Then
+ NC_OAID="78"
+ NC_Name="銆�"&DispatchOrdNo&"鍖绘姢宸茶繑鍥炪��"
+ NC_Content="璋冨害鍗�:"&DispatchOrdNo&"鍖绘姢宸插畬鎴愪换鍔¤繑鍥�"
+ NC_PageUrl="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ NC_PageUrlM="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ Else
+ NC_OAID="78"
+ NC_Name="銆�"&DispatchOrdNo&"璺戠┖,鍖绘姢宸茶繑鍥炪��"
+ NC_Content="璋冨害鍗�:"&DispatchOrdNo&"璺戠┖,鍖绘姢宸茶繑鍥�"
+ NC_PageUrl="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ NC_PageUrlM="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ End If
+ Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
+ '闀块�斿崟璺ㄦ棩琛ユ墦鍗�
+ 'HTMLCODE=GetBody("https://sys.966120.com.cn/weixin/Checkin_punch_correction.gds","DispatchOrdID="&DispatchOrdID)
+
+'鎻愰啋鍖绘姢鎻愰啋瀹汉璇勪环(2021.6.25鍋滄)
+ElseIf DispatchOrdState="6" And 1=2 Then%>
+ <!--#include virtual="/weixin/JsonPost_1000006.gds"-->
+ <%
+ touser=""
+ sql="SELECT STUFF((select '|' + OA_weixinUserID from DispatchOrd_Entourage,OA_User where DispatchOrdIDDt="&DispatchOrdID&" and EntourageState<>4 and OA_User_ID=EntourageOAid FOR XML PATH('')), 1, 1, '')"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ touser = rs(0)
+ End If
+ rs.close()
+ If touser<>"" Then
+ '寰俊OA淇℃伅涓嬪彂鎺ュ彛
+ appUrl="https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token="&access_token
+ Send_Text="璇锋彁閱掑浜虹粰浜堣瘎浠凤紒"
+
+ '寰俊楠岃瘉鐮佷笅鍙�
+ 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," '浼佷笟搴旂敤鐨刬d锛屾暣鍨嬨�傚彲鍦ㄥ簲鐢ㄧ殑璁剧疆椤甸潰鏌ョ湅
+ args1=args1&"""msgtype"": ""text"","
+ args1=args1&"""text"": {"
+ args1=args1&"""content"":"""&Send_Text&""""
+ args1=args1&"}"
+ args1=args1&"}"
+ HTMLCODE= PostBody(appUrl,args1)
+ End If
+End If
+
+'瓒呭尯鎿嶄綔鎻愰啋
+If InStr(OA_address,"鍏噷")>=1 Then
+ ReturnTXT=Mid(OA_address,InStr(OA_address,"绾�"))
+ ReturnTXT=Mid(ReturnTXT,1,InStr(OA_address,"鍏噷")-2)
+ %>
+ <script lnguage=javascript>
+ alert("浣犳湰娆℃搷浣滃凡瓒呭嚭璁″垝鍖哄煙<%=ReturnTXT%>,璇蜂笅娆℃敞鎰�!!");
+ window.location.href="<%=ReturnURL%>"
+ </script>
+<% Response.End
+End If
+Response.Redirect ReturnURL
+Response.End%>
+
+
+<%case "33"
+'-------------------------------------------------------------璋冨害鍗曞井淇¤皟搴﹀崟鎻愪氦鏁版嵁瀹℃牳
+ServiceOrdID = SafeRequest(request("ServiceOrdID"))
+DispatchOrdID = SafeRequest(request("DispatchOrdID"))
+EntourageLeadID = SafeRequest(request("EntourageLeadID")) '棰嗛槦ID
+DispatchOrdCarID= SafeRequest(request("DispatchOrdCarID"))
+weixin = SafeRequest(request("weixin"))
+DispatchOrd_Check= SafeRequest(request("DispatchOrd_Check"))
+DispatchOrd_AP_Reason=SafeRequest(request("DispatchOrd_AP_Reason"))
+
+'杞繍鎯呭喌
+DispatchOrdActualDate = SafeRequest(request("DispatchOrdActualDate")) '鍑哄彂鏃堕棿
+DispatchOrdReturnDate = SafeRequest(request("DispatchOrdReturnDate")) '杩斿洖鏃堕棿
+DispatchOrdTraStreet = SafeRequest(request("DispatchOrdTraStreet")) '鍑哄彂鍦�
+DispatchOrdTraEnd = SafeRequest(request("DispatchOrdTraEnd")) '鐩殑鍦�
+DispatchOrdTraStreetMileage = SafeRequest(request("DispatchOrdTraStreetMileage")) '寮�濮嬮噷绋嬫暟
+DispatchOrdTraEndMileage = SafeRequest(request("DispatchOrdTraEndMileage")) '缁撴潫閲岀▼鏁�
+'DispatchOrdMileage = SafeRequest(request("DispatchOrdMileage")) '杞繍瀹為檯閲岀▼(鍏噷)
+DispatchOrdResult = SafeRequest(request("DispatchOrdResult")) '杞繍缁撴灉
+If DispatchOrdResult="0" Then DispatchOrdResult=SafeRequest(request("DispatchOrdResult_0")) '杞繍缁撴灉(鍏跺畠)
+If DispatchOrdMileage="" And Not IsNumeric(DispatchOrdMileage) Then DispatchOrdMileage=0
+DispatchOrdRemarks = SafeRequest(request("DispatchOrdRemarks")) '澶囨敞璇存槑
+DispatchOrdPerfomance = SafeRequest(request("DispatchOrdPerfomance")) '璋冨害鍗曠哗鏁�
+If DispatchOrdPerfomance="" Then DispatchOrdPerfomance=0
+If DispatchOrdTraStreetMileage="" And Not IsNumeric(DispatchOrdTraStreetMileage) Then DispatchOrdTraStreetMileage=0
+If DispatchOrdTraEndMileage="" And Not IsNumeric(DispatchOrdTraEndMileage) Then DispatchOrdTraEndMileage=0
+DispatchOrdMileage=DispatchOrdTraEndMileage-DispatchOrdTraStreetMileage
+ServiceOrdTraDistance = SafeRequest(request("ServiceOrdTraDistance")) '缁╂晥璺濈
+If ServiceOrdTraDistance="" Or Not isnumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance="0"
+If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","")
+ServiceOrdTraDistance = ServiceOrdTraDistance&"鍏噷"
+ServiceOrdPtServices = SafeRequest(Request("ServiceOrdPtServices")) '杞嚭绉戝
+ServiceOrdPtServicesID = SafeRequest(Request("ServiceOrdPtServicesID")) '杞嚭绉戝ID
+ServiceOrdPtInServices = SafeRequest(Request("ServiceOrdPtInServices")) '杞叆绉戝
+ServiceOrdPtInServicesID= SafeRequest(Request("ServiceOrdPtInServicesID")) '杞叆绉戝ID
+
+
+'鍙戠敓璐圭敤
+DispatchOrdLuqiaoFee = SafeRequest(request("DispatchOrdLuqiaoFee")) '璺ˉ璐�
+DispatchOrdGasolineFee = SafeRequest(request("DispatchOrdGasolineFee"))'娌硅垂
+DispatchOrdTravelFee = SafeRequest(request("DispatchOrdTravelFee")) '宸梾璐�
+DispatchOrdOtherFee = SafeRequest(request("DispatchOrdOtherFee")) '鍏跺畠璐圭敤
+DispatchOrdOtherFee_TXT = SafeRequest(request("DispatchOrdOtherFee_TXT"))'鍏跺畠璐圭敤璇存槑
+If DispatchOrdLuqiaoFee="" Then DispatchOrdLuqiaoFee=0
+If DispatchOrdGasolineFee="" Then DispatchOrdGasolineFee=0
+If DispatchOrdTravelFee="" Then DispatchOrdTravelFee=0
+If DispatchOrdOtherFee="" Then DispatchOrdOtherFee=0
+
+'姘ф皵銆佹槗鑰楀搧銆佽嵂鍝佹秷鑰�
+DispatchOrdOxygen = SafeRequest(request("DispatchOrdOxygen")) '姘ф皵
+DispatchOrdConsumables = SafeRequest(request("DispatchOrdConsumables"))'鏄撹�楀搧
+DispatchOrdDrugs = SafeRequest(request("DispatchOrdDrugs")) '鑽搧
+
+'闄勫姞鏃堕暱
+TimeLength_Program = SafeRequest(Request.form("TimeLength_Program")) '澶у瀷娲诲姩淇濋殰鏃堕暱
+TimeLength_ICU = SafeRequest(Request.form("TimeLength_ICU")) '灞呭ICU鏃堕暱
+TimeLength_Wait = SafeRequest(Request.form("TimeLength_Wait")) '绛夊緟鏃堕暱
+If TimeLength_Program="" Then TimeLength_Program=0
+If TimeLength_ICU="" Then TimeLength_ICU=0
+If TimeLength_Wait="" Then TimeLength_Wait=0
+
+'杞﹁締浣跨敤鎯呭喌
+CarInspectionID = SafeRequest(request("CarInspectionID"))
+CarInspection = SafeRequest(request("CarInspection"))
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+if DispatchOrdID<>"" Then
+ If IsDate(DispatchOrdActualDate) And DispatchOrdActualDate<>"" Then ActualDateSql=",DispatchOrdActualDate='"&DispatchOrdActualDate&"'"
+ If IsDate(DispatchOrdReturnDate) And DispatchOrdReturnDate<>"" Then ReturnDateSql=",DispatchOrdReturnDate='"&DispatchOrdReturnDate&"'"
+ If DispatchOrdTraStreet<>"" Then TraStreetSql=",DispatchOrdTraStreet='"&DispatchOrdTraStreet&"'"
+ If DispatchOrdTraEnd<>"" Then TraEndSql=",DispatchOrdTraEnd='"&DispatchOrdTraEnd&"'"
+ If DispatchOrd_Check="" then
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",11,"&session("adminID")&")"
+ objConn.Execute sql
+ IsEndSql=",DispatchOrdIsEndDate=getdate()"
+ EquipmentOASql=",EquipmentOAid="&session("adminID")&" ,EquipmentTime=getdate()"
+ End If
+
+ '淇敼璋冨害鍗�
+ sql="update DispatchOrd set DispatchOrdIsEnd=1"&IsEndSql&",DispatchOrdTraEndMileage="&DispatchOrdTraEndMileage&",DispatchOrdTraStreetMileage="&DispatchOrdTraStreetMileage&",DispatchOrdMileage="&DispatchOrdMileage&",DispatchOrdLuqiaoFee="&DispatchOrdLuqiaoFee&",DispatchOrdGasolineFee="&DispatchOrdGasolineFee&",DispatchOrdTravelFee="&DispatchOrdTravelFee&",DispatchOrdOtherFee="&DispatchOrdOtherFee&",DispatchOrdOtherFee_TXT='"&DispatchOrdOtherFee_TXT&"',DispatchOrdOxygen='"&DispatchOrdOxygen&"',DispatchOrdConsumables='"&DispatchOrdConsumables&"',DispatchOrdDrugs='"&DispatchOrdDrugs&"',DispatchOrdRemarks='"&DispatchOrdRemarks&"',DispatchOrdPerfomance="&DispatchOrdPerfomance&ActualDateSql&ReturnDateSql&TraStreetSql&TraEndSql&",TimeLength_Program="&TimeLength_Program&",TimeLength_ICU="&TimeLength_ICU&",TimeLength_Wait="&TimeLength_Wait&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+
+ '淇敼鏈嶅姟鍗�
+ If ServiceOrdID<>"" And ServiceOrdTraDistance<>"" And ServiceOrdTraDistance<>"0鍏噷" Then
+ sql="update ServiceOrder set ServiceOrdTraDistance='"&ServiceOrdTraDistance&"' where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+ If ServiceOrdID<>"" Then
+ CoSql=""
+ If ServiceOrdPtServicesID<>"" Then CoSql=CoSql&",ServiceOrdPtServicesID="&ServiceOrdPtServicesID&""
+ If ServiceOrdPtServices<>"" Then CoSql=CoSql&",ServiceOrdPtServices='"&ServiceOrdPtServices&"'"
+ If ServiceOrdPtInServicesID<>"" Then CoSql=CoSql&",ServiceOrdPtInServicesID="&ServiceOrdPtInServicesID&""
+ If ServiceOrdPtInServices<>"" Then CoSql=CoSql&",ServiceOrdPtInServices='"&ServiceOrdPtInServices&"'"
+ If CoSql<>"" Then
+ sql="update ServiceOrder set ServiceOrdUserID=ServiceOrdUserID"&CoSql&" where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+ End If
+
+ '鍙傚姞浜哄憳鎯呭喌
+ EId = SafeRequest(request("EId")) '浜哄憳ID
+ EId_SP = SPLIT(EId,", ")
+ for i=0 to ubound(EId_SP)
+ EId = EId_SP(i)
+ EntourageOT_is = SafeRequest(Request("EntourageOT_is_"&EId)) '浼戞伅鍑鸿溅
+ EntourageOT2_is = SafeRequest(Request("EntourageOT2_is_"&EId)) '鍔犵彮鍑鸿溅2
+ EntourageLong_is = SafeRequest(Request("EntourageLong_is_"&EId)) '瓒呴暱閫�
+ EntourageBetimesHH = SafeRequest(Request("EntourageBetimesHH_"&EId)) '鎻愬墠鍑鸿溅N灏忔椂
+ EntourageOther = SafeRequest(Request("EntourageOther_"&EId)) '鍏跺畠鎯呭喌
+ Stretcher_is = SafeRequest(Request("Stretcher_is_"&EId)) '鎶媴鏋�
+ If EntourageOT_is="" Then EntourageOT_is=0
+ If EntourageOT2_is="" Then EntourageOT2_is=0
+ If EntourageLong_is="" Then EntourageLong_is=0
+ If Stretcher_is="" Then Stretcher_is=0
+ If EntourageBetimesHH="" Then EntourageBetimesHH=0
+ '鏇存柊鍔犵彮瀹℃牳鐘舵��
+ sql="update DispatchOrd_Entourage set Check_is=0,Check_Time=null,Check_OAid=null where ((Check_is=1 and (EntourageOT_is<>0 or EntourageOT2_is<>0 or EntourageBetimesHH>0)) or (Check_is=2 and (EntourageOT_is<>"&EntourageOT_is&" or EntourageOT2_is<>"&EntourageOT2_is&" or EntourageBetimesHH<"&EntourageBetimesHH&"))) and id="&EId
+ objConn.Execute sql
+ '鏇存柊鍔犵彮鐘舵��
+ sql="update DispatchOrd_Entourage set EntourageOT_is="&EntourageOT_is&",EntourageOT2_is="&EntourageOT2_is&",EntourageLong_is="&EntourageLong_is&",EntourageBetimesHH="&EntourageBetimesHH&",EntourageOther='"&EntourageOther&"',Stretcher_is="&Stretcher_is&" where id="&EId
+ objConn.Execute sql
+ '鍐欏叆鎻愪氦瀹屾垚鏃堕棿
+ sql="update DispatchOrd_Entourage set EntourageEnd_Time=getdate() where EntourageEnd_Time is null and id="&EId
+ objConn.Execute sql
+
+ Next
+
+ '浜哄憳缁╂晥
+ call EntourageDKP_A(DispatchOrdID,DispatchOrdPerfomance)
+
+ '璁惧浣跨敤鎯呭喌_2021.4.6鍋滅敤
+ If 1=2 then
+ EquipmentID = SafeRequest(request("EquipmentID")) '璁惧ID
+ EquipmentID_SP = SPLIT(EquipmentID,", ")
+ for i=0 to ubound(EquipmentID_SP)
+ EquipmentID = EquipmentID_SP(i)
+ EquipmentDefault = SafeRequest(Request("EquipmentDefault_"&EquipmentID)) '榛樿浣跨敤鎯呭喌
+ EquipmentUseSituation = SafeRequest(Request("EquipmentUseSituation_"&EquipmentID))'浣跨敤鎯呭喌
+ EquipmentInspect = SafeRequest(Request("EquipmentInspect_"&EquipmentID)) '杩旂珯鍚庢鏌�
+ If EquipmentUseSituation="" Then EquipmentUseSituation=EquipmentDefault
+ If EquipmentInspect="" Then EquipmentInspect="姝ｅ父"
+ sql="select id from DispatchOrd_Equipment where EquipmentID="&EquipmentID&" and DispatchOrdIDDt="&DispatchOrdID
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update DispatchOrd_Equipment set EquipmentUseSituation='"&EquipmentUseSituation&"',EquipmentInspect='"&EquipmentInspect&"'"&EquipmentOASql&" where id="&rs("id")
+ objConn.Execute sql
+ Else
+ sql="insert into DispatchOrd_Equipment (EquipmentID,DispatchOrdIDDt,EquipmentUseSituation,EquipmentInspect,EquipmentOAid) values ("&EquipmentID&","&DispatchOrdID&",'"&EquipmentUseSituation&"','"&EquipmentInspect&"',"&session("adminID")&")"
+ objConn.Execute sql
+ End If
+ rs.close()
+ Next
+ End If
+ '璁惧浣跨敤鎯呭喌_2021.4.6鍚敤
+ strItmID = SafeRequest(request("strItmID")) '璁惧ID
+ strItmID_SP = SPLIT(strItmID,", ")
+ for i=0 to ubound(strItmID_SP)
+ strItmID = strItmID_SP(i)
+ EquipmentDefault = SafeRequest(Request("EquipmentDefault_"&strItmID)) '榛樿浣跨敤鎯呭喌
+ EquipmentUseSituation = SafeRequest(Request("EquipmentUseSituation_"&strItmID)) '浣跨敤鎯呭喌(鏁伴噺)
+ EquipmentPurchasePrice = SafeRequest(Request("EquipmentPurchasePrice_"&strItmID)) '鐗╁搧鎴愭湰
+ 'EquipmentInspect = SafeRequest(Request("EquipmentInspect_"&strItmID)) '杩旂珯鍚庢鏌�
+ If EquipmentUseSituation="" Then EquipmentUseSituation=EquipmentDefault
+ If not IsNumeric(EquipmentUseSituation) Then EquipmentUseSituation=0
+ If not IsNumeric(EquipmentPurchasePrice) Then EquipmentPurchasePrice=0
+ 'If EquipmentInspect="" Then EquipmentInspect="姝ｅ父"
+ 'EquipmentPurchasePrice=0
+ sql="select id from DispatchOrd_Equipment2 where strItmIDPK="&strItmID&" and DispatchOrdIDDt="&DispatchOrdID
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update DispatchOrd_Equipment2 set EquipmentUseSituation="&EquipmentUseSituation&" "&EquipmentOASql&" where id="&rs("id")
+ objConn.Execute sql
+ Else
+ sql="insert into DispatchOrd_Equipment2 (strItmIDPK,DispatchOrdIDDt,EquipmentUseSituation,EquipmentPurchasePrice,EquipmentOAid) values ("&strItmID&","&DispatchOrdID&","&EquipmentUseSituation&","&EquipmentPurchasePrice&","&session("adminID")&")"
+ objConn.Execute sql
+ End If
+ rs.close()
+ Next
+
+ '杞﹁締浣跨敤鎯呭喌
+ If CarInspection<>"" Then
+ CarInspection = Replace(CarInspection,":, ",":")
+ CarInspection = Replace(CarInspection,", ","|")
+ CarInspection = CarInspection&"|"
+ If CarInspectionID<>"" Then
+ sql="update CarInspection set CarInspection='"&CarInspection&"',InspectionDate=getdate(),OAID="&session("adminID")&",OATime=getdate() where CarInspection<>'"&CarInspection&"' and id="&CarInspectionID
+ objConn.Execute sql
+ Else
+ sql="insert into CarInspection (InspectionCarID,DispatchOrdIDPK,CarInspection,OAID,InspectionState) values ("&DispatchOrdCarID&","&DispatchOrdID&",'"&CarInspection&"',"&session("adminID")&",2)"
+ objConn.Execute sql
+ End If
+ End If
+
+ '榛樿鑷姩瀹℃牳閫氳繃
+ 'sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",12,"&session("adminID")&")"
+ 'objConn.Execute sql
+ 'sql="update DispatchOrd set DispatchOrd_AP_Check=1,DispatchOrd_AP_Time=getdate(),DispatchOrd_AP_ID="&session("adminID")&" where DispatchOrdID="&DispatchOrdID
+ 'objConn.Execute sql
+
+End If
+
+'瀹℃牳杞烦
+If DispatchOrd_Check="1" Or DispatchOrd_Check="4" Or DispatchOrd_Check="0" Then
+ ReturnURL="admin_save.gds?admin_save=28&DispatchOrd_Check="&DispatchOrd_Check&"&DispatchOrdID="&DispatchOrdID&"&DispatchOrd_AP_Reason="&DispatchOrd_AP_Reason
+
+ElseIf weixin="1" then
+ 'ReturnURL="/m_DispatchOrder_End.gds?order_type=5&DispatchOrdID="&DispatchOrdID
+ session("JsonKey")="1"
+ ReturnURL="/weixin/message_send_DispatchOrder_end.gds?DispatchOrdID="&DispatchOrdID
+
+Else
+ ReturnURL="/DispatchOrder_End.gds?h_menu1_1=1&SystemMessageType=3&SMT=4&DispatchOrdID="&DispatchOrdID
+End If
+'鏇存柊鎻愭垚鏁版嵁
+Call EntourageDKP_Money_C2(DispatchOrdID)
+Call OA_Running("璋冨害鍗曞井淇¤皟搴﹀崟鎻愪氦鏁版嵁瀹℃牳:"&DispatchOrdID)
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "33_1"
+'-------------------------------------------------------------璋冨害鍗曞井淇¤皟搴﹀崟鎻愪氦鏁版嵁瀹℃牳(涓汉)
+ServiceOrdID = SafeRequest(request("ServiceOrdID"))
+DispatchOrdID = SafeRequest(request("DispatchOrdID"))
+EntourageLeadID = SafeRequest(request("EntourageLeadID")) '棰嗛槦ID
+weixin = SafeRequest(request("weixin"))
+DispatchOrd_Check= SafeRequest(request("DispatchOrd_Check"))
+
+DispatchOrdPerfomance = SafeRequest(request("DispatchOrdPerfomance")) '璋冨害鍗曠哗鏁�
+If DispatchOrdPerfomance="" Then DispatchOrdPerfomance=0
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+if DispatchOrdID<>"" Then
+ '鍙傚姞浜哄憳鎯呭喌
+ EId = SafeRequest(request("EId")) '浜哄憳ID
+ EId_SP = SPLIT(EId,", ")
+ for i=0 to ubound(EId_SP)
+ EId = EId_SP(i)
+ EntourageOT_is = SafeRequest(Request("EntourageOT_is_"&EId)) '浼戞伅鍑鸿溅
+ EntourageOT2_is = SafeRequest(Request("EntourageOT2_is_"&EId)) '鍔犵彮鍑鸿溅2
+ EntourageLong_is = SafeRequest(Request("EntourageLong_is_"&EId)) '瓒呴暱閫�
+ EntourageBetimesHH = SafeRequest(Request("EntourageBetimesHH_"&EId)) '鎻愬墠鍑鸿溅N灏忔椂
+ EntourageOther = SafeRequest(Request("EntourageOther_"&EId)) '鍏跺畠鎯呭喌
+ Stretcher_is = SafeRequest(Request("Stretcher_is_"&EId)) '鎶媴鏋�
+ If EntourageOT_is="" Then EntourageOT_is=0
+ If EntourageOT2_is="" Then EntourageOT2_is=0
+ If EntourageLong_is="" Then EntourageLong_is=0
+ If Stretcher_is="" Then Stretcher_is=0
+ If EntourageBetimesHH="" Then EntourageBetimesHH=0
+ sql="update DispatchOrd_Entourage set EntourageOT_is="&EntourageOT_is&",EntourageOT2_is="&EntourageOT2_is&",EntourageBetimesHH="&EntourageBetimesHH&",EntourageOther='"&EntourageOther&"',Stretcher_is="&Stretcher_is&",EntourageEnd_Time=getdate() where EntourageEnd_Time is null and id="&EId
+ objConn.Execute sql
+ Next
+
+ '浜哄憳缁╂晥
+ call EntourageDKP_A(DispatchOrdID,DispatchOrdPerfomance)
+End If
+
+'瀹℃牳杞烦
+If weixin="1" then
+ 'ReturnURL="/m_DispatchOrder_End.gds?order_type=5&DispatchOrdID="&DispatchOrdID
+ ReturnURL="/m_DispatchOrder_End.gds?DispatchOrdID="&DispatchOrdID&"&order_type=5&closeWindow=YES"
+
+Else
+ ReturnURL="/DispatchOrder_End.gds?h_menu1_1=1&SystemMessageType=3&SMT=4&DispatchOrdID="&DispatchOrdID
+End If
+'鏇存柊鎻愭垚鏁版嵁
+Call EntourageDKP_Money_C2(DispatchOrdID)
+
+Call OA_Running("璋冨害鍗曞井淇¤皟搴﹀崟鎻愪氦鏁版嵁瀹℃牳:"&DispatchOrdID&" EId:"&EId)
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "33_2"
+'-------------------------------------------------------------璋冨害鍗曟彁浜や换鍔＄哗鏁堟暟鎹鏍�
+ServiceOrdID = SafeRequest(request("ServiceOrdID"))
+DispatchOrdID = SafeRequest(request("DispatchOrdID"))
+EntourageLeadID = SafeRequest(request("EntourageLeadID")) '棰嗛槦ID
+DispatchOrdCarID= SafeRequest(request("DispatchOrdCarID"))
+weixin = SafeRequest(request("weixin"))
+DispatchOrd_Check= SafeRequest(request("DispatchOrd_Check"))
+DispatchOrd_AP_Reason=SafeRequest(request("DispatchOrd_AP_Reason"))
+
+'杞繍鎯呭喌
+DispatchOrdActualDate = SafeRequest(request("DispatchOrdActualDate")) '鍑哄彂鏃堕棿
+DispatchOrdReturnDate = SafeRequest(request("DispatchOrdReturnDate")) '杩斿洖鏃堕棿
+DispatchOrdTraStreet = SafeRequest(request("DispatchOrdTraStreet")) '鍑哄彂鍦�
+DispatchOrdTraEnd = SafeRequest(request("DispatchOrdTraEnd")) '鐩殑鍦�
+DispatchOrdTraStreetMileage = SafeRequest(request("DispatchOrdTraStreetMileage")) '寮�濮嬮噷绋嬫暟
+DispatchOrdTraEndMileage = SafeRequest(request("DispatchOrdTraEndMileage")) '缁撴潫閲岀▼鏁�
+'DispatchOrdMileage = SafeRequest(request("DispatchOrdMileage")) '杞繍瀹為檯閲岀▼(鍏噷)
+DispatchOrdResult = SafeRequest(request("DispatchOrdResult")) '杞繍缁撴灉
+If DispatchOrdResult="0" Then DispatchOrdResult=SafeRequest(request("DispatchOrdResult_0")) '杞繍缁撴灉(鍏跺畠)
+If DispatchOrdMileage="" And Not IsNumeric(DispatchOrdMileage) Then DispatchOrdMileage=0
+DispatchOrdRemarks = SafeRequest(request("DispatchOrdRemarks")) '澶囨敞璇存槑
+DispatchOrdPerfomance = SafeRequest(request("DispatchOrdPerfomance")) '璋冨害鍗曠哗鏁�
+If DispatchOrdPerfomance="" Then DispatchOrdPerfomance=0
+If DispatchOrdTraStreetMileage="" And Not IsNumeric(DispatchOrdTraStreetMileage) Then DispatchOrdTraStreetMileage=0
+If DispatchOrdTraEndMileage="" And Not IsNumeric(DispatchOrdTraEndMileage) Then DispatchOrdTraEndMileage=0
+DispatchOrdMileage=DispatchOrdTraEndMileage-DispatchOrdTraStreetMileage
+ServiceOrdTraDistance = SafeRequest(request("ServiceOrdTraDistance")) '缁╂晥璺濈
+If ServiceOrdTraDistance="" Or Not isnumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance="0"
+If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","")
+ServiceOrdTraDistance = ServiceOrdTraDistance&"鍏噷"
+ServiceOrdPtServices = SafeRequest(Request("ServiceOrdPtServices")) '杞嚭绉戝
+ServiceOrdPtServicesID = SafeRequest(Request("ServiceOrdPtServicesID")) '杞嚭绉戝ID
+ServiceOrdPtInServices = SafeRequest(Request("ServiceOrdPtInServices")) '杞叆绉戝
+ServiceOrdPtInServicesID= SafeRequest(Request("ServiceOrdPtInServicesID")) '杞叆绉戝ID
+
+'闄勫姞鏃堕暱
+TimeLength_Program = SafeRequest(Request.form("TimeLength_Program")) '澶у瀷娲诲姩淇濋殰鏃堕暱
+TimeLength_ICU = SafeRequest(Request.form("TimeLength_ICU")) '灞呭ICU鏃堕暱
+TimeLength_Wait = SafeRequest(Request.form("TimeLength_Wait")) '绛夊緟鏃堕暱
+If TimeLength_Program="" Then TimeLength_Program=0
+If TimeLength_ICU="" Then TimeLength_ICU=0
+If TimeLength_Wait="" Then TimeLength_Wait=0
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+if DispatchOrdID<>"" Then
+ If IsDate(DispatchOrdActualDate) And DispatchOrdActualDate<>"" Then ActualDateSql=",DispatchOrdActualDate='"&DispatchOrdActualDate&"'"
+ If IsDate(DispatchOrdReturnDate) And DispatchOrdReturnDate<>"" Then ReturnDateSql=",DispatchOrdReturnDate='"&DispatchOrdReturnDate&"'"
+ If DispatchOrdTraStreet<>"" Then TraStreetSql=",DispatchOrdTraStreet='"&DispatchOrdTraStreet&"'"
+ If DispatchOrdTraEnd<>"" Then TraEndSql=",DispatchOrdTraEnd='"&DispatchOrdTraEnd&"'"
+ If DispatchOrd_Check="" then
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",11,"&session("adminID")&")"
+ objConn.Execute sql
+ IsEndSql=",DispatchOrdIsEndDate=getdate()"
+ EquipmentOASql=",EquipmentOAid="&session("adminID")&" ,EquipmentTime=getdate()"
+ End If
+
+ '淇敼璋冨害鍗�
+ sql="update DispatchOrd set DispatchOrdIsEnd=1"&IsEndSql&",DispatchOrdTraEndMileage="&DispatchOrdTraEndMileage&",DispatchOrdTraStreetMileage="&DispatchOrdTraStreetMileage&",DispatchOrdMileage="&DispatchOrdMileage&",DispatchOrdPerfomance="&DispatchOrdPerfomance&ActualDateSql&ReturnDateSql&TraStreetSql&TraEndSql&",TimeLength_Program="&TimeLength_Program&",TimeLength_ICU="&TimeLength_ICU&",TimeLength_Wait="&TimeLength_Wait&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+
+ '淇敼鏈嶅姟鍗�
+ If ServiceOrdID<>"" And ServiceOrdTraDistance<>"" And ServiceOrdTraDistance<>"0鍏噷" Then
+ sql="update ServiceOrder set ServiceOrdTraDistance='"&ServiceOrdTraDistance&"' where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+ If ServiceOrdID<>"" Then
+ CoSql=""
+ If ServiceOrdPtServicesID<>"" Then CoSql=CoSql&",ServiceOrdPtServicesID="&ServiceOrdPtServicesID&""
+ If ServiceOrdPtServices<>"" Then CoSql=CoSql&",ServiceOrdPtServices='"&ServiceOrdPtServices&"'"
+ If ServiceOrdPtInServicesID<>"" Then CoSql=CoSql&",ServiceOrdPtInServicesID="&ServiceOrdPtInServicesID&""
+ If ServiceOrdPtInServices<>"" Then CoSql=CoSql&",ServiceOrdPtInServices='"&ServiceOrdPtInServices&"'"
+ If CoSql<>"" Then
+ sql="update ServiceOrder set ServiceOrdUserID=ServiceOrdUserID"&CoSql&" where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+ End If
+
+ '鍙傚姞浜哄憳鎯呭喌
+ EId = SafeRequest(request("EId")) '浜哄憳ID
+ EId_SP = SPLIT(EId,", ")
+ for i=0 to ubound(EId_SP)
+ EId = EId_SP(i)
+ EntourageOT_is = SafeRequest(Request("EntourageOT_is_"&EId)) '浼戞伅鍑鸿溅
+ EntourageOT2_is = SafeRequest(Request("EntourageOT2_is_"&EId)) '鍔犵彮鍑鸿溅2
+ EntourageLong_is = SafeRequest(Request("EntourageLong_is_"&EId)) '瓒呴暱閫�
+ EntourageBetimesHH = SafeRequest(Request("EntourageBetimesHH_"&EId)) '鎻愬墠鍑鸿溅N灏忔椂
+ EntourageOther = SafeRequest(Request("EntourageOther_"&EId)) '鍏跺畠鎯呭喌
+ Stretcher_is = SafeRequest(Request("Stretcher_is_"&EId)) '鎶媴鏋�
+ If EntourageOT_is="" Then EntourageOT_is=0
+ If EntourageOT2_is="" Then EntourageOT2_is=0
+ If EntourageLong_is="" Then EntourageLong_is=0
+ If Stretcher_is="" Then Stretcher_is=0
+ If EntourageBetimesHH="" Then EntourageBetimesHH=0
+ '鏇存柊鍔犵彮瀹℃牳鐘舵��
+ sql="update DispatchOrd_Entourage set Check_is=0,Check_Time=null,Check_OAid=null where ((Check_is=1 and (EntourageOT_is<>0 or EntourageOT2_is<>0 or EntourageBetimesHH>0)) or (Check_is=2 and (EntourageOT_is<>"&EntourageOT_is&" or EntourageOT2_is<>"&EntourageOT2_is&" or EntourageBetimesHH<"&EntourageBetimesHH&"))) and id="&EId
+ objConn.Execute sql
+ '鏇存柊鍔犵彮鐘舵��
+ sql="update DispatchOrd_Entourage set EntourageOT_is="&EntourageOT_is&",EntourageOT2_is="&EntourageOT2_is&",EntourageLong_is="&EntourageLong_is&",EntourageBetimesHH="&EntourageBetimesHH&",EntourageOther='"&EntourageOther&"',Stretcher_is="&Stretcher_is&" where id="&EId
+ objConn.Execute sql
+ '鍐欏叆鎻愪氦瀹屾垚鏃堕棿
+ sql="update DispatchOrd_Entourage set EntourageEnd_Time=getdate() where EntourageEnd_Time is null and id="&EId
+ objConn.Execute sql
+
+ Next
+
+ '浜哄憳缁╂晥
+ call EntourageDKP_A(DispatchOrdID,DispatchOrdPerfomance)
+
+ '榛樿鑷姩瀹℃牳閫氳繃
+ 'sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",12,"&session("adminID")&")"
+ 'objConn.Execute sql
+ 'sql="update DispatchOrd set DispatchOrd_AP_Check=1,DispatchOrd_AP_Time=getdate(),DispatchOrd_AP_ID="&session("adminID")&" where DispatchOrdID="&DispatchOrdID
+ 'objConn.Execute sql
+
+End If
+
+'瀹℃牳杞烦
+If DispatchOrd_Check="1" Or DispatchOrd_Check="2" Or DispatchOrd_Check="4" Or DispatchOrd_Check="0" Then
+ ReturnURL="admin_save.gds?admin_save=28_2&DispatchOrd_Check="&DispatchOrd_Check&"&DispatchOrdID="&DispatchOrdID&"&DispatchOrd_AP_Reason="&DispatchOrd_AP_Reason
+
+ElseIf weixin="1" then
+ 'ReturnURL="/m_DispatchOrder_End.gds?order_type=5&DispatchOrdID="&DispatchOrdID
+ session("JsonKey")="1"
+ ReturnURL="/weixin/message_send_DispatchOrder_end.gds?DispatchOrdID="&DispatchOrdID
+
+Else
+ ReturnURL="/DispatchOrder_DKP.gds?h_menu1_1=1&SystemMessageType=3&SMT=4&DispatchOrdID="&DispatchOrdID
+End If
+'鏇存柊鎻愭垚鏁版嵁
+Call EntourageDKP_Money_C2(DispatchOrdID)
+Call OA_Running("璋冨害鍗曟彁浜や换鍔＄哗鏁�:"&DispatchOrdID)
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "33_3"
+'-------------------------------------------------------------璋冨害鍗曞畬鎴愭姤鍛婂崟鎻愪氦鏁版嵁瀹℃牳
+ServiceOrdID = SafeRequest(request("ServiceOrdID"))
+DispatchOrdID = SafeRequest(request("DispatchOrdID"))
+EntourageLeadID = SafeRequest(request("EntourageLeadID")) '棰嗛槦ID
+DispatchOrdCarID= SafeRequest(request("DispatchOrdCarID"))
+weixin = SafeRequest(request("weixin"))
+DispatchOrd_Check= SafeRequest(request("DispatchOrd_Check"))
+DispatchOrd_AP_Reason=SafeRequest(request("DispatchOrd_AP_Reason"))
+
+'杞繍鎯呭喌
+DispatchOrdActualDate = SafeRequest(request("DispatchOrdActualDate")) '鍑哄彂鏃堕棿
+DispatchOrdReturnDate = SafeRequest(request("DispatchOrdReturnDate")) '杩斿洖鏃堕棿
+DispatchOrdTraStreet = SafeRequest(request("DispatchOrdTraStreet")) '鍑哄彂鍦�
+DispatchOrdTraEnd = SafeRequest(request("DispatchOrdTraEnd")) '鐩殑鍦�
+DispatchOrdTraStreetMileage = SafeRequest(request("DispatchOrdTraStreetMileage")) '寮�濮嬮噷绋嬫暟
+DispatchOrdTraEndMileage = SafeRequest(request("DispatchOrdTraEndMileage")) '缁撴潫閲岀▼鏁�
+'DispatchOrdMileage = SafeRequest(request("DispatchOrdMileage")) '杞繍瀹為檯閲岀▼(鍏噷)
+DispatchOrdResult = SafeRequest(request("DispatchOrdResult")) '杞繍缁撴灉
+If DispatchOrdResult="0" Then DispatchOrdResult=SafeRequest(request("DispatchOrdResult_0")) '杞繍缁撴灉(鍏跺畠)
+If DispatchOrdMileage="" And Not IsNumeric(DispatchOrdMileage) Then DispatchOrdMileage=0
+DispatchOrdRemarks = SafeRequest(request("DispatchOrdRemarks")) '澶囨敞璇存槑
+DispatchOrdPerfomance = SafeRequest(request("DispatchOrdPerfomance")) '璋冨害鍗曠哗鏁�
+If DispatchOrdPerfomance="" Then DispatchOrdPerfomance=0
+If DispatchOrdTraStreetMileage="" And Not IsNumeric(DispatchOrdTraStreetMileage) Then DispatchOrdTraStreetMileage=0
+If DispatchOrdTraEndMileage="" And Not IsNumeric(DispatchOrdTraEndMileage) Then DispatchOrdTraEndMileage=0
+DispatchOrdMileage=DispatchOrdTraEndMileage-DispatchOrdTraStreetMileage
+ServiceOrdTraDistance = SafeRequest(request("ServiceOrdTraDistance")) '缁╂晥璺濈
+If ServiceOrdTraDistance="" Or Not isnumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance="0"
+If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","")
+ServiceOrdTraDistance = ServiceOrdTraDistance&"鍏噷"
+ServiceOrdPtServices = SafeRequest(Request("ServiceOrdPtServices")) '杞嚭绉戝
+ServiceOrdPtServicesID = SafeRequest(Request("ServiceOrdPtServicesID")) '杞嚭绉戝ID
+ServiceOrdPtInServices = SafeRequest(Request("ServiceOrdPtInServices")) '杞叆绉戝
+ServiceOrdPtInServicesID= SafeRequest(Request("ServiceOrdPtInServicesID")) '杞叆绉戝ID
+
+
+'鍙戠敓璐圭敤
+DispatchOrdLuqiaoFee = SafeRequest(request("DispatchOrdLuqiaoFee")) '璺ˉ璐�
+DispatchOrdGasolineFee = SafeRequest(request("DispatchOrdGasolineFee"))'娌硅垂
+DispatchOrdTravelFee = SafeRequest(request("DispatchOrdTravelFee")) '宸梾璐�
+DispatchOrdOtherFee = SafeRequest(request("DispatchOrdOtherFee")) '鍏跺畠璐圭敤
+DispatchOrdOtherFee_TXT = SafeRequest(request("DispatchOrdOtherFee_TXT"))'鍏跺畠璐圭敤璇存槑
+If DispatchOrdLuqiaoFee="" Then DispatchOrdLuqiaoFee=0
+If DispatchOrdGasolineFee="" Then DispatchOrdGasolineFee=0
+If DispatchOrdTravelFee="" Then DispatchOrdTravelFee=0
+If DispatchOrdOtherFee="" Then DispatchOrdOtherFee=0
+
+'姘ф皵銆佹槗鑰楀搧銆佽嵂鍝佹秷鑰�
+DispatchOrdOxygen = SafeRequest(request("DispatchOrdOxygen")) '姘ф皵
+DispatchOrdConsumables = SafeRequest(request("DispatchOrdConsumables"))'鏄撹�楀搧
+DispatchOrdDrugs = SafeRequest(request("DispatchOrdDrugs")) '鑽搧
+
+'闄勫姞鏃堕暱
+TimeLength_Program = SafeRequest(Request.form("TimeLength_Program")) '澶у瀷娲诲姩淇濋殰鏃堕暱
+TimeLength_ICU = SafeRequest(Request.form("TimeLength_ICU")) '灞呭ICU鏃堕暱
+TimeLength_Wait = SafeRequest(Request.form("TimeLength_Wait")) '绛夊緟鏃堕暱
+If TimeLength_Program="" Then TimeLength_Program=0
+If TimeLength_ICU="" Then TimeLength_ICU=0
+If TimeLength_Wait="" Then TimeLength_Wait=0
+
+'杞﹁締浣跨敤鎯呭喌
+CarInspectionID = SafeRequest(request("CarInspectionID"))
+CarInspection = SafeRequest(request("CarInspection"))
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+if DispatchOrdID<>"" Then
+ If IsDate(DispatchOrdActualDate) And DispatchOrdActualDate<>"" Then ActualDateSql=",DispatchOrdActualDate='"&DispatchOrdActualDate&"'"
+ If IsDate(DispatchOrdReturnDate) And DispatchOrdReturnDate<>"" Then ReturnDateSql=",DispatchOrdReturnDate='"&DispatchOrdReturnDate&"'"
+ If DispatchOrdTraStreet<>"" Then TraStreetSql=",DispatchOrdTraStreet='"&DispatchOrdTraStreet&"'"
+ If DispatchOrdTraEnd<>"" Then TraEndSql=",DispatchOrdTraEnd='"&DispatchOrdTraEnd&"'"
+ If DispatchOrd_Check="" then
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",11,"&session("adminID")&")"
+ objConn.Execute sql
+ IsEndSql=",DispatchOrdIsEndDate=getdate()"
+ EquipmentOASql=",EquipmentOAid="&session("adminID")&" ,EquipmentTime=getdate()"
+ End If
+
+ '淇敼璋冨害鍗�
+ sql="update DispatchOrd set DispatchOrdIsEnd=1"&IsEndSql&",DispatchOrdTraEndMileage="&DispatchOrdTraEndMileage&",DispatchOrdTraStreetMileage="&DispatchOrdTraStreetMileage&",DispatchOrdMileage="&DispatchOrdMileage&",DispatchOrdLuqiaoFee="&DispatchOrdLuqiaoFee&",DispatchOrdGasolineFee="&DispatchOrdGasolineFee&",DispatchOrdTravelFee="&DispatchOrdTravelFee&",DispatchOrdOtherFee="&DispatchOrdOtherFee&",DispatchOrdOtherFee_TXT='"&DispatchOrdOtherFee_TXT&"',DispatchOrdOxygen='"&DispatchOrdOxygen&"',DispatchOrdConsumables='"&DispatchOrdConsumables&"',DispatchOrdDrugs='"&DispatchOrdDrugs&"',DispatchOrdRemarks='"&DispatchOrdRemarks&"',DispatchOrdPerfomance="&DispatchOrdPerfomance&ActualDateSql&ReturnDateSql&TraStreetSql&TraEndSql&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+
+ '淇敼鏈嶅姟鍗�
+ If ServiceOrdID<>"" And ServiceOrdTraDistance<>"" And ServiceOrdTraDistance<>"0鍏噷" Then
+ sql="update ServiceOrder set ServiceOrdTraDistance='"&ServiceOrdTraDistance&"' where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+ If ServiceOrdID<>"" Then
+ CoSql=""
+ If ServiceOrdPtServicesID<>"" Then CoSql=CoSql&",ServiceOrdPtServicesID="&ServiceOrdPtServicesID&""
+ If ServiceOrdPtServices<>"" Then CoSql=CoSql&",ServiceOrdPtServices='"&ServiceOrdPtServices&"'"
+ If ServiceOrdPtInServicesID<>"" Then CoSql=CoSql&",ServiceOrdPtInServicesID="&ServiceOrdPtInServicesID&""
+ If ServiceOrdPtInServices<>"" Then CoSql=CoSql&",ServiceOrdPtInServices='"&ServiceOrdPtInServices&"'"
+ If CoSql<>"" Then
+ sql="update ServiceOrder set ServiceOrdUserID=ServiceOrdUserID"&CoSql&" where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ End If
+ End If
+
+ '璁惧浣跨敤鎯呭喌_2021.4.6鍚敤
+ strItmID = SafeRequest(request("strItmID")) '璁惧ID
+ strItmID_SP = SPLIT(strItmID,", ")
+ for i=0 to ubound(strItmID_SP)
+ strItmID = strItmID_SP(i)
+ EquipmentDefault = SafeRequest(Request("EquipmentDefault_"&strItmID)) '榛樿浣跨敤鎯呭喌
+ EquipmentUseSituation = SafeRequest(Request("EquipmentUseSituation_"&strItmID)) '浣跨敤鎯呭喌(鏁伴噺)
+ EquipmentPurchasePrice = SafeRequest(Request("EquipmentPurchasePrice_"&strItmID)) '鐗╁搧鎴愭湰
+ 'EquipmentInspect = SafeRequest(Request("EquipmentInspect_"&strItmID)) '杩旂珯鍚庢鏌�
+ If EquipmentUseSituation="" Then EquipmentUseSituation=EquipmentDefault
+ If not IsNumeric(EquipmentUseSituation) Then EquipmentUseSituation=0
+ If not IsNumeric(EquipmentPurchasePrice) Then EquipmentPurchasePrice=0
+ 'If EquipmentInspect="" Then EquipmentInspect="姝ｅ父"
+ 'EquipmentPurchasePrice=0
+ sql="select id from DispatchOrd_Equipment2 where strItmIDPK="&strItmID&" and DispatchOrdIDDt="&DispatchOrdID
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update DispatchOrd_Equipment2 set EquipmentUseSituation="&EquipmentUseSituation&" "&EquipmentOASql&" where id="&rs("id")
+ objConn.Execute sql
+ Else
+ sql="insert into DispatchOrd_Equipment2 (strItmIDPK,DispatchOrdIDDt,EquipmentUseSituation,EquipmentPurchasePrice,EquipmentOAid) values ("&strItmID&","&DispatchOrdID&","&EquipmentUseSituation&","&EquipmentPurchasePrice&","&session("adminID")&")"
+ objConn.Execute sql
+ End If
+ rs.close()
+ Next
+
+ '杞﹁締浣跨敤鎯呭喌
+ If CarInspection<>"" Then
+ CarInspection = Replace(CarInspection,":, ",":")
+ CarInspection = Replace(CarInspection,", ","|")
+ CarInspection = CarInspection&"|"
+ If CarInspectionID<>"" Then
+ sql="update CarInspection set CarInspection='"&CarInspection&"',InspectionDate=getdate(),OAID="&session("adminID")&",OATime=getdate() where CarInspection<>'"&CarInspection&"' and id="&CarInspectionID
+ objConn.Execute sql
+ Else
+ sql="insert into CarInspection (InspectionCarID,DispatchOrdIDPK,CarInspection,OAID,InspectionState) values ("&DispatchOrdCarID&","&DispatchOrdID&",'"&CarInspection&"',"&session("adminID")&",2)"
+ objConn.Execute sql
+ End If
+ End If
+
+ '榛樿鑷姩瀹℃牳閫氳繃
+ 'sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",12,"&session("adminID")&")"
+ 'objConn.Execute sql
+ 'sql="update DispatchOrd set DispatchOrd_AP_Check=1,DispatchOrd_AP_Time=getdate(),DispatchOrd_AP_ID="&session("adminID")&" where DispatchOrdID="&DispatchOrdID
+ 'objConn.Execute sql
+
+End If
+
+'瀹℃牳杞烦
+If DispatchOrd_Check="1" Or DispatchOrd_Check="4" Or DispatchOrd_Check="0" Then
+ ReturnURL="admin_save.gds?admin_save=28&DispatchOrd_Check="&DispatchOrd_Check&"&DispatchOrdID="&DispatchOrdID&"&DispatchOrd_AP_Reason="&DispatchOrd_AP_Reason
+
+ElseIf weixin="1" then
+ 'ReturnURL="/m_DispatchOrder_End.gds?order_type=5&DispatchOrdID="&DispatchOrdID
+ session("JsonKey")="1"
+ ReturnURL="/weixin/message_send_DispatchOrder_end.gds?DispatchOrdID="&DispatchOrdID
+
+Else
+ ReturnURL="/DispatchOrder_End.gds?h_menu1_1=1&SystemMessageType=3&SMT=4&DispatchOrdID="&DispatchOrdID
+End If
+'鏇存柊鎻愭垚鏁版嵁
+Call EntourageDKP_Money_C2(DispatchOrdID)
+Call OA_Running("璋冨害鍗曞畬鎴愭姤鍛婂崟鎻愪氦鏁版嵁瀹℃牳:"&DispatchOrdID)
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "34"
+'-------------------------------------------------------------璐圭敤鍗曞鏍�/杩斿鏍�/浣滃簾
+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.Redirect "/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&SystemMessageType=1&SMT=22"
+ ElseIf DispatchOrdID<>"" Then
+ Response.Redirect "/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&SystemMessageType=1&SMT=22"
+ Else
+ Response.Redirect "/PaidMoney_List.gds?searchTXT="&searchTXT&"&page="&page&"&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&OrdType="&OrdType&"&SystemMessageType=1&SMT=1"
+ 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%>
+
+<%case "35"
+'-------------------------------------------------------------鏂板缓璐圭敤鍗�
+searchTXT = SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+PaidMoney_Check= SafeRequest(request.form("PaidMoney_Check"))
+OrdState = SafeRequest(request.form("OrdState"))
+OrdClassList= SafeRequest(request.form("OrdClassList"))
+OrdDateType = SafeRequest(request.form("OrdDateType"))
+ServiceOrdID= SafeRequest(request("ServiceOrdID"))
+DispatchOrdID=SafeRequest(request("DispatchOrdID"))
+ReturnID = SafeRequest(request("ReturnID"))
+OrdType = SafeRequest(request("OrdType"))
+
+PaidMoneyType = SafeRequest(request("PaidMoneyType"))
+PaidMoney = SafeRequest(request("PaidMoney"))
+PaidMoneyMono = SafeRequest(request("PaidMoneyMono"))
+PaidMoneyTimestamp= SafeRequest(request("PaidMoneyTimestamp"))
+
+If (PaidMoney="" Or PaidMoney="0" Or PaidMoneyType="" Or ServiceOrdID="") And ReturnID="2" Then Response.Redirect "/PaidMoney_List2.gds?searchTXT="&searchTXT&"&page="&page&"&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&SystemMessageType=4&SMT=6"
+If (PaidMoney="" Or PaidMoney="0" Or PaidMoneyType="" Or ServiceOrdID="") Then Response.Redirect "/PaidMoney_List.gds?searchTXT="&searchTXT&"&page="&page&"&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&SystemMessageType=4&SMT=6"
+
+If OrdType="2" Then PaidMoney=-PaidMoney
+If PaidMoneyType="9" Then
+ '鐢ㄦ埛绉垎鏀粯
+ UserPoints=0
+ Set rs = Server.CreateObject("ADODB.Recordset")
+ sql="select ServiceOrdUserID,ServiceOrdClass,ServiceOrd_CC_Time,ServiceOrdNo from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ if not rs.eof then
+ ServiceOrdUserID=rs("ServiceOrdUserID")
+ ServiceOrdNo = rs("ServiceOrdClass")& year(rs("ServiceOrd_CC_Time"))&Right("0"&month(rs("ServiceOrd_CC_Time")),2)&Right("0"&day(rs("ServiceOrd_CC_Time")),2) & "-"&Right("00"&rs("ServiceOrdNo"),3)
+ end If
+ rs.close()
+ If ServiceOrdUserID<>"" Then
+ sql="select isnull(sum(Points_Score),0) from UserPoints where Points_State<>4 and ToUserID="&ServiceOrdUserID
+ rs.open sql,objConn,1,1
+ if not rs.Eof then
+ UserPoints=rs(0)
+ End If
+ rs.close()
+ End If
+ If ServiceOrdUserID<>"" And CLng(UserPoints)>=CLng(PaidMoney) Then
+ ServiceOrdPoints=PaidMoney
+ UserID=ServiceOrdUserID
+ sql="Insert into UserPoints (ToUserID,Points_Score,Points_Type,Points_State,ServiceOrdIDDt,Points_Value1) values ("&UserID&","&-ServiceOrdPoints&",6,1,"&ServiceOrdID&",'"&ServiceOrdNo&"')"
+ objConn.Execute sql
+ sql="insert into PaidMoney (PaidMoneyClass,ServiceOrdIDDt,PaidMoney,PaidMoneyType,PaidMoneyOaID,PaidMoneyTimestamp,PaidMoneyMono,PaidMoney_AP_Check,PaidMoney_AP_Time,PaidMoney_AP_ID) values ('FI',"&ServiceOrdID&","&ServiceOrdPoints&",9,"&session("adminID")&",getdate(),'绉垎鏀粯',1,getdate(),"&session("adminID")&")"
+ objConn.Execute sql
+ sql="update ServiceOrder set ServiceOrdTraPaidPrice=(select sum(PaidMoney) from PaidMoney where PaidMoney_AP_Check<>-1 and ServiceOrdIDDt=ServiceOrdID),ServiceOrdPoints=ServiceOrdPoints+"&ServiceOrdPoints&" where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ Else
+ %>
+ <script lnguage=javascript>
+ alert("鐢ㄦ埛绉垎涓嶈冻!!褰撳墠鐢ㄦ埛绉垎:<%=UserPoints%>");
+ window.history.go(-1)
+ </script>
+ <%Response.End
+ End If
+Else
+ '鏀粯璁板綍
+ 'If isDepartment("030204")=1 And PaidMoney>0 And PaidMoneyType<>"6" And PaidMoneyType<>"7" Then PaidMoneyCheck=1 '鑷姩瀹℃牳鏉�,鎸傝处闄ゅ(2019.6.26鍙栨秷)
+ If PaidMoneyType<>"" And IsNumeric(PaidMoney) And PaidMoneyTimestamp<>"" Then
+ If PaidMoney<>0 Then
+ Call PaidMoneyA(ServiceOrdID,DispatchOrdID,PaidMoney,PaidMoneyType,PaidMoneyTimestamp,PaidMoneyMono,PaidMoneyCheck)
+ End if
+ End If
+End If
+
+If ReturnID="ServiceOrder" Then
+ReturnURL="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&OrdDateType="&OrdDateType&"&OrdClassList="&OrdClassList&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=3&SMT=35"
+ElseIf ReturnID="DispatchOrder" Then
+ReturnURL="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&OrdDateType="&OrdDateType&"&OrdClassList="&OrdClassList&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=3&SMT=35"
+ElseIf ReturnID="2" Then
+ReturnURL="/PaidMoney_List2.gds?searchTXT="&searchTXT&"&page="&page&"&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&OrdType="&OrdType&"&SystemMessageType=3&SMT=7"
+else
+ReturnURL="/PaidMoney_List.gds?searchTXT="&searchTXT&"&page="&page&"&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&OrdType="&OrdType&"&SystemMessageType=3&SMT=7"
+End if
+Call OA_Running("鏂板缓璐圭敤鍗�:"&ServiceOrdID)
+objConn.Execute "exec OrdDataUP "&ServiceOrdID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "36"
+'-------------------------------------------------------------淇敼璋冨害鍗曡溅杈�(寰俊)
+DispatchOrdID = SafeRequest(Request("DispatchOrdID")) '璋冨害鍗曞彿
+DispatchOrdCarID = SafeRequest(Request("DispatchOrdCarID")) '娲鹃仯杞﹁締ID
+
+'鏁版嵁涓嶅畬鏁�
+If DispatchOrdID="" Or Not IsNumeric(DispatchOrdID) Or DispatchOrdCarID="" Then Response.End()
+
+'淇敼璋冨害鍗曡溅杈�
+sql="update DispatchOrd set DispatchOrdCarID="&DispatchOrdCarID&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+objConn.Execute sql
+Call OA_Running("淇敼璋冨害鍗曡溅杈�(寰俊):"&DispatchOrdID&" CarID:"&DispatchOrdCarID)
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+%>
+<script language=javascript>
+parent.document.getElementById('posi1').style.display='none';
+parent.document.getElementById('posi').style.display='';
+</script>
+<%Response.End%>
+
+<%case "36_json"
+'-------------------------------------------------------------淇敼璋冨害鍗曡溅杈�(寰俊)_鍚屾椂鏌ヨ鏈�鍚庨噷绋嬫暟
+DispatchOrdID = SafeRequest(Request("DispatchOrdID")) '璋冨害鍗曞彿
+DispatchOrdCarID = SafeRequest(Request("DispatchOrdCarID")) '娲鹃仯杞﹁締ID
+isCarGas = SafeRequest(Request("isCarGas")) '鏈�杩戝姞娌规儏鍐�
+
+'鏁版嵁涓嶅畬鏁�
+If DispatchOrdCarID="" Then Response.End()
+
+'淇敼璋冨害鍗曡溅杈�
+If DispatchOrdID<>"" And IsNumeric(DispatchOrdID) Then
+ sql="update DispatchOrd set DispatchOrdCarID="&DispatchOrdCarID&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ Call OA_Running("淇敼璋冨害鍗曡溅杈�(寰俊):"&DispatchOrdID&" CarID:"&DispatchOrdCarID)
+ objConn.Execute "exec OrdDataUP "&DispatchOrdID
+End If
+
+'鏌ヨ杞﹁締鏈�鍚庝换鍔″崟缁撴潫鏃剁殑閲岀▼鏁�
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select top 1 DispatchOrdTraEndMileage from DispatchOrd where DispatchOrdCarID="&DispatchOrdCarID&" and DispatchOrdState<>10 and DispatchOrdTraEndMileage>0 order by DispatchOrdReturnDate desc"
+rs.open sql,objConn,1,1
+If not rs.Eof Then
+ EndMileage=rs(0)
+Else
+ EndMileage=0
+End If
+rs.close()
+
+'鏈�杩戝姞娌规儏鍐�
+If isCarGas="1" Then
+ sql="select top 1 GasType,GasPrice,GasMileage from CarGas where GasState>=0 and GasCarID="&DispatchOrdCarID&" order by GasDate desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ CarGasJson=",""GasType"":"""&rs("GasType")&""",""GasPrice"":"""&rs("GasPrice")&""",""GasEndMileage"":"""&rs("GasMileage")&""""
+ Else
+ CarGasJson=",""GasType"":"""",""GasPrice"":"""",""GasEndMileage"":""0"""
+ End If
+ rs.close()
+End If
+
+rsRollbackTrans(objConn.Errors.count)
+
+webJson="{""result"":1,""CarID"":"""&DispatchOrdCarID&""",""EndMileage"":"""&EndMileage&""""&CarGasJson&"}"
+Response.Write webJson
+Response.End%>
+
+<%case "37"
+'-------------------------------------------------------------淇敼璋冨害鍗曚汉鍛�(寰俊)
+Set rs = Server.CreateObject("ADODB.Recordset")
+Set rsDt = Server.CreateObject("ADODB.Recordset")
+DispatchOrdID = SafeRequest(Request("DispatchOrdID")) '璋冨害鍗曞彿
+OACompetencyID = SafeRequest(Request("OACompetencyID")) '鑱屼綅ID
+EntourageOAid_NEW = SafeRequest(Request("EntourageOAid")) '浜哄憳ID
+EntourageLong_is = SafeRequest(Request("EntourageLong_is")) '鏄惁璺熻溅(true/false)
+
+'鏁版嵁涓嶅畬鏁�
+If DispatchOrdID="" Or Not IsNumeric(DispatchOrdID) Or OACompetencyID="" Then Response.End()
+sql="select DispatchOrdID,DispatchOrd_NS_Time from DispatchOrd where DispatchOrdID="&DispatchOrdID
+rs.open sql,objConn,1,1
+If Not rs.eof Then
+ DispatchOrd_NS_Time = rs("DispatchOrd_NS_Time")
+End If
+rs.close()
+
+'淇敼闅忚浜哄憳
+sql="select DispatchOrd_Entourage.id,vID,vtext,vOrder2,EntourageOAid=isnull(EntourageOAid,0),EntourageLead=isnull(EntourageLead,0),EntourageState=isnull(EntourageState,0),EntourageState_Time from dictionary LEFT JOIN DispatchOrd_Entourage on DispatchOrdIDDt="&DispatchOrdID&" and EntourageID=vID and EntourageState<>4 where vType=1 and vtitle='DispatchOrdEntourage' and vID="&OACompetencyID&" order by vOrder"
+rs.open sql,objConn,1,1
+do while not rs.Eof
+ EID = rs("id") '闅忚鍒楄〃ID
+ EntourageID = rs("vID") '鑱岃兘ID
+ EntourageName=rs("vtext") '
+ OA_CompetencyID=rs("vOrder2")'瀵瑰簲鑱岃兘ID
+ EntourageOAid=rs("EntourageOAid")
+ EntourageLead=rs("EntourageLead")
+ EntourageState=rs("EntourageState") '浜哄憳纭鐘舵��(1绛夊緟纭,2涓嶆帴鍙�,3宸茬‘璁�,4鍙栨秷)
+ EntourageState_Time=rs("EntourageState_Time")
+ is_OldOAid="0"
+
+ '妫�鏌ユ湁娌′汉鍛橀噸澶�
+ If EntourageOAid<>"" And Not isnull(EntourageOAid) And EntourageOAid_NEW<>"" then
+ sql="select id from DispatchOrd_Entourage where DispatchOrdIDDt="&DispatchOrdID&" and EntourageState<>4 and EntourageOAid="&EntourageOAid_NEW
+ rsDt.open sql,objConn,1,1
+ If not rsDt.eof Then
+ is_OldOAid="1"
+ End If
+ rsDt.close()
+ End If
+
+ If EntourageOAid_NEW="" And Not isnull(EID) Then
+ '娓呯┖闅忚浜哄憳
+ If (EntourageState=2 Or EntourageState=3) And Not Isnull(EID) Then
+ sql="update DispatchOrd_Entourage set EntourageState=4 where id="&EID
+ objConn.Execute sql
+ Else
+ sql="delete from DispatchOrd_Entourage where id="&EID
+ objConn.Execute sql
+ End If
+
+ ElseIf EntourageOAid_NEW<>"" And Not isnull(EID) And CStr(EntourageOAid_NEW)<>CStr(EntourageOAid) Then
+ '淇敼闅忚浜哄憳(鏇存崲)
+ If is_OldOAid="1" Then
+ %>
+ <script language=javascript>
+ alert('浜哄憳閲嶅,璇烽噸鏂伴�夋嫨');
+ parent.location.reload();
+ </script>
+ <%
+ Else
+ If (EntourageState=2 Or EntourageState=3) And Not Isnull(EID) Then
+ sql="update DispatchOrd_Entourage set EntourageState=4 where id="&EID
+ objConn.Execute sql
+ Else
+ sql="delete from DispatchOrd_Entourage where id="&EID
+ objConn.Execute sql
+ End If
+ sql="insert into DispatchOrd_Entourage (DispatchOrdIDDt,EntourageID,EntourageOAid,EntourageLead,EntourageState,EntourageState_Time,EntourageLong_is,Entourage_Time) values ("&DispatchOrdID&","&EntourageID&","&EntourageOAid_NEW&","&EntourageLead&",3,getdate(),"&EntourageLong_is&",'"&DispatchOrd_NS_Time&"')"
+ objConn.Execute sql
+ weixinMessage="YES"
+ End If
+
+ ElseIf EntourageOAid_NEW<>"" And Not isnull(EID) And CStr(EntourageOAid_NEW)=CStr(EntourageOAid) Then
+ '淇敼闅忚浜哄憳(鏇存柊)
+ sql="update DispatchOrd_Entourage set EntourageLead="&EntourageLead&" where id="&EID
+ objConn.Execute sql
+
+ ElseIf EntourageOAid_NEW<>"" And isnull(EID) Then
+ '鍐欏叆闅忚浜哄憳
+ If is_OldOAid="1" Then
+ %>
+ <script language=javascript>
+ alert('浜哄憳閲嶅,璇烽噸鏂伴�夋嫨');
+ parent.document.getElementById("Entourage_<%=EntourageID%>").innerHTML="<img src='/resources/images/add_user.png'><div class='os_name'><br><%=EntourageName%></div><div class='os_price'>鏈寚娲�</span></div><div class='os_weight'></div>";
+ </script>
+ <%
+ Else
+ sql="insert into DispatchOrd_Entourage (DispatchOrdIDDt,EntourageID,EntourageOAid,EntourageLead,EntourageState,EntourageState_Time,EntourageLong_is,Entourage_Time) values ("&DispatchOrdID&","&EntourageID&","&EntourageOAid_NEW&","&EntourageLead&",3,getdate(),"&EntourageLong_is&",'"&DispatchOrd_NS_Time&"')"
+ objConn.Execute sql
+ weixinMessage="YES"
+ End If
+ End if
+rs.movenext
+loop
+rs.close()
+Call OA_Running("淇敼璋冨害鍗曚汉鍛�(寰俊):"&DispatchOrdID)
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+%>
+<script language=javascript>
+parent.document.getElementById('posi1').style.display='none';
+parent.document.getElementById('posi').style.display='';
+<%if weixinMessage="YES" then
+session("JsonKey")="1"%>
+parent.window.HiddenFrame.location.replace('/weixin/message_send_DispatchOrderEdit.gds?DispatchOrdID=<%=DispatchOrdID%>&EntourageOAid_NEW=<%=EntourageOAid_NEW%>');
+<%end if%>
+</script>
+<%Response.End%>
+
+<%case "38"
+'-------------------------------------------------------------寮鸿瀹屾垚璋冨害鍗�
+DispatchOrdID = SafeRequest(request("DispatchOrdID"))
+DispatchOrdCarID= SafeRequest(request("DispatchOrdCarID"))
+SetOutDateR= SafeRequest(request("SetOutDateR"))
+ReturnDateR= SafeRequest(request("ReturnDateR"))
+StreetMileage= SafeRequest(request("StreetMileage"))
+EndMileage= SafeRequest(request("EndMileage"))
+NEWOrder= SafeRequest(request("NEWOrder"))
+'Response.Write OA_latitude
+'Response.End
+If DispatchOrdID="" Or DispatchOrdCarID="" Or DispatchOrdCarID="0" Or SetOutDateR="" Or ReturnDateR="" then
+ Response.Redirect "/DispatchOrder.gds?SystemMessageType=4&SMT=1&DispatchOrdID="&DispatchOrdID&"&h_menu1_1="&session("h_menu1_1")
+End If
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select top 1 ServiceOrdID,ServiceOrdUnitID,ServiceOrdState,ServiceOrdCoPhone,ServiceOrdCoName,ServiceOrdTraTxnPrice,ToUserUUID from ServiceOrder,DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdID="&DispatchOrdID
+rs.open sql,objConn,1,1
+If not rs.eof Then
+ ServiceOrdID=rs("ServiceOrdID")
+ ServiceOrdUnitID=rs("ServiceOrdUnitID")
+ ServiceOrdState=rs("ServiceOrdState")
+ ServiceOrdCoPhone=rs("ServiceOrdCoPhone")
+ ServiceOrdCoName=rs("ServiceOrdCoName")
+ old_TraTxnPrice=rs("ServiceOrdTraTxnPrice")
+ ToUserUUID=rs("ToUserUUID")
+End If
+rs.close()
+'妫�鏌ョ姸鎬佹槸鍚﹀凡鍑鸿溅
+sql="select DispatchOrdActualDate from DispatchOrd where DispatchOrdActualDate is null and DispatchOrdID="&DispatchOrdID
+rs.open sql,objConn,1,1
+If not rs.eof Then
+ ActualSql=",DispatchOrdActualDate='"&SetOutDateR&"'"
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA,DispatchOrdStartDate,OA_longitude,OA_latitude) values ("&DispatchOrdID&",7,"&session("adminID")&",'"&SetOutDateR&"',0,0)"
+ objConn.Execute sql
+End If
+rs.close()
+
+'閲岀▼鏁拌褰�
+If StreetMileage<>"" And IsNumeric(StreetMileage) Then
+ MileageSql=",DispatchOrdTraStreetMileage="&StreetMileage
+End If
+If EndMileage<>"" And IsNumeric(EndMileage) Then
+ MileageSql=",DispatchOrdTraEndMileage="&EndMileage
+End If
+
+sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA,DispatchOrdStartDate,OA_longitude,OA_latitude) values ("&DispatchOrdID&",8,"&session("adminID")&",'"&ReturnDateR&"',0,0)"
+objConn.Execute sql
+sql="update DispatchOrd set DispatchOrdState=8,DispatchOrdStartDate=getdate(),DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost),DispatchOrdCarID="&DispatchOrdCarID&ActualSql&MileageSql&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID
+objConn.Execute sql
+
+'閲嶇偣璁櫒褰掕繕
+Call DispatchMRPOrderReturn(14,DispatchOrdID)
+
+'鏇存柊鐢ㄦ埛绉垎
+Call UserPointsA(ServiceOrdID,DispatchOrdID)
+
+'钀ラ攢灏忕▼搴忔暟鎹洿鏂�
+If ToUserUUID<>"0" And ToUserUUID<>"" Then
+ sql="select top 1 id,iuid from UserUUID where id="&ToUserUUID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ iuid=rs("iuid")
+ Call Get_TritonshAPI(ToUserUUID,1,ServiceOrdID,iuid,ServiceOrdCoName,ServiceOrdCoPhone,0)
+ End If
+ rs.close()
+End If
+If NEWOrder="3" Then
+ ReturnURL="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ Call OA_Running("鎵嬫満绔畬鎴愯皟搴﹀崟:"&DispatchOrdID)
+else
+ ReturnURL="/DispatchOrder_End.gds?DispatchOrdID="&DispatchOrdID&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=3&SMT=7"
+ Call OA_Running("寮鸿瀹屾垚璋冨害鍗�:"&DispatchOrdID)
+End If
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "39"
+'-------------------------------------------------------------鍛樺伐妯℃嫙鐧婚檰
+OAid = SafeRequest(request("OA_UserID"))
+OA_URL = SafeRequest(request("OA_URL"))
+if isDepartment("060205")=1 And OAid<>"" then
+Set adminrs = Server.CreateObject("ADODB.Recordset")
+sql="select * from OA_User where OA_User_ID="&OAid&" and OA_execLevel>=0"
+adminrs.open sql,objConn,1,1
+if not adminrs.eof then
+ OA_Power=adminrs("OA_Power")
+
+ If InStr(OA_Power,",020114")>0 Then '鏌ョ湅鍏ㄩ儴璁㈠崟鏉冮檺
+ Set IPrs = Server.CreateObject("ADODB.Recordset")
+ sql="select stuff((select ','+vOrder2 from dictionary where vtitle='OrderClass' and vType>0 for xml path('')),1,1,'')"
+ IPrs.open sql,objConn,1,1
+ If not IPrs.eof Then
+ OA_OrderClass=IPrs(0)
+ End If
+ IPrs.close()
+ Else
+ OA_OrderClass=adminrs("OA_OrderClass")
+ End If
+
+ If isnull(OA_Power) Then OA_Power=""
+ session("admin")=adminrs("OA_User")
+ session("adminID")=adminrs("OA_User_ID")
+ session("adminName")=adminrs("OA_Name")
+ session("adminDepartmentID")=adminrs("OA_DepartmentID")
+ session("admin_Power")=OA_Power
+ session("admin_execLevel")=adminrs("OA_execLevel")
+ session("admin_OrderClass")=OA_OrderClass
+ session.Timeout=60
+
+ Response.Cookies("CAME")("admin")=adminrs("OA_User")
+ Response.Cookies("CAME")("adminID")=adminrs("OA_User_ID")
+ Response.Cookies("CAME")("adminName")=adminrs("OA_Name")
+ Response.Cookies("CAME")("adminDepartmentID")=adminrs("OA_DepartmentID")
+ Response.Cookies("CAME")("admin_Power")="|,"&OA_Power
+ Response.Cookies("CAME")("admin_execLevel")=adminrs("OA_execLevel")
+ Response.Cookies("CAME")("admin_OrderClass")=OA_OrderClass
+ Response.Cookies("CAME").Expires=DateAdd("h",8,now())
+end if
+adminrs.close()
+end If
+
+If OA_URL<>"" Then
+ ReturnURL=OA_URL
+Else
+ ReturnURL="/"
+End If
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "40"
+'-------------------------------------------------------------寰俊璁㈠崟鎺ㄩ�佽缃慨鏀�(涓汉)
+OAid = session("adminID")
+PowerID = SafeRequest(request("PowerID"))
+Pis = SafeRequest(request("Pis"))
+
+If OAid<>"" And PowerID<>"" And Pis<>"" then
+ Set rs = Server.CreateObject("ADODB.Recordset")
+ sql="select OA_Power from OA_User where OA_User_ID="&OAid
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ OA_Power=rs("OA_Power")
+ If Pis=1 Then
+ If InStr(OA_Power,","&PowerID&",")<=0 Then
+ OA_Power=OA_Power&PowerID&","
+ End If
+ Else
+ If InStr(OA_Power,","&PowerID&",")>=1 Then
+ OA_Power=Replace(OA_Power,","&PowerID&",",",")
+ End If
+ End If
+ End If
+ rs.close()
+
+ sql="update OA_User set OA_Power='"&OA_Power&"' where OA_User_ID="&OAid
+ objConn.Execute sql
+End If
+rsRollbackTrans(objConn.Errors.count)
+Response.End%>
+
+<%case "41"
+'-------------------------------------------------------------鏂板鎺掔彮琛�
+CompetencyID = SafeRequest(request("CompetencyID"))
+SchedulesDate = SafeRequest(request("SchedulesDate"))
+SchedulesShiftID= SafeRequest(request("SchedulesShiftID"))
+Schedules = SafeRequest(request("Schedules"))
+
+If CompetencyID="" or SchedulesDate="" Or SchedulesShiftID="" or Schedules="" Then Response.Redirect "/AdminUser_Schedules.gds?CompetencyID="&CompetencyID&"&SchedulesDate="&SchedulesDate&"&SchedulesShiftID="&SchedulesShiftID&"&SystemMessageType=1&SMT=2"
+SchedulesDate=FormatDateTime(SchedulesDate,2)
+
+sql="delete from OA_Schedules where SchedulesDate='"&SchedulesDate&"' and CompetencyID="&CompetencyID&" and SchedulesShiftID="&SchedulesShiftID
+objConn.Execute sql
+
+SchedulesSP = SPLIT(Schedules,",")
+
+for i = 1 to UBOUND(SchedulesSP)
+ sql="insert into OA_Schedules (OAid,SchedulesDate,CompetencyID,SchedulesShiftID,SchedulesShiftTOP,SchedulesShiftSum,SchedulesAdminID) values ("&SchedulesSP(i)&",'"&SchedulesDate&"',"&CompetencyID&","&SchedulesShiftID&","&i&","&UBOUND(SchedulesSP)&","&session("adminID")&")"
+ objConn.Execute sql
+next
+
+ReturnURL="/AdminUser_Schedules.gds?CompetencyID="&CompetencyID&"&SchedulesDate="&SchedulesDate&"&SchedulesShiftID="&SchedulesShiftID&"&SystemMessageType=3&SMT=1"
+
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "42"
+'-------------------------------------------------------------淇敼鍛煎彨涓績姹囨�绘暟鎹�(瀛楀吀)
+ID = SafeRequest(request.form("ID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If ID="" Then Response.Redirect "/CallCenter_dictionary.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=1&SMT=1"
+
+ID_SP = SPLIT(ID,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ id = ID_SP(i)
+ vID = SafeRequest(Request("vID_"&ID))
+ vtext = SafeRequest(Request("vtext_"&ID))
+ vtitle = SafeRequest(Request("vtitle_"&ID))
+ vType = SafeRequest(Request("vType_"&ID))
+ vMono = SafeRequest(Request("vMono_"&ID))
+ vOrder = SafeRequest(Request("vOrder_"&ID))
+ vOrder2 = SafeRequest(Request("vOrder2_"&ID))
+
+ vMono = session("adminID")
+ If vID="" Then vID=0
+ If vType="" Then vType=0
+ If vOrder="" Then vOrder=0
+ If vtext="" Or vtitle="" Then Response.Redirect "/CallCenter_dictionary.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=1"
+ sql="select id from dictionary where vtext='"&vtext&"' and vtitle='"&vtitle&"' and id<>"&ID
+ rs.open sql,objConn,1,1
+ if not rs.eof then
+ Response.Redirect "/CallCenter_dictionary.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=4"
+ end If
+ rs.close()
+ sql="update dictionary set vID="&vID&",vtext='"&vtext&"',vtitle='"&vtitle&"',vType="&vType&",vMono='"&vMono&"',vOrder="&vOrder&",vOrder2='"&vOrder2&"' where id="&ID
+ objConn.Execute sql
+Next
+
+ReturnURL="CallCenter_dictionary.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "43"
+'-------------------------------------------------------------鏂板鍛煎彨涓績姹囨�绘暟鎹�(瀛楀吀)
+vID = SafeRequest(Request("vID"))
+vtext = SafeRequest(Request("vtext"))
+vtitle = SafeRequest(Request("vtitle"))
+vType = SafeRequest(Request("vType"))
+vMono = SafeRequest(Request("vMono"))
+vOrder = SafeRequest(Request("vOrder"))
+vOrder2 = SafeRequest(Request("vOrder2"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+
+vMono = session("adminID")
+If vtext="" Or vtitle="" Then Response.Redirect "/CallCenter_dictionary.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=1"
+
+If vID="" Then vID=0
+If vType="" Then vType=0
+If vOrder="" Then vOrder=0
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select id from dictionary where vID="&vID&" and vtext='"&vtext&"' and vtitle='"&vtitle&"'"
+rs.open sql,objConn,1,1
+if not rs.eof then
+ Response.Redirect "/CallCenter_dictionary.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=4"
+end If
+rs.close()
+sql="insert into dictionary (vID,vtext,vtitle,vType,vMono,vOrder,vOrder2) values ("&vID&",'"&vtext&"','"&vtitle&"',"&vType&",'"&vMono&"',"&vOrder&",'"&vOrder2&"')"
+Response.Write sql
+objConn.Execute sql
+
+
+ReturnURL="CallCenter_dictionary.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "44"
+'-------------------------------------------------------------鍒犻櫎鍛煎彨涓績姹囨�绘暟鎹�(瀛楀吀)
+ID = trim(Request("ID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If ID="" Then Response.Redirect "/CallCenter_dictionary.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=1"
+
+sql="delete from dictionary where id in ("&ID&")"
+objConn.Execute sql
+
+
+ReturnURL="CallCenter_dictionary.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=4&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "45"
+'-------------------------------------------------------------鍔犵彮鍗曞鏍�/涓嶉�氳繃
+OtCheckID = SafeRequest(request.form("OtCheckID"))
+searchTXT = SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+OT_Check = SafeRequest(request.form("OT_Check"))
+OrdState= SafeRequest(request.form("OrdState"))
+OrdClassList= SafeRequest(request.form("OrdClassList"))
+OrdDateType = SafeRequest(request.form("OrdDateType"))
+
+If OtCheckID="" Then
+ Response.Redirect "/DispatchOtCheck_List.gds?searchTXT="&searchTXT&"&page="&page&"&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&SystemMessageType=1&SMT=1"
+End If
+
+OtCheckID_SP = SPLIT(OtCheckID,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(OtCheckID_SP)
+ OtCheckID = OtCheckID_SP(i)
+ EntourageOT_is = SafeRequest(request.form("EntourageOT_is_"&OtCheckID))
+ EntourageOT2_is = SafeRequest(request.form("EntourageOT2_is_"&OtCheckID))
+ EntourageBetimesHH = SafeRequest(request.form("EntourageBetimesHH_"&OtCheckID))
+ If EntourageOT_is="" Then EntourageOT_is=0
+ If EntourageOT2_is="" Then EntourageOT2_is=0
+ If EntourageBetimesHH="" Then EntourageBetimesHH=0
+ sql="select EntourageOT_is,EntourageOT2_is,EntourageBetimesHH,Check_is,Check_Time,Check_OAid from DispatchOrd_Entourage where id="&OtCheckID
+ rs.open sql,objConn,1,1
+ if not rs.eof then
+ Check_is = rs("Check_is")
+ end If
+ rs.close()
+ If Check_is=1 Or (Check_is=2 And OT_Check=2) Or (Check_is=4 And OT_Check=4) Then
+ '瀹℃牳鐘舵�侀敊璇�
+ Response.Redirect "/DispatchOtCheck_List.gds?searchTXT="&searchTXT&"&page="&page&"&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&SystemMessageType=4&SMT=2"
+ End If
+ If OT_Check=0 then
+ sql="update DispatchOrd_Entourage set Check_is="&OT_Check&",Check_Time=null,Check_OAid=null where id="&OtCheckID
+ Else
+ sql="update DispatchOrd_Entourage set EntourageOT_is="&EntourageOT_is&",EntourageOT2_is="&EntourageOT2_is&",EntourageBetimesHH="&EntourageBetimesHH&",Check_is="&OT_Check&",Check_Time=getdate(),Check_OAid="&session("adminID")&" where id="&OtCheckID
+ End If
+ objConn.Execute sql
+Next
+
+ReturnURL="/DispatchOtCheck_List.gds?searchTXT="&searchTXT&"&page="&page&"&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType
+rsRollbackTrans(objConn.Errors.count)
+If OT_Check="2" Then
+ Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=23"
+ElseIf OT_Check="4" Then
+ Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=24"
+Else
+ Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=25"
+End If
+Response.End%>
+
+<%case "46"
+'-------------------------------------------------------------淇敼鎺掔彮鐘舵��
+CompetencyID = SafeRequest(request("CompetencyID"))
+SchedulesDate = SafeRequest(request("SchedulesDate"))
+SchedulesShiftID= SafeRequest(request("SchedulesShiftID"))
+SId = SafeRequest(request("Sid")) '鎺掔彮琛↖D
+SId_SP = SPLIT(SId,", ")
+for i=0 to ubound(SId_SP)
+ SId = SId_SP(i)
+ SchedulesTypeManeuver=SafeRequest(Request("SchedulesTypeManeuver_"&SId))'鍔犵彮
+ SchedulesTypeManeuver1=SafeRequest(Request("SchedulesTypeManeuver1_"&SId))'涓嶅姞鐝�
+ SchedulesTypeAM = SafeRequest(Request("SchedulesTypeAM_"&SId)) '浼戜笂鍗�
+ SchedulesTypePM = SafeRequest(Request("SchedulesTypePM_"&SId)) '浼戜笅鍗�
+ If SchedulesTypeManeuver="" Then SchedulesTypeManeuver=2
+ If SchedulesTypeManeuver1<>"" Then SchedulesTypeManeuver=SchedulesTypeManeuver1
+ If SchedulesTypeAM="" Then SchedulesTypeAM=0
+ If SchedulesTypePM="" Then SchedulesTypePM=0
+ '鏇存柊鎺掔彮鐘舵��
+ sql="update OA_Schedules set SchedulesTypeManeuver="&SchedulesTypeManeuver&",SchedulesTypeAM="&SchedulesTypeAM&",SchedulesTypePM="&SchedulesTypePM&" where id="&SId
+ objConn.Execute sql
+Next
+
+ReturnURL="/AdminUser_Schedules.gds?CompetencyID="&CompetencyID&"&SchedulesDate="&SchedulesDate&"&SchedulesShiftID="&SchedulesShiftID&"&SystemMessageType=3&SMT=1"
+
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "47"
+'-------------------------------------------------------------鏂板鍖婚櫌
+HospName = SafeRequest(Request("HospName"))
+HospShort = SafeRequest(Request("HospShort"))
+HospLevel = SafeRequest(Request("HospLevel"))
+HopsProvince = SafeRequest(Request("HopsProvince"))
+HopsCity = SafeRequest(Request("HopsCity"))
+HopsArea = SafeRequest(Request("HopsArea"))
+HospAddress = SafeRequest(Request("HospAddress"))
+HospTEL = SafeRequest(Request("HospTEL"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If HospName="" Then Response.Redirect "/HospData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=1"
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select HospID from HospData where HospName='"&HospName&"' and HospState=1"
+rs.open sql,objConn,1,1
+if not rs.eof then
+ Response.Redirect "/HospData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=5"
+end If
+rs.close()
+sql="insert into HospData (HospName,HospShort,HopsProvince,HopsCity,HopsArea,HospAddress,HospTEL,HospState,HospLevel) values ('"&HospName&"','"&HospShort&"','"&HopsProvince&"','"&HopsCity&"','"&HopsArea&"','"&HospAddress&"','"&HospTEL&"',1,"&HospLevel&")"
+objConn.Execute sql
+
+
+ReturnURL="HospData.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+Response.End%>
+
+<%case "48"
+'-------------------------------------------------------------淇敼鍖婚櫌
+HospID = SafeRequest(request.form("HospID"))
+HospSearchID = SafeRequest(request.form("HospSearchID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If page="" Then page=1
+If HospID="" Then Response.Redirect "/HospData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=6"
+ID_SP = SPLIT(HospID,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ id = ID_SP(i)
+ HospName= SafeRequest(Request("HospName_"&ID))
+ HospShort = SafeRequest(Request("HospShort_"&ID))
+ HospLevel = SafeRequest(Request("HospLevel_"&ID))
+ HopsProvince= SafeRequest(Request("HopsProvince_"&ID))
+ HopsCity = SafeRequest(Request("HopsCity_"&ID))
+ HopsArea = SafeRequest(Request("HopsArea_"&ID))
+ HospAddress = SafeRequest(Request("HospAddress_"&ID))
+ HospTEL = SafeRequest(Request("HospTEL_"&ID))
+ HospOAID = Trim(SafeRequest(Request("HospOAID_"&ID)))
+ HospIntroducerID = Trim(SafeRequest(Request("HospIntroducerID_"&ID)))
+ If HospOAID<>"" Then HospOAID=Replace(HospOAID," ","")
+ If InStr(HospOAID,",")>0 Then HospOAID=","&HospOAID&","
+ If HospLevel="" Then HospLevel=0
+ If HospIntroducerID="" Then HospIntroducerID=0
+ If HospName="" Then Response.Redirect "/HospData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=1"
+ sql="select HospID from HospData where HospName='"&HospName&"' and HospState=1 and HospID<>"&ID
+ rs.open sql,objConn,1,1
+ if not rs.eof then
+ Response.Redirect "/HospData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=5"
+ end If
+ rs.close()
+ sql="select HospName from HospData where HospID="&ID
+ rs.open sql,objConn,1,1
+ oldHospName=rs(0)
+ rs.close()
+ sql="update dictionary set vtext='"&HospName&"' where vtitle='HospName' and vtext='"&oldHospName&"'"
+ objConn.Execute sql
+ sql="update HospData set HospName='"&HospName&"',HospShort='"&HospShort&"',HopsProvince='"&HopsProvince&"',HopsCity='"&HopsCity&"',HopsArea='"&HopsArea&"',HospAddress='"&HospAddress&"',HospTEL='"&HospTEL&"',HospOAID='"&HospOAID&"',HospIntroducerID="&HospIntroducerID&",HospLevel="&HospLevel&" where HospID="&ID
+ objConn.Execute sql
+Next
+
+ReturnURL="HospData.gds?searchTXT="&searchTXT&"&page="&page&"&HospSearchID="&HospSearchID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2"
+Response.End%>
+
+<%case "49"
+'-------------------------------------------------------------鍒犻櫎鍖婚櫌
+HospID = SafeRequest(request.form("HospID"))
+HospSearchID = SafeRequest(request.form("HospSearchID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If HospID="" Then Response.Redirect "/HospData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=6"
+
+sql="update HospData set HospState=0 where HospID in ("&HospID&")"
+objConn.Execute sql
+
+
+ReturnURL="HospData.gds?searchTXT="&searchTXT&"&page="&page&"&HospSearchID="&HospSearchID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=4"
+Response.End%>
+
+
+<%case "50"
+'-------------------------------------------------------------鏂板杞﹁締缁翠慨淇濆吇璁板綍
+RepairCarID = SafeRequest(Request("RepairCarID"))
+RepairMileage = SafeRequest(Request("RepairMileage"))
+MaintenanceItem = SafeRequest(Request("MaintenanceItem"))
+ReplacementParts = SafeRequest(Request("ReplacementParts"))
+MaterialMoney = SafeRequest(Request("MaterialMoney"))
+ManHourMoney = SafeRequest(Request("ManHourMoney"))
+MaintenancePlace = SafeRequest(Request("MaintenancePlace"))
+RepairDate = SafeRequest(Request("RepairDate"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If RepairCarID="" Then Response.Redirect "/CarRepair.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=1"
+
+If MaterialMoney="" Then MaterialMoney=0
+If ManHourMoney="" Then ManHourMoney=0
+If RepairDate="" Then RepairDate=now()
+
+sql="insert into CarRepair (RepairCarID,RepairMileage,MaintenanceItem,ReplacementParts,MaterialMoney,ManHourMoney,MaintenancePlace,RepairDate,OAID) values ("&RepairCarID&",'"&RepairMileage&"','"&MaintenanceItem&"','"&ReplacementParts&"',"&MaterialMoney&","&ManHourMoney&",'"&MaintenancePlace&"','"&RepairDate&"',"&session("adminID")&")"
+objConn.Execute sql
+
+
+ReturnURL="CarRepair.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+Response.End%>
+
+<%case "51"
+'-------------------------------------------------------------淇敼杞﹁締缁翠慨淇濆吇璁板綍
+CarRepairID = SafeRequest(Request("CarRepairID"))
+RepairCarID = SafeRequest(Request("RepairCarID"))
+RepairMileage = SafeRequest(Request("RepairMileage"))
+MaintenanceItem = SafeRequest(Request("MaintenanceItem"))
+ReplacementParts = SafeRequest(Request("ReplacementParts"))
+MaterialMoney = SafeRequest(Request("MaterialMoney"))
+ManHourMoney = SafeRequest(Request("ManHourMoney"))
+MaintenancePlace = SafeRequest(Request("MaintenancePlace"))
+RepairDate = SafeRequest(Request("RepairDate"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If RepairCarID="" Or CarRepairID="" Then Response.Redirect "/CarRepair.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=4"
+
+If MaterialMoney="" Then MaterialMoney=0
+If ManHourMoney="" Then ManHourMoney=0
+If RepairDate="" Then RepairDate=now()
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+
+sql="update CarRepair set RepairCarID="&RepairCarID&",RepairMileage='"&RepairMileage&"',MaintenanceItem='"&MaintenanceItem&"',ReplacementParts='"&ReplacementParts&"',MaterialMoney="&MaterialMoney&",ManHourMoney="&ManHourMoney&",MaintenancePlace='"&MaintenancePlace&"',RepairDate='"&RepairDate&"',OAID="&session("adminID")&",OATime=getdate() where id="&CarRepairID
+objConn.Execute sql
+
+
+ReturnURL="CarRepair.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+Response.End%>
+
+<%case "52"
+'-------------------------------------------------------------鍒犻櫎杞﹁締缁翠慨淇濆吇璁板綍
+CarRepairID = SafeRequest(request.form("CarRepairID"))
+Car_Check = SafeRequest(request.form("Car_Check"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If CarRepairID="" Or Car_Check="" Then Response.Redirect "/CarRepair.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=6"
+
+sql="update CarRepair set RepairState="&Car_Check&" where id in ("&CarRepairID&")"
+objConn.Execute sql
+
+
+ReturnURL="CarRepair.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=5"
+Response.End%>
+
+
+<%case "53"
+'-------------------------------------------------------------鏂板杞﹁締杩濈珷璁板綍
+IllegalCarID = SafeRequest(Request("IllegalCarID")) '杞﹁締ID
+ViolationEvent = SafeRequest(Request("ViolationEvent")) '杩濈珷浜嬩欢
+IllegalItems = SafeRequest(Request("IllegalItems")) '杩濈珷椤圭洰
+IllegalPeopleID = SafeRequest(Request("IllegalPeopleID")) '杩濈珷浜篒D
+Points = SafeRequest(Request("Points")) '鎵ｅ垎
+fine = SafeRequest(Request("fine")) '缃氭
+is_Payment = SafeRequest(Request("is_Payment")) '鏄惁宸茬即娆� 0鍚�,1鏄�
+IllegalDate = SafeRequest(Request("IllegalDate")) '杩濈珷鏃堕棿
+
+If IllegalCarID="" Or IllegalPeopleID="" Then Response.Redirect "/CarIllegal.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=1"
+
+If Points="0" Then Points=""
+If fine="0" Then fine=""
+If is_Payment="" Then is_Payment=0
+If IllegalDate="" Then IllegalDate=now()
+
+sql="insert into CarIllegal (IllegalCarID,ViolationEvent,IllegalItems,IllegalPeopleID,Points,fine,is_Payment,IllegalDate,OAID) values ("&IllegalCarID&",'"&ViolationEvent&"','"&IllegalItems&"',"&IllegalPeopleID&",'"&Points&"','"&fine&"',"&is_Payment&",'"&IllegalDate&"',"&session("adminID")&")"
+objConn.Execute sql
+
+ReturnURL="CarIllegal.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+Response.End%>
+
+
+<%case "54"
+'-------------------------------------------------------------淇敼杞﹁締杩濈珷璁板綍
+CarIllegalID = SafeRequest(Request("CarIllegalID")) '璁板綍ID
+IllegalCarID = SafeRequest(Request("IllegalCarID")) '杞﹁締ID
+ViolationEvent = SafeRequest(Request("ViolationEvent")) '杩濈珷浜嬩欢
+IllegalItems = SafeRequest(Request("IllegalItems")) '杩濈珷椤圭洰
+IllegalPeopleID = SafeRequest(Request("IllegalPeopleID")) '杩濈珷浜篒D
+Points = SafeRequest(Request("Points")) '鎵ｅ垎
+fine = SafeRequest(Request("fine")) '缃氭
+is_Payment = SafeRequest(Request("is_Payment")) '鏄惁宸茬即娆� 0鍚�,1鏄�
+IllegalDate = SafeRequest(Request("IllegalDate")) '杩濈珷鏃堕棿
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If IllegalCarID="" Or CarIllegalID="" Or IllegalPeopleID="" Then Response.Redirect "/CarIllegal.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=4"
+
+If Points="0" Then Points=""
+If fine="0" Then fine=""
+If is_Payment="" Then is_Payment=0
+If IllegalDate="" Then IllegalDate=now()
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+
+sql="update CarIllegal set IllegalCarID="&IllegalCarID&",ViolationEvent='"&ViolationEvent&"',IllegalItems='"&IllegalItems&"',IllegalPeopleID="&IllegalPeopleID&",Points='"&Points&"',fine='"&fine&"',is_Payment="&is_Payment&",IllegalDate='"&IllegalDate&"',OAID="&session("adminID")&",OATime=getdate() where id="&CarIllegalID
+objConn.Execute sql
+
+ReturnURL="CarIllegal.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+Response.End%>
+
+<%case "55"
+'-------------------------------------------------------------鍒犻櫎杞﹁締杩濈珷璁板綍
+CarIllegalID = SafeRequest(request.form("CarIllegalID"))
+Car_Check = SafeRequest(request.form("Car_Check"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If CarIllegalID="" Or Car_Check="" Then Response.Redirect "/CarIllegal.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=6"
+
+sql="update CarIllegal set IllegalState="&Car_Check&" where id in ("&CarIllegalID&")"
+objConn.Execute sql
+
+
+ReturnURL="CarIllegal.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=5"
+Response.End%>
+
+<%case "56_1"
+'-------------------------------------------------------------鍑鸿溅鐗╁搧妫�鏌1
+DispatchOrdID = SafeRequest(request("DispatchOrdID"))
+CarStItm = SafeRequest(request("CarStItm"))
+
+
+Call OA_Running("鎻愪氦鎴愬姛:"&DispatchOrdID&"|"&CarStItm)
+rsRollbackTrans(objConn.Errors.count)
+Response.Write "鎻愪氦鎴愬姛"
+Response.End%>
+
+
+<%case "56"
+'-------------------------------------------------------------鍑鸿溅鐗╁搧妫�鏌�
+DispatchOrdID = SafeRequest(request.form("DispatchOrdID"))
+CarStItm = SafeRequest(request.form("CarStItm"))
+
+If DispatchOrdID="" Then Response.Redirect "/"
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select * from DispatchOrd where DispatchOrdState>0 and DispatchOrdID="&DispatchOrdID
+rs.open sql,objConn,1,1
+If not rs.Eof Then
+ CarID = rs("DispatchOrdCarID")
+ DispatchOrdNo = rs("DispatchOrdClass")& year(rs("DispatchOrd_NS_Time"))&Right("0"&month(rs("DispatchOrd_NS_Time")),2)&Right("0"&day(rs("DispatchOrd_NS_Time")),2) & "-"&Right("00"&rs("DispatchOrdNo"),3) '璋冨害鍗曠紪鍙�
+Else
+ Response.Redirect "/"
+End If
+rs.close()
+'MRP_OrderID="MRP-14-3016011184"
+MRP_OrderID=NewDispatchMRPOrderID(14,DispatchOrdID,"Out") '鐢熸垚鍗曟嵁缂栧彿
+sql="delete from MRP_OrderManoeuvre where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+sql="delete from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"'"
+objConn.Execute sql
+sql="delete from MRP_Stock where MRP_OrderIDPK='"&MRP_OrderID&"'"
+objConn.Execute sql
+sql="delete from DispatchOrd_StItm where DispatchOrdIDDt="&DispatchOrdID
+objConn.Execute sql
+
+If CarStItm<>"" Then
+ '杞粨鍗曚俊鎭�
+ OutWarehouseID=2 '杞嚭浠�(闆嗙洓鎬婚儴姝ｅ父浠撲竴)
+ InWarehouseID=5 '杞叆浠�(鍑鸿溅浠诲姟)
+ OrderRemarks=DispatchOrdNo
+ TotalQty=0
+ OD_Price=0
+ OD_Qty=1
+
+ CarStItmSP = SPLIT(CarStItm,"|")
+ for i=1 to ubound(CarStItmSP)
+ DStItmSP = SPLIT(CarStItmSP(i),",")
+ DispatchStItmID = DStItmSP(0)
+ DispatchStItmInt = DStItmSP(1)
+ If DispatchStItmID<>"" And DispatchStItmInt<>"" And DispatchStItmInt<>"0" Then
+ sql="select top 1 strItmID,strItmClassID from tblStItm where (strItmName in (select strItmName+'#'+'"&DispatchStItmInt&"' from tblStItm where strItmID="&DispatchStItmID&") or strItmID="&DispatchStItmID&") and strItmClassID<>9 and strItmState=1"
+ rs.open sql,objConn,1,1
+ if rs.Eof Then%>
+ <script lnguage=javascript>
+ alert("鐗╁搧缂栧彿閿欒,璇烽噸鏂拌緭鍏�!");
+ window.location.href="/m_CarStItm.gds?DispatchOrdID=<%=DispatchOrdID%>"
+ </script>
+ <%Response.End()
+ end If
+ StItmID=rs(0)
+ StItmClassID=rs(1)
+ If StItmClassID="8" Then
+ OD_Qty=1
+ Else
+ OD_Qty=DispatchStItmInt
+ End If
+ TotalQty=TotalQty+OD_Qty
+ OD_Remarks=DispatchOrdID
+ rs.close()
+ '鏂板缓杞粨鍗曞瓙鍗�
+ sql="insert into MRP_OrderDetail (MRP_OrderIDPK,StItmIDPK,OD_Qty,OD_QtyA,OD_Price,OD_Remarks) values ('"&MRP_OrderID&"',"&StItmID&","&OD_Qty&","&OD_Qty&",0,'"&OD_Remarks&"')"
+ objConn.Execute sql
+ sql="insert into MRP_Stock (StItmIDPK,StockQty,StockWarehouseID,MRP_OrderIDPK,StockTime_OAid) values ("&StItmID&","&-OD_Qty&",'"&OutWarehouseID&"','"&MRP_OrderID&"',"&session("adminID")&")"
+ objConn.Execute sql
+ sql="insert into MRP_Stock (StItmIDPK,StockQty,StockWarehouseID,MRP_OrderIDPK,StockTime_OAid) values ("&StItmID&","&OD_Qty&",'"&InWarehouseID&"','"&MRP_OrderID&"',"&session("adminID")&")"
+ objConn.Execute sql
+ sql="insert into DispatchOrd_StItm (DispatchOrdIDDt,DispatchStItmID,DispatchStItmInt,DispatchStItmOAID) values ("&DispatchOrdID&","&DispatchStItmID&","&DispatchStItmInt&","&session("adminID")&")"
+ objConn.Execute sql
+ End If
+ Next
+
+ '鏂板缓杞粨鍗曞ぇ鍗�
+ sql="insert into MRP_OrderManoeuvre (MRP_OrderID,OutWarehouseID,InWarehouseID,OrderState,OrderTime_OAid,TotalQty,OrderRemarks,AuditTime,AuditTime_OAid,OutTime,OutTime_OAid,InTime,InTime_OAid) values ('"&MRP_OrderID&"',"&OutWarehouseID&","&InWarehouseID&",3,"&session("adminID")&","&TotalQty&",'"&OrderRemarks&"',getdate(),"&session("adminID")&",getdate(),"&session("adminID")&",getdate(),"&session("adminID")&")"
+ objConn.Execute sql
+End If
+sql="update DispatchOrd set CarStItm='"&CarStItm&"',CarStItm_OAId="&session("adminID")&",CarStItm_Time=getdate(),DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+objConn.Execute sql
+
+ReturnURL="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+Call OA_Running("鍑鸿溅鐗╁搧妫�鏌�:"&DispatchOrdID)
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+
+<%case "57"
+'-------------------------------------------------------------鏂板杞﹁締鍔犳补璁板綍
+GasCarID = SafeRequest(Request("GasCarID"))
+GasDate = SafeRequest(Request("GasDate"))
+GasMileage = SafeRequest(Request("GasMileage"))
+GasVolume = SafeRequest(Request("GasVolume"))
+GasPrice = SafeRequest(Request("GasPrice"))
+GasMacSumPrice= SafeRequest(Request("GasMacSumPrice"))
+GasSumPrice = SafeRequest(Request("GasSumPrice"))
+GasType = SafeRequest(Request("GasType"))
+GasStation = SafeRequest(Request("GasStation"))
+GasPayment = SafeRequest(Request("GasPayment"))
+GasRemarks = SafeRequest(Request("GasRemarks"))
+is_JumpGun = SafeRequest(Request("is_JumpGun"))
+GasList = SafeRequest(Request("GasList"))
+searchTXT=SafeRequest(request("searchTXT"))
+page = SafeRequest(request("page"))
+If GasCarID="" Then Response.Redirect "/CarGas.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=1"
+
+If GasMileage="" Then GasMileage=0
+If GasVolume="" Then GasVolume=0
+If GasPrice="" Then GasPrice=0
+If GasMacSumPrice="" Then GasMacSumPrice=0
+If GasSumPrice="" Then GasSumPrice=0
+If GasDate="" Then GasDate=now()
+If is_JumpGun="" Then is_JumpGun=2
+If CInt(GasPrice)>CInt(GasVolume) And CInt(GasVolume)<12 And CInt(GasVolume)>0 And CInt(GasPrice)>0 Then
+ GasPrice1=GasPrice
+ GasPrice=GasVolume
+ GasVolume=GasPrice1
+End If
+
+sql="insert into CarGas (GasCarID,GasDate,GasMileage,GasVolume,GasPrice,GasMacSumPrice,GasSumPrice,GasType,GasStation,GasPayment,GasRemarks,is_JumpGun,OAID) values ("&GasCarID&",'"&GasDate&"','"&GasMileage&"',"&GasVolume&","&GasPrice&","&GasMacSumPrice&","&GasSumPrice&",'"&GasType&"','"&GasStation&"','"&GasPayment&"','"&GasRemarks&"',"&is_JumpGun&","&session("adminID")&")"
+objConn.Execute sql
+
+ReturnURL="CarGas.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+If admin_save_type="json" Then
+ webJson="{""result"":1,""GasList"":"""&GasList&"""}"
+ Response.Write webJson
+Else
+ Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+End If
+Response.End%>
+
+<%case "58"
+'-------------------------------------------------------------淇敼杞﹁締鍔犳补璁板綍
+CarGasID = SafeRequest(Request("CarGasID"))
+GasCarID = SafeRequest(Request("GasCarID"))
+GasDate = SafeRequest(Request("GasDate"))
+GasMileage = SafeRequest(Request("GasMileage"))
+GasVolume = SafeRequest(Request("GasVolume"))
+GasPrice = SafeRequest(Request("GasPrice"))
+GasMacSumPrice= SafeRequest(Request("GasMacSumPrice"))
+GasSumPrice = SafeRequest(Request("GasSumPrice"))
+GasType = SafeRequest(Request("GasType"))
+GasStation = SafeRequest(Request("GasStation"))
+GasPayment = SafeRequest(Request("GasPayment"))
+GasRemarks = SafeRequest(Request("GasRemarks"))
+is_JumpGun = SafeRequest(Request("is_JumpGun"))
+GasList = SafeRequest(Request("GasList"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If CarGasID="" Or GasCarID="" Then Response.Redirect "/CarGas.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=4"
+
+If GasMileage="" Then GasMileage=0
+If GasVolume="" Then GasVolume=0
+If GasPrice="" Then GasPrice=0
+If GasSumPrice="" Then GasSumPrice=0
+If is_JumpGun="" Then is_JumpGun=0
+If GasDate="" Then GasDate=now()
+If CInt(GasPrice)>CInt(GasVolume) And CInt(GasVolume)<12 And CInt(GasVolume)>0 And CInt(GasPrice)>0 Then
+ GasPrice1=GasPrice
+ GasPrice=GasVolume
+ GasVolume=GasPrice1
+End If
+
+sql="update CarGas set GasCarID="&GasCarID&",GasDate='"&GasDate&"',GasMileage='"&GasMileage&"',GasVolume="&GasVolume&",GasPrice="&GasPrice&",GasMacSumPrice="&GasMacSumPrice&",GasSumPrice="&GasSumPrice&",GasType='"&GasType&"',GasStation='"&GasStation&"',GasPayment='"&GasPayment&"',GasRemarks='"&GasRemarks&"',is_JumpGun="&is_JumpGun&" where id="&CarGasID
+objConn.Execute sql
+
+ReturnURL="CarGas.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+If admin_save_type="json" Then
+ webJson="{""result"":1,""GasList"":"""&GasList&"""}"
+ Response.Write webJson
+Else
+ Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+End If
+
+Response.End%>
+
+<%case "59"
+'-------------------------------------------------------------鍒犻櫎杞﹁締鍔犳补璁板綍
+CarGasID = SafeRequest(request.form("CarGasID"))
+Car_Check = SafeRequest(request.form("Car_Check"))
+GasList = SafeRequest(Request("GasList"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If CarGasID="" Or Car_Check="" Then Response.Redirect "/CarGas.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=6"
+
+sql="update CarGas set GasState="&Car_Check&" where id in ("&CarGasID&")"
+objConn.Execute sql
+
+
+ReturnURL="CarGas.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+If admin_save_type="json" Then
+ webJson="{""result"":1,""GasList"":"""&GasList&"""}"
+ Response.Write webJson
+Else
+ Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=5"
+End If
+
+Response.End%>
+
+
+<%case "60"
+'-------------------------------------------------------------淇敼浠撳簱
+ID = SafeRequest(request.form("ID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If ID="" Then Response.Redirect "/MRP_Warehouse.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=1&SMT=4"
+
+ID_SP = SPLIT(ID,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ id = ID_SP(i)
+ WarehouseName = SafeRequest(Request("WarehouseName_"&ID))
+ WarehouseType = SafeRequest(Request("WarehouseType_"&ID))
+ WarehouseContact= SafeRequest(Request("WarehouseContact_"&ID))
+ WarehouseTEL = SafeRequest(Request("WarehouseTEL_"&ID))
+ WarehouseAddress= SafeRequest(Request("WarehouseAddress_"&ID))
+ WarehouseRemarks= SafeRequest(Request("WarehouseRemarks_"&ID))
+ If WarehouseType="" Then WarehouseType=1
+ If WarehouseName="" Then Response.Redirect "/MRP_Warehouse.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=1"
+ sql="select WarehouseID from MRP_Warehouse where WarehouseName='"&WarehouseName&"' and WarehouseID<>"&ID
+ rs.open sql,objConn,1,1
+ if not rs.eof then
+ Response.Redirect "/MRP_Warehouse.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=2"
+ end If
+ rs.close()
+ sql="update MRP_Warehouse set WarehouseName='"&WarehouseName&"',WarehouseType="&WarehouseType&",WarehouseContact='"&WarehouseContact&"',WarehouseTEL='"&WarehouseTEL&"',WarehouseAddress='"&WarehouseAddress&"',WarehouseRemarks='"&WarehouseRemarks&"' where WarehouseID="&ID
+ objConn.Execute sql
+Next
+
+ReturnURL="MRP_Warehouse.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=5&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "61"
+'-------------------------------------------------------------鏂板浠撳簱
+WarehouseName = SafeRequest(Request("WarehouseName"))
+WarehouseContact= SafeRequest(Request("WarehouseContact"))
+WarehouseTEL = SafeRequest(Request("WarehouseTEL"))
+WarehouseAddress= SafeRequest(Request("WarehouseAddress"))
+WarehouseRemarks= SafeRequest(Request("WarehouseRemarks"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If WarehouseName="" Then Response.Redirect "/MRP_Warehouse.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=1"
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select WarehouseID from MRP_Warehouse where WarehouseName='"&WarehouseName&"'"
+rs.open sql,objConn,1,1
+if not rs.eof then
+ Response.Redirect "/MRP_Warehouse.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=2"
+end If
+rs.close()
+sql="insert into MRP_Warehouse (WarehouseName,WarehouseContact,WarehouseTEL,WarehouseAddress,WarehouseRemarks) values ('"&WarehouseName&"','"&WarehouseContact&"','"&WarehouseTEL&"','"&WarehouseAddress&"','"&WarehouseRemarks&"')"
+objConn.Execute sql
+
+
+ReturnURL="MRP_Warehouse.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "62"
+'-------------------------------------------------------------鍒犻櫎浠撳簱
+ID = trim(Request("ID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If ID="" Then Response.Redirect "/MRP_Warehouse.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=4"
+
+sql="delete from MRP_Warehouse where WarehouseID in ("&ID&")"
+objConn.Execute sql
+
+
+ReturnURL="MRP_Warehouse.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=6&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "63"
+'-------------------------------------------------------------淇敼渚涘簲鍟�
+ID = SafeRequest(request.form("ID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If ID="" Then Response.Redirect "/MRP_Supplier.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=1&SMT=4"
+
+ID_SP = SPLIT(ID,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ id = ID_SP(i)
+ SupplierName = SafeRequest(Request("SupplierName_"&ID))
+ SupplierContact= SafeRequest(Request("SupplierContact_"&ID))
+ SupplierTEL = SafeRequest(Request("SupplierTEL_"&ID))
+ SupplierAddress= SafeRequest(Request("SupplierAddress_"&ID))
+ SupplierRemarks= SafeRequest(Request("SupplierRemarks_"&ID))
+ If SupplierName="" Then Response.Redirect "/MRP_Supplier.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=1"
+ sql="select SupplierID from MRP_Supplier where SupplierName='"&SupplierName&"' and SupplierID<>"&ID
+ rs.open sql,objConn,1,1
+ if not rs.eof then
+ Response.Redirect "/MRP_Supplier.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=2"
+ end If
+ rs.close()
+ sql="update MRP_Supplier set SupplierName='"&SupplierName&"',SupplierContact='"&SupplierContact&"',SupplierTEL='"&SupplierTEL&"',SupplierAddress='"&SupplierAddress&"',SupplierRemarks='"&SupplierRemarks&"' where SupplierID="&ID
+ objConn.Execute sql
+Next
+
+ReturnURL="MRP_Supplier.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=5&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "64"
+'-------------------------------------------------------------鏂板渚涘簲鍟�
+SupplierName = SafeRequest(Request("SupplierName"))
+SupplierContact= SafeRequest(Request("SupplierContact"))
+SupplierTEL = SafeRequest(Request("SupplierTEL"))
+SupplierAddress= SafeRequest(Request("SupplierAddress"))
+SupplierRemarks= SafeRequest(Request("SupplierRemarks"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If SupplierName="" Then Response.Redirect "/MRP_Supplier.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=1"
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select SupplierID,SupplierState from MRP_Supplier where SupplierName='"&SupplierName&"'"
+rs.open sql,objConn,1,1
+if not rs.eof Then
+ SupplierID = rs("SupplierID")
+ SupplierState=rs("SupplierState")
+ If SupplierState=0 Then
+ sql="update MRP_Supplier set SupplierName='"&SupplierName&"',SupplierContact='"&SupplierContact&"',SupplierTEL='"&SupplierTEL&"',SupplierAddress='"&SupplierAddress&"',SupplierRemarks='"&SupplierRemarks&"',SupplierState=1 where SupplierID="&SupplierID
+ objConn.Execute sql
+ else
+ Response.Redirect "/MRP_Supplier.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=2"
+ End If
+Else
+ sql="insert into MRP_Supplier (SupplierName,SupplierContact,SupplierTEL,SupplierAddress,SupplierRemarks,SupplierState) values ('"&SupplierName&"','"&SupplierContact&"','"&SupplierTEL&"','"&SupplierAddress&"','"&SupplierRemarks&"',1)"
+ objConn.Execute sql
+end If
+rs.close()
+
+
+ReturnURL="MRP_Supplier.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "65"
+'-------------------------------------------------------------鍒犻櫎渚涘簲鍟�
+ID = trim(Request("ID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If ID="" Then Response.Redirect "/MRP_Supplier.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=4"
+
+sql="update MRP_Supplier set SupplierState=0 where SupplierID in ("&ID&")"
+objConn.Execute sql
+
+
+ReturnURL="MRP_Supplier.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=6&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "66"
+'-------------------------------------------------------------鎵嬪伐淇敼缁╂晥璁℃彁閲岀▼
+DispatchOrdID =SafeRequest(request.form("DKP_DispatchOrdID"))
+DKP_EId =SafeRequest(request.form("DKP_EId"))
+If DispatchOrdID="" Or DKP_EId="" Then Response.Redirect "/DispatchOrder_End.gds?DispatchOrdID="&DispatchOrdID&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=1"
+
+ID_SP = SPLIT(DKP_EId,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ id = ID_SP(i)
+ EntourageMileageEdit = SafeRequest(Request("Edit_EntourageMileageEdit_"&ID))
+ DKPEdit_Reason = SafeRequest(Request("Edit_DKPEdit_Reason_"&ID))
+ If DKPEdit_Reason<>"" And EntourageMileageEdit>=0 Then
+ sql="update DispatchOrd_Entourage set EntourageMileageEdit="&EntourageMileageEdit&",DKPEdit_Reason='"&DKPEdit_Reason&"',DKPEdit_Time=getdate(),DKPEdit_OAid="&session("adminID")&" where id="&ID
+ objConn.Execute sql
+ ElseIf DKPEdit_Reason="" Then
+ sql="update DispatchOrd_Entourage set EntourageMileageEdit=null,DKPEdit_Reason=null,DKPEdit_Time=null,DKPEdit_OAid=null where id="&ID
+ objConn.Execute sql
+ End If
+Next
+
+ReturnURL="DispatchOrder_DKP.gds?DispatchOrdID="&DispatchOrdID
+Call OA_Running("鎵嬪伐淇敼缁╂晥璁℃彁:"&DispatchOrdID)
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=8&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "67"
+'-------------------------------------------------------------鐢ㄦ埛鏉冮檺鎵归噺鍒犻櫎
+OA_userID = SafeRequest(request.form("OA_userID"))
+ModuleID = SafeRequest(request.form("ModuleID"))
+
+If OA_userID="" Or ModuleID="" Then Response.Redirect "/DispatchOrder_End.gds?DispatchOrdID="&DispatchOrdID&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=1"
+
+ID_SP = SPLIT(OA_userID,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ id = ID_SP(i)
+ sql="select OA_Power from OA_User where OA_User_ID="&id
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ OA_Power=rs("OA_Power")
+ OA_Power=Replace(OA_Power,","&ModuleID&",",",")
+ sql="update OA_User set OA_Power='"&OA_Power&"' where OA_User_ID="&id
+ objConn.Execute sql
+ End If
+ rs.close()
+Next
+
+ReturnURL="AdminUser_List.gds?searchTXT=ModuleID|"&ModuleID&"&h_menu1_1=1"
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=6"
+Response.End%>
+
+<%case "68"
+'-------------------------------------------------------------鐢ㄦ埛鏉冮檺鎵归噺娣诲姞
+OA_userID = SafeRequest(request.form("OA_userID"))
+ModuleID = SafeRequest(request.form("ModuleID"))
+
+If OA_userID="" Or ModuleID="" Then Response.Redirect "/DispatchOrder_End.gds?DispatchOrdID="&DispatchOrdID&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=1"
+
+ID_SP = SPLIT(OA_userID,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ id = ID_SP(i)
+ sql="select OA_Power from OA_User where OA_User_ID="&id
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ OA_Power=rs("OA_Power")
+ If OA_Power<>"" And not isnull(OA_Power) Then
+ OA_Power=Replace(OA_Power,","&ModuleID&",",",")
+ Else
+ OA_Power=","
+ End If
+ OA_Power=OA_Power&ModuleID&","
+ sql="update OA_User set OA_Power='"&OA_Power&"' where OA_User_ID="&id
+ objConn.Execute sql
+ End If
+ rs.close()
+Next
+
+ReturnURL="AdminUser_List.gds?searchTXT=ModuleIDApp|"&ModuleID&"&h_menu1_1=1"
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=7"
+Response.End%>
+
+
+<%case "69"
+'-------------------------------------------------------------淇敼鐗╂枡璧勬枡
+ID = SafeRequest(request.form("ID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If ID="" Then Response.Redirect "/MRP_StItm.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=1&SMT=4"
+'Response.Write ID
+'Response.End
+
+ID_SP = SPLIT(ID,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ id = ID_SP(i)
+ strItmNo = SafeRequest(Request("strItmNo_"&ID))
+ strItmBarcode= SafeRequest(Request("strItmBarcode_"&ID))
+ strItmName = SafeRequest(Request("strItmName_"&ID))
+ strItmUnit = SafeRequest(Request("strItmUnit_"&ID))
+ strItmClassID = SafeRequest(Request("strItmClassID_"&ID))
+ PurchasePrice= SafeRequest(Request("PurchasePrice_"&ID))
+ SellingPrice= SafeRequest(Request("SellingPrice_"&ID))
+ CreditsPrice= SafeRequest(Request("CreditsPrice_"&ID))
+ strItmRemarks= SafeRequest(Request("strItmRemarks_"&ID))
+ strItmPinyin= SafeRequest(Request("strItmPinyin_"&ID))
+ isCarStItm= SafeRequest(Request("isCarStItm_"&ID))
+ If PurchasePrice="" Then PurchasePrice=0
+ If isCarStItm="" Then isCarStItm=0
+ If SellingPrice="" Then SellingPrice=PurchasePrice
+ If CreditsPrice="" Then CreditsPrice=0
+ If strItmName="" Then Response.Redirect "/MRP_StItm.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=1"
+ If strItmNo<>"" Then strItmNoSql=" or strItmNo='"&strItmNo&"'"
+ If strItmBarcode<>"" Then strItmBarcodeSql=" or strItmBarcode='"&strItmBarcode&"'"
+ If strItmPinyin="" Then
+ strItmPinyin=Pinyin_A(strItmName)
+ 'response.write strItmPinyin
+ 'Response.End
+ End If
+ sql="select strItmID from tblStItm where strItmID<>"&id&" and (strItmName='"&strItmName&"'"&strItmNoSql&strItmBarcodeSql&")"
+ rs.open sql,objConn,1,1
+ if not rs.eof then
+ Response.Redirect "/MRP_StItm.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=2"
+ end If
+ rs.close()
+ sql="update tblStItm set strItmName='"&strItmName&"',strItmPinyin='"&strItmPinyin&"',strItmNo='"&strItmNo&"',strItmUnit='"&strItmUnit&"',strItmClassID="&strItmClassID&",PurchasePrice="&PurchasePrice&",SellingPrice="&SellingPrice&",CreditsPrice="&CreditsPrice&",strItmRemarks='"&strItmRemarks&"',strItmState=1,strItmBarcode='"&strItmBarcode&"',isCarStItm="&isCarStItm&" where strItmID="&id
+ objConn.Execute sql
+Next
+
+ReturnURL="MRP_StItm.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=5&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "70"
+'-------------------------------------------------------------鏂板鐗╂枡璧勬枡
+strItmNo = SafeRequest(Request("strItmNo"))
+strItmName = SafeRequest(Request("strItmName"))
+strItmPinyin= SafeRequest(Request("strItmPinyin"))
+strItmBarcode=SafeRequest(Request("strItmBarcode"))
+strItmUnit = SafeRequest(Request("strItmUnit"))
+strItmClassID= SafeRequest(Request("strItmClassID"))
+PurchasePrice= SafeRequest(Request("PurchasePrice"))
+SellingPrice= SafeRequest(Request("SellingPrice"))
+CreditsPrice= SafeRequest(Request("CreditsPrice"))
+strItmRemarks= SafeRequest(Request("strItmRemarks"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If PurchasePrice="" Then PurchasePrice=0
+If SellingPrice="" Then SellingPrice=PurchasePrice
+If CreditsPrice="" Then CreditsPrice=0
+If strItmName="" Then Response.Redirect "/MRP_StItm.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=1"
+If strItmPinyin="" Then strItmPinyin=Pinyin_A(strItmName)
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+If strItmNo<>"" Then strItmNoSql=" or strItmNo='"&strItmNo&"'"
+If strItmBarcode<>"" Then strItmBarcodeSql=" or strItmBarcode='"&strItmBarcode&"'"
+sql="select strItmID,strItmName,strItmNo,strItmBarcode,strItmState from tblStItm where strItmName='"&strItmName&"'"&strItmNoSql&strItmBarcodeSql
+rs.open sql,objConn,1,1
+if not rs.eof Then
+ strItmID = rs("strItmID")
+ old_strItmName = rs("strItmName")
+ old_strItmNo = rs("strItmNo")
+ old_strItmBarcode=rs("strItmBarcode")
+ strItmState =rs("strItmState")
+ session("strItmNo")=strItmNo
+ session("strItmName")=strItmName
+ session("strItmPinyin")=strItmPinyin
+ session("strItmUnit")=strItmUnit
+ session("strItmBarcode")=strItmBarcode
+ session("strItmClassID")=strItmClassID
+ session("PurchasePrice")=PurchasePrice
+ session("SellingPrice")=SellingPrice
+ session("CreditsPrice")=CreditsPrice
+ session("strItmRemarks")=strItmRemarks
+ If old_strItmNo=strItmNo And strItmNo<>"" Then
+ Response.Redirect "/MRP_StItm.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=7"
+ ElseIf old_strItmBarcode=strItmBarcode And strItmBarcode<>"" Then
+ Response.Redirect "/MRP_StItm.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=9"
+ elseIf strItmState=0 Then
+ sql="update tblStItm set strItmName='"&strItmName&"',strItmPinyin='"&strItmPinyin&"',strItmNo='"&strItmNo&"',strItmUnit='"&strItmUnit&"',strItmClassID="&strItmClassID&",PurchasePrice="&PurchasePrice&",SellingPrice="&SellingPrice&",CreditsPrice="&CreditsPrice&",strItmRemarks='"&strItmRemarks&"',strItmBarcode='"&strItmBarcode&"',strItmState=1 where strItmID="&strItmID
+ objConn.Execute sql
+ searchTXT=strItmName
+ else
+ Response.Redirect "/MRP_StItm.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=2"
+ End If
+Else
+ sql="insert into tblStItm (strItmNo,strItmName,strItmPinyin,strItmUnit,PurchasePrice,SellingPrice,CreditsPrice,strItmClassID,strItmRemarks,strItmState,strItmBarcode) values ('"&strItmNo&"','"&strItmName&"','"&strItmPinyin&"','"&strItmUnit&"',"&PurchasePrice&","&SellingPrice&","&CreditsPrice&","&strItmClassID&",'"&strItmRemarks&"',1,'"&strItmBarcode&"')"
+ objConn.Execute sql
+end If
+rs.close()
+session("strItmNo")=""
+session("strItmName")=""
+session("strItmPinyin")=""
+session("strItmUnit")=""
+session("strItmBarcode")=""
+session("strItmClassID")=""
+session("PurchasePrice")=""
+session("SellingPrice")=""
+session("CreditsPrice")=""
+session("strItmRemarks")=""
+
+ReturnURL="MRP_StItm.gds?searchTXT="&searchTXT&"&page="&page&"&OldvID="&strItmClassID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "71"
+'-------------------------------------------------------------鍚敤/鍋滅敤鐗╂枡璧勬枡
+ID = trim(Request("ID"))
+State = trim(Request("State"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If State="" Then State=0
+If ID="" Then Response.Redirect "/MRP_StItm.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=4"
+
+sql="update tblStItm set strItmState="&State&" where strItmState<>"&State&" and strItmID in ("&ID&")"
+objConn.Execute sql
+
+If State="0" Then
+ SMT=6
+Else
+ SMT=8
+End If
+ReturnURL="MRP_StItm.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "72"
+'-------------------------------------------------------------鏂板缓閲囪喘鍏ュ簱鍗�
+OrdType = SafeRequest(request.form("OrdType"))
+OrderSupplierID = SafeRequest(request.form("OrderSupplierID"))
+OrderWarehouseID= SafeRequest(request.form("OrderWarehouseID"))
+TotalQty = SafeRequest(request.form("TotalQty_TXT"))
+TotalMoney = SafeRequest(request.form("TotalMoney_TXT"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+ItmDle = SafeRequest(request.form("ItmDle"))
+
+
+If OrdType="" Or OrderSupplierID="" Or OrderWarehouseID="" Or TotalQty="0" Or TotalQty="NaN" Or TotalQty="" Or StItmListY<=0 Then Response.Redirect "/MRP_PurchaseDetail.gds?OrdType="&OrdType&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+NewMRP_OrderID=NewMRPOrderID(OrdType) '鐢熸垚鍗曟嵁缂栧彿
+'鏂板缓澶у崟
+sql="insert into MRP_OrderPurchase (MRP_OrderID,OrderSupplierID,OrderWarehouseID,OrderState,OrderTime_OAid,TotalMoney,TotalQty,OrderRemarks) values ('"&NewMRP_OrderID&"',"&OrderSupplierID&","&OrderWarehouseID&",0,"&session("adminID")&","&TotalMoney&","&TotalQty&",'"&OrderRemarks&"')"
+objConn.Execute sql
+
+'淇濆瓨瀛愬崟
+TotalQty=0
+TotalMoney=0
+ItmDle_SP = SPLIT(ItmDle,", ")
+for i=1 to StItmListY
+ is_ItmDle=0
+ for j=0 to ubound(ItmDle_SP)
+ If i = CInt(ItmDle_SP(j)) Then
+ is_ItmDle=1
+ End If
+ Next
+ If is_ItmDle=0 then
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_Price= SafeRequest(Request("OD_Price_"&i))
+ OD_Qty = SafeRequest(Request("OD_Qty_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_Price="" Then OD_Price=0
+ If OD_Qty="" Then OD_Qty=0
+ If CInt(OD_Qty)>0 then
+ sql="select MRP_ODID from MRP_OrderDetail where MRP_OrderIDPK='"&NewMRP_OrderID&"' and OD_Price="&OD_Price&" and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ sql="update MRP_OrderDetail set OD_Qty=OD_Qty+"&OD_Qty&",OD_Remarks=OD_Remarks+'"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ Else
+ sql="insert into MRP_OrderDetail (MRP_OrderIDPK,StItmIDPK,OD_Qty,OD_Price,OD_Remarks) values ('"&NewMRP_OrderID&"',"&StItmID&","&OD_Qty&","&OD_Price&",'"&OD_Remarks&"')"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+OD_Qty
+ TotalMoney=TotalMoney+OD_Price*OD_Qty
+ End If
+ End If
+Next
+sql="update MRP_OrderPurchase set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&NewMRP_OrderID&"'"
+objConn.Execute sql
+
+ReturnURL="MRP_PurchaseDetail.gds?MRP_OrderID="&NewMRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "73"
+'-------------------------------------------------------------淇敼/瀹℃牳閲囪喘鍏ュ簱鍗�
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OrderSupplierID = SafeRequest(request.form("OrderSupplierID"))
+OrderWarehouseID= SafeRequest(request.form("OrderWarehouseID"))
+TotalQty = SafeRequest(request.form("TotalQty_TXT"))
+TotalMoney = SafeRequest(request.form("TotalMoney_TXT"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+OrderState = SafeRequest(request.form("OrderState"))
+OrdType = SafeRequest(request.form("OrdType"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+ItmDle = SafeRequest(request.form("ItmDle"))
+
+If MRP_OrderID="" Or OrderSupplierID="" Or OrderWarehouseID="" Or TotalQty="0" Or TotalQty="NaN" Or TotalQty="" Or StItmListY<=0 Then Response.Redirect "/MRP_PurchaseDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState from MRP_OrderPurchase where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_PurchaseList.gds?SystemMessageType=4&SMT=1"
+ElseIf rs(0)<>0 Then
+ Response.Redirect "/MRP_PurchaseDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=3"
+end If
+rs.close()
+
+'淇敼澶у崟
+If OrderState="1" Then SqlAudit=",AuditTime=getdate(),AuditTime_OAid="&session("adminID")
+sql="update MRP_OrderPurchase set OrderSupplierID="&OrderSupplierID&",OrderWarehouseID="&OrderWarehouseID&",OrderRemarks='"&OrderRemarks&"',OrderState="&OrderState&SqlAudit&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+'淇濆瓨瀛愬崟
+sql="delete from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"'"
+objConn.Execute sql
+TotalQty=0
+TotalMoney=0
+ItmDle_SP = SPLIT(ItmDle,", ")
+for i=1 to StItmListY
+ is_ItmDle=0
+ for j=0 to ubound(ItmDle_SP)
+ If i = CInt(ItmDle_SP(j)) Then
+ is_ItmDle=1
+ End If
+ Next
+ If is_ItmDle=0 then
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_Price= SafeRequest(Request("OD_Price_"&i))
+ OD_Qty = SafeRequest(Request("OD_Qty_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_Price="" Then OD_Price=0
+ If OD_Qty="" Then OD_Qty=0
+ If CInt(OD_Qty)>0 then
+ sql="select MRP_ODID from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"' and OD_Price="&OD_Price&" and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ sql="update MRP_OrderDetail set OD_Qty=OD_Qty+"&OD_Qty&",OD_Remarks=OD_Remarks+'"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ Else
+ sql="insert into MRP_OrderDetail (MRP_OrderIDPK,StItmIDPK,OD_Qty,OD_Price,OD_Remarks) values ('"&MRP_OrderID&"',"&StItmID&","&OD_Qty&","&OD_Price&",'"&OD_Remarks&"')"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+OD_Qty
+ TotalMoney=TotalMoney+OD_Price*OD_Qty
+ End If
+ End If
+Next
+sql="update MRP_OrderPurchase set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+If OrderState="1" Then
+ SMT="4"
+Else
+ SMT="2"
+End If
+ReturnURL="MRP_PurchaseDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "74"
+'-------------------------------------------------------------鍙嶅鏍�/浣滃簾閲囪喘鍏ュ簱鍗�
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OrderState = SafeRequest(request.form("OrderState"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+
+If MRP_OrderID="" Or OrderState="" Then Response.Redirect "/MRP_PurchaseDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState from MRP_OrderPurchase where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_PurchaseList.gds?SystemMessageType=4&SMT=1"
+ElseIf (rs(0)=0 And OrderState="0") Or (rs(0)=4 And OrderState="4") Then
+ Response.Redirect "/MRP_PurchaseDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=5"
+end If
+rs.close()
+
+'淇敼澶у崟
+If OrderState="0" Then SqlAudit=",AuditTime=null,AuditTime_OAid=null"
+If OrderState="4" Then SqlAudit=",AuditTime=getdate(),AuditTime_OAid="&session("adminID")
+sql="update MRP_OrderPurchase set OrderRemarks='"&OrderRemarks&"',OrderState="&OrderState&SqlAudit&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+If OrderState="0" Then
+ SMT="6"
+ElseIf OrderState="4" Then
+ SMT="7"
+Else
+ SMT="5"
+End If
+ReturnURL="MRP_PurchaseDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "75"
+'-------------------------------------------------------------閲囪喘鍏ュ簱鍗曞叏閮�/閮ㄥ垎鍏ュ簱
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+OrderState = SafeRequest(request.form("OrderState"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+
+If MRP_OrderID="" Or OrderState="" Or StItmListY="" Then Response.Redirect "/MRP_PurchaseDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+OrdType = Mid(MRP_OrderID,5,2)
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState,OrderWarehouseID,OrderSupplierID from MRP_OrderPurchase where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_PurchaseList.gds?SystemMessageType=4&SMT=1"
+ElseIf rs(0)<>1 And rs(0)<>2 Then
+ Response.Redirect "/MRP_PurchaseDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=5"
+end If
+OrderWarehouseID= rs("OrderWarehouseID") '浠撳簱ID
+OrderSupplierID = rs("OrderSupplierID") '渚涘簲鍟咺D
+rs.close()
+
+'淇敼澶у崟
+sql="update MRP_OrderPurchase set OrderRemarks='"&OrderRemarks&"',OrderState="&OrderState&",StorageTime=getdate(),StorageTime_OAid="&session("adminID")&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+'鍐欏叆搴撳瓨
+TotalQty=0
+TotalMoney=0
+for i=1 to StItmListY
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_QtyA = SafeRequest(Request("OD_QtyA_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_QtyA="" Then OD_QtyA=0
+ If CInt(OD_QtyA)>0 then
+ sql="select MRP_ODID,OD_QtyA,OD_Price from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"' and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ old_QtyA=rs(1)
+ OD_Price=rs(2)
+ If OrdType="15" Then
+ OD_QtyB=-OD_QtyA
+ Else
+ OD_QtyB=OD_QtyA
+ End If
+ sql="update MRP_OrderDetail set OD_QtyA=OD_QtyA+"&OD_QtyA&",OD_Remarks='"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ sql="insert into MRP_Stock (StItmIDPK,StockQty,StockWarehouseID,MRP_OrderIDPK,StockTime_OAid) values ("&StItmID&","&OD_QtyB&",'"&OrderWarehouseID&"','"&MRP_OrderID&"',"&session("adminID")&")"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+(OD_QtyA+old_QtyA)
+ TotalMoney=TotalMoney+(OD_Price*(OD_QtyA+old_QtyA))
+ End If
+Next
+If OrderState="3" then
+ sql="update MRP_OrderPurchase set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&MRP_OrderID&"'"
+ objConn.Execute sql
+End If
+
+If OrderState="2" Then
+ SMT="8"
+ElseIf OrderState="3" Then
+ SMT="9"
+Else
+ SMT="5"
+End If
+ReturnURL="MRP_PurchaseDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "76"
+'-------------------------------------------------------------鏂板浠嬬粛浜�
+IntroducerName = SafeRequest(Request("IntroducerName"))
+IntroducerUnitID = SafeRequest(Request("IntroducerUnitID"))
+IntroducerTEL = SafeRequest(Request("IntroducerTEL"))
+IntroducerOrdClass = SafeRequest(Request("IntroducerOrdClass"))
+IntroducerAdminName = SafeRequest(Request("IntroducerAdminName"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If IntroducerName="" or IntroducerOrdClass="" Or (IntroducerAdminName<>"" And IntroducerTEL="") Then Response.Redirect "/IntroducerData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=1"
+IntroducerOrdClass = Replace(IntroducerOrdClass," ","")
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+If IntroducerAdminName<>"" Then
+ sql="select IntroducerID from IntroducerData where (IntroducerName='"&IntroducerName&"' or IntroducerAdminName='"&IntroducerAdminName&"')"
+Else
+ sql="select IntroducerID from IntroducerData where IntroducerName='"&IntroducerName&"'"
+End If
+rs.open sql,objConn,1,1
+if not rs.eof then
+ Response.Redirect "/IntroducerData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=5"
+end If
+rs.close()
+If IntroducerAdminName<>"" Then
+ sql="insert into IntroducerData (IntroducerName,IntroducerUnitID,IntroducerTEL,IntroducerState,IntroducerOrdClass,IntroducerAdminName,IntroducerAdminPass) values ('"&IntroducerName&"','"&IntroducerUnitID&"','"&IntroducerTEL&"',1,'"&IntroducerOrdClass&"','"&IntroducerAdminName&"',pwdencrypt('"&IntroducerTEL&"'))"
+Else
+ sql="insert into IntroducerData (IntroducerName,IntroducerUnitID,IntroducerTEL,IntroducerState,IntroducerOrdClass) values ('"&IntroducerName&"','"&IntroducerUnitID&"','"&IntroducerTEL&"',1,'"&IntroducerOrdClass&"')"
+End If
+objConn.Execute sql
+
+
+ReturnURL="IntroducerData.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+Response.End%>
+
+<%case "77"
+'-------------------------------------------------------------淇敼浠嬬粛浜�
+IntroducerID = SafeRequest(request.form("IntroducerID"))
+IntroducerSearchID = SafeRequest(request.form("IntroducerSearchID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If IntroducerID="" Then Response.Redirect "/IntroducerData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=6"
+ID_SP = SPLIT(IntroducerID,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ id = ID_SP(i)
+ IntroducerName= SafeRequest(Request("IntroducerName_"&ID))
+ IntroducerUnitID = SafeRequest(Request("IntroducerUnitID_"&ID))
+ IntroducerTEL = SafeRequest(Request("IntroducerTEL_"&ID))
+ IntroducerOrdClass = SafeRequest(Request("IntroducerOrdClass_"&ID))
+ IntroducerAdminName = SafeRequest(Request("IntroducerAdminName_"&ID))
+ If IntroducerName="" or IntroducerOrdClass="" Or (IntroducerAdminName<>"" And IntroducerTEL="") Then Response.Redirect "/IntroducerData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=1"
+ IntroducerOrdClass = Replace(IntroducerOrdClass," ","")
+ If IntroducerAdminName<>"" Then
+ sql="select IntroducerID from IntroducerData where (IntroducerName='"&IntroducerName&"' or IntroducerAdminName='"&IntroducerAdminName&"') and IntroducerID<>"&ID
+ Else
+ sql="select IntroducerID from IntroducerData where IntroducerName='"&IntroducerName&"' and IntroducerID<>"&ID
+ End If
+ rs.open sql,objConn,1,1
+ if not rs.eof then
+ Response.Redirect "/IntroducerData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=5"
+ end If
+ rs.close()
+ sql="update IntroducerData set IntroducerName='"&IntroducerName&"',IntroducerUnitID='"&IntroducerUnitID&"',IntroducerTEL='"&IntroducerTEL&"',IntroducerOrdClass='"&IntroducerOrdClass&"',IntroducerAdminName='"&IntroducerAdminName&"' where IntroducerID="&ID
+ objConn.Execute sql
+ sql="update IntroducerData set IntroducerAdminPass=pwdencrypt('"&IntroducerTEL&"') where IntroducerAdminPass IS NULL and IntroducerAdminName is not null and IntroducerID="&ID
+ objConn.Execute sql
+Next
+
+ReturnURL="IntroducerData.gds?searchTXT="&searchTXT&"&page="&page&"&IntroducerSearchID="&IntroducerSearchID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2"
+Response.End%>
+
+<%case "78"
+'-------------------------------------------------------------鍒犻櫎浠嬬粛浜�
+IntroducerID = SafeRequest(request.form("IntroducerID"))
+IntroducerSearchID = SafeRequest(request.form("IntroducerSearchID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If IntroducerID="" Then Response.Redirect "/IntroducerData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=6"
+
+sql="update IntroducerData set IntroducerState=0 where IntroducerID in ("&IntroducerID&")"
+objConn.Execute sql
+
+
+ReturnURL="IntroducerData.gds?searchTXT="&searchTXT&"&page="&page&"&IntroducerSearchID="&IntroducerSearchID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=4"
+Response.End%>
+
+<%case "79"
+'-------------------------------------------------------------鏂板鍚堜綔鍏徃
+UnitName = SafeRequest(Request("UnitName"))
+UnitShort = SafeRequest(Request("UnitShort"))
+UnitAddress = SafeRequest(Request("UnitAddress"))
+UnitTEL = SafeRequest(Request("UnitTEL"))
+APPID = SafeRequest(Request("APPID"))
+APPSECRET = SafeRequest(Request("APPSECRET"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If UnitName="" Then Response.Redirect "/IntroducerUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=1"
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+If APPID<>"" Then sqlAPPID=" or APPID='"&APPID&"'"
+sql="select UnitID from IntroducerUnitData where UnitName='"&UnitName&"'"&sqlAPPID
+rs.open sql,objConn,1,1
+if not rs.eof then
+ Response.Redirect "/UnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=5"
+end If
+rs.close()
+sql="insert into IntroducerUnitData (UnitName,UnitShort,UnitAddress,UnitTEL,UnitState,APPID,APPSECRET) values ('"&UnitName&"','"&UnitShort&"','"&UnitAddress&"','"&UnitTEL&"',1,'"&APPID&"','"&APPSECRET&"')"
+objConn.Execute sql
+
+
+ReturnURL="IntroducerUnitData.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+Response.End%>
+
+<%case "80"
+'-------------------------------------------------------------淇敼鍚堜綔鍏徃
+UnitID = SafeRequest(request.form("UnitID"))
+UnitSearchID = SafeRequest(request.form("UnitSearchID"))
+BranchUnitData = SafeRequest(request.form("BranchUnitData"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+
+If BranchUnitData="1" Then
+ RedirectURL="BranchUnitData"
+Else
+ RedirectURL="IntroducerUnitData"
+End If
+If UnitID="" Then Response.Redirect "/"&RedirectURL&".gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=6"
+ID_SP = SPLIT(UnitID,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ id = ID_SP(i)
+ UnitName= SafeRequest(Request("UnitName_"&ID))
+ UnitShort = SafeRequest(Request("UnitShort_"&ID))
+ UnitAddress = SafeRequest(Request("UnitAddress_"&ID))
+ UnitTEL = SafeRequest(Request("UnitTEL_"&ID))
+ APPID = SafeRequest(Request("APPID_"&ID))
+ APPSECRET = SafeRequest(Request("APPSECRET_"&ID))
+ ServiceBranch= SafeRequest(Request("ServiceBranch_"&ID))
+ OrdDateMode = SafeRequest(Request("OrdDateMode_"&ID))
+ NC_OAIDs = SafeRequest(Request("NC_OAIDs_"&ID))
+ If OrdDateMode<>"2" Then OrdDateMode="1"
+ If ServiceBranch<>"" Then ServiceBranchSql=" or ServiceBranch='"&ServiceBranch&"' "
+ If UnitName="" Then Response.Redirect "/IntroducerUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=1"
+ If APPID<>"" Then
+ sql="select UnitID from IntroducerUnitData where (UnitName='"&UnitName&"' or APPID='"&APPID&"'"&ServiceBranchSql&") and UnitID<>"&ID
+ Else
+ sql="select UnitID from IntroducerUnitData where (UnitName='"&UnitName&"'"&ServiceBranchSql&") and UnitID<>"&ID
+ End If
+ rs.open sql,objConn,1,1
+ if not rs.eof then
+ Response.Redirect "/IntroducerUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=5"
+ end If
+ rs.close()
+ If ServiceBranch<>"" Then
+ sql="select id from dictionary where vtitle='ServiceBranch' and vOrder2='"&ServiceBranch&"'"
+ rs.open sql,objConn,1,1
+ if rs.eof then
+ rs.close()
+ sql="select top 1 vID+1 from dictionary where vtitle='ServiceBranch' order by vID desc"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ vID=rs(0)
+ Else
+ vID=1
+ End If
+ sql="insert into dictionary (vID,vtext,vtitle,vType,vMono,vOrder,vOrder2) values ("&vID&",'"&UnitName&"','ServiceBranch',1,'鍒嗘敮鏈烘瀯',1000,'"&ServiceBranch&"')"
+ objConn.Execute sql
+ end If
+ rs.close()
+ End If
+ If NC_OAIDs<>"" Then
+ sql="select OA_User_ID from OA_User where OA_execLevel>=0 and OA_User_ID in ("&NC_OAIDs&")"
+ NC_OAIDs=""
+ rs.open sql,objConn,1,1
+ do while not rs.Eof
+ NC_OAIDs=NC_OAIDs&","&rs(0)
+ rs.movenext
+ Loop
+ rs.close()
+ If NC_OAIDs<>"" Then NC_OAIDs=Mid(NC_OAIDs,2)
+ End If
+ sql="update IntroducerUnitData set UnitName='"&UnitName&"',UnitShort='"&UnitShort&"',UnitAddress='"&UnitAddress&"',UnitTEL='"&UnitTEL&"',APPID='"&APPID&"',APPSECRET='"&APPSECRET&"',ServiceBranch='"&ServiceBranch&"',NC_OAIDs='"&NC_OAIDs&"',OrdDateMode="&OrdDateMode&" where UnitID="&ID
+ objConn.Execute sql
+Next
+
+ReturnURL=RedirectURL&".gds?searchTXT="&searchTXT&"&page="&page&"&UnitSearchID="&UnitSearchID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2"
+Response.End%>
+
+<%case "81"
+'-------------------------------------------------------------鍒犻櫎鍚堜綔鍏徃
+UnitID = SafeRequest(request.form("UnitID"))
+UnitSearchID = SafeRequest(request.form("UnitSearchID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If UnitID="" Then Response.Redirect "/IntroducerUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=6"
+
+sql="update IntroducerUnitData set UnitState=0 where UnitID in ("&UnitID&")"
+objConn.Execute sql
+
+
+ReturnURL="IntroducerUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&UnitSearchID="&UnitSearchID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=4"
+Response.End%>
+
+<%case "82"
+'-------------------------------------------------------------鏂板缓棰嗙敤鍑哄簱鍗�
+OrdType = SafeRequest(request.form("OrdType"))
+OrderCustomerName = SafeRequest(request.form("OrderCustomerName"))
+OrderWarehouseID= SafeRequest(request.form("OrderWarehouseID"))
+TotalQty = SafeRequest(request.form("TotalQty_TXT"))
+TotalMoney = SafeRequest(request.form("TotalMoney_TXT"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+ItmDle = SafeRequest(request.form("ItmDle"))
+
+
+If OrdType="" Or OrderCustomerName="" Or OrderWarehouseID="" Or TotalQty="0" Or TotalQty="NaN" Or TotalQty="" Or StItmListY<=0 Then Response.Redirect "/MRP_ApplyDetail.gds?OrdType="&OrdType&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+NewMRP_OrderID=NewMRPOrderID(OrdType) '鐢熸垚鍗曟嵁缂栧彿
+'鏂板缓澶у崟
+sql="insert into MRP_OrderApply (MRP_OrderID,OrderCustomerName,OrderWarehouseID,OrderState,OrderTime_OAid,TotalMoney,TotalQty,OrderRemarks) values ('"&NewMRP_OrderID&"','"&OrderCustomerName&"',"&OrderWarehouseID&",0,"&session("adminID")&","&TotalMoney&","&TotalQty&",'"&OrderRemarks&"')"
+objConn.Execute sql
+
+'淇濆瓨瀛愬崟
+TotalQty=0
+TotalMoney=0
+ItmDle_SP = SPLIT(ItmDle,", ")
+for i=1 to StItmListY
+ is_ItmDle=0
+ for j=0 to ubound(ItmDle_SP)
+ If i = CInt(ItmDle_SP(j)) Then
+ is_ItmDle=1
+ End If
+ Next
+ If is_ItmDle=0 then
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_Price= SafeRequest(Request("OD_Price_"&i))
+ OD_Qty = SafeRequest(Request("OD_Qty_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_Price="" Then OD_Price=0
+ If OD_Qty="" Then OD_Qty=0
+ If CInt(OD_Qty)>0 then
+ sql="select MRP_ODID from MRP_OrderDetail where MRP_OrderIDPK='"&NewMRP_OrderID&"' and OD_Price="&OD_Price&" and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ sql="update MRP_OrderDetail set OD_Qty=OD_Qty+"&OD_Qty&",OD_Remarks=OD_Remarks+'"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ Else
+ sql="insert into MRP_OrderDetail (MRP_OrderIDPK,StItmIDPK,OD_Qty,OD_Price,OD_Remarks) values ('"&NewMRP_OrderID&"',"&StItmID&","&OD_Qty&","&OD_Price&",'"&OD_Remarks&"')"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+OD_Qty
+ TotalMoney=TotalMoney+OD_Price*OD_Qty
+ End If
+ End If
+Next
+sql="update MRP_OrderApply set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&NewMRP_OrderID&"'"
+objConn.Execute sql
+
+ReturnURL="MRP_ApplyDetail.gds?MRP_OrderID="&NewMRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "83"
+'-------------------------------------------------------------淇敼/瀹℃牳棰嗙敤鍑哄簱鍗�
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OrderCustomerName = SafeRequest(request.form("OrderCustomerName"))
+OrderWarehouseID= SafeRequest(request.form("OrderWarehouseID"))
+TotalQty = SafeRequest(request.form("TotalQty_TXT"))
+TotalMoney = SafeRequest(request.form("TotalMoney_TXT"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+OrderState = SafeRequest(request.form("OrderState"))
+OrdType = SafeRequest(request.form("OrdType"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+ItmDle = SafeRequest(request.form("ItmDle"))
+
+If MRP_OrderID="" Or OrderCustomerName="" Or OrderWarehouseID="" Or TotalQty="0" Or TotalQty="NaN" Or TotalQty="" Or StItmListY<=0 Then Response.Redirect "/MRP_ApplyDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState from MRP_OrderApply where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_ApplyList.gds?SystemMessageType=4&SMT=1"
+ElseIf rs(0)<>0 Then
+ Response.Redirect "/MRP_ApplyDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=3"
+end If
+rs.close()
+
+'淇敼澶у崟
+If OrderState="1" Then SqlAudit=",AuditTime=getdate(),AuditTime_OAid="&session("adminID")
+sql="update MRP_OrderApply set OrderCustomerName='"&OrderCustomerName&"',OrderWarehouseID="&OrderWarehouseID&",OrderRemarks='"&OrderRemarks&"',OrderState="&OrderState&SqlAudit&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+'淇濆瓨瀛愬崟
+sql="delete from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"'"
+objConn.Execute sql
+TotalQty=0
+TotalMoney=0
+ItmDle_SP = SPLIT(ItmDle,", ")
+for i=1 to StItmListY
+ is_ItmDle=0
+ for j=0 to ubound(ItmDle_SP)
+ If i = CInt(ItmDle_SP(j)) Then
+ is_ItmDle=1
+ End If
+ Next
+ If is_ItmDle=0 then
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_Price= SafeRequest(Request("OD_Price_"&i))
+ OD_Qty = SafeRequest(Request("OD_Qty_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_Price="" Then OD_Price=0
+ If OD_Qty="" Then OD_Qty=0
+ If CInt(OD_Qty)>0 then
+ sql="select MRP_ODID from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"' and OD_Price="&OD_Price&" and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ sql="update MRP_OrderDetail set OD_Qty=OD_Qty+"&OD_Qty&",OD_Remarks=OD_Remarks+'"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ Else
+ sql="insert into MRP_OrderDetail (MRP_OrderIDPK,StItmIDPK,OD_Qty,OD_Price,OD_Remarks) values ('"&MRP_OrderID&"',"&StItmID&","&OD_Qty&","&OD_Price&",'"&OD_Remarks&"')"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+OD_Qty
+ TotalMoney=TotalMoney+OD_Price*OD_Qty
+ End If
+ End If
+Next
+sql="update MRP_OrderApply set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+If OrderState="1" Then
+ SMT="4"
+Else
+ SMT="2"
+End If
+ReturnURL="MRP_ApplyDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "84"
+'-------------------------------------------------------------鍙嶅鏍�/浣滃簾棰嗙敤鍑哄簱鍗�
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OrderState = SafeRequest(request.form("OrderState"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+
+If MRP_OrderID="" Or OrderState="" Then Response.Redirect "/MRP_ApplyDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState from MRP_OrderApply where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_ApplyList.gds?SystemMessageType=4&SMT=1"
+ElseIf (rs(0)=0 And OrderState="0") Or (rs(0)=4 And OrderState="4") Then
+ Response.Redirect "/MRP_ApplyDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=5"
+end If
+rs.close()
+
+'淇敼澶у崟
+If OrderState="0" Then SqlAudit=",AuditTime=null,AuditTime_OAid=null"
+If OrderState="4" Then SqlAudit=",AuditTime=getdate(),AuditTime_OAid="&session("adminID")
+sql="update MRP_OrderApply set OrderRemarks='"&OrderRemarks&"',OrderState="&OrderState&SqlAudit&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+If OrderState="0" Then
+ SMT="6"
+ElseIf OrderState="4" Then
+ SMT="7"
+Else
+ SMT="5"
+End If
+ReturnURL="MRP_ApplyDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "85"
+'-------------------------------------------------------------棰嗙敤鍑哄簱鍗曞叏閮�/閮ㄥ垎鍑哄簱
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+OrderState = SafeRequest(request.form("OrderState"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+
+If MRP_OrderID="" Or OrderState="" Or StItmListY="" Then Response.Redirect "/MRP_ApplyDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+OrdType = Mid(MRP_OrderID,5,2)
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState,OrderWarehouseID,OrderCustomerName from MRP_OrderApply where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_ApplyList.gds?SystemMessageType=4&SMT=1"
+ElseIf rs(0)<>1 And rs(0)<>2 Then
+ Response.Redirect "/MRP_ApplyDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=5"
+end If
+OrderWarehouseID= rs("OrderWarehouseID") '浠撳簱ID
+OrderCustomerName = rs("OrderCustomerName") '瀹㈡埛鍚嶇О
+rs.close()
+
+'淇敼澶у崟
+sql="update MRP_OrderApply set OrderRemarks='"&OrderRemarks&"',OrderState="&OrderState&",ShipmentTime=getdate(),ShipmentTime_OAid="&session("adminID")&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+'鍐欏叆搴撳瓨
+TotalQty=0
+TotalMoney=0
+for i=1 to StItmListY
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_QtyA = SafeRequest(Request("OD_QtyA_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_QtyA="" Then OD_QtyA=0
+ If CInt(OD_QtyA)>0 then
+ sql="select MRP_ODID,OD_QtyA,OD_Price from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"' and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ old_QtyA=rs(1)
+ OD_Price=rs(2)
+ If OrdType="11" Then
+ OD_QtyB=-OD_QtyA
+ Else
+ OD_QtyB=OD_QtyA
+ End If
+ sql="update MRP_OrderDetail set OD_QtyA=OD_QtyA+"&OD_QtyA&",OD_Remarks='"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ sql="insert into MRP_Stock (StItmIDPK,StockQty,StockWarehouseID,MRP_OrderIDPK,StockTime_OAid) values ("&StItmID&","&OD_QtyB&",'"&OrderWarehouseID&"','"&MRP_OrderID&"',"&session("adminID")&")"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+(OD_QtyA+old_QtyA)
+ TotalMoney=TotalMoney+(OD_Price*(OD_QtyA+old_QtyA))
+ End If
+Next
+If OrderState="3" then
+ sql="update MRP_OrderApply set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&MRP_OrderID&"'"
+ objConn.Execute sql
+End If
+
+If OrderState="2" Then
+ SMT="8"
+ElseIf OrderState="3" Then
+ SMT="9"
+Else
+ SMT="5"
+End If
+ReturnURL="MRP_ApplyDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "86"
+'-------------------------------------------------------------鏂板缓杞粨鍗�
+OrdType = SafeRequest(request.form("OrdType"))
+OutWarehouseID = SafeRequest(request.form("OutWarehouseID"))
+InWarehouseID = SafeRequest(request.form("InWarehouseID"))
+TotalQty = SafeRequest(request.form("TotalQty_TXT"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+ItmDle = SafeRequest(request.form("ItmDle"))
+
+
+If OrdType="" Or OutWarehouseID="" Or InWarehouseID="" Or TotalQty="0" Or TotalQty="NaN" Or TotalQty="" Or StItmListY<=0 Then Response.Redirect "/MRP_ManoeuvreDetail.gds?OrdType="&OrdType&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+NewMRP_OrderID=NewMRPOrderID(OrdType) '鐢熸垚鍗曟嵁缂栧彿
+'鏂板缓澶у崟
+sql="insert into MRP_OrderManoeuvre (MRP_OrderID,OutWarehouseID,InWarehouseID,OrderState,OrderTime_OAid,TotalQty,OrderRemarks) values ('"&NewMRP_OrderID&"',"&OutWarehouseID&","&InWarehouseID&",0,"&session("adminID")&","&TotalQty&",'"&OrderRemarks&"')"
+objConn.Execute sql
+
+'淇濆瓨瀛愬崟
+TotalQty=0
+TotalMoney=0
+ItmDle_SP = SPLIT(ItmDle,", ")
+for i=1 to StItmListY
+ is_ItmDle=0
+ for j=0 to ubound(ItmDle_SP)
+ If i = CInt(ItmDle_SP(j)) Then
+ is_ItmDle=1
+ End If
+ Next
+ If is_ItmDle=0 then
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_Price= 0
+ OD_Qty = SafeRequest(Request("OD_Qty_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_Price="" Then OD_Price=0
+ If OD_Qty="" Then OD_Qty=0
+ If CInt(OD_Qty)>0 then
+ sql="select MRP_ODID from MRP_OrderDetail where MRP_OrderIDPK='"&NewMRP_OrderID&"' and OD_Price="&OD_Price&" and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ sql="update MRP_OrderDetail set OD_Qty=OD_Qty+"&OD_Qty&",OD_Remarks=OD_Remarks+'"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ Else
+ sql="insert into MRP_OrderDetail (MRP_OrderIDPK,StItmIDPK,OD_Qty,OD_Price,OD_Remarks) values ('"&NewMRP_OrderID&"',"&StItmID&","&OD_Qty&","&OD_Price&",'"&OD_Remarks&"')"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+OD_Qty
+ TotalMoney=TotalMoney+OD_Price*OD_Qty
+ End If
+ End If
+Next
+sql="update MRP_OrderManoeuvre set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&NewMRP_OrderID&"'"
+objConn.Execute sql
+
+ReturnURL="MRP_ManoeuvreDetail.gds?MRP_OrderID="&NewMRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "87"
+'-------------------------------------------------------------淇敼/瀹℃牳杞粨鍗�
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OutWarehouseID = SafeRequest(request.form("OutWarehouseID"))
+InWarehouseID = SafeRequest(request.form("InWarehouseID"))
+TotalQty = SafeRequest(request.form("TotalQty_TXT"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+OrderState = SafeRequest(request.form("OrderState"))
+OrdType = SafeRequest(request.form("OrdType"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+ItmDle = SafeRequest(request.form("ItmDle"))
+
+If MRP_OrderID="" Or OutWarehouseID="" Or InWarehouseID="" Or TotalQty="0" Or TotalQty="NaN" Or TotalQty="" Or StItmListY<=0 Then Response.Redirect "/MRP_ManoeuvreDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState from MRP_OrderManoeuvre where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_ManoeuvreList.gds?SystemMessageType=4&SMT=1"
+ElseIf rs(0)<>0 Then
+ Response.Redirect "/MRP_ManoeuvreDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=3"
+end If
+rs.close()
+
+'淇敼澶у崟
+If OrderState="1" Then SqlAudit=",AuditTime=getdate(),AuditTime_OAid="&session("adminID")
+sql="update MRP_OrderManoeuvre set OutWarehouseID="&OutWarehouseID&",InWarehouseID="&InWarehouseID&",OrderRemarks='"&OrderRemarks&"',OrderState="&OrderState&SqlAudit&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+'淇濆瓨瀛愬崟
+sql="delete from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"'"
+objConn.Execute sql
+TotalQty=0
+TotalMoney=0
+ItmDle_SP = SPLIT(ItmDle,", ")
+for i=1 to StItmListY
+ is_ItmDle=0
+ for j=0 to ubound(ItmDle_SP)
+ If i = CInt(ItmDle_SP(j)) Then
+ is_ItmDle=1
+ End If
+ Next
+ If is_ItmDle=0 then
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_Price= 0
+ OD_Qty = SafeRequest(Request("OD_Qty_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_Price="" Then OD_Price=0
+ If OD_Qty="" Then OD_Qty=0
+ If CInt(OD_Qty)>0 then
+ sql="select MRP_ODID from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"' and OD_Price="&OD_Price&" and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ sql="update MRP_OrderDetail set OD_Qty=OD_Qty+"&OD_Qty&",OD_Remarks=OD_Remarks+'"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ Else
+ sql="insert into MRP_OrderDetail (MRP_OrderIDPK,StItmIDPK,OD_Qty,OD_Price,OD_Remarks) values ('"&MRP_OrderID&"',"&StItmID&","&OD_Qty&","&OD_Price&",'"&OD_Remarks&"')"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+OD_Qty
+ TotalMoney=TotalMoney+OD_Price*OD_Qty
+ End If
+ End If
+Next
+sql="update MRP_OrderManoeuvre set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+If OrderState="1" Then
+ SMT="4"
+Else
+ SMT="2"
+End If
+ReturnURL="MRP_ManoeuvreDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "88"
+'-------------------------------------------------------------鍙嶅鏍�/浣滃簾杞粨鍗�
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OrderState = SafeRequest(request.form("OrderState"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+
+If MRP_OrderID="" Or OrderState="" Then Response.Redirect "/MRP_ManoeuvreDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState from MRP_OrderManoeuvre where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_ApplyList.gds?SystemMessageType=4&SMT=1"
+ElseIf (rs(0)=0 And OrderState="0") Or (rs(0)=4 And OrderState="4") Then
+ Response.Redirect "/MRP_ManoeuvreDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=5"
+end If
+rs.close()
+
+'淇敼澶у崟
+If OrderState="0" Then SqlAudit=",AuditTime=null,AuditTime_OAid=null"
+If OrderState="4" Then SqlAudit=",AuditTime=getdate(),AuditTime_OAid="&session("adminID")
+sql="update MRP_OrderManoeuvre set OrderRemarks='"&OrderRemarks&"',OrderState="&OrderState&SqlAudit&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+If OrderState="0" Then
+ SMT="6"
+ElseIf OrderState="4" Then
+ SMT="7"
+Else
+ SMT="5"
+End If
+ReturnURL="MRP_ManoeuvreDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "89"
+'-------------------------------------------------------------杞粨鍗曞嚭搴�
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+OrderState = SafeRequest(request.form("OrderState"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+
+If MRP_OrderID="" Or OrderState="" Or StItmListY="" Then Response.Redirect "/MRP_ManoeuvreDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+OrdType = Mid(MRP_OrderID,5,2)
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState,OutWarehouseID,InWarehouseID from MRP_OrderManoeuvre where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_ManoeuvreList.gds?SystemMessageType=4&SMT=1"
+ElseIf rs(0)<>1 Then
+ Response.Redirect "/MRP_ManoeuvreDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=5"
+end If
+OutWarehouseID = rs("OutWarehouseID") '鍑哄簱浠撳簱ID
+InWarehouseID = rs("InWarehouseID") '鍏ュ簱浠撳簱ID
+rs.close()
+
+'淇敼澶у崟
+sql="update MRP_OrderManoeuvre set OrderRemarks='"&OrderRemarks&"',OrderState="&OrderState&",OutTime=getdate(),OutTime_OAid="&session("adminID")&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+'鍐欏叆搴撳瓨
+TotalQty=0
+TotalMoney=0
+for i=1 to StItmListY
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_QtyA = SafeRequest(Request("OD_QtyA_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_QtyA="" Then OD_QtyA=0
+ If CInt(OD_QtyA)>0 then
+ sql="select MRP_ODID,OD_QtyA,OD_Price from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"' and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ old_QtyA=rs(1)
+ OD_Price=rs(2)
+ OD_QtyB=-OD_QtyA
+ sql="update MRP_OrderDetail set OD_Qty="&OD_QtyA&",OD_Remarks='"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ sql="insert into MRP_Stock (StItmIDPK,StockQty,StockWarehouseID,MRP_OrderIDPK,StockTime_OAid) values ("&StItmID&","&OD_QtyB&",'"&OutWarehouseID&"','"&MRP_OrderID&"',"&session("adminID")&")"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+OD_QtyA
+ TotalMoney=TotalMoney+(OD_Price*OD_QtyA)
+ End If
+Next
+sql="update MRP_OrderManoeuvre set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+If OrderState="2" Then
+ SMT="8"
+Else
+ SMT="5"
+End If
+ReturnURL="MRP_ManoeuvreDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "90"
+'-------------------------------------------------------------杞粨鍗曞叆搴�
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+OrderState = SafeRequest(request.form("OrderState"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+
+If MRP_OrderID="" Or OrderState="" Or StItmListY="" Then Response.Redirect "/MRP_ManoeuvreDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+OrdType = Mid(MRP_OrderID,5,2)
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState,OutWarehouseID,InWarehouseID from MRP_OrderManoeuvre where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_ManoeuvreList.gds?SystemMessageType=4&SMT=1"
+ElseIf rs(0)<>2 Then
+ Response.Redirect "/MRP_ManoeuvreDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=5"
+end If
+OutWarehouseID = rs("OutWarehouseID") '鍑哄簱浠撳簱ID
+InWarehouseID = rs("InWarehouseID") '鍏ュ簱浠撳簱ID
+rs.close()
+
+'淇敼澶у崟
+sql="update MRP_OrderManoeuvre set OrderRemarks='"&OrderRemarks&"',OrderState="&OrderState&",InTime=getdate(),InTime_OAid="&session("adminID")&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+'鍐欏叆搴撳瓨
+TotalQty=0
+TotalMoney=0
+for i=1 to StItmListY
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_QtyA = SafeRequest(Request("OD_QtyA_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_QtyA="" Then OD_QtyA=0
+ If CInt(OD_QtyA)>0 then
+ sql="select MRP_ODID,OD_QtyA,OD_Price from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"' and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ old_QtyA=rs(1)
+ OD_Price=rs(2)
+ OD_QtyB=OD_QtyA
+ sql="update MRP_OrderDetail set OD_QtyA="&OD_QtyA&",OD_Remarks='"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ sql="insert into MRP_Stock (StItmIDPK,StockQty,StockWarehouseID,MRP_OrderIDPK,StockTime_OAid) values ("&StItmID&","&OD_QtyB&",'"&InWarehouseID&"','"&MRP_OrderID&"',"&session("adminID")&")"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+OD_QtyA
+ TotalMoney=TotalMoney+(OD_Price*OD_QtyA)
+ End If
+Next
+sql="update MRP_OrderManoeuvre set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+If OrderState="3" Then
+ SMT="9"
+Else
+ SMT="5"
+End If
+ReturnURL="MRP_ManoeuvreDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "91"
+'-------------------------------------------------------------鏂板缓搴撳瓨璋冩暣鍗�
+OrdType = SafeRequest(request.form("OrdType"))
+OrderWarehouseID= SafeRequest(request.form("OrderWarehouseID"))
+TotalQty = SafeRequest(request.form("TotalQty_TXT"))
+TotalMoney = SafeRequest(request.form("TotalMoney_TXT"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+ItmDle = SafeRequest(request.form("ItmDle"))
+
+
+If OrdType="" Or OrderWarehouseID="" Or TotalQty="0" Or TotalQty="NaN" Or TotalQty="" Or StItmListY<=0 Then Response.Redirect "/MRP_StockAdjustDetail.gds?OrdType="&OrdType&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+NewMRP_OrderID=NewMRPOrderID(OrdType) '鐢熸垚鍗曟嵁缂栧彿
+'鏂板缓澶у崟
+sql="insert into MRP_OrderStockAdjust (MRP_OrderID,OrderWarehouseID,OrderState,OrderTime_OAid,TotalMoney,TotalQty,OrderRemarks) values ('"&NewMRP_OrderID&"',"&OrderWarehouseID&",0,"&session("adminID")&","&TotalMoney&","&TotalQty&",'"&OrderRemarks&"')"
+objConn.Execute sql
+
+'淇濆瓨瀛愬崟
+TotalQty=0
+TotalMoney=0
+ItmDle_SP = SPLIT(ItmDle,", ")
+for i=1 to StItmListY
+ is_ItmDle=0
+ for j=0 to ubound(ItmDle_SP)
+ If i = CInt(ItmDle_SP(j)) Then
+ is_ItmDle=1
+ End If
+ Next
+ If is_ItmDle=0 then
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_Price= SafeRequest(Request("OD_Price_"&i))
+ OD_Qty = SafeRequest(Request("OD_Qty_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_Price="" Then OD_Price=0
+ If OD_Qty="" Then OD_Qty=0
+ If CInt(OD_Qty)<>0 then
+ sql="select MRP_ODID from MRP_OrderDetail where MRP_OrderIDPK='"&NewMRP_OrderID&"' and OD_Price="&OD_Price&" and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ sql="update MRP_OrderDetail set OD_Qty=OD_Qty+"&OD_Qty&",OD_Remarks=OD_Remarks+'"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ Else
+ sql="insert into MRP_OrderDetail (MRP_OrderIDPK,StItmIDPK,OD_Qty,OD_Price,OD_Remarks) values ('"&NewMRP_OrderID&"',"&StItmID&","&OD_Qty&","&OD_Price&",'"&OD_Remarks&"')"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+Abs(OD_Qty)
+ TotalMoney=TotalMoney+OD_Price*Abs(OD_Qty)
+ End If
+ End If
+Next
+sql="update MRP_OrderStockAdjust set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&NewMRP_OrderID&"'"
+objConn.Execute sql
+
+ReturnURL="MRP_StockAdjustDetail.gds?MRP_OrderID="&NewMRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "92"
+'-------------------------------------------------------------淇敼搴撳瓨璋冩暣鍗�
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OrderWarehouseID= SafeRequest(request.form("OrderWarehouseID"))
+TotalQty = SafeRequest(request.form("TotalQty_TXT"))
+TotalMoney = SafeRequest(request.form("TotalMoney_TXT"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+OrdType = SafeRequest(request.form("OrdType"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+ItmDle = SafeRequest(request.form("ItmDle"))
+
+If MRP_OrderID="" Or OrderWarehouseID="" Or TotalQty="0" Or TotalQty="NaN" Or TotalQty="" Or StItmListY<=0 Then Response.Redirect "/MRP_StockAdjustDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState from MRP_OrderStockAdjust where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_StockAdjustList.gds?SystemMessageType=4&SMT=1"
+ElseIf rs(0)<>0 Then
+ Response.Redirect "/MRP_StockAdjustDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=3"
+end If
+rs.close()
+
+'淇敼澶у崟
+sql="update MRP_OrderStockAdjust set OrderWarehouseID="&OrderWarehouseID&",OrderRemarks='"&OrderRemarks&"'"&SqlAudit&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+'淇濆瓨瀛愬崟
+sql="delete from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"'"
+objConn.Execute sql
+TotalQty=0
+TotalMoney=0
+ItmDle_SP = SPLIT(ItmDle,", ")
+for i=1 to StItmListY
+ is_ItmDle=0
+ for j=0 to ubound(ItmDle_SP)
+ If i = CInt(ItmDle_SP(j)) Then
+ is_ItmDle=1
+ End If
+ Next
+ If is_ItmDle=0 then
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_Price= SafeRequest(Request("OD_Price_"&i))
+ OD_Qty = SafeRequest(Request("OD_Qty_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_Price="" Then OD_Price=0
+ If OD_Qty="" Then OD_Qty=0
+ If CInt(OD_Qty)<>0 then
+ sql="select MRP_ODID from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"' and OD_Price="&OD_Price&" and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ sql="update MRP_OrderDetail set OD_Qty=OD_Qty+"&OD_Qty&",OD_Remarks=OD_Remarks+'"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ Else
+ sql="insert into MRP_OrderDetail (MRP_OrderIDPK,StItmIDPK,OD_Qty,OD_Price,OD_Remarks) values ('"&MRP_OrderID&"',"&StItmID&","&OD_Qty&","&OD_Price&",'"&OD_Remarks&"')"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+Abs(OD_Qty)
+ TotalMoney=TotalMoney+OD_Price*Abs(OD_Qty)
+ End If
+ End If
+Next
+sql="update MRP_OrderStockAdjust set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+SMT="2"
+ReturnURL="MRP_StockAdjustDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "93"
+'-------------------------------------------------------------瀹℃牳搴撳瓨璋冩暣鍗�
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+OrderState = SafeRequest(request.form("OrderState"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+
+If MRP_OrderID="" Or OrderState="" Or StItmListY="" Then Response.Redirect "/MRP_StockAdjustDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+OrdType = Mid(MRP_OrderID,5,2)
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState,OrderWarehouseID from MRP_OrderStockAdjust where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_StockAdjustList.gds?SystemMessageType=4&SMT=1"
+ElseIf rs(0)<>0 Then
+ Response.Redirect "/MRP_StockAdjustDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=5"
+end If
+OrderWarehouseID= rs("OrderWarehouseID") '浠撳簱ID
+rs.close()
+
+'淇敼澶у崟
+sql="update MRP_OrderStockAdjust set OrderRemarks='"&OrderRemarks&"',OrderState="&OrderState&",AuditTime=getdate(),AuditTime_OAid="&session("adminID")&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+'鍐欏叆搴撳瓨
+TotalQty=0
+TotalMoney=0
+for i=1 to StItmListY
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_QtyA = SafeRequest(Request("OD_Qty_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_QtyA="" Then OD_QtyA=0
+ If CInt(OD_QtyA)<>0 then
+ sql="select MRP_ODID,OD_QtyA,OD_Price from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"' and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ OD_Price=rs(2)
+ OD_QtyB=OD_QtyA
+ sql="update MRP_OrderDetail set OD_QtyA=OD_QtyA+"&OD_QtyA&",OD_Remarks='"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ sql="insert into MRP_Stock (StItmIDPK,StockQty,StockWarehouseID,MRP_OrderIDPK,StockTime_OAid) values ("&StItmID&","&OD_QtyB&",'"&OrderWarehouseID&"','"&MRP_OrderID&"',"&session("adminID")&")"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+Abs(OD_QtyA)
+ TotalMoney=TotalMoney+OD_Price*Abs(OD_QtyA)
+ End If
+Next
+If OrderState="3" then
+ sql="update MRP_OrderStockAdjust set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&MRP_OrderID&"'"
+ objConn.Execute sql
+End If
+
+SMT="9"
+ReturnURL="MRP_StockAdjustDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "94"
+'-------------------------------------------------------------浣滃簾搴撳瓨璋冩暣鍗�
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OrderState = SafeRequest(request.form("OrderState"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+
+If MRP_OrderID="" Or OrderState="" Then Response.Redirect "/MRP_StockAdjustDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState from MRP_OrderStockAdjust where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_StockAdjustList.gds?SystemMessageType=4&SMT=1"
+ElseIf rs(0)=4 And OrderState="4" Then
+ Response.Redirect "/MRP_StockAdjustDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=5"
+end If
+rs.close()
+
+'淇敼澶у崟
+If OrderState="4" Then SqlAudit=",AuditTime=getdate(),AuditTime_OAid="&session("adminID")
+sql="update MRP_OrderStockAdjust set OrderRemarks='"&OrderRemarks&"',OrderState="&OrderState&SqlAudit&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+SMT="7"
+ReturnURL="MRP_StockAdjustDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "95"
+'-------------------------------------------------------------鍚堝苟鍖婚櫌
+HospID = SafeRequest(request.form("HospID"))
+HospSearchID = SafeRequest(request.form("HospSearchID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If HospID="" Then Response.Redirect "/HospData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=8"
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select top 1 HospID,Vid from HospData,dictionary where vtitle='HospName' and vtext=HospName and HospID in ("&HospID&") order by HospID"
+rs.open sql,objConn,1,1
+if not rs.eof then
+ NewHospID=rs(0)
+ Vid=rs(1)
+Else
+ Response.Redirect "/HospData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=8"
+end If
+rs.close()
+sql="delete from HospData where HospID in ("&HospID&") and HospID<>"&NewHospID
+objConn.Execute sql
+sql="update ServiceOrder set ServiceOrdPtOutHospID="&NewHospID&",ServiceOrdPtOutHosp="&Vid&" where ServiceOrdPtOutHospID in ("&HospID&")"
+objConn.Execute sql
+sql="update ServiceOrder set ServiceOrdPtInHospID="&NewHospID&",ServiceOrdPtInHosp="&Vid&" where ServiceOrdPtInHospID in ("&HospID&")"
+objConn.Execute sql
+
+ReturnURL="HospData.gds?searchTXT="&searchTXT&"&page="&page&"&HospSearchID="&HospSearchID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=7"
+Response.End%>
+
+<%case "96"
+'-------------------------------------------------------------鐭俊鍙戦��
+Send_Phone = SafeRequest(request("Send_Phone"))
+Send_Text = SafeRequest(request("Send_Text"))
+Send_Remarks = SafeRequest(request("Send_Remarks"))
+ReturnURL = SafeRequest(request("ReturnURL"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+
+if Send_Phone="" Or Send_Text="" Then%>
+<script language=javascript>
+ alert("閮ㄥ垎璧勬枡涓嶅畬鏁�!!")
+ window.history.go(-1)
+</script>
+<%Response.End
+end If
+
+if Send_Phone="銆愰殣銆�" Then%>
+<script language=javascript>
+ alert("璇峰～鍐欐纭殑鎵嬫満鍙风爜!!")
+ window.history.go(-1)
+</script>
+<%Response.End
+end If
+Send_Phone = Replace(Send_Phone,vbcrlf,",")
+Send_Phone_SP = SPLIT(Send_Phone,",")
+for i=0 to ubound(Send_Phone_SP)
+ If (Len(Send_Phone_SP(i))<>11 Or Mid(Send_Phone_SP(i),1,1)<>"1") And Len(Send_Phone_SP(i))>1 Then%>
+ <script language=javascript>
+ alert("璇峰～鍐欐纭殑鎵嬫満鍙风爜!!")
+ window.history.go(-1)
+ </script>
+ <%Response.End
+ End If
+Next
+
+Send_Text = Send_Text&"銆愬尰鐤楀揩绾裤��"
+Send_Text=Replace(Send_Text,"銆愰殣銆�","")
+'鍐呭杞箟
+If InStr(Send_Text,"[Pay|")>0 Then '鏀粯鐭俊
+ OrdPaySend=Mid(Send_Text,InStr(Send_Text,"[Pay|")+1)
+ OrdPaySend=Mid(OrdPaySend,1,InStr(OrdPaySend,"]")-1)
+ OrdPaySendSP=SPLIT(OrdPaySend,"|")
+ isPrePayment=OrdPaySendSP(1)
+ OrdID=OrdPaySendSP(2)
+ lateCode="SMS_172011248" '闃块噷浜戠煭淇℃ā鏉縄D
+
+ dURL=dwzURL("/OrdPay.asp?ServiceOrdID="&OrdID&"&isPrePayment="&isPrePayment)
+ Send_Text=Replace(Send_Text,"[Pay|"&isPrePayment&"|"&OrdID&"]",dURL)
+ElseIf InStr(Send_Text,"[Pay1|")>0 Then '鏀粯娴嬭瘯涓撶敤
+ OrdPaySend=Mid(Send_Text,InStr(Send_Text,"[Pay1|")+1)
+ OrdPaySend=Mid(OrdPaySend,1,InStr(OrdPaySend,"]")-1)
+ OrdPaySendSP=SPLIT(OrdPaySend,"|")
+ isPrePayment=OrdPaySendSP(1)
+ OrdID=OrdPaySendSP(2)
+
+ dURL=dwzURL("/OrdPay1.asp?ServiceOrdID="&OrdID&"&isPrePayment="&isPrePayment)
+ Send_Text=Replace(Send_Text,"[Pay1|"&isPrePayment&"|"&OrdID&"]",dURL)
+ElseIf InStr(Send_Text,"[Eva|")>0 Then '璇勪环鐭俊
+ OrdEvaSend=Mid(Send_Text,InStr(Send_Text,"[Eva|")+1)
+ OrdEvaSend=Mid(OrdEvaSend,1,InStr(OrdEvaSend,"]")-1)
+ OrdEvaSendSP=SPLIT(OrdEvaSend,"|")
+ OrdID=OrdEvaSendSP(1)
+ lateCode="SMS_219737201" '闃块噷浜戠煭淇℃ā鏉縄D
+
+ 'dURL=dwzURL("/OrdEvaluate.asp?DispatchOrdID="&OrdID)
+ dURL=dwzURL("/MyOrder.php?DispatchOrdID="&OrdID)
+ Send_Text=Replace(Send_Text,"[Eva|"&OrdID&"]",dURL)
+End If
+
+If lateCode<>"" Then
+ '闃块噷浜戠煭淇′笅鍙戞帴鍙�
+ If dURL<>"" And lateCode<>"" Then '杞烦閾炬帴
+ payurl=Replace(dURL,"wx.966120.com.cn/?n=","")
+ End If
+ If InStr(Send_Text,"鏀粯鎸囧紩锛�")>0 And InStr(Send_Text,"鎮ㄥソ锛�")>0 Then '瀹㈡埛濮撳悕
+ name=Mid(Send_Text,InStr(Send_Text,"鏀粯鎸囧紩锛�")+5)
+ name=Mid(name,1,InStr(name,"鎮ㄥソ锛�")-1)
+ End If
+ appUrl="https://api.966120.com.cn/v1/SendSms.php?Phone="&Send_Phone&"&name="&name&"&payurl="&payurl&"&lateCode="&lateCode
+ 'Response.Write appUrl
+ 'Response.end
+ HTMLCODE= PostBody(appUrl,args1)
+ sql="Insert into Sms_Log (Log_Id,Send_Text,Send_Phone,Send_OA,Send_errMsg,Send_Remarks) values ('闃块噷浜�','"&Send_Text&"','"&Send_Phone&"',"&session("adminID")&",'"&errMsg&"','"&Send_Remarks&"')"
+ objConn.Execute sql
+Else
+ '鍗曞厓绉戞妧鐭俊涓嬪彂鎺ュ彛
+ call Get_SMS(Send_Phone,Send_Text,Send_Remarks)
+End If
+'-------------------------
+
+If InStr(Send_Remarks,"ServiceOrdID")>0 Then
+ ServiceOrdID=Replace(Send_Remarks,"ServiceOrdID:","")
+ElseIf InStr(Send_Remarks,"DispatchOrdID")>0 Then
+ DispatchOrdID=Replace(Send_Remarks,"DispatchOrdID:","")
+End If
+
+If ReturnURL="ServiceOrder" Then
+ If ServiceOrdID<>"" Then
+ ReturnURL="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&h_menu1_1=1&SystemMessageType=3&SMT=11"
+ Else
+ ReturnURL="/ServiceOrder_List.gds?SystemMessageType=3&SMT=11"
+ End If
+ElseIf ReturnURL="DispatchOrder" Then
+ If DispatchOrdID<>"" Then
+ ReturnURL="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&OrdClassList=0&h_menu1_1=1&SystemMessageType=3&SMT=13"
+ Else
+ ReturnURL="/DispatchOrder_List.gds?SystemMessageType=3&SMT=13"
+ End If
+ElseIf ReturnURL="Phone" Then
+ If ServiceOrdID<>"" Then
+ ReturnURL="/m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&""
+ Else
+ ReturnURL="/m_ServiceOrder_List.gds?OrdState=0"
+ End If
+ElseIf ReturnURL="PhoneD" Then
+ If ServiceOrdID<>"" Then
+ ReturnURL="/m_DispatchOrder.gds?ServiceOrdID="&ServiceOrdID&"&NEWOrder=3&Perfomance=&Stretcher="
+ Else
+ ReturnURL="/m_ServiceOrder_List.gds?OrdState=0"
+ End If
+Else
+ ReturnURL="/SMS_List.gds?SystemMessageType=3&SMT=2"
+End If
+
+rsRollbackTrans(objConn.Errors.count)
+If ReturnURL="Phone" Then
+%>
+ <script lnguage=javascript>
+ alert("鍙戦�佸畬鎴�");
+ window.location.href="<%=ReturnURL%>"
+ </script>
+<%
+Else
+ Response.Redirect ReturnURL
+End If
+Response.End%>
+
+<%case "97"
+'-------------------------------------------------------------鏂板鐗╁搧璐ф灦瀵圭収琛�
+OrderWarehouseID= SafeRequest(request.form("OrderWarehouseID"))
+ShelvesListY = SafeRequest(request.form("ShelvesListY"))
+ShelvesDle = SafeRequest(request.form("ShelvesDle"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+ItmDle = SafeRequest(request.form("ItmDle"))
+
+
+If OrderWarehouseID="" Or ShelvesListY<=0 Or StItmListY<=0 Then Response.Redirect "/MRP_StockShelvesApp.gds?SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+
+'淇濆瓨鏁版嵁
+ShelvesDle_SP = SPLIT(ShelvesDle,", ")
+ItmDle_SP = SPLIT(ItmDle,", ")
+for i=1 to ShelvesListY
+ is_ShelvesDle=0
+ for j=0 to ubound(ShelvesDle_SP)
+ If i = CInt(ShelvesDle_SP(j)) Then
+ is_ShelvesDle=1
+ End If
+ Next
+ If is_ShelvesDle=0 then
+ ShelvesID = SafeRequest(Request("ShelvesID_"&i))
+ for z=1 to StItmListY
+ ItmDle=0
+ for j=0 to ubound(ItmDle_SP)
+ If i = CInt(ItmDle_SP(j)) Then
+ is_ItmDle=1
+ End If
+ Next
+ If is_ItmDle=0 Then
+ StItmID = SafeRequest(Request("StItmID_"&z))
+ sql="select id,isShelves from MRP_WarehouseShelves where ShelvesID="&ShelvesID&" and ItmID="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ id=rs(0)
+ isShelves=rs(1)
+ If isShelves=0 Then
+ sql="update MRP_WarehouseShelves set isShelves=1 where id="&id
+ objConn.Execute sql
+ End If
+ Else
+ sql="insert into MRP_WarehouseShelves (ShelvesID,ItmID,isShelves) values ("&ShelvesID&","&StItmID&",1)"
+ objConn.Execute sql
+ end If
+ rs.close()
+ End If
+ Next
+ End If
+Next
+
+ReturnURL="MRP_StockShelves.gds"
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"?SystemMessageType=3&SMT=2&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "98"
+'-------------------------------------------------------------鍚敤/鍋滅敤璐ф灦杩炴帴
+ID = trim(Request("ID"))
+State = trim(Request("State"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If State="" Then State=0
+If ID="" Then Response.Redirect "/MRP_StockShelves.gds?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=4"
+
+sql="update MRP_WarehouseShelves set isShelves="&State&" where isShelves<>"&State&" and id in ("&ID&")"
+objConn.Execute sql
+
+If State="0" Then
+ SMT=6
+Else
+ SMT=8
+End If
+ReturnURL="MRP_StockShelves.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+
+<%case "99"
+'-------------------------------------------------------------寰俊_浣忓鐢宠
+DispatchOrdID= SafeRequest(request.form("DispatchOrdID"))
+OA_latitude = SafeRequest(request.form("OA_latitude"))
+OA_longitude = SafeRequest(request.form("OA_longitude"))
+OA_address = SafeRequest(request.form("OA_address"))
+HotelDate = SafeRequest(request.form("HotelDate"))
+HotelName = SafeRequest(request.form("HotelName"))
+HotelPrice = SafeRequest(request.form("HotelPrice"))
+HotelRemarks = SafeRequest(request.form("HotelRemarks"))
+
+
+If DispatchOrdID="" Or OA_latitude="" Or OA_longitude="" Or HotelDate="" Or HotelName="" Then Response.Redirect "/m_DispatchOrder_Hotel.gds?DispatchOrdID="&DispatchOrdID&"&order_type=7"
+
+'If DispatchOrdID="" Or HotelDate="" Or HotelName="" Then Response.Redirect "/m_DispatchOrder_Hotel.gds?DispatchOrdID="&DispatchOrdID&"&order_type=7"
+If HotelPrice="" Then HotelPrice=0
+Set rs = Server.CreateObject("ADODB.Recordset")
+
+'淇濆瓨鏁版嵁
+sql="insert into DispatchOrd_Hotel (DispatchOrdIDDt, HotelDate, HotelName, HotelPrice, HotelRemarks, HotelGPS_address, HotelGPS_latitude, HotelGPS_longitude, Hotel_OAID) values ("&DispatchOrdID&", '"&HotelDate&"', '"&HotelName&"', "&HotelPrice&", '"&HotelRemarks&"', '"&OA_address&"', '"&OA_latitude&"', '"&OA_longitude&"', "&session("adminID")&")"
+objConn.Execute sql
+
+ReturnURL="m_DispatchOrder_Hotel.gds?DispatchOrdID="&DispatchOrdID&"&order_type=7"
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "100"
+'-------------------------------------------------------------寰俊_浣忓鐢宠鍒犻櫎
+DispatchOrdID= SafeRequest(request("DispatchOrdID"))
+HotelID = SafeRequest(request("HotelID"))
+
+
+If DispatchOrdID="" Or HotelID="" Then Response.Redirect "/m_DispatchOrder_Hotel.gds?DispatchOrdID="&DispatchOrdID&"&order_type=7"
+
+'淇濆瓨鏁版嵁
+sql="delete from DispatchOrd_Hotel where DispatchOrdIDDt="&DispatchOrdID&" and id="&HotelID
+objConn.Execute sql
+
+ReturnURL="m_DispatchOrder_Hotel.gds?DispatchOrdID="&DispatchOrdID&"&order_type=7"
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "101"
+'-------------------------------------------------------------鎵归噺鍙栨秷鏈嶅姟鍗�
+ServiceOrdID= SafeRequest(request("ServiceOrdID"))
+searchTXT=SafeRequest(Request("searchTXT"))
+OrdState=SafeRequest(Request("OrdState"))
+OrdClassList=SafeRequest(Request("OrdClassList"))
+OrdDateType=SafeRequest(Request("OrdDateType"))
+OrdDateStart=SafeRequest(Request("OrdDateStart"))
+OrdDateEnd=SafeRequest(Request("OrdDateEnd"))
+
+If ServiceOrdID="" Then Response.Redirect "/ServiceOrder_List.gds?OrdState="&OrdState&"&OrdDateType="&OrdDateType&"&OrdClassList="&OrdClassList&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&h_menu1_1=1&SystemMessageType=4&SMT=6"
+
+'淇濆瓨鏁版嵁
+CancelReason=8
+CancelReasonTXT="鎵归噺鍙栨秷"
+sql="update ServiceOrder set ServiceOrdState=4,ServiceOrd_AP_ID="&session("adminID")&",ServiceOrd_AP_Time=getdate(),ServiceOrdCancelReason="&CancelReason&",ServiceOrdCancelReasonTXT='"&CancelReasonTXT&"' where ServiceOrdID in ("&ServiceOrdID&")"
+objConn.Execute sql
+DispatchOrdIDPS = SPLIT(ServiceOrdID,",")
+for j = 0 to UBOUND(ServiceOrdIDPS)
+ If ServiceOrdIDPS(j)<>"" Then
+ objConn.Execute "exec OrdDataUP "&ServiceOrdIDPS(j)
+ End If
+Next
+
+ReturnURL="/ServiceOrder_List.gds?OrdState="&OrdState&"&OrdDateType="&OrdDateType&"&OrdClassList="&OrdClassList&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&h_menu1_1=1&SystemMessageType=3&SMT=7"
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "102"
+'-------------------------------------------------------------鎵归噺鍙栨秷璋冨害鍗�
+DispatchOrdID = SafeRequest(Request("DispatchOrdID"))'璋冨害鍗曞彿
+ServiceOrdDel = SafeRequest(Request("ServiceOrdDel"))'鏄惁鍚屾椂鍙栨秷鏈嶅姟鍙�(1鏄�,0鍚�)
+Del = SafeRequest(Request("Del")) '寮哄埗鍙栨秷(YES/NO)
+CancelReason = SafeRequest(Request("CancelReason"))'鍙栨秷鍘熷洜
+CancelReasonTXT = SafeRequest(Request("CancelReasonTXT"))'鍙栨秷鍘熷洜澶囨敞
+searchTXT=SafeRequest(Request("searchTXT"))
+OrdState=SafeRequest(Request("OrdState"))
+OrdClassList=SafeRequest(Request("OrdClassList"))
+OrdDateType=SafeRequest(Request("OrdDateType"))
+OrdDateStart=SafeRequest(Request("OrdDateStart"))
+OrdDateEnd=SafeRequest(Request("OrdDateEnd"))
+If CancelReason="" Then CancelReason=8
+If CancelReasonTXT="" Then CancelReasonTXT="鎵归噺鍙栨秷"
+CancelReasonTXT = CancelReasonTXT&"[鍙栨秷鎿嶄綔:"&OAUser(session("adminID"),"UserName")&"]"
+If ServiceOrdDel="" Then ServiceOrdDel=0
+If Del="" Then Del="YES"
+
+If DispatchOrdID="" Then Response.Redirect "/DispatchOrder_List.gds?OrdState="&OrdState&"&OrdDateType="&OrdDateType&"&OrdClassList="&OrdClassList&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&h_menu1_1=1&SystemMessageType=4&SMT=6"
+
+'楠岃瘉璋冨害鍗曟槸鍚﹀彲鍙栨秷
+If DispatchOrdID<>"" Then
+ Set rs = Server.CreateObject("ADODB.Recordset")
+
+ If Del<>"YES" then
+ sql="select DispatchOrdState,DispatchOrd_AP_Check from DispatchOrd where (DispatchOrdState>=4 or DispatchOrd_AP_Check=1) and DispatchOrdID in ("&DispatchOrdID&")"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ Response.Redirect "/DispatchOrder_List.gds?OrdState="&OrdState&"&OrdDateType="&OrdDateType&"&OrdClassList="&OrdClassList&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&h_menu1_1=1&SystemMessageType=4&SMT=8"
+ End If
+ rs.close()
+ End if
+ sql="update DispatchOrd set DispatchOrdState=10,DispatchOrdStartDate=getdate(),DispatchOrdCancelReason="&CancelReason&",DispatchOrdCancelReasonTXT='"&CancelReasonTXT&"',DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost),DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID in ("&DispatchOrdID&")"
+ objConn.Execute sql
+ '淇敼鐩稿叧鏈嶅姟鍗曠姸鎬�
+ sql="select DispatchOrdID,ServiceOrdIDDt from DispatchOrd where DispatchOrdID in ("&DispatchOrdID&")"
+ rs.open sql,objConn,1,1
+ do while not rs.Eof
+ ServiceOrdID=rs("ServiceOrdIDDt")
+ If ServiceOrdID<>"" then
+ If ServiceOrdDel="1" Then
+ sql="update ServiceOrder set ServiceOrdState=4,ServiceOrd_AP_ID="&session("adminID")&",ServiceOrd_AP_Time=getdate(),ServiceOrdCancelReason="&CancelReason&",ServiceOrdCancelReasonTXT='"&CancelReasonTXT&"' where ServiceOrdID="&ServiceOrdID
+ else
+ sql="update ServiceOrder set ServiceOrdState=2,ServiceOrdStartDate=getdate(),ServiceOrdCancelReason="&CancelReason&",ServiceOrdCancelReasonTXT='"&CancelReasonTXT&"' where ServiceOrdID="&ServiceOrdID
+ End If
+ objConn.Execute sql
+
+ End If
+ rs.movenext
+ loop
+ rs.close()
+ DispatchOrdIDPS = SPLIT(DispatchOrdID,",")
+ for j = 0 to UBOUND(DispatchOrdIDPS)
+ If DispatchOrdIDPS(j)<>"" Then
+ objConn.Execute "exec OrdDataUP "&DispatchOrdIDPS(j)
+ End If
+ Next
+End If
+
+ReturnURL="/DispatchOrder_List.gds?OrdState="&OrdState&"&OrdDateType="&OrdDateType&"&OrdClassList="&OrdClassList&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=7&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "103"
+'-------------------------------------------------------------寮哄埗杞畬鎴�/璺戠┖鍗�
+DispatchOrdID = SafeRequest(Request("DispatchOrdID"))'璋冨害鍗曞彿
+DispatchOrdState = SafeRequest(Request("DispatchOrdState"))'8杞畬鎴�,9杞窇绌�
+
+If DispatchOrdID="" Then Response.Redirect "/DispatchOrder_List.gds?OrdState="&OrdState&"&OrdDateType="&OrdDateType&"&OrdClassList="&OrdClassList&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&h_menu1_1=1&SystemMessageType=4&SMT=6"
+
+sql="update DispatchOrd set DispatchOrdState="&DispatchOrdState&",DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost),DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID in ("&DispatchOrdID&")"
+objConn.Execute sql
+DispatchOrdIDSP = SPLIT(DispatchOrdID,",")
+for i=0 to ubound(DispatchOrdIDSP)
+ DispatchOrdIDs=Trim(DispatchOrdIDSP(i))
+ '閲嶇偣璁櫒褰掕繕
+ If DispatchOrdIDs<>"" Then
+ Call DispatchMRPOrderReturn(14,DispatchOrdIDs)
+ End If
+Next
+
+ReturnURL="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+If DispatchOrdState=8 Then
+ Call OA_Running("寮哄埗杞畬鎴�:"&DispatchOrdID)
+Else
+ Call OA_Running("寮哄埗杞窇绌哄崟:"&DispatchOrdID)
+End If
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "104"
+'-------------------------------------------------------------鍒犻櫎璋冨害鍗曟枃妗�
+DispatchOrdID = SafeRequest(Request("DispatchOrdID")) '璋冨害鍗曞彿
+ImageID = SafeRequest(Request("DelImageID")) '鏂囨。ID
+isSeatBeltUpdate = SafeRequest(Request("isSeatBeltUpdate"))
+m = SafeRequest(Request("m"))
+
+
+If (DispatchOrdID="" And isDepartment("030122")=0) Or ImageID="" Then Response.Redirect "/DispatchOrder_List.gds?OrdState="&OrdState&"&OrdDateType="&OrdDateType&"&OrdClassList="&OrdClassList&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&h_menu1_1=1&SystemMessageType=4&SMT=6"
+
+sql="update ImageData set ImageDel=1 where id in ("&ImageID&")"
+objConn.Execute sql
+
+If m="1" Then
+ ReturnURL="/m_DispatchOrder_Update.gds?DispatchOrdID="&DispatchOrdID&"&order_type=8&isSeatBeltUpdate="&isSeatBeltUpdate
+ElseIf DispatchOrdID="" Then
+ ReturnURL=Request.ServerVariables("HTTP_REFERER")
+Else
+ ReturnURL="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+End If
+Call OA_Running("鍒犻櫎璋冨害鍗曟枃妗�:"&DispatchOrdID&" ImageID:"&ImageID)
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "105"
+'-------------------------------------------------------------閲嶇偣璁櫒寮哄埗褰掕繑
+DispatchOrdID = SafeRequest(Request("DispatchOrdID")) '璋冨害鍗曞彿
+StItmID = SafeRequest(Request("StItmID"))
+WarehouseID = SafeRequest(Request("WarehouseID"))
+
+If DispatchOrdID="" Then Response.Redirect "/MRP_VE_List.gds"
+
+Call DispatchMRPOrderReturn(14,DispatchOrdID)
+
+ReturnURL="/MRP_VE_List.gds?WarehouseID="&WarehouseID
+Call OA_Running("閲嶇偣璁櫒寮哄埗褰掕繑:"&DispatchOrdID)
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "106"
+'-------------------------------------------------------------瀹℃牳璋冨害鍗曠浉鍏虫枃涔�
+ImageID = SafeRequest(Request("ImageID")) '鏂囦欢ID
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+
+If ImageID="" Then Response.Redirect Request.ServerVariables("HTTP_REFERER")
+
+sql="update ImageData set isAP=1,isAP_ID="&session("adminID")&",isAP_Time=getdate() where id in ("&ImageID&")"
+objConn.Execute sql
+
+ReturnURL=Request.ServerVariables("HTTP_REFERER")
+Call OA_Running("瀹℃牳璋冨害鍗曠浉鍏虫枃涔� ImageID:"&ImageID)
+rsRollbackTrans(objConn.Errors.count)
+
+If ImageID<>"" Then
+ Set rs = Server.CreateObject("ADODB.Recordset")
+ sql="select top 1 id from ImageData where DOrdIDDt in (select DOrdIDDt from ImageData where id="&ImageID&") and isAP=0 and ImageDel=0 order by ImageType"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ ReturnURL="/Image.gds?ImageID="&rs("id")
+ End If
+ rs.close()
+End If
+%>
+<script lnguage=javascript>
+ //alert("瀹℃牳瀹屾垚");
+ window.location.href="<%=ReturnURL%>"
+</script>
+<%Response.End%>
+
+<%case "107"
+'-------------------------------------------------------------淇濆瓨璁㈠崟鎿嶄綔鐣欒█
+ServiceOrdID = SafeRequest(Request("ServiceOrdID"))
+DispatchOrdID = SafeRequest(Request("DispatchOrdID"))
+MessageContents = SafeRequest(request("MessageContents"))
+UrlType = SafeRequest(request("UrlType"))
+
+If UrlType="" Or ServiceOrdID="" Then Response.Redirect "/"
+
+If MessageContents<>"" Then
+ sql="insert into ServiceOrd_Message (ServiceOrdIDDt,MessageContents,MessageOAid) values ("&ServiceOrdID&",'"&MessageContents&"',"&session("adminID")&")"
+ objConn.Execute sql
+End If
+
+If UrlType="ServiceOrder" then
+ ReturnURL="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+ElseIf UrlType="DispatchOrder" then
+ ReturnURL="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ElseIf UrlType="m_DispatchOrder" then
+ ReturnURL="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+Else
+ ReturnURL="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+End If
+rsRollbackTrans(objConn.Errors.count)
+
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=40&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "108"
+'-------------------------------------------------------------鍒犻櫎璁㈠崟鎿嶄綔鐣欒█
+ServiceOrdID = SafeRequest(Request("ServiceOrdID"))
+DispatchOrdID = SafeRequest(Request("DispatchOrdID"))
+MessageID = SafeRequest(request("MID"))
+UrlType = SafeRequest(request("UrlType"))
+
+If UrlType="" Or MessageID="" Then Response.Redirect "/"
+
+sql="update ServiceOrd_Message set MessageState=0 where MID="&MessageID
+'sql="update ServiceOrd_Message set MessageState=0 where MID="&MessageID&" and MessageOAid="&session("adminID")
+objConn.Execute sql
+
+If UrlType="ServiceOrder" then
+ ReturnURL="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+ElseIf UrlType="DispatchOrder" then
+ ReturnURL="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ElseIf UrlType="m_DispatchOrder" then
+ ReturnURL="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+Else
+ ReturnURL="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
+End If
+rsRollbackTrans(objConn.Errors.count)
+
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=41&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+
+<%case "109"
+'-------------------------------------------------------------寰俊鏈嶅姟閫氱煡鍙戦��
+APPID = SafeRequest(request("APPID"))
+openid = SafeRequest(request("openid"))
+UserID = SafeRequest(request("UserID"))
+template_id = SafeRequest(request("template_id"))
+form_id = SafeRequest(request("form_id"))
+page = SafeRequest(request("page"))
+keyword1 = SafeRequest(request("keyword1"))
+keyword2 = SafeRequest(request("keyword2"))
+keyword3 = SafeRequest(request("keyword3"))
+keyword4 = SafeRequest(request("keyword4"))
+keyword5 = SafeRequest(request("keyword5"))
+keyword6 = SafeRequest(request("keyword6"))
+
+Send_Remarks = SafeRequest(request("Send_Remarks"))
+ReturnURL = SafeRequest(request("ReturnURL"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+
+
+if APPID="" Or openid="" Or UserID="" Or template_id="" Or form_id="" Then%>
+<script language=javascript>
+ alert("閮ㄥ垎璧勬枡涓嶅畬鏁�!!")
+ window.history.go(-1)
+</script>
+<%Response.End
+end If
+
+If InStr(Send_Remarks,"ServiceOrdID")>0 Then
+ ServiceOrdID=Replace(Send_Remarks,"ServiceOrdID:","")
+ElseIf InStr(Send_Remarks,"DispatchOrdID")>0 Then
+ DispatchOrdID=Replace(Send_Remarks,"DispatchOrdID:","")
+End If
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select APPID,APPSECRET from IntroducerUnitData where APPID='"&APPID&"'"
+rs.open sql,objConn,1,1
+If not rs.eof Then
+ APPID=rs("APPID")
+ key=rs("APPSECRET")
+Else
+ Response.Redirect "/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&h_menu1_1=1&SystemMessageType=4&SMT=1"
+End If
+rs.close()
+url="https://api.966120.com.cn/weixin/"
+data1 = "{""keyword1"":{""value"":"""&keyword1&"""},""keyword2"":{""value"":"""&keyword2&"""},""keyword3"":{""value"":"""&keyword3&"""},""keyword4"":{""value"":"""&keyword4&"""},""keyword5"":{""value"":"""&keyword5&"""},""keyword6"":{""value"":"""&keyword6&"""}}"
+If LoginType>=0 Then
+ Origin="method=weixin_MessageSend"
+ Origin=Origin&"&APPID="&APPID
+ Origin=Origin&"&UserID="&UserID
+ Origin=Origin&"&openId="&openId
+ Origin=Origin&"&template_id="&template_id
+ Origin=Origin&"&form_id="&form_id
+ Origin=Origin&"&data="&data1
+ Origin=Origin&"&page="&page
+ Origin=Origin&"&UnixTime="&ToUnixTime(now(),+8)
+
+ sParaSort=SignArgs(Origin)
+ Origin=Origin&"&Sign="&sParaSort
+
+ 'Response.Write url&"?"&Origin&"<br>"
+ 'Response.end
+ HTMLCODE= GetBody(url,Origin)
+ 'Response.Write HTMLCODE&"<br>"
+ ReturnURL="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&h_menu1_1=1&SystemMessageType=3&SMT="&HTMLCODE
+End If
+
+'call Get_SMS(Send_Phone,Send_Text,Send_Remarks)
+
+If ReturnURL="ServiceOrder" Then
+ If ServiceOrdID<>"" Then
+ ReturnURL="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&h_menu1_1=1&SystemMessageType=3&SMT=11"
+ Else
+ ReturnURL="/ServiceOrder_List.gds?SystemMessageType=3&SMT=11"
+ End If
+ElseIf ReturnURL="DispatchOrder" Then
+ If DispatchOrdID<>"" Then
+ ReturnURL="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&OrdClassList=0&h_menu1_1=1&SystemMessageType=3&SMT=13"
+ Else
+ ReturnURL="/DispatchOrder_List.gds?SystemMessageType=3&SMT=13"
+ End If
+Else
+ ReturnURL="/SMS_List.gds?SystemMessageType=3&SMT=2"
+End If
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+
+<%case "110"
+'-------------------------------------------------------------鏂板缓杞粨鍗�(鎵嬫満涓撶敤)89
+DispatchOrdID = SafeRequest(request.form("DispatchOrdID")) '璋冨害鍗曞彿
+CarID = SafeRequest(request.form("CarID")) '杞﹁締ID
+ManoeuvreType = SafeRequest(request.form("ManoeuvreType")) '鍗曟嵁绫诲瀷
+WarehouseID = SafeRequest(request.form("WarehouseID")) '杞﹁締浠撳簱ID
+OperWarehouseID = SafeRequest(request.form("OperWarehouseID")) '瀵瑰簲浠撳簱ID
+OrderRemarks = SafeRequest(request.form("OrderRemarks")) '澶囨敞
+
+If CarID="" Or ManoeuvreType="" Or WarehouseID="" Or OperWarehouseID="0" Then Response.Redirect "/MRP_CarStock_m.gds?DispatchOrdID="&DispatchOrdID&"&CarID="&CarID&"&order_type=10"
+
+If ManoeuvreType="1" Then '棰嗗嚭鐧昏
+ OrdType="14"
+ OutWarehouseID=OperWarehouseID
+ InWarehouseID=WarehouseID
+ElseIf ManoeuvreType="2" Then '褰掕繕鐧昏
+ OrdType="14"
+ OutWarehouseID=WarehouseID
+ InWarehouseID=OperWarehouseID
+ElseIf ManoeuvreType="3" Then '浣跨敤鐧昏
+ OrdType="11"
+ OutWarehouseID=WarehouseID
+Else
+ Response.Redirect "/MRP_CarStock_m.gds?DispatchOrdID="&DispatchOrdID&"&CarID="&CarID&"&order_type=10"
+End If
+Set rs = Server.CreateObject("ADODB.Recordset")
+NewMRP_OrderID=NewMRPOrderID(OrdType) '鐢熸垚鍗曟嵁缂栧彿
+'淇濆瓨瀛愬崟骞跺啓鍏ュ簱瀛樹俊鎭�
+TotalQty=0
+TotalMoney=0
+item_code_SP = SPLIT(Request("item_code"),", ")
+item_qty_SP = SPLIT(Request("qty"),", ")
+for i=0 to ubound(item_code_SP)
+ StItmID = item_code_SP(i)
+ OD_Price= 0
+ OD_Qty = SafeRequest(item_qty_SP(i))
+ OD_Remarks = ""
+ If OD_Price="" Then OD_Price=0
+ If OD_Qty="" Then OD_Qty=0
+ If CInt(OD_Qty)>0 then
+ sql="select MRP_ODID from MRP_OrderDetail where MRP_OrderIDPK='"&NewMRP_OrderID&"' and OD_Price="&OD_Price&" and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ sql="update MRP_OrderDetail set OD_Qty=OD_Qty+"&OD_Qty&",OD_Remarks=OD_Remarks+'"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ Else
+ sql="insert into MRP_OrderDetail (MRP_OrderIDPK,StItmIDPK,OD_Qty,OD_QtyA,OD_Price,OD_Remarks) values ('"&NewMRP_OrderID&"',"&StItmID&","&OD_Qty&","&OD_Qty&","&OD_Price&",'"&OD_Remarks&"')"
+ objConn.Execute sql
+ end If
+ rs.close()
+ '搴撳瓨澶勭悊
+ If OrdType="11" Or OrdType="14" Then
+ sql="insert into MRP_Stock (StItmIDPK,StockQty,StockWarehouseID,MRP_OrderIDPK,StockTime_OAid) values ("&StItmID&","&-OD_Qty&",'"&OutWarehouseID&"','"&NewMRP_OrderID&"',"&session("adminID")&")"
+ objConn.Execute sql
+ End If
+ If OrdType="14" Then
+ sql="insert into MRP_Stock (StItmIDPK,StockQty,StockWarehouseID,MRP_OrderIDPK,StockTime_OAid) values ("&StItmID&","&OD_Qty&",'"&InWarehouseID&"','"&NewMRP_OrderID&"',"&session("adminID")&")"
+ objConn.Execute sql
+ End If
+ TotalQty=TotalQty+OD_Qty
+ TotalMoney=TotalMoney+OD_Price*OD_Qty
+ End If
+Next
+'淇濆瓨骞跺鏍稿ぇ鍗�
+
+If OrdType="11" Then
+
+ sql="insert into MRP_OrderApply (MRP_OrderID,OrderCustomerName,OrderWarehouseID,OrderState,OrderTime_OAid,OrderRemarks) values ('"&NewMRP_OrderID&"','"&session("adminID")&"',"&WarehouseID&",0,"&session("adminID")&",'"&OrderRemarks&"')"
+ objConn.Execute sql
+ sql="update MRP_OrderApply set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&",OrderState=3,AuditTime=getdate(),AuditTime_OAid="&session("adminID")&",ShipmentTime=getdate(),ShipmentTime_OAid="&session("adminID")&" where MRP_OrderID='"&NewMRP_OrderID&"'"
+ objConn.Execute sql
+
+ElseIf OrdType="14" Then
+ sql="insert into MRP_OrderManoeuvre (MRP_OrderID,OutWarehouseID,InWarehouseID,OrderState,OrderTime_OAid,TotalQty,OrderRemarks) values ('"&NewMRP_OrderID&"',"&OutWarehouseID&","&InWarehouseID&",0,"&session("adminID")&","&TotalQty&",'"&OrderRemarks&"')"
+ objConn.Execute sql
+ sql="update MRP_OrderManoeuvre set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&",OrderState=3,AuditTime=getdate(),AuditTime_OAid="&session("adminID")&",OutTime=getdate(),OutTime_OAid="&session("adminID")&",InTime=getdate(),InTime_OAid="&session("adminID")&" where MRP_OrderID='"&NewMRP_OrderID&"'"
+ objConn.Execute sql
+End If
+
+ReturnURL="MRP_CarStock_m.gds?DispatchOrdID="&DispatchOrdID&"&order_type=10"
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2"
+Response.End%>
+
+<%case "111"
+'-------------------------------------------------------------鏈烘瀯鍦板尯鍩虹璐圭敤鍒楄〃绠＄悊
+IRid = SafeRequest(request.form("IRid")) 'ID
+IRUnitID = SafeRequest(request.form("IRUnitID")) '鏈烘瀯ID
+IRState = SafeRequest(request.form("IRState")) '鐘舵��
+IRProvince = SafeRequest(request.form("IRProvince"))'鐪�
+IRCity = SafeRequest(request.form("IRCity")) '鍩庡競
+IRArea = SafeRequest(request.form("IRArea")) '鍦板尯
+IRPrice = SafeRequest(request.form("IRPrice")) '璐圭敤
+IRRemarks = SafeRequest(request.form("IRRemarks"))'澶囨敞
+
+If IRUnitID="" Or IRProvince="" Or IRPrice="" Or not IsNumeric(IRPrice) Then Response.Redirect "/IntroducerUnitBranch.gds?UnitID="&UnitID&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+
+If IRid="" Or IRid="0" Then
+ sql="select IRid from IntroducerRegion where IRUnitID="&IRUnitID&" and IRProvince='"&IRProvince&"' and IRCity='"&IRCity&"' and IRArea='"&IRArea&"'"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ Response.Redirect "/IntroducerUnitBranch.gds?UnitID="&IRUnitID&"&SystemMessageType=4&SMT=3"
+ Else
+ sql="insert into IntroducerRegion (IRUnitID,IRProvince,IRCity,IRArea,IRPrice,IRState,IRRemarks) values ("&IRUnitID&",'"&IRProvince&"','"&IRCity&"','"&IRArea&"',"&IRPrice&","&IRState&",'"&IRRemarks&"')"
+ objConn.Execute sql
+ End If
+ rs.close()
+Else
+ sql="select IRid from IntroducerRegion where IRUnitID="&IRUnitID&" and IRProvince='"&IRProvince&"' and IRCity='"&IRCity&"' and IRArea='"&IRArea&"' and IRid<>"&IRid
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ Response.Redirect "/IntroducerUnitBranch.gds?UnitID="&IRUnitID&"&SystemMessageType=4&SMT=3"
+ Else
+ sql="update IntroducerRegion set IRProvince='"&IRProvince&"',IRCity='"&IRCity&"',IRArea='"&IRArea&"',IRPrice="&IRPrice&",IRState="&IRState&",IRRemarks='"&IRRemarks&"' where IRid="&IRid
+ objConn.Execute sql
+ End If
+ rs.close()
+End If
+
+ReturnURL="/IntroducerUnitBranch.gds?UnitID="&IRUnitID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2"
+Response.End%>
+
+<%case "112"
+'-------------------------------------------------------------鏈烘瀯杞繍璐圭敤绠＄悊
+UnitID = SafeRequest(request.form("UnitID")) 'ID
+dictionary_id= SafeRequest(request.form("dictionary_id")) '鏈烘瀯ID
+ServiceBranchName = SafeRequest(request.form("ServiceBranchName")) '鏈烘瀯瀵瑰鍚嶇О
+ServiceBranchType = SafeRequest(request.form("ServiceBranchType")) '鏈烘瀯鐘舵��
+ServiceMinPrice = SafeRequest(request.form("ServiceMinPrice")) '璺濈鏈�浣庢姤浠�:
+ServiceUnitPrice = SafeRequest(request.form("ServiceUnitPrice")) '鍗曚环/鍏�
+ServiceLong = SafeRequest(request.form("ServiceLong")) '闀块�旇瀹�:
+ServiceAddress = SafeRequest(request.form("ServiceAddress")) '鍑哄彂鍦板潃
+ServiceRemarks = SafeRequest(request.form("ServiceRemarks"))'澶囨敞
+ServiceAddress_lat = 0
+ServiceAddress_lng = 0
+If UnitID="" Or dictionary_id="" Or ServiceBranchName="" Or ServiceAddress="" Or not IsNumeric(ServiceMinPrice) Or not IsNumeric(ServiceUnitPrice) Or not IsNumeric(ServiceLong) Then Response.Redirect "/IntroducerUnitBranch.gds?UnitID="&UnitID&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+
+lbs_key="YYIBZ-AFN3I-PBOGH-5RARF-S7I46-FQBY3"
+appUrl="https://apis.map.qq.com/ws/geocoder/v1/"
+args1 = "address="&ServiceAddress&"&key="&lbs_key
+HTMLCODE= GetBody(appUrl,args1)
+'Response.Write HTMLCODE
+'Response.End
+json = HTMLCODE
+str=json
+set obj = getjson(str)
+status = obj.status
+If status=0 Then
+ ServiceAddress_lat = obj.result.location.lat
+ ServiceAddress_lng = obj.result.location.lng
+End If
+sql="update dictionary set vtext='"&ServiceBranchName&"',vType="&ServiceBranchType&" where id="&dictionary_id
+objConn.Execute sql
+sql="update IntroducerUnitData set ServiceMinPrice="&ServiceMinPrice&",ServiceUnitPrice="&ServiceUnitPrice&",ServiceLong="&ServiceLong&",ServiceRemarks='"&ServiceRemarks&"',ServiceAddress='"&ServiceAddress&"',ServiceAddress_lat="&ServiceAddress_lat&",ServiceAddress_lng="&ServiceAddress_lng&" where UnitID="&UnitID
+objConn.Execute sql
+
+ReturnURL="/IntroducerUnitBranch.gds?UnitID="&UnitID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2"
+Response.End%>
+
+<%case "113"
+'-------------------------------------------------------------淇敼璋冨害鍗曡绋嬪叕閲屾暟(寰俊)
+ServiceOrdID = SafeRequest(Request("ServiceOrdID")) '鏈嶅姟鍗曞彿
+DispatchOrdID = SafeRequest(Request("DispatchOrdID")) '璋冨害鍗曞彿
+StreetMileage = SafeRequest(Request("DispatchOrdTraStreetMileage"))'鍑鸿溅鏃惰椹跺叕閲屾暟
+EndMileage = SafeRequest(Request("DispatchOrdTraEndMileage")) '鏀惰溅鏃惰椹跺叕閲屾暟
+
+'鏁版嵁涓嶅畬鏁�
+If DispatchOrdID="" Or Not IsNumeric(DispatchOrdID) Then Response.End()
+
+'閲岀▼鏁拌褰�
+If StreetMileage<>"" Then
+ MileageSql=MileageSql&",DispatchOrdTraStreetMileage="&StreetMileage
+End If
+If EndMileage<>"" Then
+ MileageSql=MileageSql&",DispatchOrdTraEndMileage="&EndMileage
+End If
+
+sql="update DispatchOrd set DispatchOrdStartDate=getdate()"&MileageSql&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID
+objConn.Execute sql
+ReturnURL="/m_DispatchOrder.gds?ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "114"
+'-------------------------------------------------------------閲嶈浠嬬粛浜哄瘑鐮�
+IntroducerID = SafeRequest(request("IntroducerID"))
+If IntroducerID="" Then Response.Redirect "/IntroducerData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=6"
+sql="update IntroducerData set IntroducerAdminPass=pwdencrypt(IntroducerTEL) where IntroducerTEL<>'' and IntroducerAdminName is not null and IntroducerID="&IntroducerID
+objConn.Execute sql
+
+ReturnURL="IntroducerData.gds?searchTXT="&searchTXT&"&page="&page&"&IntroducerSearchID="&IntroducerSearchID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2"
+Response.End%>
+
+<%case "115"
+'-------------------------------------------------------------鏂板鍒嗗叕鍙�
+UnitName = SafeRequest(Request("UnitName"))
+UnitShort = SafeRequest(Request("UnitShort"))
+OrderClass1 = SafeRequest(Request("OrderClass1"))
+OrderClass2 = SafeRequest(Request("OrderClass2"))
+
+UnitAddress = SafeRequest(Request("UnitAddress"))
+UnitTEL = SafeRequest(Request("UnitTEL"))
+DepartmentID= SafeRequest(Request("DepartmentID"))
+gpsooName = SafeRequest(Request("gpsooName"))
+gpsooNameID = SafeRequest(Request("gpsooNameID"))
+is_CarData = SafeRequest(Request("is_CarData"))
+department_create_Unit = SafeRequest(Request("department_create_Unit"))
+
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If UnitName="" Or UnitShort="" Or OrderClass1="" Or OrderClass2="" Or UnitAddress="" Then Response.Redirect "/BranchUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=1"
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select UnitID from IntroducerUnitData where UnitName='"&UnitName&"' or UnitShort='"&UnitShort&"'"
+rs.open sql,objConn,1,1
+if not rs.eof then
+ Response.Redirect "/BranchUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=5"
+end If
+rs.close()
+sql="select id from dictionary where vtitle='OrderClass' and (vOrder2='"&OrderClass1&"' or vOrder2='"&OrderClass2&"')"
+rs.open sql,objConn,1,1
+if not rs.eof then
+ Response.Redirect "/BranchUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=8"
+end If
+rs.close()
+
+'鍐欏叆鍚堜綔鍏徃琛�
+sql="insert into IntroducerUnitData (UnitName,UnitShort,UnitAddress,UnitTEL,UnitState,ServiceBranch,ServiceAddress) values ('"&UnitName&"','"&UnitShort&"','"&UnitAddress&"','"&UnitTEL&"',1,'"&OrderClass1&"','"&UnitAddress&"')"
+objConn.Execute sql
+sql="select top 1 UnitID from IntroducerUnitData order by UnitID desc"
+rs.open sql,objConn,1,1
+if not rs.eof then
+ NewUnitID=rs("UnitID")
+end If
+rs.close()
+APPID="GDS-"&Right("000"&NewUnitID,4)&"-"&randKey(4)
+APPSECRET=randKey(16)
+sql="update IntroducerUnitData set APPID='"&APPID&"',APPSECRET='"&APPSECRET&"' where UnitID="&NewUnitID
+objConn.Execute sql
+
+'鍐欏叆瀛楀吀琛∣rderClass
+sql="select isnull((select top 1 vID+1 from dictionary where vtitle='OrderClass' order by vID desc),1)"
+rs.open sql,objConn,1,1
+OrderClassID=rs(0)
+rs.close()
+sql="insert into dictionary (vID,vtext,vtitle,vType,vMono,vOrder,vOrder2) values ("&OrderClassID&",'"&UnitShort&"鏈嶅姟鍗�','OrderClass',1,'"&UnitAddress&"',200,'"&OrderClass1&"')"
+objConn.Execute sql
+sql="insert into dictionary (vID,vtext,vtitle,vType,vMono,vOrder,vOrder2) values ("&OrderClassID+1&",'"&UnitShort&"璋冨害鍗�','OrderClass',2,'"&UnitAddress&"',200,'"&OrderClass2&"')"
+objConn.Execute sql
+
+'鍐欏叆瀛楀吀琛║nitName
+sql="select isnull((select top 1 vID+1 from dictionary where vtitle='UnitName' order by vID desc),1)"
+rs.open sql,objConn,1,1
+vID=rs(0)
+rs.close()
+sql="insert into dictionary (vID,vtext,vtitle,vType,vMono,vOrder,vOrder2) values ("&vID&",'"&UnitName&"','UnitName',1,'"&UnitName&"',200,'"&OrderClassID&","&OrderClassID+1&"')"
+objConn.Execute sql
+
+'鍐欏叆浠嬬粛浜鸿〃
+sql="insert into IntroducerData (IntroducerName,IntroducerUnitID,IntroducerTEL,IntroducerState,IntroducerOrdClass) values ('"&UnitName&"','"&NewUnitID&"','',1,'"&OrderClass1&"')"
+objConn.Execute sql
+
+'鍐欏叆瀛楀吀琛⊿erviceBranch
+sql="select isnull((select top 1 vID+1 from dictionary where vtitle='ServiceBranch' order by vID desc),1)"
+rs.open sql,objConn,1,1
+vID=rs(0)
+sql="insert into dictionary (vID,vtext,vtitle,vType,vMono,vOrder,vOrder2) values ("&vID&",'"&UnitName&"','ServiceBranch',1,'鍒嗘敮鏈烘瀯',1000,'"&OrderClass1&"')"
+objConn.Execute sql
+
+'娣诲姞鎬诲叕鍙哥浉鍏充汉鍛樻潈闄�
+sql="update OA_User set OA_OrderClass=OA_OrderClass+',"&OrderClass1&","&OrderClass2&"' where (OA_DepartmentID in (32,9,26) or OA_User_ID in (177)) and OA_execLevel in (0,1,2) and OA_OrderClass like '%BF%'"
+objConn.Execute sql
+
+'杞烦澶勭悊
+If is_CarData="1" Then
+ ReturnURL="CarData.gds?OrderClass="&OrderClass2&"&SMT=7"
+Else
+ ReturnURL="BranchUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SMT=3"
+End If
+rsRollbackTrans(objConn.Errors.count)
+
+'gpsoo妯″潡寤虹珛(鏈畬鎴�)
+
+'浼佸井鏂板缓閮ㄩ棬
+If department_create_Unit="0" Then
+ Response.Redirect "/weixin/department_create_Unit.gds?UnitID="&NewUnitID&"&ReturnURL=/BranchUnitData.gds"
+End If
+
+Response.Redirect ReturnURL&"&SystemMessageType=3"
+Response.End%>
+
+
+<%case "116"
+'-------------------------------------------------------------鍒犻櫎/鍋滅敤鍒嗗叕鍙�
+UnitID = SafeRequest(Request("UnitID"))
+
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If UnitID="" Or IsNumeric(UnitID)=false Then Response.Redirect "/BranchUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=1"
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select UnitID,UnitName,UnitShort,ServiceBranch from IntroducerUnitData where UnitState>0 and ServiceBranch<>'' and UnitID="&UnitID
+rs.open sql,objConn,1,1
+if rs.eof then
+ Response.Redirect "/BranchUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=9"
+Else
+ UnitID = rs("UnitID")
+ UnitName = rs("UnitName")
+ UnitShort = rs("UnitShort")
+ ServiceBranch=rs("ServiceBranch")
+end If
+rs.close()
+
+sql="select vOrder2 from dictionary where vtitle='OrderClass' and vtext in ('"&UnitShort&"璋冨害鍗�')"
+rs.open sql,objConn,1,1
+If not rs.eof Then
+ OrderClass2=rs("vOrder2")
+Else
+ Response.Redirect "/BranchUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=10"
+End If
+rs.close()
+
+sql="select ServiceOrdID from ServiceOrder where ServiceOrdClass='"&ServiceBranch&"'"
+rs.open sql,objConn,1,1
+If rs.eof Then
+ '鍒犻櫎鍒嗗叕鍙�
+ sql="delete from IntroducerUnitData where UnitID="&UnitID
+ objConn.Execute sql
+ sql="delete from dictionary where vtitle='OrderClass' and vtext in ('"&UnitShort&"鏈嶅姟鍗�','"&UnitShort&"璋冨害鍗�') and vType in (1,2)"
+ objConn.Execute sql
+ sql="delete from dictionary where vtitle='UnitName' and vtext in ('"&UnitName&"')"
+ objConn.Execute sql
+ sql="delete from IntroducerData where IntroducerOrdClass='"&ServiceBranch&"'"
+ objConn.Execute sql
+ sql="delete from dictionary where vtitle='ServiceBranch' and vtext in ('"&UnitName&"')"
+ objConn.Execute sql
+ sql="update OA_User set OA_OrderClass=replace(OA_OrderClass,',"&ServiceBranch&","&OrderClass2&"','') where OA_DepartmentID in (32,9)"
+ objConn.Execute sql
+Else
+ '鍋滅敤鍒嗗叕鍙�
+ sql="update IntroducerUnitData set UnitState=0 where UnitID="&UnitID
+ objConn.Execute sql
+ sql="update dictionary set vOrder=10000 where vtitle='OrderClass' and vtext in ('"&UnitShort&"鏈嶅姟鍗�','"&UnitShort&"璋冨害鍗�') and vType in (1,2)"
+ objConn.Execute sql
+ sql="update dictionary set vType=0 where vtitle='UnitName' and vtext in ('"&UnitName&"')"
+ objConn.Execute sql
+ sql="update IntroducerData set IntroducerState=0 where IntroducerOrdClass='"&ServiceBranch&"'"
+ objConn.Execute sql
+ sql="update dictionary set vType=0 where vtitle='ServiceBranch' and vtext in ('"&UnitName&"')"
+ objConn.Execute sql
+ sql="update OA_User set OA_OrderClass=replace(OA_OrderClass,',"&ServiceBranch&","&OrderClass2&"','') where OA_DepartmentID in (32,9)"
+ objConn.Execute sql
+End If
+rs.close()
+
+ReturnURL="BranchUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SMT=4"
+rsRollbackTrans(objConn.Errors.count)
+
+'gpsoo妯″潡寤虹珛(鏈畬鎴�)
+
+'浼佸井鍛樺伐瀵煎叆(鏈畬鎴�)
+
+Response.Redirect ReturnURL&"&SystemMessageType=3"
+Response.End%>
+
+
+<%case "117"
+'-------------------------------------------------------------鏂板闄勫姞璐圭敤
+ServiceOrdID = SafeRequest(Request("ServiceOrdID"))
+DispatchOrdID = SafeRequest(Request("DispatchOrdID"))
+AddMoneyType = SafeRequest(Request("AddMoneyType"))
+AddMoney = SafeRequest(Request("AddMoney"))
+AddMoneyExplain = SafeRequest(Request("AddMoneyExplain"))
+AddType = SafeRequest(Request("AddType"))
+If ServiceOrdID="" Then ServiceOrdID=0
+If DispatchOrdID="" Or AddMoneyType="" Or AddMoney="" Or AddMoney="0" Then %>
+<script lnguage=javascript>
+alert("鏁版嵁涓嶈冻!!");
+window.history.go(-1)
+</script>
+<%Response.End
+End If
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select DispatchOrdClass,DispatchOrd_NS_Time,DispatchOrdNo from DispatchOrd where DispatchOrdState>0 and DispatchOrdID="&DispatchOrdID
+rs.open sql,objConn,1,1
+If not rs.Eof then
+ DispatchOrdNo = rs("DispatchOrdClass")& year(rs("DispatchOrd_NS_Time"))&Right("0"&month(rs("DispatchOrd_NS_Time")),2)&Right("0"&day(rs("DispatchOrd_NS_Time")),2) & "-"&Right("00"&rs("DispatchOrdNo"),3) '璋冨害鍗曠紪鍙�
+End If
+rs.close()
+sql="select vtext from dictionary where vtitle='AddMoney' and vID="&AddMoneyType
+rs.open sql,objConn,1,1
+If not rs.Eof then
+ AddMoneyTypeName = rs("vtext")
+End If
+rs.close()
+
+If DispatchOrdNo<>"" Then
+ sql="insert into PaidMoney_Add (ToServiceOrdID,ToDispatchOrdID,AddMoneyType,AddMoney,AddMoneyExplain,AddMoneyOAID) values ("&ServiceOrdID&","&DispatchOrdID&","&AddMoneyType&","&AddMoney&",'"&AddMoneyExplain&"',"&session("adminID")&")"
+ objConn.Execute sql
+ sql="update DispatchOrd set StretcherMoney=StretcherMoney+"&AddMoney&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ NC_OAID="78"
+ NC_Name="銆愪骇鐢熼澶栬垂鐢ㄩ�氱煡銆�"
+ NC_Content="璋冨害鍗�:"&DispatchOrdNo&","&AddMoneyTypeName&AddMoney&"鍏冿紝鎿嶄綔浜猴細"&OAUser(session("adminID"),"UserName")&"锛屾搷浣滄椂闂达細"&now()
+ NC_PageUrl="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ NC_PageUrlM="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+ Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
+ Call OA_Running("淇敼璋冨害鍗�:"&DispatchOrdID&" 鏂板闄勫姞璐圭敤閲戦:"&AddMoney)
+ objConn.Execute "exec OrdDataUP "&DispatchOrdID
+End If
+'杞烦澶勭悊
+If AddType="1" Then
+ ReturnURL="m_DispatchOrder_AddMoney.gds?DispatchOrdID="&DispatchOrdID
+Else
+ ReturnURL="m_DispatchOrder_PaidMoney.gds?DispatchOrdID="&DispatchOrdID
+End If
+rsRollbackTrans(objConn.Errors.count)
+
+Response.Redirect ReturnURL&"&SystemMessageType=3"
+Response.End%>
+
+<%case "118"
+'-------------------------------------------------------------鍒犻櫎闄勫姞璐圭敤
+ServiceOrdID = SafeRequest(Request("ServiceOrdID"))
+DispatchOrdID = SafeRequest(Request("DispatchOrdID"))
+AddId = SafeRequest(Request("AddId"))
+AddType = SafeRequest(Request("AddType"))
+If ServiceOrdID="" Then ServiceOrdID=0
+If DispatchOrdID="" Or AddId="" Or AddId="0" Then %>
+<script lnguage=javascript>
+alert("鏁版嵁涓嶈冻!!");
+window.history.go(-1)
+</script>
+<%Response.End
+End If
+ServiceOrdTraTxnPrice=0
+ServiceOrdTraPaidPrice=0
+StretcherMoney=0
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select id,AddMoney from PaidMoney_Add where id="&AddId&" and ToDispatchOrdID="&DispatchOrdID
+rs.open sql,objConn,1,1
+if not rs.eof then
+ id = rs("id")
+ AddMoney = rs("AddMoney")
+end If
+rs.close()
+If ServiceOrdID<>"" then
+ sql="select ServiceOrdTraTxnPrice,ServiceOrdTraPaidPrice from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If not rs.Eof then
+ ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice") '鎴愪氦浠�
+ ServiceOrdTraPaidPrice= rs("ServiceOrdTraPaidPrice") '宸叉敮浠橀噾棰�
+ End If
+ rs.close()
+End If
+If DispatchOrdID<>"" then
+ sql="select StretcherMoney from DispatchOrd where DispatchOrdState>0 and DispatchOrdID="&DispatchOrdID
+ rs.open sql,objConn,1,1
+ If not rs.Eof then
+ StretcherMoney = rs("StretcherMoney") '闄勫姞璐圭敤
+ End If
+ rs.close()
+End If
+
+'璐圭敤宸茬粡鏀粯
+If (ServiceOrdTraTxnPrice+StretcherMoney-AddMoney)<ServiceOrdTraPaidPrice And AddType="2" Then
+ %>
+ <script lnguage=javascript>
+ alert("瀹汉宸茬粡鏀粯鐩稿叧璐圭敤,璇峰厛閫�娆惧苟浣滃簾鏀舵鍗曞悗鍐嶅垹闄�!!");
+ window.history.go(-1)
+ </script>
+ <%Response.End
+ElseIf (ServiceOrdTraTxnPrice+StretcherMoney-AddMoney)<ServiceOrdTraPaidPrice Then
+ %>
+ <script lnguage=javascript>
+ alert("瀹汉宸茬粡鏀粯鐩稿叧璐圭敤,璇疯仈绯诲鏈嶇敵璇烽��娆�!!");
+ window.history.go(-1)
+ </script>
+ <%Response.End
+ElseIf id<>"" And StretcherMoney>0 Then
+ sql="delete from PaidMoney_Add where id="&id
+ objConn.Execute sql
+ sql="update DispatchOrd set StretcherMoney=StretcherMoney-"&AddMoney&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ Call OA_Running("淇敼璋冨害鍗�:"&DispatchOrdID&" 鍒犻櫎闄勫姞璐圭敤ID:"&id&" 閲戦:"&AddMoney)
+ objConn.Execute "exec OrdDataUP "&DispatchOrdID
+End If
+
+
+'杞烦澶勭悊
+If AddType="1" Then
+ ReturnURL="m_DispatchOrder_AddMoney.gds?DispatchOrdID="&DispatchOrdID
+ElseIf AddType="2" Then
+ ReturnURL="DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&SMT=3"
+Else
+ ReturnURL="m_DispatchOrder_PaidMoney.gds?DispatchOrdID="&DispatchOrdID
+End If
+rsRollbackTrans(objConn.Errors.count)
+
+Response.Redirect ReturnURL&"&SystemMessageType=3"
+Response.End%>
+
+<%case "119"
+'-------------------------------------------------------------鏂板缓閿�鍞嚭搴撳崟
+OrdType = SafeRequest(request.form("OrdType"))
+OrderCustomerName = SafeRequest(request.form("OrderCustomerName"))
+OrderWarehouseID= SafeRequest(request.form("OrderWarehouseID"))
+TotalQty = SafeRequest(request.form("TotalQty_TXT"))
+TotalMoney = SafeRequest(request.form("TotalMoney_TXT"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+ItmDle = SafeRequest(request.form("ItmDle"))
+
+
+If OrdType="" Or OrderCustomerName="" Or OrderWarehouseID="" Or TotalQty="0" Or TotalQty="NaN" Or TotalQty="" Or StItmListY<=0 Then Response.Redirect "/MRP_TradeDetail.gds?OrdType="&OrdType&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+NewMRP_OrderID=NewMRPOrderID(OrdType) '鐢熸垚鍗曟嵁缂栧彿
+'鏂板缓澶у崟
+sql="insert into MRP_OrderSale (MRP_OrderID,OrderCustomerName,OrderWarehouseID,OrderState,OrderTime_OAid,TotalMoney,TotalQty,OrderRemarks) values ('"&NewMRP_OrderID&"','"&OrderCustomerName&"',"&OrderWarehouseID&",0,"&session("adminID")&","&TotalMoney&","&TotalQty&",'"&OrderRemarks&"')"
+objConn.Execute sql
+
+'淇濆瓨瀛愬崟
+TotalQty=0
+TotalMoney=0
+ItmDle_SP = SPLIT(ItmDle,", ")
+for i=1 to StItmListY
+ is_ItmDle=0
+ for j=0 to ubound(ItmDle_SP)
+ If i = CInt(ItmDle_SP(j)) Then
+ is_ItmDle=1
+ End If
+ Next
+ If is_ItmDle=0 then
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_Price= SafeRequest(Request("OD_Price_"&i))
+ OD_Qty = SafeRequest(Request("OD_Qty_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_Price="" Then OD_Price=0
+ If OD_Qty="" Then OD_Qty=0
+ If CInt(OD_Qty)>0 then
+ sql="select MRP_ODID from MRP_OrderDetail where MRP_OrderIDPK='"&NewMRP_OrderID&"' and OD_Price="&OD_Price&" and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ sql="update MRP_OrderDetail set OD_Qty=OD_Qty+"&OD_Qty&",OD_Remarks=OD_Remarks+'"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ Else
+ sql="insert into MRP_OrderDetail (MRP_OrderIDPK,StItmIDPK,OD_Qty,OD_Price,OD_Remarks) values ('"&NewMRP_OrderID&"',"&StItmID&","&OD_Qty&","&OD_Price&",'"&OD_Remarks&"')"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+OD_Qty
+ TotalMoney=TotalMoney+OD_Price*OD_Qty
+ End If
+ End If
+Next
+sql="update MRP_OrderSale set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&NewMRP_OrderID&"'"
+objConn.Execute sql
+
+ReturnURL="MRP_TradeDetail.gds?MRP_OrderID="&NewMRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "120"
+'-------------------------------------------------------------淇敼/瀹℃牳閿�鍞嚭搴撳崟
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OrderCustomerName = SafeRequest(request.form("OrderCustomerName"))
+OrderWarehouseID= SafeRequest(request.form("OrderWarehouseID"))
+TotalQty = SafeRequest(request.form("TotalQty_TXT"))
+TotalMoney = SafeRequest(request.form("TotalMoney_TXT"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+OrderState = SafeRequest(request.form("OrderState"))
+OrdType = SafeRequest(request.form("OrdType"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+ItmDle = SafeRequest(request.form("ItmDle"))
+
+If MRP_OrderID="" Or OrderCustomerName="" Or OrderWarehouseID="" Or TotalQty="0" Or TotalQty="NaN" Or TotalQty="" Or StItmListY<=0 Then Response.Redirect "/MRP_TradeDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState from MRP_OrderSale where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_TradeList.gds?SystemMessageType=4&SMT=1"
+ElseIf rs(0)<>0 Then
+ Response.Redirect "/MRP_TradeDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=3"
+end If
+rs.close()
+
+'淇敼澶у崟
+If OrderState="1" Then SqlAudit=",AuditTime=getdate(),AuditTime_OAid="&session("adminID")
+sql="update MRP_OrderSale set OrderCustomerName='"&OrderCustomerName&"',OrderWarehouseID="&OrderWarehouseID&",OrderRemarks='"&OrderRemarks&"',OrderState="&OrderState&SqlAudit&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+'淇濆瓨瀛愬崟
+sql="delete from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"'"
+objConn.Execute sql
+TotalQty=0
+TotalMoney=0
+ItmDle_SP = SPLIT(ItmDle,", ")
+for i=1 to StItmListY
+ is_ItmDle=0
+ for j=0 to ubound(ItmDle_SP)
+ If i = CInt(ItmDle_SP(j)) Then
+ is_ItmDle=1
+ End If
+ Next
+ If is_ItmDle=0 then
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_Price= SafeRequest(Request("OD_Price_"&i))
+ OD_Qty = SafeRequest(Request("OD_Qty_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_Price="" Then OD_Price=0
+ If OD_Qty="" Then OD_Qty=0
+ If CInt(OD_Qty)>0 then
+ sql="select MRP_ODID from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"' and OD_Price="&OD_Price&" and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ sql="update MRP_OrderDetail set OD_Qty=OD_Qty+"&OD_Qty&",OD_Remarks=OD_Remarks+'"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ Else
+ sql="insert into MRP_OrderDetail (MRP_OrderIDPK,StItmIDPK,OD_Qty,OD_Price,OD_Remarks) values ('"&MRP_OrderID&"',"&StItmID&","&OD_Qty&","&OD_Price&",'"&OD_Remarks&"')"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+OD_Qty
+ TotalMoney=TotalMoney+OD_Price*OD_Qty
+ End If
+ End If
+Next
+sql="update MRP_OrderSale set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+If OrderState="1" Then
+ SMT="4"
+Else
+ SMT="2"
+End If
+ReturnURL="MRP_TradeDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "121"
+'-------------------------------------------------------------鍙嶅鏍�/浣滃簾閿�鍞嚭搴撳崟
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OrderState = SafeRequest(request.form("OrderState"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+
+If MRP_OrderID="" Or OrderState="" Then Response.Redirect "/MRP_TradeDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState from MRP_OrderSale where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_TradeList.gds?SystemMessageType=4&SMT=1"
+ElseIf (rs(0)=0 And OrderState="0") Or (rs(0)=4 And OrderState="4") Then
+ Response.Redirect "/MRP_TradeDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=5"
+end If
+rs.close()
+
+'淇敼澶у崟
+If OrderState="0" Then SqlAudit=",AuditTime=null,AuditTime_OAid=null"
+If OrderState="4" Then SqlAudit=",AuditTime=getdate(),AuditTime_OAid="&session("adminID")
+sql="update MRP_OrderSale set OrderRemarks='"&OrderRemarks&"',OrderState="&OrderState&SqlAudit&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+If OrderState="0" Then
+ SMT="6"
+ElseIf OrderState="4" Then
+ SMT="7"
+Else
+ SMT="5"
+End If
+ReturnURL="MRP_TradeDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "122"
+'-------------------------------------------------------------閿�鍞嚭搴撳崟鍏ㄩ儴/閮ㄥ垎鍑哄簱
+MRP_OrderID = SafeRequest(request.form("MRP_OrderID"))
+OrderRemarks = SafeRequest(request.form("OrderRemarks"))
+OrderState = SafeRequest(request.form("OrderState"))
+StItmListY = SafeRequest(request.form("StItmListY"))
+
+If MRP_OrderID="" Or OrderState="" Or StItmListY="" Then Response.Redirect "/MRP_TradeDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=1"
+OrdType = Mid(MRP_OrderID,5,2)
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select OrderState,OrderWarehouseID,OrderCustomerName from MRP_OrderSale where MRP_OrderID='"&MRP_OrderID&"'"
+rs.open sql,objConn,1,1
+if rs.eof Then
+ Response.Redirect "/MRP_TradeList.gds?SystemMessageType=4&SMT=1"
+ElseIf rs(0)<>1 And rs(0)<>2 Then
+ Response.Redirect "/MRP_TradeDetail.gds?MRP_OrderID="&MRP_OrderID&"&SystemMessageType=4&SMT=5"
+end If
+OrderWarehouseID= rs("OrderWarehouseID") '浠撳簱ID
+OrderCustomerName = rs("OrderCustomerName") '瀹㈡埛鍚嶇О
+rs.close()
+
+'淇敼澶у崟
+sql="update MRP_OrderSale set OrderRemarks='"&OrderRemarks&"',OrderState="&OrderState&",ShipmentTime=getdate(),ShipmentTime_OAid="&session("adminID")&" where MRP_OrderID='"&MRP_OrderID&"'"
+objConn.Execute sql
+
+'鍐欏叆搴撳瓨
+TotalQty=0
+TotalMoney=0
+for i=1 to StItmListY
+ StItmID = SafeRequest(Request("StItmID_"&i))
+ OD_QtyA = SafeRequest(Request("OD_QtyA_"&i))
+ OD_Remarks = SafeRequest(Request("OD_Remarks_"&i))
+ If OD_QtyA="" Then OD_QtyA=0
+ If CInt(OD_QtyA)>0 then
+ sql="select MRP_ODID,OD_QtyA,OD_Price from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID&"' and StItmIDPK="&StItmID
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ MRP_ODID=rs(0)
+ old_QtyA=rs(1)
+ OD_Price=rs(2)
+ If OrdType="11" Then
+ OD_QtyB=-OD_QtyA
+ Else
+ OD_QtyB=OD_QtyA
+ End If
+ sql="update MRP_OrderDetail set OD_QtyA=OD_QtyA+"&OD_QtyA&",OD_Remarks='"&OD_Remarks&"' where MRP_ODID="&MRP_ODID
+ objConn.Execute sql
+ sql="insert into MRP_Stock (StItmIDPK,StockQty,StockWarehouseID,MRP_OrderIDPK,StockTime_OAid) values ("&StItmID&","&OD_QtyB&",'"&OrderWarehouseID&"','"&MRP_OrderID&"',"&session("adminID")&")"
+ objConn.Execute sql
+ end If
+ rs.close()
+ TotalQty=TotalQty+(OD_QtyA+old_QtyA)
+ TotalMoney=TotalMoney+(OD_Price*(OD_QtyA+old_QtyA))
+ End If
+Next
+If OrderState="3" then
+ sql="update MRP_OrderSale set TotalMoney="&TotalMoney&",TotalQty="&TotalQty&" where MRP_OrderID='"&MRP_OrderID&"'"
+ objConn.Execute sql
+End If
+
+If OrderState="2" Then
+ SMT="8"
+ElseIf OrderState="3" Then
+ SMT="9"
+Else
+ SMT="5"
+End If
+ReturnURL="MRP_TradeDetail.gds?MRP_OrderID="&MRP_OrderID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT&"&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "123"
+'-------------------------------------------------------------鍚敤鍒嗗叕鍙�
+UnitID = SafeRequest(Request("UnitID"))
+
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If UnitID="" Or IsNumeric(UnitID)=false Then Response.Redirect "/BranchUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=1"
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select UnitID,UnitName,UnitShort,ServiceBranch from IntroducerUnitData where UnitState=0 and ServiceBranch<>'' and UnitID="&UnitID
+rs.open sql,objConn,1,1
+if rs.eof then
+ Response.Redirect "/BranchUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=11"
+Else
+ UnitID = rs("UnitID")
+ UnitName = rs("UnitName")
+ UnitShort = rs("UnitShort")
+ ServiceBranch=rs("ServiceBranch")
+end If
+rs.close()
+
+sql="select vOrder2 from dictionary where vtitle='OrderClass' and vtext in ('"&UnitShort&"璋冨害鍗�')"
+rs.open sql,objConn,1,1
+If not rs.eof Then
+ OrderClass2=rs("vOrder2")
+Else
+ Response.Redirect "/BranchUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=4&SMT=10"
+End If
+rs.close()
+
+'鍚敤鍒嗗叕鍙�
+sql="update IntroducerUnitData set UnitState=1 where UnitID="&UnitID
+objConn.Execute sql
+sql="update dictionary set vOrder=200 where vtitle='OrderClass' and vtext in ('"&UnitShort&"鏈嶅姟鍗�') and vType in (1)"
+objConn.Execute sql
+sql="update dictionary set vOrder=200 where vtitle='OrderClass' and vtext in ('"&UnitShort&"璋冨害鍗�') and vType in (2)"
+objConn.Execute sql
+sql="update dictionary set vType=1 where vtitle='UnitName' and vtext in ('"&UnitName&"')"
+objConn.Execute sql
+sql="update IntroducerData set IntroducerState=1 where IntroducerOrdClass='"&ServiceBranch&"'"
+objConn.Execute sql
+sql="update dictionary set vType=1 where vtitle='ServiceBranch' and vtext in ('"&UnitName&"')"
+objConn.Execute sql
+sql="update OA_User set OA_OrderClass=replace(OA_OrderClass,',"&ServiceBranch&","&OrderClass2&"','') where OA_DepartmentID in (32,9)"
+objConn.Execute sql
+
+
+ReturnURL="BranchUnitData.gds?searchTXT="&searchTXT&"&page="&page&"&SMT=4"
+rsRollbackTrans(objConn.Errors.count)
+
+'gpsoo妯″潡寤虹珛(鏈畬鎴�)
+
+'浼佸井鍛樺伐瀵煎叆(鏈畬鎴�)
+
+Response.Redirect ReturnURL&"&SystemMessageType=3"
+Response.End%>
+
+<%case "124"
+'-------------------------------------------------------------浠诲姟閲岀▼鏁颁繚瀛�
+DispatchOrdID = SafeRequest(Request("DispatchOrdID"))
+TraMileage = SafeRequest(Request("TraMileage"))
+ImageValue = SafeRequest(Request("ImageValue"))
+
+If TraMileage<>"" And DispatchOrdID<>"" And ImageValue<>"" And TraMileage<>"0" Then
+ '閲岀▼鏁拌褰�
+ sql="update DispatchOrd set DispatchOrdStartDate=getdate(),"&ImageValue&"="&TraMileage&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ objConn.Execute "exec OrdDataUP "&DispatchOrdID
+End If
+
+rsRollbackTrans(objConn.Errors.count)
+
+Response.End%>
+
+<%case "125_json"
+'-------------------------------------------------------------鍚屾閲岀▼鏁版嵁
+DispatchOrdID = SafeRequest(Request("DispatchOrdID")) '璋冨害鍗曞彿
+MileagType = SafeRequest(Request("MileagType")) '閲岀▼绫诲瀷
+
+'鏁版嵁涓嶅畬鏁�
+If DispatchOrdID="" Or Not IsNumeric(DispatchOrdID) Or MileagType="" Then Response.End()
+
+'鏌ヨ璋冨害鍗曢噷绋嬫暟
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select CarLicense,DispatchOrdTraStreetMileage,DispatchOrdTraEndMileage from DispatchOrd left join CarData on CarID=DispatchOrdCarID where DispatchOrdID="&DispatchOrdID
+rs.open sql,objConn,1,1
+If not rs.Eof Then
+ CarLicense=rs("CarLicense")
+ TraMileage=rs(MileagType)
+Else
+ CarLicense=""
+ TraMileage=0
+End If
+rs.close()
+rsRollbackTrans(objConn.Errors.count)
+If TraMileage<>0 And TraMileage<>"" then
+ webJson="{""result"":1,""DispatchOrdID"":"""&DispatchOrdID&""",""TraMileage"":"""&TraMileage&""",""CarLicense"":"""&CarLicense&"""}"
+Else
+ webJson="{""result"":2}"
+End If
+Response.Write webJson
+Response.End%>
+
+<%case "126"
+'-------------------------------------------------------------鐢宠閫�娆�
+ServiceOrdID= SafeRequest(request("ServiceOrdID"))
+DispatchOrdID=SafeRequest(request("DispatchOrdID"))
+ReturnID = SafeRequest(request("ReturnID"))
+
+PaidMoneyToId = SafeRequest(request("PaidMoneyToId")) '鍘熸敹娆剧紪鍙�
+PaidMoneyToMoney= SafeRequest(request("PaidMoneyToMoney")) '鍙��閲戦
+PaidMoney = SafeRequest(request("PaidMoney")) '閫�娆鹃噾棰�
+PaidMoneyMono = SafeRequest(request("PaidMoneyMono")) '閫�娆惧娉�
+PaidMoneyTimestamp= SafeRequest(request("PaidMoneyTimestamp"))
+
+If PaidMoney="" Or PaidMoney="0" Or PaidMoneyToId="" Or ServiceOrdID="" Then%>
+ <script lnguage=javascript>
+ alert("鍙傛暟閿欒!!");
+ window.history.go(-1)
+ </script>
+ <%Response.End
+ElseIf CInt(PaidMoney)>CInt(PaidMoneyToMoney) Then%>
+ <script lnguage=javascript>
+ alert("<%=PaidMoney%>><%=PaidMoneyToMoney%>閫�娆鹃噾棰濋敊璇�!!");
+ window.history.go(-1)
+ </script>
+ <%Response.End
+End If
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select PaidMoneyType,PaidMoney,PaidMoneyMono=left(PaidMoneyMono,CHARINDEX('[',PaidMoneyMono)-1) from PaidMoney where id="&PaidMoneyToId
+rs.open sql,objConn,1,1
+If not rs.Eof Then
+ PaidMoneyType=rs("PaidMoneyType")
+ PaidMoneyMono=rs("PaidMoneyMono")&"[绾夸笂閫�娆綸 "&PaidMoneyMono&" 鏀舵缂栧彿:"&PaidMoneyToId
+End If
+rs.close()
+
+If PaidMoneyType<>"" And IsNumeric(PaidMoney) And PaidMoneyTimestamp<>"" Then
+ If PaidMoney<>0 Then
+ PaidMoney=-PaidMoney
+ Call PaidMoneyA(ServiceOrdID,DispatchOrdID,PaidMoney,PaidMoneyType,PaidMoneyTimestamp,PaidMoneyMono,PaidMoneyCheck)
+ End if
+End if
+
+If ReturnID="ServiceOrder" Then
+ReturnURL="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&OrdDateType="&OrdDateType&"&OrdClassList="&OrdClassList&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=3&SMT=35"
+ElseIf ReturnID="DispatchOrder" Then
+ReturnURL="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&OrdDateType="&OrdDateType&"&OrdClassList="&OrdClassList&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=3&SMT=35"
+else
+ReturnURL="/PaidMoney_List.gds?searchTXT="&searchTXT&"&page="&page&"&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&OrdType="&OrdType&"&SystemMessageType=3&SMT=7"
+End if
+Call OA_Running("鐢宠閫�娆�:"&ServiceOrdID)
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "127"
+'-------------------------------------------------------------鍙戠エ鐢宠
+ServiceOrdID= SafeRequest(request("ServiceOrdID"))
+DispatchOrdID=SafeRequest(request("DispatchOrdID"))
+InvoiceID=SafeRequest(request("InvoiceID"))
+ReturnID = SafeRequest(request("ReturnID"))
+
+InvoiceType = SafeRequest(request("InvoiceType")) '鍙戠エ绫诲瀷
+InvoiceName = SafeRequest(request("InvoiceName")) '鍙戠エ鎶ご
+InvoiceMakeout = SafeRequest(request("InvoiceMakeout")) '鍙戠エ澶囨敞
+
+InvoiceCompanyPhone= SafeRequest(request("InvoiceCompanyPhone")) '浼佷笟鐢佃瘽
+InvoiceCompanyID = SafeRequest(request("InvoiceCompanyID")) '绾崇◣璇嗗埆鍙�
+InvoiceCompanyAdd = SafeRequest(request("InvoiceCompanyAdd")) '浼佷笟娉ㄥ唽鍦板潃
+InvoiceCompanyBank = SafeRequest(request("InvoiceCompanyBank")) '浼佷笟寮�鎴烽摱琛�
+InvoiceCompanyBankNo= SafeRequest(request("InvoiceCompanyBankNo")) '浼佷笟閾惰璐﹀彿
+InvoiceZipCode = SafeRequest(request("InvoiceZipCode")) '閭紪
+Invoice_strAdd = SafeRequest(request("Invoice_strAdd")) '閭瘎鍦板潃
+Invoice_strName = SafeRequest(request("Invoice_strName")) '鑱旂郴浜�
+Invoice_strPhone = SafeRequest(request("Invoice_strPhone")) '鑱旂郴鐢佃瘽
+Invoice_strEmail = SafeRequest(request("Invoice_strEmail")) '鐢靛瓙閭
+
+InvoiceMoney = SafeRequest(request("InvoiceMoney")) '鍙戠エ閲戦
+
+If InvoiceMoney="" Or InvoiceMoney="0" Then%>
+ <script lnguage=javascript>
+ alert("寮�绁ㄩ噾棰濅笉鍙负0!!");
+ window.history.go(-1)
+ </script>
+ <%Response.End
+End If
+If InvoiceMoney="" Or InvoiceMoney="0" Or InvoiceType="" Or ServiceOrdID="" Then%>
+ <script lnguage=javascript>
+ alert("鍙傛暟閿欒!!");
+ window.history.go(-1)
+ </script>
+ <%Response.End
+End If
+
+If InvoiceID="0" Or InvoiceID="" Then
+ sql="insert into InvoiceData (ServiceOrderIDPK, InvoiceType, InvoiceName, InvoiceMakeout, InvoiceCompanyPhone, InvoiceCompanyID, InvoiceCompanyAdd, InvoiceCompanyBank, InvoiceCompanyBankNo, InvoiceZipCode, Invoice_strAdd, Invoice_strName, Invoice_strPhone,Invoice_strEmail,InvoiceMoney,ApplyOAID) values ("&ServiceOrdID&","&InvoiceType&",'"&InvoiceName&"','"&InvoiceMakeout&"','"&InvoiceCompanyPhone&"','"&InvoiceCompanyID&"','"&InvoiceCompanyAdd&"','"&InvoiceCompanyBank&"','"&InvoiceCompanyBankNo&"','"&InvoiceZipCode&"','"&Invoice_strAdd&"','"&Invoice_strName&"','"&Invoice_strPhone&"','"&Invoice_strEmail&"',"&InvoiceMoney&","&session("adminID")&")"
+ objConn.Execute sql
+Else
+ sql="update InvoiceData set InvoiceType="&InvoiceType&",InvoiceName='"&InvoiceName&"',InvoiceMakeout='"&InvoiceMakeout&"',InvoiceCompanyPhone='"&InvoiceCompanyPhone&"',InvoiceCompanyID='"&InvoiceCompanyID&"',InvoiceCompanyAdd='"&InvoiceCompanyAdd&"',InvoiceCompanyBank='"&InvoiceCompanyBank&"',InvoiceCompanyBankNo='"&InvoiceCompanyBankNo&"',InvoiceZipCode='"&InvoiceZipCode&"',Invoice_strAdd='"&Invoice_strAdd&"',Invoice_strEmail='"&Invoice_strEmail&"',Invoice_strName='"&Invoice_strName&"',Invoice_strPhone='"&Invoice_strPhone&"',AuditStatus=0,AuditMakeout='"&AuditMakeout&"',InvoiceNo='"&InvoiceNo&"',InvoiceMoney="&InvoiceMoney&",AuditOAID="&session("adminID")&",AuditTime=getdate() where InvoiceID="&InvoiceID
+ objConn.Execute sql
+End If
+
+Call OA_Running("鐢宠鍙戠エ:"&ServiceOrdID)
+rsRollbackTrans(objConn.Errors.count)
+
+'浼佸井閫氱煡%>
+<!--#include virtual="/weixin/JsonPost_1000006.gds"-->
+<%
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select InvoiceID from InvoiceData where AuditStatus not in (3,4) and ServiceOrderIDPK="&ServiceOrdID
+rs.open sql,objConn,1,1
+If not rs.Eof then
+ InvoiceID = rs("InvoiceID")
+end if
+rs.close()
+title="鏂扮殑鍙戠エ鐢宠(PC鍚庡彴)"
+description=InvoiceName&",鏈変竴涓柊鐨勫彂绁ㄧ敵璇�,璇峰嵆鏃跺鐞�"
+sql="SELECT OA_weixinID=STUFF((SELECT '|' + OA_weixinUserID from OA_User where OA_Power like '%030205%' and OA_execLevel>=1 FOR XML PATH('')), 1, 1, '')"
+rs.open sql,objConn,1,1
+If not rs.Eof then
+ touser = rs("OA_weixinID")
+end if
+rs.close()
+'touser="liaojunliang|ylkx_vicgame" '娴嬭瘯
+If touser<>"" And title<>"" Then
+ '寰俊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," '浼佷笟搴旂敤鐨刬d锛屾暣鍨嬨�傚彲鍦ㄥ簲鐢ㄧ殑璁剧疆椤甸潰鏌ョ湅
+ args1=args1&"""msgtype"": ""news"","
+ args1=args1&"""news"": {"
+ args1=args1&"""articles"":["
+ args1=args1&"{"
+ args1=args1&"""title"": ""銆�"&title&"銆�"","
+ args1=args1&"""description"": """&description&""","
+ args1=args1&"""url"": ""https://sys.966120.com.cn/m_Invoice.gds?InvoiceID="&InvoiceID&"&ServiceOrdID="&ServiceOrdID&"&order_type=11"""
+ args1=args1&"}"
+ args1=args1&"]"
+ args1=args1&"}"
+ args1=args1&"}"
+ call PostBody(appUrl,args1)
+End If
+
+If ReturnID="ServiceOrder" Then
+ReturnURL="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&OrdDateType="&OrdDateType&"&OrdClassList="&OrdClassList&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=3&SMT=42"
+ElseIf ReturnID="DispatchOrder" Then
+ReturnURL="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&OrdDateType="&OrdDateType&"&OrdClassList="&OrdClassList&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=3&SMT=42"
+ElseIf ReturnID="M" Then
+ReturnURL="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+else
+ReturnURL="/Invoice_List.gds?searchTXT="&searchTXT&"&page="&page&"&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&OrdType="&OrdType&"&SystemMessageType=3&SMT=7"
+End if
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "128_json"
+'-------------------------------------------------------------鏂板鐗规畩浠诲姟鍗昣json
+Set rs = Server.CreateObject("ADODB.Recordset")
+ServiceOrdType = SafeRequest(Request.form("ServiceOrdType")) '鏈嶅姟绫诲瀷
+ServiceOrdTypeName = SafeRequest(Request.form("ServiceOrdTypeName")) '鏈嶅姟绫诲瀷鍚嶇О
+ServiceOrdClass = SafeRequest(Request.form("ServiceOrdClass")) '鏈嶅姟鍗曠被鍨�
+DispatchOrdClass = SafeRequest(Request.form("DispatchOrdClass")) '璋冨害鍗曠被鍨�
+DispatchOrdCarID = SafeRequest(Request.form("DispatchOrdCarID")) '璋冨害杞﹁締
+StreetMileage = SafeRequest(Request.form("DispatchOrdTraStreetMileage")) '鍑鸿溅鍏噷鏁�
+ServiceOrdTraPaidType = SafeRequest(Request.form("PaidMoneyType")) '榛樿鏀粯鏂瑰紡
+ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '鎴愪氦浠�
+ServiceOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '浠诲姟澶囨敞
+EntourageOT_is = SafeRequest(Request.form("EntourageOT_is")) '鏄惁鍔犵彮鍑鸿溅
+TimeLength_Program = SafeRequest(Request.form("TimeLength_Program")) '淇濋殰鏃堕暱
+
+If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
+If ServiceOrdClass="" Then ServiceOrdClass="BF"
+If ServiceOrdTraPaidType="" Then ServiceOrdTraPaidType=0
+If EntourageOT_is="" Then EntourageOT_is=0
+If TimeLength_Program="" Then TimeLength_Program=0
+UserID=0
+ServiceOrdState=3
+ServiceOrdStartDate=now()
+ServiceOrdApptDate=date()
+ServiceOrdCoName=ServiceOrdTypeName
+ServiceOrdCoPhone=0
+ServiceOrdPtName=ServiceOrdTypeName
+ServiceOrdPtServicesID=22
+ServiceOrdPtInServicesID=22
+ServiceOrdTraStreet=ServiceOrdTypeName
+ServiceOrdTraVia=ServiceOrdTypeName
+ServiceOrdTraEnd=ServiceOrdTypeName
+ServiceOrdViaDistance=0
+ServiceOrdTraDistance=-1
+ServiceOrdTraUnitPrice=0
+ServiceOrdTraOfferPrice=0
+ServiceOrdTraPrePayment=0
+SettlementPrice=0
+ServiceOrd_CC_ID=session("adminID")
+ServiceOrd_Sale_ID=177
+ServiceOrdUnitID=0
+ServiceOrdVIP=0
+ServiceOrdEstimatedOrderDate=now()
+ServiceOrdSource=0
+OrderLevel=0
+ConditionLevel=0
+ServiceOrdDepartureType=2
+DirectionType=5
+
+If DispatchOrdClass="" Then DispatchOrdClass="SA"
+DispatchOrdCoName=ServiceOrdCoName
+DispatchOrdCoPhone=ServiceOrdCoPhone
+If DispatchOrdCarID="" Then DispatchOrdCarID=0
+DispatchOrd_NS_ID=session("adminID")
+If DispatchOrdPerfomance="" Or not IsNumeric(DispatchOrdPerfomance) Then DispatchOrdPerfomance=60 '鐗规畩浠诲姟鍗曢粯璁よ鎻�60
+If ServiceOrdType="21" Or ServiceOrdType="23" Or ServiceOrdType="24" Then DispatchOrdPerfomance=30 '淇濋殰杞繍榛樿璁℃彁30
+If ServiceOrdType="25" Then '姘戞斂浠诲姟A锛氶粯璁�8灏忔椂580鍏冿紝8灏忔椂浠ヤ笂锛岀疮鍔�80鍏�/灏忔椂
+ If TimeLength_Program<=8 Then
+ DispatchOrdPerfomance=TimeLength_Program*72.5
+ Else
+ DispatchOrdPerfomance=580+((TimeLength_Program-8)*80)
+ End If
+End If
+If StretcherMoney="" Then StretcherMoney=0
+If AddMoney="" Or Not isnumeric(AddMoney) Then AddMoney=0
+If TimeLength_ICU="" Then TimeLength_ICU=0
+If TimeLength_Wait="" Then TimeLength_Wait=0
+If DispatchOrd_NS_Time="" Then DispatchOrd_NS_Time=Now()
+If AddMoneyType<>"" And AddMoneyType<>"0" And AddMoney>0 Then StretcherMoney=AddMoney
+DispatchOrdState=6
+DispatchOrdTraStreet=ServiceOrdTypeName
+DispatchOrdTraEnd=ServiceOrdTypeName
+DispatchOrdTraVia=ServiceOrdTypeName
+DispatchOrdTaskRemarks=ServiceOrdTaskRemarks
+
+result=0
+
+'鏁版嵁涓嶅畬鏁�
+If ServiceOrdType="" Or ServiceOrdClass="" Or DispatchOrdClass="" or DispatchOrdCarID="" or StreetMileage="" Or ServiceOrdTypeName="" Then
+ result=2
+ webJson="{""result"":2,""errcode"":40010}"
+Else
+ '楠岃瘉鏈夋病閲嶅鎻愪氦(22.4.17 涓存椂鍙栨秷閲嶅鎻愪氦闄愬埗 dd=>n)
+ sql="select DispatchOrdID,DispatchOrdClass,DispatchOrd_NS_Time,DispatchOrdNo from DispatchOrd where DispatchOrdCarID="&DispatchOrdCarID&" and DispatchOrdTraStreetMileage="&StreetMileage&" and DispatchOrdState not in (9,10) and DateDiff(n,DispatchOrd_NS_Time,getdate())=0"
+ rs.open sql,objConn,1,1
+ if not rs.eof Then
+ result=1
+ DispatchOrdNo = rs("DispatchOrdClass")& year(rs("DispatchOrd_NS_Time"))&Right("0"&month(rs("DispatchOrd_NS_Time")),2)&Right("0"&day(rs("DispatchOrd_NS_Time")),2) & "-"&Right("00"&rs("DispatchOrdNo"),3) '璋冨害鍗曠紪鍙�
+ webJson="{""result"":3,""DispatchOrdID"":"&rs("DispatchOrdID")&",""DispatchOrdNo"":"""&DispatchOrdNo&"""}"
+ End if
+ rs.close()
+End If
+
+
+If result=0 Then
+
+ '鏌ユ壘鍖婚櫌ID
+ ServiceOrdPtOutHospID=0
+ ServiceOrdPtInHospID=0
+ sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdTypeName&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID=rs(0)
+ ServiceOrdPtInHospID=rs(0)
+ End If
+ rs.close()
+ sql="select HospID from HospData where HospState=1 and HospName='"&ServiceOrdTypeName&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID_New=rs(0)
+ ServiceOrdPtInHospID_New=rs(0)
+ End If
+ rs.close()
+
+ '鎻愭垚璁＄畻
+ If ServiceOrdTraTxnPrice>350 And ServiceOrdTraTxnPrice<=700 Then
+ DispatchOrdPerfomance=80
+ ElseIf ServiceOrdTraTxnPrice>700 And ServiceOrdTraTxnPrice<=1000 Then
+ DispatchOrdPerfomance=100
+ ElseIf ServiceOrdTraTxnPrice>1000 Then
+ DispatchOrdPerfomance=ServiceOrdTraTxnPrice*0.1
+ Else
+ If ServiceOrdType="21" Or ServiceOrdType="23" Or ServiceOrdType="24" Then '淇濋殰杞繍榛樿璁℃彁30
+ DispatchOrdPerfomance=30
+ Else
+ DispatchOrdPerfomance=60
+ End If
+ End If
+
+ '澶囨敞鍒嗘瀽
+ If ServiceOrdTaskRemarks<>"" Then
+ TraStreet=""
+ TraEnd=""
+ ServiceOrdTaskRemarks=Replace(ServiceOrdTaskRemarks,"?"," ")
+ If InStr(ServiceOrdTaskRemarks,"杞嚭鍦帮細")>0 Or InStr(ServiceOrdTaskRemarks,"杞嚭鍦�:")>0 Then
+ TraStreet=Mid(ServiceOrdTaskRemarks,InStr(ServiceOrdTaskRemarks,"杞嚭鍦�")+4)
+ End If
+ If InStr(ServiceOrdTaskRemarks,"鐩殑鍦帮細")>0 Or InStr(ServiceOrdTaskRemarks,"鐩殑鍦�:")>0 Then
+ TraEnd=Mid(ServiceOrdTaskRemarks,InStr(ServiceOrdTaskRemarks,"鐩殑鍦�")+4)
+ End If
+ If InStr(ServiceOrdTaskRemarks,"杞嚭鍦板潃锛�")>0 Or InStr(ServiceOrdTaskRemarks,"杞嚭鍦板潃:")>0 Then
+ TraStreet=Mid(ServiceOrdTaskRemarks,InStr(ServiceOrdTaskRemarks,"杞嚭鍦板潃")+5)
+ End If
+ If InStr(ServiceOrdTaskRemarks,"杞叆鍦板潃锛�")>0 Or InStr(ServiceOrdTaskRemarks,"杞叆鍦板潃:")>0 Then
+ TraEnd=Mid(ServiceOrdTaskRemarks,InStr(ServiceOrdTaskRemarks,"杞叆鍦板潃")+5)
+ End If
+ If InStr(ServiceOrdTaskRemarks,"鎺ヨ溅鍦板潃锛�")>0 Or InStr(ServiceOrdTaskRemarks,"鎺ヨ溅鍦板潃:")>0 Then
+ TraStreet=Mid(ServiceOrdTaskRemarks,InStr(ServiceOrdTaskRemarks,"鎺ヨ溅鍦板潃")+5)
+ End If
+ If InStr(ServiceOrdTaskRemarks,"鑷筹細")>0 Then
+ TraEnd=Mid(ServiceOrdTaskRemarks,InStr(ServiceOrdTaskRemarks,"鑷筹細")+2)
+ End If
+ If InStr(ServiceOrdTaskRemarks,"鍛艰溅鍗曚綅锛�")>0 Or InStr(ServiceOrdTaskRemarks,"鍛艰溅鍗曚綅:")>0 Then
+ TraStreet1=Mid(ServiceOrdTaskRemarks,InStr(ServiceOrdTaskRemarks,"鍛艰溅鍗曚綅")+5,20)
+ End If
+
+ If TraStreet<>"" Then
+ If InStr(TraStreet,"杞叆")>0 Then
+ TraStreet=Mid(TraStreet,1,InStr(TraStreet,"杞叆")-2)
+ ElseIf InStr(TraStreet,"锛�")>1 Then
+ TraStreet=Mid(TraStreet,1,InStr(TraStreet,"锛�")-1)
+ ElseIf InStr(TraStreet,chr(10))>1 Then
+ TraStreet=Mid(TraStreet,1,InStr(TraStreet,chr(10))-1)
+ Else
+ TraStreet=Mid(TraStreet,1)
+ End If
+ TraStreet=Replace(TraStreet,"?","")
+ ServiceOrdTraStreet=TraStreet
+ ServiceOrdTraVia=TraStreet
+ DispatchOrdTraStreet=TraStreet
+ DispatchOrdTraVia=TraStreet
+ End If
+ If TraStreet1<>"" Then
+ If InStr(TraStreet1,"锛�")>1 Then
+ TraStreet1=Mid(TraStreet1,1,InStr(TraStreet1,"锛�")-1)
+ ElseIf InStr(TraStreet1,chr(10))>1 Then
+ TraStreet1=Mid(TraStreet1,1,InStr(TraStreet1,chr(10))-1)
+ Else
+ TraStreet1=Mid(TraStreet1,1)
+ End If
+ TraStreet1=Replace(TraStreet1,"?","")
+ ServiceOrdTraStreet=TraStreet1
+ DispatchOrdTraStreet=TraStreet1
+ End If
+ If TraEnd<>"" Then
+ If InStr(TraEnd,chr(10))>1 Then
+ TraEnd=Mid(TraEnd,1,InStr(TraEnd,chr(10))-1)
+ ElseIf InStr(TraEnd,"锛�")>1 Then
+ TraEnd=Mid(TraEnd,1,InStr(TraEnd,"锛�")-1)
+ Else
+ TraEnd=Mid(TraEnd,1)
+ End If
+ TraEnd=Replace(TraEnd,"?","")
+ ServiceOrdTraEnd=TraEnd
+ DispatchOrdTraEnd=TraEnd
+ End If
+ End If
+
+ '鏂版湇鍔″崟搴忓彿
+ sql="select top 1 ServiceOrdNo from ServiceOrder where CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),GETDATE(),120) and ServiceOrdClass='"&ServiceOrdClass&"' order by ServiceOrdNo desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdNo=rs(0)+1
+ Else
+ ServiceOrdNo=1
+ End if
+ rs.close()
+
+ '鍐欏叆鏂版湇鍔″崟
+ sql="insert into ServiceOrder (ServiceOrdUserID,ServiceOrdClass,ServiceOrdType,ServiceOrdState,ServiceOrdStartDate,ServiceOrdApptDate,ServiceOrdCoName,ServiceOrdCoPhone,ServiceOrdCoTies,ServiceOrdPtName,ServiceOrdPtAge,ServiceOrdPtKG,ServiceOrdPtSex,ServiceOrdPtNat,ServiceOrdPtIDCard,ServiceOrdPtOutHospID,ServiceOrdPtOutHosp,ServiceOrdPtInHospID,ServiceOrdPtInHosp,ServiceOrdPtServices,ServiceOrdPtServicesID,ServiceOrdPtInServices,ServiceOrdPtInServicesID,ServiceOrdPtDiagnosis,ServiceOrdPtCondition,ServiceOrdTaskRemarks,ServiceOrdPtDoctor,ServiceOrdPtDoctorPhone,ServiceOrdTraProvince,ServiceOrdTraCity,ServiceOrdTraStreet,ServiceOrdTraStreetCoo,ServiceOrdTraEnd,ServiceOrdTraEndCoo,ServiceOrdTraVia,ServiceOrdViaDistance,ServiceOrdTraDistance,ServiceOrdTraDuration,ServiceOrdTraUnitPrice,ServiceOrdTraOfferPrice,ServiceOrdTraTxnPrice,ServiceOrdTraPaidType,ServiceOrdTraPrePayment,SettlementPrice,ServiceOrdTraPriceReason,ServiceOrd_CC_ID,ServiceOrd_CC_Time,ServiceOrdNo,ServiceOrd_Sale_ID,ServiceOrdIntroducer,ServiceOrdUnitID,ServiceOrdVIP,ServiceOrdOperationRemarks,ServiceOrdEstimatedOrderDate,ServiceOrdSource,OrderLevel,ServiceOrdDepartureType,ConditionLevel,DirectionType,ServiceOrd_NS_ID,ServiceOrd_NS_Time,ServiceOrd_AP_Check,ServiceOrd_AP_Time,ServiceOrd_AP_ID) values ("&UserID&",'"&ServiceOrdClass&"',"&ServiceOrdType&","&ServiceOrdState&",'"&ServiceOrdStartDate&"','"&ServiceOrdApptDate&"','"&ServiceOrdCoName&"','"&ServiceOrdCoPhone&"','"&ServiceOrdCoTies&"','"&ServiceOrdPtName&"','"&ServiceOrdPtAge&"','"&ServiceOrdPtKG&"','"&ServiceOrdPtSex&"','"&ServiceOrdPtNat&"','"&ServiceOrdPtIDCard&"',"&ServiceOrdPtOutHospID_New&","&ServiceOrdPtOutHospID&","&ServiceOrdPtInHospID_New&","&ServiceOrdPtInHospID&",'"&ServiceOrdPtServices&"',"&ServiceOrdPtServicesID&",'"&ServiceOrdPtInServices&"',"&ServiceOrdPtInServicesID&",'"&ServiceOrdPtDiagnosis&"','"&ServiceOrdPtCondition&"','"&ServiceOrdTaskRemarks&"','"&ServiceOrdPtDoctor&"','"&ServiceOrdPtDoctorPhone&"','"&ServiceOrdTraProvince&"','"&ServiceOrdTraCity&"',REPLACE(REPLACE('"&ServiceOrdTraStreet&"', CHAR(13) , ' '), CHAR(10),''),'"&ServiceOrdTraStreetCoo&"',REPLACE(REPLACE('"&ServiceOrdTraEnd&"', CHAR(13) , ' '), CHAR(10),''),'"&ServiceOrdTraEndCoo&"',REPLACE(REPLACE('"&ServiceOrdTraVia&"', CHAR(13) , ' '), CHAR(10),''),'"&ServiceOrdViaDistance&"','"&ServiceOrdTraDistance&"','"&ServiceOrdTraDuration&"',"&ServiceOrdTraUnitPrice&","&ServiceOrdTraOfferPrice&","&ServiceOrdTraTxnPrice&","&ServiceOrdTraPaidType&","&ServiceOrdTraPrePayment&","&SettlementPrice&",'"&ServiceOrdTraPriceReason&"',"&ServiceOrd_CC_ID&",getdate(),"&ServiceOrdNo&","&ServiceOrd_Sale_ID&",'"&ServiceOrdIntroducer&"',"&ServiceOrdUnitID&","&ServiceOrdVIP&",'"&ServiceOrdOperationRemarks&"','"&ServiceOrdEstimatedOrderDate&"',"&ServiceOrdSource&","&OrderLevel&","&ServiceOrdDepartureType&","&ConditionLevel&","&DirectionType&","&session("adminID")&",getdate(),1,getdate(),"&session("adminID")&")"
+ 'Response.write sql&"<BR>"
+ objConn.Execute sql
+ sql="select top 1 ServiceOrdID from ServiceOrder where ServiceOrdCoPhone='"&ServiceOrdCoPhone&"' order by ServiceOrdID desc"
+ rs.open sql,objConn,1,1
+ ServiceOrdID = rs(0)
+ rs.close()
+ Call OA_Running("鏂板缓鐗规畩鏈嶅姟鍗�:"&ServiceOrdID)
+
+
+ '鏂拌皟搴﹀崟搴忓彿
+ sql="select top 1 DispatchOrdNo from DispatchOrd where CONVERT(VARCHAR(10),DispatchOrd_NS_Time,120)=CONVERT(VARCHAR(10),GETDATE(),120) and DispatchOrdClass='"&DispatchOrdClass&"' order by DispatchOrdNo desc"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ DispatchOrdNo=rs(0)+1
+ Else
+ DispatchOrdNo=1
+ End if
+ rs.close()
+
+ '鍐欏叆鏂拌皟搴﹀崟
+ sql="insert into DispatchOrd (ServiceOrdIDDt,DispatchOrdClass,DispatchOrdStartDate,DispatchOrdCarID,DispatchOrdTraStreet,DispatchOrdTraEnd,DispatchOrdTraVia,DispatchOrdCoName,DispatchOrdCoPhone,DispatchOrd_NS_ID,DispatchOrd_NS_Time,EntourageName_aid1,EntourageName_aid2,DispatchOrdNo,DispatchOrdPerfomance,RecommendedCar,StretcherMoney,TimeLength_Program,TimeLength_ICU,TimeLength_Wait,DispatchOrdTaskRemarks,DispatchOrdTraSDTime,DispatchOrdState) values ("&ServiceOrdID&",'"&DispatchOrdClass&"','"&DispatchOrd_NS_Time&"',"&DispatchOrdCarID&",REPLACE(REPLACE('"&DispatchOrdTraStreet&"', CHAR(13) , ' '), CHAR(10),''),REPLACE(REPLACE('"&DispatchOrdTraEnd&"', CHAR(13) , ' '), CHAR(10),''),REPLACE(REPLACE('"&DispatchOrdTraVia&"', CHAR(13) , ' '), CHAR(10),''),'"&DispatchOrdCoName&"','"&DispatchOrdCoPhone&"',"&DispatchOrd_NS_ID&",'"&DispatchOrd_NS_Time&"','"&EntourageName_aid1&"','"&EntourageName_aid2&"',"&DispatchOrdNo&","&DispatchOrdPerfomance&",'"&RecommendedCar&"',"&StretcherMoney&","&TimeLength_Program&","&TimeLength_ICU&","&TimeLength_Wait&",'"&DispatchOrdTaskRemarks&"',getdate(),"&DispatchOrdState&")"
+ objConn.Execute sql
+ sql="select top 1 DispatchOrdID from DispatchOrd where DispatchOrdStartDate='"&DispatchOrd_NS_Time&"' order by DispatchOrdID desc"
+ rs.open sql,objConn,1,1
+ DispatchOrdID = rs(0)
+ rs.close()
+ DispatchOrdNo = DispatchOrdClass& year(DispatchOrd_NS_Time)&Right("0"&month(DispatchOrd_NS_Time),2)&Right("0"&day(DispatchOrd_NS_Time),2) & "-"&Right("00"&DispatchOrdNo,3) '璋冨害鍗曠紪鍙�
+
+ '鍐欏叆闅忚浜哄憳
+ sql="insert into DispatchOrd_Entourage (DispatchOrdIDDt,EntourageID,EntourageOAid,EntourageLead,EntourageOT_is,EntourageBetimesHH,EntourageLong_is,Check_is,Stretcher_is,EntourageState,EntourageState_Time,Entourage_Time) values ("&DispatchOrdID&",1,"&session("adminID")&",1,"&EntourageOT_is&",0,0,0,0,3,getdate(),'"&DispatchOrd_NS_Time&"')"
+ objConn.Execute sql
+
+ Call OA_Running("鏂板缓璋冨害鍗�:"&DispatchOrdID)
+
+ '瀹為檯鏃堕棿璁板綍
+ ActualSql=",DispatchOrdActualDate=getdate()"
+
+ '閲岀▼鏁拌褰�
+ If StreetMileage<>"" Then
+ MileageSql=",DispatchOrdTraStreetMileage="&StreetMileage
+ ElseIf EndMileage<>"" Then
+ MileageSql=",DispatchOrdTraEndMileage="&EndMileage
+ End If
+ If OA_latitude="" or OA_longitude="" Then
+ OA_latitude=0
+ OA_longitude=0
+ End If
+
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA,OA_longitude,OA_latitude,OA_address) values ("&DispatchOrdID&","&DispatchOrdState&","&session("adminID")&","&OA_longitude&","&OA_latitude&",'"&OA_address&"')"
+ objConn.Execute sql
+ sql="update DispatchOrd set DispatchOrdState="&DispatchOrdState&",DispatchOrdStartDate=getdate(),StateInt=StateInt+1,DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost)"&ActualSql&MileageSql&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+
+ Call OA_Running("璋冨害鍗曞嚭杞�:"&DispatchOrdID&" State:"&DispatchOrdState)
+ objConn.Execute "exec OrdDataUP "&DispatchOrdID
+ rsRollbackTrans(objConn.Errors.count)
+
+ '寰俊璋冨害鍗曚笅鍙�
+ sql="select OA_weixinUserID from OA_User where OA_User_ID="&session("adminID")
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ touser=rs("OA_weixinUserID")
+ End If
+ rs.close()
+ If touser<>"" Then
+ corpid="wx248505bfbab6d0c1"
+ corpsecret="iaEWollpet34K3S77iHtT5Q8SEgTVuMn_CqoJHeKxXU"
+ '鑾峰彇access_token
+ url="https://qyapi.weixin.qq.com/cgi-bin/gettoken" '//瀹氫箟瑕佽幏鍙栨簮浠ｇ爜鐨勭綉鍧�锛屼竴鑸槸閫氳繃鍙橀噺浼犻�掕繃鏉�
+ Origin="corpid="&corpid&"&corpsecret="&corpsecret
+ HTMLCODE= GetBody(url,Origin)
+ If InStr(HTMLCODE,"ok")>0 Then
+ HTMLCODE = Mid(HTMLCODE,InStr(HTMLCODE,"access_token")+15)
+ access_token= Mid(HTMLCODE,1,InStr(HTMLCODE,"""")-1)
+ 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"": 1000021," '浼佷笟搴旂敤鐨刬d锛屾暣鍨嬨�傚彲鍦ㄥ簲鐢ㄧ殑璁剧疆椤甸潰鏌ョ湅
+
+ args1=args1&"""msgtype"": ""news"","
+ args1=args1&"""news"": {"
+ args1=args1&"""articles"":["
+ args1=args1&"{"
+ args1=args1&"""title"": ""銆愮壒娈婁换鍔″崟銆�"&DispatchOrdNo&""","
+ args1=args1&"""description"": ""浠诲姟绫诲瀷锛�"&ServiceOrdTypeName&"\n鍑哄彂鏃堕棿锛�"&Now()&""","
+ args1=args1&"""url"": """&WEBURL&"/SpecialOrder.gds?DispatchOrdID="&DispatchOrdID&""","
+ args1=args1&"""picurl"": """""
+ args1=args1&"}"
+ args1=args1&"]"
+ args1=args1&"}"
+ args1=args1&"}"
+ HTMLCODE= PostBody(appUrl,args1)
+ End If
+ End If
+
+ '鏇存柊鎻愭垚鏁版嵁
+ Call EntourageDKP_Money_C2(DispatchOrdID)
+
+ webJson="{""result"":1,""DispatchOrdID"":"&DispatchOrdID&",""DispatchOrdNo"":"""&DispatchOrdNo&"""}"
+End If
+Response.Write webJson
+Response.End%>
+
+<%case "129_json"
+'-------------------------------------------------------------瀹岀粨/鍙栨秷/淇敼鐗规畩浠诲姟鍗昣json
+Set rs = Server.CreateObject("ADODB.Recordset")
+ServiceOrdType = SafeRequest(Request.form("ServiceOrdType")) '鏈嶅姟绫诲瀷
+ServiceOrdTypeName = SafeRequest(Request.form("ServiceOrdTypeName")) '鏈嶅姟绫诲瀷鍚嶇О
+ServiceOrdID = SafeRequest(Request.form("ServiceOrdID")) '鏈嶅姟鍗旾D
+DispatchOrdID = SafeRequest(Request.form("DispatchOrdID")) '璋冨害鍗旾D
+DispatchOrdCarID = SafeRequest(Request.form("DispatchOrdCarID")) '璋冨害杞﹁締
+StreetMileage = SafeRequest(Request.form("DispatchOrdTraStreetMileage")) '鍑鸿溅鍏噷鏁�
+EndMileage = SafeRequest(Request.form("DispatchOrdTraEndMileage")) '鍥炶溅鍏噷鏁�
+PaidMoneyType = SafeRequest(Request.form("PaidMoneyType")) '鏀粯鏂瑰紡
+ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '鎴愪氦浠�
+ServiceOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '浠诲姟澶囨敞
+EntourageOT_is = SafeRequest(Request.form("EntourageOT_is")) '鏄惁鍔犵彮鍑鸿溅
+DispatchOrdState = SafeRequest(Request.form("DispatchOrdState")) '浠诲姟鐘舵�両D
+IsSterilize = SafeRequest(Request.form("IsSterilize")) '娑堟潃鎯呭喌
+TimeLength_Program = SafeRequest(Request.form("TimeLength_Program")) '淇濋殰鏃堕暱
+
+If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
+If PaidMoneyType="" Then PaidMoneyType=0
+If EntourageOT_is="" Then EntourageOT_is=0
+If TimeLength_Program="" Then TimeLength_Program=0
+ServiceOrdTraStreet=ServiceOrdTypeName
+ServiceOrdTraVia=ServiceOrdTypeName
+ServiceOrdTraEnd=ServiceOrdTypeName
+DispatchOrdTraStreet=ServiceOrdTypeName
+DispatchOrdTraEnd=ServiceOrdTypeName
+DispatchOrdTraVia=ServiceOrdTypeName
+result=0
+If OA_latitude="" or OA_longitude="" Then
+ OA_latitude=0
+ OA_longitude=0
+End If
+
+'鏁版嵁涓嶅畬鏁�
+If ServiceOrdType="" Or ServiceOrdID="" Or DispatchOrdID="" or DispatchOrdCarID="" or StreetMileage="" or EndMileage="" Or ServiceOrdTypeName="" Or DispatchOrdState="" Then
+ result=2
+ webJson="{""result"":2,""errcode"":40010}"
+ElseIf Not IsNumeric(StreetMileage) Or Not IsNumeric(EndMileage) Then
+ result=2
+ webJson="{""result"":2,""errcode"":40011}"
+Else
+ '楠岃瘉鏈夋病閲嶅鎻愪氦
+ sql="select DispatchOrdID,ServiceOrdTraPaidPrice,DispatchOrdState from ServiceOrder,DispatchOrd where ServiceOrdID=ServiceOrdIDDt and DispatchOrdID="&DispatchOrdID
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ ServiceOrdTraPaidPrice=rs("ServiceOrdTraPaidPrice")
+ old_DispatchOrdState = rs("DispatchOrdState")
+ else
+ result=1
+ webJson="{""result"":1,""DispatchOrdID"":"&DispatchOrdID&"}"
+ End if
+ rs.close()
+End If
+
+If result=0 Then
+ '鏌ユ壘鍖婚櫌ID
+ ServiceOrdPtOutHospID=0
+ ServiceOrdPtInHospID=0
+ sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdTypeName&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID=rs(0)
+ ServiceOrdPtInHospID=rs(0)
+ End If
+ rs.close()
+ sql="select HospID from HospData where HospState=1 and HospName='"&ServiceOrdTypeName&"'"
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ ServiceOrdPtOutHospID_New=rs(0)
+ ServiceOrdPtInHospID_New=rs(0)
+ End If
+ rs.close()
+
+ '鎻愭垚璁＄畻
+ If ServiceOrdType="21" Or ServiceOrdType="23" Or ServiceOrdType="24" Then
+ '淇濋殰杞繍榛樿鎻愭垚30
+ DispatchOrdPerfomance=30
+ ElseIf ServiceOrdType="25" Then '姘戞斂浠诲姟A锛氶粯璁�8灏忔椂580鍏冿紝8灏忔椂浠ヤ笂锛岀疮鍔�80鍏�/灏忔椂
+ If TimeLength_Program<=8 Then
+ DispatchOrdPerfomance=TimeLength_Program*72.5
+ Else
+ DispatchOrdPerfomance=580+((TimeLength_Program-8)*80)
+ End If
+ Else
+ If ServiceOrdTraTxnPrice>350 And ServiceOrdTraTxnPrice<=700 Then
+ DispatchOrdPerfomance=80
+ ElseIf ServiceOrdTraTxnPrice>700 And ServiceOrdTraTxnPrice<=1000 Then
+ DispatchOrdPerfomance=100
+ ElseIf ServiceOrdTraTxnPrice>1000 Then
+ DispatchOrdPerfomance=ServiceOrdTraTxnPrice*0.1
+ Else
+ DispatchOrdPerfomance=60
+ End If
+ End If
+
+ '澶囨敞鍒嗘瀽
+ If ServiceOrdTaskRemarks<>"" Then
+ ServiceOrdTaskRemarks=Replace(ServiceOrdTaskRemarks,"?"," ")
+ TraStreet=""
+ TraEnd=""
+ TraStreet1=""
+ If InStr(ServiceOrdTaskRemarks,"杞嚭鍦帮細")>0 Or InStr(ServiceOrdTaskRemarks,"杞嚭鍦�:")>0 Then
+ TraStreet=Mid(ServiceOrdTaskRemarks,InStr(ServiceOrdTaskRemarks,"杞嚭鍦�")+4)
+ End If
+ If InStr(ServiceOrdTaskRemarks,"鐩殑鍦帮細")>0 Or InStr(ServiceOrdTaskRemarks,"鐩殑鍦�:")>0 Then
+ TraEnd=Mid(ServiceOrdTaskRemarks,InStr(ServiceOrdTaskRemarks,"鐩殑鍦�")+4)
+ End If
+ If InStr(ServiceOrdTaskRemarks,"杞嚭鍦板潃锛�")>0 Or InStr(ServiceOrdTaskRemarks,"杞嚭鍦板潃:")>0 Then
+ TraStreet=Mid(ServiceOrdTaskRemarks,InStr(ServiceOrdTaskRemarks,"杞嚭鍦板潃")+5)
+ End If
+ If InStr(ServiceOrdTaskRemarks,"杞叆鍦板潃锛�")>0 Or InStr(ServiceOrdTaskRemarks,"杞叆鍦板潃:")>0 Then
+ TraEnd=Mid(ServiceOrdTaskRemarks,InStr(ServiceOrdTaskRemarks,"杞叆鍦板潃")+5)
+ End If
+ If InStr(ServiceOrdTaskRemarks,"鎺ヨ溅鍦板潃锛�")>0 Or InStr(ServiceOrdTaskRemarks,"鎺ヨ溅鍦板潃:")>0 Then
+ TraStreet=Mid(ServiceOrdTaskRemarks,InStr(ServiceOrdTaskRemarks,"鎺ヨ溅鍦板潃")+5)
+ End If
+ If InStr(ServiceOrdTaskRemarks,"鑷筹細")>0 Then
+ TraEnd=Mid(ServiceOrdTaskRemarks,InStr(ServiceOrdTaskRemarks,"鑷筹細")+2)
+ End If
+ If InStr(ServiceOrdTaskRemarks,"鍛艰溅鍗曚綅锛�")>0 Or InStr(ServiceOrdTaskRemarks,"鍛艰溅鍗曚綅:")>0 Then
+ TraStreet1=Mid(ServiceOrdTaskRemarks,InStr(ServiceOrdTaskRemarks,"鍛艰溅鍗曚綅")+5,20)
+ End If
+
+ If TraStreet<>"" Then
+ If InStr(TraStreet,"杞叆")>0 Then
+ TraStreet=Mid(TraStreet,1,InStr(TraStreet,"杞叆")-2)
+ ElseIf InStr(TraStreet,"锛�")>1 Then
+ TraStreet=Mid(TraStreet,1,InStr(TraStreet,"锛�")-1)
+ ElseIf InStr(TraStreet,chr(10))>1 Then
+ TraStreet=Mid(TraStreet,1,InStr(TraStreet,chr(10))-1)
+ Else
+ TraStreet=Mid(TraStreet,1)
+ End If
+ TraStreet=Replace(TraStreet,"?","")
+ ServiceOrdTraStreet=TraStreet
+ ServiceOrdTraVia=TraStreet
+ DispatchOrdTraStreet=TraStreet
+ DispatchOrdTraVia=TraStreet
+ End If
+ If TraStreet1<>"" Then
+ If InStr(TraStreet1,"锛�")>1 Then
+ TraStreet1=Mid(TraStreet1,1,InStr(TraStreet1,"锛�")-1)
+ ElseIf InStr(TraStreet1,chr(10))>1 Then
+ TraStreet1=Mid(TraStreet1,1,InStr(TraStreet1,chr(10))-1)
+ Else
+ TraStreet1=Mid(TraStreet1,1)
+ End If
+ TraStreet1=Replace(TraStreet1,"?","")
+ ServiceOrdTraStreet=TraStreet1
+ DispatchOrdTraStreet=TraStreet1
+ 'Response.Write TraStreet1
+ End If
+ If TraEnd<>"" Then
+ If InStr(TraEnd,chr(10))>1 Then
+ TraEnd=Mid(TraEnd,1,InStr(TraEnd,chr(10))-1)
+ ElseIf InStr(TraEnd,"锛�")>1 Then
+ TraEnd=Mid(TraEnd,1,InStr(TraEnd,"锛�")-1)
+ Else
+ TraEnd=Mid(TraEnd,1)
+ End If
+ TraEnd=Replace(TraEnd,"?","")
+ ServiceOrdTraEnd=TraEnd
+ DispatchOrdTraEnd=TraEnd
+ End If
+
+ 'Response.End
+ End If
+ '閲岀▼鏁拌褰�
+ 'If StreetMileage=EndMileage Then EndMileage=""
+ If StreetMileage<>"" Then
+ MileageSql=MileageSql&",DispatchOrdTraStreetMileage="&StreetMileage
+ End If
+ If EndMileage<>"" Then
+ MileageSql=MileageSql&",DispatchOrdTraEndMileage="&EndMileage
+ End If
+ If StreetMileage<>"" And EndMileage<>"" Then
+ sql="update ServiceOrder set ServiceOrdTraDistance='"&(CLng(EndMileage)-CLng(StreetMileage))&"鍏噷' where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ MileageSql=MileageSql&",DispatchOrdMileage="&(CLng(EndMileage)-CLng(StreetMileage))
+ End If
+ If TimeLength_Program<>"" Then
+ MileageSql=MileageSql&",TimeLength_Program="&TimeLength_Program
+ End If
+
+ '淇敼璁板綍
+ sql="update ServiceOrder set ServiceOrdType="&ServiceOrdType&",ServiceOrdTraPaidType="&PaidMoneyType&",ServiceOrdPtOutHospID="&ServiceOrdPtOutHospID_New&",ServiceOrdPtOutHosp="&ServiceOrdPtOutHospID&",ServiceOrdPtInHospID="&ServiceOrdPtInHospID_New&",ServiceOrdPtInHosp="&ServiceOrdPtInHospID&",ServiceOrdTraStreet=REPLACE(REPLACE('"&ServiceOrdTraStreet&"', CHAR(13) , ' '), CHAR(10),''),ServiceOrdTraEnd=REPLACE(REPLACE('"&ServiceOrdTraEnd&"', CHAR(13) , ' '), CHAR(10),''),ServiceOrdTraVia=REPLACE(REPLACE('"&ServiceOrdTraVia&"', CHAR(13) , ' '), CHAR(10),''),ServiceOrdTraTxnPrice="&ServiceOrdTraTxnPrice&",ServiceOrdTaskRemarks='"&ServiceOrdTaskRemarks&"' where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ sql="update DispatchOrd set DispatchOrdCarID="&DispatchOrdCarID&",DispatchOrdTraStreet=REPLACE(REPLACE('"&DispatchOrdTraStreet&"', CHAR(13) , ' '), CHAR(10),''),DispatchOrdTraEnd=REPLACE(REPLACE('"&DispatchOrdTraEnd&"', CHAR(13) , ' '), CHAR(10),''),DispatchOrdTraVia=REPLACE(REPLACE('"&DispatchOrdTraVia&"', CHAR(13) , ' '), CHAR(10),''),DispatchOrdPerfomance="&DispatchOrdPerfomance&",DispatchOrdTaskRemarks='"&ServiceOrdTaskRemarks&"'"&MileageSql&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
+ 'Response.Write sql
+ 'Response.End
+ objConn.Execute sql
+ sql="update DispatchOrd_Entourage set EntourageOT_is="&EntourageOT_is&" where EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID
+ objConn.Execute sql
+
+ If old_DispatchOrdState<>"9" And old_DispatchOrdState<>"10" And (DispatchOrdState="8" Or DispatchOrdState="9") Then
+ '瀹岀粨/鍙栨秷
+ ActualSql=",DispatchOrdArriveDate=getdate(),DispatchOrdReturnDate=getdate()"
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA,OA_longitude,OA_latitude,OA_address) values ("&DispatchOrdID&","&DispatchOrdState&","&session("adminID")&","&OA_longitude&","&OA_latitude&",'"&OA_address&"')"
+ objConn.Execute sql
+ sql="update DispatchOrd set DispatchOrdState="&DispatchOrdState&",DispatchOrdStartDate=getdate(),StateInt=StateInt+1,DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost)"&ActualSql&",DispatchOrdIsEnd=1 where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ sql="update DispatchOrd_Entourage set EntourageEnd_Time=getdate() where EntourageEnd_Time is null and EntourageState=3 and DispatchOrdIDDt="&DispatchOrdID
+ objConn.Execute sql
+ If IsSterilize<>"" Then '娑堟潃璁板綍
+ sql="select CarLicense from DispatchOrd,CarData where CarID=DispatchOrdCarID and DispatchOrdID="&DispatchOrdID
+ rs.open sql,objConn,1,1
+ If not rs.Eof Then
+ Sterilize_CarLicense=rs(0)
+ End If
+ rs.close()
+ sql="insert into OA_Sterilize (Sterilize_OAID,SterilizeUpOAID,Sterilize_Time,Sterilize_CarLicense,Sterilize_Mode,Sterilize_DispatchOrdID) values ("&session("adminID")&","&session("adminID")&",getdate(),'"&Sterilize_CarLicense&"','"&IsSterilize&"',"&DispatchOrdID&")"
+ objConn.Execute sql
+ End If
+
+ '璐圭敤鏀粯鎿嶄綔
+ If (ServiceOrdTraTxnPrice-ServiceOrdTraPaidPrice)>0 And PaidMoneyType<>"3" And PaidMoneyType<>"4" Then
+ PaidMoney=(ServiceOrdTraTxnPrice-ServiceOrdTraPaidPrice)
+ PaidMoneyTimestamp=ToUnixTime(now(),+8)
+ PaidMoneyMono=""
+ PaidMoneyCheck=0
+ If PaidMoneyType<>"" And IsNumeric(PaidMoney) And PaidMoneyTimestamp<>"" And ServiceOrdID<>"" And DispatchOrdID<>"" Then
+ If PaidMoney<>0 Then
+ Call PaidMoneyA(ServiceOrdID,DispatchOrdID,PaidMoney,PaidMoneyType,PaidMoneyTimestamp,PaidMoneyMono,PaidMoneyCheck)
+ End if
+ End If
+ End If
+ Call OA_Running("瀹岀粨璋冨害鍗�:"&DispatchOrdID&" State:"&DispatchOrdState)
+ ElseIf DispatchOrdState="6" Then
+ '鍑鸿溅
+ ActualSql=",DispatchOrdActualDate=getdate()"
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA,OA_longitude,OA_latitude,OA_address) values ("&DispatchOrdID&","&DispatchOrdState&","&session("adminID")&","&OA_longitude&","&OA_latitude&",'"&OA_address&"')"
+ objConn.Execute sql
+ sql="update DispatchOrd set DispatchOrdState="&DispatchOrdState&",DispatchOrdStartDate=getdate(),StateInt=StateInt+1,DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost)"&ActualSql&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+
+ Call OA_Running("璋冨害鍗曞嚭杞�:"&DispatchOrdID&" State:"&DispatchOrdState)
+ Else
+ Call OA_Running("淇敼璋冨害鍗�:"&DispatchOrdID&" State:"&DispatchOrdState)
+ End If
+
+ objConn.Execute "exec OrdDataUP "&DispatchOrdID
+ rsRollbackTrans(objConn.Errors.count)
+
+ '鏇存柊鎻愭垚鏁版嵁
+ Call EntourageDKP_Money_C2(DispatchOrdID)
+
+ webJson="{""result"":1,""DispatchOrdID"":"&DispatchOrdID&",""DispatchOrdNo"":"""&DispatchOrdNo&"""}"
+End If
+Response.Write webJson
+Response.End%>
+
+<%case "131_json"
+'-------------------------------------------------------------閲戦淇濆瓨_鐗规畩浠诲姟鍗昣json
+Set rs = Server.CreateObject("ADODB.Recordset")
+ServiceOrdID = SafeRequest(Request.form("ServiceOrdID")) '鏈嶅姟鍗旾D
+ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice"))'鎴愪氦浠�
+PaidMoneyType = SafeRequest(Request.form("PaidMoneyType")) '鏀粯鏂瑰紡
+
+result=0
+
+'鏁版嵁涓嶅畬鏁�
+If ServiceOrdID="" Or ServiceOrdTraTxnPrice="" Or PaidMoneyType="" Then
+ result=2
+ 'webJson="{""result"":2,""errcode"":40010}"
+Else
+ sql="update ServiceOrder set ServiceOrdTraTxnPrice="&ServiceOrdTraTxnPrice&",ServiceOrdTraPaidType="&PaidMoneyType&" where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ objConn.Execute "exec OrdDataUP "&ServiceOrdID
+End If
+webJson="{""result"":1}"
+
+rsRollbackTrans(objConn.Errors.count)
+Response.Write webJson
+Response.End%>
+
+<%case "132"
+'-------------------------------------------------------------杞﹁締鎺掑簭
+Schedules = SafeRequest(request("Schedules"))
+CarOrdClass = SafeRequest(request("CarOrdClass"))
+
+If Schedules="" Then Response.Redirect "/CarData_Schedules.gds?CarOrdClass="&CarOrdClass&"&SystemMessageType=1&SMT=2"
+
+SchedulesSP = SPLIT(Schedules,",")
+
+for i = 1 to UBOUND(SchedulesSP)
+ sql="update CarData set CarTop="&i&" where CarID="&SchedulesSP(i)
+ objConn.Execute sql
+next
+
+ReturnURL="/CarData_Schedules.gds?CarOrdClass="&CarOrdClass&"&SystemMessageType=3&SMT=1"
+
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "133_json"
+'-------------------------------------------------------------鍗曢」淇濆瓨_鐗规畩浠诲姟鍗昣json
+Set rs = Server.CreateObject("ADODB.Recordset")
+ServiceOrdID = SafeRequest(Request.form("ServiceOrdID")) '鏈嶅姟鍗旾D
+DispatchOrdID = SafeRequest(Request.form("DispatchOrdID")) '璋冨害鍗旾D
+SaveData = SafeRequest(Request.form("SaveData")) '淇濆瓨鏁版嵁绫诲瀷
+result=0
+
+'鏁版嵁涓嶅畬鏁�
+If SaveData="" Or (ServiceOrdID="" And DispatchOrdID="") Then
+ result=2
+ 'webJson="{""result"":2,""errcode"":40010}"
+Else
+ select case SaveData
+ case "ServiceOrdType"
+ '浠诲姟鍒嗙被
+ ServiceOrdType = SafeRequest(Request.form("ServiceOrdType"))
+ TraStreet = SafeRequest(Request.form("TraStreet"))
+ TraEnd = SafeRequest(Request.form("TraEnd"))
+ If IsNumeric(ServiceOrdType) Then
+ ServiceOrdTypeName=ServiceOrdTypeA(ServiceOrdType)
+ Set rs = Server.CreateObject("ADODB.Recordset")
+ sql="select ServiceOrdType,ServiceOrd_CC_Time from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ old_ServiceOrdType=rs(0)
+ old_ServiceOrdTypeName=ServiceOrdTypeA(old_ServiceOrdType)
+ ServiceOrd_CC_Time=rs(1)
+ End if
+ rs.close()
+ If old_ServiceOrdTypeName=TraStreet Then
+ TraStreet=ServiceOrdTypeName
+ sql="update DispatchOrd set DispatchOrdTraStreet='"&ServiceOrdTypeName&"' where ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ sql="update ServiceOrder set ServiceOrdTraStreet='"&ServiceOrdTypeName&"',ServiceOrdTraVia='"&ServiceOrdTypeName&"' from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ Else
+ TraStreet=""
+ End If
+ If old_ServiceOrdTypeName=TraEnd Then
+ TraEnd=ServiceOrdTypeName
+ sql="update DispatchOrd set DispatchOrdTraEnd='"&ServiceOrdTypeName&"' where ServiceOrdIDDt="&ServiceOrdID
+ objConn.Execute sql
+ sql="update ServiceOrder set ServiceOrdTraEnd='"&ServiceOrdTypeName&"' from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ Else
+ TraEnd=""
+ End If
+ sql="update ServiceOrder set ServiceOrdType="&ServiceOrdType&" where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ If dateDiff("m",ServiceOrd_CC_Time,now())>=1 Then Call FinancialAudit(ServiceOrdID,DispatchOrdID,"淇敼浠诲姟鍒嗙被 "&old_ServiceOrdTypeName&" => "&ServiceOrdTypeName)
+ Call OA_Running("鐗规畩浠诲姟鍒嗙被淇敼:"&ServiceOrdID)
+ objConn.Execute "exec OrdDataUP "&ServiceOrdID
+ webJson="{""result"":1,""TraStreet"":"""&TraStreet&""",""TraEnd"":"""&TraEnd&"""}"
+ End If
+
+ case "DispatchOrd_AP_Check"
+ '浠诲姟瀹℃牳
+ SwitchState = SafeRequest(Request.form("SwitchState"))
+ If SwitchState="1" Then
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",12,"&session("adminID")&")"
+ objConn.Execute sql
+ sql="update DispatchOrd set DispatchOrd_AP_Check=1,DispatchOrd_AP_Time=getdate(),DispatchOrd_AP_ID="&session("adminID")&" where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ Call OA_Running("鐗规畩浠诲姟瀹℃牳:"&DispatchOrdID)
+ objConn.Execute "exec OrdDataUP "&DispatchOrdID
+ ElseIf SwitchState="0" Then
+ sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",13,"&session("adminID")&")"
+ objConn.Execute sql
+ sql="update DispatchOrd set DispatchOrd_AP_Check=0,DispatchOrd_AP_Time=null,DispatchOrd_AP_ID=null where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ Call OA_Running("鐗规畩浠诲姟鍙嶅鏍�:"&DispatchOrdID)
+ objConn.Execute "exec OrdDataUP "&DispatchOrdID
+ End If
+
+ case "DispatchOrdCarID"
+ '杞﹁締淇敼
+ CarID = SafeRequest(Request.form("CarID"))
+ If IsNumeric(CarID) Then
+ sql="update DispatchOrd set DispatchOrdCarID="&CarID&" where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ Call OA_Running("鐗规畩浠诲姟杞﹁締淇敼:"&DispatchOrdID)
+ objConn.Execute "exec OrdDataUP "&DispatchOrdID
+ webJson="{""result"":1}"
+ End If
+
+ case "DispatchOrdTraStreet"
+ '鍑哄彂鍦板潃
+ DispatchOrdTraStreet = SafeRequest(Request.form("DispatchOrdTraStreet"))
+ If DispatchOrdTraStreet<>"" Then
+ sql="update DispatchOrd set DispatchOrdTraStreet='"&DispatchOrdTraStreet&"' where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ sql="update ServiceOrder set ServiceOrdTraStreet='"&DispatchOrdTraStreet&"',ServiceOrdTraVia='"&DispatchOrdTraStreet&"' from DispatchOrd,ServiceOrder where ServiceOrdID=ServiceOrdIDDt and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ Call OA_Running("鐗规畩浠诲姟鍑哄彂鍦板潃淇敼:"&DispatchOrdID)
+ objConn.Execute "exec OrdDataUP "&DispatchOrdID
+ webJson="{""result"":1}"
+ End If
+
+ case "DispatchOrdTraEnd"
+ '閫佽揪鍦板潃
+ DispatchOrdTraEnd = SafeRequest(Request.form("DispatchOrdTraEnd"))
+ If DispatchOrdTraEnd<>"" Then
+ sql="update DispatchOrd set DispatchOrdTraEnd='"&DispatchOrdTraEnd&"' where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ sql="update ServiceOrder set ServiceOrdTraEnd='"&DispatchOrdTraEnd&"' from DispatchOrd,ServiceOrder where ServiceOrdID=ServiceOrdIDDt and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ Call OA_Running("鐗规畩浠诲姟閫佽揪鍦板潃淇敼:"&DispatchOrdID)
+ objConn.Execute "exec OrdDataUP "&DispatchOrdID
+ webJson="{""result"":1}"
+ End If
+
+ case "DispatchOrdTraStreetMileage"
+ '鍑鸿溅鍏噷鏁�
+ DispatchOrdTraStreetMileage = SafeRequest(Request.form("DispatchOrdTraStreetMileage"))
+ OrdMileage="--"
+ If IsNumeric(DispatchOrdTraStreetMileage) Then
+ Set rs = Server.CreateObject("ADODB.Recordset")
+ sql="select DispatchOrdTraStreetMileage,DispatchOrdTraEndMileage from DispatchOrd where DispatchOrdID="&DispatchOrdID
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ StreetMileage=rs(0)
+ EndMileage=rs(1)
+ If EndMileage<>"0" And Not isnull(EndMileage) Then
+ OrdMileage=(CLng(EndMileage)-CLng(DispatchOrdTraStreetMileage))&"鍏噷"
+ OrdMileageSql=",DispatchOrdMileage="&(CLng(EndMileage)-CLng(DispatchOrdTraStreetMileage))
+ sql="update ServiceOrder set ServiceOrdTraDistance='"&(CLng(EndMileage)-CLng(DispatchOrdTraStreetMileage))&"鍏噷' from DispatchOrd,ServiceOrder where ServiceOrdID=ServiceOrdIDDt and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ End If
+ End if
+ rs.close()
+ sql="update DispatchOrd set DispatchOrdTraStreetMileage="&DispatchOrdTraStreetMileage&OrdMileageSql&" where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ Call OA_Running("鐗规畩浠诲姟鍑鸿溅鍏噷鏁颁慨鏀�:"&DispatchOrdID)
+ objConn.Execute "exec OrdDataUP "&DispatchOrdID
+ webJson="{""result"":1,""OrdMileage"":"""&OrdMileage&"""}"
+ End If
+
+ case "DispatchOrdTraEndMileage"
+ '鍥炶溅鍏噷鏁�
+ DispatchOrdTraEndMileage = SafeRequest(Request.form("DispatchOrdTraEndMileage"))
+ OrdMileage="--"
+ If IsNumeric(DispatchOrdTraEndMileage) Then
+ Set rs = Server.CreateObject("ADODB.Recordset")
+ sql="select DispatchOrdTraStreetMileage,DispatchOrdTraEndMileage from DispatchOrd where DispatchOrdID="&DispatchOrdID
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ StreetMileage=rs(0)
+ EndMileage=rs(1)
+ If StreetMileage<>"0" And Not isnull(StreetMileage) Then
+ OrdMileage=(CLng(DispatchOrdTraEndMileage)-CLng(StreetMileage))&"鍏噷"
+ OrdMileageSql=",DispatchOrdMileage="&(CLng(DispatchOrdTraEndMileage)-CLng(StreetMileage))
+ sql="update ServiceOrder set ServiceOrdTraDistance='"&(CLng(DispatchOrdTraEndMileage)-CLng(StreetMileage))&"鍏噷' from DispatchOrd,ServiceOrder where ServiceOrdID=ServiceOrdIDDt and DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ End If
+ End if
+ rs.close()
+ sql="update DispatchOrd set DispatchOrdTraEndMileage="&DispatchOrdTraEndMileage&OrdMileageSql&" where DispatchOrdID="&DispatchOrdID
+ objConn.Execute sql
+ Call OA_Running("鐗规畩浠诲姟鍥炶溅鍏噷鏁颁慨鏀�:"&DispatchOrdID)
+ objConn.Execute "exec OrdDataUP "&DispatchOrdID
+ webJson="{""result"":1,""OrdMileage"":"""&OrdMileage&"""}"
+ End If
+
+ case "ServiceOrdTaskRemarks"
+ '浠诲姟澶囨敞
+ ServiceOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks"))
+ If IsNumeric(ServiceOrdType) Then
+ sql="update ServiceOrder set ServiceOrdTaskRemarks='"&ServiceOrdTaskRemarks&"' where ServiceOrdID="&ServiceOrdID
+ objConn.Execute sql
+ Call OA_Running("鐗规畩浠诲姟澶囨敞淇敼:"&ServiceOrdID)
+ objConn.Execute "exec OrdDataUP "&ServiceOrdID
+ webJson="{""result"":1}"
+ End If
+
+ case Else
+ webJson="{""result"":2}"
+ end select
+End If
+
+rsRollbackTrans(objConn.Errors.count)
+Response.Write webJson
+Response.End%>
+
+<%case "134"
+'-------------------------------------------------------------璐㈠姟浜屾瀹℃牳浠诲姟鍗�
+DispatchOrdID = SafeRequest(request.form("DispatchOrdID"))
+
+If DispatchOrdID="" Then Response.Redirect "/PaidMoneyFA_List.gds?SystemMessageType=4&SMT=1"
+sql="update DispatchOrd set DispatchOrd_FA_Check=1,DispatchOrd_FA_Time=getdate(),DispatchOrd_FA_ID="&session("adminID")&" where DispatchOrd_FA_Check=0 and DispatchOrdID in ("&DispatchOrdID&")"
+objConn.Execute sql
+
+Call OA_Running("璐㈠姟浜屾瀹℃牳:"&DispatchOrdID)
+objConn.Execute "exec OrdDataUP "&DispatchOrdID
+ReturnURL="PaidMoneyFA_List.gds"
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"?SystemMessageType=3&SMT=3&h_menu1_1="&session("h_menu1_1")
+Response.End%>
+
+<%case "135_json"
+'-------------------------------------------------------------涓汉鏍搁吀鐧昏
+'Set rs = Server.CreateObject("ADODB.Recordset")
+'sql="select id from OA_NucleicAcid where NucleicAcid_Time between DATEADD(dd,DATEDIFF(dd,0,getdate()),0) and DATEADD(ss,-1,DATEADD(dd,DATEDIFF(dd,0,getdate()),1)) and NucleicAcid_OAID="&session("adminID")
+'rs.open sql,objConn,1,1
+'If not rs.eof Then
+' id=rs(0)
+' sql="update OA_NucleicAcid set NucleicAcid_Time=getdate(),NucleicAcidUpOAID="&session("adminID")&",NucleicAcidUpTime=getdate() where id="&id
+' objConn.Execute sql
+'Else
+' sql="insert into OA_NucleicAcid (NucleicAcid_OAID,NucleicAcidUpOAID) values ("&session("adminID")&","&session("adminID")&")"
+' objConn.Execute sql
+'End if
+'rs.close()
+NucleicAcid_Time = SafeRequest(request("NucleicAcid_Time"))
+If NucleicAcid_Time="" Then NucleicAcid_Time=now()
+If IsDate(NucleicAcid_Time) Then
+ sql="insert into OA_NucleicAcid (NucleicAcid_OAID,NucleicAcidUpOAID,NucleicAcid_Time) values ("&session("adminID")&","&session("adminID")&",'"&NucleicAcid_Time&"')"
+ objConn.Execute sql
+ webJson="{""result"":1}"
+Else
+ webJson="{""result"":0,""errcode"":""鏃ユ湡绫诲瀷閿欒""}"
+End If
+rsRollbackTrans(objConn.Errors.count)
+Response.Write webJson
+Response.End%>
+
+<%case "136_json"
+'-------------------------------------------------------------涓汉娑堟潃鐧昏
+Sterilize_Time = SafeRequest(request("Sterilize_Time"))
+Sterilize_CarLicense= SafeRequest(request("Sterilize_CarLicense"))
+Sterilize_Mode = SafeRequest(request("Sterilize_Mode"))
+If Sterilize_Time="" Then Sterilize_Time=now()
+If IsDate(Sterilize_Time) And Sterilize_CarLicense<>"" And Sterilize_Mode<>"" Then
+ sql="insert into OA_Sterilize (Sterilize_OAID,SterilizeUpOAID,Sterilize_Time,Sterilize_CarLicense,Sterilize_Mode) values ("&session("adminID")&","&session("adminID")&",'"&Sterilize_Time&"','"&Sterilize_CarLicense&"','"&Sterilize_Mode&"')"
+ objConn.Execute sql
+ webJson="{""result"":1}"
+Else
+ webJson="{""result"":0,""errcode"":""鏁版嵁閿欒""}"
+End If
+rsRollbackTrans(objConn.Errors.count)
+Response.Write webJson
+Response.End%>
+
+<%case "137_json"
+'-------------------------------------------------------------鍙栨秷鏉ョ數鐧昏(鍗曠嫭)
+CallRecord_Phine = SafeRequest(request("CallRecord_Phine"))
+Response.Cookies("CAME_Phone")("Phone")=""
+Response.Cookies("CAME_Phone")("PhoneTime")=""
+webJson="{""result"":1}"
+rsRollbackTrans(objConn.Errors.count)
+Response.Write webJson
+Response.End%>
+
+
+<%case "138_json"
+'-------------------------------------------------------------鏂板缓淇濆瓨鏉ョ數鐧昏(鍗曠嫭)
+CallRecord_Phine = Trim(SafeRequest(request("CallRecord_Phine")))
+CallRecord_StartTime = Trim(SafeRequest(request("CallRecord_StartTime")))
+CallRecord_InAndOut = Trim(SafeRequest(request("CallRecord_InAndOut")))
+CallRecord_Source = Trim(SafeRequest(request("CallRecord_Source")))
+OrdID = Trim(SafeRequest(request("OrdID")))
+If CallRecord_InAndOut="" Then CallRecord_InAndOut=0
+If CallRecord_Source="" Then CallRecord_Source=0
+If OrdID="" Then OrdID=0
+Response.Cookies("CAME_Phone")("Phone")=""
+Response.Cookies("CAME_Phone")("PhoneTime")=""
+If CallRecord_Phine<>"" And CallRecord_StartTime<>"" Then
+ Set rs = Server.CreateObject("ADODB.Recordset")
+ If not IsNumeric(OrdID) Then
+ sql="select SOrdID from OrdData where (鏈嶅姟鍗曞彿='"&OrdID&"' or 璋冨害鍗曞彿='"&OrdID&"') and SOrdID<>''"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ OrdID=rs(0)
+ Else
+ OrdID=0
+ End If
+ rs.close()
+ End If
+ sql="select CallRecordID from CallRecord where CallRecord_Phine='"&CallRecord_Phine&"' and CallRecord_StartTime between dateadd(Ss,-10,'"&CallRecord_StartTime&"') and dateadd(Ss,10,'"&CallRecord_StartTime&"')"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ sql="update CallRecord set CallRecord_InAndOut="&CallRecord_InAndOut&",CallRecord_Source="&CallRecord_Source&" where CallRecordID="&rs(0)
+ objConn.Execute sql
+ Else
+ sql="insert into CallRecord (CallRecord_Phine,CallRecord_OAUserID,CallRecord_StartTime,CallRecord_EndTime,CallRecord_Type,CallRecord_InAndOut,CallRecord_Source,CallRecord_OrdID) values ('"&CallRecord_Phine&"',"&session("adminID")&",'"&CallRecord_StartTime&"',getdate(),1,"&CallRecord_InAndOut&","&CallRecord_Source&","&OrdID&")"
+ objConn.Execute sql
+ End if
+ rs.close()
+
+End If
+webJson="{""result"":1}"
+rsRollbackTrans(objConn.Errors.count)
+Response.Write webJson
+Response.End%>
+
+<%case "139"
+'-------------------------------------------------------------淇敼鏉ョ數鐧昏
+CallRecordID = SafeRequest(request.form("CallRecordID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If page="" Then page=1
+If CallRecordID="" Then Response.Redirect "/CallRecord_List.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=6"
+ID_SP = SPLIT(CallRecordID,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ id = ID_SP(i)
+ CallRecord_StartTime= Trim(SafeRequest(Request("CallRecord_StartTime_"&ID)))
+ CallRecord_Phine = Trim(SafeRequest(Request("CallRecord_Phine_"&ID)))
+ CallRecord_InAndOut = Trim(SafeRequest(Request("CallRecord_InAndOut_"&ID)))
+ CallRecord_Source= Trim(SafeRequest(Request("CallRecord_Source_"&ID)))
+ CallRecord_Record = Trim(SafeRequest(Request("CallRecord_Record_"&ID)))
+ CallRecord_Time = Trim(SafeRequest(Request("CallRecord_Time_"&ID)))
+ CallRecord_Ord = Trim(SafeRequest(Request("CallRecord_Ord_"&ID)))
+ If CallRecord_Phine<>"" And CallRecord_StartTime<>"" Then
+ If CallRecord_Time<>"" Then
+ CallRecord_TimeSS=0
+ If InStr(CallRecord_Time,"灏忔椂")>0 Then
+ CallRecord_TimeSS=CallRecord_TimeSS+CLng(Mid(CallRecord_Time,1,InStr(CallRecord_Time,"灏忔椂")-1))*3600
+ CallRecord_Time=Mid(CallRecord_Time,InStr(CallRecord_Time,"灏忔椂")+2)
+ End If
+ If InStr(CallRecord_Time,"鍒�")>0 Then
+ CallRecord_TimeSS=CallRecord_TimeSS+CLng(Mid(CallRecord_Time,1,InStr(CallRecord_Time,"鍒�")-1))*60
+ CallRecord_Time=Mid(CallRecord_Time,InStr(CallRecord_Time,"鍒�")+1)
+ End If
+ If InStr(CallRecord_Time,"绉�")>0 Then
+ CallRecord_TimeSS=CallRecord_TimeSS+CLng(Mid(CallRecord_Time,1,InStr(CallRecord_Time,"绉�")-1))
+ End If
+ CallRecord_EndTime=DateAdd("s",CallRecord_TimeSS,CallRecord_StartTime)
+ End If
+ If CallRecord_Ord<>"" Then
+ sql="select SOrdID from OrdData where (鏈嶅姟鍗曞彿='"&CallRecord_Ord&"' or 璋冨害鍗曞彿='"&CallRecord_Ord&"') and SOrdID<>''"
+ rs.open sql,objConn,1,1
+ If not rs.eof Then
+ CallRecord_Ord=rs(0)
+ Else
+ CallRecord_Ord=0
+ End If
+ rs.close()
+ Else
+ CallRecord_Ord=0
+ End If
+ ',CallRecord_EndTime='"&CallRecord_EndTime&"'
+ sql="update CallRecord set CallRecord_Phine='"&CallRecord_Phine&"',CallRecord_StartTime='"&CallRecord_StartTime&"',CallRecord_InAndOut="&CallRecord_InAndOut&",CallRecord_Source="&CallRecord_Source&",CallRecord_Record='"&CallRecord_Record&"',CallRecord_OrdID="&CallRecord_Ord&" where CallRecordID="&ID
+ objConn.Execute sql
+ End If
+Next
+
+ReturnURL="CallRecord_List.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2"
+Response.End%>
+
+<%case "140"
+'-------------------------------------------------------------鍒犻櫎鏉ョ數鐧昏
+CallRecordID = SafeRequest(request.form("CallRecordID"))
+searchTXT=SafeRequest(request.form("searchTXT"))
+page = SafeRequest(request.form("page"))
+If page="" Then page=1
+If CallRecordID="" Then Response.Redirect "/CallRecord_List.gds?searchTXT="&searchTXT&"&page="&page&"&SystemMessageType=1&SMT=6"
+
+sql="delete from CallRecord where CallRecordID in ("&CallRecordID&")"
+objConn.Execute sql
+
+
+ReturnURL="CallRecord_List.gds?searchTXT="&searchTXT&"&page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=4"
+Response.End%>
+
+<%case "141"
+'-------------------------------------------------------------鏂板缓鑷姩鎶ヤ环璁惧畾
+IRUnitID = Trim(SafeRequest(Request("IRUnitID")))
+IRProvince = Trim(SafeRequest(Request("IRProvince")))
+IRCity = Trim(SafeRequest(Request("IRCity")))
+IRArea = Trim(SafeRequest(Request("IRArea")))
+IRkeyword = Trim(SafeRequest(Request("IRkeyword")))
+IRNursingLevel = Trim(SafeRequest(Request("IRNursingLevel")))
+IRPrice = Trim(SafeRequest(Request("IRPrice")))
+IRDt = Trim(SafeRequest(Request("IRDt")))
+IRVentilatorCost= Trim(SafeRequest(Request("IRVentilatorCost")))
+IRWarmBoxCost = Trim(SafeRequest(Request("IRWarmBoxCost")))
+IRLiftingCost = Trim(SafeRequest(Request("IRLiftingCost")))
+IRWaitingCost = Trim(SafeRequest(Request("IRWaitingCost")))
+IRFerryCost = Trim(SafeRequest(Request("IRFerryCost")))
+If IRUnitID="" Or Not IsNumeric(IRUnitID) Then IRUnitID=0
+If IRNursingLevel="" Or Not IsNumeric(IRNursingLevel) Then IRNursingLevel=0
+If IRPrice="" Or Not IsNumeric(IRPrice) Then IRPrice=0
+If IRVentilatorCost="" Or Not IsNumeric(IRVentilatorCost) Then IRVentilatorCost=0
+If IRWarmBoxCost="" Or Not IsNumeric(IRWarmBoxCost) Then IRWarmBoxCost=0
+If IRLiftingCost="" Or Not IsNumeric(IRLiftingCost) Then IRLiftingCost=0
+If IRWaitingCost="" Or Not IsNumeric(IRWaitingCost) Then IRWaitingCost=0
+If IRFerryCost="" Or Not IsNumeric(IRFerryCost) Then IRFerryCost=0
+If IRDt="" Then Response.Redirect "/OrderPriceSetUP.gds?page="&page&"&SystemMessageType=1&SMT=7"
+If IRProvince<>"" Then
+ sql="insert into IntroducerRegion (IRUnitID,IRProvince,IRCity,IRArea,IRkeyword,IRNursingLevel,IRPrice,IRVentilatorCost,IRWarmBoxCost,IRLiftingCost,IRWaitingCost,IRFerryCost,IRState) values ("&IRUnitID&",'"&IRProvince&"','"&IRCity&"','"&IRArea&"','"&IRkeyword&"',"&IRNursingLevel&","&IRPrice&","&IRVentilatorCost&","&IRWarmBoxCost&","&IRLiftingCost&","&IRWaitingCost&","&IRFerryCost&",1)"
+ objConn.Execute sql
+ Set rs = Server.CreateObject("ADODB.Recordset")
+ sql="select top 1 IRid from IntroducerRegion order by IRid desc"
+ rs.open sql,objConn,1,1
+ ID=rs(0)
+ rs.close()
+ If IRDt<>"" Then
+ IRDt=Replace(IRDt,chr(13),"")
+ IRDt=Replace(IRDt,chr(10),"|")
+ IRDt=Replace(IRDt," ","")
+ IRDt=Replace(IRDt,"鍏噷","")
+ IRDt=Replace(IRDt,"鍏�","")
+ IRDt=Replace(IRDt,"\","/")
+ IRDtPS = SPLIT(IRDt,"|")
+ for j = 0 to UBOUND(IRDtPS)
+ If IRDtPS(j)<>"" Then
+ IRDts = Trim(IRDtPS(j))
+ IRDtsPS = SPLIT(IRDts,"/")
+ If UBOUND(IRDtsPS)=1 Then
+ If IsNumeric(IRDtsPS(0)) And IsNumeric(IRDtsPS(1)) Then
+ sql="insert into IntroducerRegionDt (IRDt_id,IRDtPrice,IRDtlimit) values ("&ID&","&IRDtsPS(1)&","&IRDtsPS(0)&")"
+ objConn.Execute sql
+ End If
+ End If
+ End If
+ Next
+ End If
+End If
+ReturnURL="OrderPriceSetUP.gds?page="&page
+rsRollbackTrans(objConn.Errors.count)
+
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+Response.End%>
+
+
+<%case "142"
+'-------------------------------------------------------------淇敼鑷姩鎶ヤ环璁惧畾
+IRid = SafeRequest(request.form("IRid"))
+page = SafeRequest(request.form("page"))
+If page="" Then page=1
+If IRid="" Then Response.Redirect "/OrderPriceSetUP.gds?page="&page&"&SystemMessageType=1&SMT=6"
+ID_SP = SPLIT(IRid,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ ID = ID_SP(i)
+ IRUnitID = Trim(SafeRequest(Request("IRUnitID_"&ID)))
+ IRProvince = Trim(SafeRequest(Request("IRProvince_"&ID)))
+ IRCity = Trim(SafeRequest(Request("IRCity_"&ID)))
+ IRArea = Trim(SafeRequest(Request("IRArea_"&ID)))
+ IRkeyword = Trim(SafeRequest(Request("IRkeyword_"&ID)))
+ IRNursingLevel = Trim(SafeRequest(Request("IRNursingLevel_"&ID)))
+ IRPrice = Trim(SafeRequest(Request("IRPrice_"&ID)))
+ IRDt = Trim(SafeRequest(Request("IRDt_"&ID)))
+ IRVentilatorCost= Trim(SafeRequest(Request("IRVentilatorCost_"&ID)))
+ IRWarmBoxCost = Trim(SafeRequest(Request("IRWarmBoxCost_"&ID)))
+ IRLiftingCost = Trim(SafeRequest(Request("IRLiftingCost_"&ID)))
+ IRWaitingCost = Trim(SafeRequest(Request("IRWaitingCost_"&ID)))
+ IRFerryCost = Trim(SafeRequest(Request("IRFerryCost_"&ID)))
+ If IRUnitID="" Or Not IsNumeric(IRUnitID) Then IRUnitID=0
+ If IRNursingLevel="" Or Not IsNumeric(IRNursingLevel) Then IRNursingLevel=0
+ If IRPrice="" Or Not IsNumeric(IRPrice) Then IRPrice=0
+ If IRVentilatorCost="" Or Not IsNumeric(IRVentilatorCost) Then IRVentilatorCost=0
+ If IRWarmBoxCost="" Or Not IsNumeric(IRWarmBoxCost) Then IRWarmBoxCost=0
+ If IRLiftingCost="" Or Not IsNumeric(IRLiftingCost) Then IRLiftingCost=0
+ If IRWaitingCost="" Or Not IsNumeric(IRWaitingCost) Then IRWaitingCost=0
+ If IRFerryCost="" Or Not IsNumeric(IRFerryCost) Then IRFerryCost=0
+ If IRDt="" Then Response.Redirect "/OrderPriceSetUP.gds?page="&page&"&SystemMessageType=1&SMT=7"
+ sql="update IntroducerRegion set IRUnitID="&IRUnitID&",IRProvince='"&IRProvince&"',IRCity='"&IRCity&"',IRArea='"&IRArea&"',IRkeyword='"&IRkeyword&"',IRNursingLevel="&IRNursingLevel&",IRPrice="&IRPrice&",IRVentilatorCost="&IRVentilatorCost&",IRWarmBoxCost="&IRWarmBoxCost&",IRLiftingCost="&IRLiftingCost&",IRWaitingCost="&IRWaitingCost&",IRFerryCost="&IRFerryCost&" where IRid="&ID
+ 'Response.Write sql
+ objConn.Execute sql
+
+ sql="delete from IntroducerRegionDt where IRDt_id="&ID
+ objConn.Execute sql
+ If IRDt<>"" Then
+ IRDt=Replace(IRDt,chr(13),"")
+ IRDt=Replace(IRDt,chr(10),"|")
+ IRDt=Replace(IRDt," ","")
+ IRDt=Replace(IRDt,"鍏噷","")
+ IRDt=Replace(IRDt,"鍏�","")
+ IRDt=Replace(IRDt,"\","/")
+ IRDtPS = SPLIT(IRDt,"|")
+ for j = 0 to UBOUND(IRDtPS)
+ If IRDtPS(j)<>"" Then
+ IRDts = Trim(IRDtPS(j))
+ IRDtsPS = SPLIT(IRDts,"/")
+ If UBOUND(IRDtsPS)=1 Then
+ If IsNumeric(IRDtsPS(0)) And IsNumeric(IRDtsPS(1)) Then
+ sql="insert into IntroducerRegionDt (IRDt_id,IRDtPrice,IRDtlimit) values ("&ID&","&IRDtsPS(1)&","&IRDtsPS(0)&")"
+ objConn.Execute sql
+ End If
+ End If
+ End If
+ Next
+ End If
+Next
+
+ReturnURL="OrderPriceSetUP.gds?page="&page
+rsRollbackTrans(objConn.Errors.count)
+
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2"
+Response.End%>
+
+<%case "143"
+'-------------------------------------------------------------鍒犻櫎鑷姩鎶ヤ环璁惧畾
+IRid = SafeRequest(request.form("IRid"))
+page = SafeRequest(request.form("page"))
+If page="" Then page=1
+If IRid="" Then Response.Redirect "/OrderPriceSetUP.gds?page="&page&"&SystemMessageType=1&SMT=6"
+
+sql="delete from IntroducerRegion where IRid in ("&IRid&")"
+objConn.Execute sql
+
+
+ReturnURL="OrderPriceSetUP.gds?page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=4"
+Response.End%>
+
+
+<%case "144"
+'-------------------------------------------------------------鍚敤/鍋滅敤 鑷姩鎶ヤ环璁惧畾
+IRid = SafeRequest(request.form("IRid"))
+page = SafeRequest(request.form("page"))
+If page="" Then page=1
+If IRid="" Then Response.Redirect "/OrderPriceSetUP.gds?page="&page&"&SystemMessageType=1&SMT=6"
+
+sql="update IntroducerRegion set IRState=(case IRState when 1 then 0 else 1 end) where IRid in ("&IRid&")"
+objConn.Execute sql
+
+
+ReturnURL="OrderPriceSetUP.gds?page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=8"
+Response.End%>
+
+<%case "144_wx"
+'-------------------------------------------------------------鍚敤/鍋滅敤 鑷姩鎶ヤ环璁惧畾
+IRid = SafeRequest(request.form("IRid"))
+page = SafeRequest(request.form("page"))
+If page="" Then page=1
+If IRid="" Then Response.Redirect "/OrderPriceSetUP.gds?page="&page&"&SystemMessageType=1&SMT=6"
+
+sql="update IntroducerRegion set IRwxState=(case IRwxState when 1 then 0 else 1 end) where IRid in ("&IRid&")"
+objConn.Execute sql
+
+
+ReturnURL="OrderPriceSetUP.gds?page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=8"
+Response.End%>
+
+<%case "141_1"
+'-------------------------------------------------------------鏂板缓鑷姩鎶ヤ环璁惧畾_2022.11.1
+IRUnitID = Trim(SafeRequest(Request("IRUnitID")))
+IRProvince = Trim(SafeRequest(Request("IRProvince")))
+IRCity = Trim(SafeRequest(Request("IRCity")))
+IRArea = Trim(SafeRequest(Request("IRArea")))
+IRkeyword = Trim(SafeRequest(Request("IRkeyword")))
+IRNursingLevel = Trim(SafeRequest(Request("IRNursingLevel")))
+IRPrice = Trim(SafeRequest(Request("IRPrice")))
+IRDt = Trim(SafeRequest(Request("IRDt")))
+IRVentilatorCost= Trim(SafeRequest(Request("IRVentilatorCost")))
+IRWarmBoxCost = Trim(SafeRequest(Request("IRWarmBoxCost")))
+IRLiftingCost = Trim(SafeRequest(Request("IRLiftingCost")))
+IRWaitingCost = Trim(SafeRequest(Request("IRWaitingCost")))
+IRFerryCost = Trim(SafeRequest(Request("IRFerryCost")))
+If IRUnitID="" Or Not IsNumeric(IRUnitID) Then IRUnitID=0
+If IRNursingLevel="" Or Not IsNumeric(IRNursingLevel) Then IRNursingLevel=0
+If IRPrice="" Or Not IsNumeric(IRPrice) Then IRPrice=0
+If IRVentilatorCost="" Or Not IsNumeric(IRVentilatorCost) Then IRVentilatorCost=0
+If IRWarmBoxCost="" Or Not IsNumeric(IRWarmBoxCost) Then IRWarmBoxCost=0
+If IRLiftingCost="" Or Not IsNumeric(IRLiftingCost) Then IRLiftingCost=0
+If IRWaitingCost="" Or Not IsNumeric(IRWaitingCost) Then IRWaitingCost=0
+If IRFerryCost="" Or Not IsNumeric(IRFerryCost) Then IRFerryCost=0
+If IRDt="" Then Response.Redirect "/OrderPriceSetUPv2.gds?page="&page&"&SystemMessageType=1&SMT=7"
+If IRProvince<>"" Then
+ sql="insert into IntroducerRegion (IRUnitID,IRProvince,IRCity,IRArea,IRkeyword,IRNursingLevel,IRPrice,IRVentilatorCost,IRWarmBoxCost,IRLiftingCost,IRWaitingCost,IRFerryCost,IRState) values ("&IRUnitID&",'"&IRProvince&"','"&IRCity&"','"&IRArea&"','"&IRkeyword&"',"&IRNursingLevel&","&IRPrice&","&IRVentilatorCost&","&IRWarmBoxCost&","&IRLiftingCost&","&IRWaitingCost&","&IRFerryCost&",1)"
+ objConn.Execute sql
+ Set rs = Server.CreateObject("ADODB.Recordset")
+ sql="select top 1 IRid from IntroducerRegion order by IRid desc"
+ rs.open sql,objConn,1,1
+ ID=rs(0)
+ rs.close()
+ If IRDt<>"" Then
+ IRDt=Replace(IRDt,chr(13),"")
+ IRDt=Replace(IRDt,chr(10),"|")
+ IRDt=Replace(IRDt," ","")
+ IRDt=Replace(IRDt,"鍏噷","")
+ IRDt=Replace(IRDt,"鍏�","")
+ IRDt=Replace(IRDt,"\","/")
+ IRDtPS = SPLIT(IRDt,"|")
+ for j = 0 to UBOUND(IRDtPS)
+ If IRDtPS(j)<>"" Then
+ IRDts = Trim(IRDtPS(j))
+ IRDtsPS = SPLIT(IRDts,"/")
+ If UBOUND(IRDtsPS)=1 Then
+ If IsNumeric(IRDtsPS(0)) And IsNumeric(IRDtsPS(1)) Then
+ sql="insert into IntroducerRegionDt (IRDt_id,IRDtPrice,IRDtlimit) values ("&ID&","&IRDtsPS(1)&","&IRDtsPS(0)&")"
+ objConn.Execute sql
+ End If
+ End If
+ End If
+ Next
+ End If
+End If
+ReturnURL="OrderPriceSetUPv2.gds?page="&page
+rsRollbackTrans(objConn.Errors.count)
+
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+Response.End%>
+
+<%case "142_1"
+'-------------------------------------------------------------淇敼鑷姩鎶ヤ环璁惧畾_2022.11.1
+IRid = SafeRequest(request.form("IRid"))
+page = SafeRequest(request.form("page"))
+If page="" Then page=1
+If IRid="" Then Response.Redirect "/OrderPriceSetUPv2.gds?page="&page&"&SystemMessageType=1&SMT=6"
+ID_SP = SPLIT(IRid,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ ID = ID_SP(i)
+ IRids = Trim(SafeRequest(Request("IRids_"&ID)))
+ IRState = Trim(SafeRequest(Request("IRState_"&ID)))
+ IRUnitID = Trim(SafeRequest(Request("IRUnitID_"&ID)))
+ IRProvince = Trim(SafeRequest(Request("IRProvince_"&ID)))
+ IRCity = Trim(SafeRequest(Request("IRCity_"&ID)))
+ IRArea = Trim(SafeRequest(Request("IRArea_"&ID)))
+ IRkeyword = Trim(SafeRequest(Request("IRkeyword_"&ID)))
+ IRNursingLevel = Trim(SafeRequest(Request("IRNursingLevel_"&ID)))
+ Unitlimit = Trim(SafeRequest(Request("Unitlimit_"&ID)))
+ UnitPrice = Trim(SafeRequest(Request("UnitPrice_"&ID)))
+ IRPrice = Trim(SafeRequest(Request("IRPrice_"&ID)))
+ IRDt = Trim(SafeRequest(Request("IRDt_"&ID)))
+ IRVentilatorCost= Trim(SafeRequest(Request("IRVentilatorCost_"&ID)))
+ IRWarmBoxCost = Trim(SafeRequest(Request("IRWarmBoxCost_"&ID)))
+ IRLiftingCost = Trim(SafeRequest(Request("IRLiftingCost_"&ID)))
+ IRWaitingCost = Trim(SafeRequest(Request("IRWaitingCost_"&ID)))
+ IRFerryCost = Trim(SafeRequest(Request("IRFerryCost_"&ID)))
+ If IRState="" Or Not IsNumeric(IRState) Then IRState=0
+ If IRUnitID="" Or Not IsNumeric(IRUnitID) Then IRUnitID=0
+ If IRNursingLevel="" Or Not IsNumeric(IRNursingLevel) Then IRNursingLevel=0
+ If Unitlimit="" Or Not IsNumeric(Unitlimit) Then Unitlimit=0
+ If UnitPrice="" Or Not IsNumeric(UnitPrice) Then UnitPrice=0
+ If IRPrice="" Or Not IsNumeric(IRPrice) Then IRPrice=0
+ If IRVentilatorCost="" Or Not IsNumeric(IRVentilatorCost) Then IRVentilatorCost=0
+ If IRWarmBoxCost="" Or Not IsNumeric(IRWarmBoxCost) Then IRWarmBoxCost=0
+ If IRLiftingCost="" Or Not IsNumeric(IRLiftingCost) Then IRLiftingCost=0
+ If IRWaitingCost="" Or Not IsNumeric(IRWaitingCost) Then IRWaitingCost=0
+ If IRFerryCost="" Or Not IsNumeric(IRFerryCost) Then IRFerryCost=0
+ If IRids="" Then IRids=ID
+ new_IRids=""
+ If IRDt="" Then Response.Redirect "/OrderPriceSetUPv2.gds?page="&page&"&SystemMessageType=1&SMT=7"
+ If IRids<>ID Or IRkeyword<>"" Then
+ sql="delete from IntroducerRegion where IRid in ("&IRids&")"
+ objConn.Execute sql
+ If IRkeyword<>"" Then
+ IRkeyword=Replace(IRkeyword,chr(13),"")
+ IRkeyword=Replace(IRkeyword,chr(10),"|")
+ IRkeywordPS = SPLIT(IRkeyword,"|")
+ for j = 0 to UBOUND(IRkeywordPS)
+ If IRkeywordPS(j)<>"" Then
+ sql="insert into IntroducerRegion (IRUnitID,IRProvince,IRCity,IRArea,IRkeyword,IRNursingLevel,Unitlimit,UnitPrice,IRPrice,IRVentilatorCost,IRWarmBoxCost,IRLiftingCost,IRWaitingCost,IRFerryCost,IRState) values ("&IRUnitID&",'"&IRProvince&"','"&IRCity&"','"&IRArea&"','"&IRkeywordPS(j)&"',"&IRNursingLevel&","&Unitlimit&","&UnitPrice&","&IRPrice&","&IRVentilatorCost&","&IRWarmBoxCost&","&IRLiftingCost&","&IRWaitingCost&","&IRFerryCost&","&IRState&")"
+ objConn.Execute sql
+ Set rs = Server.CreateObject("ADODB.Recordset")
+ sql="select top 1 IRid from IntroducerRegion order by IRid desc"
+ rs.open sql,objConn,1,1
+ new_IRids=new_IRids&","&rs(0)
+ rs.close()
+ End If
+ Next
+ Else
+ sql="insert into IntroducerRegion (IRUnitID,IRProvince,IRCity,IRArea,IRkeyword,IRNursingLevel,Unitlimit,UnitPrice,IRPrice,IRVentilatorCost,IRWarmBoxCost,IRLiftingCost,IRWaitingCost,IRFerryCost,IRState) values ("&IRUnitID&",'"&IRProvince&"','"&IRCity&"','"&IRArea&"','"&IRkeyword&"',"&IRNursingLevel&","&Unitlimit&","&UnitPrice&","&IRPrice&","&IRVentilatorCost&","&IRWarmBoxCost&","&IRLiftingCost&","&IRWaitingCost&","&IRFerryCost&","&IRState&")"
+ objConn.Execute sql
+ Set rs = Server.CreateObject("ADODB.Recordset")
+ sql="select top 1 IRid from IntroducerRegion order by IRid desc"
+ rs.open sql,objConn,1,1
+ new_IRids=new_IRids&","&rs(0)
+ rs.close()
+ End If
+ If new_IRids<>"" Then new_IRids=Mid(new_IRids,2)
+ Else
+ new_IRids=ID
+ sql="update IntroducerRegion set IRUnitID="&IRUnitID&",IRProvince='"&IRProvince&"',IRCity='"&IRCity&"',IRArea='"&IRArea&"',IRkeyword='"&IRkeyword&"',IRNursingLevel="&IRNursingLevel&",Unitlimit="&Unitlimit&",UnitPrice="&UnitPrice&",IRPrice="&IRPrice&",IRVentilatorCost="&IRVentilatorCost&",IRWarmBoxCost="&IRWarmBoxCost&",IRLiftingCost="&IRLiftingCost&",IRWaitingCost="&IRWaitingCost&",IRFerryCost="&IRFerryCost&" where IRid="&ID
+ End If
+ 'Response.Write sql
+ objConn.Execute sql
+
+ sql="delete from IntroducerRegionDt where IRDt_id in ("&IRids&")"
+ objConn.Execute sql
+ If IRDt<>"" Then
+ IRDt=Replace(IRDt,chr(13),"")
+ IRDt=Replace(IRDt,chr(10),"|")
+ IRDt=Replace(IRDt," ","")
+ IRDt=Replace(IRDt,"鍏噷","")
+ IRDt=Replace(IRDt,"鍏�","")
+ IRDt=Replace(IRDt,"\","/")
+ IRDtPS = SPLIT(IRDt,"|")
+ IRidsPS = SPLIT(new_IRids,",")
+ for r = 0 to UBOUND(IRidsPS)
+ new_ID=IRidsPS(r)
+ for j = 0 to UBOUND(IRDtPS)
+ If IRDtPS(j)<>"" Then
+ IRDts = Trim(IRDtPS(j))
+ IRDtsPS = SPLIT(IRDts,"/")
+ If UBOUND(IRDtsPS)=1 Then
+ If IsNumeric(IRDtsPS(0)) And IsNumeric(IRDtsPS(1)) Then
+ sql="insert into IntroducerRegionDt (IRDt_id,IRDtPrice,IRDtlimit) values ("&new_ID&","&IRDtsPS(1)&","&IRDtsPS(0)&")"
+ objConn.Execute sql
+ End If
+ End If
+ End If
+ Next
+ Next
+ End If
+Next
+
+ReturnURL="OrderPriceSetUPv2.gds?page="&page
+rsRollbackTrans(objConn.Errors.count)
+
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2"
+Response.End%>
+
+<%case "143_1"
+'-------------------------------------------------------------鍒犻櫎鑷姩鎶ヤ环璁惧畾_2022.11.1
+IRid = SafeRequest(request.form("IRid"))
+page = SafeRequest(request.form("page"))
+If page="" Then page=1
+If IRid="" Then Response.Redirect "/OrderPriceSetUPv2.gds?page="&page&"&SystemMessageType=1&SMT=6"
+
+up_IRids=""
+ID_SP = SPLIT(IRid,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ ID = ID_SP(i)
+ IRids = Trim(SafeRequest(Request("IRids_"&ID)))
+ up_IRids = up_IRids&","&IRids
+Next
+If up_IRids<>"" Then up_IRids=Mid(up_IRids,2)
+sql="delete from IntroducerRegion where IRid in ("&up_IRids&")"
+objConn.Execute sql
+
+ReturnURL="OrderPriceSetUPv2.gds?page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=8"
+Response.End%>
+
+<%case "144_1"
+'-------------------------------------------------------------鍚敤/鍋滅敤 鑷姩鎶ヤ环璁惧畾_2022.11.1
+IRid = SafeRequest(request.form("IRid"))
+page = SafeRequest(request.form("page"))
+If page="" Then page=1
+If IRid="" Then Response.Redirect "/OrderPriceSetUPv2.gds?page="&page&"&SystemMessageType=1&SMT=6"
+
+up_IRids=""
+ID_SP = SPLIT(IRid,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ ID = ID_SP(i)
+ IRids = Trim(SafeRequest(Request("IRids_"&ID)))
+ up_IRids = up_IRids&","&IRids
+Next
+If up_IRids<>"" Then up_IRids=Mid(up_IRids,2)
+sql="update IntroducerRegion set IRState=(case IRState when 1 then 0 else 1 end) where IRid in ("&up_IRids&")"
+objConn.Execute sql
+
+ReturnURL="OrderPriceSetUPv2.gds?page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=8"
+Response.End%>
+
+<%case "144_1_wx"
+'-------------------------------------------------------------鍚敤/鍋滅敤 鑷姩鎶ヤ环璁惧畾_2022.11.1
+IRid = SafeRequest(request.form("IRid"))
+page = SafeRequest(request.form("page"))
+If page="" Then page=1
+If IRid="" Then Response.Redirect "/OrderPriceSetUPv2.gds?page="&page&"&SystemMessageType=1&SMT=6"
+
+up_IRids=""
+ID_SP = SPLIT(IRid,", ")
+Set rs = Server.CreateObject("ADODB.Recordset")
+for i=0 to ubound(ID_SP)
+ ID = ID_SP(i)
+ IRids = Trim(SafeRequest(Request("IRids_"&ID)))
+ up_IRids = up_IRids&","&IRids
+Next
+If up_IRids<>"" Then up_IRids=Mid(up_IRids,2)
+sql="update IntroducerRegion set IRwxState=(case IRwxState when 1 then 0 else 1 end) where IRid in ("&up_IRids&")"
+objConn.Execute sql
+
+ReturnURL="OrderPriceSetUPv2.gds?page="&page
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=8"
+Response.End%>
+
+<%case "145"
+'-------------------------------------------------------------淇濆瓨鍑鸿溅鏌ユ鍗�
+DispatchOrdID = SafeRequest(request.form("DispatchOrdID"))
+CarInspectionID = SafeRequest(request.form("CarInspectionID"))
+CarI_Int = SafeRequest(request.form("CarInspection_Int"))
+CarInspection = SafeRequest(request.form("CarInspection"))
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select * from DispatchOrd where DispatchOrdState>0 and DispatchOrdID="&DispatchOrdID
+rs.open sql,objConn,1,1
+If not rs.Eof Then
+ CarID = rs("DispatchOrdCarID")
+ DispatchOrdNo = rs("DispatchOrdClass")& year(rs("DispatchOrd_NS_Time"))&Right("0"&month(rs("DispatchOrd_NS_Time")),2)&Right("0"&day(rs("DispatchOrd_NS_Time")),2) & "-"&Right("00"&rs("DispatchOrdNo"),3) '璋冨害鍗曠紪鍙�
+Else
+ Response.Redirect "/"
+End If
+rs.close()
+CarInspection=""
+for j = 1 to CarI_Int
+ CarInspection = CarInspection & SafeRequest(request.form("CarInspection_"&j))&" "&SafeRequest(Trim(request.form("CarInspection_"&j&"_text")))&"|"
+Next
+
+If CarInspection<>"" Then
+ '鏂板缓鍑鸿溅鏌ヨ鍗�
+ CarInspection = Replace(CarInspection,":, ",":")
+ CarInspection = Replace(CarInspection," |","|")
+ If CarInspectionID=0 Then
+ sql="insert into CarInspection (InspectionCarID,DispatchOrdIDPK,CarInspection,OAID,InspectionState) values ("&CarID&","&DispatchOrdID&",'"&CarInspection&"',"&session("adminID")&",1)"
+ objConn.Execute sql
+ Else
+ sql="update CarInspection set CarInspection='"&CarInspection&"',OAID="&session("adminID")&",OATime=getdate() where CarInspection<>'"&CarInspection&"' and id="&CarInspectionID
+ objConn.Execute sql
+ End If
+End If
+ReturnURL="m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "146"
+'-------------------------------------------------------------淇濆瓨鍥炶璁板綍
+ServiceOrdID = SafeRequest(Request.form("ServiceOrdID")) '鍗曟嵁ID
+DispatchOrdID = SafeRequest(request.form("DispatchOrdID"))
+ReturnChannel = SafeRequest(Request.form("ReturnChannel")) '鍥炶鑾风煡966120鐨勬笭閬�
+ReturnChannelOther = SafeRequest(Request.form("ReturnChannelOther")) '鍥炶鑾风煡966120鐨勬笭閬�(鍏跺畠)
+VisitDict = SafeRequest(Request.form("VisitDict")) '鍥炶璁板綍(璇勪环绫诲瀷)
+ServiceOrdVisit = SafeRequest(Request.form("ServiceOrdVisit")) '鍥炶璁板綍
+ServiceOrdVisit_old = SafeRequest(Request.form("ServiceOrdVisit_old")) '鍘熷洖璁胯褰�
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+If ServiceOrdVisit<>"" And ServiceOrdVisit_old<>ServiceOrdVisit Then
+ RV_Point=0
+ sql="select id from DispatchOrd_Entourage,DispatchOrd where EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and ServiceOrdIDDt="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ do while not rs.Eof
+ DE_id=rs("id")
+ RV_PointE=SafeRequest(Request.form("RV_PointE_"&DE_id))
+ If RV_PointE<>"" Then
+ RV_Point=RV_Point+1
+ sql="update DispatchOrd_Entourage set RV_PointE='"&RV_PointE&"' where id="&DE_id
+ objConn.Execute sql
+ End If
+ rs.movenext
+ loop
+ rs.close()
+ SqlVisit="ServiceOrdVisit='"&ServiceOrdVisit&"',ServiceOrdVisit_time=getdate(),ServiceOrdVisit_ID="&session("adminID")
+ If VisitDict<>"" Then SqlVisit=SqlVisit&",ServiceOrdVisit_Dict='"&VisitDict&"'"
+ If RV_Point>0 Then SqlVisit=SqlVisit&",RV_Point="&RV_Point
+ElseIf ServiceOrdVisit="" Then
+ SqlVisit="ServiceOrdVisit_Dict=null,ServiceOrdVisit=null,ServiceOrdVisit_time=null,ServiceOrdVisit_ID=null,RV_Point=0"
+End If
+If ReturnChannel="鍏朵粬锛堟墜鍔ㄥ～鍐欙級" Then
+ If ReturnChannelOther="" Then ReturnChannelOther="鍏跺畠"
+ SqlVisit=SqlVisit&",ServiceOrdReturnChannel='"&ReturnChannelOther&"'"
+ElseIf ReturnChannel<>"" Then
+ SqlVisit=SqlVisit&",ServiceOrdReturnChannel='"&ReturnChannel&"'"
+Else
+ SqlVisit=SqlVisit&",ServiceOrdReturnChannel=null"
+End If
+'淇敼鏈嶅姟鍗�
+If SqlVisit<>"" Then
+ sql="update ServiceOrder set "&SqlVisit&" where ServiceOrdID="&ServiceOrdID
+ 'Response.Write sql
+ objConn.Execute sql
+End If
+
+If DispatchOrdID<>"" Then
+ ReturnURL="DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&OrdClassList=-1&h_menu1_1=1"
+Else
+ ReturnURL="ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&OrdClassList=-1&h_menu1_1=1"
+End If
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+Response.End%>
+
+
+<%case "147"
+'-------------------------------------------------------------淇濆瓨缁╂晥鐤戜箟(鏈畬鎴�)
+DispatchOrdID = SafeRequest(request.form("DispatchOrdID"))
+person = SafeRequest(Request.form("person"))
+OrdState = SafeRequest(Request.form("OrdState"))
+OrdDateType = SafeRequest(Request.form("OrdDateType"))
+
+ReturnURL="m_UserOrder_List.gds?OrdState="&OrdState&"&OrdDateType="&OrdDateType
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL
+Response.End%>
+
+<%case "148"
+'-------------------------------------------------------------璐㈠姟璁㈠崟鎵归噺閿佸畾
+UnitNameID = SafeRequest(request.form("UnitNameID"))
+CoopUnitID = SafeRequest(request.form("CoopUnitID"))
+OrdDateType = SafeRequest(request.form("OrdDateType"))
+OrdDateTypeName = SafeRequest(request.form("OrdDateTypeName"))
+OrdLocking = SafeRequest(request.form("OrdLocking"))
+
+Set rs = Server.CreateObject("ADODB.Recordset")
+sql="select vID,vtext,vOrder2 from dictionary where vtitle='OrdDateType2' and vID="&OrdDateType
+rs.open Sql,objConn,1,1
+If not rs.Eof Then
+ SqlOrdDateType = rs("vOrder2")
+Else
+ Response.Redirect "Report_DispatchUnitSum.gds?UnitNameID="&UnitNameID&"&CoopUnitID="&CoopUnitID&"&OrdDateType="&OrdDateType&"&SystemMessageType=1&SMT=3"
+ Response.End
+End If
+rs.close()
+sql="delete from dictionary where vType>=0 and vtitle='OrdLockingList' and vMono='"&OrdDateTypeName&"'"
+objConn.Execute sql
+OrdLockingListPS=SPLIT(OrdLocking,", ")
+for i = 0 to UBOUND(OrdLockingListPS)
+ OrdLockingUnitShort=OrdLockingListPS(i)
+ sql="insert into dictionary (vtext,vMono,vtitle,vType) values ('"&OrdLockingUnitShort&"','"&OrdDateTypeName&"','OrdLockingList',1)"
+ objConn.Execute sql
+ 'Response.Write OrdLockingUnitShort&"<br>"
+Next
+'瑙ｉ櫎閿佸畾
+sql="update ServiceOrder set IsLocking=0,IsLocking_Time=null,IsSterilize_OAID=null where ServiceOrdID in (select ServiceOrdID from ServiceOrder,DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState not in (10) and ServiceOrdClass not in (select ServiceBranch from IntroducerUnitData where UnitShort in (select (case when vtext='骞垮窞' then '寰俊灏忕▼搴�' else vtext END) from dictionary where vtitle='OrdLockingList' and vMono='"&OrdDateTypeName&"')) and ServiceOrder.IsLocking=1 and DispatchOrd_NS_Time "&SqlOrdDateType&")"
+'Response.Write sql
+objConn.Execute sql
+sql="update DispatchOrd set IsLocking=0,IsLocking_Time=null,IsSterilize_OAID=null where DispatchOrdID in (select DispatchOrdID from ServiceOrder,DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState not in (10) and ServiceOrdClass not in (select ServiceBranch from IntroducerUnitData where UnitShort in (select (case when vtext='骞垮窞' then '寰俊灏忕▼搴�' else vtext END) from dictionary where vtitle='OrdLockingList' and vMono='"&OrdDateTypeName&"')) and DispatchOrd.IsLocking=1 and DispatchOrd_NS_Time "&SqlOrdDateType&")"
+objConn.Execute sql
+
+'璁㈠崟閿佸畾
+sql="update ServiceOrder set IsLocking=1,IsLocking_Time=GETDATE(),IsSterilize_OAID="&session("adminID")&" where ServiceOrdID in (select ServiceOrdID from ServiceOrder,DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState not in (10) and ServiceOrdClass in (select ServiceBranch from IntroducerUnitData where UnitShort in (select (case when vtext='骞垮窞' then '寰俊灏忕▼搴�' else vtext END) from dictionary where vtitle='OrdLockingList' and vMono='"&OrdDateTypeName&"')) and ServiceOrder.IsLocking=0 and DispatchOrd_NS_Time "&SqlOrdDateType&")"
+objConn.Execute sql
+sql="update DispatchOrd set IsLocking=1,IsLocking_Time=GETDATE(),IsSterilize_OAID="&session("adminID")&" where DispatchOrdID in (select DispatchOrdID from ServiceOrder,DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState not in (10) and ServiceOrdClass in (select ServiceBranch from IntroducerUnitData where UnitShort in (select (case when vtext='骞垮窞' then '寰俊灏忕▼搴�' else vtext END) from dictionary where vtitle='OrdLockingList' and vMono='"&OrdDateTypeName&"')) and DispatchOrd.IsLocking=0 and DispatchOrd_NS_Time "&SqlOrdDateType&")"
+objConn.Execute sql
+
+ReturnURL="Report_DispatchUnitSum.gds?UnitNameID="&UnitNameID&"&CoopUnitID="&CoopUnitID&"&OrdDateType="&OrdDateType
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=2"
+Response.End%>
+
+
+<%case "149"
+'-------------------------------------------------------------淇濆瓨浼佸井瀹㈡湇
+ServiceOrdID = SafeRequest(Request.form("ServiceOrdID")) '鍗曟嵁ID
+DispatchOrdID = SafeRequest(request.form("DispatchOrdID"))
+ServiceOrd_work_ID = SafeRequest(Request.form("ServiceOrd_work_ID")) '涓昏浼佸井瀹㈡湇
+ServiceOrd_work_IDs = SafeRequest(Request.form("ServiceOrd_work_IDs")) '鍏朵粬浼佸井瀹㈡湇
+ServiceOrd_work_is = SafeRequest(request.form("ServiceOrd_work_is")) '鏄惁浼佸井鎴愪氦
+CommissionScenarioID = SafeRequest(request.form("CommissionScenarioID")) '浼佸井缁╂晥鏂规
+
+If ServiceOrd_work_ID="" Then ServiceOrd_work_ID="null"
+If ServiceOrd_work_is="" Then ServiceOrd_work_is=0
+If CommissionScenarioID="" Then CommissionScenarioID=0
+'淇敼鏈嶅姟鍗�
+sql="update ServiceOrder set ServiceOrd_work_ID="&ServiceOrd_work_ID&",ServiceOrd_work_IDs='"&ServiceOrd_work_IDs&"',ServiceOrd_work_is="&ServiceOrd_work_is&",CommissionScenarioID="&CommissionScenarioID&" where ServiceOrdID="&ServiceOrdID
+'Response.Write sql
+objConn.Execute sql
+
+If DispatchOrdID<>"" Then
+ ReturnURL="DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&OrdClassList=-1&h_menu1_1=1"
+Else
+ ReturnURL="ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&OrdClassList=-1&h_menu1_1=1"
+End If
+rsRollbackTrans(objConn.Errors.count)
+Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3"
+Response.End%>
+
+
+
+<%
+end select %>
\ No newline at end of file
diff --git a/inc/chkadmin_for_wx.gds b/inc/chkadmin_for_wx.gds
new file mode 100644
index 0000000..a4f61d5
--- /dev/null
+++ b/inc/chkadmin_for_wx.gds
@@ -0,0 +1,137 @@
+<!--#include FILE="odbc.asp"-->
+<%
+
+if session("adminID")="" Then
+ adminID=SafeRequest(Request("adminID"))
+ Response.Cookies("CAMEName")=admin
+ Response.Cookies("CAMEName").Expires=Date+30
+ Set adminrs = Server.CreateObject("ADODB.Recordset")
+ sql="select * from OA_User where OA_User_ID="&adminID
+ adminrs.open sql,objConn,1,1
+
+ if not adminrs.eof then
+ OA_Power=adminrs("OA_Power")
+ If isnull(OA_Power) Then OA_Power=""
+ admin_Power=OA_Power
+ If isDepartment("010103")=0 And session("adminID")="" Then
+ Set IPrs = Server.CreateObject("ADODB.Recordset")
+ sql="select vID from dictionary where vtitle='IPWhite' and vType=1 and vtext='"&Request.ServerVariables("REMOTE_ADDR")&"'"
+ IPrs.open sql,objConn,1,1
+ if IPrs.eof Then
+ '榛樿鍚屾剰澶栭儴IP鐧婚檰
+ session("adminID")=adminrs("OA_User_ID")
+ Call OA_Running("鐢ㄦ埛澶栭儴IP鐧婚檰")
+
+ 'Call OA_Running("鐢ㄦ埛澶栭儴IP鐧婚檰琚姝�")
+ 'response.redirect "/login.gds?LoginError=绂佹澶栭儴鐧婚檰锛屽鏈夐渶瑕佽鑱旂郴IT閮�"
+ 'Response.End
+ End If
+ IPrs.close()
+ End If
+ If isDepartment("020114")=1 Then '鏌ョ湅鍏ㄩ儴璁㈠崟鏉冮檺
+ Set IPrs = Server.CreateObject("ADODB.Recordset")
+ sql="select stuff((select ','+vOrder2 from dictionary where vtitle='OrderClass' and vType>0 for xml path('')),1,1,'')"
+ IPrs.open sql,objConn,1,1
+ If not IPrs.eof Then
+ OA_OrderClass=IPrs(0)
+ End If
+ IPrs.close()
+ Else
+ OA_OrderClass=adminrs("OA_OrderClass")
+ End If
+
+ session("admin")=adminrs("OA_User")
+ session("adminID")=adminrs("OA_User_ID")
+ session("adminName")=adminrs("OA_Name")
+ session("adminDepartmentID")=adminrs("OA_DepartmentID")
+ session("admin_Power")=OA_Power
+ session("admin_execLevel")=adminrs("OA_execLevel")
+ session("admin_OrderClass")=OA_OrderClass
+ session.Timeout=60
+
+ Response.Cookies("CAME")("admin")=adminrs("OA_User")
+ Response.Cookies("CAME")("adminID")=adminrs("OA_User_ID")
+ Response.Cookies("CAME")("adminName")=adminrs("OA_Name")
+ Response.Cookies("CAME")("adminDepartmentID")=adminrs("OA_DepartmentID")
+ Response.Cookies("CAME")("admin_Power")="|,"&OA_Power
+ Response.Cookies("CAME")("admin_execLevel")=adminrs("OA_execLevel")
+ Response.Cookies("CAME")("admin_OrderClass")=OA_OrderClass
+ Response.Cookies("CAME").Expires=DateAdd("h",8,now())
+
+
+ end if
+ adminrs.close()
+end If
+
+
+
+
+
+'鏉冮檺杞藉叆
+admin_Power=session("admin_Power")
+admin_OrderClass=session("admin_OrderClass")
+admin_OrderClass=Replace(admin_OrderClass," ","")
+OrdClassListSql=Replace(admin_OrderClass,",","','")
+OrdClassInt = ubound(SPLIT(OrdClassListSql,"','"))
+
+Function URLEncoding(vstrIn)
+ strReturn = ""
+ For i = 1 To Len(vstrIn)
+ ThisChr = Mid(vStrIn,i,1)
+ If Abs(Asc(ThisChr)) < &HFF Then
+ strReturn = strReturn & ThisChr
+ Else
+ innerCode = Asc(ThisChr)
+ If innerCode < 0 Then
+ innerCode = innerCode + &H10000
+ End If
+ Hight8 = (innerCode And &HFF00)\ &HFF
+ Low8 = innerCode And &HFF
+ strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
+ End If
+ Next
+ URLEncoding = strReturn
+End Function
+
+'POST鏂瑰紡鎻愪氦缃戦〉
+function SendPost(URL,POST)
+
+Dim xmlHttp
+Dim retStr
+
+Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
+on error resume next
+if err then
+ Response.Write("<p>Error: " & err.description & "<p>")
+ Response.End
+end if
+
+ ' Call the remote machine the request
+ objXML.open "POST", URL, false
+ objXML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
+ objXML.send(POST)
+
+ 'Response.Write "objXML.readyState=" & objXML.readyState & "<br>"
+ i = 0
+ While objXML.readyState <> 4 And i < 5
+ 'Response.Write objXML.readyState & "<br>"
+ i = i + 1
+ objXML.waitForResponse 100
+ Wend
+
+ 'Response.Write "Err.Number=" & Err.Number & "<br>"
+ ' return the response
+ If Err.Number = 0 Then 'if no error occurred
+ retStr = objXML.ResponseText 'wait for receive response from server
+ Else
+ retStr = "false" 'error message
+ End If
+
+ SendPost = retStr 'return the response to the caller
+
+ ' clean up
+ set objXML = nothing
+end Function
+
+%>
+
diff --git a/inc/thirdpay.asp b/inc/thirdpay.asp
index a469e80..8a1e7de 100644
--- a/inc/thirdpay.asp
+++ b/inc/thirdpay.asp
@@ -1,20 +1,26 @@
<%
'绗笁鏂规敮浠�
-Function ThirdPay(PayMoney,ServiceOrdID,DispatchOrdID)
+Function ThirdPay(PayType,PayMoney,ServiceOrdID,DispatchOrdID,replaceURL)
'PayType:鏀粯绫诲瀷
'PayMoney:鏀粯閲戦
'ServiceOrdID:鏈嶅姟鍗旾D
'DispatchOrdID:璋冨害鍗旾D
-Set rs = Server.CreateObject("ADODB.Recordset")
-sql="select * from ServiceOrder where ServiceOrdID="&ServiceOrdID
-rs.open sql,objConn,1,1
-If not rs.Eof then
- PayQRcodeURL = rs("PayQRcodeURL")
- if PayQRcodeURL<>"" Then
- PayQRcodeURL = PayQRcodeURL&"?PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
- Response.Redirect PayQRcodeURL
+ Set rs = Server.CreateObject("ADODB.Recordset")
+ sql="select * from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If not rs.Eof then
+ PayQRcodeURL = rs("PayQRcodeURL")
+ if PayQRcodeURL<>"" Then
+ PayQRcodeURL = PayQRcodeURL&"?PayType="&PayType&"&PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID&"&returnUrl="&replaceURL
+ Response.Redirect PayQRcodeURL
+ End If
End If
-End If
-rs.close()
+ 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
%>
\ No newline at end of file
diff --git a/m_DispatchOrder.gds b/m_DispatchOrder.gds
index ae9927b..2cf58dd 100644
--- a/m_DispatchOrder.gds
+++ b/m_DispatchOrder.gds
@@ -145,6 +145,14 @@
End If
rs.close()
+'鑾峰彇棰勮娲惧崟鏃堕棿
+sql="select DispatchOrd.*, ServiceOrder.ServiceOrdEstimatedOrderDate from DispatchOrd inner join ServiceOrder on DispatchOrd.ServiceOrdIDDt = ServiceOrder.ServiceOrdID where DispatchOrdID="&DispatchOrdID
+rs.open sql,objConn,1,1
+If not rs.Eof Then
+ ServiceOrdEstimatedOrderDate = rs("ServiceOrdEstimatedOrderDate")
+End If
+rs.close()
+
'棰嗛槦鎯呭喌
isCarUpdate="0"
sql="select DispatchOrd_Entourage.id,EntourageOAid,EntourageLead,OA_weixinUserID,EntourageState,EntourageState_Time,OA_Name,OA_weixinAvatar,vtext from DispatchOrd_Entourage,OA_User,dictionary where vtitle='DispatchOrdEntourage' and EntourageID=vID and OA_User_ID=EntourageOAid and EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID
@@ -544,7 +552,19 @@
<div class="os_shopname" style="color: #F13F11;" onclick="lbs_distance('<%=PtOutHospName%>','<%=address%>')"><%If PtOutHospName="" Then%>閫旂粡<%else%>杞嚭鍦板潃<%End If%>锛�<%=DispatchOrdTraViaTXT%>
<div class="os_weight" style="right: 15px;transform: translateY(35%);"><img src="/resources/images/lbs-red.png" width="20" height="20" border="0"></div>
</div>
- <%If (ServiceOrdPtServices<>"" Or (ServiceOrdPtServicesID<>0 And ServiceOrdPtServicesID<>22)) And CInt(session("adminID"))=CInt(EntourageLeadID) Then %><div class="os_shopname" style="color: #F13F11;">杞嚭搴婁綅锛�<%=HospitalDepartment(ServiceOrdPtServicesID)%> <%=ServiceOrdPtServices%></div><%End if%>
+
+ <%If (ServiceOrdPtServices<>"" Or (ServiceOrdPtServicesID<>0 And ServiceOrdPtServicesID<>22)) And CInt(session("adminID"))=CInt(EntourageLeadID) Then %>
+
+ <%If DispatchOrdClass = "SA" And (Now() < ServiceOrdEstimatedOrderDate) Then %>
+ <div class="os_shopname" style="color: #F13F11;">
+ 杞嚭搴婁綅锛氥�愰殣銆�
+ </div>
+<%Else%>
+ <div class="os_shopname" style="color: #F13F11;">
+ 杞嚭搴婁綅锛�<%=HospitalDepartment(ServiceOrdPtServicesID)%> <%=ServiceOrdPtServices%>
+ </div>
+<%End if%>
+<%End If%>
<div class="os_shopname"></div>
<%End if%>
@@ -582,8 +602,16 @@
<div class="os_shopname" style="color: #009900;" onclick="lbs_distance('<%=DispatchOrdTraEnd%>','<%=address%>')"><%If PtInHospName="" Then%>鐩殑鍦�<%else%>杞叆鍦板潃<%End If%>锛�<%=DispatchOrdTraEnd%>
<div class="os_weight" style="right: 15px;transform: translateY(35%);"><img src="/resources/images/lbs-green.png" width="20" height="20" border="0"></div>
</div>
- <%If (ServiceOrdPtInServices<>"" Or (ServiceOrdPtInServicesID<>0 And ServiceOrdPtInServicesID<>22)) And CInt(session("adminID"))=CInt(EntourageLeadID) Then %><div class="os_shopname" style="color: #009900;">杞叆搴婁綅锛�<%=HospitalDepartment(ServiceOrdPtInServicesID)%> <%=ServiceOrdPtInServices%></div><%End if%>
+
+ <%If (ServiceOrdPtInServices<>"" Or (ServiceOrdPtInServicesID<>0 And ServiceOrdPtInServicesID<>22)) And CInt(session("adminID"))=CInt(EntourageLeadID) Then %>
+ <%If DispatchOrdClass = "SA" And (Now() < ServiceOrdEstimatedOrderDate) Then %>
+ <div class="os_shopname" style="color: #F13F11;">
+ 杞叆搴婁綅锛氥�愰殣銆�
+ </div>
+<%Else%>
+ <div class="os_shopname" style="color: #009900;">杞叆搴婁綅锛�<%=HospitalDepartment(ServiceOrdPtInServicesID)%> <%=ServiceOrdPtInServices%></div><%End if%>
<div class="os_shopname"></div>
+ <%End if%>
<%Else%>
<div class="os_shopname" style="color: #009900;">鐩殑鍦帮細<a onclick="lbs_distance('<%=DispatchOrdTraEnd%>','<%=DispatchOrdTraEnd%>')" style="color: #009900;"><%=DispatchOrdTraEnd%></a></div>
<div class="os_shopname"></div>
@@ -716,16 +744,26 @@
<%'鑱旂郴浜烘柟寮�
If CInt(session("adminID"))=CInt(EntourageLeadID) Or (DispatchOrdID="" And NEWOrder<>"") then%>
- <%If DispatchOrdID<>"" Then%><div class="os_shopname"></div><%End If%>
- <div class="os_shopname">鑱旂郴浜猴細<%=DispatchOrdCoName%><%If ServiceOrdCoTies<>"" Then%> 涓庢偅鑰呭叧绯伙細<%=ServiceOrdCoTies%><%End if%></div>
- <div class="os_shopname">鑱旂郴鐢佃瘽锛�<a href="tel://<%=DispatchOrdCoPhone%>"><%=DispatchOrdCoPhone%></a></div>
- <%End if%>
+ <%If DispatchOrdClass = "SA" And (Now() < ServiceOrdEstimatedOrderDate) Then %>
+ <div class="os_shopname">鑱旂郴浜猴細銆愰殣銆� 涓庢偅鑰呭叧绯伙細銆愰殣銆�</div>
+ <div class="os_shopname">鑱旂郴鐢佃瘽锛氥�愰殣銆�</div>
+ <% Else %>
+ <%If DispatchOrdID<>"" Then%><div class="os_shopname"></div><%End If%>
+ <div class="os_shopname">鑱旂郴浜猴細<%=DispatchOrdCoName%><%If ServiceOrdCoTies<>"" Then%> 涓庢偅鑰呭叧绯伙細<%=ServiceOrdCoTies%><%End If%></div>
+ <div class="os_shopname">鑱旂郴鐢佃瘽锛�<a href="tel://<%=DispatchOrdCoPhone%>"><%=DispatchOrdCoPhone%></a></div>
+ <% End If %>
+<% End If %>
<%'鐩稿叧鍙楃悊鍗曡鎯�
If ServiceOrdID<>"" then%>
+ <%If DispatchOrdClass = "SA" And (Now() < ServiceOrdEstimatedOrderDate) Then %>
+ <div class="os_shopname">鎮ｈ�呬俊鎭細銆愰殣銆�</div>
+ <div class="os_shopname">骞撮緞锛氥�愰殣銆� 鎬у埆锛氥�愰殣銆� 浣撻噸(KG)锛氥�愰殣銆� 鍥界睄锛氥�愰殣銆�</div>
+ <% Else %>
<%If ServiceOrdPtName<>"" Then%><div class="os_shopname">鎮ｈ�呭鍚嶏細<%=ServiceOrdPtName%></div><%End if%>
<%If ServiceOrdPtAge<>"" Or ServiceOrdPtSex<>"" Or ServiceOrdPtNat<>"" Or ServiceOrdPtKG<>"" Then%><div class="os_shopname"><%If ServiceOrdPtAge<>"" then%>骞撮緞锛�<%=ServiceOrdPtAge%> <%End if%><%If ServiceOrdPtSex<>"" then%>鎬у埆锛�<%=ServiceOrdPtSex%> <%End if%><%If ServiceOrdPtKG<>"" then%>浣撻噸(KG)锛�<%=ServiceOrdPtKG%> <%End if%><%If ServiceOrdPtNat<>"" then%>鍥界睄锛�<%=ServiceOrdPtNat%><%End if%></div><%End if%>
<%If DispatchOrdID<>"" Then%><div class="os_shopname"></div><%End If%>
+ <%End If%>
<%
sql="select icd_id,icd_name from ServiceOrder_ICD,ICD10 where icd_id=id and ServiceOrdIDDt="&ServiceOrdID&" order by idDt"
rs.open sql,objConn,1,1
diff --git a/m_DispatchOrder_PaidMoney.gds b/m_DispatchOrder_PaidMoney.gds
index 3bc69bf..7380505 100644
--- a/m_DispatchOrder_PaidMoney.gds
+++ b/m_DispatchOrder_PaidMoney.gds
@@ -221,7 +221,7 @@
}
</script>
<input type="text" id="PaidMoney" name="PaidMoney" style="width:40px;border: none;font-size: 14px;text-align:center;" value="<%=(ServiceOrdTraTxnPrice+StretcherMoney)-ServiceOrdTraPaidPrice%>" placeholder="<%=(ServiceOrdTraTxnPrice+StretcherMoney)-ServiceOrdTraPaidPrice%>">鍏�
- <%If PayQRcodeURL<>"" Then%>
+ <%If 1=2 Then%>
<br><%=UnitUser(ServiceOrdUnitID,"UnitShort")%>鏀粯浜岀淮鐮�<br>
<img src="<%=PayQRcodeURL%>" width="355" border="0">
<%End If%>
diff --git a/web.config b/web.config
index 2930d14..bf26950 100644
--- a/web.config
+++ b/web.config
@@ -1,6 +1,20 @@
<?xml version="1.0" encoding="UTF-8"?>
<configuration>
+ <system.web>
+ <compilation debug="true" targetFramework="4.7.2" />
+ <httpRuntime targetFramework="4.7.2" />
+ <authentication mode="Windows" />
+ <identity impersonate="true" />
+ </system.web>
<system.webServer>
+ <fastCgi>
+ <application fullPath="D:\project\鎬ユ晳杞繍\code\php\php-cgi.exe" monitorChangesTo="php.ini" activityTimeout="600" requestTimeout="600" instanceMaxRequests="10000">
+ <environmentVariables>
+ <environmentVariable name="PHP_FCGI_MAX_REQUESTS" value="10000" />
+ <environmentVariable name="PHPRC" value="D:\project\鎬ユ晳杞繍\code\php" />
+ </environmentVariables>
+ </application>
+ </fastCgi>
<defaultDocument>
<files>
<remove value="default.aspx" />
@@ -15,12 +29,14 @@
<handlers>
<remove name="php" />
<remove name="FastCGI" />
- <add name="gds" path="*.gds" verb="*" modules="IsapiModule" scriptProcessor="C:\Windows\System32\inetsrv\asp.dll" resourceType="File" preCondition="bitness64" />
- <add name="FastCGI" path="*.php" verb="*" modules="FastCgiModule" scriptProcessor="D:\project\鎬ユ晳杞繍\code\php\php-cgi.exe" resourceType="File" requireAccess="Script" />
-
+ <add name="php" path="*.php" verb="*" modules="FastCgiModule" scriptProcessor="D:\project\鎬ユ晳杞繍\code\php\php-cgi.exe" resourceType="File" requireAccess="Script" />
+ <add name="gds" path="*.gds" verb="GET,HEAD,POST" modules="IsapiModule" scriptProcessor="%windir%\system32\inetsrv\asp.dll" resourceType="File" requireAccess="Script" preCondition="bitness64" />
</handlers>
<httpErrors errorMode="DetailedLocalOnly" />
-
-
+ <security>
+ <requestFiltering>
+ <requestLimits maxAllowedContentLength="30000000" />
+ </requestFiltering>
+ </security>
</system.webServer>
</configuration>
diff --git a/weixin/JsonPost_1000006.gds b/weixin/JsonPost_1000006.gds
index 7aa4637..26b472c 100644
--- a/weixin/JsonPost_1000006.gds
+++ b/weixin/JsonPost_1000006.gds
@@ -17,24 +17,26 @@
'Post鏂规硶
Function PostBody(appUrl,args1)
-Set PBrs = Server.CreateObject("ADODB.Recordset")
-sql="select id from API_Json where DATEDIFF (ss,Json_time,GETDATE())<=30 and Json='"&args1&"'"
-PBrs.open sql,objConn,1,1
-If PBrs.Eof Then
- Set https = Server.CreateObject("Msxml2.ServerXMLHTTP")
-
- 'Set https = Server.CreateObject("MSXML2.XMLHTTP")
- With https
- .Open "Post", appUrl, False
- .setRequestHeader "Content-Type","application/x-www-form-urlencoded"
- .Send args1
- PostBody = .ResponseBody
- End With
- PostBody = BytesToBstr(PostBody,"utf-8")
- JsonID = API_JsonSql(appUrl,args1,reserve)
- Set https = Nothing
-End If
-PBrs.close()
+ if 1=2 then
+ Set PBrs = Server.CreateObject("ADODB.Recordset")
+ sql="select id from API_Json where DATEDIFF (ss,Json_time,GETDATE())<=30 and Json='"&args1&"'"
+ PBrs.open sql,objConn,1,1
+ If PBrs.Eof Then
+ Set https = Server.CreateObject("Msxml2.ServerXMLHTTP")
+
+ 'Set https = Server.CreateObject("MSXML2.XMLHTTP")
+ With https
+ .Open "Post", appUrl, False
+ .setRequestHeader "Content-Type","application/x-www-form-urlencoded"
+ .Send args1
+ PostBody = .ResponseBody
+ End With
+ PostBody = BytesToBstr(PostBody,"utf-8")
+ JsonID = API_JsonSql(appUrl,args1,reserve)
+ Set https = Nothing
+ End If
+ PBrs.close()
+ end if
End Function
'Get鏂规硶
diff --git a/weixin/web.config b/weixin/web.config
deleted file mode 100644
index 78d0605..0000000
--- a/weixin/web.config
+++ /dev/null
@@ -1,27 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<configuration>
- <system.webServer>
- <defaultDocument>
- <files>
- <remove value="default.aspx" />
- <remove value="Default.htm" />
- <remove value="Default.asp" />
- <remove value="index.htm" />
- <remove value="index.html" />
- <remove value="iisstart.htm" />
- <add value="index.asp" />
- </files>
- </defaultDocument>
- <handlers>
- <remove name="php" />
- <remove name="FastCGI" />
- <add name="gds" path="*.gds" verb="*" modules="IsapiModule" scriptProcessor="C:\Windows\System32\inetsrv\asp.dll" resourceType="File" preCondition="bitness64" />
- <add name="asp" path="*.asp" verb="*" modules="IsapiModule" scriptProcessor="C:\Windows\System32\inetsrv\asp.dll" resourceType="File" preCondition="bitness64" />
- <add name="FastCGI" path="*.php" verb="*" modules="FastCgiModule" scriptProcessor="D:\project\鎬ユ晳杞繍\code\php\php-cgi.exe" resourceType="File" requireAccess="Script" />
-
- </handlers>
- <httpErrors errorMode="DetailedLocalOnly" />
-
-
- </system.webServer>
-</configuration>
diff --git a/weixin_pay_QR.asp b/weixin_pay_QR.asp
index 0bb4a3c..562fbbf 100644
--- a/weixin_pay_QR.asp
+++ b/weixin_pay_QR.asp
@@ -4,12 +4,15 @@
<!--#include virtual="/inc/odbc.asp"-->
<!--#include virtual="/inc/function.gds"-->
<!--#include virtual="/inc/core.asp"-->
+<!--#include virtual="/inc/thirdpay.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
DispatchOrdID = SafeRequest(trim(request("DispatchOrdID")))
ServiceOrdID = SafeRequest(trim(request("ServiceOrdID")))
Total_fee = SafeRequest(trim(request("Total_fee")))
pc = SafeRequest(trim(request("pc")))
+
+
if pc="1" and DispatchOrdID="" then
replaceURL="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
@@ -19,6 +22,8 @@
replaceURL="/m_DispatchOrder_PaidMoney.gds?DispatchOrdID="&DispatchOrdID
end if
+ThirdPay "weixin",Total_fee,ServiceOrdID,DispatchOrdID,replaceURL
+
APPPayID = "Pay966120"
trade_type = "NATIVE"
If ServiceOrdID<>"" Then
diff --git "a/word/\345\256\236\351\252\214\345\221\230\347\253\257\345\212\237\350\203\275\350\257\264\346\230\216.md" "b/word/\345\256\236\351\252\214\345\221\230\347\253\257\345\212\237\350\203\275\350\257\264\346\230\216.md"
new file mode 100644
index 0000000..5a7e978
--- /dev/null
+++ "b/word/\345\256\236\351\252\214\345\221\230\347\253\257\345\212\237\350\203\275\350\257\264\346\230\216.md"
@@ -0,0 +1,319 @@
+# LIMS绯荤粺瀹為獙鍛樼鍔熻兘璇存槑鏂囨。
+
+## 1. 宸ヤ綔鍙�
+
+### 1.1 浠诲姟绠＄悊
+- 寰呭姙浠诲姟
+ * 浠诲姟鍒楄〃鏌ョ湅
+ * 浠诲姟璇︽儏鏌ョ湅
+ * 浠诲姟鎺ユ敹纭
+ * 浠诲姟浼樺厛绾ц缃�
+- 杩涜涓换鍔�
+ * 浠诲姟杩涘害鏇存柊
+ * 浠诲姟鐘舵�佹洿鏂�
+ * 浠诲姟寮傚父鎶ュ憡
+ * 浠诲姟瀹屾垚纭
+- 宸插畬鎴愪换鍔�
+ * 浠诲姟璁板綍鏌ヨ
+ * 浠诲姟缁撴灉鏌ョ湅
+ * 浠诲姟璇勪环鏌ョ湅
+ * 浠诲姟缁熻鍒嗘瀽
+
+### 1.2 宸ヤ綔缁熻
+- 宸ヤ綔閲忕粺璁�
+ * 鏃ュ伐浣滈噺缁熻
+ * 鍛ㄥ伐浣滈噺缁熻
+ * 鏈堝伐浣滈噺缁熻
+ * 宸ヤ綔閲忚秼鍔垮垎鏋�
+- 璐ㄩ噺缁熻
+ * 妫�娴嬭川閲忕粺璁�
+ * 鎶ュ憡璐ㄩ噺缁熻
+ * 瀹㈡埛婊℃剰搴︾粺璁�
+ * 璐ㄩ噺瓒嬪娍鍒嗘瀽
+- 鏁堢巼缁熻
+ * 浠诲姟瀹屾垚鐜囩粺璁�
+ * 浠诲姟鍙婃椂鐜囩粺璁�
+ * 宸ヤ綔鏁堢巼鍒嗘瀽
+ * 鏁堢巼鎻愬崌寤鸿
+
+### 1.3 娑堟伅閫氱煡
+- 浠诲姟閫氱煡
+ * 鏂颁换鍔￠�氱煡
+ * 浠诲姟鎻愰啋閫氱煡
+ * 浠诲姟鍙樻洿閫氱煡
+ * 浠诲姟瀹屾垚閫氱煡
+- 绯荤粺閫氱煡
+ * 绯荤粺鍏憡
+ * 鍩硅閫氱煡
+ * 浼氳閫氱煡
+ * 鍏朵粬閫氱煡
+- 棰勮閫氱煡
+ * 浠诲姟棰勮
+ * 璐ㄩ噺棰勮
+ * 璁惧棰勮
+ * 瀹夊叏棰勮
+
+## 2. 鏍峰搧绠＄悊
+
+### 2.1 鏍峰搧鎺ユ敹
+- 鏍峰搧鐧昏
+ * 鏍峰搧淇℃伅鐧昏
+ * 鏍峰搧鐓х墖涓婁紶
+ * 鏍峰搧鐘舵�佽褰�
+ * 鏍峰搧缂栧彿纭
+- 鏍峰搧鍒嗛厤
+ * 鏍峰搧棰嗗彇纭
+ * 鏍峰搧鍒嗛厤纭
+ * 鏍峰搧浜ゆ帴璁板綍
+ * 鏍峰搧褰掕繕纭
+- 鏍峰搧鏌ヨ
+ * 鏍峰搧淇℃伅鏌ヨ
+ * 鏍峰搧鐘舵�佹煡璇�
+ * 鏍峰搧浣嶇疆鏌ヨ
+ * 鏍峰搧鍘嗗彶鏌ヨ
+
+### 2.2 鏍峰搧澶勭悊
+- 棰勫鐞嗘搷浣�
+ * 棰勫鐞嗘柟妗堟煡鐪�
+ * 棰勫鐞嗚繃绋嬭褰�
+ * 棰勫鐞嗙粨鏋滆褰�
+ * 棰勫鐞嗚川閲忔帶鍒�
+- 妫�娴嬫搷浣�
+ * 妫�娴嬫柟妗堟煡鐪�
+ * 妫�娴嬭繃绋嬭褰�
+ * 妫�娴嬬粨鏋滆褰�
+ * 妫�娴嬭川閲忔帶鍒�
+- 鍚庡鐞嗘搷浣�
+ * 鍚庡鐞嗘柟妗堟煡鐪�
+ * 鍚庡鐞嗚繃绋嬭褰�
+ * 鍚庡鐞嗙粨鏋滆褰�
+ * 鍚庡鐞嗚川閲忔帶鍒�
+
+### 2.3 鏍峰搧瀛樺偍
+- 瀛樺偍鎿嶄綔
+ * 瀛樺偍浣嶇疆纭
+ * 瀛樺偍鏉′欢璁板綍
+ * 瀛樺偍鐘舵�佹洿鏂�
+ * 瀛樺偍鐜璁板綍
+- 鍙栫敤鎿嶄綔
+ * 鏍峰搧棰嗗彇
+ * 鏍峰搧褰掕繕
+ * 鏍峰搧杞Щ
+ * 鏍峰搧閿�姣�
+- 瀛樺偍鏌ヨ
+ * 瀛樺偍浣嶇疆鏌ヨ
+ * 瀛樺偍鐘舵�佹煡璇�
+ * 瀛樺偍璁板綍鏌ヨ
+ * 瀛樺偍缁熻鏌ヨ
+
+## 3. 妫�娴嬬鐞�
+
+### 3.1 妫�娴嬩换鍔�
+- 浠诲姟鎵ц
+ * 妫�娴嬫柟妗堟煡鐪�
+ * 妫�娴嬫爣鍑嗘煡鐪�
+ * 妫�娴嬫柟娉曟煡鐪�
+ * 妫�娴嬭繃绋嬭褰�
+- 缁撴灉璁板綍
+ * 鍘熷鏁版嵁璁板綍
+ * 璁＄畻缁撴灉璁板綍
+ * 缁撴灉楠岃瘉璁板綍
+ * 寮傚父鎯呭喌璁板綍
+- 璐ㄩ噺鎺у埗
+ * 璐ㄦ帶鏍锋娴�
+ * 骞宠鏍锋娴�
+ * 鍔犳爣鍥炴敹妫�娴�
+ * 绌虹櫧鏍锋娴�
+
+### 3.2 鏍囧噯鏂规硶
+- 鏍囧噯鏌ヨ
+ * 鏍囧噯鏂囦欢鏌ョ湅
+ * 鏍囧噯鍐呭鏌ヨ
+ * 鏍囧噯鏇存柊鎻愰啋
+ * 鏍囧噯浣跨敤璁板綍
+- 鏂规硶鏌ヨ
+ * 鏂规硶鏂囦欢鏌ョ湅
+ * 鏂规硶鍐呭鏌ヨ
+ * 鏂规硶鏇存柊鎻愰啋
+ * 鏂规硶浣跨敤璁板綍
+- 搴旂敤璁板綍
+ * 鏍囧噯搴旂敤璁板綍
+ * 鏂规硶搴旂敤璁板綍
+ * 搴旂敤闂璁板綍
+ * 搴旂敤寤鸿璁板綍
+
+### 3.3 妫�娴嬭褰�
+- 鍘熷璁板綍
+ * 妫�娴嬭繃绋嬭褰�
+ * 妫�娴嬫暟鎹褰�
+ * 妫�娴嬫潯浠惰褰�
+ * 妫�娴嬬幆澧冭褰�
+- 缁撴灉璁板綍
+ * 璁＄畻缁撴灉璁板綍
+ * 缁撴灉楠岃瘉璁板綍
+ * 缁撴灉瀹℃牳璁板綍
+ * 缁撴灉纭璁板綍
+- 璁板綍绠＄悊
+ * 璁板綍鏌ヨ
+ * 璁板綍淇敼
+ * 璁板綍瀹℃牳
+ * 璁板綍褰掓。
+
+## 4. 璁惧绠＄悊
+
+### 4.1 璁惧浣跨敤
+- 浣跨敤鐢宠
+ * 璁惧棰勭害
+ * 浣跨敤鐢宠
+ * 浣跨敤瀹℃壒
+ * 浣跨敤纭
+- 浣跨敤鎿嶄綔
+ * 璁惧妫�鏌�
+ * 璁惧鎿嶄綔
+ * 浣跨敤璁板綍
+ * 浣跨敤瀹屾垚
+- 浣跨敤鏌ヨ
+ * 浣跨敤璁板綍鏌ヨ
+ * 浣跨敤缁熻鏌ヨ
+ * 浣跨敤闂鏌ヨ
+ * 浣跨敤寤鸿鏌ヨ
+
+### 4.2 璁惧缁存姢
+- 鏃ュ父缁存姢
+ * 缁存姢璁″垝鏌ョ湅
+ * 缁存姢鎿嶄綔璁板綍
+ * 缁存姢缁撴灉璁板綍
+ * 缁存姢闂璁板綍
+- 鏍″噯鎿嶄綔
+ * 鏍″噯璁″垝鏌ョ湅
+ * 鏍″噯鎿嶄綔璁板綍
+ * 鏍″噯缁撴灉璁板綍
+ * 鏍″噯闂璁板綍
+- 鏁呴殰鎶ュ憡
+ * 鏁呴殰鍙戠幇
+ * 鏁呴殰鎻忚堪
+ * 鏁呴殰鎶ュ憡
+ * 鏁呴殰璺熻釜
+
+### 4.3 璁惧鏌ヨ
+- 璁惧淇℃伅
+ * 鍩烘湰淇℃伅鏌ヨ
+ * 鎶�鏈弬鏁版煡璇�
+ * 浣跨敤璇存槑鏌ヨ
+ * 缁存姢璁板綍鏌ヨ
+- 浣跨敤鐘舵��
+ * 杩愯鐘舵�佹煡璇�
+ * 浣跨敤鎯呭喌鏌ヨ
+ * 缁存姢鎯呭喌鏌ヨ
+ * 鏁呴殰鎯呭喌鏌ヨ
+- 缁熻鍒嗘瀽
+ * 浣跨敤鐜囩粺璁�
+ * 鏁呴殰鐜囩粺璁�
+ * 缁存姢鐜囩粺璁�
+ * 鏁堢巼鍒嗘瀽
+
+## 5. 鎶ュ憡绠＄悊
+
+### 5.1 鎶ュ憡缂栧埗
+- 鏁版嵁鏁寸悊
+ * 鍘熷鏁版嵁鏁寸悊
+ * 璁＄畻缁撴灉鏁寸悊
+ * 璐ㄦ帶鏁版嵁鏁寸悊
+ * 寮傚父鏁版嵁鏁寸悊
+- 鎶ュ憡缂栧啓
+ * 鎶ュ憡妯℃澘閫夋嫨
+ * 鎶ュ憡鍐呭缂栧啓
+ * 鎶ュ憡鏍煎紡璋冩暣
+ * 鎶ュ憡棰勮
+- 鎶ュ憡鎻愪氦
+ * 鎶ュ憡瀹℃牳
+ * 鎶ュ憡淇敼
+ * 鎶ュ憡纭
+ * 鎶ュ憡鎻愪氦
+
+### 5.2 鎶ュ憡鏌ヨ
+- 鎶ュ憡鍒楄〃
+ * 寰呭鐞嗘姤鍛�
+ * 澶勭悊涓姤鍛�
+ * 宸插畬鎴愭姤鍛�
+ * 宸插綊妗ｆ姤鍛�
+- 鎶ュ憡璇︽儏
+ * 鎶ュ憡鍐呭鏌ョ湅
+ * 鎶ュ憡鏁版嵁鏌ョ湅
+ * 鎶ュ憡瀹℃牳璁板綍
+ * 鎶ュ憡淇敼璁板綍
+- 鎶ュ憡缁熻
+ * 鎶ュ憡鏁伴噺缁熻
+ * 鎶ュ憡绫诲瀷缁熻
+ * 鎶ュ憡璐ㄩ噺缁熻
+ * 鎶ュ憡鏁堢巼缁熻
+
+### 5.3 鎶ュ憡鎵撳嵃
+- 鎵撳嵃璁剧疆
+ * 鎵撳嵃妯℃澘閫夋嫨
+ * 鎵撳嵃鍙傛暟璁剧疆
+ * 鎵撳嵃棰勮
+ * 鎵撳嵃纭
+- 鎵撳嵃鎿嶄綔
+ * 鎶ュ憡鎵撳嵃
+ * 鎵撳嵃璁板綍
+ * 鎵撳嵃闂
+ * 鎵撳嵃缁熻
+- 鎵撳嵃绠＄悊
+ * 鎵撳嵃璁板綍鏌ヨ
+ * 鎵撳嵃闂澶勭悊
+ * 鎵撳嵃缁熻鏌ヨ
+ * 鎵撳嵃浼樺寲寤鸿
+
+## 6. 涓汉涓績
+
+### 6.1 涓汉淇℃伅
+- 鍩烘湰淇℃伅
+ * 涓汉淇℃伅鏌ョ湅
+ * 淇℃伅淇敼
+ * 瀵嗙爜淇敼
+ * 瀹夊叏璁剧疆
+- 璧勮川淇℃伅
+ * 璧勮川璇佷功鏌ョ湅
+ * 璧勮川鏇存柊鎻愰啋
+ * 璧勮川鍒版湡鎻愰啋
+ * 璧勮川鐢宠
+- 鍩硅淇℃伅
+ * 鍩硅璁板綍鏌ョ湅
+ * 鍩硅璁″垝鏌ョ湅
+ * 鍩硅鑰冩牳璁板綍
+ * 鍩硅闇�姹傜敵璇�
+
+### 6.2 宸ヤ綔淇℃伅
+- 宸ヤ綔閲�
+ * 宸ヤ綔閲忕粺璁�
+ * 宸ヤ綔璐ㄩ噺缁熻
+ * 宸ヤ綔鏁堢巼缁熻
+ * 宸ヤ綔璇勪环鏌ョ湅
+- 宸ヤ綔璁板綍
+ * 浠诲姟璁板綍鏌ヨ
+ * 妫�娴嬭褰曟煡璇�
+ * 鎶ュ憡璁板綍鏌ヨ
+ * 闂璁板綍鏌ヨ
+- 宸ヤ綔鍒嗘瀽
+ * 宸ヤ綔璐ㄩ噺鍒嗘瀽
+ * 宸ヤ綔鏁堢巼鍒嗘瀽
+ * 宸ヤ綔闂鍒嗘瀽
+ * 鏀硅繘寤鸿
+
+### 6.3 绯荤粺璁剧疆
+- 鐣岄潰璁剧疆
+ * 鐣岄潰涓婚璁剧疆
+ * 鐣岄潰甯冨眬璁剧疆
+ * 蹇嵎鏂瑰紡璁剧疆
+ * 鏄剧ず璁剧疆
+- 娑堟伅璁剧疆
+ * 娑堟伅鎻愰啋璁剧疆
+ * 娑堟伅鎺ユ敹璁剧疆
+ * 娑堟伅澶勭悊璁剧疆
+ * 娑堟伅缁熻璁剧疆
+- 瀹夊叏璁剧疆
+ * 鐧诲綍瀹夊叏璁剧疆
+ * 鎿嶄綔瀹夊叏璁剧疆
+ * 鏁版嵁瀹夊叏璁剧疆
+ * 闅愮瀹夊叏璁剧疆
\ No newline at end of file
diff --git "a/word/\345\256\236\351\252\214\345\256\244\347\253\257\345\212\237\350\203\275\350\257\264\346\230\216.md" "b/word/\345\256\236\351\252\214\345\256\244\347\253\257\345\212\237\350\203\275\350\257\264\346\230\216.md"
new file mode 100644
index 0000000..d3f7142
--- /dev/null
+++ "b/word/\345\256\236\351\252\214\345\256\244\347\253\257\345\212\237\350\203\275\350\257\264\346\230\216.md"
@@ -0,0 +1,425 @@
+# LIMS绯荤粺瀹為獙瀹ょ鍔熻兘璇存槑鏂囨。
+
+## 1. 鏍峰搧绠＄悊
+
+### 1.1 鏍峰搧鎺ユ敹绠＄悊
+- 鏍峰搧鐧昏
+ * 鏍峰搧鍩烘湰淇℃伅鐧昏
+ * 鏍峰搧缂栧彿鐢熸垚
+ * 鏍峰搧鐘舵�佽褰�
+ * 鏍峰搧鐓х墖涓婁紶
+- 鏍峰搧鍒嗙被
+ * 鏍峰搧绫诲瀷鍒嗙被
+ * 妫�娴嬮」鐩垎绫�
+ * 浼樺厛绾у垎绫�
+ * 瀛樺偍瑕佹眰鍒嗙被
+- 鏍峰搧鍒嗛厤
+ * 妫�娴嬩换鍔″垎閰�
+ * 妫�娴嬩汉鍛樺垎閰�
+ * 妫�娴嬭澶囧垎閰�
+ * 妫�娴嬫椂闂村畨鎺�
+
+### 1.2 鏍峰搧瀛樺偍绠＄悊
+- 瀛樺偍浣嶇疆绠＄悊
+ * 瀛樺偍鍖哄煙绠＄悊
+ * 瀛樺偍浣嶇疆鍒嗛厤
+ * 瀛樺偍鏉′欢鐩戞帶
+ * 瀛樺偍鐜璁板綍
+- 鏍峰搧娴佽浆绠＄悊
+ * 鏍峰搧棰嗗彇璁板綍
+ * 鏍峰搧褰掕繕璁板綍
+ * 鏍峰搧杞Щ璁板綍
+ * 鏍峰搧閿�姣佽褰�
+- 鏍峰搧鐘舵�佺鐞�
+ * 鐘舵�佸彉鏇磋褰�
+ * 寮傚父鐘舵�佸鐞�
+ * 鐘舵�佹煡璇㈢粺璁�
+ * 鐘舵�侀璀︽彁閱�
+
+### 1.3 鏍峰搧澶勭悊绠＄悊
+- 鏍峰搧棰勫鐞�
+ * 棰勫鐞嗘柟妗堝埗瀹�
+ * 棰勫鐞嗚繃绋嬭褰�
+ * 棰勫鐞嗙粨鏋滆褰�
+ * 棰勫鐞嗚川閲忔帶鍒�
+- 鏍峰搧妫�娴�
+ * 妫�娴嬫柟妗堝埗瀹�
+ * 妫�娴嬭繃绋嬭褰�
+ * 妫�娴嬬粨鏋滆褰�
+ * 妫�娴嬭川閲忔帶鍒�
+- 鏍峰搧鍚庡鐞�
+ * 鍚庡鐞嗘柟妗堝埗瀹�
+ * 鍚庡鐞嗚繃绋嬭褰�
+ * 鍚庡鐞嗙粨鏋滆褰�
+ * 鍚庡鐞嗚川閲忔帶鍒�
+
+## 2. 妫�娴嬬鐞�
+
+### 2.1 妫�娴嬩换鍔＄鐞�
+- 浠诲姟鍒嗛厤
+ * 浠诲姟鎺ユ敹纭
+ * 浠诲姟鍒嗛厤瀹夋帓
+ * 浠诲姟浼樺厛绾ц缃�
+ * 浠诲姟鎴鏃堕棿璁剧疆
+- 浠诲姟鎵ц
+ * 鎵ц璁″垝鍒跺畾
+ * 鎵ц杩囩▼璁板綍
+ * 鎵ц缁撴灉璁板綍
+ * 鎵ц璐ㄩ噺鎺у埗
+- 浠诲姟鐩戞帶
+ * 杩涘害鐩戞帶
+ * 璐ㄩ噺鐩戞帶
+ * 寮傚父鐩戞帶
+ * 瀹屾垚鎯呭喌缁熻
+
+### 2.2 妫�娴嬫爣鍑嗙鐞�
+- 鏍囧噯搴撶鐞�
+ * 鏍囧噯鏂囦欢绠＄悊
+ * 鏍囧噯鐗堟湰绠＄悊
+ * 鏍囧噯鏇存柊绠＄悊
+ * 鏍囧噯浣跨敤璁板綍
+- 鏍囧噯搴旂敤
+ * 鏍囧噯閫夋嫨
+ * 鏍囧噯瑙ｈ
+ * 鏍囧噯鎵ц
+ * 鏍囧噯楠岃瘉
+- 鏍囧噯缁存姢
+ * 鏍囧噯璇勪及
+ * 鏍囧噯淇
+ * 鏍囧噯搴熸
+ * 鏍囧噯褰掓。
+
+### 2.3 妫�娴嬫柟娉曠鐞�
+- 鏂规硶搴撶鐞�
+ * 鏂规硶鏂囦欢绠＄悊
+ * 鏂规硶鐗堟湰绠＄悊
+ * 鏂规硶鏇存柊绠＄悊
+ * 鏂规硶浣跨敤璁板綍
+- 鏂规硶搴旂敤
+ * 鏂规硶閫夋嫨
+ * 鏂规硶楠岃瘉
+ * 鏂规硶鎵ц
+ * 鏂规硶璇勪及
+- 鏂规硶缁存姢
+ * 鏂规硶浼樺寲
+ * 鏂规硶鏀硅繘
+ * 鏂规硶搴熸
+ * 鏂规硶褰掓。
+
+## 3. 璁惧绠＄悊
+
+### 3.1 璁惧淇℃伅绠＄悊
+- 鍩烘湰淇℃伅绠＄悊
+ * 璁惧妗ｆ绠＄悊
+ * 璁惧鍙傛暟绠＄悊
+ * 璁惧鐘舵�佺鐞�
+ * 璁惧浣嶇疆绠＄悊
+- 璁惧鍒嗙被绠＄悊
+ * 璁惧绫诲瀷鍒嗙被
+ * 璁惧鐢ㄩ�斿垎绫�
+ * 璁惧鐘舵�佸垎绫�
+ * 璁惧绛夌骇鍒嗙被
+- 璁惧鍙拌处绠＄悊
+ * 璁惧娓呭崟绠＄悊
+ * 璁惧鍙樺姩璁板綍
+ * 璁惧浣跨敤璁板綍
+ * 璁惧缁存姢璁板綍
+
+### 3.2 璁惧浣跨敤绠＄悊
+- 浣跨敤璁″垝
+ * 浣跨敤鐢宠
+ * 浣跨敤瀹℃壒
+ * 浣跨敤瀹夋帓
+ * 浣跨敤璁板綍
+- 浣跨敤鐩戞帶
+ * 杩愯鐘舵�佺洃鎺�
+ * 浣跨敤鏁堢巼鐩戞帶
+ * 寮傚父鎯呭喌鐩戞帶
+ * 浣跨敤缁熻
+- 浣跨敤鍒嗘瀽
+ * 浣跨敤鐜囧垎鏋�
+ * 鏁堢巼鍒嗘瀽
+ * 鎴愭湰鍒嗘瀽
+ * 浼樺寲寤鸿
+
+### 3.3 璁惧缁存姢绠＄悊
+- 缁存姢璁″垝
+ * 鏃ュ父缁存姢璁″垝
+ * 瀹氭湡缁存姢璁″垝
+ * 鏍″噯璁″垝
+ * 缁翠慨璁″垝
+- 缁存姢鎵ц
+ * 缁存姢璁板綍
+ * 鏍″噯璁板綍
+ * 缁翠慨璁板綍
+ * 缁存姢璇勪及
+- 缁存姢鍒嗘瀽
+ * 缁存姢鏁堟灉鍒嗘瀽
+ * 鏁呴殰鍒嗘瀽
+ * 鎴愭湰鍒嗘瀽
+ * 鏀硅繘寤鸿
+
+## 4. 浜哄憳绠＄悊
+
+### 4.1 浜哄憳淇℃伅绠＄悊
+- 鍩烘湰淇℃伅绠＄悊
+ * 浜哄憳妗ｆ绠＄悊
+ * 璧勮川璇佷功绠＄悊
+ * 鍩硅璁板綍绠＄悊
+ * 鑰冩牳璁板綍绠＄悊
+- 浜哄憳鍒嗙被绠＄悊
+ * 宀椾綅鍒嗙被
+ * 鑱岀О鍒嗙被
+ * 璧勮川鍒嗙被
+ * 鏉冮檺鍒嗙被
+- 浜哄憳鐘舵�佺鐞�
+ * 鍦ㄨ亴鐘舵�佺鐞�
+ * 宸ヤ綔鐘舵�佺鐞�
+ * 璧勮川鐘舵�佺鐞�
+ * 鏉冮檺鐘舵�佺鐞�
+
+### 4.2 浜哄憳宸ヤ綔绠＄悊
+- 宸ヤ綔瀹夋帓
+ * 浠诲姟鍒嗛厤
+ * 鎺掔彮绠＄悊
+ * 宸ヤ綔閲忕粺璁�
+ * 宸ヤ綔璇勪及
+- 宸ヤ綔鐩戞帶
+ * 宸ヤ綔杩涘害鐩戞帶
+ * 宸ヤ綔璐ㄩ噺鐩戞帶
+ * 宸ヤ綔鏁堢巼鐩戞帶
+ * 宸ヤ綔寮傚父鐩戞帶
+- 宸ヤ綔鍒嗘瀽
+ * 宸ヤ綔閲忓垎鏋�
+ * 璐ㄩ噺鍒嗘瀽
+ * 鏁堢巼鍒嗘瀽
+ * 鏀硅繘寤鸿
+
+### 4.3 浜哄憳鍩硅绠＄悊
+- 鍩硅璁″垝
+ * 鍩硅闇�姹傚垎鏋�
+ * 鍩硅璁″垝鍒跺畾
+ * 鍩硅璧勬簮鍑嗗
+ * 鍩硅瀹夋帓
+- 鍩硅鎵ц
+ * 鍩硅瀹炴柦
+ * 鍩硅璁板綍
+ * 鍩硅鑰冩牳
+ * 鍩硅璇勪及
+- 鍩硅鍒嗘瀽
+ * 鍩硅鏁堟灉鍒嗘瀽
+ * 鍩硅闇�姹傚垎鏋�
+ * 鍩硅鎴愭湰鍒嗘瀽
+ * 鏀硅繘寤鸿
+
+## 5. 璐ㄩ噺绠＄悊
+
+### 5.1 璐ㄩ噺鎺у埗绠＄悊
+- 璐ㄩ噺鎺у埗璁″垝
+ * 鎺у埗鐐硅缃�
+ * 鎺у埗鏍囧噯鍒跺畾
+ * 鎺у埗鏂规硶閫夋嫨
+ * 鎺у埗棰戠巼璁剧疆
+- 璐ㄩ噺鎺у埗鎵ц
+ * 鎺у埗杩囩▼璁板綍
+ * 鎺у埗缁撴灉璁板綍
+ * 寮傚父鎯呭喌澶勭悊
+ * 鎺у埗鏁堟灉璇勪及
+- 璐ㄩ噺鎺у埗鍒嗘瀽
+ * 鎺у埗鏁堟灉鍒嗘瀽
+ * 闂鍘熷洜鍒嗘瀽
+ * 鏀硅繘鎺柦鍒跺畾
+ * 鎸佺画鏀硅繘璺熻釜
+
+### 5.2 璐ㄩ噺淇濊瘉绠＄悊
+- 璐ㄩ噺浣撶郴绠＄悊
+ * 浣撶郴鏂囦欢绠＄悊
+ * 浣撶郴杩愯鐩戞帶
+ * 浣撶郴璇勫
+ * 浣撶郴鏀硅繘
+- 璐ㄩ噺瀹℃牳绠＄悊
+ * 鍐呴儴瀹℃牳
+ * 澶栭儴瀹℃牳
+ * 瀹℃牳璺熻釜
+ * 鏁存敼楠岃瘉
+- 璐ㄩ噺鏀硅繘绠＄悊
+ * 鏀硅繘璁″垝鍒跺畾
+ * 鏀硅繘鎺柦瀹炴柦
+ * 鏀硅繘鏁堟灉楠岃瘉
+ * 鎸佺画鏀硅繘
+
+### 5.3 璐ㄩ噺椋庨櫓绠＄悊
+- 椋庨櫓璇嗗埆
+ * 椋庨櫓鐐硅瘑鍒�
+ * 椋庨櫓绛夌骇璇勪及
+ * 椋庨櫓鍘熷洜鍒嗘瀽
+ * 椋庨櫓褰卞搷璇勪及
+- 椋庨櫓鎺у埗
+ * 鎺у埗鎺柦鍒跺畾
+ * 鎺у埗鎺柦瀹炴柦
+ * 鎺у埗鏁堟灉璇勪及
+ * 鎺у埗鎺柦鏀硅繘
+- 椋庨櫓鐩戞帶
+ * 椋庨櫓鐩戞帶璁″垝
+ * 椋庨櫓鐩戞帶鎵ц
+ * 椋庨櫓棰勮
+ * 椋庨櫓鎶ュ憡
+
+## 6. 鎶ュ憡绠＄悊
+
+### 6.1 鎶ュ憡鐢熸垚绠＄悊
+- 鎶ュ憡妯℃澘绠＄悊
+ * 妯℃澘璁捐
+ * 妯℃澘缁存姢
+ * 妯℃澘浣跨敤
+ * 妯℃澘璇勪及
+- 鎶ュ憡缂栧埗
+ * 鏁版嵁鏁寸悊
+ * 鎶ュ憡缂栧啓
+ * 鎶ュ憡瀹℃牳
+ * 鎶ュ憡绛惧彂
+- 鎶ュ憡绠＄悊
+ * 鎶ュ憡瀛樺偍
+ * 鎶ュ憡鏌ヨ
+ * 鎶ュ憡鎵撳嵃
+ * 鎶ュ憡褰掓。
+
+### 6.2 鎶ュ憡瀹℃牳绠＄悊
+- 瀹℃牳娴佺▼绠＄悊
+ * 娴佺▼璁捐
+ * 娴佺▼鎵ц
+ * 娴佺▼鐩戞帶
+ * 娴佺▼浼樺寲
+- 瀹℃牳鏍囧噯绠＄悊
+ * 鏍囧噯鍒跺畾
+ * 鏍囧噯鎵ц
+ * 鏍囧噯璇勪及
+ * 鏍囧噯鏀硅繘
+- 瀹℃牳璁板綍绠＄悊
+ * 璁板綍淇濆瓨
+ * 璁板綍鏌ヨ
+ * 璁板綍缁熻
+ * 璁板綍鍒嗘瀽
+
+### 6.3 鎶ュ憡缁熻鍒嗘瀽
+- 鎶ュ憡缁熻
+ * 鏁伴噺缁熻
+ * 绫诲瀷缁熻
+ * 璐ㄩ噺缁熻
+ * 鏁堢巼缁熻
+- 鎶ュ憡鍒嗘瀽
+ * 璐ㄩ噺鍒嗘瀽
+ * 鏁堢巼鍒嗘瀽
+ * 闂鍒嗘瀽
+ * 鏀硅繘寤鸿
+- 鎶ュ憡搴旂敤
+ * 鏁版嵁鎸栨帢
+ * 瓒嬪娍鍒嗘瀽
+ * 鍐崇瓥鏀寔
+ * 鎸佺画鏀硅繘
+
+## 7. 鏁版嵁绠＄悊
+
+### 7.1 鏁版嵁閲囬泦绠＄悊
+- 閲囬泦璁″垝
+ * 璁″垝鍒跺畾
+ * 璁″垝鎵ц
+ * 璁″垝鐩戞帶
+ * 璁″垝璇勪及
+- 閲囬泦鎵ц
+ * 鏁版嵁閲囬泦
+ * 鏁版嵁楠岃瘉
+ * 鏁版嵁瀛樺偍
+ * 鏁版嵁澶囦唤
+- 閲囬泦鍒嗘瀽
+ * 閲囬泦鏁堢巼鍒嗘瀽
+ * 鏁版嵁璐ㄩ噺鍒嗘瀽
+ * 闂鍒嗘瀽
+ * 鏀硅繘寤鸿
+
+### 7.2 鏁版嵁澶勭悊绠＄悊
+- 鏁版嵁澶勭悊
+ * 鏁版嵁娓呮礂
+ * 鏁版嵁杞崲
+ * 鏁版嵁璁＄畻
+ * 鏁版嵁楠岃瘉
+- 鏁版嵁瀛樺偍
+ * 瀛樺偍绠＄悊
+ * 澶囦唤绠＄悊
+ * 鎭㈠绠＄悊
+ * 褰掓。绠＄悊
+- 鏁版嵁搴旂敤
+ * 鏁版嵁鏌ヨ
+ * 鏁版嵁缁熻
+ * 鏁版嵁鍒嗘瀽
+ * 鏁版嵁灞曠ず
+
+### 7.3 鏁版嵁瀹夊叏绠＄悊
+- 瀹夊叏绛栫暐
+ * 绛栫暐鍒跺畾
+ * 绛栫暐鎵ц
+ * 绛栫暐鐩戞帶
+ * 绛栫暐璇勪及
+- 瀹夊叏鎺у埗
+ * 璁块棶鎺у埗
+ * 鎿嶄綔鎺у埗
+ * 浼犺緭鎺у埗
+ * 瀛樺偍鎺у埗
+- 瀹夊叏瀹¤
+ * 瀹¤璁″垝
+ * 瀹¤鎵ц
+ * 瀹¤鍒嗘瀽
+ * 瀹¤鎶ュ憡
+
+## 8. 绯荤粺绠＄悊
+
+### 8.1 鐢ㄦ埛鏉冮檺绠＄悊
+- 鐢ㄦ埛绠＄悊
+ * 鐢ㄦ埛淇℃伅绠＄悊
+ * 鐢ㄦ埛鐘舵�佺鐞�
+ * 鐢ㄦ埛鏉冮檺绠＄悊
+ * 鐢ㄦ埛瀹夊叏璁剧疆
+- 瑙掕壊绠＄悊
+ * 瑙掕壊瀹氫箟
+ * 鏉冮檺鍒嗛厤
+ * 瑙掕壊鍒嗛厤
+ * 瑙掕壊缁ф壙
+- 鏉冮檺鎺у埗
+ * 鍔熻兘鏉冮檺鎺у埗
+ * 鏁版嵁鏉冮檺鎺у埗
+ * 鎿嶄綔鏉冮檺鎺у埗
+ * 瀹夊叏绛栫暐鎺у埗
+
+### 8.2 绯荤粺閰嶇疆绠＄悊
+- 鍩虹閰嶇疆
+ * 绯荤粺鍙傛暟閰嶇疆
+ * 涓氬姟瑙勫垯閰嶇疆
+ * 宸ヤ綔娴侀厤缃�
+ * 娑堟伅妯℃澘閰嶇疆
+- 鍔熻兘閰嶇疆
+ * 鍔熻兘寮�鍏抽厤缃�
+ * 鍔熻兘鍙傛暟閰嶇疆
+ * 鍔熻兘闄愬埗閰嶇疆
+ * 鍔熻兘浼樺寲閰嶇疆
+- 瀹夊叏閰嶇疆
+ * 瀹夊叏绛栫暐閰嶇疆
+ * 瀹夊叏瑙勫垯閰嶇疆
+ * 瀹夊叏瀹¤閰嶇疆
+ * 瀹夊叏棰勮閰嶇疆
+
+### 8.3 绯荤粺鐩戞帶绠＄悊
+- 杩愯鐩戞帶
+ * 绯荤粺鎬ц兘鐩戞帶
+ * 绯荤粺璧勬簮鐩戞帶
+ * 绯荤粺璐熻浇鐩戞帶
+ * 绯荤粺寮傚父鐩戞帶
+- 鎿嶄綔鐩戞帶
+ * 鐢ㄦ埛鎿嶄綔鐩戞帶
+ * 涓氬姟鎿嶄綔鐩戞帶
+ * 瀹夊叏鎿嶄綔鐩戞帶
+ * 寮傚父鎿嶄綔鐩戞帶
+- 鏃ュ織绠＄悊
+ * 绯荤粺鏃ュ織绠＄悊
+ * 鎿嶄綔鏃ュ織绠＄悊
+ * 瀹夊叏鏃ュ織绠＄悊
+ * 瀹¤鏃ュ織绠＄悊
\ No newline at end of file
diff --git "a/word/\345\256\242\346\210\267\344\276\247\345\212\237\350\203\275\350\257\264\346\230\216.md" "b/word/\345\256\242\346\210\267\344\276\247\345\212\237\350\203\275\350\257\264\346\230\216.md"
new file mode 100644
index 0000000..faf5d2c
--- /dev/null
+++ "b/word/\345\256\242\346\210\267\344\276\247\345\212\237\350\203\275\350\257\264\346\230\216.md"
@@ -0,0 +1,279 @@
+# LIMS绯荤粺瀹㈡埛渚у姛鑳借鏄庢枃妗�
+
+## 1. 瀹為獙瀹ら�夋嫨
+
+### 1.1 瀹為獙瀹ゆ煡璇�
+- 瀹為獙瀹ゅ垪琛�
+ * 瀹為獙瀹ゅ熀鏈俊鎭�
+ * 瀹為獙瀹よ祫璐ㄤ俊鎭�
+ * 瀹為獙瀹ゆ湇鍔¤寖鍥�
+ * 瀹為獙瀹ゅ湴鐞嗕綅缃�
+- 瀹為獙瀹ょ瓫閫�
+ * 鎸夋娴嬮」鐩瓫閫�
+ * 鎸夋娴嬫爣鍑嗙瓫閫�
+ * 鎸夋湇鍔″尯鍩熺瓫閫�
+ * 鎸変环鏍煎尯闂寸瓫閫�
+- 瀹為獙瀹ゅ姣�
+ * 妫�娴嬭兘鍔涘姣�
+ * 鏈嶅姟浠锋牸瀵规瘮
+ * 妫�娴嬪懆鏈熷姣�
+ * 鏈嶅姟璇勪环瀵规瘮
+
+### 1.2 瀹為獙瀹よ瘎浠�
+- 鏈嶅姟璇勪环
+ * 妫�娴嬭川閲忚瘎浠�
+ * 鏈嶅姟鎬佸害璇勪环
+ * 妫�娴嬪懆鏈熻瘎浠�
+ * 浠锋牸鍚堢悊鎬ц瘎浠�
+- 璇勪环绠＄悊
+ * 璇勪环璁板綍鏌ョ湅
+ * 璇勪环缁熻鍒嗘瀽
+ * 璇勪环鍒嗕韩
+
+## 2. 鏍峰搧绠＄悊
+
+### 2.1 濮旀墭鐢宠
+- 瀹為獙瀹ら�夋嫨
+ * 瀹為獙瀹ゅ垪琛ㄦ煡鐪�
+ * 瀹為獙瀹よ鎯呮煡鐪�
+ * 瀹為獙瀹よ兘鍔涚‘璁�
+ * 瀹為獙瀹や环鏍肩‘璁�
+- 鏍峰搧淇℃伅褰曞叆
+ * 鍩烘湰淇℃伅濉啓
+ * 妫�娴嬮」鐩�夋嫨
+ * 妫�娴嬫爣鍑嗛�夋嫨
+ * 鏍峰搧鐓х墖涓婁紶
+ * 鐗规畩瑕佹眰璇存槑
+- 濮旀墭鍗曠鐞�
+ * 濮旀墭鍗曚繚瀛�/淇敼
+ * 濮旀墭鍗曟彁浜�
+ * 濮旀墭鍗曞彇娑�
+ * 濮旀墭鍗曞欢鏈�
+
+### 2.2 鏍峰搧杩借釜
+- 鏍峰搧鐘舵�佹煡璇�
+ * 鎺ユ敹鐘舵�佹煡璇�
+ * 妫�娴嬭繘搴︽煡璇�
+ * 瀹屾垚鐘舵�佹煡璇�
+- 妫�娴嬭繘搴︾鐞�
+ * 杩涘害鏃堕棿鑺傜偣
+ * 杩涘害鐘舵�佹洿鏂�
+ * 杩涘害寮傚父鎻愰啋
+- 鏍峰搧淇℃伅绠＄悊
+ * 鍩烘湰淇℃伅鏌ョ湅
+ * 妫�娴嬩俊鎭煡鐪�
+ * 澶勭悊璁板綍鏌ョ湅
+ * 鏍峰搧鐓х墖鏌ョ湅
+
+## 3. 鎶ュ憡绠＄悊
+
+### 3.1 鎶ュ憡鏌ヨ涓庢墦鍗�
+- 鎶ュ憡鍒楄〃鏌ョ湅
+ * 鎶ュ憡鐘舵�佺瓫閫�
+ * 鎶ュ憡绫诲瀷绛涢��
+ * 鏃堕棿鑼冨洿绛涢��
+ * 瀹為獙瀹ょ瓫閫�
+- 鎶ュ憡璇︽儏鏌ョ湅
+ * 鍩烘湰淇℃伅鏌ョ湅
+ * 妫�娴嬫暟鎹煡鐪�
+ * 妫�娴嬬粨鏋滄煡鐪�
+ * 瀹為獙瀹や俊鎭煡鐪�
+- 鎶ュ憡鎵撳嵃
+ * 鎵撳嵃璁剧疆
+ * 鎵撳嵃棰勮
+ * 鎵撳嵃鎵ц
+ * 鎵归噺鎵撳嵃
+
+### 3.2 鎶ュ憡楠岃瘉涓庣鐞�
+- 鎶ュ憡楠岃瘉
+ * 鎶ュ憡缂栧彿楠岃瘉
+ * 浜岀淮鐮侀獙璇�
+ * 鐢靛瓙绛惧悕楠岃瘉
+ * 鎶ュ憡鏈夋晥鏈熸煡璇�
+- 鎶ュ憡绠＄悊
+ * 鎶ュ憡鏀惰棌
+ * 鎶ュ憡鍒嗕韩
+ * 鎶ュ憡褰掓。
+ * 鎶ュ憡瀵煎嚭
+
+## 4. 璐圭敤绠＄悊
+
+### 4.1 璐圭敤鏌ヨ涓庢敮浠�
+- 璐圭敤鏌ヨ
+ * 璐圭敤鏄庣粏鏌ヨ
+ * 璐圭敤缁熻鏌ヨ
+ * 鍘嗗彶璐﹀崟鏌ヨ
+ * 鏀粯璁板綍鏌ヨ
+ * 瀹為獙瀹よ垂鐢ㄥ姣�
+- 鍦ㄧ嚎鏀粯
+ * 寰俊鏀粯
+ * 鏀粯瀹濇敮浠�
+ * 鍏朵粬鏀粯鏂瑰紡
+ * 鏀粯鐘舵�佹煡璇�
+
+### 4.2 鍙戠エ绠＄悊
+- 鍙戠エ鐢宠
+ * 鍙戠エ淇℃伅濉啓
+ * 鍙戠エ绫诲瀷閫夋嫨
+ * 鍙戠エ閲戦纭
+- 鍙戠エ鏌ヨ
+ * 鍙戠エ鐘舵�佹煡璇�
+ * 鍙戠エ淇℃伅鏌ヨ
+ * 鍙戠エ璁板綍鏌ヨ
+- 鍙戠エ涓嬭浇
+ * 鐢靛瓙鍙戠エ涓嬭浇
+ * 鍙戠エ鎵撳嵃
+ * 鍙戠エ瀵煎嚭
+
+## 5. 瀹㈡埛涓績
+
+### 5.1 涓汉淇℃伅
+- 鍩烘湰淇℃伅缁存姢
+ * 涓汉璧勬枡缁存姢
+ * 浼佷笟淇℃伅缁存姢
+ * 璧勮川淇℃伅缁存姢
+- 鑱旂郴浜虹鐞�
+ * 鑱旂郴浜烘坊鍔�/淇敼/鍒犻櫎
+ * 鍦板潃绠＄悊
+ * 甯哥敤鍦板潃璁剧疆
+- 甯哥敤瀹為獙瀹�
+ * 瀹為獙瀹ゆ敹钘�
+ * 瀹為獙瀹よ瘎浠�
+ * 瀹為獙瀹ゅ姣�
+
+### 5.2 璐︽埛绠＄悊
+- 璐︽埛淇℃伅
+ * 璐︽埛鍩烘湰淇℃伅
+ * 璐︽埛浣跨敤璁板綍
+ * 璐︽埛瀹夊叏璁剧疆
+- 瀵嗙爜绠＄悊
+ * 瀵嗙爜淇敼
+ * 瀵嗙爜閲嶇疆
+ * 瀹夊叏闂璁剧疆
+- 鐧诲綍绠＄悊
+ * 鐧诲綍璁板綍
+ * 璁惧绠＄悊
+ * 瀹夊叏璁剧疆
+
+### 5.3 娑堟伅涓績
+- 绯荤粺閫氱煡
+ * 绯荤粺鍏憡
+ * 鏈嶅姟閫氱煡
+ * 娲诲姩閫氱煡
+- 涓氬姟閫氱煡
+ * 鏍峰搧杩涘害閫氱煡
+ * 鎶ュ憡鐘舵�侀�氱煡
+ * 璐圭敤鏀粯閫氱煡
+ * 鍙戠エ寮�鍏烽�氱煡
+- 瀹為獙瀹ら�氱煡
+ * 瀹為獙瀹ゅ叕鍛�
+ * 瀹為獙瀹ゆ椿鍔�
+ * 瀹為獙瀹ゆ湇鍔″彉鏇�
+
+## 6. 鍦ㄧ嚎鏈嶅姟
+
+### 6.1 妫�娴嬪挩璇�
+- 椤圭洰鍜ㄨ
+ * 椤圭洰浠嬬粛鍜ㄨ
+ * 椤圭洰浠锋牸鍜ㄨ
+ * 椤圭洰鍛ㄦ湡鍜ㄨ
+ * 瀹為獙瀹よ兘鍔涘挩璇�
+- 鏍囧噯鍜ㄨ
+ * 鏍囧噯鍐呭鍜ㄨ
+ * 鏍囧噯鏇存柊鍜ㄨ
+ * 鏍囧噯搴旂敤鍜ㄨ
+ * 瀹為獙瀹ゆ爣鍑嗗姣�
+- 鏈嶅姟鍜ㄨ
+ * 鍛ㄦ湡璁＄畻鍜ㄨ
+ * 鍔犳�ユ湇鍔″挩璇�
+ * 杩涘害鏌ヨ鍜ㄨ
+ * 瀹為獙瀹ゆ湇鍔″姣�
+
+### 6.2 棰勭害鏈嶅姟
+- 涓婇棬鍙栨牱
+ * 棰勭害鏃堕棿閫夋嫨
+ * 棰勭害鍦板潃纭
+ * 棰勭害淇℃伅纭
+ * 瀹為獙瀹ら�夋嫨
+- 鐜板満妫�娴�
+ * 妫�娴嬫椂闂撮绾�
+ * 妫�娴嬪湴鐐归绾�
+ * 妫�娴嬮」鐩绾�
+ * 瀹為獙瀹ら�夋嫨
+- 鍔犳�ユ湇鍔�
+ * 鍔犳�ユ椂闂撮绾�
+ * 鍔犳�ラ」鐩绾�
+ * 鍔犳�ヨ垂鐢ㄧ‘璁�
+ * 瀹為獙瀹ら�夋嫨
+
+### 6.3 鎶曡瘔寤鸿
+- 鍦ㄧ嚎鎶曡瘔
+ * 鎶曡瘔绫诲瀷閫夋嫨
+ * 鎶曡瘔鍐呭濉啓
+ * 鎶曡瘔澶勭悊璺熻釜
+ * 瀹為獙瀹ゆ姇璇�
+- 鎰忚鍙嶉
+ * 鍙嶉绫诲瀷閫夋嫨
+ * 鍙嶉鍐呭濉啓
+ * 鍙嶉澶勭悊璺熻釜
+- 鏈嶅姟璇勪环
+ * 鏈嶅姟璇勫垎
+ * 璇勪环鍐呭
+ * 璇勪环璁板綍
+ * 瀹為獙瀹よ瘎浠�
+
+## 7. 鏁版嵁缁熻
+
+### 7.1 濮旀墭缁熻
+- 鏁伴噺缁熻
+ * 鎬诲鎵樻暟閲�
+ * 濮旀墭绫诲瀷缁熻
+ * 濮旀墭瓒嬪娍鍒嗘瀽
+ * 瀹為獙瀹ゅ鎵樺垎甯�
+- 绫诲瀷缁熻
+ * 妫�娴嬬被鍨嬬粺璁�
+ * 鏍峰搧绫诲瀷缁熻
+ * 瀹㈡埛绫诲瀷缁熻
+ * 瀹為獙瀹ょ被鍨嬬粺璁�
+- 閲戦缁熻
+ * 鎬诲鎵橀噾棰�
+ * 璐圭敤绫诲瀷缁熻
+ * 璐圭敤瓒嬪娍鍒嗘瀽
+ * 瀹為獙瀹よ垂鐢ㄥ姣�
+
+### 7.2 鎶ュ憡缁熻
+- 鏁伴噺缁熻
+ * 鎬绘姤鍛婃暟閲�
+ * 鎶ュ憡绫诲瀷缁熻
+ * 鎶ュ憡瓒嬪娍鍒嗘瀽
+ * 瀹為獙瀹ゆ姤鍛婂垎甯�
+- 绫诲瀷缁熻
+ * 鎶ュ憡鏍煎紡缁熻
+ * 鎶ュ憡鐢ㄩ�旂粺璁�
+ * 鎶ュ憡鐘舵�佺粺璁�
+ * 瀹為獙瀹ゆ姤鍛婂姣�
+
+## 8. 浣嶇疆鏈嶅姟
+
+### 8.1 浣嶇疆鏌ヨ
+- 瀹為獙瀹や綅缃�
+ * 浣嶇疆淇℃伅鏌ヨ
+ * 浣嶇疆瀵艰埅鏈嶅姟
+ * 浣嶇疆鍒嗕韩鏈嶅姟
+ * 瀹為獙瀹ゅ垎甯冨湴鍥�
+- 涓婇棬鍙栨牱浣嶇疆
+ * 浣嶇疆淇℃伅纭
+ * 浣嶇疆瀵艰埅鏈嶅姟
+ * 浣嶇疆鍒嗕韩鏈嶅姟
+
+### 8.2 瀵艰埅鏈嶅姟
+- 璺嚎瑙勫垝
+ * 鏈�浼樿矾绾�
+ * 瀹炴椂瀵艰埅
+ * 浣嶇疆鍒嗕韩
+ * 瀹為獙瀹ゅ鑸�
+- 浣嶇疆绠＄悊
+ * 甯哥敤浣嶇疆
+ * 浣嶇疆鏀惰棌
+ * 浣嶇疆鍒嗕韩
+ * 瀹為獙瀹や綅缃敹钘�
\ No newline at end of file
diff --git "a/word/\345\271\263\345\217\260\347\253\257\345\256\236\351\252\214\347\256\241\347\220\206\345\212\237\350\203\275\350\257\264\346\230\216.md" "b/word/\345\271\263\345\217\260\347\253\257\345\256\236\351\252\214\347\256\241\347\220\206\345\212\237\350\203\275\350\257\264\346\230\216.md"
new file mode 100644
index 0000000..37d4e61
--- /dev/null
+++ "b/word/\345\271\263\345\217\260\347\253\257\345\256\236\351\252\214\347\256\241\347\220\206\345\212\237\350\203\275\350\257\264\346\230\216.md"
@@ -0,0 +1,352 @@
+# LIMS绯荤粺骞冲彴绔疄楠岀鐞嗗姛鑳借鏄庢枃妗�
+
+## 1. 瀹為獙鏁版嵁閲囬泦绠＄悊
+
+### 1.1 鏁版嵁閲囬泦閰嶇疆
+- 閲囬泦妯℃澘绠＄悊
+ * 妯℃澘璁捐
+ * 妯℃澘閰嶇疆
+ * 妯℃澘鐗堟湰绠＄悊
+ * 妯℃澘浣跨敤璁板綍
+- 閲囬泦瑙勫垯绠＄悊
+ * 鏁版嵁鏍煎紡瑙勫垯
+ * 鏁版嵁楠岃瘉瑙勫垯
+ * 鏁版嵁杞崲瑙勫垯
+ * 鏁版嵁鍏宠仈瑙勫垯
+- 閲囬泦璁惧绠＄悊
+ * 璁惧鎺ュ彛閰嶇疆
+ * 璁惧鍙傛暟璁剧疆
+ * 璁惧鐘舵�佺洃鎺�
+ * 璁惧鏁版嵁鏄犲皠
+
+### 1.2 鏁版嵁閲囬泦鎵ц
+- 鑷姩閲囬泦
+ * 璁惧鏁版嵁閲囬泦
+ * 浠櫒鏁版嵁閲囬泦
+ * 浼犳劅鍣ㄦ暟鎹噰闆�
+ * 绯荤粺鏁版嵁閲囬泦
+- 鎵嬪姩閲囬泦
+ * 浜哄伐褰曞叆
+ * 鏁版嵁瀵煎叆
+ * 鏁版嵁澶嶅埗
+ * 鏁版嵁淇敼
+- 閲囬泦鐩戞帶
+ * 閲囬泦鐘舵�佺洃鎺�
+ * 閲囬泦璐ㄩ噺鐩戞帶
+ * 閲囬泦寮傚父鐩戞帶
+ * 閲囬泦鏁堢巼鐩戞帶
+
+### 1.3 鏁版嵁閲囬泦鍒嗘瀽
+- 閲囬泦缁熻
+ * 閲囬泦鏁伴噺缁熻
+ * 閲囬泦绫诲瀷缁熻
+ * 閲囬泦璐ㄩ噺缁熻
+ * 閲囬泦鏁堢巼缁熻
+- 閲囬泦鍒嗘瀽
+ * 鏁版嵁璐ㄩ噺鍒嗘瀽
+ * 閲囬泦鏁堢巼鍒嗘瀽
+ * 寮傚父鍘熷洜鍒嗘瀽
+ * 鏀硅繘寤鸿
+- 閲囬泦浼樺寲
+ * 閲囬泦娴佺▼浼樺寲
+ * 閲囬泦鏁堢巼浼樺寲
+ * 閲囬泦璐ㄩ噺浼樺寲
+ * 閲囬泦鎴愭湰浼樺寲
+
+## 2. 瀹為獙鏍峰搧绠＄悊
+
+### 2.1 鏍峰搧淇℃伅绠＄悊
+- 鍩烘湰淇℃伅绠＄悊
+ * 鏍峰搧缂栧彿绠＄悊
+ * 鏍峰搧绫诲瀷绠＄悊
+ * 鏍峰搧鐘舵�佺鐞�
+ * 鏍峰搧灞炴�х鐞�
+- 鏍峰搧鍒嗙被绠＄悊
+ * 鏍峰搧绫诲埆鍒嗙被
+ * 鏍峰搧鐢ㄩ�斿垎绫�
+ * 鏍峰搧鐘舵�佸垎绫�
+ * 鏍峰搧绛夌骇鍒嗙被
+- 鏍峰搧鏍囪瘑绠＄悊
+ * 鏍囪瘑瑙勫垯绠＄悊
+ * 鏍囪瘑鐢熸垚绠＄悊
+ * 鏍囪瘑鎵撳嵃绠＄悊
+ * 鏍囪瘑楠岃瘉绠＄悊
+
+### 2.2 鏍峰搧娴佽浆绠＄悊
+- 鏍峰搧鎺ユ敹
+ * 鎺ユ敹鐧昏
+ * 鎺ユ敹纭
+ * 鎺ユ敹妫�楠�
+ * 鎺ユ敹璁板綍
+- 鏍峰搧鍒嗛厤
+ * 鍒嗛厤瑙勫垯
+ * 鍒嗛厤鎵ц
+ * 鍒嗛厤纭
+ * 鍒嗛厤璁板綍
+- 鏍峰搧瀛樺偍
+ * 瀛樺偍浣嶇疆绠＄悊
+ * 瀛樺偍鏉′欢绠＄悊
+ * 瀛樺偍鐜鐩戞帶
+ * 瀛樺偍璁板綍绠＄悊
+- 鏍峰搧澶勭悊
+ * 澶勭悊鏂规绠＄悊
+ * 澶勭悊杩囩▼璁板綍
+ * 澶勭悊缁撴灉璁板綍
+ * 澶勭悊璐ㄩ噺鎺у埗
+- 鏍峰搧閿�姣�
+ * 閿�姣佺敵璇�
+ * 閿�姣佸鎵�
+ * 閿�姣佹墽琛�
+ * 閿�姣佽褰�
+
+### 2.3 鏍峰搧杩借釜绠＄悊
+- 浣嶇疆杩借釜
+ * 褰撳墠浣嶇疆鏌ヨ
+ * 鍘嗗彶浣嶇疆鏌ヨ
+ * 浣嶇疆鍙樻洿璁板綍
+ * 浣嶇疆寮傚父鎶ヨ
+- 鐘舵�佽拷韪�
+ * 褰撳墠鐘舵�佹煡璇�
+ * 鐘舵�佸彉鏇磋褰�
+ * 鐘舵�佸紓甯告姤璀�
+ * 鐘舵�佺粺璁″垎鏋�
+- 杩囩▼杩借釜
+ * 澶勭悊杩囩▼璁板綍
+ * 妫�娴嬭繃绋嬭褰�
+ * 瀛樺偍杩囩▼璁板綍
+ * 娴佽浆杩囩▼璁板綍
+
+## 3. 瀹為獙鎶ュ憡绠＄悊
+
+### 3.1 鎶ュ憡妯℃澘绠＄悊
+- 妯℃澘璁捐
+ * 妯℃澘鏍煎紡璁捐
+ * 妯℃澘鍐呭璁捐
+ * 妯℃澘鏍峰紡璁捐
+ * 妯℃澘棰勮
+- 妯℃澘閰嶇疆
+ * 妯℃澘鍙傛暟閰嶇疆
+ * 妯℃澘瑙勫垯閰嶇疆
+ * 妯℃澘鏉冮檺閰嶇疆
+ * 妯℃澘浣跨敤閰嶇疆
+- 妯℃澘缁存姢
+ * 妯℃澘鐗堟湰绠＄悊
+ * 妯℃澘鏇存柊绠＄悊
+ * 妯℃澘瀹℃牳绠＄悊
+ * 妯℃澘褰掓。绠＄悊
+
+### 3.2 鎶ュ憡鐢熸垚绠＄悊
+- 鏁版嵁鍑嗗
+ * 鍘熷鏁版嵁鏁寸悊
+ * 璁＄畻缁撴灉鏁寸悊
+ * 璐ㄦ帶鏁版嵁鏁寸悊
+ * 寮傚父鏁版嵁鏁寸悊
+- 鎶ュ憡缂栧埗
+ * 鎶ュ憡鍐呭缂栧啓
+ * 鎶ュ憡鏍煎紡璋冩暣
+ * 鎶ュ憡瀹℃牳
+ * 鎶ュ憡绛惧彂
+- 鎶ュ憡绠＄悊
+ * 鎶ュ憡瀛樺偍
+ * 鎶ュ憡鏌ヨ
+ * 鎶ュ憡鎵撳嵃
+ * 鎶ュ憡褰掓。
+- 鎶ュ憡鏉冮檺鎺у埗
+ * 棰勪粯娆炬煡鐪嬫潈闄�
+ * 瀹屾暣鎶ュ憡鏌ョ湅鏉冮檺
+ * 鎶ュ憡涓嬭浇鏉冮檺
+ * 鎶ュ憡鎵撳嵃鏉冮檺
+
+### 3.3 鎶ュ憡瀹℃牳绠＄悊
+- 瀹℃牳娴佺▼
+ * 娴佺▼璁捐
+ * 娴佺▼閰嶇疆
+ * 娴佺▼鎵ц
+ * 娴佺▼鐩戞帶
+- 瀹℃牳鏍囧噯
+ * 鏍囧噯鍒跺畾
+ * 鏍囧噯閰嶇疆
+ * 鏍囧噯鎵ц
+ * 鏍囧噯璇勪及
+- 瀹℃牳璁板綍
+ * 瀹℃牳杩囩▼璁板綍
+ * 瀹℃牳缁撴灉璁板綍
+ * 瀹℃牳鎰忚璁板綍
+ * 瀹℃牳缁熻
+
+### 3.4 鎶ュ憡缁熻鍒嗘瀽
+- 鎶ュ憡缁熻
+ * 鎶ュ憡鏁伴噺缁熻
+ * 鎶ュ憡绫诲瀷缁熻
+ * 鎶ュ憡璐ㄩ噺缁熻
+ * 鎶ュ憡鏁堢巼缁熻
+- 鎶ュ憡鍒嗘瀽
+ * 璐ㄩ噺鍒嗘瀽
+ * 鏁堢巼鍒嗘瀽
+ * 闂鍒嗘瀽
+ * 鏀硅繘寤鸿
+- 鎶ュ憡搴旂敤
+ * 鏁版嵁鎸栨帢
+ * 瓒嬪娍鍒嗘瀽
+ * 鍐崇瓥鏀寔
+ * 鎸佺画鏀硅繘
+
+## 4. 瀹為獙鏁版嵁绠＄悊
+
+### 4.1 鏁版嵁瀛樺偍绠＄悊
+- 瀛樺偍绛栫暐
+ * 瀛樺偍缁撴瀯璁捐
+ * 瀛樺偍鏂瑰紡閫夋嫨
+ * 瀛樺偍瀹归噺瑙勫垝
+ * 瀛樺偍鎬ц兘浼樺寲
+- 鏁版嵁澶囦唤
+ * 澶囦唤绛栫暐
+ * 澶囦唤鎵ц
+ * 澶囦唤楠岃瘉
+ * 澶囦唤鎭㈠
+- 鏁版嵁褰掓。
+ * 褰掓。绛栫暐
+ * 褰掓。鎵ц
+ * 褰掓。鏌ヨ
+ * 褰掓。鎭㈠
+
+### 4.2 鏁版嵁澶勭悊绠＄悊
+- 鏁版嵁娓呮礂
+ * 鏁版嵁楠岃瘉
+ * 鏁版嵁淇
+ * 鏁版嵁琛ュ厖
+ * 鏁版嵁鍒犻櫎
+- 鏁版嵁杞崲
+ * 鏍煎紡杞崲
+ * 鍗曚綅杞崲
+ * 缂栫爜杞崲
+ * 绯荤粺杞崲
+- 鏁版嵁璁＄畻
+ * 璁＄畻鍏紡
+ * 璁＄畻鎵ц
+ * 缁撴灉楠岃瘉
+ * 寮傚父澶勭悊
+
+### 4.3 鏁版嵁瀹夊叏绠＄悊
+- 璁块棶鎺у埗
+ * 鐢ㄦ埛璁よ瘉
+ * 鏉冮檺鎺у埗
+ * 鎿嶄綔瀹¤
+ * 瀹夊叏鏃ュ織
+- 鏁版嵁鍔犲瘑
+ * 鍔犲瘑绛栫暐
+ * 鍔犲瘑瀹炵幇
+ * 瀵嗛挜绠＄悊
+ * 鍔犲瘑鐩戞帶
+- 鏁版嵁淇濇姢
+ * 鏁版嵁澶囦唤
+ * 鏁版嵁鎭㈠
+ * 鏁版嵁闅旂
+ * 鏁版嵁閿�姣�
+
+## 5. 瀹為獙璐ㄩ噺鎺у埗
+
+### 5.1 璐ㄩ噺鎺у埗璁″垝
+- 鎺у埗鐐硅缃�
+ * 鍏抽敭鎺у埗鐐�
+ * 鎺у埗鏍囧噯
+ * 鎺у埗鏂规硶
+ * 鎺у埗棰戠巼
+- 鎺у埗鏍囧噯
+ * 鏍囧噯鍒跺畾
+ * 鏍囧噯閰嶇疆
+ * 鏍囧噯鎵ц
+ * 鏍囧噯璇勪及
+- 鎺у埗鏂规硶
+ * 鏂规硶閫夋嫨
+ * 鏂规硶楠岃瘉
+ * 鏂规硶鎵ц
+ * 鏂规硶璇勪及
+
+### 5.2 璐ㄩ噺鎺у埗鎵ц
+- 杩囩▼鎺у埗
+ * 鏍峰搧鎺у埗
+ * 妫�娴嬫帶鍒�
+ * 鏁版嵁鎺у埗
+ * 鎶ュ憡鎺у埗
+- 缁撴灉鎺у埗
+ * 缁撴灉楠岃瘉
+ * 缁撴灉纭
+ * 缁撴灉璇勪及
+ * 缁撴灉澶勭悊
+- 寮傚父澶勭悊
+ * 寮傚父鍙戠幇
+ * 鍘熷洜鍒嗘瀽
+ * 澶勭悊鎺柦
+ * 璺熻釜楠岃瘉
+
+### 5.3 璐ㄩ噺鍒嗘瀽鏀硅繘
+- 璐ㄩ噺缁熻
+ * 璐ㄩ噺鎸囨爣缁熻
+ * 璐ㄩ噺瓒嬪娍鍒嗘瀽
+ * 璐ㄩ噺鍒嗗竷鍒嗘瀽
+ * 璐ㄩ噺瀵规瘮鍒嗘瀽
+- 璐ㄩ噺璇勪及
+ * 璐ㄩ噺姘村钩璇勪及
+ * 璐ㄩ噺绋冲畾鎬ц瘎浼�
+ * 璐ㄩ噺鍙潬鎬ц瘎浼�
+ * 璐ㄩ噺鏀硅繘璇勪及
+- 鎸佺画鏀硅繘
+ * 鏀硅繘璁″垝
+ * 鏀硅繘瀹炴柦
+ * 鏀硅繘楠岃瘉
+ * 鏀硅繘鎬荤粨
+
+## 6. 璁㈠崟绠＄悊
+
+### 6.1 璁㈠崟淇℃伅绠＄悊
+- 璁㈠崟鍒涘缓
+ * 瀹㈡埛淇℃伅褰曞叆
+ * 妫�娴嬮」鐩�夋嫨
+ * 鏍峰搧淇℃伅褰曞叆
+ * 璁㈠崟閲戦璁＄畻
+- 璁㈠崟鐘舵�佺鐞�
+ * 寰呬粯娆剧姸鎬�
+ * 棰勪粯娆剧姸鎬�
+ * 妫�娴嬩腑鐘舵��
+ * 寰呭熬娆剧姸鎬�
+ * 宸插畬鎴愮姸鎬�
+- 璁㈠崟鏌ヨ
+ * 璁㈠崟鍩烘湰淇℃伅
+ * 璁㈠崟鐘舵�佹煡璇�
+ * 璁㈠崟杩涘害鏌ヨ
+ * 璁㈠崟鍘嗗彶璁板綍
+
+### 6.2 璁㈠崟鏀粯绠＄悊
+- 棰勪粯娆剧鐞�
+ * 棰勪粯娆鹃噾棰濊缃�
+ * 棰勪粯娆炬敮浠樼‘璁�
+ * 棰勪粯娆惧彂绁ㄥ紑鍏�
+ * 棰勪粯娆捐褰曟煡璇�
+- 灏炬绠＄悊
+ * 灏炬閲戦璁＄畻
+ * 灏炬鏀粯纭
+ * 灏炬鍙戠エ寮�鍏�
+ * 灏炬璁板綍鏌ヨ
+- 鏀粯璁板綍
+ * 鏀粯鏂瑰紡璁板綍
+ * 鏀粯鏃堕棿璁板綍
+ * 鏀粯鐘舵�佽褰�
+ * 鏀粯鍑瘉绠＄悊
+
+### 6.3 璁㈠崟缁熻鍒嗘瀽
+- 璁㈠崟缁熻
+ * 璁㈠崟鏁伴噺缁熻
+ * 璁㈠崟閲戦缁熻
+ * 璁㈠崟绫诲瀷缁熻
+ * 璁㈠崟鐘舵�佺粺璁�
+- 鏀粯缁熻
+ * 棰勪粯娆剧粺璁�
+ * 灏炬缁熻
+ * 鏀粯鏂瑰紡缁熻
+ * 鏀粯鍛ㄦ湡缁熻
+- 涓氬姟鍒嗘瀽
+ * 瀹㈡埛鍒嗘瀽
+ * 椤圭洰鍒嗘瀽
+ * 鏀跺叆鍒嗘瀽
+ * 瓒嬪娍鍒嗘瀽
\ No newline at end of file
diff --git "a/word/\345\271\263\345\217\260\347\256\241\347\220\206\347\253\257\345\212\237\350\203\275\350\257\264\346\230\216.md" "b/word/\345\271\263\345\217\260\347\256\241\347\220\206\347\253\257\345\212\237\350\203\275\350\257\264\346\230\216.md"
new file mode 100644
index 0000000..54e07aa
--- /dev/null
+++ "b/word/\345\271\263\345\217\260\347\256\241\347\220\206\347\253\257\345\212\237\350\203\275\350\257\264\346\230\216.md"
@@ -0,0 +1,672 @@
+# LIMS绯荤粺骞冲彴绠＄悊绔姛鑳借鏄庢枃妗�
+
+## 1. 瀹為獙瀹ょ鐞�
+
+### 1.1 瀹為獙瀹や俊鎭鐞�
+- 鍩烘湰淇℃伅绠＄悊
+ * 瀹為獙瀹ゅ熀鏈俊鎭�
+ - 鍔熻兘鎻忚堪锛氱鐞嗗疄楠屽鐨勫熀鏈俊鎭紝鍖呮嫭瀹為獙瀹ゅ悕绉般�佷唬鐮併�佸湴鍧�銆佽仈绯绘柟寮忕瓑
+ - 鍔熻兘瑕佺偣锛�
+ * 瀹為獙瀹ゅ熀纭�淇℃伅褰曞叆涓庣淮鎶�
+ * 瀹為獙瀹や俊鎭彉鏇寸鐞�
+ * 瀹為獙瀹や俊鎭煡璇笌瀵煎嚭
+ * 瀹為獙瀹や俊鎭粺璁″垎鏋�
+ * 瀹為獙瀹よ仈绯绘柟寮�
+ - 鍔熻兘鎻忚堪锛氱鐞嗗疄楠屽鐨勮仈绯讳俊鎭紝鍖呮嫭鑱旂郴浜恒�佺數璇濄�侀偖绠辩瓑
+ - 鍔熻兘瑕佺偣锛�
+ * 鑱旂郴浜轰俊鎭鐞�
+ * 鑱旂郴鏂瑰紡鍙樻洿绠＄悊
+ * 鑱旂郴鏂瑰紡鏌ヨ
+ * 鑱旂郴鏂瑰紡鏈夋晥鎬ч獙璇�
+ * 瀹為獙瀹ゅ湴鐞嗕綅缃�
+ - 鍔熻兘鎻忚堪锛氱鐞嗗疄楠屽鐨勫湴鐞嗕綅缃俊鎭紝鍖呮嫭璇︾粏鍦板潃銆佺粡绾害绛�
+ - 鍔熻兘瑕佺偣锛�
+ * 鍦扮悊浣嶇疆淇℃伅褰曞叆
+ * 鍦板浘浣嶇疆鏍囨敞
+ * 浣嶇疆淇℃伅鏌ヨ
+ * 浣嶇疆淇℃伅缁熻鍒嗘瀽
+ * 瀹為獙瀹よ礋璐ｄ汉
+ - 鍔熻兘鎻忚堪锛氱鐞嗗疄楠屽璐熻矗浜轰俊鎭紝鍖呮嫭鍩烘湰淇℃伅銆佽仈绯绘柟寮忕瓑
+ - 鍔熻兘瑕佺偣锛�
+ * 璐熻矗浜轰俊鎭鐞�
+ * 璐熻矗浜哄彉鏇寸鐞�
+ * 璐熻矗浜烘潈闄愮鐞�
+ * 璐熻矗浜哄伐浣滅粺璁�
+
+- 妫�娴嬭兘鍔涚鐞�
+ * 妫�娴嬮」鐩厤缃�
+ - 鍔熻兘鎻忚堪锛氱鐞嗗疄楠屽鍙紑灞曠殑妫�娴嬮」鐩俊鎭�
+ - 鍔熻兘瑕佺偣锛�
+ * 妫�娴嬮」鐩俊鎭綍鍏�
+ * 妫�娴嬮」鐩垎绫荤鐞�
+ * 妫�娴嬮」鐩姸鎬佺鐞�
+ * 妫�娴嬮」鐩粺璁″垎鏋�
+ * 妫�娴嬫爣鍑嗛厤缃�
+ - 鍔熻兘鎻忚堪锛氱鐞嗘娴嬮」鐩搴旂殑鏍囧噯淇℃伅
+ - 鍔熻兘瑕佺偣锛�
+ * 鏍囧噯淇℃伅褰曞叆
+ * 鏍囧噯鐗堟湰绠＄悊
+ * 鏍囧噯鏈夋晥鎬х鐞�
+ * 鏍囧噯浣跨敤缁熻
+ * 妫�娴嬭澶囬厤缃�
+ - 鍔熻兘鎻忚堪锛氱鐞嗘娴嬫墍闇�鐨勮澶囦俊鎭�
+ - 鍔熻兘瑕佺偣锛�
+ * 璁惧鍩烘湰淇℃伅绠＄悊
+ * 璁惧鐘舵�佺鐞�
+ * 璁惧鏍″噯绠＄悊
+ * 璁惧浣跨敤缁熻
+ * 妫�娴嬩汉鍛橀厤缃�
+ - 鍔熻兘鎻忚堪锛氱鐞嗘娴嬩汉鍛樹俊鎭強璧勮川
+ - 鍔熻兘瑕佺偣锛�
+ * 浜哄憳鍩烘湰淇℃伅绠＄悊
+ * 浜哄憳璧勮川绠＄悊
+ * 浜哄憳鎺掔彮绠＄悊
+ * 浜哄憳宸ヤ綔閲忕粺璁�
+
+- 鏈嶅姟閰嶇疆绠＄悊
+ * 鏈嶅姟鍖哄煙閰嶇疆
+ - 鍔熻兘鎻忚堪锛氱鐞嗗疄楠屽鐨勬湇鍔″尯鍩熻寖鍥�
+ - 鍔熻兘瑕佺偣锛�
+ * 鏈嶅姟鍖哄煙璁剧疆
+ * 鍖哄煙浠锋牸閰嶇疆
+ * 鍖哄煙鏈嶅姟鏃堕棿閰嶇疆
+ * 鍖哄煙鏈嶅姟缁熻
+ * 鏈嶅姟鏃堕棿閰嶇疆
+ - 鍔熻兘鎻忚堪锛氱鐞嗗疄楠屽鐨勬湇鍔℃椂闂村畨鎺�
+ - 鍔熻兘瑕佺偣锛�
+ * 宸ヤ綔鏃堕棿璁剧疆
+ * 鑺傚亣鏃ュ畨鎺�
+ * 鍔犳�ユ湇鍔℃椂闂�
+ * 鏈嶅姟鏃堕棿缁熻
+ * 鏈嶅姟浠锋牸閰嶇疆
+ - 鍔熻兘鎻忚堪锛氱鐞嗗悇椤规湇鍔＄殑浠锋牸淇℃伅
+ - 鍔熻兘瑕佺偣锛�
+ * 鍩虹浠锋牸璁剧疆
+ * 鍔犳�ヤ环鏍艰缃�
+ * 鐗规畩鏈嶅姟浠锋牸
+ * 浠锋牸璋冩暣绠＄悊
+ * 鍔犳�ユ湇鍔￠厤缃�
+ - 鍔熻兘鎻忚堪锛氱鐞嗗姞鎬ユ湇鍔＄殑鐩稿叧閰嶇疆
+ - 鍔熻兘瑕佺偣锛�
+ * 鍔犳�ユ湇鍔＄被鍨嬭缃�
+ * 鍔犳�ユ湇鍔′环鏍艰缃�
+ * 鍔犳�ユ湇鍔℃椂闂磋缃�
+ * 鍔犳�ユ湇鍔＄粺璁�
+
+### 1.2 瀹為獙瀹よ繍钀ョ鐞�
+- 浜哄憳绠＄悊
+ * 浜哄憳淇℃伅绠＄悊
+ - 鍔熻兘鎻忚堪锛氱鐞嗗疄楠屽浜哄憳鐨勫熀鏈俊鎭�
+ - 鍔熻兘瑕佺偣锛�
+ * 浜哄憳鍩烘湰淇℃伅褰曞叆
+ * 浜哄憳淇℃伅鍙樻洿绠＄悊
+ * 浜哄憳淇℃伅鏌ヨ
+ * 浜哄憳淇℃伅缁熻
+ * 浜哄憳鎺掔彮绠＄悊
+ - 鍔熻兘鎻忚堪锛氱鐞嗗疄楠屽浜哄憳鐨勬帓鐝畨鎺�
+ - 鍔熻兘瑕佺偣锛�
+ * 鎺掔彮璁″垝鍒跺畾
+ * 鎺掔彮璋冩暣绠＄悊
+ * 鎺掔彮鏌ヨ
+ * 鎺掔彮缁熻
+ * 浜哄憳缁╂晥绠＄悊
+ - 鍔熻兘鎻忚堪锛氱鐞嗗疄楠屽浜哄憳鐨勭哗鏁堜俊鎭�
+ - 鍔熻兘瑕佺偣锛�
+ * 缁╂晥鎸囨爣璁剧疆
+ * 缁╂晥鏁版嵁褰曞叆
+ * 缁╂晥璇勪及
+ * 缁╂晥缁熻
+
+- 璁惧绠＄悊
+ * 璁惧淇℃伅绠＄悊
+ - 鍔熻兘鎻忚堪锛氱鐞嗗疄楠屽璁惧鐨勫熀鏈俊鎭�
+ - 鍔熻兘瑕佺偣锛�
+ * 璁惧鍩烘湰淇℃伅褰曞叆
+ * 璁惧淇℃伅鍙樻洿绠＄悊
+ * 璁惧淇℃伅鏌ヨ
+ * 璁惧淇℃伅缁熻
+ * 璁惧浣跨敤绠＄悊
+ - 鍔熻兘鎻忚堪锛氱鐞嗚澶囩殑浣跨敤鎯呭喌
+ - 鍔熻兘瑕佺偣锛�
+ * 浣跨敤璁板綍绠＄悊
+ * 浣跨敤鐘舵�佺洃鎺�
+ * 浣跨敤鏁堢巼鍒嗘瀽
+ * 浣跨敤缁熻
+ * 璁惧缁存姢绠＄悊
+ - 鍔熻兘鎻忚堪锛氱鐞嗚澶囩殑缁存姢淇濆吇淇℃伅
+ - 鍔熻兘瑕佺偣锛�
+ * 缁存姢璁″垝鍒跺畾
+ * 缁存姢璁板綍绠＄悊
+ * 缁存姢鏁堟灉璇勪及
+ * 缁存姢缁熻
+ * 璁惧鏍″噯绠＄悊
+ - 鍔熻兘鎻忚堪锛氱鐞嗚澶囩殑鏍″噯淇℃伅
+ - 鍔熻兘瑕佺偣锛�
+ * 鏍″噯璁″垝鍒跺畾
+ * 鏍″噯璁板綍绠＄悊
+ * 鏍″噯缁撴灉璇勪及
+ * 鏍″噯缁熻
+
+- 璐ㄩ噺绠＄悊
+ * 璐ㄩ噺浣撶郴绠＄悊
+ - 鍔熻兘鎻忚堪锛氱鐞嗗疄楠屽璐ㄩ噺浣撶郴鏂囦欢
+ - 鍔熻兘瑕佺偣锛�
+ * 浣撶郴鏂囦欢绠＄悊
+ * 浣撶郴杩愯鐩戞帶
+ * 浣撶郴璇勫
+ * 浣撶郴鏀硅繘
+ * 璐ㄩ噺鎺у埗绠＄悊
+ - 鍔熻兘鎻忚堪锛氱鐞嗗疄楠屽璐ㄩ噺鎺у埗娲诲姩
+ - 鍔熻兘瑕佺偣锛�
+ * 璐ㄦ帶璁″垝鍒跺畾
+ * 璐ㄦ帶鏁版嵁绠＄悊
+ * 璐ㄦ帶缁撴灉鍒嗘瀽
+ * 璐ㄦ帶缁熻
+ * 璐ㄩ噺鏀硅繘绠＄悊
+ - 鍔熻兘鎻忚堪锛氱鐞嗚川閲忔敼杩涙椿鍔�
+ - 鍔熻兘瑕佺偣锛�
+ * 鏀硅繘璁″垝鍒跺畾
+ * 鏀硅繘鎺柦瀹炴柦
+ * 鏀硅繘鏁堟灉璇勪及
+ * 鏀硅繘缁熻
+ * 璐ㄩ噺鑰冩牳绠＄悊
+ - 鍔熻兘鎻忚堪锛氱鐞嗚川閲忚�冩牳娲诲姩
+ - 鍔熻兘瑕佺偣锛�
+ * 鑰冩牳鎸囨爣璁剧疆
+ * 鑰冩牳鏁版嵁绠＄悊
+ * 鑰冩牳缁撴灉鍒嗘瀽
+ * 鑰冩牳缁熻
+
+## 2. 瀹㈡埛绠＄悊
+
+### 2.1 瀹㈡埛淇℃伅绠＄悊
+- 鍩烘湰淇℃伅绠＄悊
+ * 瀹㈡埛璧勬枡绠＄悊
+ * 瀹㈡埛璧勮川绠＄悊
+ * 瀹㈡埛鑱旂郴浜虹鐞�
+ * 瀹㈡埛鍦板潃绠＄悊
+- 璐︽埛绠＄悊
+ * 璐︽埛淇℃伅绠＄悊
+ * 璐︽埛鐘舵�佺鐞�
+ * 璐︽埛鏉冮檺绠＄悊
+ * 璐︽埛瀹夊叏璁剧疆
+- 淇＄敤绠＄悊
+ * 淇＄敤璇勭骇绠＄悊
+ * 淇＄敤棰濆害绠＄悊
+ * 淇＄敤璁板綍绠＄悊
+ * 榛戝悕鍗曠鐞�
+
+### 2.2 瀹㈡埛鏈嶅姟绠＄悊
+- 鏈嶅姟閰嶇疆
+ * 鏈嶅姟椤圭洰閰嶇疆
+ * 鏈嶅姟浠锋牸閰嶇疆
+ * 鏈嶅姟鏉冮檺閰嶇疆
+ * 鏈嶅姟闄愬埗閰嶇疆
+- 鏈嶅姟鐩戞帶
+ * 鏈嶅姟浣跨敤鐩戞帶
+ * 鏈嶅姟璐ㄩ噺鐩戞帶
+ * 鏈嶅姟鎶曡瘔鐩戞帶
+ * 鏈嶅姟璇勪环鐩戞帶
+- 鏈嶅姟鍒嗘瀽
+ * 鏈嶅姟浣跨敤鍒嗘瀽
+ * 鏈嶅姟璐ㄩ噺鍒嗘瀽
+ * 瀹㈡埛婊℃剰搴﹀垎鏋�
+ * 鏈嶅姟鏀硅繘寤鸿
+
+## 3. 璁㈠崟绠＄悊
+
+### 3.1 璁㈠崟澶勭悊绠＄悊
+- 璁㈠崟璇勪及
+ * 妫�娴嬭兘鍔涜瘎浼�
+ - 妫�娴嬮」鐩瘎浼�
+ * 椤圭洰鍙鎬у垎鏋�
+ * 椤圭洰鎶�鏈姹傚垎鏋�
+ * 椤圭洰椋庨櫓鍒嗘瀽
+ * 椤圭洰鎴愭湰鍒嗘瀽
+ - 妫�娴嬫爣鍑嗚瘎浼�
+ * 鏍囧噯閫傜敤鎬у垎鏋�
+ * 鏍囧噯鏃舵晥鎬у垎鏋�
+ * 鏍囧噯鎴愭湰鍒嗘瀽
+ * 鏍囧噯椋庨櫓鍒嗘瀽
+ - 妫�娴嬪懆鏈熻瘎浼�
+ * 鏍峰搧澶勭悊鍛ㄦ湡
+ * 妫�娴嬪垎鏋愬懆鏈�
+ * 鎶ュ憡缂栧埗鍛ㄦ湡
+ * 瀹℃牳绛惧彂鍛ㄦ湡
+ - 妫�娴嬭垂鐢ㄨ瘎浼�
+ * 浜哄伐鎴愭湰鏍哥畻
+ * 璁惧鎴愭湰鏍哥畻
+ * 鏉愭枡鎴愭湰鏍哥畻
+ * 绠＄悊鎴愭湰鏍哥畻
+ * 瀹為獙瀹よ瘎浼�
+ - 瀹為獙瀹よ兘鍔涜瘎浼�
+ * 妫�娴嬭祫璐ㄨ瘎浼�
+ * 璁惧鑳藉姏璇勪及
+ * 浜哄憳鑳藉姏璇勪及
+ * 鎶�鏈兘鍔涜瘎浼�
+ - 瀹為獙瀹ゅ伐浣滈噺璇勪及
+ * 褰撳墠宸ヤ綔閲忕粺璁�
+ * 鏈潵宸ヤ綔閲忛娴�
+ * 浜哄憳鎺掔彮鎯呭喌
+ * 璁惧浣跨敤鎯呭喌
+ - 瀹為獙瀹や綅缃瘎浼�
+ * 鏍峰搧杩愯緭璺濈
+ * 杩愯緭鎴愭湰璇勪及
+ * 杩愯緭鏃堕棿璇勪及
+ * 杩愯緭椋庨櫓璇勪及
+ - 瀹為獙瀹や环鏍艰瘎浼�
+ * 甯傚満浠锋牸鍒嗘瀽
+ * 鎴愭湰浠锋牸鍒嗘瀽
+ * 鍒╂鼎绌洪棿鍒嗘瀽
+ * 绔炰簤鍔涘垎鏋�
+ * 鏂规鍒跺畾
+ - 妫�娴嬫柟妗堝埗瀹�
+ * 妫�娴嬫柟娉曢�夋嫨
+ * 妫�娴嬫祦绋嬭璁�
+ * 璐ㄩ噺鎺у埗鏂规
+ * 寮傚父澶勭悊鏂规
+ - 妫�娴嬪懆鏈熷埗瀹�
+ * 鏍峰搧鎺ユ敹鍛ㄦ湡
+ * 鏍峰搧澶勭悊鍛ㄦ湡
+ * 妫�娴嬪垎鏋愬懆鏈�
+ * 鎶ュ憡缂栧埗鍛ㄦ湡
+ - 妫�娴嬭垂鐢ㄥ埗瀹�
+ * 鍩虹妫�娴嬭垂鐢�
+ * 鍔犳�ユ湇鍔¤垂鐢�
+ * 鐗规畩瑕佹眰璐圭敤
+ * 鍏朵粬鐩稿叧璐圭敤
+ - 鏈嶅姟鏂规鍒跺畾
+ * 鏍峰搧鎺ユ敹鏂规
+ * 杩涘害璺熻釜鏂规
+ * 鎶ュ憡浜や粯鏂规
+ * 鍞悗鏈嶅姟鏂规
+ * 璇勪及纭
+ - 鏂规纭
+ * 鎶�鏈柟妗堢‘璁�
+ * 鏈嶅姟鏂规纭
+ * 寮傚父澶勭悊纭
+ * 璐ㄩ噺淇濊瘉纭
+ - 浠锋牸纭
+ * 璐圭敤鏄庣粏纭
+ * 鏀粯鏂瑰紡纭
+ * 鍙戠エ瑕佹眰纭
+ * 缁撶畻鏂瑰紡纭
+ - 鍛ㄦ湡纭
+ * 妫�娴嬪懆鏈熺‘璁�
+ * 鎶ュ憡鍛ㄦ湡纭
+ * 鍔犳�ユ湇鍔＄‘璁�
+ * 寤舵湡澶勭悊纭
+ - 鏈嶅姟纭
+ * 鏈嶅姟鍐呭纭
+ * 鏈嶅姟鏍囧噯纭
+ * 鏈嶅姟鍝嶅簲纭
+ * 鏈嶅姟淇濋殰纭
+- 璁㈠崟璺熻釜
+ * 璁㈠崟鐘舵�佽窡韪�
+ - 寰呯‘璁ょ姸鎬�
+ * 鏂规寰呯‘璁�
+ * 浠锋牸寰呯‘璁�
+ * 鍛ㄦ湡寰呯‘璁�
+ * 鏈嶅姟寰呯‘璁�
+ - 宸茬‘璁ょ姸鎬�
+ * 鏂规宸茬‘璁�
+ * 浠锋牸宸茬‘璁�
+ * 鍛ㄦ湡宸茬‘璁�
+ * 鏈嶅姟宸茬‘璁�
+ - 妫�娴嬩腑鐘舵��
+ * 鏍峰搧鎺ユ敹涓�
+ * 鏍峰搧澶勭悊涓�
+ * 妫�娴嬪垎鏋愪腑
+ * 鎶ュ憡缂栧埗涓�
+ - 寰呭鏍哥姸鎬�
+ * 鏁版嵁寰呭鏍�
+ * 鎶ュ憡寰呭鏍�
+ * 缁撴灉寰呯‘璁�
+ * 鎶ュ憡寰呯鍙�
+ - 宸插畬鎴愮姸鎬�
+ * 妫�娴嬪凡瀹屾垚
+ * 鎶ュ憡宸插畬鎴�
+ * 瀹㈡埛宸茬‘璁�
+ * 璁㈠崟宸插綊妗�
+ * 澶勭悊杩涘害璺熻釜
+ - 鏍峰搧鎺ユ敹杩涘害
+ * 鏍峰搧鐧昏杩涘害
+ * 鏍峰搧妫�楠岃繘搴�
+ * 鏍峰搧瀛樺偍杩涘害
+ * 鏍峰搧鍒嗗彂杩涘害
+ - 妫�娴嬭繘搴�
+ * 鏍峰搧澶勭悊杩涘害
+ * 妫�娴嬪垎鏋愯繘搴�
+ * 鏁版嵁鏁寸悊杩涘害
+ * 缁撴灉楠岃瘉杩涘害
+ - 鎶ュ憡缂栧埗杩涘害
+ * 鏁版嵁鏁寸悊杩涘害
+ * 鎶ュ憡缂栧啓杩涘害
+ * 鎶ュ憡瀹℃牳杩涘害
+ * 鎶ュ憡绛惧彂杩涘害
+ - 鎶ュ憡瀹℃牳杩涘害
+ * 鎶�鏈鏍歌繘搴�
+ * 璐ㄩ噺瀹℃牳杩涘害
+ * 鎶ュ憡淇敼杩涘害
+ * 鎶ュ憡纭杩涘害
+ * 寮傚父鎯呭喌璺熻釜
+ - 鏍峰搧寮傚父澶勭悊
+ * 鏍峰搧鎹熷潖澶勭悊
+ * 鏍峰搧姹℃煋澶勭悊
+ * 鏍峰搧涓㈠け澶勭悊
+ * 鏍峰搧瓒呮湡澶勭悊
+ - 妫�娴嬪紓甯稿鐞�
+ * 璁惧鏁呴殰澶勭悊
+ * 鏂规硶寮傚父澶勭悊
+ * 鏁版嵁寮傚父澶勭悊
+ * 缁撴灉寮傚父澶勭悊
+ - 鎶ュ憡寮傚父澶勭悊
+ * 鎶ュ憡閿欒澶勭悊
+ * 鎶ュ憡閬楁紡澶勭悊
+ * 鎶ュ憡瓒呮湡澶勭悊
+ * 鎶ュ憡鎶曡瘔澶勭悊
+ - 鎶曡瘔澶勭悊
+ * 鎶曡瘔鍙楃悊
+ * 鎶曡瘔璋冩煡
+ * 鎶曡瘔澶勭悊
+ * 鎶曡瘔鍥炶
+ * 瀹屾垚鎯呭喌璺熻釜
+ - 妫�娴嬪畬鎴愮‘璁�
+ * 妫�娴嬭繃绋嬬‘璁�
+ * 妫�娴嬬粨鏋滅‘璁�
+ * 妫�娴嬭褰曠‘璁�
+ * 妫�娴嬫姤鍛婄‘璁�
+ - 鎶ュ憡瀹屾垚纭
+ * 鎶ュ憡鍐呭纭
+ * 鎶ュ憡鏍煎紡纭
+ * 鎶ュ憡绛惧彂纭
+ * 鎶ュ憡浜や粯纭
+ - 瀹㈡埛纭
+ * 鏈嶅姟纭
+ * 璐ㄩ噺纭
+ * 鎶ュ憡纭
+ * 婊℃剰搴︾‘璁�
+ - 璁㈠崟褰掓。
+ * 璧勬枡褰掓。
+ * 璁板綍褰掓。
+ * 鎶ュ憡褰掓。
+ * 璇勪环褰掓。
+
+### 3.2 璁㈠崟缁熻鍒嗘瀽
+- 璁㈠崟缁熻
+ * 璁㈠崟鏁伴噺缁熻
+ - 鎬昏鍗曢噺
+ - 鍚勭被鍨嬭鍗曢噺
+ - 鍚勭姸鎬佽鍗曢噺
+ - 鍚勫疄楠屽璁㈠崟閲�
+ * 璁㈠崟绫诲瀷缁熻
+ - 甯歌妫�娴嬭鍗�
+ - 鍔犳�ユ娴嬭鍗�
+ - 鐗规畩妫�娴嬭鍗�
+ - 鎵归噺妫�娴嬭鍗�
+ * 璁㈠崟閲戦缁熻
+ - 璁㈠崟鎬婚噾棰�
+ - 鍚勭被鍨嬭鍗曢噾棰�
+ - 鍚勫疄楠屽璁㈠崟閲戦
+ - 鍚勫鎴疯鍗曢噾棰�
+ * 璁㈠崟瓒嬪娍鍒嗘瀽
+ - 璁㈠崟閲忚秼鍔�
+ - 璁㈠崟閲戦瓒嬪娍
+ - 璁㈠崟绫诲瀷瓒嬪娍
+ - 瀹㈡埛闇�姹傝秼鍔�
+- 瀹為獙瀹ょ粺璁�
+ * 瀹為獙瀹よ鍗曢噺
+ - 鎬昏鍗曢噺
+ - 鍚勭被鍨嬭鍗曢噺
+ - 鍚勭姸鎬佽鍗曢噺
+ - 鍚勫鎴疯鍗曢噺
+ * 瀹為獙瀹ゅ畬鎴愮巼
+ - 鎸夋椂瀹屾垚鐜�
+ - 寤舵湡瀹屾垚鐜�
+ - 寮傚父澶勭悊鐜�
+ - 瀹㈡埛婊℃剰搴�
+ * 瀹為獙瀹ゅ伐浣滈噺
+ - 妫�娴嬪伐浣滈噺
+ - 鎶ュ憡宸ヤ綔閲�
+ - 瀹℃牳宸ヤ綔閲�
+ - 寮傚父澶勭悊閲�
+ * 瀹為獙瀹ゆ帓鍚�
+ - 璁㈠崟閲忔帓鍚�
+ - 瀹屾垚鐜囨帓鍚�
+ - 婊℃剰搴︽帓鍚�
+ - 宸ヤ綔閲忔帓鍚�
+- 瀹㈡埛缁熻
+ * 瀹㈡埛璁㈠崟閲�
+ - 鎬昏鍗曢噺
+ - 鍚勭被鍨嬭鍗曢噺
+ - 鍚勭姸鎬佽鍗曢噺
+ - 鍚勫疄楠屽璁㈠崟閲�
+ * 瀹㈡埛娑堣垂棰�
+ - 鎬绘秷璐归
+ - 鍚勭被鍨嬫秷璐归
+ - 鍚勫疄楠屽娑堣垂棰�
+ - 娑堣垂瓒嬪娍鍒嗘瀽
+ * 瀹㈡埛婊℃剰搴�
+ - 鏈嶅姟婊℃剰搴�
+ - 璐ㄩ噺婊℃剰搴�
+ - 鏃舵晥婊℃剰搴�
+ - 浠锋牸婊℃剰搴�
+ * 瀹㈡埛娲昏穬搴�
+ - 涓嬪崟棰戠巼
+ - 澶嶈喘鐜�
+ - 鎶曡瘔鐜�
+ - 鎺ㄨ崘鐜�
+
+## 4. 璐㈠姟绠＄悊
+
+### 4.1 璐圭敤绠＄悊
+- 璐圭敤閰嶇疆
+ * 妫�娴嬭垂鐢ㄩ厤缃�
+ * 鍔犳�ヨ垂鐢ㄩ厤缃�
+ * 鍏朵粬璐圭敤閰嶇疆
+ * 璐圭敤瑙勫垯閰嶇疆
+- 璐圭敤瀹℃牳
+ * 璐圭敤璁＄畻瀹℃牳
+ * 璐圭敤璋冩暣瀹℃牳
+ * 璐圭敤鍑忓厤瀹℃牳
+ * 璐圭敤浜夎澶勭悊
+- 璐圭敤缁撶畻
+ * 瀹為獙瀹ょ粨绠�
+ * 骞冲彴缁撶畻
+ * 閫�娆惧鐞�
+ * 瀵硅处绠＄悊
+
+### 4.2 鍙戠エ绠＄悊
+- 鍙戠エ閰嶇疆
+ * 鍙戠エ绫诲瀷閰嶇疆
+ * 鍙戠エ瑙勫垯閰嶇疆
+ * 鍙戠エ妯℃澘閰嶇疆
+ * 鍙戠エ闄愰閰嶇疆
+- 鍙戠エ澶勭悊
+ * 鍙戠エ鐢宠澶勭悊
+ * 鍙戠エ寮�鍏风鐞�
+ * 鍙戠エ浣滃簾澶勭悊
+ * 鍙戠エ琛ュ紑澶勭悊
+- 鍙戠エ缁熻
+ * 鍙戠エ鏁伴噺缁熻
+ * 鍙戠エ閲戦缁熻
+ * 鍙戠エ绫诲瀷缁熻
+ * 鍙戠エ瓒嬪娍鍒嗘瀽
+
+## 5. 绯荤粺绠＄悊
+
+### 5.1 鐢ㄦ埛鏉冮檺绠＄悊
+- 瑙掕壊绠＄悊
+ * 瑙掕壊瀹氫箟
+ * 鏉冮檺鍒嗛厤
+ * 瑙掕壊鍒嗛厤
+ * 瑙掕壊缁ф壙
+- 鐢ㄦ埛绠＄悊
+ * 鐢ㄦ埛淇℃伅绠＄悊
+ * 鐢ㄦ埛鏉冮檺绠＄悊
+ * 鐢ㄦ埛鐘舵�佺鐞�
+ * 鐢ㄦ埛瀹夊叏璁剧疆
+- 鏉冮檺鎺у埗
+ * 鍔熻兘鏉冮檺鎺у埗
+ * 鏁版嵁鏉冮檺鎺у埗
+ * 鎿嶄綔鏉冮檺鎺у埗
+ * 瀹夊叏绛栫暐鎺у埗
+
+### 5.2 绯荤粺閰嶇疆绠＄悊
+- 鍩虹閰嶇疆
+ * 绯荤粺鍙傛暟閰嶇疆
+ * 涓氬姟瑙勫垯閰嶇疆
+ * 宸ヤ綔娴侀厤缃�
+ * 娑堟伅妯℃澘閰嶇疆
+- 鍔熻兘閰嶇疆
+ * 鍔熻兘寮�鍏抽厤缃�
+ * 鍔熻兘鍙傛暟閰嶇疆
+ * 鍔熻兘闄愬埗閰嶇疆
+ * 鍔熻兘浼樺寲閰嶇疆
+- 瀹夊叏閰嶇疆
+ * 瀹夊叏绛栫暐閰嶇疆
+ * 瀹夊叏瑙勫垯閰嶇疆
+ * 瀹夊叏瀹¤閰嶇疆
+ * 瀹夊叏棰勮閰嶇疆
+
+### 5.3 绯荤粺鐩戞帶绠＄悊
+- 杩愯鐩戞帶
+ * 绯荤粺鎬ц兘鐩戞帶
+ * 绯荤粺璧勬簮鐩戞帶
+ * 绯荤粺璐熻浇鐩戞帶
+ * 绯荤粺寮傚父鐩戞帶
+- 鎿嶄綔鐩戞帶
+ * 鐢ㄦ埛鎿嶄綔鐩戞帶
+ * 涓氬姟鎿嶄綔鐩戞帶
+ * 瀹夊叏鎿嶄綔鐩戞帶
+ * 寮傚父鎿嶄綔鐩戞帶
+- 鏃ュ織绠＄悊
+ * 绯荤粺鏃ュ織绠＄悊
+ * 鎿嶄綔鏃ュ織绠＄悊
+ * 瀹夊叏鏃ュ織绠＄悊
+ * 瀹¤鏃ュ織绠＄悊
+
+## 6. 鏁版嵁绠＄悊
+
+### 6.1 鏁版嵁閰嶇疆绠＄悊
+- 鏁版嵁瀛楀吀
+ * 瀛楀吀绫诲瀷绠＄悊
+ * 瀛楀吀椤圭鐞�
+ * 瀛楀吀鍊肩鐞�
+ * 瀛楀吀浣跨敤绠＄悊
+- 鏁版嵁瑙勫垯
+ * 鏁版嵁鏍煎紡瑙勫垯
+ * 鏁版嵁楠岃瘉瑙勫垯
+ * 鏁版嵁杞崲瑙勫垯
+ * 鏁版嵁鍏宠仈瑙勫垯
+- 鏁版嵁妯℃澘
+ * 妯℃澘瀹氫箟
+ * 妯℃澘閰嶇疆
+ * 妯℃澘浣跨敤
+ * 妯℃澘绠＄悊
+
+### 6.2 鏁版嵁缁熻鍒嗘瀽
+- 涓氬姟缁熻
+ * 璁㈠崟缁熻
+ * 瀹㈡埛缁熻
+ * 瀹為獙瀹ょ粺璁�
+ * 璐㈠姟缁熻
+- 杩愯惀鍒嗘瀽
+ * 涓氬姟瓒嬪娍鍒嗘瀽
+ * 瀹㈡埛琛屼负鍒嗘瀽
+ * 瀹為獙瀹よ〃鐜板垎鏋�
+ * 鏈嶅姟璐ㄩ噺鍒嗘瀽
+- 鍐崇瓥鏀寔
+ * 鏁版嵁鎶ヨ〃
+ * 鏁版嵁鍒嗘瀽
+ * 鏁版嵁棰勬祴
+ * 鍐崇瓥寤鸿
+
+### 6.3 鏁版嵁瀹夊叏绠＄悊
+- 鏁版嵁澶囦唤
+ * 澶囦唤绛栫暐
+ * 澶囦唤鎵ц
+ * 澶囦唤楠岃瘉
+ * 澶囦唤鎭㈠
+- 鏁版嵁鍔犲瘑
+ * 鍔犲瘑绛栫暐
+ * 鍔犲瘑瀹炵幇
+ * 瀵嗛挜绠＄悊
+ * 鍔犲瘑鐩戞帶
+- 鏁版嵁瀹¤
+ * 璁块棶瀹¤
+ * 鎿嶄綔瀹¤
+ * 鍙樻洿瀹¤
+ * 瀹夊叏瀹¤
+
+## 7. 娑堟伅绠＄悊
+
+### 7.1 娑堟伅閰嶇疆绠＄悊
+- 娑堟伅妯℃澘
+ * 妯℃澘瀹氫箟
+ * 妯℃澘閰嶇疆
+ * 妯℃澘浣跨敤
+ * 妯℃澘绠＄悊
+- 娑堟伅瑙勫垯
+ * 鍙戦�佽鍒�
+ * 鎺ユ敹瑙勫垯
+ * 澶勭悊瑙勫垯
+ * 瀛樺偍瑙勫垯
+- 娑堟伅娓犻亾
+ * 娓犻亾閰嶇疆
+ * 娓犻亾绠＄悊
+ * 娓犻亾鐩戞帶
+ * 娓犻亾缁熻
+
+### 7.2 娑堟伅澶勭悊绠＄悊
+- 娑堟伅鍙戦��
+ * 鍙戦�佺鐞�
+ * 鍙戦�佺洃鎺�
+ * 鍙戦�佺粺璁�
+ * 鍙戦�佸垎鏋�
+- 娑堟伅鎺ユ敹
+ * 鎺ユ敹绠＄悊
+ * 鎺ユ敹鐩戞帶
+ * 鎺ユ敹缁熻
+ * 鎺ユ敹鍒嗘瀽
+- 娑堟伅澶勭悊
+ * 澶勭悊绠＄悊
+ * 澶勭悊鐩戞帶
+ * 澶勭悊缁熻
+ * 澶勭悊鍒嗘瀽
+
+## 8. 鎺ュ彛绠＄悊
+
+### 8.1 鎺ュ彛閰嶇疆绠＄悊
+- 鎺ュ彛瀹氫箟
+ * 鎺ュ彛瑙勮寖
+ * 鎺ュ彛鏂囨。
+ * 鎺ュ彛鐗堟湰
+ * 鎺ュ彛鐘舵��
+- 鎺ュ彛瀹夊叏
+ * 璁よ瘉閰嶇疆
+ * 鎺堟潈閰嶇疆
+ * 鍔犲瘑閰嶇疆
+ * 闃叉姢閰嶇疆
+- 鎺ュ彛鐩戞帶
+ * 璋冪敤鐩戞帶
+ * 鎬ц兘鐩戞帶
+ * 寮傚父鐩戞帶
+ * 瀹夊叏鐩戞帶
+
+### 8.2 鎺ュ彛杩愮淮绠＄悊
+- 鎺ュ彛缁存姢
+ * 鎺ュ彛娴嬭瘯
+ * 鎺ュ彛璋冭瘯
+ * 鎺ュ彛浼樺寲
+ * 鎺ュ彛鍗囩骇
+- 鎺ュ彛缁熻
+ * 璋冪敤缁熻
+ * 鎬ц兘缁熻
+ * 寮傚父缁熻
+ * 瀹夊叏缁熻
+- 鎺ュ彛鍒嗘瀽
+ * 浣跨敤鍒嗘瀽
+ * 鎬ц兘鍒嗘瀽
+ * 闂鍒嗘瀽
+ * 浼樺寲寤鸿
\ No newline at end of file
diff --git "a/word/\351\224\200\345\224\256\347\253\257\345\212\237\350\203\275\350\257\264\346\230\216.md" "b/word/\351\224\200\345\224\256\347\253\257\345\212\237\350\203\275\350\257\264\346\230\216.md"
new file mode 100644
index 0000000..fba25fd
--- /dev/null
+++ "b/word/\351\224\200\345\224\256\347\253\257\345\212\237\350\203\275\350\257\264\346\230\216.md"
@@ -0,0 +1,319 @@
+# LIMS绯荤粺閿�鍞�/瀹㈡埛缁忕悊绔姛鑳借鏄庢枃妗�
+
+## 1. 宸ヤ綔鍙�
+
+### 1.1 瀹㈡埛绠＄悊
+- 瀹㈡埛淇℃伅绠＄悊
+ * 瀹㈡埛鍩烘湰淇℃伅
+ * 瀹㈡埛鑱旂郴浜�
+ * 瀹㈡埛璧勮川淇℃伅
+ * 瀹㈡埛鏈嶅姟璁板綍
+- 瀹㈡埛鍒嗙被绠＄悊
+ * 瀹㈡埛绛夌骇鍒嗙被
+ * 瀹㈡埛绫诲瀷鍒嗙被
+ * 瀹㈡埛鍖哄煙鍒嗙被
+ * 瀹㈡埛鐘舵�佸垎绫�
+- 瀹㈡埛鍏崇郴绠＄悊
+ * 瀹㈡埛鎷滆璁板綍
+ * 瀹㈡埛娌熼�氳褰�
+ * 瀹㈡埛闇�姹傝褰�
+ * 瀹㈡埛鍙嶉璁板綍
+
+### 1.2 鍟嗘満绠＄悊
+- 鍟嗘満淇℃伅
+ * 鍟嗘満鍩烘湰淇℃伅
+ * 鍟嗘満鏉ユ簮璁板綍
+ * 鍟嗘満鐘舵�佽窡韪�
+ * 鍟嗘満浠峰�艰瘎浼�
+- 鍟嗘満璺熻繘
+ * 璺熻繘璁″垝鍒跺畾
+ * 璺熻繘璁板綍绠＄悊
+ * 璺熻繘鏁堟灉璇勪及
+ * 鍟嗘満杞寲鍒嗘瀽
+- 鍟嗘満鍒嗘瀽
+ * 鍟嗘満鏁伴噺缁熻
+ * 鍟嗘満杞寲鐜�
+ * 鍟嗘満浠峰�煎垎鏋�
+ * 鍟嗘満瓒嬪娍鍒嗘瀽
+
+### 1.3 浠诲姟绠＄悊
+- 寰呭姙浠诲姟
+ * 浠诲姟鍒楄〃鏌ョ湅
+ * 浠诲姟璇︽儏鏌ョ湅
+ * 浠诲姟浼樺厛绾ц缃�
+ * 浠诲姟鎻愰啋璁剧疆
+- 杩涜涓换鍔�
+ * 浠诲姟杩涘害鏇存柊
+ * 浠诲姟鐘舵�佹洿鏂�
+ * 浠诲姟鍗忎綔澶勭悊
+ * 浠诲姟瀹屾垚纭
+- 宸插畬鎴愪换鍔�
+ * 浠诲姟璁板綍鏌ヨ
+ * 浠诲姟缁撴灉鏌ョ湅
+ * 浠诲姟璇勪环鏌ョ湅
+ * 浠诲姟缁熻鍒嗘瀽
+
+## 2. 闇�姹傜鐞�
+
+### 2.1 闇�姹傛敹闆�
+- 闇�姹傜櫥璁�
+ * 闇�姹傚熀鏈俊鎭�
+ * 闇�姹傝缁嗘弿杩�
+ * 闇�姹備紭鍏堢骇
+ * 闇�姹傛椂闂磋姹�
+- 闇�姹傚垎绫�
+ * 闇�姹傜被鍨嬪垎绫�
+ * 闇�姹傜揣鎬ョ▼搴�
+ * 闇�姹傚鏉傚害
+ * 闇�姹傚彲琛屾��
+- 闇�姹傝瘎浼�
+ * 鎶�鏈彲琛屾��
+ * 鎴愭湰璇勪及
+ * 鍛ㄦ湡璇勪及
+ * 椋庨櫓璇勪及
+
+### 2.2 闇�姹傚鐞�
+- 闇�姹傚垎閰�
+ * 闇�姹傝浆鎶�鏈儴闂�
+ * 闇�姹傝浆瀹為獙瀹�
+ * 闇�姹傝浆椤圭洰閮�
+ * 闇�姹傝窡韪褰�
+- 闇�姹傝窡杩�
+ * 澶勭悊杩涘害璺熻釜
+ * 澶勭悊缁撴灉纭
+ * 瀹㈡埛鍙嶉鏀堕泦
+ * 闇�姹傚彉鏇村鐞�
+- 闇�姹傚畬鎴�
+ * 闇�姹傚畬鎴愮‘璁�
+ * 瀹㈡埛婊℃剰搴﹁皟鏌�
+ * 闇�姹傛�荤粨鍒嗘瀽
+ * 缁忛獙鏁欒璁板綍
+
+### 2.3 闇�姹傚垎鏋�
+- 闇�姹傜粺璁�
+ * 闇�姹傛暟閲忕粺璁�
+ * 闇�姹傜被鍨嬬粺璁�
+ * 闇�姹傚畬鎴愮巼
+ * 闇�姹傛弧鎰忓害
+- 闇�姹傝秼鍔�
+ * 闇�姹傝秼鍔垮垎鏋�
+ * 瀹㈡埛闇�姹傚垎鏋�
+ * 甯傚満瓒嬪娍鍒嗘瀽
+ * 绔炰簤鍒嗘瀽
+- 闇�姹備紭鍖�
+ * 鏈嶅姟娴佺▼浼樺寲
+ * 鍝嶅簲閫熷害浼樺寲
+ * 鏈嶅姟璐ㄩ噺浼樺寲
+ * 瀹㈡埛浣撻獙浼樺寲
+
+## 3. 椤圭洰绠＄悊
+
+### 3.1 椤圭洰淇℃伅
+- 椤圭洰鍩烘湰淇℃伅
+ * 椤圭洰鍚嶇О
+ * 椤圭洰缂栧彿
+ * 椤圭洰绫诲瀷
+ * 椤圭洰鐘舵��
+- 椤圭洰璇︽儏
+ * 椤圭洰闇�姹�
+ * 椤圭洰鑼冨洿
+ * 椤圭洰鍛ㄦ湡
+ * 椤圭洰棰勭畻
+- 椤圭洰鍥㈤槦
+ * 椤圭洰璐熻矗浜�
+ * 鎶�鏈礋璐ｄ汉
+ * 瀹為獙瀹よ礋璐ｄ汉
+ * 椤圭洰鎴愬憳
+
+### 3.2 椤圭洰鍗忚皟
+- 椤圭洰娌熼��
+ * 鍐呴儴娌熼��
+ * 瀹㈡埛娌熼��
+ * 杩涘害娌熼��
+ * 闂娌熼��
+- 椤圭洰璺熻釜
+ * 杩涘害璺熻釜
+ * 璐ㄩ噺璺熻釜
+ * 鎴愭湰璺熻釜
+ * 椋庨櫓璺熻釜
+- 椤圭洰鍙樻洿
+ * 闇�姹傚彉鏇�
+ * 璁″垝鍙樻洿
+ * 璧勬簮鍙樻洿
+ * 鎴愭湰鍙樻洿
+
+### 3.3 椤圭洰鍒嗘瀽
+- 椤圭洰缁熻
+ * 椤圭洰鏁伴噺缁熻
+ * 椤圭洰绫诲瀷缁熻
+ * 椤圭洰瀹屾垚鐜�
+ * 椤圭洰婊℃剰搴�
+- 椤圭洰鍒嗘瀽
+ * 椤圭洰鍛ㄦ湡鍒嗘瀽
+ * 椤圭洰鎴愭湰鍒嗘瀽
+ * 椤圭洰璐ㄩ噺鍒嗘瀽
+ * 椤圭洰椋庨櫓鍒嗘瀽
+- 椤圭洰浼樺寲
+ * 娴佺▼浼樺寲
+ * 鏁堢巼浼樺寲
+ * 璐ㄩ噺浼樺寲
+ * 鎴愭湰浼樺寲
+
+## 4. 鎶ヤ环绠＄悊
+
+### 4.1 鎶ヤ环淇℃伅
+- 鎶ヤ环鍩烘湰淇℃伅
+ * 鎶ヤ环缂栧彿
+ * 鎶ヤ环绫诲瀷
+ * 鎶ヤ环鐘舵��
+ * 鎶ヤ环鏈夋晥鏈�
+- 鎶ヤ环璇︽儏
+ * 鏈嶅姟椤圭洰
+ * 鏈嶅姟鍐呭
+ * 鏈嶅姟鍛ㄦ湡
+ * 鏈嶅姟浠锋牸
+- 鎶ヤ环瀹℃壒
+ * 鎶ヤ环瀹℃牳
+ * 浠锋牸瀹℃壒
+ * 鐗规畩鎶樻墸
+ * 鏈�缁堢‘璁�
+
+### 4.2 鎶ヤ环澶勭悊
+- 鎶ヤ环鐢熸垚
+ * 鎴愭湰鏍哥畻
+ * 浠锋牸鍒跺畾
+ * 鎶ヤ环鍗曠敓鎴�
+ * 鎶ヤ环鍗曞彂閫�
+- 鎶ヤ环璺熻繘
+ * 瀹㈡埛鍙嶉
+ * 浠锋牸璋堝垽
+ * 鏂规璋冩暣
+ * 鏈�缁堢‘璁�
+- 鎶ヤ环褰掓。
+ * 鎶ヤ环璁板綍
+ * 鎴愪氦璁板綍
+ * 鏈垚浜ゅ垎鏋�
+ * 缁忛獙鎬荤粨
+
+### 4.3 鎶ヤ环鍒嗘瀽
+- 鎶ヤ环缁熻
+ * 鎶ヤ环鏁伴噺缁熻
+ * 鎶ヤ环绫诲瀷缁熻
+ * 鎴愪氦鐜囩粺璁�
+ * 浠锋牸鍖洪棿缁熻
+- 鎶ヤ环鍒嗘瀽
+ * 浠锋牸瓒嬪娍鍒嗘瀽
+ * 瀹㈡埛鎺ュ彈搴﹀垎鏋�
+ * 绔炰簤瀵规墜鍒嗘瀽
+ * 甯傚満琛屾儏鍒嗘瀽
+- 鎶ヤ环浼樺寲
+ * 浠锋牸绛栫暐浼樺寲
+ * 鎶ヤ环娴佺▼浼樺寲
+ * 鍝嶅簲閫熷害浼樺寲
+ * 鏈嶅姟璐ㄩ噺浼樺寲
+
+## 5. 鍚堝悓绠＄悊
+
+### 5.1 鍚堝悓淇℃伅
+- 鍚堝悓鍩烘湰淇℃伅
+ * 鍚堝悓缂栧彿
+ * 鍚堝悓绫诲瀷
+ * 鍚堝悓鐘舵��
+ * 鍚堝悓鏈熼檺
+- 鍚堝悓璇︽儏
+ * 鍚堝悓鍐呭
+ * 鏈嶅姟鍐呭
+ * 浠锋牸鏉℃
+ * 浠樻鏂瑰紡
+- 鍚堝悓瀹℃壒
+ * 鍚堝悓瀹℃牳
+ * 娉曞姟瀹℃牳
+ * 棰嗗瀹℃壒
+ * 鏈�缁堢‘璁�
+
+### 5.2 鍚堝悓鎵ц
+- 鍚堝悓绛捐
+ * 鍚堝悓绛剧讲
+ * 鍚堝悓褰掓。
+ * 鍚堝悓鍒嗗彂
+ * 鍚堝悓鎵ц
+- 鍚堝悓璺熻釜
+ * 鎵ц杩涘害
+ * 鏀舵杩涘害
+ * 鏈嶅姟杩涘害
+ * 闂澶勭悊
+- 鍚堝悓鍙樻洿
+ * 鍙樻洿鐢宠
+ * 鍙樻洿瀹℃牳
+ * 鍙樻洿鎵ц
+ * 鍙樻洿褰掓。
+
+### 5.3 鍚堝悓鍒嗘瀽
+- 鍚堝悓缁熻
+ * 鍚堝悓鏁伴噺缁熻
+ * 鍚堝悓閲戦缁熻
+ * 鍚堝悓绫诲瀷缁熻
+ * 鍚堝悓鐘舵�佺粺璁�
+- 鍚堝悓鍒嗘瀽
+ * 鍚堝悓瓒嬪娍鍒嗘瀽
+ * 瀹㈡埛鍒嗘瀽
+ * 鏀跺叆鍒嗘瀽
+ * 椋庨櫓鍒嗘瀽
+- 鍚堝悓浼樺寲
+ * 鍚堝悓鏉℃浼樺寲
+ * 瀹℃壒娴佺▼浼樺寲
+ * 鎵ц鏁堢巼浼樺寲
+ * 椋庨櫓鎺у埗浼樺寲
+
+## 6. 涓汉涓績
+
+### 6.1 涓汉淇℃伅
+- 鍩烘湰淇℃伅
+ * 涓汉淇℃伅
+ * 鑱旂郴鏂瑰紡
+ * 宸ヤ綔淇℃伅
+ * 鏉冮檺淇℃伅
+- 涓氱哗淇℃伅
+ * 閿�鍞笟缁�
+ * 瀹㈡埛鏁伴噺
+ * 椤圭洰鏁伴噺
+ * 鍚堝悓閲戦
+- 宸ヤ綔淇℃伅
+ * 宸ヤ綔璁板綍
+ * 宸ヤ綔璇勪环
+ * 宸ヤ綔缁熻
+ * 宸ヤ綔鍒嗘瀽
+
+### 6.2 宸ヤ綔绠＄悊
+- 宸ヤ綔璁″垝
+ * 鏃ヨ鍒�
+ * 鍛ㄨ鍒�
+ * 鏈堣鍒�
+ * 骞村害璁″垝
+- 宸ヤ綔璁板綍
+ * 鎷滆璁板綍
+ * 娌熼�氳褰�
+ * 浼氳璁板綍
+ * 宸ヤ綔鎬荤粨
+- 宸ヤ綔鍒嗘瀽
+ * 宸ヤ綔鏁堢巼
+ * 宸ヤ綔璐ㄩ噺
+ * 宸ヤ綔闂
+ * 鏀硅繘寤鸿
+
+### 6.3 绯荤粺璁剧疆
+- 鐣岄潰璁剧疆
+ * 鐣岄潰涓婚
+ * 鐣岄潰甯冨眬
+ * 蹇嵎鏂瑰紡
+ * 鏄剧ず璁剧疆
+- 娑堟伅璁剧疆
+ * 娑堟伅鎻愰啋
+ * 娑堟伅鎺ユ敹
+ * 娑堟伅澶勭悊
+ * 娑堟伅缁熻
+- 瀹夊叏璁剧疆
+ * 鐧诲綍瀹夊叏
+ * 鎿嶄綔瀹夊叏
+ * 鏁版嵁瀹夊叏
+ * 闅愮瀹夊叏
\ No newline at end of file
--
Gitblit v1.9.1