📄 baobiao_out_view.asp
字号:
<%@language=vbscript%>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<!-- #include file=../data/flag.inc-->
<%
newcompanyid = request("companyid")
if newcompanyid = "" then
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
%>
<%'On Error Resume Next%>
<%const title="出库统计报表"%>
<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<link rel=stylesheet type=text/css href=../data/forum.css>
</head>
<%
wood_type = Request.Form("wood_type")
start_year = Request.Form("start_year")
start_month = Request.Form("start_month")
start_day = Request.Form("start_day")
end_year = Request.Form("end_year")
end_month = Request.Form("end_month")
end_day = Request.Form("end_day")
qishi="0:00:00"
start_date = start_year&"-"&start_month&"-"&start_day
end_date = end_year&"-"&end_month&"-"&end_day
smallinput = request("dc_id")
if smallinput = "" then
smallinput = 0
else
smallinput = replace(smallinput,"'","’")
end if
biglocation = request("biglocation")
if biglocation = "" then
biglocation = 0
else
biglocation = replace(biglocation,"'","’")
end if
smalllocation = request("smalllocation")
if smalllocation = "" then
smalllocation = 0
else
smalllocation = replace(smalllocation,"'","’")
end if
oddsia = request("oddsia")
oddsia = replace(oddsia,"'","’")
prod_type2 = trim(request("prod_type"))
prod_type2 = replace(prod_type2,"'","’")
prod_danwei = trim(request("prod_danwei"))
prod_danwei = replace(prod_danwei,"'","’")
oddsra = request("oddsra")
if oddsra = 1 then
sra = trim(request("sra"))
sra = replace(sra,"'","’")
elseif oddsra = 2 then
odd = trim(request("odd"))
odd = replace(odd,"'","’")
else
Response.End
end if
%>
<body topmargin="0">
<%
Showtitle(title)
%>
<form name="form1" method="post" action="baobiao_out_view_print.asp" target=opssout>
<div align="center">
<table width=100% align=center border='1' cellspacing='0' bordercolordark='#000000' bordercolorlight='#DADBFC' bordercolor='#000000'>
<tr>
<td rowspan="2" width="24">
<div align="center">No.</div>
</td>
<td rowspan="2" width="70">
<div align="center">Stock Release Advice NO</div>
</td>
<td colspan="7">
<div align="center">物品信息</div>
</td>
<td colspan="4">
<div align="center">领货人信息</div>
</td>
<td colspan="2">
<div align="center">时间信息</div>
</td>
<td rowspan="2" width="44">
<div align="center">备注</div>
</td>
</tr>
<tr>
<td width="57">
<div align="center">品名</div>
</td>
<td width="57">
<div align="center">型号</div>
</td>
<td width="32">
<div align="center">单位</div>
</td>
<td width="48">
<div align="center">数量</div>
</td>
<td width="55">
<div align="center">物品号</div>
</td>
<td width="59" height="50"><div align="center">单价元</div></td>
<td width="60" height="50"><div align="center">金额元</div></td>
<td width="59">
<div align="center">领货人</div>
</td>
<td width="72">
<div align="center">联系电话</div>
</td>
<td width="72">
<div align="center">去向地址</div>
</td>
<td width="68">
<div align="center">证件号</div>
</td>
<td width="77">
<div align="center">出库单填写时间</div>
</td>
<td width="73">
<div align="center">出库时间</div>
</td>
</tr>
<%
if oddsra = 1 then
sql = "select * from outward,outward_detail,detail_info,product "
sql = sql + " where outward.outw_id = outward_detail.detail_outw_id "
sql = sql + " and detail_info.info_detail_id = outward_detail.detail_id "
sql = sql + " and outward_detail.detail_prod_id = product.prod_id "
sql = sql + " and outward.outw_fact_date >= #"&start_date&"# and outward.outw_fact_date <= #"&end_date&"# "
sql = sql + " and outward.outw_companyid = "&newcompanyid&" "
if smallinput <> 0 then
sql = sql + " and outward.outw_dc_id = "&smallinput&" "
else
if flag > 3 then
sql = sql + " and outward.outw_dc_id in ("&dcservice&") "
end if
end if
if cstr(wood_type) = "1" then
sql = sql + " and product.prod_dir_flag = 0 "
elseif cstr(wood_type) = "2" then
sql = sql + " and product.prod_dir_flag = 1 "
end if
if clng(oddsia) = 1 then
if smalllocation <> 0 then
sql = sql + " and outward_detail.detail_prod_id = "&smalllocation&" "
end if
elseif clng(oddsia) = 2 then
if prod_type2 <> "" then
sql = sql + " and product.prod_type = '"&prod_type2&"' "
end if
if prod_danwei <> "" then
sql = sql + " and product.prod_danwei = '"&prod_danwei&"' "
end if
end if
if sra <> "" then
sql = sql + " and outward.outw_sra like '%"&sra&"%' "
end if
sql = sql + " order by outward_detail.detail_id asc "
elseif oddsra = 2 then
end if
'Response.Write sql
'Response.End
set rs_tongzhi = server.CreateObject("adodb.recordset")
rs_tongzhi.Open sql,conn,1,1
if not rs_tongzhi.eof then
i = 1
do while not rs_tongzhi.eof
%>
<tr>
<td width="24">
<div align="center"><%=i%></div>
</td>
<td width="70">
<div align="center">
<a href="#" onclick="javascript:window.open('search_record_info.asp?id=<%=rs_tongzhi("outw_id")%>&companyid=<%=newcompanyid%>','hamier899e','height=500,width=500,scrollbars')"><font color=navy><%Response.Write rs_tongzhi("outw_sra")%></font></a>
</div>
</td>
<td width="57">
<div align="center"><%Response.Write rs_tongzhi("prod_pinming")%></div>
</td>
<td width="57">
<div align="center"><%Response.Write rs_tongzhi("prod_type")%></div>
</td>
<td width="32">
<div align="center"><%
if trim(rs_tongzhi("prod_danwei")) = "" then
Response.Write " "
else
response.write rs_tongzhi("prod_danwei")
end if
%></div>
</td>
<td width="48">
<div align="center"><%Response.Write rs_tongzhi("detail_no")%></div>
</td>
<td width="55">
<div align="center"><%Response.Write rs_tongzhi("prod_no")%></div>
</td>
<td><div align="center"><%response.write rs_tongzhi("prod_danjia")%></div></td>
<% dim n,money,total
n=rs_tongzhi("detail_no")
money=rs_tongzhi("prod_danjia")
total=n*money%>
<td><%=total%></td>
<%
sql = "select * from guest where guest_id = "&rs_tongzhi("detail_guest_id")&""
set rs_comp = conn.execute(sql)
if not rs_comp.eof then
guest_user = rs_comp("guest_user")
guest_tel = rs_comp("guest_tel")
if trim(guest_tel) = "" then guest_tel=" "
guest_address = rs_comp("guest_address")
if trim(guest_address) = "" then guest_address=" "
guest_idcard = rs_comp("guest_idcard")
if trim(guest_idcard) = "" then guest_idcard=" "
end if
rs_comp.close
set rs_comp = nothing
%>
<td width="59">
<div align="center"><%Response.Write guest_user%></div>
</td>
<td width="72">
<div align="center"><%Response.Write guest_tel%></div>
</td>
<td width="72">
<div align="center"><%Response.Write guest_address%></div>
</td>
<td width="68">
<div align="center"><%Response.Write guest_idcard%></div>
</td>
<%
outw_consign_date = trim(rs_tongzhi("outw_consign_date"))%>
<td width="77">
<div align="center"><%
Response.Write outw_consign_date &" "
%></div>
</td>
<%
outw_outstock_date = trim(rs_tongzhi("outw_outstock_date"))%>
<td width="73">
<div align="center"><%
Response.Write outw_outstock_date &" "
%></div>
</td>
<td width="44" align="center"><input type="checkbox" name="<%=i%>" value="<%=rs_tongzhi("detail_id")%>" checked></td>
</tr>
<%
i = i + 1
rs_tongzhi.movenext
loop
end if
%>
<tr>
<td width="24"><div align="center">总计</div></td>
<td width="70"> </td>
<td> </td>
<td> </td>
<td width="32"> </td>
<td width="48"> </td>
<td> </td>
<td> </td>
<td> </td>
<td width="59"> </td>
<td width="72"> </td>
<td width="72"> </td>
<td width="68"> </td>
<td width="77"> </td>
<td width="73"> </td>
<td width="44"> </td>
</tr>
</table>
<input type="hidden" name="no" value="<%=rs_tongzhi.recordcount%>">
<input type="hidden" name="companyid" value="<%=newcompanyid%>">
<input type="hidden" name="oddsra" value="<%=oddsra%>">
<%
if rs_tongzhi.recordcount > 0 then
%>
<input class=buttonface type="submit" name="ok" value="打印选择项">
<input class=buttonface type="reset" name="ok" value="重设">
<%end if%>
<input onclick="javascript:history.go(-1)" class=buttonface type="button" name="ok" value="返回">
</form>
<p align="left"> </p>
</div>
<%
call closedatabase
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -