
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：領収書処理
'	 作成日：2002/8/2
'	 作成者：山崎
'	 目的　：領収書画面を追加・修正処理する。
'	 概要	：
'		<<表示>>
'	・無し
'################################################
'-->
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim HikiukeninCD, FuridashininCD, UketorininCD
	Dim ShiharaiBasyo
	Dim BunsyoNaiyoCD, OldBunsyoNaiyoCD, ShiharaiKijitsu, Furidashibi
	Dim FuridashibiY, FuridashibiM, FuridashibiD
	Dim Kingaku
	Dim Tekiyo

	Dim Query, Content
'###############################################	 １．データの引継ぎ

	HikiukeninCD = Request("HikiukeninCD")
	FuridashininCD = Request("FuridashininCD")
	UketorininCD = Request("UketorininCD")
	ShiharaiBasyo = Request("ShiharaiBasyo")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	OldBunsyoNaiyoCD = Request("OldBunsyoNaiyoCD")
	ShiharaiKijitsu = Request("ShiharaiKijitsu")
	Furidashibi = Request("Furidashibi")
	FuridashibiY = Request("FuridashibiY")
	FuridashibiM = Request("FuridashibiM")
	FuridashibiD = Request("FuridashibiD")
	Tekiyo = Request("Tekiyo")
	Kingaku = ConvMoneyToInt(Request("Kingaku"))

	Dim BunsyoSyuruiCD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	BunsyoSyuruiCD = "RA"

	Dim ryosyusyoSyuruiKubun
	ryosyusyoSyuruiKubun = BunsyoSyuruiCD
	Dim BinType
	BinType = Request("BinType")

	Dim Tenmatsubi, TenmatsuKubun, HiuragakininCD
	Tenmatsubi = Request("Tenmatsubi")
	TenmatsuKubun = Request("TenmatsuKubun")
	HiuragakininCD = Request("HiuragakininCD")

	Dim SakuseiKaisyaCD
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	If SakuseiKaisyaCD = "" Then
		SakuseiKaisyaCD = KaisyaCD
	End If



	If BinType = "Tenmatsu" Then

		Query = "exec SPK領収書発信"
		Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"		'演習CD
		Query = Query & ",'" & KaisyaCD & "'"	'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"	'作成会社CD
		Query = Query & ",'" & ryosyusyoSyuruiKubun & "'"		'文書種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
		If HiuragakininCD = "" Then
			Query = Query & ",null"
		Else
			Query = Query & ",'" & HiuragakininCD	& "'"
		End If
		If TenmatsuKubun <> "TU" Then
			Query = Query & ",'0'"
		Else
			Query = Query & ",'1'"
		End If
		Query = Query & ",'" & Tenmatsubi & "'"
		Query = Query & ",'" & TenmatsuKubun	& "'"

DebugQuery(Query)

		Set Content = OpenQuery(Query)
		Response.Redirect("fk_ryosyusyo_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)


	ElseIf BinType = "Hasshin" Then

		Query = "exec SPK領収書発信"
		Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"		'演習CD
		Query = Query & ",'" & KaisyaCD & "'"	'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"	'作成会社CD
		Query = Query & ",'" & ryosyusyoSyuruiKubun & "'"		'文書種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
		Query = Query & ",'" & UketorininCD & "'"
		Query = Query & ",1"
		Query = Query & ",NULL"
		Query = Query & ",''"

DebugQuery(Query)

		Set Content = OpenQuery(Query)

'		Response.Redirect("fk_ryosyusyo_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)
		Call WaitRedirect("fk_ryosyusyo_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD, 200)
		Exit Sub


	ElseIf BinType = "Sakujyo" Then

		Query = "exec SPK領収書削除"
		Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"		'演習CD
		Query = Query & ",'" & KaisyaCD & "'"	'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"		'文書種類CD
		Query = Query & ",'" & ryosyusyoSyuruiKubun & "'"		'文書種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
DebugQuery(Query)
		Set Content = OpenQuery(Query)
		Response.Redirect("fk_ryosyusyo_ichiran.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ShowDel=1")

	Else

		If BunsyoNaiyoCD <> OldBunsyoNaiyoCD Then
			Query = "exec SPK領収書取得"
			Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"				'演習CD
			Query = Query & ",'" & KaisyaCD & "'"			'会社CD
			Query = Query & ",'" & KaisyaCD & "'"			'会社CD
			Query = Query & ",'" & ryosyusyoSyuruiKubun & "'"		'文書種類CD
			Query = Query & ",'" & BunsyoNaiyoCD & "'"
DebugQuery(Query)
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF ) Then

				Dim Title
				Title = "領収書"
	
				Response.Write("この" & Title & "No.は既に存在します<br>")
%>
<!--
<a href="JavaScript:history.go(-1)">戻る</a>
-->
<a href="fk_ryosyusyo.asp?BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&UketorininCD=<% = UketorininCD %>&FuridashibiY=<% = FuridashibiY %>&FuridashibiM=<% = FuridashibiM %>&FuridashibiD=<% = FuridashibiD %>&Furidashibi=<% = Furidashibi %>&Kingaku=<% = Kingaku %>&Tekiyo=<% = Tekiyo %>">戻る</a>
<%
				Exit Sub
			End If
		End If

		If BinType = "Syusei" Then
			Query = "exec SPK領収書更新"
		Else
			Query = "exec SPK領収書挿入"
		End If
		Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"				'演習CD
		Query = Query & ",'" & KaisyaCD & "'"			'会社CD
		Query = Query & ",'" & KaisyaCD & "'"			'作成会社CD
		Query = Query & ",'" & ryosyusyoSyuruiKubun & "'"		'文書種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
'		If BinType = "Syusei" Then
'			Query = Query & ",'" & OldBunsyoNaiyoCD & "'"
'		End If
		Query = Query & ",'S'"
		Query = Query & ",'" & FuridashininCD & "'"
		Query = Query & ",'" & UketorininCD & "'"
		Query = Query & ",'" & Furidashibi & "'"

		Query = Query & "," & Kingaku
		Query = Query & ",'" & Tekiyo & "'"
		Query = Query & ",'" & GakuseiNo	& "'"

	End If
DebugQuery(Query)
	Set Content = OpenQuery(Query)

	While Not Content Is Nothing
		If Content.Fields.Count > 0 Then
			BunsyoNaiyoCD = Content.Fields(0)
		End If
		Set Content = Content.NextRecordset
	Wend

	Response.Redirect("fk_ryosyusyo_view.asp?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD)

End Sub
%>