<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<%
|
'Response.Cookies("OA")("adminID")=""
|
'Response.end
|
DispatchOrdID=request("DispatchOrdID")
|
closeWindow=SafeRequest(Request("closeWindow"))
|
state=request("state")
|
If state<>"" Then
|
stateSP=split(state,"|")
|
for i = 0 to UBOUND(stateSP)
|
If InStr(stateSP(i),"DispatchOrdID=")=1 Then
|
DispatchOrdID=Replace(stateSP(i),"DispatchOrdID=","")
|
ElseIf InStr(stateSP(i),"closeWindow=")=1 Then
|
closeWindow=Replace(stateSP(i),"closeWindow=","")
|
End If
|
Next
|
End If
|
if DispatchOrdID="" then Response.Redirect "/"
|
state=DispatchOrdID%>
|
<!--#include virtual="/weixin/OAuth2.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<!--#include virtual="/weixin/sha1.gds"-->
|
<!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>
|
<link href="css/main.css" type="text/css" rel="stylesheet">
|
<link rel="stylesheet" href="css/normalize3.0.2.min.css">
|
<link href="css/mobiscroll.css" rel="stylesheet">
|
<link href="css/mobiscroll_date.css" rel="stylesheet">
|
</head>
|
|
<%
|
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
|
DispatchOrdID = rs("DispatchOrdID") '调度单号
|
DispatchOrdClass = rs("DispatchOrdClass") '单据类型
|
ServiceOrdID = rs("ServiceOrdIDDt") '对应受理单号
|
DispatchOrdState = rs("DispatchOrdState") '调度单状态
|
DispatchOrdStartDate = rs("DispatchOrdStartDate") '调度单状态时间
|
DispatchOrd_NS_ID = rs("DispatchOrd_NS_ID") '开单人ID
|
DispatchOrd_NS_Time = rs("DispatchOrd_NS_Time") '开单时间
|
DispatchOrd_AP_ID = rs("DispatchOrd_AP_ID") '审核人ID
|
DispatchOrd_AP_Time = rs("DispatchOrd_AP_Time") '审核时间
|
DispatchOrd_AP_Check = rs("DispatchOrd_AP_Check") '是否审核(0否,1是)
|
DispatchOrdCarID = rs("DispatchOrdCarID") '派遣车辆ID
|
DispatchOrdTraSDTime = rs("DispatchOrdTraSDTime") '拟出发时间
|
DispatchOrdActualDate = rs("DispatchOrdActualDate") '实际出车时间
|
DispatchOrdArriveDate = rs("DispatchOrdArriveDate") '实际到达时间
|
DispatchOrdReturnDate = rs("DispatchOrdReturnDate") '实际返回时间
|
DispatchOrdTraDistance = rs("DispatchOrdTraDistance") '实际距离
|
DispatchOrdTraStreet = rs("DispatchOrdTraStreet") '实际出发地
|
DispatchOrdTraEnd = rs("DispatchOrdTraEnd") '实际目的地
|
DispatchOrdTraVia = rs("DispatchOrdTraVia") '实际途经地
|
DispatchOrdCoName = rs("DispatchOrdCoName") '调度联系人
|
DispatchOrdCoPhone = rs("DispatchOrdCoPhone") '调度联系电话
|
DispatchOrdTraStreetMileage= rs("DispatchOrdTraStreetMileage")'开始里程数
|
DispatchOrdTraEndMileage= rs("DispatchOrdTraEndMileage")'结束里程数
|
DispatchOrdMileage = rs("DispatchOrdMileage") '实际里程数
|
DispatchOrdGasoline = rs("DispatchOrdGasoline") '油耗
|
DispatchOrdRemarks = rs("DispatchOrdRemarks") '行驶备注记录
|
EntourageName_aid1 = rs("EntourageName_aid1") '外援人员1
|
EntourageName_aid2 = rs("EntourageName_aid2") '外援人员2
|
StretcherMoney = rs("StretcherMoney") '担架费
|
DispatchOrdNo = 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) '调度单编号
|
|
DispatchOrdIsEnd = rs("DispatchOrdIsEnd") '是否提交审核
|
|
Else
|
Response.Redirect "/m_DispatchOrder_List.gds?DispatchOrdID="&DispatchOrdID&"&SystemMessageType=4&SMT=9"
|
End If
|
rs.close()
|
|
'相关受理单
|
If ServiceOrdID<>"" then
|
sql="select * from ServiceOrder where ServiceOrdID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof then
|
ServiceOrdID = rs("ServiceOrdID") '服务单号
|
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") '患者国籍
|
ServiceOrdPtOutHosp = rs("ServiceOrdPtOutHosp") '转出医院
|
ServiceOrdPtServices = rs("ServiceOrdPtServices") '科室
|
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") '目的地坐标
|
ServiceOrdTraDistance = rs("ServiceOrdTraDistance") '距离(公里)
|
ServiceOrdTraDuration = rs("ServiceOrdTraDuration") '预计行程时间
|
ServiceOrdTraUnitPrice= rs("ServiceOrdTraUnitPrice") '单价/公里
|
ServiceOrdTraOfferPrice=rs("ServiceOrdTraOfferPrice") '标准报价
|
ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice") '成交价
|
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") '服务单审核时间
|
ServiceOrdNo = 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)
|
If IsNumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance=ServiceOrdTraDistance&"公里"
|
End If
|
rs.close()
|
End If
|
|
'领队情况
|
sql="select DispatchOrd_Entourage.id,EntourageOAid,EntourageLead,OA_weixinUserID,EntourageState,EntourageState_Time,OA_Name,OA_weixinAvatar,vtext from DispatchOrd_Entourage,OA_User,dictionary where vtitle='DispatchOrdEntourage' and EntourageID=vID and OA_User_ID=EntourageOAid and EntourageState<>4 and EntourageLead=1 and DispatchOrdIDDt="&DispatchOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
EntourageLeadID=rs("EntourageOAid")
|
End If
|
rs.close()
|
%>
|
<body>
|
<div id="m_Orer">
|
<!--#include virtual="/m_DispatchOrder_header.gds"-->
|
<%'住宿申请
|
If DispatchOrdIsEnd="0" or DispatchOrdIsEnd="1" then%>
|
<form id="form1" name="form1" action="admin_save.gds" method="post">
|
<input name="admin_save" type="hidden" value="">
|
<input name="DispatchOrdID" type="hidden" value="<%=DispatchOrdID%>">
|
<input name="OA_latitude" type="hidden" value="">
|
<input name="OA_longitude" type="hidden" value="">
|
<input name="OA_address" type="hidden" value="">
|
<div class="os_shopname">住宿日期：<input type="text" id="HotelDate" name="HotelDate" style="width:100px;border: none;font-size: 14px;" value=""></div>
|
<div class="os_shopname">酒店名称：<input type="text" id="HotelName" name="HotelName" style="width:200px;border: none;font-size: 14px;" value=""></div>
|
<div class="os_shopname">住宿价格：<input type="text" id="HotelPrice" name="HotelPrice" style="width:100px;border: none;font-size: 14px;text-align:right;" value="0">元</div>
|
<div class="os_shopname">备 注：<input type="text" id="HotelRemarks" name="HotelRemarks" style="width:200px;border: none;font-size: 14px;" value=""></div>
|
<div class="os_shopname xqP2">正在获取位置...</div>
|
</form>
|
|
<script src="js/jquery.min.js"></script>
|
<script src="js/mobiscroll_date.js"></script>
|
<script src="js/mobiscroll.js"></script>
|
<script type="text/javascript">
|
$(function () {
|
var currYear = (new Date()).getFullYear();
|
var opt={};
|
opt.date = {preset : 'date'};
|
opt.datetime = {preset : 'datetime'};
|
opt.time = {preset : 'time'};
|
opt.default = {
|
theme: 'android-ics light', //皮肤样式
|
display: 'modal', //显示方式
|
mode: 'scroller', //日期选择模式
|
dateFormat: 'yyyy/mm/dd',
|
lang: 'zh',
|
showNow: true,
|
nowText: "今天",
|
startYear: currYear - 50, //开始年份
|
endYear: currYear + 1 //结束年份
|
};
|
|
$("#HotelDate").mobiscroll($.extend(opt['date'], opt['default']));
|
|
});
|
</script>
|
<%End if%>
|
|
<div class="os_img">
|
|
<%
|
sql="select * from DispatchOrd_Hotel where DispatchOrdIDDt="&DispatchOrdID&" order by HotelDate"
|
rs.open sql,objConn,1,1
|
i=0
|
sunHotelPrice=0
|
do while not rs.Eof
|
HotelID = rs("ID") 'ID
|
HotelDate = rs("HotelDate") '住宿日期
|
HotelName = rs("HotelName") '酒店名称
|
HotelPrice = rs("HotelPrice") '住宿价格
|
HotelRemarks = rs("HotelRemarks")'备注
|
Hotel_OAID = rs("Hotel_OAID")
|
|
sunHotelPrice=sunHotelPrice+HotelPrice
|
%>
|
<div style=" margin: 0px 10px;line-height: 25px;border-bottom: 1px solid #f1f1f1;">
|
<div class="os_name" style="height: initial;"><%=HotelDate&" "&HotelName&" "&HotelPrice&"元"%><br> 备注:<%=HotelRemarks%> 申请人:<%=OAUser(Hotel_OAID,"UserName")%></div>
|
<%If DispatchOrdIsEnd="0" or DispatchOrdIsEnd="1" then%><div class="os_weight">[<a href="admin_save.gds?admin_save=100&HotelID=<%=HotelID%>&DispatchOrdID=<%=DispatchOrdID%>">删除</a>]</div><%End If%>
|
</div>
|
<%rs.movenext
|
loop
|
rs.close()
|
%>
|
|
|
|
</div>
|
<div style="height:50px;"></div>
|
|
<%If DispatchOrdIsEnd="0" or DispatchOrdIsEnd="1" Then%>
|
<div class="posi" id="posi1">
|
<div class="ljgm"><a class="bttt" id="posi1TXT">实时定位：正在获取...</a></div>
|
</div>
|
<div class="posi" id="posi" style="display:none;">
|
<div class="ljgm"><a href="javascript:form1_submit32_1()" class="bttt" style="color: #fff;background: #9a6d92;font-weight: 700;">确认提交</a></div>
|
</div>
|
<script LANGUAGE="javascript">
|
function form1_submit32_1(){
|
var OA_latitude=document.form1.OA_latitude.value;
|
var OA_longitude=document.form1.OA_longitude.value;
|
if (OA_latitude=='' || OA_longitude==''){alert("正在获取地理位置...");return false;}
|
|
HotelDate=document.getElementById('HotelDate').value
|
HotelName=document.getElementById('HotelName').value
|
HotelPrice=document.getElementById('HotelPrice').value
|
if (HotelPrice==''){HotelPrice=0}
|
if (HotelDate==''){alert("请输入住宿日期");return false;}
|
if (HotelName==''){alert("请输入酒店名称");return false;}
|
if (isNaN(HotelPrice)){alert("住宿价格请输入数字");return false;}
|
if (HotelDate!='' && HotelName!='')
|
{if(confirm("确定提交？"))
|
{
|
document.form1.action = "admin_save.gds";
|
document.form1.admin_save.value = "99";
|
form1.submit();
|
}
|
}
|
else
|
{alert("请输入相关信息");}
|
}
|
</script>
|
<%End if%>
|
</div>
|
|
|
<%
|
'微信JS-SDK
|
timestamp = ToUnixTime(now(),+8)
|
wxnonceStr = "5P1QYH5OEW6BCXTo"
|
wxticket = Getjsapi_ticket()
|
wxurl = WEBURL&Request.ServerVariables("URL")
|
if Request.ServerVariables("QUERY_STRING")<>"" then wxurl=wxurl&"?"&Request.ServerVariables("QUERY_STRING")
|
wxOri = "jsapi_ticket="&wxticket&"&noncestr="&wxnonceStr&"×tamp="×tamp&"&url="&wxurl
|
wxSha1 = hex_sha1(wxOri)
|
%>
|
<script src="https://res.wx.qq.com/open/js/jweixin-1.2.0.js"></script>
|
<script>
|
wx.config({
|
debug: false,
|
appId: '<%=corpid%>',
|
timestamp: <%=timestamp%>,
|
nonceStr: '<%=wxnonceStr%>',
|
signature: '<%=wxSha1%>',
|
jsApiList: [
|
'checkJsApi',
|
'openLocation',
|
'getLocation',
|
'closeWindow'
|
]
|
});
|
<%If DispatchOrdIsEnd="0" or DispatchOrdIsEnd="1" then%>
|
wx.ready(function () {
|
var add_url;
|
var formatted_address;
|
var cuan;
|
wx.getLocation({
|
type: 'wgs84', // 默认为wgs84的gps坐标，如果要返回直接给openLocation用的火星坐标，可传入'gcj02'
|
success: function (res) {
|
|
var latitude = res.latitude; // 纬度，浮点数，范围为90 ~ -90
|
var longitude = res.longitude; // 经度，浮点数，范围为180 ~ -180。
|
var speed = res.speed; // 速度，以米/每秒计
|
var accuracy = res.accuracy; // 位置精度
|
var point_url = "http://restapi.amap.com/v3/geocode/regeo?output=JSON&location="+longitude+","+latitude+"&key=fc226a9479cdd12eed4ab6acbc692fca&coordsys=gps";
|
|
$.get(point_url, function(result){
|
cuan = result.regeocode.addressComponent.township+result.regeocode.addressComponent.streetNumber.street+result.regeocode.addressComponent.streetNumber.number+result.regeocode.addressComponent.neighborhood.name;
|
formatted_address = "实时定位："+result.regeocode.formatted_address;
|
$('.xqP2').html(formatted_address);
|
document.form1.OA_address.value = result.regeocode.formatted_address;
|
document.form1.OA_latitude.value = JSON.stringify(res.latitude);
|
document.form1.OA_longitude.value = JSON.stringify(res.longitude);
|
document.getElementById('posi1').style.display='none';
|
document.getElementById('posi').style.display='';
|
});
|
|
},
|
fail: function (res) {
|
alert('获取地理位置失败');
|
|
//document.getElementById('posi1').style.display='none';
|
//document.getElementById('posi').style.display='';
|
return false;
|
},
|
cancel: function (res) {
|
alert('用户拒绝授权获取地理位置');
|
return false;
|
}
|
});
|
})
|
<%end if%>
|
</script>
|
</body>
|
</html>
|
