📄 zaitu_convert.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<script src="../js/birthday.js"></script>
<%const title="入库签收"%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<%
if isempty(session("username")) then
call closedatabase
Response.Write "请重新登入!"
Response.End
end if
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)
inwa_id = request("id")
inwa_id = replace(inwa_id,"'","")
%>
<html>
<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">
<script language=vbscript>
<!--
Sub datacheck()
if isdate(trim(input1.inwa_rec_date.value)) = false then
msgbox "「签收日期」格式不对！", 64, "请输入正确的日期!"
document.input1.inwa_rec_date.focus()
Exit Sub
End if
if isdate(trim(input1.inwa_rec_time.value))=false then
msgbox "「签收时间」格式不对！", 64, "请输入正确的签收时间!"
document.input1.inwa_rec_time.focus()
Exit Sub
End if
if trim(input1.inwa_rec_man.value)=empty then
msgbox "「签收人」不得为空白！", 64, "请输入签收人!"
document.input1.inwa_rec_man.focus()
Exit Sub
End if
if trim(input1.inwa_rec_idcard.value)=empty then
msgbox "「身份证号」不得为空白！", 64, "请输入身份证号!"
document.input1.inwa_rec_idcard.focus()
Exit Sub
End if
if isnumeric(trim(input1.inwa_rec_idcard.value)) = false then
msgbox "「身份证号」必须为数字！", 64, "请输入身份证号!"
document.input1.inwa_rec_idcard.focus()
Exit Sub
End if
input1.Submit
End Sub
Sub focusto(x)
document.input1.elements(x).focus()
End Sub
-->
</script>
</head>
<body topmargin="0">
<%
if Request.ServerVariables("REQUEST_METHOD")="POST" then
id = request("id")
if not isnumeric(id) then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""id必须为整数！"");history.go(-1);"
Response.Write "</script>"
Response.End
end if
sql ="select inwa_id,inwa_dc_id,inwa_flag,inwa_sia from inward where inwa_flag = 0 and inwa_disabled = 0 and inwa_companyid = "&newcompanyid&" and inwa_id = "&id&""
set rs_inward = server.CreateObject("adodb.recordset")
rs_inward.open sql,conn,3,2
if not rs_inward.eof then
inwa_sia1=rs_inward("inwa_sia")
dc_id = rs_inward("inwa_dc_id")
sql = "select * from inward_detail where idetail_inwa_id = "&id&""
set rs_detail = server.CreateObject("adodb.recordset")
rs_detail.Open sql,conn,3,2
if not rs_detail.EOF then
'-----------------------------------------------------------
'下列程序检验入库数量与实收数量是否一致,不一致则提示输入原因
rs_detail.MoveFirst
do while not rs_detail.EOF
idetail_id = rs_detail("idetail_id")
no = rs_detail("idetail_no")
rec_no = Request(""&idetail_id&"")
rec_beizu = trim(Request(""&idetail_id&"2"))
rec_max_no = trim(request(""&idetail_id&"4"))
if trim(rec_no) = empty then
Response.Write "<script language=javascript>"
Response.Write "alert(""可能有其他人对该记录又增添了新单,所以请重新输入!\n\n系统将自动关闭此窗口,请重新打开进行入库签收操作!!!"");"
Response.Write "window.close();"
Response.Write "</script>"
Response.End
end if
if isnumeric(rec_no) = false then
Response.Write "<script language=javascript>"
Response.Write "alert(""实收数量必须为数字!"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
elseif trim(rec_no) < 0 then
Response.Write "<script language=javascript>"
Response.Write "alert(""实收数量必须大于等于0!"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
elseif clng(rec_no) > clng(rec_max_no) then
Response.Write "<script language=javascript>"
Response.Write "alert(""实收数量与已收数量的和 不能大于 入库通知的数量!\n\n请修改数量！"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
'elseif clng(no) <> clng(rec_no) then
' if rec_beizu = empty then
' Response.Write "<script language=javascript>"
' Response.Write "alert(""入库数量与实收数量不一致,请在相应的签收备注里注明原因!"");"
' Response.Write "history.go(-1);"
' Response.Write ""
' Response.End
' end if
end if
rs_detail.MoveNext
loop
'执行结束
'--------------------------------------------------------------
inwa_rec_date = request("inwa_rec_date")
inwa_rec_time = request("inwa_rec_time")
inwa_rec_datetime = inwa_rec_date &" "&inwa_rec_time
inwa_rec_detetime = replace(inwa_rec_datetime,"：",":")
if stat_sn="" then stat_sn="0"
if not isdate(inwa_rec_datetime) then
rs_detail.Close
set rs_detail = nothing
rs_inward.Close
set rs_inward = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""签收时间格式不正确!"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
end if
inwa_rec_man = request("inwa_rec_man")
inwa_rec_man = replace(inwa_rec_man,"'","''")
inwa_rec_idcard = trim(request("inwa_rec_idcard"))
dim act
act = 0
rs_detail.MoveFirst
do while not rs_detail.EOF
idetail_id = rs_detail("idetail_id")
prod_id = rs_detail("idetail_prod_id")
no = rs_detail("idetail_no")
rec_no_before = rs_detail("idetail_rec_no")
rec_no = clng(Request(""&idetail_id&""))
rec_beizu = trim(Request(""&idetail_id&"2"))
if rec_beizu = "" then rec_beizu = " "
if rec_no <> 0 then
rs_detail("idetail_rec_no") = rec_no + rec_no_before
rs_detail("idetail_rec_date") = inwa_rec_detetime
rs_detail("idetail_rec_man") = inwa_rec_man
rs_detail("idetail_rec_idcard") = inwa_rec_idcard
rs_detail("idetail_rec_operate") = User
rs_detail("idetail_rec_fact_date") = now()
end if
if clng(rec_no_before) + clng(rec_no) >= clng(no) then
rs_detail("idetail_flag") = 1
else
rs_detail("idetail_flag") = 0
end if
rs_detail("idetail_rec_beizu") = trim(rs_detail("idetail_rec_beizu")) + rec_beizu
rs_detail.Update
totalno = rec_no - no
if rec_no <> 0 then
sql = "update inventory set inve_ruku = inve_ruku + "&rec_no&",inve_zaitu = inve_zaitu - "&rec_no&",inve_maysent = inve_maysent + "&rec_no&",inve_last_date = '"&now()&"' where inve_companyid = "&newcompanyid&" and inve_dc_id = "&dc_id&" and inve_prod_id = "&prod_id&" "
conn.execute(sql)
end if
act = 1
rs_detail.MoveNext
r=request("i")
do while not r=0
set rs_statsn=server.CreateObject("adodb.recordset")
rs_statsn.Open "select * from stat where stat_prod_id="&prod_id&" and stat_sia="&inwa_sia1&"", conn, 1, 3
rs_statsn("stat_prod_sn")=trim(request("stat_sn+i"))
rs_statsn.update
rs_statsn.close
set rs_statsn=nothing
i=i-1
r=r-1
loop
loop
if act = 1 then
set rs_statsn=server.CreateObject("adodb.recordset")
rs_statsn.Open "select * from stat where stat_prod_id="&prod_id&" and stat_sia="&inwa_sia1&"", conn, 1, 3
if not rs_statsn.eof and rs_statsn.bof then
rs_statsn("stat_prod_sn")=stat_sn
end if
rs_statsn.close
set rs_statsn=nothing
sql = "select idetail_id from inward_detail where idetail_inwa_id = "&id&" and idetail_flag <> 1 "
set rs_dd = conn.execute(sql)
if rs_dd.eof then
rs_inward("inwa_flag") = 1
'rs_inward("inwa_rec_date") = inwa_rec_date
'rs_inward("inwa_rec_man") = inwa_rec_man
'rs_inward("inwa_rec_idcard") = inwa_rec_idcard
'rs_inward("inwa_rec_operate") = User
rs_inward.Update
end if
rs_dd.close
set rs_dd = nothing
end if
end if
Response.Write "<script language=javascript>"
Response.Write "opener.location.reload();window.close();"
Response.Write "</script>"
else
Response.Write "<script language=javascript>"
Response.write "alert(""该记录已经入库！"");window.close();</script>"
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -