📄 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"))
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")
'填写日期inwa_date
dim inwa_date
inwa_date = trim(Request.Form("inwa_date"))
'填写日期inwa_fact_date
dim inwa_fact_date
inwa_fact_date = now()
'运输方式inwa_type
dim inwa_type
inwa_type = trim(Request.Form("inwa_type"))
'入库摘要inwa_beizu
dim inwa_beizu
inwa_beizu = trim(Request.Form("inwa_beizu"))
'是否已入库inwa_flag
dim inwa_flag
inwa_flag = 0
'-----------------------------------------------------
'modify time: 2001-12-29
'预计到达时间
dim inwa_yuji_time
inwa_yuji_time = trim(Request.Form("inwa_yuji_time"))
'联系人/电话
dim inwa_contact
inwa_contact = trim(Request.Form("inwa_contact"))
if inwa_contact = "" then inwa_contact = " "
'-----------------------------------------------------
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_type = "" then inwa_type = " "
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_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_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_sia") = inwa_sia
Response.Cookies("inwa_type") = inwa_type
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
''''''''''''''''''''''''''''''''''''''''
'保存数据模块,以下所有命令必须全部执行,否则会造成数据的不完整
'建议做成存储过程
'如为在途,则更新库存的是入库数量;如是入库,则更新库存的是实收数量
if direct = "" then
sql = "insert into inward(inwa_date,inwa_fact_date,inwa_sia,inwa_dc_id,inwa_type,inwa_yuji_time,inwa_contact,inwa_operate,inwa_ser_beizu,inwa_flag,inwa_companyid,inwa_disabled,inwa_dir_flag,inattemper,tiaoma_flag) "
sql = sql + " values('"&inwa_date&"','"&inwa_fact_date&"','"&inwa_sia&"',"&dc_id&",'"&inwa_type&"','"&inwa_yuji_time&"','"&inwa_contact&"','"&User&"','"&inwa_beizu&"',"&inwa_flag&","&newcompanyid&",0,0,0,0) "
else
inwa_take_address = Request.Cookies("take_address")
inwa_line_no = trim(Request.Cookies("line_no"))
if inwa_line_no = "" then inwa_line_no = " "
inwa_take_no = trim(Request.Cookies("take_no"))
if inwa_take_no = "" then inwa_take_no = " "
sql = "insert into inward(inwa_date,inwa_fact_date,inwa_sia,inwa_dc_id,inwa_type,inwa_yuji_time,inwa_contact,inwa_operate,inwa_ser_beizu,inwa_flag,inwa_companyid,inwa_disabled,inwa_dir_flag,inwa_take_address,inwa_line_no,inwa_take_no,inattemper,tiaoma_flag) "
sql = sql + " values('"&inwa_date&"','"&inwa_fact_date&"','"&inwa_sia&"',"&dc_id&",'"&inwa_type&"','"&inwa_yuji_time&"','"&inwa_contact&"','"&User&"','"&inwa_beizu&"',"&inwa_flag&","&newcompanyid&",0,1,'"&inwa_take_address&"','"&inwa_line_no&"','"&inwa_take_no&"',0,0) "
end if
sql = sql + " select @@identity as 'id'"
'Response.Write sql
'Response.End
set rst = conn.execute(sql)
set rst = rst.nextrecordset
inwardid = rst("id")
rst.close
set rst = 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)
'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 "{alert(""注意：接下来将打印入库通知书！！！"");"
Response.Write "window.open('rukutongzhi.asp?id="&inwardid&"&companyid="&newcompanyid&"&tt='+timeNow,'defgh');"
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 + -