
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称	：入庫非受付処理
'	作成日	：2008/09/12
'	作成者	：小野
'	目的	：入庫前の出庫を返却する。
'	概要	：
'################################################
'-->
%>
<%
main()
Sub main()

	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim Query
	Dim Content

	Dim EnshuCD
	Dim EnshuName
	EnshuCD = Request("EnshuCD")
	Dim KaisyaCD
	KaisyaCD = Request("KaisyaCD")
	Dim SakuseiKaisyaCD
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	Dim BunsyoSyuruiCD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	Dim BunsyoNaiyoCD
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")

	Query = "exec SPD入出庫非受付 '" & GB_SystemCD & "',"
	Query = Query & " '" & EnshuCD & "'"			'演習CD
	Query = Query & ",'" & KaisyaCD & "'"			'会社CD
	Query = Query & ",'" & SakuseiKaisyaCD & "'"	'取引先CD
	Query = Query & ",'" & BunsyoSyuruiCD & "'"		'文書種類CD
	Query = Query & ",'" & BunsyoNaiyoCD & "'"		'文書内容CD
	Set Content = OpenQuery(Query)

	Response.Redirect("fm_enshucontrol02.asp?EnshuCD=" & EnshuCD)


End Sub
%>