📄 direct_save_outward.asp

📁 1.多种查询方式
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%const title="确认数据"%>
<% 
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private" 
%>
<!-- #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("""+newcompanyid +"请先选择公司再做此步操作！"");"
	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)
msg=""
dc_id = request("dc_id")
if not isnumeric(dc_id) then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""dc_id必须为整数！"");history.go(-1);"
	Response.Write "</script>"
	Response.End
end if
'产品编号
prod_no = trim(request("prod_no"))
if prod_no = "" then
	prod_no = " "
else
	prod_no = replace(prod_no,"'","’")
end if
'产品描述
prod_type = trim(request("prod_type"))
if prod_type = "" then
	prod_type = " "
else
	prod_type = replace(prod_type,"'","’")
end if
'产品备注
prod_color = trim(request("prod_color"))
if prod_color = "" then
	prod_color = " "
else
	prod_color = replace(prod_color,"'","’")
end if
'出库数量outw_no
outw_no = trim(Request.Form("outw_no"))
'填写日期outw_date,委托日期consign_date,委托时间consign_time
'ＳＲＡ号outw_sra,出库方式outw_type
'目的地outw_where，收货人订单号takeman_id，时限要求yuji_time
'出库摘要outw_beizu
outw_date = trim(Request.Form("outw_date"))
consign_date = trim(Request.Form("consign_date"))
consign_time = trim(Request.Form("consign_time"))
outw_sra = trim(Request.Form("outw_sra"))
outw_sra = replace(outw_sra,"'","’")
outw_type = request("outw_type")
outw_where = trim(Request.Form("outw_where"))
takeman_id = trim(Request.Form("takeman_id"))
takeman_id = replace(takeman_id,"'","’")

yuji_time = trim(Request.Form("yuji_time"))
outw_beizu = trim(Request("outw_beizu"))
outw_beizu = replace(outw_beizu,"'","’")

direct = request("direct")
if direct = 1 then
		direct = 1 		
		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 = " "
else
		direct = 0
		inwa_take_address = " "
		inwa_line_no = " "
		inwa_take_no = " "
end if
if outw_where  = 0 then
		msg = msg + "请选择客户！<br>"
	end if
if msg<>"" then
 showerror(msg)
 else

'将相应的日期格式转换成正确的日期格式
'并且将信息写入到cookies中以便用户在下次录入时不必输入
if outw_date = "" then outw_date = now()
if outw_yuji_time = "" then outw_yuji_time = now()
outw_date = replace(outw_date,"：",":")
consign_date = replace(consign_date,"：",":")
consign_time = replace(consign_time,"：",":")
yuji_time = replace(yuji_time,"：",":")
'产品类别prod_flag
prod_flag = request("biglocation")
Response.Cookies("prod_flag") = prod_flag
Response.Cookies("dc_id") = dc_id
Response.Cookies("outw_date") = outw_date
Response.Cookies("consign_date") = consign_date
Response.Cookies("consign_time") = consign_time
Response.Cookies("outw_sra") = outw_sra
Response.Cookies("info_type") = outw_type
Response.Cookies("outw_where") = outw_where
Response.Cookies("takeman_id") = takeman_id
Response.Cookies("yuji_time") = yuji_time
consign_datetime = consign_date&" "&consign_time
if takeman_id = "" then takeman_id = " "
if outw_beizu = "" then outw_beizu = " "
if trim(session("username")) = "" then
	call closedatabase
	Response.Redirect "../user/defaut.asp"
	Response.End 
end if
'开始事务处理
'-------------
sql ="select * from outward where outw_sra = '"&outw_sra&"' and outw_companyid = "&newcompanyid&""
set rs_flag = conn.execute(sql)
if rs_flag.eof then
	set cmd=server.CreateObject("ADODB.Command")
	cmd.ActiveConnection = conn
	cmd.CommandType = 4
	cmd.CommandText = "Direct_Save_Outward"
	dim adInteger
	adInteger = 3
	dim adParamInput
	adParamInput = 1
	dim adParamOutput
	adParamOutput = 2
	dim adVarchar
	adVarChar = 200
	adDBDAte = 135
	addbtimestamp = 135
	cmd.Parameters.Refresh 
	'Response.Write prod_no &"<br>"
	'Response.Write prod_type &"<br>"
	'Response.Write prod_color &"<br>"
	'Response.Write prod_flag &"<br>"
	'Response.Write direct &"<br>"
	'Response.Write inwa_take_address&"<br>"
	'Response.Write inwa_line_no &"<br>"
	'Response.Write inwa_take_no &"<br>"
	'Response.Write dc_id &"<br>"
	'Response.Write outw_date&"<br>"
	'Response.Write consign_datetime &"<br>"
	'Response.Write outw_sra &"<br>"
	'Response.Write newcompanyid &"<br>"
	'Response.Write outw_beizu &"<br>"
	'Response.Write User&"<br>"
	'Response.Write outw_where &"<br>"
	'Response.Write outw_no &"<br>"
	'Response.Write outw_type &"<br>"
	'Response.Write tajeman_id &"<br>"
	'Response.Write yuji_time
	'Response.End 
	cmd.Parameters("@prod_no") = prod_no
	cmd.Parameters("@prod_type") = prod_type
	cmd.Parameters("@prod_color") = prod_color
	cmd.Parameters("@prod_flag") = prod_flag
	cmd.Parameters("@direct") = direct
	cmd.Parameters("@inwa_take_address") = inwa_take_address
	cmd.Parameters("@inwa_line_no") = inwa_line_no
	cmd.Parameters("@inwa_take_no") = inwa_take_no
	cmd.Parameters("@dc_id") = dc_id
	cmd.Parameters("@outw_date") = outw_date
	cmd.Parameters("@consign_datetime") = consign_datetime
	cmd.Parameters("@outw_sra") = outw_sra
	cmd.Parameters("@newcompanyid") = newcompanyid
	cmd.Parameters("@outw_beizu") = outw_beizu
	cmd.Parameters("@User") = User
	cmd.Parameters("@outw_where") = outw_where
	cmd.Parameters("@outw_no") = outw_no
	cmd.Parameters("@outw_type") = outw_type
	cmd.Parameters("@takeman_id") = takeman_id
	cmd.Parameters("@yuji_time") = yuji_time
	cmd.Parameters("@outw_id").Direction = adParamOutput
	cmd.Execute
	outwardid =  cmd.Parameters("@outw_id")
	set cmd = nothing
'结束事务处理
'update语句-----更新"已分配数量"数据
			if err.number <> 0 then
				rs_flag.close
				set rs_flag = nothing
				call closedatabase
				response.write "<p>无法保存,数据库操作出错:" + err.description + "</p>"
				Response.Write "<p>请稍后再试！</p>"
				Response.End 
			end if
	rs_flag.close
	set rs_flag = nothing
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "var myTime = new Date(); "
	Response.Write "var timeNow = myTime.getTime();"
	Response.Write "{if (confirm(""数据已确认，继续进行该笔单子的出库操作吗？""))"
	
	if direct = 0 then
		Response.Write "window.location ='direct_outward_2.asp?id="&outwardid&"&companyid="&newcompanyid&"&inward_second=yes&tt='+timeNow;"
	elseif direct = 1 then
		Response.Write "window.location ='direct_outward_2.asp?id="&outwardid&"&companyid="&newcompanyid&"&inward_second=yes&direct=1&tt='+timeNow;"
	end if
	Response.Write "else "
	Response.Write "{alert(""注意：接下来将打印出库通知书！！！"");"
	Response.Write "window.location ='direct_ward.asp?companyid="&newcompanyid&"&tt='+timeNow;"
	Response.Write "window.open('chukutongzhi.asp?id="&outwardid&"&companyid="&newcompanyid&"&tt='+timeNow,'defghhchu');"
	Response.Write "}"
	Response.Write "}"
	Response.Write "</script>"
	Response.End 
else
	outwardid = rs_flag("outw_id")
	rs_flag.close
	set rs_flag = nothing
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "var myTime = new Date(); "
	Response.Write "var timeNow = myTime.getTime();"
	Response.Write "{if (confirm(""该SRA号码已存在，将该笔单子追加到以前的入库操作记录中吗？""))"
	Response.Write "window.location ='direct_outward_2.asp?id="&outwardid&"&companyid="&newcompanyid&"&database=yes&inward_second=yes&tt='+timeNow;"
	Response.Write "else "
	Response.Write "{alert(""注意：系统中已有该SRA号码,请修改,以便将其录入到系统中！！！"");"
	Response.Write "history.go(-1);}"
	Response.Write "}"
	Response.Write "</script>"	
end if

end if
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -