<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<%
|
'Response.Cookies("OA")("adminID")=""
|
'Response.End
|
|
DispatchOrdID=request("DispatchOrdID")
|
CarID=request("CarID")
|
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="" And CarID="" 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">
|
<style>
|
@charset "utf-8";
|
/* CSS Document */
|
body {margin:0px; padding:0px; font-size:12px; font-family:'微软雅黑'; background:#fff;}
|
ol,ul,li,dl,dt,dd,form,p,h1,h2,h3,h4,h5,img{ margin:0px; padding:0px;}
|
ol,ul,li{ list-style:none; padding:0; margin:0;}
|
img{ border:none;}
|
a{text-decoration:none; border:none; margin:0; padding:0;}
|
.clear{ clear:both;}
|
input,textarea{ outline:0; resize:none; border:none; _border:0; margin:0; padding:0;}
|
input{ margin:0; padding:0; border:none;}
|
table,table td{border-collapse:collapse;}
|
.fl{ float:left;}
|
.fr{ float:right;}
|
img{max-width:100%;}
|
|
.big-box{max-width:640px;min-width:320px;margin:auto;}
|
|
.wup{width:94%; margin:0 auto;}
|
.wup_label{ display:block;width:25%; margin:0 auto; border:1px solid #ABABAB;}
|
.wup_label img{ opacity:0; vertical-align:middle;}
|
.wup_label.on img{ opacity:1;}
|
.wup th{ font-size:18px; text-align:center; line-height:40px; color:#3A3E39;}
|
.wup td{ font-size:16px; text-align:center; line-height:30px; color:#3A3E39; padding:2% 0;}
|
.wup td span{ display:block; padding-left:10%; text-align:left;}
|
.wup_text{width:60%;font-size: 1.2em;border:1px solid #ABABAB; text-align:center;}
|
</style>
|
<%Set rs = Server.CreateObject("ADODB.Recordset")
|
If DispatchOrdID<>"" Then
|
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") '拟出发时间
|
If year(DispatchOrdTraSDTime)<2010 then 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
|
DispatchOrdPerfomance = rs("DispatchOrdPerfomance")
|
RecommendedCar = rs("RecommendedCar") '指定车型
|
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) '调度单编号
|
|
CarID = DispatchOrdCarID
|
Else
|
Response.Redirect "/m_DispatchOrder_List.gds?DispatchOrdID="&DispatchOrdID&"&SystemMessageType=4&SMT=9"
|
End If
|
rs.close()
|
End If
|
|
If CarID<>"" And CarID<>"0" Then
|
sql="select * from dbo.MRP_Warehouse where WarehouseAddress='"&CarID&"' and WarehouseType=2"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
WarehouseID = rs("WarehouseID") '仓库ID
|
WarehouseName = rs("WarehouseName") '仓库名称
|
WarehouseType = rs("WarehouseType") '仓库型号
|
Else
|
Response.Redirect "/m_DispatchOrder_List.gds?DispatchOrdID="&DispatchOrdID&"&SystemMessageType=4&SMT=9"
|
End If
|
rs.close()
|
Else
|
%>
|
<script lnguage=javascript>alert("请先选择车辆");window.history.go(-1)</script>
|
<%Response.End
|
End If
|
%>
|
</head>
|
<body>
|
<!--#include virtual="/m_DispatchOrder_header.gds"-->
|
|
<div class="big-box">
|
<form id="form1" name="form1" action="admin_save.gds" method="post">
|
<input name="admin_save" type="hidden" value="56">
|
<input name="DispatchOrdID" type="hidden" value="<%=DispatchOrdID%>">
|
<input name="CarID" type="hidden" value="<%=CarID%>">
|
<input name="CarStItm" id="CarStItm" type="hidden" value="">
|
</form>
|
<table class="wup" border="1">
|
<tr>
|
<th width="65%" valign="middle">物品</th>
|
<th width="15%" valign="middle">单位</th>
|
<th width="20%" valign="middle">数量</th>
|
</tr>
|
<%i=0
|
sql="select * from (select strItmID,strItmName,strItmUnit,StockQty=sum(StockQty) from tblStItm,MRP_Stock where StItmIDPK=strItmID and StockWarehouseID in ("&WarehouseID&") GROUP BY strItmID,strItmName,strItmUnit) as a where StockQty<>0 order by strItmID"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof And i<=200
|
strItmID = rs("strItmID")
|
strItmName = rs("strItmName")
|
strItmUnit = rs("strItmUnit")
|
StockQty = rs("StockQty")
|
i=i+1
|
%>
|
<tr>
|
<td width="65%" valign="middle"><span><%=strItmName%></span></td>
|
<td width="15%" valign="middle"><span><%=strItmUnit%></span></td>
|
<td width="20%" valign="middle"><span><%=StockQty%></span></td>
|
</tr>
|
<%rs.movenext
|
loop%>
|
</table>
|
|
<div style="height:50px;"></div>
|
<div class="posi" id="posi1" style="display:none;">
|
<div class="ljgm"><a class="bttt" id="posi1TXT">正在读取...</a></div>
|
</div>
|
<div class="posi" id="posi">
|
<div class="ljgm" style="width: 25%;"><a href="/MRP_ManoeuvreDetail_m.gds?DispatchOrdID=<%=DispatchOrdID%>&CarID=<%=CarID%>&WarehouseID=<%=WarehouseID%>&ManoeuvreType=1" class="bttt" style="color: #fff;background: #9a6d92;font-weight: 700;">领出登记</a></div>
|
<div class="ljgm" style="width: 25%;"><a href="/MRP_TradeDetail_m.gds?DispatchOrdID=<%=DispatchOrdID%>&CarID=<%=CarID%>&WarehouseID=<%=WarehouseID%>&ManoeuvreType=3" class="bttt" style="color: #fff;background: #9a6d92;font-weight: 700;">使用登记</a></div>
|
<div class="ljgm" style="width: 25%;"><a href="/MRP_ManoeuvreDetail_m.gds?DispatchOrdID=<%=DispatchOrdID%>&CarID=<%=CarID%>&WarehouseID=<%=WarehouseID%>&ManoeuvreType=2" class="bttt" style="color: #fff;background: #9a6d92;font-weight: 700;">归还登记</a></div>
|
<div class="ljgm" style="width: 20%;"><a href="/m_DispatchOrder.gds?DispatchOrdID=<%=DispatchOrdID%>" class="bttt">返回</a></div>
|
</div>
|
|
</div>
|
</body>
|
</html>
|
