📄 baobiaook1.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Set ObjReference = Server.CreateObject("jxc1.check")
ObjReference.myfilee()
%>
<!--#include file="../../Connections/jxc.asp" -->
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_jxc_STRING
rs.Source = "SELECT * FROM goods ORDER BY hgoodsname ASC"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
%>
<%
Dim Recordset2__MMColParam1
Recordset2__MMColParam1 = "2000-1-1"
If (Request.QueryString("time1") <> "") Then
Recordset2__MMColParam1 = Request.QueryString("time1")
End If
%>
<%
Dim Recordset2__MMColParam0
Recordset2__MMColParam0 = "2000-1-1"
If (Request.QueryString("time2") <> "") Then
Recordset2__MMColParam0 = Request.QueryString("time2")
End If
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "2000-1-1"
If (Request.QueryString("time1") <> "") Then
Recordset1__MMColParam = Request.QueryString("time1")
End If
%>
<%
Dim Recordset1__MMColParam0
Recordset1__MMColParam0 = "2000-1-1"
If (Request.QueryString("time2") <> "") Then
Recordset1__MMColParam0 = Request.QueryString("time2")
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>合成报表<%=now%></title>
<style type="text/css">
<!--
body,td,th {
font-size: 9pt;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
</head>
<body>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
报表人<strong><font color="#6AB5FF"><%= session("jxcman")%> </font></strong></td>
</tr>
</table>
<strong><font color="#6AB5FF">
</font></strong>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#999999">
<tr bgcolor="#00FFFF">
<td colspan="3"><div align="center"></div>
<div align="center"><%= Request.QueryString("time1") %>到<%= Request.QueryString("time2") %></div>
<div align="center"></div></td>
<td colspan="3"><div align="center">进</div></td>
<td colspan="3"><div align="center">销</div></td>
<td colspan="3"><div align="center">存(<%= now %>)</div></td>
</tr>
<tr>
<td width="4%" bgcolor="#00FFFF"><div align="center">序号</div></td>
<td width="16%" bgcolor="#00FFFF"><div align="center">商标/货品名</div></td>
<td width="8%" bgcolor="#00FFFF"><div align="center">型号</div></td>
<td width="8%" bgcolor="#00FFFF"><div align="center">数量</div></td>
<td width="8%" bgcolor="#00FFFF"><div align="center">均价(元)</div></td>
<td width="8%" bgcolor="#00FFFF"><div align="center">金额(元)</div></td>
<td width="8%" bgcolor="#00FFFF"><div align="center">数量</div></td>
<td width="8%" bgcolor="#00FFFF"><div align="center">均价(元)</div></td>
<td width="8%" bgcolor="#00FFFF"><div align="center">金额(元)</div></td>
<td width="8%" bgcolor="#00FFFF"><div align="center">数量</div></td>
<td width="8%" bgcolor="#00FFFF"><div align="center">近价(元)</div></td>
<td width="8%" bgcolor="#00FFFF"><div align="center">金额(元)</div></td>
</tr>
<% dim n
n = 0
do while not rs.eof
n = n+1
dim jinshu,jinzongjia,pjinjia
jinshu = 0
jinzongjia = 0
dim cshu,cdanjia,cjin
cshu = 0
cjin = 0
%>
<%
Dim Recordset1__MMColParam1
Recordset1__MMColParam1 = "1"
If (rs("hidcode") <> "") Then
Recordset1__MMColParam1 = rs("hidcode")
End If
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (rs("hidcode") <> "") Then
Recordset2__MMColParam = rs("hidcode")
End If
%>
<%
Dim Recordset1__MMColParam2
Recordset1__MMColParam2 = "1"
If ("有效" <> "") Then
Recordset1__MMColParam2 = "有效"
End If
%>
<%
Dim Recordset2__MMColParam2
Recordset2__MMColParam2 = "有效"
If (Request("MM_EmptyValue") <> "") Then
Recordset2__MMColParam2 = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset2__MMColParam3
Recordset2__MMColParam3 = "销给客户"
If (Request("MM_EmptyValue") <> "") Then
Recordset2__MMColParam3 = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset1__MMColParam3
Recordset1__MMColParam3 = "1"
If ("从供货客户进货" <> "") Then
Recordset1__MMColParam3 = "从供货客户进货"
End If
%>
<%
Dim Recordset3__MMColParam1
Recordset3__MMColParam1 = "1"
If (rs("hidcode") <> "") Then
Recordset3__MMColParam1 = rs("hidcode")
End If
%>
<tr bgcolor="#FFFFFF">
<td><div align="center"><%= n %> </div></td>
<td><div align="center"><%=rs("hshangbiao")%><%=rs("hgoodsname")%></div></td>
<td><div align="center"><%=rs("hxinghao")%></div></td>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_jxc_STRING
Recordset1.Source = "SELECT * FROM jin WHERE date >= #" + Replace(Recordset1__MMColParam, "'", "''") + "# and date <= #" + Replace(Recordset1__MMColParam0, "'", "''") + "# AND hidcode = '" + Replace(Recordset1__MMColParam1, "'", "''") + "' AND zhuangtai = '" + Replace(Recordset1__MMColParam2, "'", "''") + "' AND xingzhi = '" + Replace(Recordset1__MMColParam3, "'", "''") + "' ORDER BY jidcode DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
do while not recordset1.eof
jinshu = jinshu + recordset1("shu")
jinzongjia =jinzongjia + recordset1("shu") * recordset1("jiage")
recordset1.movenext
loop
if jinshu <> 0 then
pjinjia = jinzongjia \ jinshu
end if
Recordset1_numRows = 0
%>
<td><div align="center"><%= jinshu %> <%=rs("hdanwei")%></div></td>
<td><div align="center"><%= pjinjia %> </div></td>
<td><div align="center"><%= jinzongjia %> </div></td>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_jxc_STRING
Recordset2.Source = "SELECT * FROM xiao WHERE hidcode = '" + Replace(Recordset2__MMColParam, "'", "''") + "'and date >= #" + Replace(Recordset2__MMColParam1, "'", "''") + "# and date <= #" + Replace(Recordset2__MMColParam0, "'", "''") + "# and zhuangtai = '" + Replace(Recordset2__MMColParam2, "'", "''") + "' AND xingzhi = '" + Replace(Recordset2__MMColParam3, "'", "''") + "' ORDER BY xidcode DESC"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
dim xiaoshu,xiaozongjia
xiaoshu = 0
xiaozongjia = 0
dim pxiaojia
pxiaojia = ""
do while not recordset2.eof
xiaoshu = xiaoshu + recordset2("shu")
xiaozongjia =xiaozongjia + recordset2("shu") * recordset2("jiage")
recordset2.movenext
loop
if xiaoshu <> 0 then
pxiaojia = xiaozongjia \ xiaoshu
end if
Recordset2_numRows = 0
%>
<td><div align="center"><%= xiaoshu %> <%=rs("hdanwei")%></div></td>
<td><div align="center"><%= pxiaojia %> </div></td>
<td><div align="center"><%= xiaozongjia %> </div></td>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Dim Recordset3
Dim Recordset3_numRows
Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_jxc_STRING
Recordset3.Source = "SELECT * FROM cun WHERE hidcode = '" + Replace(Recordset3__MMColParam1, "'", "''") + "' ORDER BY id DESC"
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()
if not recordset3.eof then
cshu=recordset3("shu")
cdanjia = recordset3("jiage")
cjin = cshu*cdanjia
end if
Recordset3_numRows = 0
%>
<td><div align="center"><%=cshu%><%=rs("hdanwei")%></div></td>
<td><div align="center"><%=cdanjia%></div></td>
<td><div align="center"><%= cjin %></div></td>
<%
Recordset3.Close()
Set Recordset3 = Nothing
%>
</tr>
<%
rs.movenext
loop
rs.Close()
Set rs = Nothing
%>
</table></td>
</tr>
</table>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><strong><font color="#6AB5FF">
</font></strong>
<strong><font color="#6AB5FF"> </font></strong></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -