📄 cstctgstock_view.asp
字号:
<%@ Language=VBScript %>
<%
'******************************************************************
'功能：根据客户编号查看该客户的品种库存及库存明细查询
'入口参数：
'cst_id(客户编号)
'作者：蒋柳 日期：2001。6。28
'******************************************************************
%>
<%
'数据库连接
dim DBconn
set DBconn=server.CreateObject("ADODB.Connection")
DBconn.ConnectionTimeout =application("Connection2_Connectiontimeout")
DBconn.OPEN Application("Connection2_ConnectionString")
'DBconn.Open "DRIVER=SQL Server;SERVER=fileserver;UID=sa;APP=Microsoft Development Environment;WSID=JL;DATABASE=CMS"
'取入口参数
Lstr_cst_id=Request("Tstr_cst_id")
'lstr_cst_id="200106190004"
set rs_cst=server.CreateObject ("adodb.recordset")
sql_cst="select a.Cst_Name,a.Cst_Type,b.Rgn_Name from Basic_Customer as a join Basic_Region as b on (a.rgn_id=b.rgn_id) where a.cst_id='"&lstr_cst_id&"'"
rs_cst.Open sql_cst,dbconn,2
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<form action=cstctgstock_view.asp method=post name=frm_view>
<input type=hidden name=Tstr_cst_id value=<%=trim(Request("Tstr_cst_id"))%>>
<P>查看客户的品种库存
<HR></P>
<P>客户名称： <%=rs_cst("cst_name")%></P>
<P>客户所在地区：<%=rs_cst("rgn_name")%></P>
<P>客户类型： <%=rs_cst("cst_type")%></P>
<%rs_cst.close%>
<%
'取品种
set rs_ctg=server.CreateObject ("adodb.recordset")
sql_ctg="select Ctg_Name from Basic_Category order by ctg_name"
rs_ctg.Open sql_ctg,dbconn,2
if rs_ctg.EOF then
%>
<P>品种：<SELECT id=select1 name=slt_CtgName style="HEIGHT: 22px; WIDTH: 123px" >
<OPTION selected></OPTION></SELECT></P>
<%else%>
<P>品种:<SELECT id=select1 name=slt_CtgName style="HEIGHT: 22px; WIDTH: 123px" onchange=window.frm_view.submit()>
<%if Request("slt_CtgName")="" then%>
<OPTION selected></OPTION>
<%else%>
<OPTION selected><%=Request("slt_CtgName")%></OPTION>
<%
rs_ctg.Close
sql_ctg="select Ctg_Name from Basic_Category where ctg_name<>'"&trim(Request("slt_ctgname"))&"' order by ctg_name"
rs_ctg.Open sql_ctg,dbconn,2
%>
<%end if %>
<%do while not rs_ctg.EOF %>
<option><%=rs_ctg("Ctg_Name")%></option>
<%rs_Ctg.MoveNext
loop
%>
<%end if%>
</select>
<%if Request("slt_CtgName")="" then%>
<TABLE border=1 cellPadding=1 cellSpacing=1 width="75%">
<TR>
<TD>库存总量</TD>
<TD>入库总量</TD>
<TD>出库总量</TD></TR></TABLE>
<%else%>
<%
Lstr_ctg_name=trim(Request("slt_CtgName"))
'取出品种
set rs_CtgId=server.CreateObject ("adodb.recordset")
sql_CtgId="select Ctg_id from Basic_Category where Ctg_name='"&Lstr_ctg_name&"' "
rs_CtgId.Open sql_CtgId,dbconn,2
Lstr_ctg_id=trim(Rs_CtgId("Ctg_id"))
'取出客户对应品种的库存总量
set rs_CstCtgStock_All=server.CreateObject ("adodb.recordset")
Sql_CstCtgStock_All="select FU_StkQty,FU_StkQtyIn,FU_StkQtyOut from FlowUse_StockCst where Cst_id='"&lstr_cst_id&"'and Ctg_Id='"&Lstr_ctg_id&"' "
Rs_CstCtgStock_All.Open Sql_CstCTgStock_All,dbconn,2
if rs_CstCtgStock_All.EOF then
%>
<TABLE border=1 cellPadding=1 cellSpacing=1 width="75%">
<TR>
<TD>库存总量</TD>
<TD>入库总量</TD>
<TD>出库总量</TD>
此用户此品种没有库存
</TR></TABLE>
<%else%>
<TABLE border=1 cellPadding=1 cellSpacing=1 width="75%">
<TR>
<TD>库存总量</TD>
<TD>入库总量</TD>
<TD>出库总量</TD>
</TR>
<TR>
<TD><%=rs_CstCtgStock_All("FU_StkQty")%></TD>
<TD><%=rs_CstCtgStock_All("FU_StkQtyIn")%></TD>
<TD><%=rs_CstCtgStock_All("FU_StkQtyOut")%></TD>
</TR>
</TABLE>
<%end if%>
<%end if%>
<P>客户的品种库存明细：
<%if Request("slt_CtgName")="" then%>
<TABLE border=1 cellPadding=1 cellSpacing=1 style="HEIGHT: 18px; WIDTH: 424px"
width="75%">
<TR>
<TD>业务编号</TD>
<TD>业务类型</TD>
<TD>原始数量</TD>
<TD>可促销数量</TD>
<TD>可用药数量</TD>
没有此客户此品种的用药明细
</TR></TABLE></P>
<%else%>
<%
'取明细数据
set rs_CstCtgStock_view=server.CreateObject ("adodb.recordset")
sql_CstCtgStock_view="select BsnsID,BsnsType,BsnsQty,BsnsQtyCanSalPro,BsnsQtyCanUse from FlowUse_StockCstDtl where ctg_id='"&Lstr_ctg_id&"' and cst_id='"&lstr_cst_id&"'"
rs_CstCtgStock_view.Open sql_CstCtgStock_view,dbconn,2
'Response.Write sql_cstctgstock_view
if rs_CstCtgStock_view.EOF then
%>
<TABLE border=1 cellPadding=1 cellSpacing=1 width="75%">
<TR>
<TD>业务编号</TD>
<TD>业务类型</TD>
<TD>原始数量</TD>
<TD>可促销数量</TD>
<TD>可用药数量</TD>
此客户此品种没有明细库存记录
</TR></TABLE></P>
<%else%>
<TABLE border=1 cellPadding=1 cellSpacing=1 width="75%">
<TR>
<TD>业务编号</TD>
<TD>业务类型</TD>
<TD>原始数量</TD>
<TD>可促销数量</TD>
<TD>可用药数量</TD>
</TR>
<%do while not rs_CstCtgStock_view.EOF %>
<TR>
<TD><%=rs_CstCtgStock_view("BsnsID")%></TD>
<TD><%=rs_CstCtgStock_view("BsnsType")%></TD>
<TD><%=rs_CstCtgStock_view("BsnsQty")%></TD>
<TD><%=rs_CstCtgStock_view("BsnsQtyCanSalPro")%></TD>
<TD><%=rs_CstCtgStock_view("BsnsQtyCanUse")%></TD>
</TR>
<%
rs_CstCtgStock_view.MoveNext
loop
%>
</TABLE></P>
<%end if %>
<%end if%>
</form>
</BODY>
<%DBconn.Close
%>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -