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