
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称	：発信前仕入販売書類検認処理
'	作成日	：2012/07/03
'	作成者	：小野
'	目的	：
'	概要	：
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim KenninView
	KenninView = Request("KenninView")

	Dim Query
	Dim Content

	Dim EnshuCD
	EnshuCD = Request("EnshuCD")
	Dim SeitoCD
	SeitoCD = Request("SeitoCD")
	Dim SakuseiKaisyaCD
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	Dim BunsyoSyuruiCD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	Dim BunsyoNaiyoCD
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")


	Query = "exec SPD仕入売上書類検認 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "', '" & KenninView & "'"
	Set Content = OpenQuery(Query)


	Response.Redirect("fm_enshucontrol07.asp?EnshuCD=" & EnshuCD & "&SeitoCD=" & SeitoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&KenninView=" & KenninView)

End Sub
%>