📄 inoutedit.asp
字号:
<!--#include file="../conndb.asp"-->
<%
'0-采购入库；1-销售退货入库；2-销售出库；3-采购退货出库
Dim rs,strType,strName,strTitle,sql,SqlList,Lfield
strType = Request.QueryString("type")
If strType="0" Then
strName = "采购"
strTitle = "入库"
sql = "SELECT *, '采购入库' As iotype FROM StoreInOut WHERE Flag=0 "
'当nFlag=0时表示采购订货单，从表PurchaseOrder中提取审核后允许入库的采购订货单
SqlList = "SELECT * FROM PurchaseOrder WHERE Status='审核'"
Lfield = "PurId"
ElseIf strType="1" Then
strName = "销售"
strTitle = "入库"
sql = "SELECT *,'销售退货入库' As iotype FROM StoreInOut WHERE Flag=1"
'当nFlag=1时表示销售退货单，从表SaleReturn中提取审核后允许入库的Flag=0的销售退货单
SqlList = "SELECT * FROM SaleReturn WHERE Status='审核' AND Flag=0"
Lfield = "RntId"
ElseIf strType="2" Then
strName = "销售"
strTitle = "出库"
sql = "SELECT *, '销售出库' As iotype FROM StoreInOut WHERE Flag=2"
'当nFlag=2时表示销售订货单，从表SaleOrder中提取审核后允许出库的销售订单
SqlList = "SELECT * FROM SaleOrder WHERE Status='审核'"
Lfield = "SaleId"
Else
strName = "采购"
strTitle = "出库"
sql = "SELECT *,'采购退货出库' As iotype FROM StoreInOut WHERE Flag=3"
'当nFlag=3时表示采购退货单，从表SaleReturn中提取审核后允许出库的Flag=1的采购退货单
SqlList = "SELECT * FROM SaleReturn WHERE Status='审核' AND Flag=1"
Lfield = "RntId"
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
Dim InOutId,IONo,LotNo,CreateDate,Status,Memo,Poster,ProSum,ListId
'变量初始化
InOutId = ""
Status = "创建"
IONo = ""
LotNo = ""
ProSum = 0
OtherCost = 0
Total = 0
CreateDate = Date()
Poster = Session("UserName")
Memo = ""
'读取参数action\id
Action = Request.QueryString("action")
InOutId = Request.QueryString("id")
%>
<html>
<head>
<title>编辑<%=strName%><%=strTitle%>信息</title>
<link rel="stylesheet" href="../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
if (document.form1.id.value==""){
alert("请输入出入库单编号！");
form1.id.focus;
return false;
}
if (document.form1.lot.value==""){
alert("请输入批次号！");
form1.lot.focus;
return false;
}
return true;
}
function new11(url) {
//为了保证数据的完整性，在添加、修改和删除前要提交一下表单保存表单数据
var stype;
stype = '<%=strType%>';
form1.action = "InOutSave.asp?action=edit&flag=1&type=" + stype;
form1.submit();
var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
oth = oth+",width=550,height=280";
var new11=window.open(url,"new11",oth);
new11.focus();
return false;
}
function fSave(){
var id,stype;
stype = '<%=strType%>';
id = document.form1.id.value;
var url="InOutSave.asp?flag=0&id=" + id + "&type=" + stype;
form1.action = url;
form1.submit();
}
</Script>
</head>
<%
'编辑销售订单记录
If Action = "edit" Then
'设置SELECT语句，读取记录数据
sql = "SELECT * FROM StoreInOut Where IOId='"& InOutId & "'"
rs.Open sql,conn,1,3
If Not rs.EOF Then
IONo = rs("IONo")
LotNo = rs("LotNo")
Status = rs("Status")
Poster = rs("Poster")
CreateDate = rs("CreateDate")
'计算商品列表中对应的商品总金额
sql = "Select Sum(IOPrice*IONum) AS pSum From StoreIOList Where IOId='" & InOutId & "'"
Set rs1 = Conn.Execute(sql)
If IsNull(rs1("pSum")) Then
ProSum = 0
Else
ProSum = rs1("pSum")
End If
Set rs1 = Nothing
End If
rs.Close()
End If
' Response.Write SqlList&"--"&Lfield
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="InOutOK.asp?action=<%=Action%>&id=<%=InOutId%>&type=<%=strType%>" onsubmit="return CheckFlds()">
<br>
<table align="center" border="1" cellspacing="0" width="95%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF" colspan="4" background="pic/storeio.jpg" height="90" width="100%">
<p align="center"><b><font face="华文彩云" color="#000080" size="6"><%=strName%><%=strTitle%>单</font></b></p>
</td>
</tr>
<tr>
<td width="20%" bgcolor="#CEE7FF"><%=strName%><%=strTitle%>单编号</td>
<td><input type="text" name="id" size="20" value="<%=InOutId%>" <%If action="edit" Then%>ReadOnly<%End If%>> </td>
<td bgcolor="#CEE7FF">当前状态</td>
<td><%=Status%> </td>
</tr>
<tr>
<td width="20%" bgcolor="#CEE7FF"><%=strTitle%>批次号</td>
<td><input type="text" name="lot" size="20" value="<%=LotNo%>"> </td>
<td width="20%" bgcolor="#CEE7FF">类型</td>
<td width="40%"><%=strName%><%=strTitle%></td>
</tr>
<tr>
<td width="20%" bgcolor="#CEE7FF">选择<%=strName%>订单</td>
<td width="40%"> <%If InOutId="" Then%>
<select size="1" name="iono">
<%rs.Open SqlList,conn,1,3 '读取订单编号
Do While Not rs.EOF
If rs(Lfield)=IONo Then
%>
<option value="<%=rs(Lfield)%>" selected><%=rs(Lfield)%></option>
<%Else%>
<option value="<%=rs(Lfield)%>"><%=rs(Lfield)%></option>
<%End If
rs.MoveNext()
Loop
rs.Close()%>
</select><%Else%><%=IONo%><%End If%></td>
<td bgcolor="#CEE7FF"><%=strTitle%>总金额</td>
<td><input type="text" name="psum" size="20" value="<%=ProSum%>" ReadOnly> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF"><%=strTitle%>日期</td>
<td><%=CreateDate%> </td>
<td bgcolor="#CEE7FF">录入人</td>
<td><input type="text" name="poster" size="20" value="<%=Poster%>"> </td>
</tr>
</table>
<%If InOutId="" Then%>
<p align=center><input type="button" value=" 保 存 " name="B1" onclick="if(CheckFlds()){fSave();}else{return false;}"></p>
<%Else%><br>
<table align=center border="0" cellspacing="0" width="95%">
<tr><td align="center"><%=strTitle%>商品列表</td></tr>
</tr>
</table>
<table align=center border="1" cellspacing="0" width="95%" bordercolorlight="#000080" bordercolordark="#FFFFFF">
<tr>
<td width="12%" align="center" bgcolor="#C1E0FF"><strong>商品编号</strong></td>
<td width="14%" align="center" bgcolor="#C1E0FF"><strong>商品名称</strong></td>
<td width="12%" align="center" bgcolor="#C1E0FF"><strong>商品型号</strong></td>
<td width="12%" align="center" bgcolor="#C1E0FF"><strong>应<%=strTitle%>数量</strong></td>
<td width="12%" align="center" bgcolor="#C1E0FF"><strong><%=strTitle%>价格</strong></td>
<td width="12%" align="center" bgcolor="#C1E0FF"><strong>实际<%=strTitle%>数量</strong></td>
<td width="12%" align="center" bgcolor="#C1E0FF"><strong>实际<%=strTitle%>金额</strong></td>
<td width="14%" align="center" bgcolor="#C1E0FF"><strong>操作</strong></td>
</tr>
<%If Action = "edit" Then '当编辑信息时，提取商品信息
'读取对应的商品信息
If strType="0" Or strType="3" Then
'从表PurProductList中提取此PurId下的记录
SqlList = "SELECT l.*,p.ProName,p.ProStyle,IsNull(s.IONum,0) AS rq," _
+ " IsNull(s.IONum*s.IOPrice,0) AS rs,IsNull(s.IOPrice,0) AS rp " _
+ " FROM PurProductList l LEFT JOIN StoreIOList s ON l.ProId=s.ProId AND s.IOId='" & InOutId & "'" _
+ " INNER JOIN Product p ON l.ProId=p.ProId WHERE l.PurId='" & IONo & "' ORDER BY l.ProId"
Else
'从表ProductList中提取此SaleId下的记录
SqlList = "SELECT l.*,p.ProName,p.ProStyle,IsNull(s.IONum,0) AS rq," _
+ " IsNull(s.IONum*s.IOPrice,0) AS rs,IsNull(s.IOPrice,0) AS rp " _
+ " FROM ProductList l LEFT JOIN StoreIOList s ON l.ProId=s.ProId AND s.IOId='" & InOutId & "'" _
+ " INNER JOIN Product p ON l.ProId=p.ProId WHERE l.SaleId='" & IONo & "' ORDER BY l.ProId"
End If
' Response.Write sqllist
rs.Open SqlList,Conn,1,3
If rs.EOF Then
Response.Write "<tr><td colspan='8' align='center'>目前没有记录</td></tr>"
End If
Do While Not rs.EOF
%>
<tr>
<td align=center><%=rs("ProId")%> </td>
<td><%=rs("ProName")%> </td>
<td><%=rs("ProStyle")%> </td>
<td align="right"><%=rs("Quantity")%> </td>
<td align="right"><%=rs("rp")%> </td>
<td align="right"><%=rs("rq")%> </td>
<td align="right"><%=rs("rs")%> </td>
<td align="center">
<a href="ListEdit.asp?lid=<%=rs("ListId")%>&type=<%=strType%>&id=<%=InOutId%>&no=<%=IONo%>" onClick="return new11(this.href)"><%=strTitle%></a>
</td>
</tr>
<%
rs.MoveNext()
Loop
End If
%>
</table>
<p align=center><input type="submit" value=" 提 交 " name="B1">
<input type="reset" value=" 重 写 " name="B2"></p>
<%End If%>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -