📄 k_stockedit.asp
字号:
document.form1.spmc.value=shang2[t][3];
document.form1.ggxh.value=shang1[l][1]+"-"+shang2[t][1];
document.form1.jldw.value=shang2[t][2];
document.form1.bhsdj.value=shang2[t][4];
break;
}
else
{
document.form1.jldw.value="";
document.form1.spmc.value="";
document.form1.bhsdj.value="";
}
}
} //key2事件响完成
//税率响应事件
function dj(spdj,spsl)
{
spdj=document.form1.bhsdj.value;
spsl=document.form1.spsl.options[document.form1.spsl.selectedIndex].value
if (spdj=="")
{
alert("请先输入不含税单价！");
document.form1.spsl.options[0] = new Option('','');
document.form1.spsl.options[0].selected=true;
document.form1.hsdj.value="";
document.form1.bhsdj.focus();
return false();
}
if (spsl=="")
{
document.form1.hsdj.value=eval(spdj);
}
else
{
document.form1.hsdj.value=eval(spdj)*(1+eval(spsl));
}
}
</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.ghdwxh.value="" or form1.ghdwmc.value="" then
MsgBox "请选择供货单位！", 64, "提示："
focusto(4)
Exit Sub
end if
if form1.jhbm.value="" then
MsgBox "请选择进货部门！", 64, "提示："
focusto(7)
Exit Sub
end if
if form1.cgy.value="" then
MsgBox "请选择采购员！", 64, "提示："
focusto(8)
Exit Sub
end if
if form1.spbm.value="" then
MsgBox "请选择商品！", 64, "提示："
focusto(10)
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 ghmc()
'选择供货单位时，新开一个窗口
jhdh=document.form1.jhdh.value
year1=document.form1.year1.value
month1=document.form1.month1.value
date1=document.form1.date1.value
window.open "K_stockghdw1.asp?jhdh="+jhdh+"&year1="+year1+"&month1="+month1+"&date1="+date1,"供应商信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"
end sub
sub cpmc()
'选择产品时，新开一个窗口
jhdh=document.form1.jhdh.value
year1=document.form1.year1.value
month1=document.form1.month1.value
date1=document.form1.date1.value
ghdwxh=document.form1.ghdwxh.value
jhbm=document.form1.jhbm.value
cgy=document.form1.cgy.value
jhfs=document.form1.jhfs.value
if ghdwxh="" then
alert("请先输入供应商！")
exit sub
end if
aa="K_stockcp1.asp?jhdh="+jhdh+"&year1="+year1+"&month1="+month1+"&date1="+date1+"&ghdwxh="+ghdwxh+"&jhbm="+jhbm+"&cgy="+cgy+"&jhfs="+jhfs
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 bhsdj_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.bhsdj.value,"Num",window.event.keyCode)
end sub
sub sl_onkeyup
if form1.spbm.value="" then
alert("请先选择商品！")
document.form1.sl.value=""
exit sub
end if
end sub
sub bhsdj_onkeyup
if form1.spbm.value="" then
alert("请先选择商品！")
document.form1.bhsdj.value=""
exit sub
end if
sl=document.form1.bhsdj.value '不含税单价
spsl=document.form1.spsl.value '税率
if sl="" then
sl=0
else
sl=eval(document.form1.bhsdj.value)
end if
if spsl="" then
spsl=0
else
spsl=eval(document.form1.spsl.value)
end if
document.form1.hsdj.value=sl*(1+spsl)
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" width="34" height="15">
</font>
<font size="2">进货单编辑</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<form method="POST" action="K_stockeditInfo.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="jhdh" size="14" value="<%=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="4" <%if year1<>"" then%> value="<%=year(date())%>" <%end if %> value="<%=year2%>" tabindex="4" maxlength="4"><font size="2">年<select size="1" name="month1" tabindex="5" style="width: 44; height: 23">
<%if month1<>"" then%>
<option value="<%=month1%>"><%=month1%></option>
<%else%>
<option value=""></option>
<%end if %>
<% for i= 1 to 9%>
<option value="0<%=i%>">0<%=i%></option>
<%next%>
<% for n= 10 to 12%>
<option value="<%=n%>"><%=n%></option>
<%next%>
</select>月<select size="1" name="date1" tabindex="6" style="width: 40; height: 23">
<%if date1<>"" then%>
<option value="<%=date1%>"><%=date1%></option>
<%else%>
<option value=""></option>
<%end if %>
<% for m= 1 to 9%>
<option value="0<%=m%>">0<%=m%></option>
<%next%>
<% for t= 10 to 31%>
<option value="<%=t%>"><%=t%></option>
<%next%>
</select>日
</font>
</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="17" <%if ghdwxh<>"" then%> value="<%=ghdwxh%>" <%end if %> value="<%=rsjh("pronum")%>" onkeyup="ghxh()" tabindex="2" >
<input type="button" value="..." name="cmdsearch" onclick="ghmc()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >
<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" <%if ghdwxh<>"" then%> value="<%=ghdwmc%>" <%end if %> value="<%=Gname(rsjh("pronum"))%>" tabindex="2" readonly style="background-color: #edefef">
</td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -