📄 outstock_convert.asp

📁 1.多种查询方式
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<% 
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<script src="../js/birthday.js"></script>
<%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>
<script language=vbscript>
<!--
Sub datacheck()

if isdate(trim(input1.stock_date.value)) = false then
   msgbox "「仓管出库日期」格式不对！", 64, "请输入正确的仓管出库日期!"
     document.input1.stock_date.focus()
     Exit Sub
  End if  
if isdate(trim(input1.stock_time.value))=false then
   msgbox "「仓管出库时间」格式不对！", 64, "请输入正确的仓管出库时间!"
    document.input1.stock_time.focus()
     Exit Sub
  End if
if trim(input1.stock_operate.value)=empty then
   msgbox "「仓管出库操作人」不得为空白！", 64, "请输入仓管出库操作人!"
     document.input1.stock_operate.focus()
     Exit Sub
  End if
input1.Submit
End Sub
-->
</script>
<link rel="stylesheet" type="text/css" href="../data/forum.css">
</head>
<body topmargin="0" onload="javascript:document.input1.stock_date.focus();">
<%
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
arra = split(session("username"),";")
UserCompanyid = arra(0)
flag = arra(1)
User = arra(2)
userno = arra(4)
if flag > 4 then
	call closedatabase
	Response.End 
end if
outw_id = request("id")
if not isnumeric(outw_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
	id = request("id")
	sql ="select stock_flag,outw_outstock_date,outw_stock_operate,outw_stock_man,outw_stock_beizu from outward where stock_flag = 0 and outw_disabled = 0 and outw_companyid = "&newcompanyid&" and outw_id = "&id&""
	'Response.Write sql
	'Response.End 
	
	set rs_inward = server.CreateObject("adodb.recordset")
	rs_inward.open sql,conn,2,2
	if not rs_inward.eof then
					stock_date = trim(request("stock_date"))
					stock_time = trim(request("stock_time"))
					stock_datetime = stock_date &" "&stock_time
					stock_datetime = replace(stock_datetime,"：",":")
					if isdate(stock_datetime) = false then
						rs_inward.Close
						ser rs_inward = nothing
						call closedatabase
						Response.Write "<script language=javascript>"
						Response.Write "alert(""时间格式有误,请正确填写!!!"");"
						Response.Write "history.go(-1);"
						Response.Write "</script>"
						Response.End 
					end if
					stock_operate = trim(request("stock_operate"))
					'stock_operate = replace(stock_operate,"'","''")
					stock_beizu = trim(request("stock_beizu"))
					if stock_beizu = "" then stock_beizu = " "
					rs_inward("stock_flag") = 1
					rs_inward("outw_outstock_date") = stock_datetime
					rs_inward("outw_stock_beizu") = stock_beizu
					rs_inward("outw_stock_operate") = stock_operate
					rs_inward("outw_stock_man") = User
					rs_inward.Update 
					rs_inward.Close
					set rs_inward = nothing
					call closedatabase
			Response.Write "<script language=javascript>"
			Response.Write "opener.location.reload();window.close();"
			Response.Write "</script>"
			Response.End 
			
	else
		rs_inward.Close
		set rs_inward = nothing
		call closedatabase
		Response.Write "<script language=javascript>"
		Response.write "alert(""该记录已经做了仓管出库的信息填写！"");window.close();</script>"
		Response.end
	end if
	Response.End 
	'end if
else


sql="select * from outward where outw_companyid = "&newcompanyid&" and outw_id = "&outw_id&""
'Response.Write sql
'Response.End 
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
	outw_date = rs("outw_date")
	outw_fact_date = rs("outw_fact_date")
	outw_consign_date = rs("outw_consign_date")
	outw_sra = rs("outw_sra")
	outw_dc_id = rs("outw_dc_id")
	outw_outstock_date = rs("outw_outstock_date")
	outw_stock_beizu = rs("outw_stock_beizu")
	outw_stock_man = rs("outw_stock_man")
	outw_stock_operate = rs("outw_stock_operate")
	outw_flag = rs("outw_flag")
	outw_dir_flag = rs("outw_dir_flag")
	outw_take_address = trim(rs("outw_take_address"))
	outw_line_no = trim(rs("outw_line_no"))
	outw_take_no = trim(rs("outw_take_no"))
	outw_service_beizu = rs("outw_service_beizu")
	outw_service_man = rs("outw_service_man")
	stock_flag = rs("stock_flag")
	cull_flag = rs("cull_flag")
	attemper_flag = rs("attemper_flag")
	
	%>
<form action="outstock_convert.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 colspan=4 align=left bgcolor=green height=20><b><font color=white> 出 库 单 信 息</font></b></td>
</tr>
<tr>
    <td width="15%">系统编号：</td>
    <td colspan="3" width="85%">
   <%response.write outw_id%></td>
 </tr>
<tr>
    <td width="15%">S&nbsp;&nbsp;R&nbsp;&nbsp;A：</td>
    <td colspan="3" width="85%">
   <%response.write outw_sra%></td>
 </tr>

<tr>
      <td width="15%">出库单日期：</td>
    <td colspan="3" width="85%">
   <%response.write outw_consign_date & "&nbsp;"%></td>
 </tr>
  

 <%
 sql = "select * from dc where dc_companyid = "&newcompanyid&" and dc_id = "&outw_dc_id&""
 set rs_dc = conn.execute(sql)
 if not rs_dc.eof then
	dc_code = rs_dc("dc_code")
	dc_name = rs_dc("dc_name")
 end if
 rs_dc.close
 set rs_dc = nothing 
 %>
 <tr>
    <td width="15%">仓库信息：</td>
    <td colspan="3" width="85%">
   <%response.write dc_code &" "& dc_name %></td>
 </tr>
  <%
 sql = "select detail_guest_id,min(detail_id) as detail_id  from outward_detail where detail_outw_id = "&outw_id&" group by detail_guest_id order by  min(detail_id) asc"
 set rs_detail = conn.execute(sql)
 do while not rs_detail.eof
	guest_id = rs_detail("detail_guest_id")
	detail_id = rs_detail("detail_id")
	
	Response.Write "<tr bgcolor=green>"
    Response.Write "<td width=""15%""><b><font color=white> 领物人信息：</font></b></td>"
    Response.Write "<td width=""35%"">"
    Response.Write "<b><font color=white> 产品</font></b></td>"
    Response.Write "<td width=""50%"">"
    Response.Write "<b><font colspan=""2"" color=white>&nbsp;数量</font></b></td>"
    Response.Write "</tr>"
	sql = "select * from outward_detail where detail_outw_id = "&outw_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_danwei = rs_prod("prod_danwei")
			prod_pinming = rs_prod("prod_pinming")
			prod_danjia = rs_prod("prod_danjia")
			Response.Write "<tr>"
			Response.Write "<td width=""25%"">&nbsp;</td>"
			Response.Write "<td width=""35%"">"
			response.write prod_no &" " & prod_type &" " & prod_danwei &" " & 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
 	 rs_detail.movenext
 	 	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>"
		sql = "select * from detail_info where info_outw_id = "&outw_id&" and info_detail_id = "&detail_id&""
		set rs_info = conn.execute(sql)
		if not rs_info.eof then
			info_type = rs_info("info_type")
			info_takeman_id = rs_info("info_takeman_id")
			info_yuji_time = rs_info("info_yuji_time")
			info_order_beizu = rs_info("info_order_beizu")
			info_order_man = rs_info("info_order_man")
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 出库单备注：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write info_order_beizu&"&nbsp;</td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""15%""> 出库单填写人：</td>"
			Response.Write "<td  colspan=""3"" width=""85%"">"
			Response.Write info_order_man&"&nbsp;</td>"
			Response.Write "</tr>"
		
		end if
		rs_info.close
		set rs_info = nothing
 loop
 rs_detail.close
 set rs_detail = nothing
 %>

 <tr>
 <td colspan=4 align=left bgcolor=green height=20><b><font color=white>仓 管 信 息</font></b></td>
</tr>
 <%
 if stock_flag = true  then 
 
 %>
 <tr>
    <td width="15%"> 仓管出库日期：</td>
    <td colspan="3" width="85%">
   <%response.write outw_outstock_date & "&nbsp;"%></td>
 </tr>
 <tr>
    <td width="15%"> 仓管出库操作人：</td>
    <td colspan="3" width="85%">
   <%response.write outw_stock_operate & "&nbsp;"%></td>
 </tr>
 <tr>
    <td width="15%">仓管备注：</td>
    <td colspan="3" width="85%">
   <%response.write outw_stock_beizu & "&nbsp;"%></td>
 </tr>
 <%
 else
 %>
	<tr>
    <td width="15%"> 仓管出库日期</td>
    <td colspan="4" width="85%">
    <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="stock_date" value='<%=date()%>' onfocus="calendar()"  onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
 </tr>
 	<tr>
    <td width="15%"> 仓管出库时间</td>
    <td colspan="4" width="85%">
    <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="stock_time" value='<%=formatdatetime(time(),4)%>' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
 </tr>
 <tr>
    <td width="15%"> 仓管出库操作人：</td>
    <td colspan="4" width="85%">
   <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="stock_operate" value='' maxlength=10 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
 </tr>
 <tr>
    <td width="15%">仓管备注：</td>
    <td colspan="4" width="85%">
   <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="stock_beizu" value='' maxlength=25 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
 </tr>
 <%
 end if
 %>
<input type=hidden name=id value=<%=outw_id%>>
<input type=hidden name=companyid value=<%=newcompanyid%>>
<%
if stock_flag = false then
%>
<tr bgcolor=white>
   <td colspan="5"><br><br>
   <center>
   <input class=buttonface type=button  onclick="datacheck()" name=ok value=仓管出库>　
	</center>
	<br><br>
 </tr>
 <%
 end if
 %>
</table>
</form>
<%sql1 = "update inventory set inve_chuku = inve_chuku + "&detail_no&",inve_fenpei = inve_fenpei - "&detail_no&",inve_maysent = inve_maysent - "&detail_no&",inve_last_date = '"&now()&"' where inve_companyid = "&newcompanyid&" and inve_dc_id = "&outw_dc_id&" and inve_prod_id = "&prod_id&" "
						conn.execute(sql1) %>
 <%
else
	Response.Write "可能该数据已经被他人删除,请刷新主页面!"
	
end if
rs.Close
set rs = nothing
call closedatabase
end if
%>
<br> <p align=center><font size=+3 color=blue><a href='#' onclick="javascript:window.close()">[关闭]</a></font></p> 
 <br>
 </body>
</html>
⌨️ 快捷键说明

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