?? direct_outward.asp
字號:
if trim(output1.biglocation.value)=empty then
msgbox "「產品類別」必須選擇！", 64, "請選擇產品類別!"
document.output1.biglocation.focus()
Exit Sub
End if
if trim(output1.prod_type.value)=empty then
msgbox "「產品描述」不得為空白！", 64, "請輸入產品描述!"
document.output1.prod_type.focus()
Exit Sub
End if
if trim(output1.outw_date.value)=empty then
msgbox "「填寫日期」不得為空白！", 64, "請輸入日期!"
document.output1.outw_date.focus()
Exit Sub
End if
if isdate(trim(output1.outw_date.value)) = false then
msgbox "「填寫日期」格式不對！", 64, "請輸入正確的日期!"
document.output1.outw_date.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_type.value)=empty then
msgbox "「出庫方式」必須選擇！", 64, "請選擇出庫方式!"
document.output1.outw_type.focus()
Exit Sub
End if
if trim(output1.outw_where.value)=empty then
msgbox "「目的地」必須選擇！", 64, "請選擇目的地!"
document.output1.outw_where.focus()
Exit Sub
End if
if trim(output1.yuji_time.value)=empty then
msgbox "「時限要求」不得為空白！", 64, "請輸入正確的時間!"
document.output1.yuji_time.focus()
Exit Sub
End if
if isdate(trim(output1.yuji_time.value)) = false then
msgbox "「時限要求」格式不對！", 64, "請輸入正確的時間格式!"
document.output1.yuji_time.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();init()">
<%
Showtitle(title)
%>
<form action="direct_save_outward.asp" method="POST" name="output1">
<p align=center><font color=red>請在以下的表格中填入相關的數據</font>
<p>
<table align=center border=0>
<td nowrap align=right><font color=blue>D C 編 號：</td>
<td>
<%
response.write " <select class='smallinput' name='dc_id' size='1' onkeydown=""if(event.keyCode==13)event.keyCode=9"" onchange=""javascript:change()"">"
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&")"
elseif flag < 4 then
sql = "select dc_id,dc_code,dc_name from dc where dc_disabled = 0 and dc_companyid = "&newcompanyid&""
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
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="if(event.keyCode==13)event.keyCode=9">
<%
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
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>
<input class=smallInput type=textbox name="prod_no" value='' maxlength='15' onkeydown="if(event.keyCode==13)event.keyCode=9">
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>產品 描 述：</td>
<td>
<input class=smallInput type=textbox name="prod_type" value='' maxlength='25' onkeydown="if(event.keyCode==13)event.keyCode=9">**
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>產品 備 注：</td>
<td>
<input class=smallInput type=textbox name="prod_color" value='' maxlength='15' onkeydown="if(event.keyCode==13)event.keyCode=9">
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>填寫 日 期：</td>
<td><input onkeydown="if(event.keyCode==13)event.keyCode=9" class=smallInput type=textbox name="outw_date" value='<%
Response.write date()
%>'>**（如：2001-11-23）</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>委托 日 期：</td>
<td><input onkeydown="if(event.keyCode==13)event.keyCode=9" class=smallInput type=textbox name="consign_date" value='<%
Response.write date()
%>'>**（如：2001-11-23）</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>委托 時 間：</td>
<td><input onkeydown="if(event.keyCode==13)event.keyCode=9" class=smallInput type=textbox name="consign_time" value='<%
Response.write formatdatetime(time(),4)
%>'>**（如：17:00）</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>委托單號SRA：</td>
<td>
<input onkeydown="if(event.keyCode==13)event.keyCode=9" class=smallInput type=textbox name="outw_sra" value='' maxlength=30>**
<%if direct = "" then %>
<input onkeydown="if(event.keyCode==13)event.keyCode=9" class=buttonface type=button onclick="gotoUrl()" name=add value="補 單">
<%end if %>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>出庫數量：</td>
<td><input onkeydown="if(event.keyCode==13)event.keyCode=9" class=smallInput type=textbox name="outw_no" value=''>**</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>出庫方式：</td>
<td>
<select class='smallinput' name='outw_type' size='1' onkeydown="if(event.keyCode==13)event.keyCode=9">
<option value=''>===請選擇====</option>
<option value='空運門到門'>空運門到門</option>
<option value='空運自提'>空運自提</option>
<option value='汽運門到門'>汽運門到門</option>
<option value='汽運自提'>汽運自提</option>
<option value='倉庫自提'>倉庫自提</option>
<option value='EMS'>EMS</option>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>客戶 城 市：</td>
<td>
<select name="city" onkeydown="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="if(event.keyCode==13)event.keyCode=9" onchange="javascript:changelocation2(document.output1.outw_where.options[document.output1.outw_where.selectedIndex].value)">
<option selected value="">========請選擇客戶========</option>
</select>
<input class=buttonface tabindex=30 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=31 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=32 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=33 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=34 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=35 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=36 size=40 type=textbox name="guest_tel" value='' maxlength='80' readonly>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>收貨人訂單號：</td>
<td><input onkeydown="if(event.keyCode==13)event.keyCode=9" class=smallInput type=textbox name="takeman_id" value='' maxlength=30></td>
</tr>
<tr>
<td nowrap align=right><font color=blue>時限 要 求：</td>
<td><input onkeydown="if(event.keyCode==13)event.keyCode=9" class=smallInput type=textbox name="yuji_time" value='<%
Response.write date()&" "&formatdatetime(time(),4)
%>'>**（如：2001-11-23 18:30）</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>出庫摘要：</td>
<td><textarea onkeydown="if(event.keyCode==13)event.keyCode=9" class=smallarea name=outw_beizu rows=3 cols=40></textarea></td>
</tr>
<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>
<script LANGUAGE="javascript">
GetGuest();
</script>
<!--#include file=../data/copyright.asp-->
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -