<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<%Response.Buffer = True
|
Server.ScriptTimeOut=240000
|
'On Error Resume Next
|
%>
|
<!--#include virtual="/inc/chkadmin.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")
|
If InStr(admin_save,"json")<=0 And admin_save_type<>"json" Then%>
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
<head>
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
|
<meta name="viewport" content="width=device-width, height=device-height, initial-scale=1, maximum-scale=1, user-scalable=no">
|
<title>记录中..</title>
|
</head>
|
<%End If%>
|
<%
|
|
if cint(session("admin_execLevel"))<1 and admin_save<>"1" and admin_save<>"47" and admin_save<>"48" and admin_save<>"49" then%>
|
<script lnguage=javascript>
|
alert("权限不足!!");
|
window.history.go(-1)
|
</script>
|
<%Response.End
|
end if
|
objConn.BeginTrans
|
|
select case admin_save%>
|
<%case "1"
|
'-------------------------------------------------------------修改管理密码
|
OA_User_ID=session("adminID")
|
if session("admin_execLevel")="2" then OA_User_ID = SafeRequest(trim(request.form("OA_User_ID")))
|
Old_Pass = SafeRequest(trim(request.form("Old_Pass")))
|
New_Pass = SafeRequest(trim(request.form("New_Pass")))
|
New_Pass_2 = SafeRequest(trim(request.form("New_Pass_2")))
|
if OA_User_ID="" or Old_Pass="" or New_Pass="" or New_Pass_2="" then
|
Response.Redirect "AdminUser_EditPass.gds?userID="&OA_User_ID&"&SystemMessageType=4&SMT=1"
|
Response.End()
|
end if
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
If session("admin_execLevel")<>"2" then
|
sql="select OA_User_ID from OA_User where OA_User_ID='"&OA_User_ID&"' and pwdcompare('"&Old_Pass&"',OA_Pass,0)=1"
|
'sql="select OA_User_ID from OA_User where OA_User_ID='"&OA_User_ID&"' and OA_Pass='"&Old_Pass&"'"
|
rs.open sql,objConn,1,1
|
if rs.Eof then
|
Response.Redirect "AdminUser_EditPass.gds?userID="&OA_User_ID&"&SystemMessageType=4&SMT=2"
|
Response.End()
|
end if
|
rs.close()
|
End if
|
|
if New_Pass<>New_Pass_2 then
|
Response.Redirect "AdminUser_EditPass.gds?userID="&OA_User_ID&"&SystemMessageType=4&SMT=3"
|
Response.End()
|
end if
|
|
sql="update OA_User set OA_Pass=pwdencrypt('"&New_Pass&"') where OA_User_ID="&OA_User_ID
|
objConn.Execute sql
|
|
rsRollbackTrans(objConn.Errors.count)
|
|
session("admin")=""
|
session("adminID")=""
|
session("admin_Power")=""
|
session("admin_execLevel")=""
|
Response.Redirect "/login.gds?LoginSuccess=密码修改完成,请重新登陆"
|
Response.End%>
|
|
|
|
|
<%case "5"
|
'-------------------------------------------------------------添加权限模块
|
ModuleID = SafeRequest(request.form("ModuleID"))
|
ModuleLevel = SafeRequest(request.form("ModuleLevel"))
|
ModuleName = SafeRequest(request.form("ModuleName"))
|
ModuleReadme = SafeRequest(request.form("ModuleReadme"))
|
|
if ModuleName<>"" and ModuleID<>"" then
|
sql="insert into OA_Module (ModuleID,ModuleName,ModuleReadme,ModuleLevel) values ('"&ModuleID&"','"&ModuleName&"','"&ModuleReadme&"',"&ModuleLevel&")"
|
objConn.Execute sql
|
end if
|
ReturnURL="Admin_Module.gds?ModuleID="&left(ModuleID,len(ModuleID)-2)&"&ModuleLevel="&ModuleLevel-1
|
rsRollbackTrans(objConn.Errors.count)
|
Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=1&h_menu1_1="&session("h_menu1_1")
|
Response.End%>
|
|
|
<%case "6"
|
'-------------------------------------------------------------修改权限模块
|
ModuleID = SafeRequest(request.form("ModuleID"))
|
ModuleLevel = SafeRequest(request.form("ModuleLevel"))
|
ModuleName = SafeRequest(request.form("ModuleName"))
|
ModuleReadme = SafeRequest(request.form("ModuleReadme"))
|
|
if ModuleName<>"" and ModuleID<>"" then
|
sql="update OA_Module set ModuleName='"&ModuleName&"',ModuleReadme='"&ModuleReadme&"' where ModuleID='"&ModuleID&"'"
|
objConn.Execute sql
|
end If
|
ReturnURL="Admin_Module.gds?ModuleID="&left(ModuleID,len(ModuleID)-2)&"&ModuleLevel="&ModuleLevel-1
|
rsRollbackTrans(objConn.Errors.count)
|
Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=1&h_menu1_1="&session("h_menu1_1")
|
Response.End%>
|
|
|
<%case "7"
|
'-------------------------------------------------------------删除权限模块
|
ModuleID = SafeRequest(request("ModuleID"))
|
ModuleLevel = SafeRequest(request("ModuleLevel"))
|
|
if ModuleID<>"" then
|
sql="delete from OA_Module where ModuleID like '"&ModuleID&"%'"
|
objConn.Execute sql
|
end if
|
ReturnURL="Admin_Module.gds?ModuleID="&left(ModuleID,len(ModuleID)-2)&"&ModuleLevel="&ModuleLevel-1
|
rsRollbackTrans(objConn.Errors.count)
|
Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=1&h_menu1_1="&session("h_menu1_1")
|
Response.End%>
|
|
|
<%case "8"
|
'-------------------------------------------------------------用户权限修改
|
userID = SafeRequest(request.form("userID"))
|
A_ModuleID = SafeRequest(request.form("A_ModuleID"))
|
F_ModuleID = SPLIT(replace(SafeRequest(request.form("ModuleID")),", ",","),",")
|
old_Power = SPLIT(SafeRequest(request.form("OA_Power")),",")
|
|
OA_Power = ","
|
for i = 1 to UBOUND(old_Power)-1
|
if left(old_Power(i),2)<>A_ModuleID then OA_Power=OA_Power&old_Power(i)&","
|
next
|
for i = 0 to UBOUND(F_ModuleID)
|
if left(F_ModuleID(i),2)=A_ModuleID then OA_Power=OA_Power&F_ModuleID(i)&","
|
next
|
|
sql="update OA_User set OA_Power='"&OA_Power&"' where OA_User_ID="&userID
|
objConn.Execute sql
|
URLId="&userID="&userID
|
|
ReturnURL="AdminUser_Legal.gds?ModuleID="&A_ModuleID&URLId
|
rsRollbackTrans(objConn.Errors.count)
|
Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=1"
|
Response.End%>
|
|
<%case "8_1"
|
'-------------------------------------------------------------用户权限导入
|
userID = SafeRequest(request.form("userID"))
|
OldOAID = SafeRequest(request.form("OldOAID"))
|
|
ReturnURL="AdminUser_Legal.gds?userID="&userID
|
|
If OldOAID<>"" And IsNumeric(OldOAID) And userID<>"" Then
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select OA_Power from OA_User where OA_User_ID="&OldOAID
|
rs.open sql,objConn,1,1
|
if not rs.Eof then
|
OA_Power = rs("OA_Power")
|
sql="update OA_User set OA_Power='"&OA_Power&"' where OA_User_ID="&userID
|
objConn.Execute sql
|
ReturnURL=ReturnURL&"&SystemMessageType=3&SMT=1"
|
objConn.Execute sql
|
Else
|
ReturnURL=ReturnURL&"&SystemMessageType=4&SMT=2"
|
end if
|
rs.close()
|
|
Else
|
ReturnURL=ReturnURL&"&SystemMessageType=4&SMT=2"
|
End If
|
|
rsRollbackTrans(objConn.Errors.count)
|
Response.Redirect ReturnURL
|
Response.End%>
|
|
<%case "9"
|
'-------------------------------------------------------------添加新后台用户资料
|
OA_User = SafeRequest(trim(request.form("OA_User")))
|
OA_Name = SafeRequest(trim(request.form("OA_Name")))
|
OA_gender = SafeRequest(trim(request.form("OA_gender")))
|
OA_mobile = SafeRequest(trim(request.form("OA_mobile")))
|
OA_weixinID = SafeRequest(trim(request.form("OA_weixinID")))
|
OA_email = SafeRequest(trim(request.form("OA_email")))
|
OA_IdentityCard= SafeRequest(trim(request.form("OA_IdentityCard")))
|
|
OA_DepartmentID = SafeRequest(trim(request.form("OA_DepartmentID")))
|
If OA_DepartmentID<>"" Then
|
OA_DepartmentID = Replace(OA_DepartmentID," ","")
|
OA_DepartmentIDs=OA_DepartmentID
|
OA_DepartmentIDSP = SPLIT(OA_DepartmentID,",")
|
If OA_DepartmentIDSP(0)="185" And UBOUND(OA_DepartmentIDSP)>0 Then
|
OA_DepartmentID=OA_DepartmentIDSP(1)
|
Else
|
OA_DepartmentID=OA_DepartmentIDSP(0)
|
End If
|
End If
|
OA_Position = SafeRequest(trim(request.form("OA_Position")))
|
OA_execLevel= SafeRequest(trim(request.form("OA_execLevel")))
|
OA_Province = SafeRequest(trim(request.form("province")))
|
OA_City = SafeRequest(trim(request.form("city")))
|
OA_CompetencyID = SafeRequest(trim(request.form("OA_CompetencyID")))
|
OA_EmployeeGroup= SafeRequest(trim(request.form("OA_EmployeeGroup")))
|
If OA_EmployeeGroup="" Then OA_EmployeeGroup=0
|
OA_OrderClass = SafeRequest(trim(request.form("OA_OrderClass")))
|
If OA_OrderClass<>"" Then OA_OrderClass = Replace(OA_OrderClass," ","")
|
|
Post_Name = SafeRequest(trim(request.form("Post_Name")))
|
Post_MoneyP = SafeRequest(trim(request.form("Post_MoneyP")))
|
Post_MoneyP1= SafeRequest(trim(request.form("Post_MoneyP1")))
|
If Post_MoneyP="" Then Post_MoneyP = 0
|
If Post_MoneyP1="" Then Post_MoneyP1= 0.5
|
|
Old_userID= SafeRequest(trim(request.form("Old_userID"))) '复制账号
|
OA_Power= SafeRequest(trim(request.form("OA_Power")))
|
|
if OA_User="" or OA_Name="" Or OA_mobile="" Or OA_DepartmentID="" Then
|
session("Temp_OA_User")=OA_User
|
session("Temp_OA_Name")=OA_Name
|
session("Temp_OA_gender")=OA_gender
|
session("Temp_OA_mobile")=OA_mobile
|
session("Temp_OA_weixinID")=OA_weixinID
|
session("Temp_OA_email")=OA_email
|
session("Temp_OA_Position")=OA_Position
|
session("Temp_OA_CompetencyID")=OA_CompetencyID
|
session("Temp_province")=OA_province
|
session("Temp_city")=OA_city
|
session("Temp_OA_execLevel")=OA_execLevel
|
session("Temp_Post_Name")=Post_Name
|
session("Temp_Post_MoneyP")=Post_MoneyP
|
session("Temp_Post_MoneyP1")=Post_MoneyP1
|
If Old_userID<>"" Then OA_DepartmentID=OA_DepartmentID&"&Old_userID="&Old_userID
|
Response.Redirect "AdminUser_App.gds?SystemMessageType=4&SMT=1&h_menu1_1=1&departmentID="&OA_DepartmentID
|
Response.End()
|
end if
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select OA_User_ID from OA_User where OA_User='"&OA_User&"' or OA_weixinUserID='"&OA_User&"' or OA_Name='"&OA_Name&"' or OA_mobile='"&OA_mobile&"'"
|
If OA_weixinID<>"" Then sql=sql & " or OA_weixinID='"&OA_weixinID&"'"
|
If OA_email<>"" Then sql=sql & " or OA_email='"&OA_email&"'"
|
rs.open sql,objConn,1,1
|
if not rs.Eof then
|
session("Temp_OA_User")=OA_User
|
session("Temp_OA_Name")=OA_Name
|
session("Temp_OA_gender")=OA_gender
|
session("Temp_OA_mobile")=OA_mobile
|
session("Temp_OA_weixinID")=OA_weixinID
|
session("Temp_OA_email")=OA_email
|
session("Temp_OA_Position")=OA_Position
|
session("Temp_OA_CompetencyID")=OA_CompetencyID
|
session("Temp_province")=OA_province
|
session("Temp_city")=OA_city
|
session("Temp_OA_execLevel")=OA_execLevel
|
session("Temp_Post_Name")=Post_Name
|
session("Temp_Post_MoneyP")=Post_MoneyP
|
session("Temp_Post_MoneyP1")=Post_MoneyP1
|
If Old_userID<>"" Then OA_DepartmentID=OA_DepartmentID&"&Old_userID="&Old_userID
|
Response.Redirect "AdminUser_App.gds?SystemMessageType=4&SMT=2&h_menu1_1=1&departmentID="&OA_DepartmentID
|
Response.End()
|
end if
|
rs.close()
|
|
'默认权限设定
|
If OA_Power="" Then
|
sql="select OA_Power from dictionary,OA_User where OA_User=vtext+'_部门' and vtitle='OA_Department' and vID="&OA_DepartmentID
|
rs.open sql,objConn,1,1
|
if not rs.Eof then
|
OA_Power = rs("OA_Power")
|
end if
|
rs.close()
|
End If
|
'扩展单据类型
|
If OA_OrderClass<>"" Then
|
OA_OrderClassSql = Replace(OA_OrderClass,",","','")
|
sql="select vOrder2 from dictionary where vType=2 and vtext in (select replace(vtext,'服务单','调度单') from dictionary where vType=1 and vtitle='OrderClass' and vOrder2 in ('"&OA_OrderClassSql&"'))"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
OA_OrderClass=OA_OrderClass&","&rs(0)
|
rs.movenext
|
loop
|
rs.close()
|
End If
|
|
sql="insert into OA_User (OA_User,OA_Pass,OA_Name,OA_weixinUserID,OA_gender,OA_mobile,OA_weixinID,OA_email,OA_IdentityCard,OA_Position,OA_province,OA_city,OA_execLevel,OA_Power,OA_DepartmentID,OA_DepartmentIDs,OA_OrderClass,Post_Name,Post_MoneyP,Post_MoneyP1,OA_EmployeeGroup) values ('"&OA_User&"',pwdencrypt('000000'),'"&OA_Name&"','"&OA_User&"',"&OA_gender&",'"&OA_mobile&"','"&OA_weixinID&"','"&OA_email&"','"&OA_IdentityCard&"','"&OA_Position&"','"&OA_province&"','"&OA_city&"',"&OA_execLevel&",'"&OA_Power&"',"&OA_DepartmentID&",'"&OA_DepartmentIDs&"','"&OA_OrderClass&"','"&Post_Name&"',"&Post_MoneyP&","&Post_MoneyP1&","&OA_EmployeeGroup&")"
|
objConn.Execute sql
|
sql="select OA_User_ID from OA_User where OA_User='"&OA_User&"'"
|
rs.open sql,objConn,1,1
|
if not rs.Eof then
|
OA_User_ID = rs("OA_User_ID")
|
end if
|
rs.close()
|
OA_CompetencyIDSP = SPLIT(OA_CompetencyID,", ")
|
for i = 0 to UBOUND(OA_CompetencyIDSP)
|
OA_CompetencyID = OA_CompetencyIDSP(i)
|
sql="insert into OA_Competency (OA_CompetencyID,OA_CompetencyUserID) values ("&OA_CompetencyID&","&OA_User_ID&")"
|
objConn.Execute sql
|
Next
|
|
rsRollbackTrans(objConn.Errors.count)
|
Response.Redirect "/weixin/user_create.gds?OA_UserID="&OA_User_ID
|
Response.End%>
|
|
|
|
<%case "10"
|
'-------------------------------------------------------------修改后台用户资料
|
OA_User_ID = SafeRequest(trim(request.form("OA_UserID")))
|
OA_User = SafeRequest(trim(request.form("OA_User")))
|
OA_Name = SafeRequest(trim(request.form("OA_Name")))
|
OA_gender = SafeRequest(trim(request.form("OA_gender")))
|
OA_mobile = SafeRequest(trim(request.form("OA_mobile")))
|
OA_weixinID = SafeRequest(trim(request.form("OA_weixinID")))
|
OA_email = SafeRequest(trim(request.form("OA_email")))
|
OA_IdentityCard= SafeRequest(trim(request.form("OA_IdentityCard")))
|
|
OA_DepartmentID = SafeRequest(trim(request.form("OA_DepartmentID")))
|
If OA_DepartmentID<>"" Then OA_DepartmentID = Replace(OA_DepartmentID," ","")
|
OA_Position = SafeRequest(trim(request.form("OA_Position")))
|
OA_execLevel= SafeRequest(trim(request.form("OA_execLevel")))
|
OA_Province = SafeRequest(trim(request.form("province")))
|
OA_City = SafeRequest(trim(request.form("city")))
|
New_Pass = SafeRequest(trim(request.form("New_Pass")))
|
OA_CompetencyID = SafeRequest(trim(request.form("OA_CompetencyID")))
|
OA_OrderClass = SafeRequest(trim(request.form("OA_OrderClass")))
|
OA_Img = SafeRequest(trim(request.form("OA_Img")))
|
OA_Img_64 = SafeRequest(trim(request.form("OA_Img_64")))
|
OA_UserRemark= SafeRequest(trim(request.form("OA_UserRemark")))
|
OA_EmployeeGroup= SafeRequest(trim(request.form("OA_EmployeeGroup")))
|
|
Post_Name = SafeRequest(trim(request.form("Post_Name")))
|
Post_MoneyP = SafeRequest(trim(request.form("Post_MoneyP")))
|
Post_MoneyP1= SafeRequest(trim(request.form("Post_MoneyP1")))
|
If Post_MoneyP="" Then Post_MoneyP = 0
|
If Post_MoneyP1="" Then Post_MoneyP1= 0.5
|
If OA_EmployeeGroup="" Then OA_EmployeeGroup=0
|
|
If isDepartment("060201")=0 Then OA_User_ID=session("adminID")
|
If OA_OrderClass<>"" Then OA_OrderClass = Replace(OA_OrderClass," ","")
|
|
if OA_User_ID="" or OA_User="" or OA_Name="" then
|
Response.Redirect "/AdminUser_Edit.gds?userID="&OA_User_ID&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=4&SMT=1"
|
ElseIf OA_mobile="" And OA_weixinID="" And OA_email="" And OA_execLevel<>"3" Then
|
Response.Redirect "/AdminUser_Edit.gds?userID="&OA_User_ID&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=1&SMT=3"
|
end If
|
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select OA_User_ID from OA_User where (OA_User='"&OA_User&"' or OA_Name='"&OA_Name&"') and OA_User_ID<>'"&OA_User_ID&"'"
|
rs.open sql,objConn,1,1
|
if not rs.Eof then
|
Response.Redirect "/AdminUser_Edit.gds?userID="&OA_User_ID&"&h_menu1_1="&session("h_menu1_1")&"&SystemMessageType=4&SMT=2"
|
end if
|
rs.close()
|
|
'修改用户密码
|
if New_Pass<>"" and session("admin_execLevel")="2" And OA_execLevel<>"3" then
|
sql="update OA_User set OA_Pass=pwdencrypt('"&New_Pass&"') where OA_User_ID="&OA_User_ID
|
objConn.Execute sql
|
end If
|
|
'扩展单据类型
|
If OA_OrderClass<>"" Then
|
OA_OrderClassSql = Replace(OA_OrderClass,",","','")
|
sql="select vOrder2 from dictionary where vType=2 and vtext in (select replace(vtext,'服务单','调度单') from dictionary where vType=1 and vtitle='OrderClass' and vOrder2 in ('"&OA_OrderClassSql&"'))"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
OA_OrderClass=OA_OrderClass&","&rs(0)
|
rs.movenext
|
loop
|
rs.close()
|
End If
|
|
'高级用户修改
|
If OA_execLevel<>"" Then
|
HighUserSql=",OA_Position='"&OA_Position&"',OA_execLevel="&OA_execLevel&",OA_Province='"&OA_Province&"',OA_City='"&OA_City&"',OA_OrderClass='"&OA_OrderClass&"',Post_Name='"&Post_Name&"',Post_MoneyP="&Post_MoneyP&",Post_MoneyP1="&Post_MoneyP1&",OA_UserRemark='"&OA_UserRemark&"',OA_EmployeeGroup="&OA_EmployeeGroup&" "
|
'If OA_execLevel="-1" Then HighUserSql=HighUserSql&",OA_weixinStatus=2 "
|
If OA_DepartmentID<>"" Then
|
OA_DepartmentIDSP = SPLIT(OA_DepartmentID,",")
|
OA_DepartmentIDs = OA_DepartmentID
|
If OA_DepartmentIDSP(0)="185" And UBOUND(OA_DepartmentIDSP)>0 Then
|
OA_DepartmentID=OA_DepartmentIDSP(1)
|
Else
|
OA_DepartmentID=OA_DepartmentIDSP(0)
|
End If
|
HighUserSql=HighUserSql&",OA_DepartmentID="&OA_DepartmentID&",OA_DepartmentIDs='"&OA_DepartmentIDs&"' "
|
End If
|
'职能修改
|
OA_CompetencyIDSP = SPLIT(OA_CompetencyID,", ")
|
sql="delete from OA_Competency where OA_CompetencyUserID="&OA_User_ID
|
objConn.Execute sql
|
for i = 0 to UBOUND(OA_CompetencyIDSP)
|
OA_CompetencyID = OA_CompetencyIDSP(i)
|
sql="insert into OA_Competency (OA_CompetencyID,OA_CompetencyUserID) values ("&OA_CompetencyID&","&OA_User_ID&")"
|
objConn.Execute sql
|
next
|
End if
|
|
sql="update OA_User set OA_User='"&OA_User&"',OA_Name='"&OA_Name&"',OA_gender="&OA_gender&",OA_mobile='"&OA_mobile&"',OA_weixinID='"&OA_weixinID&"',OA_email='"&OA_email&"',OA_IdentityCard='"&OA_IdentityCard&"',OA_Img_64='"&OA_Img_64&"',OA_Img='"&OA_Img&"'"&HighUserSql&" where OA_User_ID="&OA_User_ID
|
objConn.Execute sql
|
|
rsRollbackTrans(objConn.Errors.count)
|
If OA_execLevel="3" Then
|
Response.Redirect "/AdminUser_Edit.gds?h_menu1_1=1&userID="&OA_User_ID
|
Else
|
Response.Redirect "/weixin/user_update.gds?OA_UserID="&OA_User_ID
|
End If
|
Response.End%>
|
|
|
<%case "11"
|
'-------------------------------------------------------------后台用户权限修改(单个权限复制)
|
userID = SafeRequest(request.form("userID"))
|
DepartmentID = SafeRequest(request.form("DepartmentID"))
|
CopyUserID = SafeRequest(request.form("CopyUserID"))
|
MergeUserID = SafeRequest(request.form("MergeUserID"))
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
'转部门
|
if userID<>"" and DepartmentID<>"" then
|
sql="select Department,operation_type from GBR.dbo.OA_User where userID='"&DepartmentID&"'"
|
rs.open sql,objConn,1,1
|
Department=rs("Department")
|
operation_type=rs("operation_type")
|
rs.close()
|
sql="update GBR.dbo.OA_User set operation_type='"&operation_type&"',Department='"&Department&"' where userID='"&userID&"'"
|
objConn.Execute sql
|
|
'复制权限
|
elseif userID<>"" and CopyUserID<>"" then
|
sql="select operation_type from GBR.dbo.OA_User where userID='"&CopyUserID&"'"
|
rs.open sql,objConn,1,1
|
if rs.Eof then%>
|
<script language=javascript>
|
alert("档案编号错误!!")
|
window.history.go(-1)
|
</script>
|
<%Response.End
|
end if
|
operation_type=rs("operation_type")
|
rs.close()
|
sql="update GBR.dbo.OA_User set operation_type='"&operation_type&"' where userID='"&userID&"'"
|
objConn.Execute sql
|
|
'合并权限
|
elseif userID<>"" and MergeUserID<>"" then
|
sql="select operation_type from GBR.dbo.OA_User where userID='"&MergeUserID&"'"
|
rs.open sql,objConn,1,1
|
if rs.Eof then%>
|
<script language=javascript>
|
alert("档案编号错误!!")
|
window.history.go(-1)
|
</script>
|
<%Response.End
|
end if
|
Merge_type=rs("operation_type")
|
rs.close()
|
sql="select operation_type from GBR.dbo.OA_User where userID='"&userID&"'"
|
rs.open sql,objConn,1,1
|
Merge_type=Merge_type&mid(rs("operation_type"),2)
|
rs.close()
|
Merge_type=SPLIT(Merge_type,",")
|
operation_type = ","
|
for i = 1 to UBOUND(Merge_type)-1
|
if InStr(operation_type,","&Merge_type(i)&",")<=0 then operation_type=operation_type&Merge_type(i)&","
|
next
|
|
sql="update GBR.dbo.OA_User set operation_type='"&operation_type&"' where userID='"&userID&"'"
|
objConn.Execute sql
|
end if
|
URL="OA_User_Legal.asp?userID="&userID
|
rsRollbackTrans(objConn.Errors.count)
|
%>
|
<script lnguage=javascript>
|
alert("修改用户权限完成!!");
|
window.location.href="<%=URL%>"
|
</script>
|
<%Response.End%>
|
|
|
<%case "12"
|
'-------------------------------------------------------------后台用户权限修改(权限发布1)(注意：同时修改本部门下所有账号权限,超级账号为合并权限,其它账号为复制权限)
|
userID = SafeRequest(request.form("userID"))
|
Department = SafeRequest(request.form("Department"))
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select operation_type from GBR.dbo.OA_User where userID='"&userID&"'"
|
rs.open sql,objConn,1,1
|
Merge_type=rs("operation_type")
|
rs.close()
|
'一般账号权限发布
|
sql="update GBR.dbo.OA_User set operation_type='"&Merge_type&"' where Department='"&Department&"' and execLevel<>2 and userID<>'"&userID&"'"
|
objConn.Execute sql
|
|
'主管账号权限发布
|
sql="select userID,operation_type from GBR.dbo.OA_User where Department='"&Department&"' and execLevel=2"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
uuserID=rs("userID")
|
Merge_type2=Merge_type&mid(rs("operation_type"),2)
|
Merge_type1=SPLIT(Merge_type2,",")
|
operation_type = ","
|
for i = 1 to UBOUND(Merge_type1)-1
|
if InStr(operation_type,","&Merge_type1(i)&",")<=0 then operation_type=operation_type&Merge_type1(i)&","
|
next
|
sql="update GBR.dbo.OA_User set operation_type='"&operation_type&"' where userID='"&uuserID&"'"
|
objConn.Execute sql
|
rs.movenext
|
loop
|
rs.close()
|
|
URL="OA_User_Legal.asp?userID="&userID
|
rsRollbackTrans(objConn.Errors.count)
|
%>
|
<script lnguage=javascript>
|
alert("权限发布完成!!");
|
window.location.href="<%=URL%>"
|
</script>
|
<%Response.End%>
|
|
<%case "13"
|
'-------------------------------------------------------------后台用户权限修改(权限发布2)(注意：同时发布新权限到本部门下所有账号)
|
userID = SafeRequest(request.form("userID"))
|
Department = SafeRequest(request.form("Department"))
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select operation_type from GBR.dbo.OA_User where userID='"&userID&"'"
|
rs.open sql,objConn,1,1
|
Merge_type=rs("operation_type")
|
rs.close()
|
sql="select userID,operation_type from GBR.dbo.OA_User where Department='"&Department&"' and userID<>'"&userID&"'"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
uuserID=rs("userID")
|
Merge_type2=Merge_type&mid(rs("operation_type"),2)
|
Merge_type1=SPLIT(Merge_type2,",")
|
operation_type = ","
|
for i = 1 to UBOUND(Merge_type1)-1
|
if InStr(operation_type,","&Merge_type1(i)&",")<=0 then operation_type=operation_type&Merge_type1(i)&","
|
next
|
sql="update GBR.dbo.OA_User set operation_type='"&operation_type&"' where userID='"&uuserID&"'"
|
objConn.Execute sql
|
rs.movenext
|
loop
|
rs.close()
|
|
URL="OA_User_Legal.asp?userID="&userID
|
rsRollbackTrans(objConn.Errors.count)
|
%>
|
<script lnguage=javascript>
|
alert("权限发布完成!!");
|
window.location.href="<%=URL%>"
|
</script>
|
<%Response.End%>
|
|
<%case "14"
|
'-------------------------------------------------------------调度单微信确认(演示)
|
testID = SafeRequest(request("testID"))
|
testUserID = SafeRequest(request("testUserID"))
|
|
if testID<>"" and testUserID<>"" then
|
sql="UPDATE test_OrdDt set testWeixinState='已确认',testWeixinDate=GETDATE() where id="&testUserID
|
objConn.Execute sql
|
end if
|
ReturnURL="/test_weixin.gds?testID="&testID
|
rsRollbackTrans(objConn.Errors.count)
|
Response.Redirect ReturnURL
|
Response.End%>
|
|
<%case "15"
|
'-------------------------------------------------------------调度单微信取消(演示)
|
testID = SafeRequest(request("testID"))
|
testUserID = SafeRequest(request("testUserID"))
|
|
if testID<>"" and testUserID<>"" then
|
sql="UPDATE test_OrdDt set testWeixinState='已取消',testWeixinDate=GETDATE() where id="&testUserID
|
objConn.Execute sql
|
end if
|
ReturnURL="/test_weixin.gds?testID="&testID
|
rsRollbackTrans(objConn.Errors.count)
|
Response.Redirect ReturnURL
|
Response.End%>
|
|
<%case "16"
|
'-------------------------------------------------------------修改字典
|
ID = SafeRequest(request.form("ID"))
|
searchTXT=SafeRequest(request.form("searchTXT"))
|
page = SafeRequest(request.form("page"))
|
vtitle = SafeRequest(request.form("vtitle"))
|
If vtitle="SMS" Then
|
ReturnURL="SMS_dictionary.gds"
|
ElseIf vtitle="strItmClass" Then
|
ReturnURL="MRP_strItmClass.gds"
|
ElseIf vtitle="WarehouseShelves" Then
|
ReturnURL="MRP_WarehouseShelves.gds"
|
Else
|
ReturnURL="Admin_dictionary.gds"
|
End If
|
If ID="" Then Response.Redirect ReturnURL&"?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))
|
If vID="" Then vID=0
|
If vType="" Then vType=0
|
If vOrder="" Then vOrder=0
|
If vtext="" Or vtitle="" Then Response.Redirect "/Admin_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 vID='"&vID&"' and id<>"&ID
|
rs.open sql,objConn,1,1
|
if not rs.eof then
|
Response.Redirect ReturnURL&"?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=ReturnURL&"?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 "17"
|
'-------------------------------------------------------------新增字典
|
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"))
|
|
If vID="" Then vID=0
|
If vType="" Then vType=0
|
If vOrder="" Then vOrder=0
|
If vtitle="SMS" Then
|
ReturnURL="SMS_dictionary.gds"
|
ElseIf vtitle="strItmClass" Then
|
ReturnURL="MRP_strItmClass.gds"
|
ElseIf vtitle="WarehouseShelves" Then
|
ReturnURL="MRP_WarehouseShelves.gds"
|
Else
|
ReturnURL="Admin_dictionary.gds"
|
End If
|
If vtext="" Or vtitle="" Then Response.Redirect ReturnURL&"?searchTXT="&searchTXT&"&page="&page&"&h_menu1="&session("h_menu1")&"&SystemMessageType=4&SMT=1"
|
|
|
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 ReturnURL&"?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=ReturnURL&"?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 "18"
|
'-------------------------------------------------------------删除字典
|
ID = trim(Request("ID"))
|
vtitle = SafeRequest(Request("vtitle"))
|
searchTXT=SafeRequest(request.form("searchTXT"))
|
page = SafeRequest(request.form("page"))
|
If vtitle="SMS" Then
|
ReturnURL="SMS_dictionary.gds"
|
ElseIf vtitle="strItmClass" Then
|
ReturnURL="MRP_strItmClass.gds"
|
ElseIf vtitle="WarehouseShelves" Then
|
ReturnURL="MRP_WarehouseShelves.gds"
|
Else
|
ReturnURL="Admin_dictionary.gds"
|
End If
|
If ID="" Then Response.Redirect ReturnURL&"?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=ReturnURL&"?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 "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")) '销售人员ID
|
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")) '是否企微成交
|
ServiceOrdOperationRemarks = SafeRequest(Request.form("ServiceOrdOperationRemarks"))'操作备注
|
ServiceOrdEstimatedOrderDate= SafeRequest(Request.form("ServiceOrdEstimatedOrderDate"))'预计派单时间
|
= 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 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,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&",'"&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)
|
|
'咨询单转为服务单('自动审核)
|
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," '企业应用的id，整型。可在应用的设置页面查看
|
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")) '调度单ID
|
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")) '销售人员ID
|
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")) '是否企微成交
|
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")) '当前修改项目
|
|
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 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(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&",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," '企业应用的id，整型。可在应用的设置页面查看
|
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")) '销售人员ID
|
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")) '是否企微成交
|
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 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&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")) '销售人员ID
|
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")) '是否企微成交
|
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 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&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 CInt(old_TraTxnPrice)>CInt(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 '多特接口 粤A61HA5 粤A56AD9
|
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," '企业应用的id，整型。可在应用的设置页面查看
|
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")) '排班表ID
|
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")) '违章人ID
|
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")) '违章人ID
|
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") '供应商ID
|
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" '阿里云短信模板ID
|
|
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" '阿里云短信模板ID
|
|
'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
|
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
|
|
'写入字典表OrderClass
|
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
|
|
'写入字典表UnitName
|
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
|
|
'写入字典表ServiceBranch
|
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," '企业应用的id，整型。可在应用的设置页面查看
|
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," '企业应用的id，整型。可在应用的设置页面查看
|
|
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")) '服务单ID
|
DispatchOrdID = SafeRequest(Request.form("DispatchOrdID")) '调度单ID
|
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")) '任务状态ID
|
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")) '服务单ID
|
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")) '服务单ID
|
DispatchOrdID = SafeRequest(Request.form("DispatchOrdID")) '调度单ID
|
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")) '是否企微成交
|
|
If ServiceOrd_work_ID="" Then ServiceOrd_work_ID="null"
|
If ServiceOrd_work_is="" Then ServiceOrd_work_is=0
|
'修改服务单
|
sql="update ServiceOrder set ServiceOrd_work_ID="&ServiceOrd_work_ID&",ServiceOrd_work_IDs='"&ServiceOrd_work_IDs&"',ServiceOrd_work_is="&ServiceOrd_work_is&" 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%>
|
|
|
|
<%case Else '上面都查不到情况下执行
|
Response.Write admin_save&"提交校验错误"
|
Call OA_Running("提交校验错误:"&admin_save&"|"&DispatchOrdID)
|
rsRollbackTrans(objConn.Errors.count)
|
end select %>
|
