<!-- #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 Kingaku
	Dim Tekiyo
	Dim TegataNo

	Dim Title

	Dim Query, Content
'###############################################	 1.データの引継ぎ

	TegataNo = Request("TegataNo")
	HikiukeninCD = Request("HikiukeninCD")
	FuridashininCD = Request("FuridashininCD")
	UketorininCD = Request("UketorininCD")
	ShiharaiBasyo = Request("ShiharaiBasyo")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	'OldBunsyoNaiyoCD = BunsyoNaiyoCD' Request("OldBunsyoNaiyoCD")
	OldBunsyoNaiyoCD = Request("OldBunsyoNaiyoCD")


	ShiharaiKijitsu = Request("ShiharaiKijitsu")
	Furidashibi = Request("Furidashibi")
	Tekiyo = Request("Tekiyo")
	Kingaku = ConvMoneyToInt(Request("Kingaku"))

	Dim BunsyoSyuruiCD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	Dim TegataSyuruiKubun
	TegataSyuruiKubun = BunsyoSyuruiCD
	Dim BinType
	BinType = Request("BinType")

	Dim Tenmatsubi, TenmatsuKubun, HiuragakininCD
	Tenmatsubi = Request("Tenmatsubi")
	TenmatsuKubun = Request("TenmatsuKubun")
	HiuragakininCD = Request("HiuragakininCD")
	If HiuragakininCD = "ETCETC" Then
'		HiuragakininCD = ""
	End If

	Dim SakuseiKaisyaCD
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	If SakuseiKaisyaCD = "" Then
		SakuseiKaisyaCD = KaisyaCD
	End If


	'顛末修正のためのフラグ入替
	If Request("NewTenmatsuKubun") <> "" Then
		TenmatsuKubun = Request("NewTenmatsuKubun")
	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 & ",'" & TegataSyuruiKubun & "'"		'文書種類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	& "'"


		Set Content = OpenQuery(Query)
		Response.Redirect("fk_tegata_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&BinType=" & BinType & TenmatsuKubun)


	ElseIf BinType = "Hasshin" Then

		Query = "exec SPK手形発信"
		Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"		'演習CD
		Query = Query & ",'" & KaisyaCD & "'"	'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"	'作成会社CD
		Query = Query & ",'" & TegataSyuruiKubun & "'"		'文書種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
		Query = Query & ",'" & UketorininCD & "'"
		Query = Query & ",1"
		Query = Query & ",NULL"
		Query = Query & ",''"


		Set Content = OpenQuery(Query)

		Response.Redirect("fk_tegata_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)


	ElseIf BinType = "Sakujyo" Then

		Query = "exec SPK手形削除"
		Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"		'演習CD
		Query = Query & ",'" & KaisyaCD & "'"	'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"		'文書種類CD
		Query = Query & ",'" & TegataSyuruiKubun & "'"		'文書種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
		Response.Redirect("fk_tegata_ichiran.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ShowDel=1")


	ElseIf BinType = "Henkyaku" Then

		Query = "exec SPK手形返却"
		Query = Query & "  '" & GB_SystemCD & "' ,'" & EnshuCD & "'"		'演習CD
		Query = Query & ", '" & KaisyaCD & "'"	'会社CD
		Query = Query & ", '" & SakuseiKaisyaCD & "'"		'文書種類CD
		Query = Query & ", '" & TegataSyuruiKubun & "'"		'文書種類CD
		Query = Query & ", '" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
		Response.Redirect("fk_tegata_ichiran.asp?SenpoFlg=1&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&TegataJyotaiKubun=TU")

	Else

		'文書内容CDは内部的な自動シーケンスなのでチェックは不要(091001小野)
		If 0=1 And BunsyoNaiyoCD <> OldBunsyoNaiyoCD Then
			Query = "exec SPK手形取得"
			Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"				'演習CD
			Query = Query & ",'" & KaisyaCD & "'"			'会社CD
			Query = Query & ",'" & KaisyaCD & "'"			'会社CD
			Query = Query & ",'" & TegataSyuruiKubun & "'"		'文書種類CD
			Query = Query & ",'" & BunsyoNaiyoCD & "'"
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF ) Then
				Title = ConvKubunMeisyo("手形種類区分", BunsyoSyuruiCD)
				Response.Write("この" & Title & "No.は既に存在します")
%>
<a href="JavaScript:history.go(-1)">戻る</a>
<%
				Exit Sub
			End If
		End If

		'手形小切手番号は単なる文字列なので振出一覧から重複チェックする(091001)
		If BinType <> "Syusei" Then
			Query = "exec SPK手形一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TF', '" & BunsyoSyuruiCD & "'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				If TegataNo = "" & Content.Fields("手形番号") Then
					Title = ConvKubunMeisyo("手形種類区分", BunsyoSyuruiCD)
					Response.Write("この" & Title & "No.は既に存在します")
%>
<a href="JavaScript:history.go(-1)">戻る</a>
<%
					Exit Sub
				End If
				Content.MoveNext
			Loop
		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 & ",'" & TegataSyuruiKubun & "'"		'文書種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
		If BinType = "Syusei" Then
			Query = Query & ",'" & OldBunsyoNaiyoCD & "'"
		End If
		Query = Query & ",'" & TegataNo & "'"
		Query = Query & ",'S'"
		Query = Query & ",'" & FuridashininCD & "'"
		Query = Query & ",'" & UketorininCD & "'"
		Query = Query & ",'" & HikiukeninCD & "'"

		Query = Query & ",'" & Furidashibi & "'"
		If ShiharaiKijitsu = "" Then
			Query = Query & ",null"
		Else
			Query = Query & ",'" & ShiharaiKijitsu & "'"
		End If

		Query = Query & "," & Kingaku
		Query = Query & ",'" & ShiharaiBasyo & "'"
		Query = Query & ",'" & Tekiyo & "'"
		Query = Query & ",'" & GakuseiNo	& "'"

	End If
'Response.Write(Query)
'Exit Sub
	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_tegata_view.asp?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD)

End Sub
%>