📄 k_outtj.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%
'设计思想：先将所有符合条件的记录放入一个表中去，然后再数据列出来
'*****************************
'先将表中的数据删除
set rst=Server.CreateObject("AdoDB.RecordSet")
cxsql="select * from K_Tblcktotal"
rst.open cxsql,pubconn,1,3
if rst.recordcount>0 then
delsql="delete from K_Tblcktotal"
pubconn.execute delsql
end if
rst.close
set rst=nothing
'*************************
'得到入库仓库下拉单
set AdoRs3=Server.CreateObject("AdoDB.RecordSet")
lcsql="select NumValue from A_ConfigInfo Where Subject='storehouse'"
AdoRS3.Open lcSql,PubConn,1,1
HYvalue=Adors3("NumValue")
if not isNull(HYvalue) then
storemc=Split(HYValue,",")
end if
Set Adors3=Nothing
username=Getuser()
year1=request("year1")
month1=request("month1")
date1=request("date1")
'当年月日同时选择中了，才能进入查询条件，合并
if year1<>"" and month1<>"" and date1<>"" then
total1=year1+"-"+month1+"-"+date1
end if
'当年月日同时选择中了，才能进入查询条件，合并
year2=request("year2")
month2=request("month2")
date2=request("date2")
if year2<>"" and month2<>"" and date2<>"" then
total2=year2+"-"+month2+"-"+date2
end if
ckxh=request("ckxh")
%>
<%
'**********************************
'以下为销售出库数量
set rst=server.createobject("adodb.recordset")
str="select sum(spsl) as total1,sum(sjcksl) as total2 ,spxh,ckxh from k_tblsaleckxz where sfyck='Y' "
if ckxh<>"" then
str=str&" and ckxh='"&ckxh&"'"
end if
if total1<>"" and total2="" then
str=str&" and ckrq<='"&total1&"'"
end if
if total1="" and total2<>"" then
str=str&" and ckrq<='"&total2&"'"
end if
if total1<>"" and total2<>"" then
str=str&" and (ckrq between '"&total1&"' and '"&total2&"')"
end if
str=str&"group by spxh,ckxh "
rst.open str,pubconn,1
'response.write str&"<br>"
if not rst.eof then
'将表打开，准备把数据添加进去
set rs=Server.CreateObject("AdoDB.RecordSet")
cxsql="select * from K_Tblcktotal"
rs.open cxsql,pubconn,1,3
for i=1 to rst.recordcount
rs.addnew
rs("spxh")=rst("spxh")
rs("ckxh")=rst("ckxh")
rs("xscksl")=rst("total2")
rs.update
rst.movenext
if rst.eof then exit for
next
rs.close
set rs=nothing
end if
rst.close
set rst=nothing
'***********************************
'以下为盘点报盈数量
set rst=server.createobject("adodb.recordset")
str="select sum(sysl) as total1,sum(syje) as total2 ,prodcode,ckxh from k_tblstopd where sysl<0 "
if ckxh<>"" then
str=str&" and ckxh='"&ckxh&"'"
end if
if total1<>"" and total2="" then
str=str&" and zdrq<='"&total1&"'"
end if
if total1="" and total2<>"" then
str=str&" and zdrq<='"&total2&"'"
end if
if total1<>"" and total2<>"" then
str=str&" and (zdrq between '"&total1&"' and '"&total2&"')"
end if
str=str&"group by prodcode,ckxh "
rst.open str,pubconn,1
if not rst.eof then
'将表打开，准备把数据添加进去
set rs=Server.CreateObject("AdoDB.RecordSet")
cxsql="select * from K_Tblcktotal"
rs.open cxsql,pubconn,1,3
for i=1 to rst.recordcount
rs.addnew
rs("spxh")=rst("prodcode")
rs("ckxh")=rst("ckxh")
rs("pdbksl")=rst("total1")
rs.update
rst.movenext
if rst.eof then exit for
next
rs.close
set rs=nothing
end if
rst.close
set rst=nothing
'response.write str
'将表打开，将数据列出来
set rstj=Server.CreateObject("AdoDB.RecordSet")
cxsql="select sum(xscksl)as total1, sum(pdbksl) as total2,spxh,ckxh from K_Tblcktotal group by spxh,ckxh order by ckxh desc"
rstj.open cxsql,pubconn,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>单据查询</title><link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<script language="vbscript">
sub GoPage()
page1=document.myform.page1.value
year1=document.myform.year1.value
month1=document.myform.month1.value
date1=document.myform.date1.value
year2=document.myform.year2.value
month2=document.myform.month2.value
date2=document.myform.date2.value
ckxh=document.myform.ckxh.value
a="k_outtj.asp?page="+page1+"&year1="+year1+"&month1="+month1+"&date1="+month1+"&year2="+year2+"&month2="+month2+"&date2="+date2+"&ckxh="+ckxh
window.location=a
end sub
</script>
<body bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif"></font> <font size="2"> 出库统计查询
</font>
</b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<form method="post" action="k_outtj.asp" name="myform">
<table border="0" cellspacing="0" width="574" align="center" width="630" width="636">
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -