
<!-- #include file="../../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：保険情報更新処理    
'   作成日：2002/12/10
'   作成者：重松
'   目的　：保険情報の更新（追加・修正・削除）処理を行う。
'   概要  ：
'    <<表示>>
'	・無し
'	
'	修正日：
'	修正者：
'   fu_hoken_bin.asp
'################################################
'-->

main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim BunsyoNaiyoCD, Syoribi, TorihikisakiCD, ShiireUriageBunsyoNaiyoCD 
	Dim ShiharaiHoho, Tekiyo, HasshinFlg, SakujyoFlg, GakuseiBango
	Dim Action 

	Dim Query
	Dim Content
	Dim rsts 
	
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	Syoribi = Request("Syoribi")
	TorihikisakiCD = Request("TorihikisakiCD")
	ShiireUriageBunsyoNaiyoCD = Request("ShiireUriageBunsyoNaiyoCD")
	ShiharaiHoho = Request("ShiharaiHoho")
	Tekiyo = Request("Tekiyo")
	HasshinFlg = Request("HasshinFlg")
	SakujyoFlg = Request("SakujyoFlg")
	GakuseiBango = Request("GakuseiBango")

	Dim BunsyoSyuruiCD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	BunsyoSyuruiCD = "CA"

	If Action = 4 Then
		Query = "exec SPC保険削除 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& MousikomiNum &""
	Else
	
		If Request("hasshin") = "1" Then

			Query = "exec SPC運送費請求書発信 "
			Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"						'演習CD
			Query = Query & ",'" & KaisyaCD & "'"					'会社CD
			Query = Query & ",'" & KaisyaCD & "'"					'会社CD
			Query = Query & ",'" & BunsyoSyuruiCD & "'"		'文書種類CD
			Query = Query & ",'" & BunsyoNaiyoCD & "'"
			Query = Query & ",'" & Syoribi & "'"						'処理日
			Query = Query & ",'" & GakuseiNo & "'"					'学生番号
		
		ElseIf BunsyoNaiyoCD = "" then
			Query = "exec SPC運送費請求書挿入 '" & GB_SystemCD & "',"
			Query = Query & " '" & EnshuCD &  "'" 
			Query = Query & ",'" & KaisyaCD &  "'" 
			Query = Query & ",'" & KaisyaCD &  "'" 
			Query = Query & ",'CA'" 
			Query = Query & ",'" & BunsyoNaiyoCD &  "'" 
			Query = Query & ",'" & Syoribi & "'"
			Query = Query & ",'" & TorihikisakiCD & "'"
			Query = Query & ",'" & ShiireUriageBunsyoNaiyoCD & "'"
			Query = Query & ",'" & ShiharaiHoho & "'"
			Query = Query & ",'" & Tekiyo & "'"
			Query = Query & ",'0'"
			Query = Query & ",'0'"
			If GB_EnshuKubun = "P" AND GB_JisyaFlag = "0" Then
				Query = Query & ",''"		
			Else
				Query = Query & ",'" & GakuseiNo & "'"
			End If
		Else
			Query = "exec SPC運送費請求書更新 '" & GB_SystemCD & "',"
			Query = Query & " '" & EnshuCD &  "'" 
			Query = Query & ",'" & KaisyaCD &  "'" 
			Query = Query & ",'" & KaisyaCD &  "'" 
			Query = Query & ",'CA'" 
			Query = Query & ",'" & BunsyoNaiyoCD &  "'" 
			Query = Query & ",'" & Syoribi & "'"
			Query = Query & ",'" & TorihikisakiCD & "'"
			Query = Query & ",'" & ShiireUriageBunsyoNaiyoCD & "'"
			Query = Query & ",'" & ShiharaiHoho & "'"
			Query = Query & ",'" & Tekiyo & "'"
			Query = Query & ",'0'"
			Query = Query & ",'0'"
			If GB_EnshuKubun = "P" AND GB_JisyaFlag = "0" Then
				Query = Query & ",''"		
			Else
				Query = Query & ",'" & GakuseiNo & "'"
			End If
		
		End If
		
	End If
Response.Write(Query)
	Set Content = OpenQuery(Query)
	If Content.Fields.Count > 0 Then
		rsts = Content.Fields(0)
	End If

	Response.Redirect("fu_seikyu_view.asp?BunsyoSyuruiCD=" &  BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & rsts)
		
End Sub
%>