
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称	：受取領収書返却処理
'	作成日	：2017/11/21
'	作成者	：小野
'	目的	：受取領収書を返却する。
'	概要	：
'################################################
'-->
%>
<%
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 SPK領収書返却"
	Query = Query & "  '" & GB_SystemCD & "' ,'" & 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_enshucontrol09.asp?EnshuCD=" & EnshuCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD)


End Sub
%>