📄 outward_2.asp
字号:
<tr>
<td nowrap align=right><font color=blue>填写 日 期：</td>
<td><%
Response.Write outw_date_cookies
%></td>
</tr>
<tr>
<td nowrap align=right><font color=blue>委托 时 间：</td>
<td><%
Response.Write consign_time_cookies
%></td>
</tr>
<tr>
<td nowrap align=right><font color=blue>D C 编 号：</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_color")+"</option>"+chr(13)+chr(10)
'else
if cstr(rs("dc_id")) = cstr(outw_dc_id_cookies) then
response.write "<option value='"+CStr(rs("dc_id"))+"'>"+rs("dc_code")+" "+rs("dc_name")+" </option>"+chr(13)+chr(10)
end if
'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
if cstr(prod_flag) = cstr(rs10("id")) then
Response.Write "<option value='"&trim(rs10("id"))&"' selected >"&trim(rs10("type_name"))&"</option>"+chr(13)+chr(10)
else
Response.Write "<option value='"&trim(rs10("id"))&"'>"&trim(rs10("type_name"))&"</option>"+chr(13)+chr(10)
end if
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="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>
<%
response.write " <select class='smallinput' name='outw_where' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" size='1' onchange=""javascript:sky();changelocation2(document.output1.outw_where.options[document.output1.outw_where.selectedIndex].value)"">"
response.write "<option value='0'>--请选择客户--</option>"+chr(13)+chr(10)
sql="select * from guest where guest_disabled = 0 and guest_companyid = "&newcompanyid&" order by guest_user "
'Response.Write sql
set rs_guest = server.CreateObject("adodb.recordset")
rs_guest.open sql,conn,1,1
'set rs_guest = conn.execute(sql)
'rs.open sql,conn,1,1
'ntotal=rs_guest.recordcount
if not rs_guest.eof then
rs_guest.movefirst
do while not rs_guest.eof
if ((outw_guest_id_cookies <> "") and (cstr(outw_guest_id_cookies) = cstr(rs_guest("guest_id")))) then
response.write "<option value='"&rs_guest("guest_id")&"' selected>"&rs_guest("guest_user")&"</option>"+chr(13)+chr(10)
else
response.write "<option value='"&rs_guest("guest_id")&"'>"&rs_guest("guest_user")&"</option>"+chr(13)+chr(10)
end if
rs_guest.movenext
loop
else
response.write "<option value='0'>没有客户</option>"+chr(13)+chr(10)
end if
rs_guest.close
set rs_guest = nothing
response.write " </select>"
%>
<input class=buttonface tabindex=25 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=600,scrollbars')" id=button1 name=button1>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>客户 编 号：</td>
<td>
<input class=smallInput tabindex=26 size=40 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 tabindex=27 size=40 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 tabindex=28 size=40 type=textbox name="guest_city" value='' maxlength='10' readonly>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>客户 地 址：</td>
<td>
<input class=smallInput tabindex=29 size=40 type=textbox name="guest_address" value='' maxlength='25' readonly>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>联系人：</td>
<td>
<input class=smallInput tabindex=30 size=40 type=textbox name="guest_contact" value='' maxlength='10' readonly>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>联系电话：</td>
<td>
<input class=smallInput tabindex=31 size=40 type=textbox name="guest_tel" value='' maxlength='80' readonly>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>出库方式：</td>
<td>
<select class='smallinput' name='outw_type' size='1' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" >
<option value=''>===请选择====</option>
<option value='空运门到门' <% if cstr(info_type_cookies) = "空运门到门" then Response.Write "selected"%> >空运门到门</option>
<option value='空运自提' <% if cstr(info_type_cookies) = "空运自提" then Response.Write "selected"%>>空运自提</option>
<option value='汽运门到门' <% if cstr(info_type_cookies) = "汽运门到门" then Response.Write "selected"%>>汽运门到门</option>
<option value='汽运自提' <% if cstr(info_type_cookies) = "汽运自提" then Response.Write "selected"%>>汽运自提</option>
<option value='仓库自提' <% if cstr(info_type_cookies) = "仓库自提" then Response.Write "selected"%>>仓库自提</option>
<option value='EMS' <% if cstr(info_type_cookies) = "EMS" then Response.Write "selected"%>>EMS</option>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>收货人订单号：</td>
<td><input class=smallInput type=textbox name="takeman_id" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" value='<%
Response.Write info_takeman_id_cookies
%>' maxlength=30></td>
</tr>
<tr>
<td nowrap align=right><font color=blue>时限 要 求：</td>
<td><input class=smallInput type=textbox name="yuji_time" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" value='<%
Response.Write info_yuji_time_cookies
%>'>**（如：2001-11-23 18:30）</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>出库摘要：</td>
<td><textarea class=smallarea name=outw_beizu rows=3 cols=40 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" ></textarea></td>
</tr>
<tr>
<td>
<td><br>
<input type=hidden name=direct value="<%=direct%>">
<input type=hidden name=database value="<%=database%>">
<input type=hidden name=id value="<%=id%>">
<input type=hidden name=companyid value="<%=newcompanyid%>">
<input class=buttonface type=button onclick="datacheck()" name=ok value=" 确 定 ">
</tr>
</table>
</form>
<script language="JavaScript">
<!--
function sky()
{var tyu;
tyu = output1.outw_where.value;
if (<%=outw_guest_id_cookies%> == tyu )
{
document.output1.outw_type.disabled =true;
document.output1.takeman_id.disabled = true;
document.output1.yuji_time.disabled = true;
document.output1.outw_beizu.disabled = true;
}
else
{
document.output1.outw_type.disabled =false;
document.output1.takeman_id.disabled = false;
document.output1.yuji_time.disabled = false;
document.output1.outw_beizu.disabled = false;
}
}
-->
</script>
<!--#include file=../data/copyright.asp-->
<script LANGUAGE="javascript">
changelocation(document.output1.biglocation.options[document.output1.biglocation.selectedIndex].value);
document.output1.outw_type.disabled =true;
document.output1.takeman_id.disabled = true;
document.output1.yuji_time.disabled = true;
document.output1.outw_beizu.disabled = true;
GetPinming();
changelocation2(document.output1.outw_where.options[document.output1.outw_where.selectedIndex].value);
</script>
</body>
</html>
<%call closedatabase%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -