📄 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 + -