📄 delay.asp

📁 物流进销存系统全功能,MSSQL 2000数据库. 可做物流公司信息系统开发的源程序
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<% 
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<%const title="航班延误信息填写"%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<title><%=title%></title>
<%
if isempty(session("username")) then
	call closedatabase
	Response.Write "请重新登入!"
	Response.End 
end if 
newcompanyid = request("companyid")
if newcompanyid = "" then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""请先选择公司再做此步操作！"");"
	Response.write "history.go(-1);"
	Response.Write "</script>"
	Response.End
elseif not isnumeric(newcompanyid) then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""companyid必须为整数！"");history.go(-1);"
	Response.Write "</script>"
	Response.End
else
	newcompanyid = cint(newcompanyid)  
end if
%>
<link rel="stylesheet" type="text/css" href="../data/forum.css">
<script language=vbscript>
<!--
Sub datacheck()
  if trim(input1.status_rec_man.value)=empty then
   msgbox "「填写人」不得为空白！", 64, "请输入填写人!"
     document.input1.status_rec_man.focus()
     Exit Sub
  End if
input1.Submit
End Sub
-->
</script>
</head>
<body topmargin="0"  onload="javascript:self.moveTo(0,0);document.input1.stock_flag.focus();">
<%
arra = split(session("username"),";")
UserCompanyid = arra(0)
flag = arra(1)
User = arra(2)
userno = arra(4)
elink_id = request("id")
if not isnumeric(elink_id) then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""id必须为整数！"");history.go(-1);"
	Response.Write "</script>"
	Response.End
end if
if Request.ServerVariables("REQUEST_METHOD")="POST" then
	sql = "select elink_outw_id,elink_flag from outward_elink where elink_id = "&elink_id&""
	'Response.Write sql
	'Response.End
	set rs_out = conn.execute(sql)
	if not rs_out.EOF then
		outw_id = rs_out("elink_outw_id")
		elink_flag = rs_out("elink_flag")
		if elink_flag <> 1 then
			outw_air_no = replace(trim(request("outw_air_no")),"'","’")
			outw_air_takeid = replace(trim(request("outw_air_takeid")),"'","’")
			outw_etd = replace(trim(request("outw_etd")),"'","’")
			outw_eta = replace(trim(request("outw_eta")),"'","’")
			status_rec_man = replace(trim(request("status_rec_man")),"'","’")
			outw_beizu = replace(trim(request("outw_beizu")),"'","’")
			if outw_air_no = "" then outw_air_no = " "
			if outw_air_takeid = "" then outw_air_takeid = " "
			if outw_etd = "" then outw_etd = " "
			if outw_eta = "" then outw_eta = " "
			if status_rec_man = "" then status_rec_man = " "
			if outw_beizu = "" then outw_beizu = "航班延误"
			if elink_flag <> 1 then
				sql = "insert into outward_status(status_outw_id,status_elink_id,status_beizu,status_rec_man,status_man,status_datetime,status_companyid,status_add_datetime,status_flag,outw_air_no,outw_air_takeid,outw_etd,outw_eta) values("&outw_id&","&elink_id&",'"&outw_beizu&"','"&status_rec_man&"','"&session("writerid")&"','"&now()&"',"&newcompanyid&",'"&now()&"',1,'"&outw_air_no&"','"&outw_air_takeid&"','"&outw_etd&"','"&outw_eta&"')"
				conn.execute(sql)
			else
				rs_out.close
				set rs_out = nothing
				call closedatabase
				Response.Write "<script language=javascript>"
				Response.Write "alert(""该单子已经签收,所以不能添加备注！"");opener.location.reload();window.close();"
				Response.Write "</script>"
				Response.End	
			end if
			rs_out.close
			set rs_out = nothing
			call closedatabase
			Response.Write "<script language=javascript>"	
			Response.Write "{window.close();}"		
			Response.Write "</script>"
			Response.End			
		else
			rs_out.close
			set rs_out = nothing
			call closedatabase
			Response.Write "<script language=javascript>"
			Response.Write "alert(""该单子已经签收,请确认！"");opener.location.reload();window.close();"
			Response.Write "</script>"
			Response.End		
		end if
	else
		rs_out.close
		set rs_out = nothing
		call closedatabase
		Response.Write "<script language=javascript>"
		Response.Write "alert(""该易联单号不存在,可能已经被他人删除,请确认！"");opener.location.reload();window.close();"
		Response.Write "</script>"
		Response.End 
	end if


else

	sql = "select elink_id,elink_odd,transport_no,elink_dc_id,elink_guest_id,elink_dir_flag from outward_elink where elink_id = "&elink_id&""
	set rs_e = conn.execute(sql)
	if not rs_e.eof then
		elink_odd = rs_e("elink_odd")
		guest_id = rs_e("elink_guest_id")
		dir_flag = rs_e("elink_dir_flag")
		transport_no = rs_e("transport_no")
%>
	<form action="delay.asp" method="POST" name="input1">	
<table align=center width=100%  cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC' border="1">
<tr>
 <td colspan=4 align=center bgcolor=red><b><font color=yellow>航班延误信息填写</font></b></td>
</tr>
<tr>
    <td width="10%">系统编号：</td>
    <td colspan="3" width="90%">
   <%response.write elink_id%></td>
 </tr>
<tr>
    <td width="10%">易联单号：</td>
    <td colspan="3" width="90%">
   <%response.write elink_odd%></td>
 </tr>
   <%
	Response.Write "<tr bgcolor=green>"
    Response.Write "<td width=""10%""><b><font color=white> 客户信息：</font></b></td>"
    Response.Write "<td width=""60%"">"
    Response.Write "<b><font color=white> 产品</font></b></td>"
    Response.Write "<td width=""30%"">"
    Response.Write "<b><font colspan=""2"" color=white>&nbsp;数量</font></b></td>"
    Response.Write "</tr>"
	sql = "select * from outward_detail where detail_elink_id = "&elink_id&" and detail_guest_id = "&guest_id&" order by detail_id asc"
	set rs_xx = conn.execute(sql)
	do while not rs_xx.eof 
 		prod_id = rs_xx("detail_prod_id")
		detail_no = rs_xx("detail_no")
				
		sql = "select * from product where prod_companyid = "&newcompanyid&" and prod_id = "&prod_id&""
		set rs_prod = conn.execute(sql)
		if not rs_prod.eof then
			prod_no = rs_prod("prod_no")
			prod_type = rs_prod("prod_type")
			prod_color = rs_prod("prod_color")
			prod_pinming = rs_prod("prod_pinming")
			prod_weight = rs_prod("prod_weight")
			prod_volume = rs_prod("prod_volume")
			Response.Write "<tr>"
			Response.Write "<td width=""15%"">&nbsp;</td>"
			Response.Write "<td width=""50%"">"
			response.write prod_no &" " & prod_type &" " & prod_color &" " & prod_pinming &" " & prod_weight &" " & prod_volume
			Response.Write "</td>"
			Response.Write "<td colspan=2 width=""40%"">"
			response.write "&nbsp;"&detail_no 
			Response.Write "</td>"
			Response.Write "</td>"		
			Response.Write "</tr>"
	    end if
		rs_prod.close
		set rs_prod = nothing
	rs_xx.movenext
	loop
	rs_xx.close
	set rs_xx = nothing

 	 	sql = "select * from guest where guest_id = "&guest_id&""
		set rs_guest = conn.execute(sql)
		if not rs_guest.eof then
			guest_user = rs_guest("guest_user")
			guest_address = rs_guest("guest_address")
			guest_tel = rs_guest("guest_tel")
			guest_fax = rs_guest("guest_fax")
		end if
		rs_guest.close
		set rs_guest = nothing
		Response.Write "<tr>"
		Response.Write "<td width=""15%""> 客户地址：</td>"
		Response.Write "<td  colspan=""3"" width=""85%"">"
		Response.Write ""& guest_user &" " & guest_address &" " &guest_tel & " " &guest_fax&"</td>"
		Response.Write "</tr>"
		Response.Write "<tr>"
		Response.Write "<td width=""15%""> 分拣件数：</td>"
		Response.Write "<td  colspan=""3"" width=""85%"">"
		if transport_no <> 0 then
			Response.Write transport_no &"&nbsp;</td>"
		else
			Response.Write "&nbsp;</td>"
		end if
		Response.Write "</tr>"

			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 货物状态：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			
			Response.Write "<select  onchange=""change()""  style=""font-size:9pt;width=100;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px""  name='stock_flag' size='1' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
			Response.Write "<option  selected  value=""1""> 航班延误 </option>"
			Response.Write "</select>"
			Response.Write "</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 航班号：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write "<input  style=""font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""outw_air_no"" value='' maxlength=""30"" onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
			Response.Write "</td>"
			Response.Write "</tr>"
			Response.Write "<td width=""15%""> 航空提单号：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write "<input  style=""font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""outw_air_takeid"" value='' maxlength=""30"" onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
			Response.Write "</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> ETD：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write "<input  style=""font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""outw_etd"" value='' maxlength=""30"" onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
			Response.Write "</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> ETA：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write "<input  style=""font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""outw_eta"" value='' maxlength=""30"" onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
			Response.Write "</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 填写人：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write "<input  style=""font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""status_rec_man"" value=''  maxlength=10 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">**"
			Response.Write "</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 备注：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write "<input  style=""font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name=""outw_beizu"" value=''  maxlength=25 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
			Response.Write "</td>"
			Response.Write "</tr>"
			%>
 <input type=hidden name=dir_flag value=<%=dir_flag%>>
  <input type=hidden name=id value=<%=elink_id%>>
  <input type=hidden name=companyid value=<%=newcompanyid%>>
<tr bgcolor=white>
   <td colspan="4"><br><br>
   <center>
   <input class=buttonface type=button  onclick="datacheck()" name=ok value=延误信息提交>　
	</center>
	<br><br>
 </tr>
</table>
<form>
 <%
 else
	Response.Write "<center>该单子可能已经被删除!!!</center>"
 end if
 rs_e.close
 set rs_e = nothing
 %>
<br> <p align=center><font size=+3 color=blue><a href='#' onclick="javascript:window.close()">[关闭]</a></font></p> 
<br>
<%
end if
call closedatabase
%>
  </body>
</html>
💿 文件大小 1682 K
👤 上传用户 liuchuyuan
📂 所属分类企业管理
🏷️ 相关标签

#MSSQL #2000 #进销存系统 #数据库
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -