
<!-- #include file="../../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：保険情報更新処理
'	 作成日：2002/12/10
'	 作成者：重松
'	 目的　：保険情報の更新（追加・修正・削除）処理を行う。
'	 概要	：
'		<<表示>>
'	・無し
'
'	修正日：
'	修正者：
'	 fu_hoken_bin.asp
'################################################
'-->

main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim BunsyoNaiyoCD
	Dim Syoribi, TorihikisakiCD, Tekiyo, ShiharaiHoho, HakkoFlg
	Dim Action
	Dim MeisaiUnsobi(5)
	Dim MeisaiUnsosakiCD(5)
	Dim MeisaiUnsohi(5)

	Dim Query
	Dim Content
	Dim rsts
	Dim ii
	Dim BunsyoSyuruiCD
	BunsyoSyuruiCD = "CD"
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	Syoribi = Request("Syoribi")
	TorihikisakiCD = Request("TorihikisakiCD")
	Tekiyo = Request("Tekiyo")
	ShiharaiHoho = Request("ShiharaiHoho")
	HakkoFlg = Request("HakkoFlg")


	For ii = 1 To 5
			MeisaiUnsobi(ii) = Request("MeisaiUnsobi" & ii)
			MeisaiUnsosakiCD(ii) = Request("MeisaiUnsosakiCD" & ii)
			MeisaiUnsohi(ii) = ConvMoneyToInt(Request("MeisaiUnsohi" & ii))
		Next





	If Request("BinType") = "BunsyoDel" 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 & "'"
			Set Content = OpenQuery(Query)
			Response.Redirect("fu_seikyu_ichiran.asp")
	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 & ",'CD'"
			Query = Query & ",'" & BunsyoNaiyoCD & "'"
			Query = Query & ",'" & Syoribi & "'"
			Query = Query & ",'" & TorihikisakiCD & "'"
			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
			For ii = 1 To 5
				If MeisaiUnsobi(ii) = "" Then
					Query = Query & "," & ii & ",null,null,null"
				Else
					Query = Query & "," & ii
					Query = Query & ",'"& MeisaiUnsobi(ii) & "'"
					Query = Query & ",'"& MeisaiUnsosakiCD(ii) & "'"
					If MeisaiUnsohi(ii) = "" Then
						Query = Query & ",null"
					Else
						Query = Query & ","& MeisaiUnsohi(ii)
					End If
				End If
			Next





		Else
			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 & ",'" & TorihikisakiCD & "'"
			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
			For ii = 1 To 5
				If MeisaiUnsobi(ii) = "" Then
					Query = Query & "," & ii & ",null,null,null"
				Else
					Query = Query & "," & ii
					Query = Query & ",'"& MeisaiUnsobi(ii) & "'"
					Query = Query & ",'"& MeisaiUnsosakiCD(ii) & "'"
					If MeisaiUnsohi(ii) = "" Then
						Query = Query & ",null"
					Else
						Query = Query & ","& MeisaiUnsohi(ii)
					End If
				End If
			Next




		End If

	End If

	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
%>