|
<%'------------------------------------------服务单------------------------------------------
|
If admin_save<>"" Then
|
'提交返回字段
|
Call RequestForm(Origin)
|
OriginSP = SPLIT(Origin,"|")
|
For i=1 to UBOUND(OriginSP)
|
OriginSPv=SPLIT(OriginSP(i),"=")
|
If UBOUND(OriginSPv)=1 then
|
v=OriginSPv(0)
|
t=OriginSPv(1)
|
If (v<>"ServiceOrdClass" And ServiceOrdClass<>"") And (v<>"DispatchOrdClass" And DispatchOrdClass<>"") Then
|
Execute( v & "= """&t&""" ")
|
End If
|
End If
|
Next
|
|
ElseIf (ServiceOrdID<>"" Or Phone<>"") And NEWOrder="" Then
|
'数据库字段
|
If ServiceOrdID<>"" then
|
sql="select * from ServiceOrder where ServiceOrdID="&ServiceOrdID
|
Else
|
'来电的7天内咨询单或处理中的服务单或完成后3天内的服务单
|
sql="select top 1 * from ServiceOrder where ServiceOrdCoPhone='"&Phone&"' and ((ServiceOrdState=1 and datediff(dd,ServiceOrdStartDate,getdate())<7) or ServiceOrdState=2 or (ServiceOrdState=3 and datediff(dd,ServiceOrdApptDate,getdate())<=3)) order by ServiceOrdID desc"
|
End If
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
ServiceOrdID = rs("ServiceOrdID") '服务单号
|
ServiceOrdUserID = rs("ServiceOrdUserID") '用户ID
|
ServiceOrdClass = rs("ServiceOrdClass") '单据类型
|
ServiceOrdType = rs("ServiceOrdType") '服务单类型
|
ServiceOrdState = rs("ServiceOrdState") '服务单状态
|
ServiceOrdStartDate = rs("ServiceOrdStartDate") '开单日期
|
ServiceOrdApptDate = rs("ServiceOrdApptDate") '预约日期
|
ServiceOrdCoName = rs("ServiceOrdCoName") '联系人姓名
|
ServiceOrdCoPhone = rs("ServiceOrdCoPhone") '联系人电话
|
ServiceOrdCoTies = rs("ServiceOrdCoTies") '联系人与患者关系
|
ServiceOrdPtName = rs("ServiceOrdPtName") '患者姓名
|
ServiceOrdPtAge = rs("ServiceOrdPtAge") '患者年龄
|
ServiceOrdPtSex = rs("ServiceOrdPtSex") '患者性别
|
ServiceOrdPtNat = rs("ServiceOrdPtNat") '患者国籍
|
ServiceOrdPtOutHospID = rs("ServiceOrdPtOutHospID") '转出医院ID
|
ServiceOrdPtOutHosp = rs("ServiceOrdPtOutHosp") '转出医院
|
ServiceOrdPtInHospID = rs("ServiceOrdPtInHospID") '转入医院ID
|
ServiceOrdPtInHosp = rs("ServiceOrdPtInHosp") '转入医院
|
ServiceOrdPtServices = rs("ServiceOrdPtServices") '转出科室
|
ServiceOrdPtServicesID=rs("ServiceOrdPtServicesID") '转出科室ID
|
ServiceOrdPtInServices = rs("ServiceOrdPtInServices") '转入科室
|
ServiceOrdPtInServicesID=rs("ServiceOrdPtInServicesID") '转入科室ID
|
ServiceOrdPtDiagnosis = rs("ServiceOrdPtDiagnosis") '诊断
|
ServiceOrdPtCondition = rs("ServiceOrdPtCondition") '备注
|
ServiceOrdPtDoctor = rs("ServiceOrdPtDoctor") '患者医生
|
ServiceOrdPtDoctorPhone=rs("ServiceOrdPtDoctorPhone") '患者医生电话
|
ServiceOrdTraProvince = rs("ServiceOrdTraProvince") '出发地省份
|
ServiceOrdTraCity = rs("ServiceOrdTraCity") '出发地城市
|
ServiceOrdTraStreet = rs("ServiceOrdTraStreet") '出发地
|
ServiceOrdTraStreetCoo= rs("ServiceOrdTraStreetCoo") '出发地坐标
|
ServiceOrdTraEnd = rs("ServiceOrdTraEnd") '目的地
|
ServiceOrdTraEndCoo = rs("ServiceOrdTraEndCoo") '目的地坐标
|
ServiceOrdTraVia = rs("ServiceOrdTraVia") '途经地
|
ServiceOrdTraDistance = rs("ServiceOrdTraDistance") '距离(公里)
|
ServiceOrdTraDuration = rs("ServiceOrdTraDuration") '预计行程时间
|
ServiceOrdTraUnitPrice= rs("ServiceOrdTraUnitPrice") '单价/公里
|
ServiceOrdTraOfferPrice=rs("ServiceOrdTraOfferPrice") '标准报价
|
ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice") '成交价
|
ServiceOrdTraPrePayment=rs("ServiceOrdTraPrePayment") '需预付款金额
|
ServiceOrdTraPaidPrice= rs("ServiceOrdTraPaidPrice") '已支付金额
|
ServiceOrdTraPriceReason=rs("ServiceOrdTraPriceReason")'差价原因
|
ServiceOrd_CC_ID = rs("ServiceOrd_CC_ID") '第一次接单人员ID
|
ServiceOrd_CC_Time = rs("ServiceOrd_CC_Time") '第一次接单时间
|
ServiceOrd_NS_ID = rs("ServiceOrd_NS_ID") '确认服务单人员ID
|
ServiceOrd_NS_Time = rs("ServiceOrd_NS_Time") '确认服务单时间
|
ServiceOrd_AP_Check = rs("ServiceOrd_AP_Check") '服务单审核状态(0未审核,1已审核)
|
ServiceOrd_AP_ID = rs("ServiceOrd_AP_ID") '服务单审核人员ID
|
ServiceOrd_AP_Time = rs("ServiceOrd_AP_Time") '服务单审核时间
|
ServiceOrdUnitID = rs("ServiceOrdUnitID") '第三方ID
|
ServiceOrdUnitRemarks = rs("ServiceOrdUnitRemarks") '第三方订单备注
|
PayQRcodeURL = rs("PayQRcodeURL") '第三方支付链接
|
ServiceOrdVisit = rs("ServiceOrdVisit") '回访记录
|
ServiceOrdVisit_time = rs("ServiceOrdVisit_time") '回访时间
|
ServiceOrdVisit_ID = rs("ServiceOrdVisit_ID") '回访人员ID
|
ServiceOrdSource = rs("ServiceOrdSource") '订单来源(OrdSource)
|
ServiceOrdOperationRemarks= rs("ServiceOrdOperationRemarks") '操作备注项
|
ServiceOrdEstimatedOrderDate=rs("ServiceOrdEstimatedOrderDate")'预计派单时间
|
OrderLevel = rs("OrderLevel") '查看等级
|
ConditionLevel = rs("ConditionLevel") '病重级别
|
DirectionType = rs("DirectionType") '转运去向
|
Guest_openid = rs("Guest_openid")
|
Guest_Reward = rs("Guest_Reward")
|
Guest_Point = rs("Guest_Point")
|
RV_Point = rs("RV_Point")
|
Guest_Evaluate = rs("Guest_Evaluate")
|
Guest_Impression = rs("Guest_Impression")
|
Guest_Time = rs("Guest_Time")
|
ServiceOrdUserUpdateTime= rs("ServiceOrdUserUpdateTime")'客人更新资料时间
|
If IsNumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance=ServiceOrdTraDistance&"公里"
|
'通知已阅标记
|
sql="update ServiceOrd_Message set MessageToState=1,MessageToStateTime=GETDATE() where ServiceOrdIDDt="&ServiceOrdID&" and MessageToOAid="&session("adminID")&" and MessageToState=0 and MessageState=1"
|
objConn.Execute sql
|
Else
|
ServiceOrdCoPhone=Phone
|
ServiceOrdID=""
|
end if
|
rs.close()
|
CoPhone = ServiceOrdCoPhone
|
End If
|
|
'默认字段
|
If ServiceOrdPtNat="" Then ServiceOrdPtNat="中国"
|
If ServiceOrdTraUnitPrice="" Then ServiceOrdTraUnitPrice=0
|
If ServiceOrdTraOfferPrice="" Then ServiceOrdTraOfferPrice=0
|
If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
|
If ServiceOrdTraPrePayment="" Then ServiceOrdTraPrePayment=0
|
If ServiceOrdTraProvince<>"" Then ProvinceCityID=ServiceOrdTraProvince
|
If ServiceOrdTraCity<>"" Then ProvinceCityID=ServiceOrdTraCity
|
If TEL_Time="" Then TEL_Time=now()
|
If ServiceOrdApptDate<>"" then
|
If year(ServiceOrdApptDate)<2010 then ServiceOrdApptDate=""
|
End If
|
If ServiceOrdEstimatedOrderDate<>"" then
|
If year(ServiceOrdEstimatedOrderDate)<2010 then ServiceOrdEstimatedOrderDate=""
|
End If
|
ConditionPic=""
|
CPicInt=0
|
If ServiceOrdUnitRemarks<>"" And not isnull(ServiceOrdUnitRemarks) Then
|
s=0
|
do While InStr(ServiceOrdUnitRemarks,"http")>0 And s<=500
|
cpic=Mid(ServiceOrdUnitRemarks,InStr(ServiceOrdUnitRemarks,"http"))
|
If InStr(cpic,".jpg")>0 Then
|
cc=InStr(cpic,".jpg")+3
|
ElseIf InStr(cpic,".jpga")>0 Then
|
cc=InStr(cpic,".jpga")+4
|
ElseIf InStr(cpic,".png")>0 Then
|
cc=InStr(cpic,".png")+3
|
ElseIf InStr(cpic,".bmp")>0 Then
|
cc=InStr(cpic,".bmp")+3
|
End If
|
cpic=Left(cpic,cc)
|
ConditionPic=ConditionPic&","&cpic
|
ServiceOrdUnitRemarks=Replace(ServiceOrdUnitRemarks,","&cpic,"")
|
ServiceOrdUnitRemarks=Replace(ServiceOrdUnitRemarks,cpic,"")
|
s=s+1
|
Loop
|
If ConditionPic<>"" Then
|
'ConditionPic=Mid(ConditionPic,2)
|
ConditionPic=SPLIT(ConditionPic,",")
|
CPicInt=UBOUND(ConditionPic)
|
End If
|
End If
|
If ServiceOrdUserID<>"" And ServiceOrdUserID<>"0" Then
|
UserID=ServiceOrdUserID
|
Else
|
UserID=0
|
End If
|
%>
|
<%If ServiceOrdID<>"" And ServiceOrdUserUpdateTime<>"" Then%>
|
<script type="text/javascript">
|
//检查用户是否有自己更新资料
|
setInterval(function() {JS_isUserUpdate();},10000);//十秒后执行
|
/*请求函数的ajax*/
|
function JS_isUserUpdate() {
|
$.ajax({
|
type: "POST",
|
url: "ServiceOrder_DataUP.gds",//需要跳转到的界面 the page you want to post data
|
data: {
|
ServiceOrdID: "<%=ServiceOrdID%>",
|
UserUpTime: "<%=ServiceOrdUserUpdateTime%>"//要传给后台的数据 the data you should send to background
|
},
|
beforeSend: function() {},//在发送之前你可以进行相关操作 what you want to do before send
|
success: function(data) {
|
if (data!='')
|
{
|
if(confirm("客人已经更新资料,是否刷新？"))
|
{
|
window.location.href = "/ServiceOrder.gds?ServiceOrdID=<%=ServiceOrdID%>";
|
return false;
|
}
|
}
|
}
|
})
|
};
|
</script>
|
<%End If%>
|
<input name="ServiceOrdUserID" type="hidden" value="<%=UserID%>">
|
<div class="field">
|
<div class="label" style="float: left;margin-left:0px;">
|
<label for="input-small">查看级别:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 75px;">
|
<select name="OrderLevel" id="OrderLevel" style="width:138px;" class="select1">
|
<%sql="select vId,vtext from dictionary where vType=1 and vtitle='OrderLevel' order by vOrder"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
OrderLevelID=rs(0)
|
OrderLevelName=rs(1)
|
%>
|
<option value="<%=OrderLevelID%>"<%if (OrderLevel)=(OrderLevelID) then Response.Write " selected"%>><%=OrderLevelName%></option>
|
<%
|
rs.movenext
|
loop
|
rs.close()%>
|
</select>
|
</div>
|
</div>
|
|
|
<%If Phone<>"" Then
|
If ServiceOrdCoPhone="" Then ServiceOrdCoPhone=Phone
|
%>
|
<div class="field">
|
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">来电时间:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<input type="text" id="TEL_Time" name="TEL_Time" class="small valid" style="width:138px;" value="<%=TEL_Time%>" readonly="true">
|
</div>
|
<div class="label" style="float: left;margin-left: 231px;">
|
<label for="input-small">话务员:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 75px;">
|
<input type="text" id="TEL_OAUserID" name="TEL_OAUserID" class="small valid" style="width:138px;" value="<%=OAUser(session("adminID"),"UserName")%>" readonly="true">
|
</div>
|
</div>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">来电备注:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<textarea id="TEL_Remarks" name="TEL_Remarks" cols="50" rows="3" style="width:811px;"><%=TEL_Remarks%></textarea>
|
</div>
|
</div>
|
<%End if%>
|
|
<%If OrderClassB(ServiceOrdClass,"vType")="1" then%>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">客户预约时间:<br> [<a onclick="document.all.ServiceOrdApptDate.value = new Date().getFullYear()+'-'+(new Date().getMonth()+1)+'-'+new Date().getDate()+' '+new Date().getHours()+':'+new Date().getMinutes();">现在</a>]</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 82px;">
|
<%If ServiceOrd_AP_Check="1" And 1=2 Then%>
|
<input type="text" id="ServiceOrdApptDate" name="ServiceOrdApptDate" class="small valid" style="width:128px;" value="<%=ServiceOrdApptDate%>" readonly="true">
|
<%else%>
|
<input type="text" id="ServiceOrdApptDate" name="ServiceOrdApptDate" class="date<%If InStr(error,",ServiceOrdApptDate,")>0 Then Response.Write " error"%>" style="width:128px;" value="<%=ServiceOrdApptDate%>">
|
<%End if%>
|
</div>
|
<div class="label" style="float: left;margin-left: 228px;">
|
<label for="input-small">预计派单时间:<br> [<a onclick="document.all.ServiceOrdEstimatedOrderDate.value = new Date().getFullYear()+'-'+(new Date().getMonth()+1)+'-'+new Date().getDate()+' '+new Date().getHours()+':'+new Date().getMinutes();">现在</a>]</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 84px;">
|
<input type="text" id="ServiceOrdEstimatedOrderDate" name="ServiceOrdEstimatedOrderDate" class="date<%If InStr(error,",ServiceOrdEstimatedOrderDate,")>0 Then Response.Write " error"%>" style="width:126px;" value="<%=ServiceOrdEstimatedOrderDate%>">
|
<input name="ServiceOrdEstimatedOrderDateOld" type="hidden" value="<%=ServiceOrdEstimatedOrderDate%>">
|
</div>
|
<%If isDepartment("020109")=0 And session("Power_"&ServiceOrdID)<>"1" And DispatchOrdID="" And ServiceOrdID<>"" And (ServiceOrdUnitID="0" or ServiceOrdUnitID="") Then%>
|
<div class="label" style="float: left;margin-left: 453px;">
|
<label for="input-small">申请查看客户信息</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 105px;">
|
<span></span> <input type="text" id="AuthorizeNO" name="AuthorizeNO" value="" style="width: 100px;"/> <input type="button" id="button_AuthorizeNO" name="button_AuthorizeNO" value="发送验证码" style="background: #9a6d92 url(../../../resources/images/colors/purple/button_highlight.png) repeat-x;color: #ffffff;" onclick="JS_Authorize();">
|
</div>
|
<script LANGUAGE="javascript">
|
function JS_Authorize() {
|
AuthorizeNO=document.all.AuthorizeNO.value;
|
if (AuthorizeNO!="")
|
{
|
$.ajax({
|
type:'post',
|
url:'OrderAuthorize.gds?ServiceOrdID=<%=ServiceOrdID%>&OAid=<%=session("adminID")%>&AuthorizeNO='+AuthorizeNO,
|
success:function(data){
|
if(data == '1'){
|
//var url = "http://m.v.com.cn/inc/Pay_Weixin/test1553.php?CC_OAID="+CC_OAID+"&SCID="+data+"&CashMoney="+CashMoney+"&pay_weixinID="+pay_weixinID;
|
//window.location.href=url;
|
//document.all.button_AuthorizeNO.value="提交验证码";
|
//alert("验证成功");
|
location.reload();
|
return false;
|
}else{
|
alert("验证失败，请重试！");
|
return false;
|
}
|
}
|
});
|
}
|
else {
|
$.ajax({
|
type:'post',
|
url:'/weixin/message_send_OrderAuthorize.gds?ServiceOrdID=<%=ServiceOrdID%>&OAid=<%=session("adminID")%>',
|
success:function(data){
|
if(data == '1'){
|
//var url = "http://m.v.com.cn/inc/Pay_Weixin/test1553.php?CC_OAID="+CC_OAID+"&SCID="+data+"&CashMoney="+CashMoney+"&pay_weixinID="+pay_weixinID;
|
//window.location.href=url;
|
document.all.button_AuthorizeNO.value="提交验证码";
|
alert("发送成功");
|
return false;
|
}else{
|
alert("提交失败，请重试！");
|
return false;
|
}
|
}
|
});
|
}
|
}
|
</script>
|
<%End If%>
|
</div>
|
<%End if%>
|
|
<%
|
'敏感信息处理
|
If isDepartment("020109")=0 And session("Power_"&ServiceOrdID)<>"1" And DispatchOrdID="" And ServiceOrdID<>"" And (ServiceOrdUnitID="0" or ServiceOrdUnitID="") Then
|
'ServiceOrdCoName="【隐】"
|
If ServiceOrdCoPhone<>"" Then ServiceOrdCoPhone="【隐】"
|
If ServiceOrdPtAge<>"" Then ServiceOrdPtAge="【隐】"
|
If ServiceOrdPtName<>"" Then ServiceOrdPtName="【隐】"
|
If ServiceOrdPtServicesID<>"" And ServiceOrdPtServicesID<>"0" Then ServiceOrdPtServicesID="-2"
|
If ServiceOrdPtServices<>"" Then ServiceOrdPtServices="【隐】"
|
If ServiceOrdPtInServicesID<>"" And ServiceOrdPtInServicesID<>"0" Then ServiceOrdPtInServicesID="-2"
|
If ServiceOrdPtInServices<>"" Then ServiceOrdPtInServices="【隐】"
|
End If
|
%>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">联系人姓名:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 75px;">
|
<input type="text" id="ServiceOrdCoName" name="ServiceOrdCoName" class="small<%If InStr(error,",ServiceOrdCoName,")>0 Or ServiceOrdCoName="" Then Response.Write " error"%>" style="width:134px;" value="<%=ServiceOrdCoName%>">
|
</div>
|
<div class="label" style="float: left;margin-left: 231px;">
|
<label for="input-small">联系人电话:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 80px;">
|
<input type="text" id="ServiceOrdCoPhone" name="ServiceOrdCoPhone" class="small<%If InStr(error,",ServiceOrdCoPhone,")>0 Or ServiceOrdCoPhone="" Then Response.Write " error"%>" style="width:132px;" value="<%=ServiceOrdCoPhone%>">
|
</div>
|
<div class="label" style="float: left;margin-left: 455px;">
|
<label for="input-small">与患者关系:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 75px;">
|
<input type="text" id="ServiceOrdCoTies" name="ServiceOrdCoTies" class="small" style="width:127px;" value="<%=ServiceOrdCoTies%>">
|
</div>
|
<%If DATEDIFF("d",ServiceOrdStartDate,now)<15 And ServiceOrdID<>"" Then
|
QR_ID=""
|
sql="select id,QR_ID from weixinQR where QR_Key='"&ServiceOrdID&"'"
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
QR_ID = rs("QR_ID") '微信验证码ID
|
end if
|
rs.close()
|
If QR_ID="" Then
|
sql="select top 1 id,QR_ID from weixinQR where QR_type=3 and DATEADD(s,-1296000,GETDATE())>=QR_Time order by NEWID()"
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
QR_ID = rs("QR_ID") '微信验证码ID
|
sql="update weixinQR set QR_Name='"&ServiceOrdNo&"',QR_Key='"&ServiceOrdID&"',QR_Time=getdate() where QR_ID="&QR_ID
|
objConn.Execute sql
|
end if
|
rs.close()
|
End If
|
%>
|
<div class="label" style="float: left;margin-left: 678px;">
|
<label for="input-small">微信验证码:<a href="https://wx.966120.com.cn/wx_QR.asp?QR_ID=<%=QR_ID%>" target="_blank"><%=QR_ID%></a> [<a onclick="JS_smsTosend('','请在微信添加公众号[966120医疗快线],关注公众号后,输入验证码:<%=QR_ID%>,查询订单并支付定金')">发短信</a>]</label>
|
</div>
|
<%End If%>
|
</div>
|
|
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">患者姓名:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<input type="text" id="ServiceOrdPtName" name="ServiceOrdPtName" class="small<%If InStr(error,",ServiceOrdPtName,")>0 Or ServiceOrdPtName="" Then Response.Write " error"%>" style="width:138px;" value="<%=ServiceOrdPtName%>">
|
</div>
|
<div class="label" style="float: left;margin-left: 231px;">
|
<label for="input-small">年龄:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 75px;">
|
<input type="text" id="ServiceOrdPtAge" name="ServiceOrdPtAge" class="small" style="width:138px;" value="<%=ServiceOrdPtAge%>">
|
</div>
|
<div class="label" style="float: left;margin-left: 455px;">
|
<label for="input-small">性别:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<select name="ServiceOrdPtSex" id="ServiceOrdPtSex" style="width:138px;" class="select1">
|
<option value="">请选择</option>
|
<option value="男"<%if ServiceOrdPtSex="男" then Response.Write " selected"%>>男</option>
|
<option value="女"<%if ServiceOrdPtSex="女" then Response.Write " selected"%>>女</option>
|
</select>
|
</div>
|
|
<div class="label" style="float: left;margin-left:673px;">
|
<label for="input-small">国籍:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 65px;">
|
<input type="text" id="ServiceOrdPtNat" name="ServiceOrdPtNat" class="small" style="width:138px;" value="<%=ServiceOrdPtNat%>">
|
</div>
|
</div>
|
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">转出医院:</label>
|
</div>
|
<%'医院字典
|
'If ServiceOrdPtOutHospID="0" Or ServiceOrdPtOutHospID="" Then ServiceOrdPtOutHosp=""
|
If IsNumeric(ServiceOrdPtOutHosp) And ServiceOrdPtOutHosp<>"" And Len(ServiceOrdPtOutHosp)<10 then
|
sql="select vtext from dictionary where vType=1 and vtitle='HospName' and vID="&ServiceOrdPtOutHosp
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdPtOutHospTXT=rs("vtext")
|
Else
|
ServiceOrdPtOutHospTXT=ServiceOrdPtOutHosp
|
End If
|
rs.close()
|
Else
|
ServiceOrdPtOutHospTXT=ServiceOrdPtOutHosp
|
End If
|
'Response.Write sql
|
If ServiceOrdPtOutHospTXT="0" Then ServiceOrdPtOutHospTXT=""
|
If ServiceOrdPtOutHospID<>"0" And ServiceOrdPtOutHospID<>"" And ServiceOrdPtOutHospTXT<>"" Then
|
sql="select HospName,HospLevel from HospData where HospID="&ServiceOrdPtOutHospID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdPtOutHospTXT=ServiceOrdPtOutHospTXT&"|"&HospLevelA(rs("HospLevel"))
|
End If
|
rs.close()
|
End If
|
%>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<input name="ServiceOrdPtOutHospID" id="ServiceOrdPtOutHospID" type="hidden" value="<%=ServiceOrdPtOutHospID%>">
|
<input type="text" id="ServiceOrdPtOutHosp" name="ServiceOrdPtOutHosp" class="small<%If InStr(error,",ServiceOrdPtOutHosp,")>0 Or ((ServiceOrdPtOutHospID="0" Or ServiceOrdPtOutHospID="") And ServiceOrdPtOutHospTXT<>"") Then Response.Write " error"%><%'If ServiceOrd_AP_Check="1" Then Response.Write " valid"%>" style="width:369px;" value="<%=ServiceOrdPtOutHospTXT%>" readonly="true" onclick="javascript:JS_HospOpen('ServiceOrdPtOutHosp');">
|
</div>
|
<div class="label" style="float: left;margin-left: 456px;">
|
<label for="input-small">转出科室床位:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 88px;">
|
<%If ServiceOrdPtServicesID="-2" Then
|
HospDepartmentName="【隐】"
|
ElseIf ServiceOrdPtServicesID<>"0" And ServiceOrdPtServicesID<>"" Then
|
sql="select vId,vtext from dictionary where vType=1 and vtitle='HospitalDepartment' and vID="&ServiceOrdPtServicesID&" order by vOrder"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
HospDepartmentName=rs(1)
|
End If
|
rs.close()
|
End If%>
|
<input name="ServiceOrdPtServicesID" id="ServiceOrdPtServicesID" type="hidden" value="<%=ServiceOrdPtServicesID%>">
|
<input type="text" id="HospDepartmentName" name="HospDepartmentName" class="small<%If InStr(error,",ServiceOrdPtServicesID,")>0 Or ServiceOrdPtServicesID="" Then Response.Write " error"%>" style="width:78px;" value="<%=HospDepartmentName%>" readonly="true" onclick="javascript:JS_HospDepartmentOpen('ServiceOrdPtServicesID','HospDepartmentName');">
|
|
</div>
|
<div class="input" style="float:left;margin-left: 5px;">
|
<input type="text" id="ServiceOrdPtServices" name="ServiceOrdPtServices" class="small" style="width:228px;" value="<%=ServiceOrdPtServices%>">
|
</div>
|
</div>
|
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">转入医院:</label>
|
</div>
|
<%'医院字典
|
If IsNumeric(ServiceOrdPtInHosp) And ServiceOrdPtInHosp<>"" And Len(ServiceOrdPtInHosp)<10 then
|
sql="select vtext from dictionary where vType=1 and vtitle='HospName' and vID="&ServiceOrdPtInHosp
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdPtInHospTXT=rs("vtext")
|
Else
|
ServiceOrdPtInHospTXT=ServiceOrdPtInHosp
|
End If
|
rs.close()
|
Else
|
ServiceOrdPtInHospTXT=ServiceOrdPtInHosp
|
End If
|
If ServiceOrdPtInHospTXT="0" Then ServiceOrdPtInHospTXT=""
|
If ServiceOrdPtInHospID<>"0" And ServiceOrdPtInHospID<>"" And ServiceOrdPtInHospTXT<>"" Then
|
sql="select HospName,HospLevel from HospData where HospID="&ServiceOrdPtInHospID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdPtInHospTXT=ServiceOrdPtInHospTXT&"|"&HospLevelA(rs("HospLevel"))
|
End If
|
rs.close()
|
End If
|
%>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<input name="ServiceOrdPtInHospID" id="ServiceOrdPtInHospID" type="hidden" value="<%=ServiceOrdPtInHospID%>">
|
<input type="text" id="ServiceOrdPtInHosp" name="ServiceOrdPtInHosp" class="small<%If InStr(error,",ServiceOrdPtInHosp,")>0 Or ((ServiceOrdPtInHospID="0" Or ServiceOrdPtInHospID="") And ServiceOrdPtInHospTXT<>"") Then Response.Write " error"%><%'If ServiceOrd_AP_Check="1" Then Response.Write " valid"%>" style="width:369px;" value="<%=ServiceOrdPtInHospTXT%>" readonly="true" onclick="javascript:JS_HospOpen('ServiceOrdPtInHosp');">
|
</div>
|
<div class="label" style="float: left;margin-left: 456px;">
|
<label for="input-small">转入科室床位:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 88px;">
|
<%If ServiceOrdPtInServicesID="-2" Then
|
HospInDepartmentName="【隐】"
|
ElseIf ServiceOrdPtInServicesID<>"0" And ServiceOrdPtInServicesID<>"" Then
|
sql="select vId,vtext from dictionary where vType=1 and vtitle='HospitalDepartment' and vID="&ServiceOrdPtInServicesID&" order by vOrder"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
HospInDepartmentName=rs(1)
|
End If
|
rs.close()
|
End If%>
|
<input name="ServiceOrdPtInServicesID" id="ServiceOrdPtInServicesID" type="hidden" value="<%=ServiceOrdPtInServicesID%>">
|
<input type="text" id="HospInDepartmentName" name="HospInDepartmentName" class="small<%If InStr(error,",ServiceOrdPtInServicesID,")>0 Or ServiceOrdPtInServicesID="" Then Response.Write " error"%>" style="width:78px;" value="<%=HospInDepartmentName%>" readonly="true" onclick="javascript:JS_HospDepartmentOpen('ServiceOrdPtInServicesID','HospInDepartmentName');">
|
|
</div>
|
<div class="input" style="float:left;margin-left: 5px;">
|
<input type="text" id="ServiceOrdPtInServices" name="ServiceOrdPtInServices" class="small" style="width:228px;" value="<%=ServiceOrdPtInServices%>">
|
</div>
|
</div>
|
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">转运去向:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<select name="DirectionType" id="DirectionType" <%If InStr(error,",DirectionType,")>0 Or DirectionType="" Or DirectionType="0" Then Response.Write " style=""width:138px;height:30px;background-color:#FBE3E4;border:1px solid #FBC2C4;""" Else Response.Write " style=""width:138px;"" class=""select1""" %>>
|
<option value="0">请选择</option>
|
<%sql="select vId,vtext from dictionary where vType=1 and vtitle='DirectionType' order by vOrder"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
DirectionTypeID=rs(0)
|
DirectionTypeName=rs(1)
|
%>
|
<option value="<%=DirectionTypeID%>"<%if Clng(DirectionType)=Clng(DirectionTypeID) then Response.Write " selected"%>><%=DirectionTypeName%></option>
|
<%
|
rs.movenext
|
loop
|
rs.close()%>
|
</select>
|
</div>
|
<div class="label" style="float: left;margin-left:216px;">
|
<label for="input-small">病重级别:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 65px;">
|
<select name="ConditionLevel" id="ConditionLevel" <%If InStr(error,",ConditionLevel,")>0 Or ConditionLevel="" Or ConditionLevel="0" Then Response.Write " style=""width:138px;height:30px;background-color:#FBE3E4;border:1px solid #FBC2C4;""" Else Response.Write " style=""width:138px;"" class=""select1""" %>>
|
<option value="0">请选择</option>
|
<%sql="select vId,vtext from dictionary where vType=1 and vtitle='ConditionLevel' order by vOrder"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
ConditionLevelID=rs(0)
|
ConditionLevelName=rs(1)
|
%>
|
<option value="<%=ConditionLevelID%>"<%if Clng(ConditionLevel)=Clng(ConditionLevelID) then Response.Write " selected"%>><%=ConditionLevelName%></option>
|
<%
|
rs.movenext
|
loop
|
rs.close()%>
|
</select>
|
</div>
|
</div>
|
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">诊断:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<%
|
If ServiceOrdID<>"" Then
|
sql="select icd_id,icd_name from ServiceOrder_ICD,ICD10 where icd_id=id and ServiceOrdIDDt="&ServiceOrdID&" order by idDt"
|
rs.open sql,objConn,1,1
|
EntourageIDs=""
|
do while not rs.Eof
|
icd_id = rs("icd_id")
|
icd_name= rs("icd_name")
|
OrdICD_ID=OrdICD_ID&","&icd_id
|
OrdICD_name=OrdICD_name&icd_name&" , "
|
rs.movenext
|
loop
|
rs.close()
|
End If
|
If OrdICD_ID<>"" Then OrdICD_ID=OrdICD_ID&","
|
%>
|
<input name="OrdICD_ID_old" type="hidden" value="<%=OrdICD_ID%>">
|
<input name="OrdICD_ID" id="OrdICD_ID" type="hidden" value="<%=OrdICD_ID%>">
|
<label id="OrdICD"><%=OrdICD_name%></label><a onclick="javascript:JS_ICDOpen('OrdICD');">[添加病情诊断]</a><br><br>
|
<textarea id="ServiceOrdPtDiagnosis" name="ServiceOrdPtDiagnosis" cols="50" rows="3" style="width:811px;"><%=ServiceOrdPtDiagnosis%></textarea>
|
</div>
|
</div>
|
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">目前病情:</label>
|
</div>
|
<div class="checkboxes" style="float:left;margin-left: 70px;max-width: 800px;line-height: 25px;">
|
<ul>
|
<%
|
ConditionDefault="1"
|
If ServiceOrdID<>"" then
|
sql="select ConditionID from ServiceOrd_Condition where ServiceOrdCoID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
ConditionID=ConditionID&","&rs(0)
|
rs.movenext
|
loop
|
rs.close()
|
End if
|
ConditionIDSP = SPLIT(ConditionID,",")
|
sql="select vID,vtext,vType,vOrder,vOrder2 from dictionary where vType>=1 and vtitle='Condition' order by vOrder,ID"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ConditionName= rs("vOrder2")
|
ConditionOrder=rs("vOrder")
|
Response.Write "<li class=""condition""><span>"&ConditionName&":</span>"
|
j=0
|
z=2
|
do while not rs.Eof
|
ConditionID = rs("vID")
|
Condition = rs("vtext")
|
ConditionType= rs("vType")
|
ConditionName= rs("vOrder2")
|
|
If ConditionOrder<>rs("vOrder") Then
|
'Response.Write " </li><li class=""condition""><span>"&ConditionName&":</span>"
|
If z=3 Then
|
Response.Write "<li class=""condition"" style=""min-width: 250px;""><span>"&ConditionName&":</span>"
|
Else
|
Response.Write "<li class=""condition""><span>"&ConditionName&":</span>"
|
End If
|
ConditionOrder=rs("vOrder")
|
z=z+1
|
End If
|
|
Condition_is="0"
|
for i = 1 to UBOUND(ConditionIDSP)
|
If Cstr(ConditionID)=Cstr(ConditionIDSP(i)) Then
|
Condition_is="1"
|
j=j+1
|
End If
|
If j+1>i Then j=i-1
|
Next
|
If UBOUND(ConditionIDSP)>0 then
|
If ConditionType="2" And Cstr(ConditionIDSP(j+1))<>Cstr(ConditionID+1) And Cstr(ConditionIDSP(j))=Cstr(ConditionID) Then Condition_is="1"
|
Else
|
If ConditionType="2" Then Condition_is="1"
|
End If
|
%>
|
<input type="radio" id="ConditionID_<%=ConditionID%>" value="<%=ConditionID%>" name="ConditionID_<%=ConditionOrder%>" <%If Condition_is="1" Then Response.Write " checked=""checked"""%>><label for="ConditionID_<%=ConditionID%>"><%=Condition%></label>
|
<%
|
rs.movenext
|
loop
|
Response.Write " </li>"
|
End If
|
rs.close()
|
%>
|
|
</ul>
|
|
</div>
|
</div>
|
<%If ServiceOrdID<>"" Then%>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">客户要求:</label>
|
</div>
|
<div class="checkboxes" style="float:left;margin-left: 70px;max-width: 800px;line-height: 25px;">
|
<ul>
|
<%
|
sql="select * from ServiceOrder_Options,dictionary where vtitle='ServiceOptions' and vID=ServiceOptionsID and ServiceOrdSoID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
SO_ID = rs("vID")
|
SO_Type = rs("vType")
|
SO_Name = rs("vtext")
|
SO_Value = rs("ServiceOptionsValue")
|
SO_Mono = rs("vMono")
|
Response.Write "<li class=""condition""><span>"&SO_Name
|
If SO_Type="1" Then '1 单选(是否需要呼机机)
|
Response.Write ""
|
ElseIf SO_Type="2" Then '2 多项目的单选(服务级别)
|
SO_MonoSP=split(SO_Mono,",")
|
Response.Write ":"&SO_MonoSP(SO_Value+1)
|
ElseIf SO_Type="3" Then '3 项目的多选(多选类)
|
Response.Write ":"&SO_Value
|
ElseIf SO_Type="4" Then '4 带数字选项的单选(步梯担抬服务)
|
SO_ValueSP=split(SO_Value,",")
|
SO_MonoSP=split(SO_Mono,",")
|
Response.Write ":"&CInt(SO_ValueSP(1))+CInt(SO_MonoSP(2))&"楼"
|
ElseIf SO_Type="5" Then '5 文本输入(客户备注类)
|
Response.Write ":"&SO_Value
|
End If
|
Response.Write "</span></li>"
|
rs.movenext
|
Loop
|
rs.close()
|
%>
|
</ul>
|
</div>
|
</div>
|
<%End If%>
|
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">备注:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<textarea id="ServiceOrdPtCondition" name="ServiceOrdPtCondition" cols="50" rows="3" style="width:811px;"><%=ServiceOrdPtCondition%></textarea>
|
</div>
|
</div>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">操作备注:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<textarea id="ServiceOrdOperationRemarks" name="ServiceOrdOperationRemarks" cols="50" rows="3" style="width:811px;"><%=ServiceOrdOperationRemarks%></textarea>
|
</div>
|
</div>
|
<%If ServiceOrdUnitID>0 then%>
|
|
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small"><%=UnitUser(ServiceOrdUnitID,"UnitShort")%>备注:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<textarea id="ServiceOrdUnitRemarks" name="ServiceOrdUnitRemarks" cols="50" rows="3" style="width:811px;"><%=ServiceOrdUnitRemarks%></textarea>
|
</div>
|
</div>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small"><%=UnitUser(ServiceOrdUnitID,"UnitShort")%>支付链接:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 100px;">
|
<input type="text" id="PayQRcodeURL" name="PayQRcodeURL" class="small valid" style="width:380px;" value="<%=PayQRcodeURL%>" readonly="true">
|
</div>
|
</div>
|
<%End If%>
|
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">主诊医生:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<input type="text" id="ServiceOrdPtDoctor" name="ServiceOrdPtDoctor" class="small" style="width:138px;" value="<%=ServiceOrdPtDoctor%>">
|
</div>
|
<div class="label" style="float: left;margin-left: 231px;">
|
<label for="input-small">医生联系电话:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 93px;">
|
<input type="text" id="ServiceOrdPtDoctorPhone" name="ServiceOrdPtDoctorPhone" class="small" style="width:121px;" value="<%=ServiceOrdPtDoctorPhone%>">
|
</div>
|
</div>
|
|
<%'病情图片显示
|
If CPicInt>0 Then
|
%>
|
<div class="field">
|
<%for c = 1 to CPicInt%>
|
<a href="<%=ConditionPic(c)%>" target="_blank"><img src="<%=ConditionPic(c)%>" width="350" border="0"></a>
|
<%Next%>
|
</div>
|
<%End If%>
|
|
<%'地面服务单
|
If OrderClassB(ServiceOrdClass,"vType")="1" then%>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">转运方式:</label>
|
</div>
|
<div class="checkboxes" style="float:left;margin-left: 70px;margin-top: 8px;">
|
<%
|
If ServiceOrdID<>"" then
|
sql="select TransferModeID from ServiceOrd_TransferMode where ServiceOrdTMID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
TransferModeID=TransferModeID&","&rs(0)
|
rs.movenext
|
loop
|
rs.close()
|
End if
|
TransferModeIDSP = SPLIT(TransferModeID,",")
|
sql="select vID,vtext from dictionary where vType=1 and vtitle='TransferMode' order by vOrder"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
TransferID = rs("vID")
|
TransferName= rs("vtext")
|
Transfer_is="0"
|
for i = 1 to UBOUND(TransferModeIDSP)
|
If CInt(TransferID)=CInt(TransferModeIDSP(i)) Then Transfer_is="1"
|
Next
|
If CInt(TransferID)=1 And (ServiceOrdID="") Then Transfer_is="1"
|
%>
|
<input type="checkbox" id="TransferModeID_<%=TransferID%>" value="<%=TransferID%>" name="TransferModeID" style="margin: auto;"<%If Transfer_is="1" Then Response.Write " checked=""checked"""%>/>
|
<label for="TransferModeID_<%=TransferID%>"><%=TransferName%></label>
|
<%
|
rs.movenext
|
loop
|
rs.close()
|
%>
|
|
<input type="checkbox" id="ServiceOrdVIP" value="1" name="ServiceOrdVIP" style="margin: auto;"<%If ServiceOrdVIP="1" Then Response.Write " checked=""checked"""%>/>
|
<label for="ServiceOrdVIP" style="color: #E91E63;font-weight: bold;">VIP客户</label>
|
|
</div>
|
</div>
|
<%'车辆调度单
|
If OrderClassB(DispatchOrdClass,"vType")="2" or DispatchOrdClass="" Then%>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">行程:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<%If ServiceOrd_AP_Check="1" Then%>
|
<input type="text" id="ServiceOrdTraStreet" name="ServiceOrdTraStreet" class="small" style="width:380px;" value="<%=ServiceOrdTraStreet%>">
|
<%else%>
|
<input type="text" id="ServiceOrdTraStreet" name="ServiceOrdTraStreet" class="small<%If InStr(error,",ServiceOrdTraStreet,")>0 Or ServiceOrdTraStreet="" Then Response.Write " error"%>" style="width:380px;" value="<%=ServiceOrdTraStreet%>" onclick="JS_BaiduCalCreateShow()">
|
<%End if%>
|
</div>
|
<div class="label" style="float: left;margin-left: 467px;">
|
<label for="input-small">至</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 24px;">
|
<%If ServiceOrd_AP_Check="1" Then%>
|
<input type="text" id="ServiceOrdTraEnd" name="ServiceOrdTraEnd" class="small" style="width:380px;" value="<%=ServiceOrdTraEnd%>">
|
<%else%>
|
<input type="text" id="ServiceOrdTraEnd" name="ServiceOrdTraEnd" class="small<%If InStr(error,",ServiceOrdTraEnd,")>0 Or ServiceOrdTraEnd="" Then Response.Write " error"%>" style="width:380px;" value="<%=ServiceOrdTraEnd%>" onclick="JS_BaiduCalCreateShow()">
|
<%End if%>
|
</div>
|
<%
|
If DispatchOrdClass<>"" Then
|
DefaultAddress=OrderClassB(DispatchOrdClass,"vMono")
|
ElseIf ServiceOrdClass<>"" Then
|
DefaultAddress=OrderClassB(ServiceOrdClass,"vMono")
|
Else
|
DefaultAddress="民航广州医院"
|
End If
|
%>
|
<script LANGUAGE="javascript">
|
function JS_BaiduCalCreateShow(){
|
BaiduCalCreate.style.display='block';
|
var OrdClass=document.getElementById('ServiceOrdClass');
|
if(OrdClass!=null){
|
if (OrdClass!='')
|
{
|
OrdClass=OrdClass.value;
|
$.ajax({
|
type: "POST",
|
url: "/DefaultAddress.gds",//需要跳转到的界面 the page you want to post data
|
data: {
|
OrdClass: OrdClass//要传给后台的数据 the data you should send to background
|
},
|
success: function(data) {
|
if (data!='') {
|
document.getElementById("frm_streetHTML").innerHTML="<a onclick=\"frm_street_JS('"+data+"')\">"+data+"</a>";
|
}
|
}
|
})
|
|
}
|
}
|
|
if (document.getElementById('ServiceOrdTraStreet').value!='' && document.getElementById('ServiceOrdTraEnd').value!=''){
|
document.getElementById('search0').value=document.getElementById('ServiceOrdTraStreet').value; //出发地
|
document.getElementById('search1').value=document.getElementById('ServiceOrdTraEnd').value; //目的地
|
document.getElementById('frm_Duration').value=document.getElementById('ServiceOrdTraDuration').value; //获取时间
|
document.getElementById('frm_Distance').value=document.getElementById('ServiceOrdTraDistance').value; //获取距离
|
document.getElementById('frm_OfferPrice').value=document.getElementById('ServiceOrdTraOfferPrice').value;
|
var OrdTraVia=document.getElementById('ServiceOrdTraVia').value;
|
var frmTxt="";
|
var j=0
|
if (OrdTraVia!='')
|
{
|
OrdTraVia=OrdTraVia.split(" => ")
|
for (i = 0; i < OrdTraVia.length; i++)
|
{
|
//alert(OrdTraVia[i])
|
j=i+2
|
document.getElementById("MapInput"+j).style.display = "";
|
document.getElementById("search"+j).value=OrdTraVia[i];
|
}
|
}
|
BMap_JS();
|
}
|
else if (document.getElementById('ServiceOrdPtInHosp').value!='' || document.getElementById('ServiceOrdPtOutHosp').value!=''){
|
var ServiceOrdPtOutHosp=document.getElementById('ServiceOrdPtOutHosp').value; //转出医院
|
ServiceOrdPtOutHospArr = ServiceOrdPtOutHosp.split("|");
|
ServiceOrdPtOutHosp = ServiceOrdPtOutHospArr[0];
|
var ServiceOrdPtInHosp=document.getElementById('ServiceOrdPtInHosp').value; //转入医院
|
ServiceOrdPtInHospArr = ServiceOrdPtInHosp.split("|");
|
ServiceOrdPtInHosp = ServiceOrdPtInHospArr[0];
|
if (ServiceOrdPtOutHosp!='' && ServiceOrdPtOutHosp!='家中') //途 经1
|
{
|
document.getElementById('search2').value=ServiceOrdPtOutHosp;
|
document.getElementById("MapInput2").style.display = "";
|
}
|
if (ServiceOrdPtInHosp!='' && ServiceOrdPtInHosp!='家中') //目的地
|
{
|
document.getElementById('search1').value=ServiceOrdPtInHosp;
|
}
|
if (document.getElementById('search2').value!='' && document.getElementById('search1').value!='')
|
{
|
document.getElementById('search0').value='民航广州医院'; //出发地
|
BMap_JS();
|
}
|
|
}
|
|
//BMap_JS();
|
//ServiceOrdPtOutHosp=document.getElementById("ServiceOrdPtOutHosp").value
|
//if (ServiceOrdPtOutHosp)
|
//{
|
// document.getElementById("frm_transfer").innerHTML=" "+ServiceOrdPtOutHosp+" 转 ";
|
//}
|
//else
|
//{
|
// document.getElementById("frm_transfer").innerHTML="";
|
//}
|
|
}
|
</script>
|
<!--坐标-->
|
<input type="hidden" id="ServiceOrdTraStreetCoo" name="ServiceOrdTraStreetCoo" value="<%=ServiceOrdTraStreetCoo%>"/>
|
<input type="hidden" id="ServiceOrdTraEndCoo" name="ServiceOrdTraEndCoo" value="<%=ServiceOrdTraEndCoo%>"/>
|
</div>
|
<div class="field" id="OrdTraVia"<%If ServiceOrdTraVia="" then%> style="display:none;"<%End If%>>
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">途经:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<%If ServiceOrd_AP_Check="1" Then%>
|
<input type="text" id="ServiceOrdTraVia" name="ServiceOrdTraVia" class="small" style="width:800px;" value="<%=ServiceOrdTraVia%>">
|
<%else%>
|
<input type="text" id="ServiceOrdTraVia" name="ServiceOrdTraVia" class="small<%If InStr(error,",ServiceOrdTraVia,")>0 Then Response.Write " error"%>" style="width:800px;" value="<%=ServiceOrdTraVia%>" onclick="JS_BaiduCalCreateShow()">
|
<%End if%>
|
</div>
|
</div>
|
<div class="field">
|
<script src="/js/address.js" type="text/javascript"></script>
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">出发地:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<select class="f-input" id="province" name="province" style="padding: 5px 0 5px 8px;"> <option value="" selected="selected">请选择</option></select>
|
<select class="f-input" id="city" name="city" style="padding: 5px 0 5px 8px;"><option value="" selected="selected">请选择</option></select>
|
<input type="hidden" name="area" id="area" value="<%=ProvinceCityID%>">
|
</div>
|
<div class="label" style="float: left;margin-left: 455px;">
|
<label for="input-small">行程时间:</label>
|
</div>
|
<div class="input" style="margin-left:523px;">
|
<input type="text" id="ServiceOrdTraDuration" name="ServiceOrdTraDuration" class="small" style="width:138px;" value="<%=ServiceOrdTraDuration%>">
|
</div>
|
<div class="label" style="float: left;margin-left:698px;">
|
<label for="input-small">距离:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 60px;">
|
<input type="text" id="ServiceOrdTraDistance" name="ServiceOrdTraDistance" class="small<%If InStr(error,",ServiceOrdTraDistance,")>0 Or ServiceOrdTraDistance="" Then Response.Write " error"%>" style="width:85px;" value="<%=ServiceOrdTraDistance%>">
|
<label for="input-small" style="color: #E91E63;font-weight: bold;padding-left: 6px;">必填，若无数据写-1</label>
|
</div>
|
|
</div>
|
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">单价/公里:</label>
|
</div>
|
<%'单价字典
|
If ServiceOrdTraUnitPrice="0" then
|
sql="select vOrder from dictionary where vtitle='TraUnitPrice' and vID=1"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdTraUnitPrice=rs("vOrder")
|
End If
|
rs.close()
|
End If
|
|
%>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<input type="text" id="ServiceOrdTraUnitPrice" name="ServiceOrdTraUnitPrice" class="small" style="width:138px;" onkeyup="value=value.replace(/[^\d.]/g,'')" onblur="value=value.replace(/[^\d.]/g,'')" value="<%=Round(ServiceOrdTraUnitPrice,2)%>">
|
</div>
|
<div class="label" style="float: left;margin-left: 231px;">
|
<label for="input-small">标准报价:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 75px;">
|
<input id="ServiceOrdTraOfferPrice_A" type="hidden" value="<%=ServiceOrdTraOfferPrice%>">
|
<input type="text" id="ServiceOrdTraOfferPrice" name="ServiceOrdTraOfferPrice" class="small" style="width:138px;" onkeyup="value=value.replace(/[^\d.]/g,'')" onblur="value=value.replace(/[^\d.]/g,'')" value="<%=Round(ServiceOrdTraOfferPrice,2)%>">
|
</div>
|
<div class="label" style="float: left;margin-left: 455px;">
|
<label for="input-small">成交价:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<input type="text" id="ServiceOrdTraTxnPrice" name="ServiceOrdTraTxnPrice" class="small<%If InStr(error,",ServiceOrdTraTxnPrice,")>0 Or ServiceOrdTraTxnPrice="0" Then Response.Write " error"%><%If ServiceOrd_AP_Check="1" And DispatchOrd_AP_Check="1" Then Response.Write " valid"%>" style="width:138px;" onkeyup="value=value.replace(/[^\d.]/g,'')" onblur="value=value.replace(/[^\d.]/g,'')" value="<%=Round(ServiceOrdTraTxnPrice,2)%>"<%If ServiceOrd_AP_Check="1" And DispatchOrd_AP_Check="1" Then Response.Write " readonly=""true""" %>>
|
</div>
|
|
<div class="label" style="float: left;margin-left:673px;">
|
<label for="input-small">需预付款:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 60px;">
|
<input type="text" id="ServiceOrdTraPrePayment" name="ServiceOrdTraPrePayment" class="small<%If ServiceOrd_AP_Check="1" And DispatchOrd_AP_Check="1" Then Response.Write " valid"%>" style="width:138px;" onkeyup="value=value.replace(/[^\d.]/g,'')" onblur="value=value.replace(/[^\d.]/g,'')" value="<%=FormatNumber(Round(ServiceOrdTraPrePayment,2),2,True)%>"<%If ServiceOrd_AP_Check="1" And DispatchOrd_AP_Check="1" Then Response.Write " readonly=""true""" %>>
|
</div>
|
</div>
|
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">差价原因:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<input type="text" id="ServiceOrdTraPriceReason" name="ServiceOrdTraPriceReason" class="small<%If ServiceOrd_AP_Check="1" And DispatchOrd_AP_Check="1" Then Response.Write " valid"%>" style="width:338px;" value="<%=ServiceOrdTraPriceReason%>"<%If ServiceOrd_AP_Check="1" And DispatchOrd_AP_Check="1" Then Response.Write " readonly=""true""" %>>
|
</div>
|
<div class="label" style="float: left;margin-left: 426px;">
|
<label for="input-small">[<a onclick="javascript:JS_CouponOpen('ServiceOrdTraPriceReason');">核销优惠券</a>]</label>
|
</div>
|
<%If ServiceOrdTraPaidPrice<ServiceOrdTraTxnPrice And ServiceOrdState<>4 Then%>
|
<div class="label" style="float: left;margin-left: 514px;margin-top: -7px;">
|
<label for="input-small">发短信支付:
|
<%If ServiceOrdTraTxnPrice>0 And ServiceOrdTraPaidPrice<ServiceOrdTraTxnPrice Then%>
|
<a onclick="JS_smsTosend('','【移动支付指引】：<%=ServiceOrdCoName%>您好！请点击以下链接进入信息确认和支付界面。核对您的出车信息无误后，可选择支付宝或者微信支付： [Pay|0|<%=ServiceOrdID%>] ')">支付全额<%=FormatNumber(Round(ServiceOrdTraTxnPrice-ServiceOrdTraPaidPrice,2),2,True)%>元</a>
|
<%End If%>
|
<!--<a onclick="JS_smsTosend('','支付全额')">支付全额</a>-->
|
<%If ServiceOrdTraPrePayment>0 And ServiceOrdTraPaidPrice<ServiceOrdTraPrePayment Then%>
|
<a onclick="JS_smsTosend('','【移动支付指引】：<%=ServiceOrdCoName%>您好！请点击以下链接进入信息确认和支付界面。核对您的出车信息无误后，可选择支付宝或者微信支付： [Pay|1|<%=ServiceOrdID%>] ')">支付预付款<%=FormatNumber(Round(ServiceOrdTraPrePayment-ServiceOrdTraPaidPrice,2),2,True)%>元</a>
|
<%End If%>
|
</label>
|
</div>
|
<%End If%>
|
|
<%If ServiceOrdTraPaidPrice<ServiceOrdTraTxnPrice And ServiceOrdState<>4 And UserID<>0 Then
|
sql="select top 1 weixinUserFormID.*,APPID,APPSECRET from weixinUserFormID,IntroducerUnitData,dictionary where vtitle='OrdSource' and vOrder2=APPID and formID_UnitID=UnitID and DATEDIFF(day,formID_savetime,GETDATE())<6 and formID_status>0 and vID="&ServiceOrdSource&" and formID_UserID="&UserID&" order by formID_savetime"
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
formID_APPID = rs("APPID")
|
formID_APPSECRET= rs("APPSECRET")
|
formID_id = rs("formID_id")
|
formID_detail = rs("formID_detail")
|
formID_openId = rs("formID_openId")
|
formID_savetime = rs("formID_savetime")
|
formID_UnitID = rs("formID_UnitID")
|
formID_UserID = rs("formID_UserID")
|
formID_status = rs("formID_status")
|
|
formID_TraStreet= ServiceOrdTraStreet
|
formID_TraEnd = ServiceOrdTraEnd
|
If ServiceOrdTraVia<>"" Then formID_TraStreet=ServiceOrdTraVia
|
If InStr(formID_TraStreet,",")>1 Then formID_TraStreet=Mid(formID_TraStreet,InStr(formID_TraStreet,",")+1)
|
If InStr(formID_TraEnd,",")>1 Then formID_TraEnd=Mid(formID_TraEnd,InStr(formID_TraEnd,",")+1)
|
%>
|
<div class="label" style="float: left;margin-left: 514px;margin-top: 14px;">
|
<label for="input-small">发微信支付通知:
|
<%If ServiceOrdTraTxnPrice>0 And ServiceOrdTraPaidPrice<ServiceOrdTraTxnPrice Then%>
|
<a onclick="JS_WXSMSTosend('<%=formID_APPID%>','<%=formID_openId%>','<%=formID_UnitID%>','Sg-uxoZEPecYVJ_ig7MbQUsnwv8fMGuxPvjWzApW-E4','<%=formID_detail%>','pages/order/detail/detail?ServiceOrdID=<%=ServiceOrdID%>','966120医疗快线转运费用','<%=formID_TraStreet%>','<%=formID_TraEnd%>','<%=FormatNumber(Round(ServiceOrdTraTxnPrice,2),2,True)%>元','<%=FormatNumber(Round(ServiceOrdTraTxnPrice-ServiceOrdTraPaidPrice,2),2,True)%>元','操作提醒')">支付全额<%=FormatNumber(Round(ServiceOrdTraTxnPrice-ServiceOrdTraPaidPrice,2),2,True)%>元</a>
|
<%End If%>
|
<!--<a onclick="JS_smsTosend('','支付全额')">支付全额</a>-->
|
<%If ServiceOrdTraPrePayment>0 And ServiceOrdTraPaidPrice<ServiceOrdTraPrePayment Then%>
|
<a onclick="JS_WXSMSTosend('<%=formID_APPID%>','<%=formID_openId%>','<%=formID_UnitID%>','Sg-uxoZEPecYVJ_ig7MbQUsnwv8fMGuxPvjWzApW-E4','<%=formID_detail%>','pages/order/detail/detail?ServiceOrdID=<%=ServiceOrdID%>','966120医疗快线转运费用','<%=formID_TraStreet%>','<%=formID_TraEnd%>','<%=FormatNumber(Round(ServiceOrdTraTxnPrice,2),2,True)%>元','<%=FormatNumber(Round(ServiceOrdTraPrePayment-ServiceOrdTraPaidPrice,2),2,True)%>元','操作提醒')">支付预付款<%=FormatNumber(Round(ServiceOrdTraPrePayment-ServiceOrdTraPaidPrice,2),2,True)%>元</a>
|
<%End If%>
|
</label>
|
</div>
|
<% End If
|
rs.close()
|
End If%>
|
</div>
|
<%'其它调度单
|
Else%>
|
<input name="ServiceOrdApptDate" type="hidden" value="<%=ServiceOrdApptDate%>">
|
<input name="TransferModeID" type="hidden" value="<%=TransferModeID%>">
|
<input name="province" type="hidden" value="<%=ServiceOrdTraProvince%>">
|
<input name="city" type="hidden" value="<%=ServiceOrdTraCity%>">
|
<input name="ServiceOrdTraStreet" type="hidden" value="<%=ServiceOrdTraStreet%>">
|
<input name="ServiceOrdTraEnd" type="hidden" value="<%=ServiceOrdTraEnd%>">
|
<input name="ServiceOrdTraStreetCoo" type="hidden" value="<%=ServiceOrdTraStreetCoo%>">
|
<input name="ServiceOrdTraEndCoo" type="hidden" value="<%=ServiceOrdTraEndCoo%>">
|
<input name="ServiceOrdTraDistance" type="hidden" value="<%=ServiceOrdTraDistance%>">
|
<input name="ServiceOrdTraDuration" type="hidden" value="<%=ServiceOrdTraDuration%>">
|
<input name="ServiceOrdTraUnitPrice" type="hidden" value="<%=ServiceOrdTraUnitPrice%>">
|
<input name="ServiceOrdTraOfferPrice" type="hidden" value="<%=ServiceOrdTraOfferPrice%>">
|
<input name="ServiceOrdTraPriceReason" type="hidden" value="<%=ServiceOrdTraPriceReason%>">
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">成交价:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<input type="text" id="ServiceOrdTraTxnPrice" name="ServiceOrdTraTxnPrice" class="small<%If InStr(error,",ServiceOrdTraTxnPrice,")>0 Then Response.Write " error"%><%If ServiceOrd_AP_Check="1" And DispatchOrd_AP_Check="1" Then Response.Write " valid"%>" style="width:138px;" onkeyup="value=value.replace(/[^\d.]/g,'')" onblur="value=value.replace(/[^\d.]/g,'')" value="<%=Round(ServiceOrdTraTxnPrice,2)%>"<%If ServiceOrd_AP_Check="1" And DispatchOrd_AP_Check="1" Then Response.Write " readonly=""true""" %>>
|
</div>
|
</div>
|
<%End If%>
|
<%Else%>
|
<input name="ServiceOrdApptDate" type="hidden" value="<%=ServiceOrdApptDate%>">
|
<input name="TransferModeID" type="hidden" value="<%=TransferModeID%>">
|
<input name="province" type="hidden" value="<%=ServiceOrdTraProvince%>">
|
<input name="city" type="hidden" value="<%=ServiceOrdTraCity%>">
|
<input name="ServiceOrdTraStreet" type="hidden" value="<%=ServiceOrdTraStreet%>">
|
<input name="ServiceOrdTraEnd" type="hidden" value="<%=ServiceOrdTraEnd%>">
|
<input name="ServiceOrdTraStreetCoo" type="hidden" value="<%=ServiceOrdTraStreetCoo%>">
|
<input name="ServiceOrdTraEndCoo" type="hidden" value="<%=ServiceOrdTraEndCoo%>">
|
<input name="ServiceOrdTraDistance" type="hidden" value="<%=ServiceOrdTraDistance%>">
|
<input name="ServiceOrdTraDuration" type="hidden" value="<%=ServiceOrdTraDuration%>">
|
<input name="ServiceOrdTraUnitPrice" type="hidden" value="<%=ServiceOrdTraUnitPrice%>">
|
<input name="ServiceOrdTraOfferPrice" type="hidden" value="<%=ServiceOrdTraOfferPrice%>">
|
<input name="ServiceOrdTraTxnPrice" type="hidden" value="<%=ServiceOrdTraTxnPrice%>">
|
<input name="ServiceOrdTraPriceReason" type="hidden" value="<%=ServiceOrdTraPriceReason%>">
|
<%End if%>
|
<%'回访记录
|
If ServiceOrdState=3 Then
|
sql="select count(Send_ID) from Sms_Log where (Send_Remarks='DispatchOrdID:"&DispatchOrdID&"' or Send_Remarks='DispatchOrdID:"&ServiceOrdID&"') and Send_Text like '%评价%'"
|
rs.open sql,objConn,1,1
|
SendInt=rs(0)
|
rs.close()
|
%>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">回访记录:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<%If isnull(ServiceOrdVisit_ID) then%>未回访<%If DispatchOrdID<>"" And Guest_Point="0" Then%> <a onclick="JS_smsTosend('','尊敬的患者家属，本次转运任务已结束，请您点击此链接，对本次转运服务给予评价。谢谢您的支持，祝您生活愉快！ [Eva|<%=DispatchOrdID%>] ')">发回访评分短信</a><%If SendInt>0 Then Response.Write " 已发送评分短信 "&SendInt&"次"%><%End If%><%else%>回访人员:<%=OAUser(ServiceOrdVisit_ID,"UserName")%> 回访时间:<%=ServiceOrdVisit_time%><%End If%>
|
<br><br><textarea id="ServiceOrdVisit" name="ServiceOrdVisit" cols="50" rows="3" style="width:811px;"><%=ServiceOrdVisit%></textarea>
|
<input name="ServiceOrdVisit_old" type="hidden" value="<%=ServiceOrdVisit%>">
|
</div>
|
</div>
|
<%If Guest_Point=0 then%>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">回访评价:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;line-height:20px;">
|
<%sql="select DispatchOrd_Entourage.id,EntourageOAid,OA_Name,RV_Point_1,RV_Point_2,RV_Point_3,EntourageID from DispatchOrd_Entourage,OA_User,DispatchOrd where OA_User_ID=EntourageOAid and EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and DispatchOrdState not in (10,9) and ServiceOrdIDDt="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
i=0
|
do while not rs.Eof
|
Guest_EId = rs("id")
|
Guest_OAid = rs("EntourageOAid")
|
Guest_OA_Name = rs("OA_Name")
|
RV_Point_1 = rs("RV_Point_1")
|
RV_Point_2 = rs("RV_Point_2")
|
RV_Point_3 = rs("RV_Point_3")
|
EntourageID = rs("EntourageID")
|
%>
|
<%=Guest_OA_Name%>
|
<%If RV_Point_1>0 And RV_Point_2>0 And RV_Point_3=0 Then%>
|
<select name="RV_Point_1_<%=Guest_EId%>" id="RV_Point_1_<%=Guest_EId%>" style="width:55px;" class="select">
|
<option value="0"<%If RV_Point_1=0 Then Response.Write " selected"%>>技能</option>
|
<option value="5"<%If RV_Point_1=5 Then Response.Write " selected"%>>5分</option>
|
<option value="4"<%If RV_Point_1=4 Then Response.Write " selected"%>>4分</option>
|
<option value="3"<%If RV_Point_1=3 Then Response.Write " selected"%>>3分</option>
|
<option value="2"<%If RV_Point_1=2 Then Response.Write " selected"%>>2分</option>
|
<option value="1"<%If RV_Point_1=1 Then Response.Write " selected"%>>1分</option>
|
</select>
|
|
<select name="RV_Point_2_<%=Guest_EId%>" id="RV_Point_2_<%=Guest_EId%>" style="width:55px;" class="select">
|
<option value="0"<%If RV_Point_2=0 Then Response.Write " selected"%>>服务</option>
|
<option value="5"<%If RV_Point_2=5 Then Response.Write " selected"%>>5分</option>
|
<option value="4"<%If RV_Point_2=4 Then Response.Write " selected"%>>4分</option>
|
<option value="3"<%If RV_Point_2=3 Then Response.Write " selected"%>>3分</option>
|
<option value="2"<%If RV_Point_2=2 Then Response.Write " selected"%>>2分</option>
|
<option value="1"<%If RV_Point_2=1 Then Response.Write " selected"%>>1分</option>
|
</select>
|
<%ElseIf (EntourageID=1 Or EntourageID=2) And RV_Point_1>0 And RV_Point_2=0 Then%>
|
<select name="RV_Point_1_<%=Guest_EId%>" id="RV_Point_1_<%=Guest_EId%>" style="width:55px;" class="select">
|
<option value="0"<%If RV_Point_1=0 Then Response.Write " selected"%>>评分</option>
|
<option value="5"<%If RV_Point_1=5 Then Response.Write " selected"%>>5分</option>
|
<option value="4"<%If RV_Point_1=4 Then Response.Write " selected"%>>4分</option>
|
<option value="3"<%If RV_Point_1=3 Then Response.Write " selected"%>>3分</option>
|
<option value="2"<%If RV_Point_1=2 Then Response.Write " selected"%>>2分</option>
|
<option value="1"<%If RV_Point_1=1 Then Response.Write " selected"%>>1分</option>
|
</select>
|
<%ElseIf EntourageID=1 Or EntourageID=2 Then%>
|
<select name="RV_Point_1_<%=Guest_EId%>" id="RV_Point_1_<%=Guest_EId%>" style="width:55px;" class="select">
|
<option value="0"<%If RV_Point_1=0 Then Response.Write " selected"%>>安全</option>
|
<option value="5"<%If RV_Point_1=5 Then Response.Write " selected"%>>5分</option>
|
<option value="4"<%If RV_Point_1=4 Then Response.Write " selected"%>>4分</option>
|
<option value="3"<%If RV_Point_1=3 Then Response.Write " selected"%>>3分</option>
|
<option value="2"<%If RV_Point_1=2 Then Response.Write " selected"%>>2分</option>
|
<option value="1"<%If RV_Point_1=1 Then Response.Write " selected"%>>1分</option>
|
</select>
|
|
<select name="RV_Point_2_<%=Guest_EId%>" id="RV_Point_2_<%=Guest_EId%>" style="width:55px;" class="select">
|
<option value="0"<%If RV_Point_2=0 Then Response.Write " selected"%>>服务</option>
|
<option value="5"<%If RV_Point_2=5 Then Response.Write " selected"%>>5分</option>
|
<option value="4"<%If RV_Point_2=4 Then Response.Write " selected"%>>4分</option>
|
<option value="3"<%If RV_Point_2=3 Then Response.Write " selected"%>>3分</option>
|
<option value="2"<%If RV_Point_2=2 Then Response.Write " selected"%>>2分</option>
|
<option value="1"<%If RV_Point_2=1 Then Response.Write " selected"%>>1分</option>
|
</select>
|
|
<select name="RV_Point_3_<%=Guest_EId%>" id="RV_Point_3_<%=Guest_EId%>" style="width:55px;" class="select">
|
<option value="0"<%If RV_Point_3=0 Then Response.Write " selected"%>>平稳</option>
|
<option value="5"<%If RV_Point_3=5 Then Response.Write " selected"%>>5分</option>
|
<option value="4"<%If RV_Point_3=4 Then Response.Write " selected"%>>4分</option>
|
<option value="3"<%If RV_Point_3=3 Then Response.Write " selected"%>>3分</option>
|
<option value="2"<%If RV_Point_3=2 Then Response.Write " selected"%>>2分</option>
|
<option value="1"<%If RV_Point_3=1 Then Response.Write " selected"%>>1分</option>
|
</select>
|
<%Else%>
|
<select name="RV_Point_1_<%=Guest_EId%>" id="RV_Point_1_<%=Guest_EId%>" style="width:55px;" class="select">
|
<option value="0"<%If RV_Point_1=0 Then Response.Write " selected"%>>技能</option>
|
<option value="5"<%If RV_Point_1=5 Then Response.Write " selected"%>>5分</option>
|
<option value="4"<%If RV_Point_1=4 Then Response.Write " selected"%>>4分</option>
|
<option value="3"<%If RV_Point_1=3 Then Response.Write " selected"%>>3分</option>
|
<option value="2"<%If RV_Point_1=2 Then Response.Write " selected"%>>2分</option>
|
<option value="1"<%If RV_Point_1=1 Then Response.Write " selected"%>>1分</option>
|
</select>
|
|
<select name="RV_Point_2_<%=Guest_EId%>" id="RV_Point_2_<%=Guest_EId%>" style="width:55px;" class="select">
|
<option value="0"<%If RV_Point_2=0 Then Response.Write " selected"%>>服务</option>
|
<option value="5"<%If RV_Point_2=5 Then Response.Write " selected"%>>5分</option>
|
<option value="4"<%If RV_Point_2=4 Then Response.Write " selected"%>>4分</option>
|
<option value="3"<%If RV_Point_2=3 Then Response.Write " selected"%>>3分</option>
|
<option value="2"<%If RV_Point_2=2 Then Response.Write " selected"%>>2分</option>
|
<option value="1"<%If RV_Point_2=1 Then Response.Write " selected"%>>1分</option>
|
</select>
|
|
<select name="RV_Point_3_<%=Guest_EId%>" id="RV_Point_3_<%=Guest_EId%>" style="width:55px;" class="select">
|
<option value="0"<%If RV_Point_3=0 Then Response.Write " selected"%>>指导</option>
|
<option value="5"<%If RV_Point_3=5 Then Response.Write " selected"%>>5分</option>
|
<option value="4"<%If RV_Point_3=4 Then Response.Write " selected"%>>4分</option>
|
<option value="3"<%If RV_Point_3=3 Then Response.Write " selected"%>>3分</option>
|
<option value="2"<%If RV_Point_3=2 Then Response.Write " selected"%>>2分</option>
|
<option value="1"<%If RV_Point_3=1 Then Response.Write " selected"%>>1分</option>
|
</select>
|
<%End If%>
|
|
|
|
<%i=i+1
|
rs.movenext
|
loop
|
rs.close()%>
|
</div>
|
</div>
|
<%End If%>
|
<%End If%>
|
<%'客人评价
|
If Guest_Point<>0 then%>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">客人评价:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;line-height:20px;">
|
<%If Guest_Point=0 then%>
|
未评价
|
<%else%>
|
<%If Guest_openid<>"" Then%>openid: <%=Guest_openid%><%else%>短信评价<%End If%>
|
评价时间: <%=Guest_Time%>
|
<%End If%>
|
<br>客人评分:
|
<%sql="select DispatchOrd_Entourage.id,EntourageOAid,OA_Name,Guest_Point_1,Guest_Point_2,Guest_Point_3,EntourageID from DispatchOrd_Entourage,OA_User,DispatchOrd where OA_User_ID=EntourageOAid and EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and ServiceOrdIDDt="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
i=0
|
do while not rs.Eof
|
Guest_EId = rs("id")
|
Guest_OAid = rs("EntourageOAid")
|
Guest_OA_Name = rs("OA_Name")
|
Guest_Point_1 = rs("Guest_Point_1")
|
Guest_Point_2 = rs("Guest_Point_2")
|
Guest_Point_3 = rs("Guest_Point_3")
|
EntourageID = rs("EntourageID")
|
If Guest_Point_1>0 And Guest_Point_2>0 And Guest_Point_3=0 Then
|
Response.Write " "&Guest_OA_Name&" [技能水平 "&Guest_Point_1&"分 服务态度 "&Guest_Point_2&"分]"
|
ElseIf Guest_Point_1>0 And Guest_Point_2>0 And Guest_Point_3>0 And (EntourageID=1 Or EntourageID=2) Then
|
Response.Write " "&Guest_OA_Name&" [快捷安全 "&Guest_Point_1&"分 服务态度 "&Guest_Point_2&"分 舒适平稳 "&Guest_Point_3&"分]"
|
ElseIf Guest_Point_1>0 And Guest_Point_2>0 And Guest_Point_3>0 Then
|
Response.Write " "&Guest_OA_Name&" [专业技能 "&Guest_Point_1&"分 服务态度 "&Guest_Point_2&"分 健康指导 "&Guest_Point_3&"分]"
|
Else
|
Response.Write " "&Guest_OA_Name&" [综合评分 "&Guest_Point_1&"分]"
|
End If
|
%>
|
|
<%i=i+1
|
rs.movenext
|
loop
|
rs.close()%>
|
<%If Guest_Reward>0 Then%><br>打赏: <%=Guest_Reward%>元<%End If%>
|
<%If Guest_Evaluate<>"" Then%><br>建议: <%=Guest_Evaluate%><%End If%>
|
<input name="ServiceOrdVisit_old" type="hidden" value="<%=ServiceOrdVisit%>">
|
</div>
|
</div>
|
<%End If%>
|
|
|
|
|
<!--医院窗口-->
|
<div class="dialogJ dialogJfix dialogJshadow" id="window_Hosp" style="z-index: 50007; width:900px; left: 0px; top: 0px;display:none;">
|
<div class="dialogJtitle">
|
<a href="javascript:JS_HospClose();" class="dialogJclose" title="关闭本窗口"> </a>
|
<input id="HospJSID" type="hidden" value="">
|
<span class="dialogJtxt">选择医院</span> <input type="text" id="HospSearchTXT" name="HospSearchTXT" value="<%=HospSearchTXT%>" style="width: 100px;" onkeyup="JS_HospSearch();"/> <input type="button" name="button3" value="查询" onclick="JS_HospSearch();"> <input type="button" name="button3" value="清空" onclick="JS_HospDel();"> <input type="button" name="button3" value="新增" onclick="javascript:window.open('/HospData.gds?h_menu1=1');">
|
</div>
|
<div class="dialogJcontent">
|
<div class="box">
|
<div class="table" style="padding: 0px;">
|
<input name="window_HospID" type="hidden" value="">
|
<table>
|
<thead>
|
<tr>
|
<th class="category last" style="text-align: center;">操作</th>
|
<th class="category left" style="text-align: center;">全称</th>
|
<th class="category left" style="text-align: center;">简称</th>
|
<th class="category left" style="text-align: center;">级别</th>
|
<th class="category left" style="text-align: center;">地址</th>
|
</tr>
|
</thead>
|
<tbody id="HospList">
|
<%for j=0 to 6%>
|
<tr>
|
<td class="category"> </td>
|
<td class="category"> </td>
|
<td class="category"> </td>
|
<td class="category"> </td>
|
<td class="category"> </td>
|
</tr>
|
<%next%>
|
</tbody>
|
</table>
|
</div>
|
</div>
|
</div>
|
</div>
|
<script LANGUAGE="javascript">
|
//打开选择医院窗口
|
function JS_HospOpen(id)
|
{
|
var sTop=document.documentElement.scrollTop;
|
if (sTop==0) {sTop=document.body.scrollTop;}
|
var sLeft= document.documentElement.scrollLeft;
|
if (sLeft==0) {sLeft=document.body.scrollLeft;}
|
|
var dTop = document.getElementById(id).getBoundingClientRect().top;
|
if (dTop<200) {dTop=110;}
|
var dLeft = document.getElementById(id).getBoundingClientRect().left;
|
if (dLeft<200) {dLeft=200;}
|
window_Hosp.style.display="block";
|
window_Hosp.style.left=(dLeft-100)+"px";
|
window_Hosp.style.top=(sTop+dTop+30)+"px";
|
document.getElementById("HospJSID").value=id;
|
HopsCity=$("#ServiceOrdClass").find("option:selected").text();
|
//HopsCity=$("#ServiceOrdClass").text();
|
//alert(HopsCity);
|
window.HiddenFrame.location.replace('HospSearch.gds?HopsCity='+HopsCity+'&JSID='+id);
|
//window.HiddenFrame.location.replace('HospSearch.gds?JSID='+id);
|
document.getElementById('HospSearchTXT').focus();
|
}
|
//关闭选择医院窗口
|
function JS_HospClose()
|
{
|
document.all.HospSearchTXT.value='';
|
window_Hosp.style.display="none";
|
}
|
//选择医院查询
|
function JS_HospSearch()
|
{
|
HospSearchTXT=document.all.HospSearchTXT.value;
|
window.HiddenFrame.location.replace('HospSearch.gds?HospSearchTXT='+HospSearchTXT);
|
}
|
function EnterPress_Hosp(e){ //传入 event
|
var e = e || window.event;
|
if(e.keyCode == 13){JS_HospSearch();}
|
}
|
//选择医院
|
function JS_HospSave(HospID,HospLicense)
|
{
|
var id=document.getElementById("HospJSID").value;
|
document.getElementById(id+"ID").value=HospID;
|
document.getElementById(id).value=HospLicense;
|
document.getElementById(id).classList.remove("error");
|
<%if DispatchOrdID<>"" And DispatchOrdState<10 And DispatchOrd_AP_Check="0" And isDepartment("030111")=1 then%>//document.getElementById("ServiceOrdPtOutHospR").value=HospLicense;<%end if%>
|
JS_HospClose();
|
}
|
//选择医院清空
|
function JS_HospDel()
|
{
|
var id=document.getElementById("HospJSID").value;
|
document.getElementById(id+"ID").value='';
|
document.getElementById(id).value='';
|
<%if DispatchOrdID<>"" And DispatchOrdState<10 And DispatchOrd_AP_Check="0" And isDepartment("030111")=1 then%>//document.getElementById("ServiceOrdPtOutHospR").value='';<%end if%>
|
JS_HospClose();
|
}
|
//显示医院列表窗口
|
function JS_HospList(HospListArray,acc1,acc2,HospSearchTXT,acc3)
|
{
|
var HospListHTML = "";
|
var i = 0;
|
HopsCity=$("#ServiceOrdClass").find("option:selected").text();
|
//HospType=document.getElementById("HospJSID").value;
|
if (HospListArray.length>0)
|
{
|
for (var i=0;i<HospListArray.length;i++)
|
{
|
HospListHTML = HospListHTML+"<tr style='cursor:pointer'><td class='category last1' style='white-space: nowrap;'><a href='/HospData.gds?HospSearchID="+HospListArray[i][0]+"' target='_blank'>修改</a></td><td class='category' onclick='JS_HospSave("+HospListArray[i][0]+",\""+HospListArray[i][1]+"|"+HospListArray[i][4]+"\")' style='white-space: nowrap;'>"+HospListArray[i][1]+"</td><td class='category' onclick='JS_HospSave("+HospListArray[i][0]+",\""+HospListArray[i][1]+"|"+HospListArray[i][4]+"\")' style='white-space: nowrap;'>"+HospListArray[i][2]+"</td><td class='category' onclick='JS_HospSave("+HospListArray[i][0]+",\""+HospListArray[i][1]+"|"+HospListArray[i][4]+"\")' style='white-space: nowrap;'>"+HospListArray[i][4]+"</td><td class='category' onclick='JS_HospSave("+HospListArray[i][0]+",\""+HospListArray[i][1]+"|"+HospListArray[i][4]+"\")' style='white-space: nowrap;'>"+HospListArray[i][3]+"</td></tr>";
|
}
|
}
|
if (acc2>1)
|
{
|
i=i+1;
|
HospListHTML = HospListHTML+"<tr><td colspan='5' style='text-align:center;'>";
|
if (acc1>1){HospListHTML = HospListHTML+"<a href='javascript:window.HiddenFrame.location.replace(\"HospSearch.gds?HospSearchTXT="+HospSearchTXT+"&HopsCity="+HopsCity+"&page="+(acc1-1)+"\");'>上一页</a>";}else{HospListHTML = HospListHTML+" ";}
|
if (acc1<acc2){HospListHTML = HospListHTML+" <a href='javascript:window.HiddenFrame.location.replace(\"HospSearch.gds?HospSearchTXT="+HospSearchTXT+"&HopsCity="+HopsCity+"&page="+(acc1+1)+"\");'>下一页</a>";}
|
HospListHTML = HospListHTML+" 共 "+acc3+" 条记录</td></tr>";
|
}
|
|
for (var j=i;j<=6;j++)
|
{
|
HospListHTML = HospListHTML+"<tr><td class='category'> </td><td class='category last1'> </td><td class='category last1'> </td><td class='category last1'> </td><td class='category last1'> </td></tr>";
|
}
|
document.getElementById("HospList").innerHTML=HospListHTML;
|
|
}
|
</script>
|
<!--医院窗口 end-->
|
|
<!--ICD窗口 国际疾病分类(International Classification of Diseases，ICD)-->
|
<div class="dialogJ dialogJfix dialogJshadow" id="window_ICD" style="z-index: 50007; width:800px; left: 0px; top: 0px;display:none;">
|
<div class="dialogJtitle">
|
<a href="javascript:JS_ICDClose();" class="dialogJclose" title="关闭本窗口"> </a>
|
<input id="ICDJSID" type="hidden" value="">
|
<span class="dialogJtxt">选择病情诊断</span> <input type="text" id="ICDSearchTXT" name="ICDSearchTXT" value="<%=ICDSearchTXT%>" style="width: 100px;" onkeyup="JS_ICDSearch();"/> <input type="button" name="button3" value="查询" onclick="JS_ICDSearch();"> <input type="button" name="button3" value="清空" onclick="JS_ICDDel();"><%if isDepartment("0604")=1 then%> <span class="dialogJtxt">[<a href="/ICD10.php" target="_blank" style="color: #FFFFFF;">标签管理</a>]</span><%End if%>
|
</div>
|
<div class="dialogJcontent">
|
<div class="box">
|
<div class="table" style="padding: 0px;">
|
<input name="window_ICDID" type="hidden" value="">
|
<table>
|
<thead>
|
<tr>
|
<th class="category left" style="text-align: center;">国际ICD编码</th>
|
<th class="category left" style="text-align: center;">疾病名称</th>
|
<th class="category left" style="text-align: center;">助记码</th>
|
</tr>
|
</thead>
|
<tbody id="ICDList">
|
<%for j=0 to 6%>
|
<tr>
|
<td class="category"> </td>
|
<td class="category"> </td>
|
<td class="category"> </td>
|
</tr>
|
<%next%>
|
</tbody>
|
</table>
|
</div>
|
</div>
|
</div>
|
</div>
|
<script LANGUAGE="javascript">
|
//打开选择ICD窗口
|
function JS_ICDOpen(id)
|
{
|
var sTop=document.documentElement.scrollTop;
|
if (sTop==0) {sTop=document.body.scrollTop;}
|
var sLeft= document.documentElement.scrollLeft;
|
if (sLeft==0) {sLeft=document.body.scrollLeft;}
|
|
var dTop = document.getElementById(id).getBoundingClientRect().top;
|
if (dTop<200) {dTop=110;}
|
var dLeft = document.getElementById(id).getBoundingClientRect().left;
|
if (dLeft<200) {dLeft=200;}
|
window_ICD.style.display="block";
|
window_ICD.style.left=(dLeft-100)+"px";
|
window_ICD.style.top=(sTop+dTop+80)+"px";
|
document.getElementById("ICDJSID").value=id;
|
window.HiddenFrame.location.replace('ICDSearch.gds?JSID='+id);
|
document.getElementById('ICDSearchTXT').focus();
|
}
|
//关闭选择ICD窗口
|
function JS_ICDClose()
|
{
|
document.all.ICDSearchTXT.value='';
|
window_ICD.style.display="none";
|
}
|
//选择ICD查询
|
function JS_ICDSearch()
|
{
|
ICDSearchTXT=document.all.ICDSearchTXT.value;
|
window.HiddenFrame.location.replace('ICDSearch.gds?ICDSearchTXT='+ICDSearchTXT);
|
}
|
function EnterPress_ICD(e){ //传入 event
|
var e = e || window.event;
|
if(e.keyCode == 13){JS_ICDSearch();}
|
}
|
//选择ICD
|
function JS_ICDSave(ICD_ID,ICD_Name)
|
{
|
var OrdICD_ID=document.getElementById("OrdICD_ID").value;
|
if (OrdICD_ID.indexOf(","+ICD_ID+",")==-1)
|
{
|
var OrdICD=document.getElementById("OrdICD").innerHTML;
|
if (OrdICD_ID=="")
|
{
|
document.getElementById("OrdICD_ID").value=","+ICD_ID+",";
|
}
|
else {
|
document.getElementById("OrdICD_ID").value=document.getElementById("OrdICD_ID").value+ICD_ID+",";
|
}
|
document.getElementById("OrdICD").innerHTML=OrdICD+ICD_Name+" , ";
|
}
|
|
//JS_ICDClose();
|
}
|
//选择ICD清空
|
function JS_ICDDel()
|
{
|
document.getElementById("OrdICD").innerHTML='';
|
document.getElementById("OrdICD_ID").value='';
|
//JS_ICDClose();
|
}
|
//显示ICD列表窗口
|
function JS_ICDList(ICDListArray,acc1,acc2,ICDSearchTXT,acc3)
|
{
|
var ICDListHTML = "";
|
var i = 0;
|
if (ICDListArray.length>0)
|
{
|
for (var i=0;i<ICDListArray.length;i++)
|
{
|
ICDListHTML = ICDListHTML+"<tr style='cursor:pointer'><td class='category' onclick='JS_ICDSave("+ICDListArray[i][0]+",\""+ICDListArray[i][2]+"\")' style='white-space: nowrap;'>"+ICDListArray[i][1]+"</td><td class='category' onclick='JS_ICDSave("+ICDListArray[i][0]+",\""+ICDListArray[i][2]+"\")' style='white-space: nowrap;'>"+ICDListArray[i][2]+"</td><td class='category' onclick='JS_ICDSave("+ICDListArray[i][0]+",\""+ICDListArray[i][2]+"\")' style='white-space: nowrap;'>"+ICDListArray[i][3]+"</td></tr>";
|
}
|
}
|
if (acc2>1)
|
{
|
i=i+1;
|
ICDListHTML = ICDListHTML+"<tr><td colspan='4' style='text-align:center;'>";
|
if (acc1>1){ICDListHTML = ICDListHTML+"<a href='javascript:window.HiddenFrame.location.replace(\"ICDSearch.gds?ICDSearchTXT="+ICDSearchTXT+"&page="+(acc1-1)+"\");'>上一页</a>";}else{ICDListHTML = ICDListHTML+" ";}
|
if (acc1<acc2){ICDListHTML = ICDListHTML+" <a href='javascript:window.HiddenFrame.location.replace(\"ICDSearch.gds?ICDSearchTXT="+ICDSearchTXT+"&page="+(acc1+1)+"\");'>下一页</a>";}
|
ICDListHTML = ICDListHTML+" 共 "+acc3+" 条记录</td></tr>";
|
}
|
|
for (var j=i;j<=6;j++)
|
{
|
ICDListHTML = ICDListHTML+"<tr><td class='category'> </td><td class='category last1'> </td><td class='category last1'> </td></tr>";
|
}
|
document.getElementById("ICDList").innerHTML=ICDListHTML;
|
|
}
|
</script>
|
<!--ICD窗口 end-->
|
|
<!--优惠券窗口-->
|
<div class="dialogJ dialogJfix dialogJshadow" id="window_Coupon" style="z-index: 50007; width:800px; left: 0px; top: 0px;display:none;">
|
<div class="dialogJtitle">
|
<a href="javascript:JS_CouponClose();" class="dialogJclose" title="关闭本窗口"> </a>
|
<input id="CouponJSID" type="hidden" value="">
|
<span class="dialogJtxt">选择优惠券</span> <input type="text" id="CouponSearchTXT" name="CouponSearchTXT" value="<%=CouponSearchTXT%>" style="width: 150px;" onkeyup="JS_CouponSearch();"/> <input type="button" name="button3" value="查询" onclick="JS_CouponSearch();"> <input type="button" name="button3" value="清空" onclick="JS_CouponDel();">
|
</div>
|
<div class="dialogJcontent">
|
<div class="box">
|
<div class="table" style="padding: 0px;">
|
<input name="window_CouponID" type="hidden" value="">
|
<table>
|
<thead>
|
<tr>
|
<th class="category left" style="text-align: center;">优惠券号码</th>
|
<th class="category left" style="text-align: center;">优惠券金额</th>
|
<th class="category left" style="text-align: center;">有效日期</th>
|
</tr>
|
</thead>
|
<tbody id="CouponList">
|
<%for j=0 to 6%>
|
<tr>
|
<td class="category"> </td>
|
<td class="category"> </td>
|
<td class="category"> </td>
|
</tr>
|
<%next%>
|
</tbody>
|
</table>
|
</div>
|
</div>
|
</div>
|
</div>
|
<script LANGUAGE="javascript">
|
//打开选择优惠券窗口
|
function JS_CouponOpen(id)
|
{
|
var sTop=document.documentElement.scrollTop;
|
if (sTop==0) {sTop=document.body.scrollTop;}
|
var sLeft= document.documentElement.scrollLeft;
|
if (sLeft==0) {sLeft=document.body.scrollLeft;}
|
|
var dTop = document.getElementById(id).getBoundingClientRect().top;
|
if (dTop>200) {dTop=200;}
|
var dLeft = document.getElementById(id).getBoundingClientRect().left;
|
if (dLeft<200) {dLeft=200;}
|
window_Coupon.style.display="block";
|
window_Coupon.style.left=(dLeft-100)+"px";
|
window_Coupon.style.top=(sTop+dTop+80)+"px";
|
document.getElementById("CouponJSID").value=id;
|
var CoPhone=document.getElementById("ServiceOrdCoPhone").value;
|
if (CoPhone=='【隐】') {CoPhone='<%=CoPhone%>';}
|
window.HiddenFrame.location.replace('CouponSearch.gds?CouponSearchTXT='+CoPhone);
|
document.getElementById('CouponSearchTXT').focus();
|
}
|
//关闭选择优惠券窗口
|
function JS_CouponClose()
|
{
|
document.all.CouponSearchTXT.value='';
|
window_Coupon.style.display="none";
|
}
|
//选择优惠券查询
|
function JS_CouponSearch()
|
{
|
CouponSearchTXT=document.all.CouponSearchTXT.value;
|
window.HiddenFrame.location.replace('CouponSearch.gds?CouponSearchTXT='+CouponSearchTXT);
|
}
|
function EnterPress_Coupon(e){ //传入 event
|
var e = e || window.event;
|
if(e.keyCode == 13){JS_CouponSearch();}
|
}
|
//选择优惠券
|
function JS_CouponSave(CouponID,CouponNO,CouponMoney)
|
{
|
id=document.getElementById("CouponJSID").value
|
document.getElementById(id).value="优惠券:"+CouponNO+" "+CouponMoney+"元";
|
|
JS_CouponClose();
|
}
|
//选择优惠券清空
|
function JS_CouponDel()
|
{
|
document.getElementById("OrdCoupon").innerHTML='';
|
document.getElementById("OrdCouponID").value='';
|
//JS_CouponClose();
|
}
|
//显示优惠券列表窗口
|
function JS_CouponList(CouponListArray,acc1,acc2,CouponSearchTXT,acc3)
|
{
|
var CouponListHTML = "";
|
var i = 0;
|
if (CouponListArray.length>0)
|
{
|
for (var i=0;i<CouponListArray.length;i++)
|
{
|
CouponListHTML = CouponListHTML+"<tr style='cursor:pointer'><td class='category' onclick='JS_CouponSave("+CouponListArray[i][0]+",\""+CouponListArray[i][1]+"\",\""+CouponListArray[i][2]+"\")' style='white-space: nowrap;'>"+CouponListArray[i][1]+"</td><td class='category' onclick='JS_CouponSave("+CouponListArray[i][0]+",\""+CouponListArray[i][1]+"\",\""+CouponListArray[i][2]+"\")' style='white-space: nowrap;'>"+CouponListArray[i][2]+"</td><td class='category' onclick='JS_CouponSave("+CouponListArray[i][0]+",\""+CouponListArray[i][1]+"\",\""+CouponListArray[i][2]+"\")' style='white-space: nowrap;'>"+CouponListArray[i][3]+"</td></tr>";
|
}
|
}
|
if (acc2>1)
|
{
|
i=i+1;
|
CouponListHTML = CouponListHTML+"<tr><td colspan='4' style='text-align:center;'>";
|
if (acc1>1){CouponListHTML = CouponListHTML+"<a href='javascript:window.HiddenFrame.location.replace(\"CouponSearch.gds?CouponSearchTXT="+CouponSearchTXT+"&page="+(acc1-1)+"\");'>上一页</a>";}else{CouponListHTML = CouponListHTML+" ";}
|
if (acc1<acc2){CouponListHTML = CouponListHTML+" <a href='javascript:window.HiddenFrame.location.replace(\"CouponSearch.gds?CouponSearchTXT="+CouponSearchTXT+"&page="+(acc1+1)+"\");'>下一页</a>";}
|
CouponListHTML = CouponListHTML+" 共 "+acc3+" 条记录</td></tr>";
|
}
|
|
for (var j=i;j<=6;j++)
|
{
|
CouponListHTML = CouponListHTML+"<tr><td class='category'> </td><td class='category last1'> </td><td class='category last1'> </td></tr>";
|
}
|
document.getElementById("CouponList").innerHTML=CouponListHTML;
|
|
}
|
</script>
|
<!--优惠券窗口 end-->
|
|
<!--科室窗口-->
|
<div class="dialogJ dialogJfix dialogJshadow" id="window_HospDepartment" style="z-index: 50007; width:320px; left: 0px; top: 0px;display:none;">
|
<div class="dialogJtitle">
|
<a href="javascript:JS_HospDepartmentClose();" class="dialogJclose" title="关闭本窗口"> </a>
|
<input id="HospDepartmentJSID" type="hidden" value="">
|
<input id="HospDepartmentJSName" type="hidden" value="">
|
<span class="dialogJtxt">选择科室</span> <input type="text" id="HospDepartmentSearchTXT" name="HospDepartmentSearchTXT" value="<%=HospDepartmentSearchTXT%>" style="width: 100px;" onkeyup="JS_HospDepartmentSearch();"/> <input type="button" name="button3" value="查询" onclick="JS_HospDepartmentSearch();"> <input type="button" name="button3" value="清空" onclick="JS_HospDepartmentDel();">
|
</div>
|
<div class="dialogJcontent">
|
<div class="box">
|
<div class="table" style="padding: 0px;">
|
<input name="window_HospDepartmentID" type="hidden" value="">
|
<table>
|
<thead>
|
<tr>
|
<th class="category last" style="text-align: center;">科室</th>
|
<th class="category last" style="text-align: center;">科室</th>
|
</tr>
|
</thead>
|
<tbody id="HospDepartmentList">
|
<%for j=0 to 6%>
|
<tr>
|
<td class="category"> </td>
|
<td class="category"> </td>
|
</tr>
|
<%next%>
|
</tbody>
|
</table>
|
</div>
|
</div>
|
</div>
|
</div>
|
<script LANGUAGE="javascript">
|
//打开选择科室窗口
|
function JS_HospDepartmentOpen(id,Name)
|
{
|
var sTop=document.documentElement.scrollTop;
|
if (sTop==0) {sTop=document.body.scrollTop;}
|
var sLeft= document.documentElement.scrollLeft;
|
if (sLeft==0) {sLeft=document.body.scrollLeft;}
|
|
var dTop = document.getElementById(id).getBoundingClientRect().top;
|
if (dTop<200) {dTop=110;}
|
var dLeft = document.getElementById(id).getBoundingClientRect().left;
|
if (dLeft<200) {dLeft=200;}
|
window_HospDepartment.style.display="block";
|
window_HospDepartment.style.left=440+"px";
|
window_HospDepartment.style.top=(sTop+50)+"px";
|
document.getElementById("HospDepartmentJSID").value=id;
|
document.getElementById("HospDepartmentJSName").value=Name;
|
window.HiddenFrame.location.replace('HospDepartmentSearch.gds?JSID='+id);
|
document.getElementById('HospDepartmentSearchTXT').focus();
|
}
|
//关闭选择科室窗口
|
function JS_HospDepartmentClose()
|
{
|
document.all.HospDepartmentSearchTXT.value='';
|
window_HospDepartment.style.display="none";
|
}
|
//选择科室查询
|
function JS_HospDepartmentSearch()
|
{
|
HospDepartmentSearchTXT=document.all.HospDepartmentSearchTXT.value;
|
window.HiddenFrame.location.replace('HospDepartmentSearch.gds?HospDepartmentSearchTXT='+HospDepartmentSearchTXT);
|
}
|
function EnterPress_HospDepartment(e){ //传入 event
|
var e = e || window.event;
|
if(e.keyCode == 13){JS_HospDepartmentSearch();}
|
}
|
//选择科室
|
function JS_HospDepartmentSave(HospDepartmentID,HospDepartmentLicense)
|
{
|
var id=document.getElementById("HospDepartmentJSID").value;
|
var Name=document.getElementById("HospDepartmentJSName").value;
|
document.getElementById(id).value=HospDepartmentID;
|
document.getElementById(Name).value=HospDepartmentLicense;
|
document.getElementById(Name).classList.remove("error");
|
JS_HospDepartmentClose();
|
}
|
//选择科室清空
|
function JS_HospDepartmentDel()
|
{
|
var id=document.getElementById("HospDepartmentJSID").value;
|
var Name=document.getElementById("HospDepartmentJSName").value;
|
document.getElementById(id).value='';
|
document.getElementById(Name).value='';
|
JS_HospDepartmentClose();
|
}
|
//显示科室列表窗口
|
function JS_HospDepartmentList(HospDepartmentListArray,acc1,acc2,HospDepartmentSearchTXT,acc3)
|
{
|
var HospDepartmentListHTML = "";
|
var i = 0;
|
if (HospDepartmentListArray.length>0)
|
{
|
for (var i=0;i<HospDepartmentListArray.length;i++)
|
{
|
HospDepartmentListHTML = HospDepartmentListHTML+"<tr style='cursor:pointer'>";
|
HospDepartmentListHTML = HospDepartmentListHTML+"<td class='category' onclick='JS_HospDepartmentSave("+HospDepartmentListArray[i][0]+",\""+HospDepartmentListArray[i][1]+"\")' style='white-space: nowrap;'>"+HospDepartmentListArray[i][1]+"</td>";
|
if (i+1<HospDepartmentListArray.length){
|
i++;
|
HospDepartmentListHTML = HospDepartmentListHTML+"<td class='category' style='border-left: 1px solid #cdcdcd;' onclick='JS_HospDepartmentSave("+HospDepartmentListArray[i][0]+",\""+HospDepartmentListArray[i][1]+"\")' style='white-space: nowrap;'>"+HospDepartmentListArray[i][1]+"</td>";
|
}else{
|
HospDepartmentListHTML = HospDepartmentListHTML+"<td class='category' style='border-left: 1px solid #cdcdcd;'> </td>";
|
}
|
HospDepartmentListHTML = HospDepartmentListHTML+"</tr>";
|
}
|
}
|
if (acc2>1)
|
{
|
i=i+1;
|
HospDepartmentListHTML = HospDepartmentListHTML+"<tr><td colspan='5' style='text-align:center;'>";
|
if (acc1>1){HospDepartmentListHTML = HospDepartmentListHTML+"<a href='javascript:window.HiddenFrame.location.replace(\"HospDepartmentSearch.gds?HospDepartmentSearchTXT="+HospDepartmentSearchTXT+"&page="+(acc1-1)+"\");'>上一页</a>";}else{HospDepartmentListHTML = HospDepartmentListHTML+" ";}
|
if (acc1<acc2){HospDepartmentListHTML = HospDepartmentListHTML+" <a href='javascript:window.HiddenFrame.location.replace(\"HospDepartmentSearch.gds?HospDepartmentSearchTXT="+HospDepartmentSearchTXT+"&page="+(acc1+1)+"\");'>下一页</a>";}
|
HospDepartmentListHTML = HospDepartmentListHTML+" 共 "+acc3+" 条记录</td></tr>";
|
}
|
|
for (var j=i;j<30;j++)
|
{
|
j++;
|
HospDepartmentListHTML = HospDepartmentListHTML+"<tr><td class='category'> </td><td class='category' style='border-left: 1px solid #cdcdcd;'> </td></tr>";
|
}
|
document.getElementById("HospDepartmentList").innerHTML=HospDepartmentListHTML;
|
|
}
|
</script>
|
<!--科室窗口 end-->
|
