📄 k_pdsy.asp
字号:
function slcheck()
{
if (document.form1.spbm.value=="")
{
alert("请先选择商品！");
document.form1.spbm.focus();
return(false);
}
if (document.form1.rkck.value=="")
{
alert("请先选择仓库！");
document.form1.rkck.focus();
return(false);
}
var mspxh=document.form1.spbm.value;
var mckxh=document.form1.rkck.options[document.form1.rkck.selectedIndex].value;
var mstring=mspxh+mckxh;
var abc;
abc=0;
//alert(mspxh);
//alert(mstring.length);
//alert(lucy[2][0].length);
for (u=0;u<tjcount;u++)
{
if (mstring==lucy[u][0])
{
//alert("000有该商品！");
abc=abc+1;
}
}
if (abc==0)
{
alert("仓库中没有该商品！");
document.form1.sl.value="";
return(false);
}
if (document.form1.sl.value=="")
{
document.form1.syje.value=0;
}
else
{
document.form1.syje.value=eval(document.form1.sl.value)*eval(document.form1.bhsdj.value);
}
}
</script>
<script language="vbscript">
'在该表单提交前，检验字段是否为空，否则不许提交
Sub datacheck()
if form1.year1.value="" or form1.date1.value="" or form1.date1.value="" then
MsgBox "请完整输入进货日期！", 64, "提示："
focusto(1)
Exit Sub
end if
if form1.spbm.value="" then
MsgBox "请选择商品！", 64, "提示："
focusto(4)
Exit Sub
end if
if form1.rkck.value="" then
MsgBox "请选择入库仓库！", 64, "提示："
focusto(15)
Exit Sub
end if
if form1.sl.value="" then
MsgBox "请输入损溢数量！", 64, "提示："
focusto(17)
Exit Sub
end if
form1.submit
End Sub
Sub focusto(x)
'将游标定位于表单(Form)的某个栏位
document.form1.elements(x).focus()
End Sub
sub cpmc()
'选择产品时，新开一个窗口
sydh=document.form1.sydh.value
year1=document.form1.year1.value
month1=document.form1.month1.value
date1=document.form1.date1.value
aa="K_pdsycp.asp?sydh="+sydh+"&year1="+year1+"&month1="+month1+"&date1="+date1
window.open aa,"产品信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"
end sub
'以下判断只有为数字型才能输入
sub sl_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.sl.value,"Num",window.event.keyCode)
end sub
'sub sl_onkeyup
'if form1.spbm.value="" then
' alert("请先选择商品！")
' document.form1.sl.value=""
' exit sub
'end if
'if form1.rkck.value="" then
' alert("请先选择仓库！")
' document.form1.sl.value=""
' exit sub
'end if
'if form1.sl.value="" then
' sl=0
'else
' sl=eval(form1.sl.value)
'end if
'if form1.bhsdj.value="" then
' bhsdj=0
'else
' bhsdj=eval(form1.bhsdj.value)
'end if
'document.form1.syje.value=sl*bhsdj
'end sub
</script>
<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">
</font><font size="2"> 盘点损溢录入
</font>
</b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<form method="POST" action="K_pdsyInfo.asp" name="form1" >
<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="sydh" size="14" <%if sydh<>"" then%> value="<%=sydh%>" <%end if %> value="<%=getdj("K_Tblstopd","sydh","P")%>">
<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="4" <%if year1<>"" then%> value="<%=year(date())%>" <%end if %> value="<%=year(date())%>" tabindex="4" maxlength="4"><font size="2">年<select size="1" name="month1" tabindex="5" style="width: 44; height: 23">
<%if month1<>"" then%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -