📄 outward.asp
字号:
document.output1.guest_contact.style.background = "#FFFFFF";
document.output1.guest_tel.value = "";
document.output1.guest_tel.readOnly = false;
document.output1.guest_tel.style.background = "#FFFFFF";
document.output1.guest_code.focus();
}
function init()
{
document.onkeydown=keydown;
}
function keydown(locationid)
{
key = event.keyCode;
var locationid = locationid;
if (key == 13) //enter
if (locationid == 1)
{
if (document.output1.city.value != "")
GetGuest();
search(document.output1.guest_code.value,1);
}
else if (locationid == 2)
{
if (document.output1.city.value != "")
GetGuest();
search(document.output1.guest_pycode.value,2);
}
}
function changecity(locationid)
{
document.output1.outw_where.length = 0;
var locationid=locationid;
var i;
if (locationid == "")
{GetGuest();
set();
}
document.output1.outw_where.options[0] = new Option('========领物人名称=======','');
for (i=0;i < onecount2; i++)
{
if (subcat2[i][4] == locationid)
{
document.output1.outw_where.options[document.output1.outw_where.length] = new Option(subcat2[i][1], subcat2[i][2]);
}
}
set();
}
function changelocation(locationid)
{
GetPinming();
document.output1.smalllocation.length = 0;
var locationid=locationid;
var i;
document.output1.smalllocation.options[0] = new Option('========物品编号========','');
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.output1.smalllocation.options[document.output1.smalllocation.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<script language=vbscript>
<!--
Sub datacheck()
if trim(output1.smalllocation.value)=empty then
msgbox "「物品编号」必须选择！", 64, "请选择物品编号!"
document.output1.smalllocation.focus()
Exit Sub
End if
if trim(output1.consign_date.value)=empty then
msgbox "「出库日期」不得为空白！", 64, "请输入日期!"
document.output1.consign_date.focus()
Exit Sub
End if
if isdate(trim(output1.consign_date.value)) = false then
msgbox "「出库日期」格式不对！", 64, "请输入正确的日期!"
document.output1.consign_date.focus()
Exit Sub
End if
if trim(output1.consign_time.value)=empty then
msgbox "「出库时间」不得为空白！", 64, "请输入正确的时间!"
document.output1.consign_time.focus()
Exit Sub
End if
if isdate(trim(output1.consign_time.value)) = false then
msgbox "「出库时间」格式不对！", 64, "请输入正确的时间!"
document.output1.consign_time.focus()
Exit Sub
End if
if trim(output1.outw_sra.value)=empty then
msgbox "「SRA」不得为空白！", 64, "请输入SRA!"
document.output1.outw_sra.focus()
Exit Sub
End if
if output1.outw_no.value=empty then
msgbox "「数量」不得为空白！", 64, "请输入数量!"
document.output1.outw_no.focus()
Exit Sub
End if
if not isNumeric(trim(output1.outw_no.value)) then
msgbox "请检查数量的正确性！（要为数字）！", 64, "请输入数量!"
document.output1.outw_no.focus()
Exit Sub
end if
if trim(output1.outw_no.value) <= 0 then
msgbox "请检查数量的正确性！（要为大于0）！", 64, "请输入数量!"
document.output1.outw_no.focus()
Exit Sub
End if
if trim(output1.outw_where.value)=0 then
msgbox "「目的地」必须选择！", 64, "请选择目的地!"
document.output1.outw_where.focus()
Exit Sub
End if
output1.Submit
End Sub
Sub gotoUrl()
window.location.href = "outward_add.asp?companyid=<%=request("companyid")%>&outw_sra="+output1.outw_sra.value
End Sub
-->
</script>
</head><BODY >
<body topmargin="0" onload="javascript:document.output1.dc_id.focus();">
<%
Showtitle(title)
%>
<form action="save_outward.asp" method="POST" name="output1">
<p align=center><font color=red>请在以下的表格中填入相关的数据</font>
<p>
<table align=center border=0>
<tr>
<td nowrap align=right><font color=blue>仓库 编 号：</td>
<td>
<%
response.write " <select class='smallinput' name='dc_id' size='1' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
if flag = 4 then
sql="select dc_id,dc_code,dc_name from dc where dc_disabled = 0 and dc_companyid = "&newcompanyid&" and dc_id in ("&dcservice&") order by dc_code asc"
elseif flag < 4 then
sql = "select dc_id,dc_code,dc_name from dc where dc_disabled = 0 and dc_companyid = "&newcompanyid&" order by dc_code asc"
end if
'Response.Write sql
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
do while not rs.eof
'if prod_id = rs("prod_id") then
' response.write "<option value='"+CStr(rs("prod_id"))+"' selected>"+rs("prod_no")+" "+rs("prod_type")+" "+rs("prod_danwei")+"</option>"+chr(13)+chr(10)
'else
response.write "<option value='"+CStr(rs("dc_id"))+"'>"+rs("dc_code")+" "+rs("dc_name")+" </option>"+chr(13)+chr(10)
'end if
rs.movenext
loop
else
response.write "<option value='0'>没有DC编号</option>"+chr(13)+chr(10)
end if
rs.close
set rs = nothing
response.write " </select>"
'response.write " ( 共 <font color=red>"&ntotal&"</font> 个 ) "
%>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>物品 类 别：</td>
<td>
<select name="biglocation" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" onChange="javascript:changelocation(document.output1.biglocation.options[document.output1.biglocation.selectedIndex].value)">
<%
if flag = 4 then
sql = "select id,type_name from prod_type where type_companyid = "&newcompanyid&" and id in ("&prodservice&") order by id asc"
elseif flag < 4 then
sql = "select id,type_name from prod_type where type_companyid = "&newcompanyid&" order by id asc"
else
call closedatabase
Response.Write "操作无效!"
Response.End
end if
'Response.Write sql
'Response.End
set rs10 = conn.Execute (sql)
do while not rs10.eof
%>
<option value="<%=trim(rs10("id"))%>"><%=trim(rs10("type_name"))%></option>
<%
rs10.movenext
loop
rs10.close
set rs10 = nothing
%>
</select>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>物品 品 名：</td>
<td>
<select name="pinming" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" onChange="javascript:ChangePinming(document.output1.pinming.options[document.output1.pinming.selectedIndex].value)">
<option selected value="">========物品品名========</option>
</select>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>物品 编 号：</td>
<td>
<select name="smalllocation" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">
<option selected value="">========物品编号========</option>
</select>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>出库 日 期：</td>
<td><input class=smallInput type=textbox name="consign_date" onfocus="calendar()" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" value='<%
Response.write date()
%>'>**</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>出库 时 间：</td>
<td><input class=smallInput type=textbox name="consign_time" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" value='<%
Response.write formatdatetime(time(),4)
%>'>**</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>出库单号SRA：</td>
<td>
<input class=smallInput type=textbox name="outw_sra" value='' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" maxlength=30>**
<input class=buttonface type=button tabindex=20 onclick="gotoUrl()" name=add value="补 单">
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>出库数量：</td>
<td><input class=smallInput type=textbox name="outw_no" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" value=''>**</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>领物人 城 市：</td>
<td>
<select name="city" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" onChange="javascript:changecity(document.output1.city.options[document.output1.city.selectedIndex].value)">
<option selected value="">========请选择城市========</option>
<%
sql = "select distinct guest_city from guest where guest_disabled = 0 and guest_flag = 1 and guest_companyid = "&newcompanyid&" order by guest_city asc "
set rs10 = conn.Execute (sql)
do while not rs10.eof
%>
<option value="<%=trim(rs10("guest_city"))%>"><%=trim(rs10("guest_city"))%></option>
<%
rs10.movenext
loop
rs10.close
set rs10 = nothing
%>
</select>
</tr>
<tr>
<td nowrap align=right><font color=blue>目 的 地：</td>
<td>
<select name="outw_where" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" onchange="javascript:changelocation2(document.output1.outw_where.options[document.output1.outw_where.selectedIndex].value)">
<option selected value=0>=======请选择领货人=======</option>
</select>
<input class=buttonface tabindex=23 type=button value=新增领货人 onclick="javascript:window.open('guestadd.asp?action=edit&tt=<%=now()%>&companyid=<%=newcompanyid%>&id='+document.output1.outw_where.options[document.output1.outw_where.selectedIndex].value,'hamier6','height=500,width=700,scrollbars')" id=button1 name=button1>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>领货人 编 号：</td>
<td>
<input class=smallInput size=40 tabindex= 25 type=textbox name="guest_code" value='' maxlength='9' onkeydown="javascript:keydown(1)">
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>拼音 编 码：</td>
<td>
<input class=smallInput size=40 tabindex=26 type=textbox name="guest_pycode" value='' maxlength='20' onkeydown="javascript:keydown(2)">
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>所属 城 市：</td>
<td>
<input class=smallInput size=40 tabindex=27 type=textbox name="guest_city" value='' maxlength='10' readonly>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>领货人 地 址：</td>
<td>
<input class=smallInput size=40 tabindex=28 type=textbox name="guest_address" value='' maxlength='25' readonly>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>联系人：</td>
<td>
<input class=smallInput size=40 tabindex=29 type=textbox name="guest_contact" value='' maxlength='10' readonly>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>联系电话：</td>
<td>
<input class=smallInput size=40 tabindex=30 type=textbox name="guest_tel" value='' maxlength='80' readonly>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>出库摘要：</font></td>
<td><textarea class=smallarea name=outw_beizu rows=3 cols=40 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></textarea></td>
</tr><div style="display:none;">
</div>
<tr>
<td></td>
<td><br>
<input type=hidden name=direct value="<%=direct%>">
<input type=hidden name=companyid value="<%=newcompanyid%>">
<input class=buttonface type=button onclick="datacheck()" name=ok value=" 确 定 ">
<input class=buttonface type=hidden name=reset value=复原>
</td>
</tr>
</table>
</form>
<%call closedatabase%>
<!--#include file=../data/copyright.asp-->
<script LANGUAGE="javascript">
changelocation(document.output1.biglocation.options[document.output1.biglocation.selectedIndex].value);
GetPinming();
GetGuest();
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -