📄 k_stockdetail.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<!--#include file="../include/Pubcode.asp"-->
<%
rkbz=request("rkbz") '入库中详细查看标志
username=Getuser()
'传过来的值
jhdh=request("jhdh")
set rsjh=Server.Createobject("ADODB.recordset")
sql="select * from k_tblstock where jhdh='"&jhdh&"'"
rsjh.open sql,pubconn,1
ghdwxh=rsjh("pronum")
spbm=rsjh("ProdCode")
if ghdwxh<>"" then
ghdwmc=Gname(ghdwxh)
end if
if spbm<>"" then
'找出产品的有关的内容
set rssp=Server.Createobject("ADODB.recordset")
sql="select * from A_ProductInfo where ProdCode='"&spbm&"'"
rssp.open sql,Pubconn,1
if not rssp.eof then
spmc=rssp("ProdName")
ggxh=rssp("Model")+"-"+rssp("stanDard")
jldw=rssp("Unit")
cbj=rssp("costprice")
end if
rssp.close
set rssp=nothing
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<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" width="34" height="15">
</font>
<font size="2">进货单详细查看</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<table border="1" width="97%" cellspacing="0" height="9" bgcolor="#F7F4E5">
<tr>
<td width="11%" height="23" align="right" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<font size="2">进货单号
</font>
</td>
<td width="21%" height="23" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<input type="text" name="jhdh" size="14" value="<%=rsjh("jhdh")%>" readonly style="background-color: #edefef" >
<td width="13%" height="23" align="right" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<font size="2">进货日期
</font>
</td>
<td width="15%" height="23" colspan="3" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5" >
<input type="text" name="year1" size="13" value="<%=rsjh("jhrq")%>" readonly style="background-color: #edefef">
</td>
</tr>
<tr>
<td width="11%" height="23" align="right" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<font size="2">应商序号
</font>
</td>
<td width="21%" height="23" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<input type="text" name="ghdwxh" size="14" value="<%=ghdwxh%>" tabindex="2" readonly style="background-color: #edefef">
<td width="13%" height="23" align="right" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<font size="2">供应商名称
</font>
</td>
<td width="15%" height="23" colspan="3" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5" >
<input type="text" name="ghdwmc" size="32" value="<%=ghdwmc%>" tabindex="2" readonly style="background-color: #edefef">
</td>
</tr>
<tr>
<td width="11%" height="23" align="right" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<font size="2">进货部门
</font>
</td>
<td width="21%" height="23" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<p align="left">
<%
tsql="select name from A_departinfo where DepartCode='"&rsjh("departcode")&"'"
set rsbm=pubconn.execute(tsql)
%>
<input type="text" name="year6" size="17" value="<%=rsbm("name")%>" readonly style="background-color: #edefef">
<td width="13%" height="23" align="right" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<font size="2">采购员</font>
</td>
<td width="15%" height="23" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5" >
<input type="text" name="year7" size="13" value="<%=Pname(rsjh("StuffNum"))%>" readonly style="background-color: #edefef">
</td>
<td width="10%" height="23" align="right" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5" >
<font size="2">进货方式
</font>
</td>
<td width="15%" height="23" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5" >
<input type="text" name="year8" size="13" value="<%=rsjh("jhfs")%>" readonly style="background-color: #edefef">
</td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -