?? inward.asp
字號:
<%@ LANGUAGE="VBScript"%>
<%
response.buffer=true
%>
<%const title="入庫操作"%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<SCRIPT src="../js/birthday.js"></SCRIPT>
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title><%=title%></title>
<link rel=stylesheet type=text/css href=../data/forum.css>
<script language=vbscript>
<!--
Sub datacheck()
if trim(input1.smalllocation.value)=empty then
msgbox "「貨物信息」必須選擇！", 64, "請選擇貨物信息!"
document.input1.smalllocation.focus()
Exit Sub
End if
if trim(input1.inwa_date.value)=empty then
msgbox "「進倉日期」不得為空白！", 64, "請輸入進倉日期!"
document.input1.inwa_date.focus()
Exit Sub
End if
if isdate(trim(input1.inwa_date.value)) = false then
msgbox "「進倉日期」格式不對！", 64, "請輸入進倉的日期!"
document.input1.inwa_date.focus()
Exit Sub
End if
if trim(input1.inwa_sia.value)=empty then
msgbox "「進倉編號SIA」不得為空白！", 64, "請輸入進倉編號SIA!"
document.input1.inwa_sia.focus()
Exit Sub
End if
if input1.inwa_no.value=empty then
msgbox "「數量」不得為空白！", 64, "請輸入數量!"
document.input1.inwa_no.focus()
Exit Sub
End if
if not isNumeric(trim(input1.inwa_no.value)) then
msgbox "請檢查數量的正確性！（要為數字）！", 64, "請輸入數量!"
document.input1.inwa_no.focus()
Exit Sub
end if
if trim(input1.inwa_no.value) <= 0 then
msgbox "請檢查數量的正確性！（要為大于0）！", 64, "請輸入數量!"
document.input1.inwa_no.focus()
Exit Sub
End if
input1.Submit
End Sub
Sub gotoUrl()
window.location.href = "inward_add.asp?companyid=<%=request("companyid")%>&inwa_sia="+input1.inwa_sia.value
End Sub
-->
</script>
<%
newcompanyid = request("companyid")
if newcompanyid = "" then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""請先選擇公司再做此步操作！"");"
Response.write "history.go(-1);"
Response.Write "</script>"
Response.End
elseif not isnumeric(newcompanyid) then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""companyid必須為整數！"");history.go(-1);"
Response.Write "</script>"
Response.End
else
newcompanyid = cint(newcompanyid)
end if
dim direct
direct = request("direct")
if direct <> "" then
take_address = trim(request("take_address"))
if take_address = "" then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""請務必選擇提貨地點!"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
else
take_address = replace(take_address,"'","’")
end if
line_no = request("line_no")
line_no = replace(line_no,"'","’")
take_no = request("take_no")
take_no = replace(take_no,"'","’")
Response.Cookies("take_address") = take_address
Response.Cookies("line_no") = line_no
Response.Cookies("take_no") = take_no
end if
sql = "select prod_id,prod_no,prod_type,prod_danwei,prod_danjia,prod_flag,prod_pinming,prod_tiji,prod_weight from product where prod_companyid = "&newcompanyid&" and prod_disabled = 0 and prod_dir_flag = 0 order by prod_no asc"
set rs10 = conn.execute(sql)
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs10.eof
%>
subcat[<%=count%>] = new Array("<%response.write trim(rs10("prod_no"))&" " & rs10("prod_pinming") & " " & rs10("prod_danwei") & " " & rs10("prod_weight") & " " & rs10("prod_tiji") & " "&rs10("prod_danjia")%>","<%= trim(rs10("prod_flag"))%>","<%= trim(rs10("prod_id"))%>");
<%
count = count + 1
rs10.movenext
loop
rs10.close
set rs10=nothing
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.input1.smalllocation.length = 0;
var locationid=locationid;
var i;
document.input1.smalllocation.options[0] = new Option('========貨物信息========','');
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.input1.smalllocation.options[document.input1.smalllocation.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
</head>
<body topmargin="0" onload="javascript:document.input1.dc_id.focus()">
<%
Showtitle(title)
arra = split(session("username"),";")
UserCompanyid = arra(0)
flag = arra(1)
User = arra(2)
userno = arra(4)
if flag = 4 then
FlagUser = session("flag")
'該錄入人員的客服的DC和PROD
dim dcservice,prodservice
dcservice = ""
prodservice = ""
dim dcFlag,prodFlag
dcFlag = false
prodFlag = false
for ver=0 to userno
if clng(newcompanyid) = clng(FlagUser(ver,9)) then
if instr(dcservice,FlagUser(ver,0)) < 1 then
if dcFlag = true then
dcservice = dcservice &","& FlagUser(ver,0)
else
dcservice = dcservice & FlagUser(ver,0)
dcFlag = true
end if
end if
if instr(prodservice,FlagUser(ver,1)) < 1 then
if prodFlag = true then
prodservice = prodservice &","& FlagUser(ver,1)
else
prodservice = prodservice & FlagUser(ver,1)
prodFlag = true
end if
end if
end if
next
elseif flag > 4 then
call closedatabase
Response.End
end if
dim inwa_dc_cookies,inwa_inwa_rec_date_cookies,inwa_rec_time_cookies,inwa_outdate_cookies
dim inwa_rec_man_cookies,inwa_rec_idcard_cookies,inwa_beizu_cookies
dim inwa_date_cookies,inwa_sia_cookies,inwa_type_cookies,inwa_sendno_cookies
dim inwa_yuji_time_cookies,inwa_contact_cookies,inwa_no_cookies,inwa_sendto_cookies,inwa_getno_cookies
inwa_dc_cookies = trim(Request.Cookies("inwa_dc_id"))
inwa_date_cookies = trim(Request.Cookies("inwa_date"))
inwa_outdate_cookies = trim(Request.Cookies("inwa_outdate"))
inwa_sia_cookies = trim(Request.Cookies("inwa_sia"))
inwa_type_cookies = trim(Request.Cookies("inwa_type"))
inwa_yuji_time_cookies = trim(Request.Cookies("inwa_yuji_time"))
inwa_contact_cookies = trim(Request.Cookies("inwa_contact"))
inwa_rec_date_cookies = trim(Request.Cookies("inwa_rec_date"))
inwa_rec_time_cookies = trim(Request.Cookies("inwa_rec_time"))
inwa_rec_man_cookies = trim(Request.Cookies("inwa_rec_man"))
inwa_rec_idcard_cookies = trim(Request.Cookies("inwa_rec_idcard"))
inwa_beizu_cookies = trim(Request.Cookies("inwa_beizu"))
inwa_no_cookies = trim(Request.Cookies("inwa_no"))
inwa_sendno_cookies = trim(Request.Cookies("inwa_sendno"))
inwa_sendto_cookies = trim(Request.Cookies("inwa_sendto"))
inwa_getno_cookies = trim(Request.Cookies("inwa_getno"))
%>
<form action="save_inward.asp" method="POST" name="input1">
<p align=center><font color=red>請在以下的表格中填入相關的數據，帶**為必填項目</font>
<p>
<table align=center border=0>
<tr>
<td nowrap align=right><font color=blue>進倉編號SIA：</td>
<td>
<input class=smallInput type=textbox onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" name="inwa_sia" value='' maxlength='30'>**
<%if direct = "" then %>
<input class=buttonface tabindex=20 type=button onclick="gotoUrl()" name=add value="補 單">
<%end if %>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>倉庫信息（庫位）：</font></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&")"
elseif flag < 4 then
sql = "select dc_id,dc_code,dc_name from dc where dc_disabled = 0 and dc_companyid = "&newcompanyid&""
end if
sql = sql + " order by dc_code asc"
'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>"
%>**
</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.input1.biglocation.options[document.input1.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="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 onfocus="calendar()" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" type=textbox name="inwa_date" value='<%
Response.Write date()
%>'>**</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>送 貨 地 區：</td>
<td><input class=smallInput type=textbox onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" name="inwa_sendto" value=''></td>
</tr>
<tr>
<td nowrap align=right><font color=blue>送貨車牌（拆箱箱號）：</td>
<td><input class=smallInput type=textbox onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" name="inwa_sendno" value=''></td>
</tr>
<tr>
<td nowrap align=right><font color=blue>貨物情況品質：</td>
<td><input class=smallInput type=textbox onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" name="inwa_stat" value=''>
</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>數 量：</td>
<td><input class=smallInput type=textbox onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" name="inwa_no" value=''>**</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>裝箱箱號（提貨車號）：</td>
<td><input class=smallInput type=textbox onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" name="inwa_getno" value=''></td>
</tr>
<tr>
<td nowrap align=right><font color=blue>出 庫 日 期：</td>
<td><input class=smallInput onfocus="calendar()" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" type=textbox name="inwa_outdate" value=''></td>
</tr>
<tr>
<td nowrap align=right><font color=blue>該筆貨物管理員：</td>
<td><input class=smallInput type=textbox onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" name="inwa_contact" value=''>**</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>備注：</font></td>
<td><textarea class=smallarea name=inwa_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=companyid value="<%=newcompanyid%>">
<input class=buttonface type=button onclick="datacheck()" name=ok value=" 確 定 ">
<input class=buttonface type=button onclick="javascript:history.go(-1)" name=ok value=" 后 退 ">
</tr>
</table>
</form>
<%
call closedatabase
%>
<!--#include file=../data/copyright.asp-->
<script LANGUAGE="javascript">
changelocation(document.input1.biglocation.options[document.input1.biglocation.selectedIndex].value);
</script>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -