📄 store_deliver_input.asp
字号:
<%@ Language=VBScript %>
<%
'******************************************************
'功能：发货单录入
'入口参数：whs_outid （12）出库单编号
'
'出口参数：
'作者：易江波 日期：2001年6月10日
'******************************************************
option Explicit
Response.Expires=0
' Response.Write Request("OutID") :Response.End
dim DBConn
Set DBConn=Server.CreateObject("ADODB.Connection")
'DBconn.ConnectionTimeout=Application("Connection2_ConnectionTimeout")
'DBconn.cursorlocation=Application("Connection2_Cursorlocation")
DBconn.open Application("Connection2_ConnectionString")
'DBConn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=CMS;Data Source=fileserver","sa",""
%>
<HTML>
<HEAD>
<TITLE>发货输入页面</TITLE>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function willoutqty_onkeypress() {
var passflag
passflag = true
if (window.event.keyCode <48 || window.event.keyCode >57 )
{
passflag= false
}
if (window.event.keyCode ==46 )
{
passflag= true
}
return passflag
}
function rw_onkeypress() {
var passflag
passflag = true
if (window.event.keyCode <48 || window.event.keyCode >57 )
{
passflag= false
}
if (window.event.keyCode ==46 )
{
passflag= true
}
return passflag
}
function rpay_onkeypress() {
var passflag
passflag = true
if (window.event.keyCode <48 || window.event.keyCode >57 )
{
passflag= false
}
if (window.event.keyCode ==46 )
{
passflag= true
}
return passflag
}
//-->
</SCRIPT>
</HEAD>
<BODY>
<P><font size="+1">发货单录入</font></P>
<hr>
<FORM action="Store_Deliver_Input_Oper.asp" method=POST id=form1 name=form1>
<table width="100%" border="0" height="350">
<tr>
<td width="14%" align="right">出库单编号：</td>
<td width="86%" align="left">
<input type=text id=OutID name="OutID" readonly value="<%=Request("OutID")%>">
</tr>
<tr>
<td width="14%" align="right">出库数量：</td>
<td width="86%" align="left">
<input type=text id=Outqty name="Outqty" readonly value="<%=Request("Outqty")%>">
</td>
</tr>
<tr>
<td width="14%" align="right">已发货数量：</td>
<td width="86%" align="left">
<input type=text id=dlv name="dlv" readonly value="<%=Request("dlv")%>">
</td>
</tr>
<tr>
<td width="14%" align="right">发货数量：</td>
<td width="86%" align="left">
<input type=text id=willoutqty MAXLENGTH="9" name="willoutqty" LANGUAGE=javascript onkeypress="return willoutqty_onkeypress()"> <font color=red>***</font>
</td>
</tr>
<tr>
<td width="14%" align="right">货运单号：</td>
<td width="86%" align="left">
<input type=text id=rid name="rid" MAXLENGTH="20"> <font color=red>***</font>
</td>
</tr>
<tr>
<td width="14%" align="right">货运方式：</td>
<td width="86%" align="left">
<select id="sel1" name="sel1">
<OPTION value="EMS">EMS</OPTION>
<OPTION value="航空快件">航空快件</OPTION>
<OPTION value="邮政包裹">邮政包裹</OPTION>
<OPTION value="铁路包裹">铁路包裹</OPTION>
</select> <font color=red>***</font>
</td>
</tr>
<tr>
<td width="14%" align="right">货运公司：</td>
<td width="86%" align="left">
<input type=text id=rcompany name="rcompany" size="60" MAXLENGTH="60"> <font color=red>***</font>
</td>
</tr>
<tr>
<td width="14%" align="right">货运重量：</td>
<td width="86%" align="left">
<input type=text id=rw name="rw" MAXLENGTH="9" LANGUAGE=javascript onkeypress="return rw_onkeypress()">
kg <font color=red>***</font> </td>
</tr>
<tr>
<td width="14%" align="right">货运费用：</td>
<td width="86%" align="left">
<input type=text id=rpay name="rpay" MAXLENGTH="8" LANGUAGE=javascript onkeypress="return rpay_onkeypress()"> <font color=red>***</font>
</td>
</tr>
<tr>
<td width="14%" align="center">
<input type="button" name="button" value="提交" onclick="checkdata()">
</td>
<td width="86%" align="left">
<input type="button" name="button2" value="重置" onclick="javascript:form1.reset()">
</td>
</tr>
</table>
</FORM>
<p> </p>
</BODY>
</HTML>
<SCRIPT LANGUAGE=vbscript>
<!--
function isnum()
isnum = false
if IsNumeric(form1.Outqty.value) then
isnum = true
end if
if IsNumeric(form1.rw.value) then
isnum = true
end if
if IsNumeric(form1.rpay.value) then
isnum = true
end if
if isnum = false then
msgbox "请检查输入的数据类型",,"CMS系统提示"
end if
end function
//-->
</SCRIPT>
<SCRIPT LANGUAGE=vbscript>
<!--
function checkdata()
dim pass
pass="true"
if form1.willoutqty.value="" then
pass="false"
form1.willoutqty.focus
end if
if form1.rid.value="" then
pass="false"
form1.rid.focus
end if
if form1.rcompany.value="" then
pass="false"
form1.rcompany.focus
end if
if form1.rw.value="" then
pass="false"
form1.rw.focus
end if
if form1.rpay.value="" then
pass="false"
form1.rpay.focus
end if
if pass="false" then
msgbox "不能留空",,"CMS系统信息"
exit function
end if
if not IsNumeric(form1.willoutqty.value) then
pass = "false"
msgbox "请检查输入的数据类型",,"CMS系统提示"
form1.willoutqty.focus
exit function
end if
if not IsNumeric(form1.rw.value) then
pass = "false"
msgbox "请检查输入的数据类型",,"CMS系统提示"
form1.rw.focus
exit function
end if
if not IsNumeric(form1.rpay.value) then
pass = "false"
msgbox "请检查输入的数据类型",,"CMS系统提示"
form1.rpay.focus
exit function
end if
if csng(form1.willoutqty.value) > csng(form1.Outqty.value) - csng(form1.dlv.value) then
pass="false"
msgbox "数量太大了超过应出库量",,"CMS系统信息"
form1.willoutqty.focus
exit function
end if
if pass="true" then
form1.submit
end if
end function
//-->
</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -