
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
' 	名称	：寄託契約
' 	作成日	：2006/12/20
' 	作成者	：小野
' 	目的	：寄託契約処理
' 	概要	：契約書の作成・表示・発信・返信
' 	 <<表示>>
'################################################
'-->
'
'
%>


<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content

	Dim KaikeiKaishibi
	Dim KaikeiSyuryobi

	Dim BinType
	BinType = Request("BinType")
	Dim BunsyoNaiyoCD 
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	Dim SakuseiKaisyaCD
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	Dim TorihikisakiCD
	TorihikisakiCD = Request("TorihikisakiCD")

	Dim OldBunsyoNaiyoCD
	OldBunsyoNaiyoCD = Request("OldBunsyoNaiyoCD")

	Dim Tantosya
	Tantosya = Request("Tantosya")
	Dim DaihyoTorishimariyaku
	DaihyoTorishimariyaku = Request("DaihyoTorishimariyaku")
	Dim KanKatsu
	KanKatsu = Request("KanKatsu")
	Dim Kaishibi
	Kaishibi = Request("Kaishibi")

	Dim SenpoFlg
	SenpoFlg = Request("SenpoFlg")

	Dim TantosyaCD
	TantosyaCD = ""	'初期化

	Dim KitakuGaisyaCD
	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		KitakuGaisyaCD = "" & Content.Fields("寄託会社CD")
	End If

        If BinType = "New" Or BinType = "Agree" Then	'契約書作成・受諾時の担当者・代表取締役処理

'		Query = "exec SPM会社更新_代表取締役 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & DaihyoTorishimariyaku & "'"
'		Set Content = OpenQuery(Query)
'		Query = "exec SPK社員台帳更新 '" & GB_SystemCD & "', '1', '" & EnshuCD & "', '" & KaisyaCD & "', '1', '1', '" & DaihyoTorishimariyaku
'		Query = Query & "', null, null, '', null, null, null, null, null, null, null, null, null, null, null, null, null, null, '" & Left(SetDate(GB_KaikeiKaishibi,2),5) & Replace(Mid(SetDate(GB_KaikeiKaishibi,2),6,3),"0","") & "'"
'		DebugQuery(Query)
'		Set Content = OpenQuery(Query)

		TantosyaCD = ConvSyainNumber(Tantosya)

		If TantosyaCD = "" Then '担当者新規作成
			'TantosyaCD = 0
			'Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
			'Set Content = OpenQuery(Query)
			'Do While Not(Content.BOF Or Content.EOF)
			'	If Content.Fields("社員番号") >= TantosyaCD Then
			'		TantosyaCD = Content.Fields("社員番号")
			'	End If
			'	Content.MoveNext
			'Loop
			'TantosyaCD = TantosyaCD + 1
			Query = "exec SPK社員台帳更新2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', null"
			Query = Query & ", '', '" & Tantosya & "', null, 0, '', '', '', '', '', null, null"
			Query = Query & ", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0"
			Query = Query & ", '" & GB_GakuseiNo & "'"	'学生番号
			DebugQuery(Query)
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				TantosyaCD = Content.Fields(0)
			End If
		End If
		If BinType = "Agree" Then
			Dim OtsuTantosyaCD
			OtsuTantosyaCD = TantosyaCD
		End If

	End If


	If BinType = "New" Then	'契約書作成
		Query = "exec SPK契約書挿入 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '', '" & KaisyaCD & "',"
		Query = Query & " 'S', '" & TorihikisakiCD & "', '" & TantosyaCD & "', '" & KanKatsu & "',"
		Query = Query & " '" & GakuseiNo & "', '" & GB_KaikeiKaishibi & "', '" & Kaishibi & "', '" & GB_KaikeiSyuryobi & "'"
		Set Content = OpenQuery(Query)
		If KitakuGaisyaCD <> "" Then	'運用管理で寄託会社CDが設定されていればここで入れ替える（070207小野）※現判定ロジックでは必要ないが念のため
			Query = "UPDATE TDA会社M SET 寄託会社CD = '" & TorihikisakiCD & "' WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "'"
			Set Content = OpenQuery(Query)
		End If
		Response.Redirect("fk_kitakukeiyaku.asp")


	ElseIf BinType = "Agree" Then	'契約の受諾
		Query = "exec SPK契約書受諾 '" & GB_SystemCD & "', '1', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & SakuseiKaisyaCD & "', '" & OtsuTantosyaCD & "', '" & GB_KaikeiKaishibi & "', '" & GakuseiNo & "'"
		Set Content = OpenQuery(Query)
'		Response.Redirect("fk_kitakukeiyaku_view.asp?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&SenpoFlg=" & SenpoFlg)
		Call WaitRedirect("fk_kitakukeiyaku_view.asp?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&SenpoFlg=" & SenpoFlg, 200)
		Exit Sub	'Exitしないと次に進んでしまいます

	ElseIf BinType = "Send" Then	'契約の申し入れ
		Query = "exec SPK契約書発信 '" & GB_SystemCD & "', '1', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & KaisyaCD & "', '" & TorihikisakiCD & "', '" & GB_KaikeiKaishibi & "', '" & GakuseiNo & "'"
		Set Content = OpenQuery(Query)
'		Response.Redirect("fk_kitakukeiyaku_view.asp?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD)
		Call WaitRedirect("fk_kitakukeiyaku_view.asp?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD, 200)
		Exit Sub	'Exitしないと次に進んでしまいます


	ElseIf BinType = "Del" Then	'契約書削除
		Query = "exec SPK契約書削除 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
		Response.Redirect("fk_kitakukeiyaku.asp")


	End If


End Sub
%>