📄 saleoutstoredetl.asp
字号:
<%
'*****************************************
'功能：根据出库通知单进行出库操作
'1.TStr_Whs_OutNID:出库通知单编号
'2.TStr_WhsID:仓库编号
'3.TStr_CtgID:品种编号
'4.TStr_StfID:登陆ID
'5.LLng_i:计数变量
'6.TStr_SalID:定单编号
'7.TLg_Page:返回页面
'8.Lstr_agn:区域ID
'出口参数
'1.TStr_Whs_OutNID:出库通知单编号
'2.TStr_WhsID:仓库编号
'3.TStr_CtgID:品种编号
'4.TStr_CtgDate:批号
'5.TStr_CtgAreaFirst:起始编号
'6.TStr_CtgAreaEnd:终止编号
'7.TStr_CtgNum:数量
'8.TStr_SalID:定单编号
'9.TLg_Page:返回页面
'10.Lstr_agn:区域ID
'作者：王伟锋，日期：2002.6.18
'*****************************************
'接收参数
TStr_StfID=trim(session("Gs_StaffID"))
if TStr_StfID="" then
Response.Write "网页已经过期，请重新登陆！"
Response.end
end if
TStr_Whs_OutNID=trim(request("TStr_Whs_OutNID"))
TStr_WhsID=trim(request("TStr_WhsID"))
TStr_CtgID=trim(request("TStr_CtgID"))
Tlg_Page=trim(request("TLg_Page"))
Lstr_agn=trim(request("Lstr_agn"))
'建立数据库连接
dim DBconn
set DBconn=server.CreateObject("adodb.connection")
DBconn.open Application("Connection2_ConnectionString")
'打开表Warehouse_OutNotice--->出库信息
dim wwf_RsWhsOn
set wwf_RsWhsOn=server.CreateObject("adodb.recordset")
wwf_RsWhsOn.CursorLocation=3
wwf_SqlWhsOn="select w.Whs_OutNID,c.Ctg_ID,c.Ctg_Name,w.Whs_OutNQty from Warehouse_OutNotice w,Basic_Category c where w.Ctg_ID=c.Ctg_ID and w.Whs_OutNID='"&TStr_Whs_OutNID&"'"
wwf_RsWhsOn.Open wwf_SqlWhsOn,DBconn,2
%>
<HTML>
<HEAD>
<TITLE>出库操作页面</TITLE>
</HEAD>
<BODY>
<H3 align=left>出库单录入</H3>
<HR>
出库通知单：<%=trim(wwf_RsWhsOn("Whs_OutNID"))%><br>
出库品种：<%=trim(wwf_RsWhsOn("Ctg_Name"))%><br>
需出库数量：<%=trim(wwf_RsWhsOn("Whs_OutNQty"))%><br>
品种库存明细：<br>
<TABLE border=1 cellPadding=1 cellSpacing=1 width="75%">
<%
'打开表Warehouse_StockDtl--->库存明晰
dim wwf_RsWhs
set wwf_RsWhs=server.CreateObject("adodb.recordset")
wwf_RsWhs.CursorLocation=3
wwf_SqlWhs="select Whs_StkDBatch,Whs_StkDNum from Warehouse_StockDtl where Ctg_ID='"&TStr_CtgID&"' and Whs_ID='"&TStr_WhsID&"' and Whs_StkDNum > 0"
wwf_RsWhs.Open wwf_SqlWhs,DBconn,2
%>
<TR>
<TD>品种批号</TD>
<TD>库存量</TD>
</TR>
<%
dim checkstr
do while not wwf_RsWhs.eof
%>
<TR>
<TD><%=trim(wwf_RsWhs("Whs_StkDBatch"))%><%checkstr=checkstr&"!@!"&trim(wwf_RsWhs("Whs_StkDBatch"))%></TD>
<TD><%=trim(wwf_RsWhs("Whs_StkDNum"))%></TD>
</TR>
<%
wwf_RsWhs.MoveNext
loop
%>
</TABLE>
</p>
<P>
<script language=vbScript>
<!--
Function Submit()
CtgAdd.Submit
End Function
Function SubmitForm()
If Validate = false Then
Exit Function
else
Submit()
End If
End Function
function Validate()
Validate = true
if trim(document.CtgAdd.Ctg_Date.value) = "" or trim(document.CtgAdd.Ctg_Date.value) = "请填写" then
msgbox "请输入批号!",,"CMS系统提示"
Validate = False
Exit Function
End If
if instr(trim(document.CtgAdd.checkstr.value),("!@!"&trim(document.CtgAdd.Ctg_Date.value)&"!@!")) = 0 then
msgbox "请确认批号!",,"CMS系统提示"
Validate = False
Exit Function
End If
if trim(document.CtgAdd.Ctg_AreaFirst.value) = "" or trim(document.CtgAdd.Ctg_AreaFirst.value) = "请填写" then
msgbox "请输入起始编号!",,"CMS系统提示"
Validate = False
Exit Function
End If
if trim(document.CtgAdd.Ctg_AreaEnd.value) = "" or trim(document.CtgAdd.Ctg_AreaEnd.value) = "请填写" then
msgbox "请输入终止编号!",,"CMS系统提示"
Validate = False
Exit Function
End If
if trim(document.CtgAdd.Ctg_Num.value) = "" or trim(document.CtgAdd.Ctg_Num.value) = "请填写"then
msgbox "请输入数量!",,"CMS系统提示"
Validate = False
Exit Function
End If
if checkNum(document.CtgAdd.Ctg_Num.value) = False then
msgbox "数量为0~9的数字!",,"CMS系统提示"
Validate = False
Exit Function
End If
End Function
Function checkNum(checkNum_checkStr)
dim checkNum_checkOK
dim checkstr
dim checkNum_decPoints
dim checkNum_allNum
checkNum_checkOK = "0123456789"
checkstr=trim(checkNum_checkStr)
checkNum = true
checkNum_decPoints = 0
checkNum_allNum = ""
for i = 1 to len(checkStr)
ch = Mid (checkStr,i,1)
for j = 1 to len(checkNum_checkOK)
if ch = Mid (checkNum_checkOK,j,1) then
Exit For
end if
if j = len(checkNum_checkOK) then
checkNum = false
Exit For
end if
next
next
End function
-->
</script>
产品编号列表：<INPUT name="button" style="HEIGHT: 24px; WIDTH: 65px" type="button" value="增加" onclick="vbscript:SubmitForm()">
</P>
<P>
<TABLE border=1 cellPadding=1 cellSpacing=1 width="75%">
<TR>
<TD>品种批号</TD>
<TD>产品编号范围</TD>
<TD>数量</TD></TR>
<form id="CtgAdd" name="Ctg_Add" action="SaleOutStoreDetl.asp" method="post">
<input type="hidden" name="TStr_Whs_OutNID" value="<%=trim(request("TStr_Whs_OutNID"))%>">
<input type="hidden" name="TStr_WhsID" value="<%=trim(request("TStr_WhsID"))%>">
<input type="hidden" name="TStr_CtgID" value="<%=trim(request("TStr_CtgID"))%>">
<input type="hidden" name="TStr_SalID" value="<%=trim(request("TStr_SalID"))%>">
<input type="hidden" name="TLg_Page" value="<%=TLg_Page%>">
<input type="hidden" name="Lstr_agn" value="<%=Lstr_agn%>">
<TR>
<TD> <input type="text" id="checkstr" name="checkstr" value="<%=checkstr&"!@!"%>">
<INPUT id="Ctg_Date" name="LStr_CtgDate" value="请填写" maxlength="12"></TD>
<TD>从<INPUT id="Ctg_AreaFirst" name="LStr_CtgAreaFirst" value="请填写" maxlength="12">到<INPUT id="Ctg_AreaEnd" name="LStr_CtgAreaEnd" value="请填写" maxlength="12"></TD>
<TD><INPUT id="Ctg_Num" name="LLng_CtgNum" value="请填写" maxlength="9"></TD>
</TR>
<%
if trim(request("LStr_CtgDate"))<>"" then
%>
<input type="hidden" name="TStr_CtgDate" value="<%=trim(request("LStr_CtgDate"))%>">
<input type="hidden" name="TStr_CtgAreaFirst" value="<%=trim(request("LStr_CtgAreaFirst"))%>">
<input type="hidden" name="TStr_CtgAreaEnd" value="<%=trim(request("LStr_CtgAreaEnd"))%>">
<input type="hidden" name="TStr_CtgNum" value="<%=trim(request("LLng_CtgNum"))%>">
<%
end if
L_CtgDate=trim(request("TStr_CtgDate"))
Array_CtgDate=split(L_CtgDate,",")
L_CtgAreaFirst=trim(request("TStr_CtgAreaFirst"))
Array_CtgAreaFirst=split(L_CtgAreaFirst,",")
L_CtgAreaEnd=trim(request("TStr_CtgAreaEnd"))
Array_CtgAreaEnd=split(L_CtgAreaEnd,",")
L_CtgNum=trim(request("TStr_CtgNum"))
Array_CtgNum=split(L_CtgNum,",")
if trim(request("TStr_CtgDate"))<>"" then
for i=0 to ubound(Array_CtgDate)
%>
<input type="hidden" name="TStr_CtgDate" value="<%=trim(Array_CtgDate(i))%>">
<input type="hidden" name="TStr_CtgAreaFirst" value="<%=trim(Array_CtgAreaFirst(i))%>">
<input type="hidden" name="TStr_CtgAreaEnd" value="<%=trim(Array_CtgAreaEnd(i))%>">
<input type="hidden" name="TStr_CtgNum" value="<%=trim(Array_CtgNum(i))%>">
<%
next
end if
%>
</form>
<form name="Ctg_Save" action="opr_SaleOutStoreDetl_Save.asp" method="post">
<%
if trim(request("LStr_CtgDate"))<>"" then
%>
<TR>
<TD><%=trim(request("LStr_CtgDate"))%><input type="hidden" name="TStr_CtgDate" value="<%=trim(request("LStr_CtgDate"))%>"></TD>
<TD>从<%=trim(request("LStr_CtgAreaFirst"))%><input type="hidden" name="TStr_CtgAreaFirst" value="<%=trim(request("LStr_CtgAreaFirst"))%>">到<%=trim(request("LStr_CtgAreaEnd"))%><input type="hidden" name="TStr_CtgAreaEnd" value="<%=trim(request("LStr_CtgAreaEnd"))%>"></TD>
<TD><%=trim(request("LLng_CtgNum"))%><input type="hidden" name="TStr_CtgNum" value="<%=trim(request("LLng_CtgNum"))%>"></TD>
</TR>
<%
end if
if trim(request("TStr_CtgDate"))<>"" then
for i=0 to ubound(Array_CtgDate)
%>
<TR>
<TD><%=trim(Array_CtgDate(i))%><input type="hidden" name="TStr_CtgDate" value="<%=trim(Array_CtgDate(i))%>"></TD>
<TD>从<%=trim(Array_CtgAreaFirst(i))%><input type="hidden" name="TStr_CtgAreaFirst" value="<%=trim(Array_CtgAreaFirst(i))%>">到<%=trim(Array_CtgAreaEnd(i))%><input type="hidden" name="TStr_CtgAreaEnd" value="<%=trim(Array_CtgAreaEnd(i))%>"></TD>
<TD><%=trim(Array_CtgNum(i))%><input type="hidden" name="TStr_CtgNum" value="<%=trim(Array_CtgNum(i))%>"></TD>
</TR>
<%
next
end if
%>
<input type="hidden" name="TStr_Whs_OutNID" value="<%=trim(request("TStr_Whs_OutNID"))%>">
<input type="hidden" name="TStr_WhsID" value="<%=trim(request("TStr_WhsID"))%>">
<input type="hidden" name="TStr_CtgID" value="<%=trim(request("TStr_CtgID"))%>">
<input type="hidden" name="TStr_SalID" value="<%=trim(request("TStr_SalID"))%>">
<input type="hidden" name="TLg_Page" value="<%=TLg_Page%>">
<input type="hidden" name="Lstr_agn" value="<%=Lstr_agn%>">
</form>
</TABLE>
</P>
<P>
<form name="backform" action="SaleOutStore.asp?TLg_Page=<%=trim(request("TLg_Page"))%>" method="post"></form>
<form name="resetform" action="SaleOutStoreDetl.asp" method="post">
<input type="hidden" name="TStr_Whs_OutNID" value="<%=trim(request("TStr_Whs_OutNID"))%>">
<input type="hidden" name="TStr_WhsID" value="<%=trim(request("TStr_WhsID"))%>">
<input type="hidden" name="TStr_CtgID" value="<%=trim(request("TStr_CtgID"))%>">
<input type="hidden" name="TStr_SalID" value="<%=trim(request("TStr_SalID"))%>">
<input type="hidden" name="TLg_Page" value="<%=TLg_Page%>">
<input type="hidden" name="Lstr_agn" value="<%=Lstr_agn%>">
</form>
<INPUT name="Submit" style="HEIGHT: 24px; WIDTH: 76px" type="button" value="提交" onclick="vbscript:Ctg_Save.submit()" <%if trim(request("LStr_CtgDate")) = "" then%>disabled<%end if%>>
<INPUT style="HEIGHT: 24px; WIDTH: 81px" type="button" value="返回" onclick="vbscript:backform.submit()">
<INPUT style="HEIGHT: 24px; WIDTH: 81px" type="button" value="重置" onclick="vbscript:resetform.submit()">
</P>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -