?? save_inward.asp
字號:
<%@ LANGUAGE="VBSCRIPT" %>
<%const title="確認數據"%>
<%
response.buffer=true
%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<title><%=title%></title>
<link rel="stylesheet" type="text/css" href="../data/forum.css">
</head>
<body topmargin=0>
<%
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
arra = split(session("username"),";")
UserCompanyid = arra(0)
flag = arra(1)
User = arra(2)
userno = arra(4)
if flag > 4 then
call closedatabase
Response.End
end if
ShowTitle(title)
msg=""
'設置變量direct是否為直接入庫
direct = request("direct")
dc_id = request("dc_id")
dc_id = replace(dc_id,"'","")
prod_id = request("smalllocation")
prod_id = replace(prod_id,"'","")
if prod_id = "" then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""請務必先選擇貨品編號!"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
end if
'入庫數量inwa_no
inwa_no = trim(Request.Form("inwa_no"))
inwa_no1=cint(Request.Form("inwa_no"))
'入庫狀態inwa_stat
inwa_stat=trim(Request.Form("inwa_stat"))
dim inwa_sia
inwa_sia = trim(Request.Form("inwa_sia"))
sql = "select inwa_id from inward where inwa_sia = '"&inwa_sia&"' and inwa_companyid = "&newcompanyid&""
set rs_inward = conn.execute(sql)
if rs_inward.eof then
'得到庫存表相對應的ID,以免由于管理員忘記初始化庫存而引起誤操作.
sql = "select inve_id from inventory where inve_dc_id = "&dc_id&" and inve_prod_id = "&prod_id&" and inve_disabled = 0 and inve_companyid = "&newcompanyid&""
set rs_inve = conn.execute(sql)
if not rs_inve.eof then
id = rs_inve("inve_id")
'填寫出入庫日期
dim inwa_date
inwa_date = trim(Request.Form("inwa_date"))
dim inwa_outdate
inwa_outdate = trim(Request.Form("inwa_outdate"))
'填寫日期inwa_fact_date
dim inwa_fact_date
inwa_fact_date = now()
'入庫摘要inwa_beizu
dim inwa_beizu
inwa_beizu = trim(Request.Form("inwa_beizu"))
'是否已入庫inwa_flag
dim inwa_flag
inwa_flag = 0
'-----------------------------------------------------
'modify time:
'到達時間
dim inwa_yuji_time
inwa_yuji_time = trim(Request.Form("inwa_yuji_time"))
'送貨車牌、裝箱車號
dim inwa_sendno,inwa_getno
inwa_sendno = trim(Request.Form("inwa_sendno"))
if inwa_sendno = "" then inwa_sendno = " "
inwa_getno = trim(Request.Form("inwa_getno"))
if inwa_getno = "" then inwa_getno = " "
'送貨地區
dim inwa_sendto
inwa_sendto = trim(Request.Form("inwa_sendto"))
if inwa_sendto = "" then inwa_sendto = " "
'-----------------------------------------------------
if inwa_no = "" then
msg = msg+"數量不得為空！"
end if
if not IsNumeric(inwa_no) then
msg=msg+"請檢查數量的正確性！（要為數字）<br>"
else
if inwa_no<=0 then
msg=msg+"請檢查數量的正確性！（要為大于0）<br>"
end if
end if
if inwa_sia = "" then
msg=msg+"請輸入SIA！<br>"
end if
if msg<>"" then
rs_inve.close
set rs_inve = nothing
rs_inward.close
set rs_inward = nothing
call closedatabase
showerror(msg)
Response.End
else
if inwa_rec_date = "" then inwa_rec_date = formatdatetime(time(),2)
if inwa_date = "" then inwa_date = date()
if inwa_outdate = "" then inwa_date = " "
if inwa_stat = "" then inwa_stat = " "
if inwa_rec_time = "" then inwa_rec_time = formatdatetime(time(),4)
if inwa_rec_man = "" then inwa_rec_man = " "
if inwa_beizu = "" then inwa_beizu = " "
if inwa_rec_idcard ="" then inwa_rec_idcard = " "
if inwa_rec_no = "" then inwa_rec_no = 0
inwa_sia = replace(inwa_sia,"'","''")
inwa_stat = replace(inwa_stat,"'","''")
inwa_rec_man = replace(inwa_rec_man,"'","''")
inwa_beizu = replace(inwa_beizu,"'","''")
inwa_man = replace(inwa_man,"'","''")
inwa_contact = replace(inwa_contact,"'","''")
inwa_date = replace(inwa_date,"：",":")
inwa_outdate = replace(inwa_outdate,"：",":")
inwa_yuji_time = replace(inwa_yuji_time,"：",":")
inwa_rec_date = replace(inwa_rec_date,"：",":")
inwa_rec_time = replace(inwa_rec_time,"：",":")
inwa_rec_datetime = inwa_rec_date &" " &inwa_rec_time&":00"
'Response.Write inwa_rec_date&"<br>"
'Response.Write inwa_rec_time&"<br>"
'Response.Write inwa_rec_datetime
'Response.End
inve_last_date = now()
'將各相關信息存入COOKIES以便調用
Response.Cookies("inwa_dc_id") = dc_id
Response.Cookies("inwa_prod_id") = request("biglocation")
Response.Cookies("inwa_date") = inwa_date
Response.Cookies("inwa_outdate") = inwa_outdate
Response.Cookies("inwa_sia") = inwa_sia
Response.Cookies("inwa_yuji_time") = inwa_yuji_time
Response.Cookies("inwa_contact") = inwa_contact
Response.Cookies("inwa_rec_date") = inwa_rec_date
Response.Cookies("inwa_rec_time") = inwa_rec_time
Response.Cookies("inwa_rec_man") = inwa_rec_man
Response.Cookies("inwa_rec_idcard") = inwa_rec_idcard
Response.Cookies("inwa_beizu") = inwa_beizu
Response.Cookies("inwa_flag") = inwa_flag
Response.Cookies("inwa_no") = inwa_no
Response.Cookies("inwa_sendno") = inwa_sendno
Response.Cookies("inwa_getno") = inwa_getno
Response.Cookies("inwa_sendto") = inwa_sendto
Response.Cookies("inwa_stat") = inwa_stat
''''''''''''''''''''''''''''''''''''''''
'保存數據模塊,以下所有命令必須全部執行,否則會造成數據的不完整
'建議做成存儲過程
'如為等待,則更新庫存的是入庫數量;如是入庫,則更新庫存的是實收數量
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from inward", conn, 1, 3
rs.AddNew
rs("inwa_date")=inwa_date
rs("inwa_outdate")=inwa_outdate
rs("inwa_fact_date")=inwa_fact_date
rs("inwa_sia")=inwa_sia
rs("inwa_dc_id")=dc_id
rs("inwa_yuji_time")=0
rs("inwa_contact")=inwa_contact
rs("inwa_operate")=User
rs("inwa_ser_beizu")=inwa_beizu
rs("inwa_flag")=inwa_flag
rs("inwa_companyid")=newcompanyid
rs("inwa_disabled")=0
rs("inwa_dir_flag")=0
rs("inattemper")=0
rs("tiaoma_flag")=0
rs("inwa_sendno")=inwa_sendno
rs("inwa_sendto")=inwa_sendto
rs("inwa_getno")=inwa_getno
rs("inwa_stat")=inwa_stat
inwardid = rs("inwa_id")
rs.Update
rs.close
set rs = nothing
sql = "insert into inward_detail(idetail_inwa_id,idetail_prod_id,idetail_no,idetail_rec_no,idetail_date,idetail_man,idetail_io_flag,idetail_flag) values("&inwardid&","&prod_id&","&inwa_no&",0,'"&inwa_fact_date&"','"&User&"',0,0)"
conn.execute(sql)
if inwa_flag = 0 then 'o為等待
sql = "update inventory set inve_zaitu = inve_zaitu + " & inwa_no & ",inve_total = inve_total + " & inwa_no & ",inve_last_date = '" & inve_last_date &"' where inve_dc_id = "&dc_id&" and inve_prod_id = "&prod_id&" and inve_companyid = "&newcompanyid&" and inve_disabled = 0"
conn.execute(sql)
sql = "insert into stat(stat,stat_dc_id ,stat_prod_id,stat_sia) values('" & inwa_stat & "',"&dc_id&","&prod_id&","&inwa_sia&")"
conn.execute(sql)
'lseif inwa_flag = 1 then
' sql = "update inventory set inve_ruku = inve_ruku + " & inwa_rec_no & ",inve_maysent = inve_maysent + " & inwa_rec_no & ",inve_total = inve_total +"&inwa_rec_no&",inve_last_date = '"&inve_last_date & "' where inve_dc_id = "&dc_id&" and inve_prod_id = "&prod_id&" and inve_companyid = "&newcompanyid&" and inve_disabled = 0 "
' conn.execute(sql)
end if
'執行結束
''''''''''''''''''''''''''''''''''''''''
rs_inve.close
set rs_inve = nothing
rs_inward.close
set rs_inward = nothing
Response.Write "<script language=javascript>"
Response.Write "var myTime = new Date(); "
Response.Write "var timeNow = myTime.getTime();"
Response.Write "{if (confirm(""數據已確認，繼續進行該筆單子的入庫操作嗎？""))"
if direct = "" then
Response.Write "window.location ='inward_2.asp?id="&inwardid&"&companyid="&newcompanyid&"&inward_second=yes&tt='+timeNow;"
else
Response.Write "window.location ='inward_2.asp?id="&inwardid&"&companyid="&newcompanyid&"&inward_second=yes&direct=1&tt='+timeNow;"
end if
Response.Write "else "
Response.Write "{"
Response.Write "window.location ='inward.asp?companyid="&newcompanyid&"&tt='+timeNow;"
Response.Write "}"
Response.Write "}"
Response.Write "</script>"
Response.End
end if
else
rs_inve.close
set rs_inve = nothing
rs_inward.close
set rs_inward = nothing
call closedatabase
Response.Write "您沒有權限對這個數據進行操作<br>"
Response.Write "想要更多操作，請與管理員聯系<br>"
Response.Write "可能管理員尚未初始化該產品！<br>"
Response.Write "<a href=javascript:history.go(-1);>后退</a>"
end if
else
inwardid = rs_inward("inwa_id")
rs_inward.close
set rs_inward = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "var myTime = new Date(); "
Response.Write "var timeNow = myTime.getTime();"
Response.Write "{if (confirm(""該SIA號碼已存在，將該筆單子追加到以前的入庫操作記錄中嗎？""))"
Response.Write "window.location ='inward_2.asp?id="&inwardid&"&companyid="&newcompanyid&"&database=yes&inward_second=yes&tt='+timeNow;"
Response.Write "else "
Response.Write "{alert(""注意：系統中已有該SIA號碼,請修改,以便將其錄入到系統中！！！"");"
Response.Write "history.go(-1);}"
Response.Write "}"
Response.Write "</script>"
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -