
<!-- #include file="../../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：保険情報更新処理
'	 作成日：2002/12/10
'	 作成者：重松
'	 目的　：保険情報の更新（追加・修正・削除）処理を行う。
'	 概要	：
'		<<表示>>
'	・無し
'
'	修正日：
'	修正者：
'	 fu_hoken_bin.asp
'################################################
'-->

main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Action							'処理区分
	Dim TekiyoCD , Tekiyo					'摘要コード、摘要
	Dim KanrenKaisyaCD				'関連会社コード

	Dim MousikomiNum	'申込番号
	Dim TorihikisakiCD,HokenkikanFrom,HokenkikanTo
	Dim SyohinCD														'商品コード
	Dim SyohinName						 		'商品名称
	Dim Tanka														 	'単価
	Dim Suryo														 	'数量
	Dim Kakaku																	'標準価格
	Dim Kingaku																 '金額
	Dim Ryoritsu																'料率
	Dim HokenRyokin														 '保険料金
	Dim HSyubetsuCode													 '保険種別CD
	Dim Biko																		'備考
	Dim Mosikomibi


	Dim Syubetsu
	Syubetsu = Request("Syubetsu")

	Dim HokenKubun
	HokenKubun = Request("HokenKubun")


	Dim Query
	Dim Content
	Dim Ng , ErrMSG , rsts

	Action = Request("Action")

	TekiyoCD = Request("TekiyoCD")
	Tekiyo = Request("Tekiyo")
	KanrenKaisyaCD = Request("KanrenKaisyaCD")

	MousikomiNum = Request("MousikomiNum")
	TorihikisakiCD = Request("TorihikisakiCD")
	HSyubetsuCode = Request("HSyubetsuCode")
	Mosikomibi = Request("Mosikomibi")
	HokenkikanFrom = Request("HokenkikanFrom")
	HokenkikanTo = Request("HokenkikanTo")
	SyohinCD = Request("SyohinCD")
	Tanka = Request("Tanka")
	Kingaku = Request("Kingaku")
	Suryo = Request("Suryo")
	Ryoritsu = Request("Ryoritsu")
	HokenRyokin = Request("HokenRyokin")
	Biko = Request("Biko")

	ErrMsg = Request("ErrMsg")
	rsts =	True

'Response.Write("[" & Tanka & "]")
'Exit Sub

	If MousikomiNum = "" Then
		MousikomiNum = "null"
	End If

	If rsts = False Then
		Ng = "fu_hoken.asp?action=" & Action & "&nr=r" & "&EnshuCD=" & EnshuCD & "&Syubetsu=" & Syubetsu & "&HokenKubun=" & HokenKubun
		Ng = Ng & "&MousikomiNum=" & MousikomiNum & "&KaisyaCD=" & KaisyaCD & "&TorihikisakiCD=" & TorihikisakiCD
		Ng = Ng & "&HSyubetsuCode=" & HSyubetsuCode & "&Mosikomibi=" & Mosikomibi
		Ng = Ng & "&HokenkikanFrom=" & HokenkikanFrom & "&HokenkikanTo=" & HokenkikanTo
		Ng = Ng & "&SyohinCD=" & SyohinCD & "&Tanka=" & Tanka
		Ng = Ng & "&Kingaku=" & Kingaku & "&Suryo=" & Suryo
		Ng = Ng & "&Ryoritsu=" & Ryoritsu & "&HokenRyokin=" & HokenRyokin
		Ng = Ng & "&Biko=" & Biko
		Ng = Ng & "&ErrMSG=" & ErrMSG
'		Response.Redirect(Ng)
		Response.Write(SubmitHystoryBack(Ng))
		Exit Sub
	End If

	If Action = 4 Then
		Query = "exec SPC保険削除 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& MousikomiNum &""
	Else
		Query = "exec SPC保険更新 '" & GB_SystemCD & "'," &	Action
		Query = Query & ",'" & EnshuCD &	"'"
		Query = Query & ",'" & KaisyaCD &	"'"
		Query = Query & "," & MousikomiNum
		Query = Query & ",'" & TorihikisakiCD &	"'"
		Query = Query & ",'" & HSyubetsuCode &	"'"
		Query = Query & ",'" & HokenKubun &	"'"

		if Mosikomibi="" then
			 Query = Query & ",null"
		else
			 Query = Query & ",'" & Mosikomibi &	"'"
		end if
		if HokenkikanFrom="" then
			 Query = Query &	",null"
		else
			 Query = Query & ",'" & HokenkikanFrom &	"'"
		end if
		if HokenkikanTo="" then
			 Query = Query & ",null"
		else
			 Query = Query & ",'" & HokenkikanTo &	"'"
		end if

		Query = Query & ",'" & SyohinCD &	"'"

		if not isnumeric(Tanka) then
			 Query = Query & ", 0"
		else
			 Query = Query & ", " & ConvMoneyToInt(Tanka)
		end if

		if not isnumeric(Suryo) then
			 Query = Query & ",null"
		else
			 Query = Query & "," & ConvMoneyToInt(Suryo)
		end if

		if not isnumeric(Kingaku) then
			 Query = Query & ",null"
		else
			 Query = Query & "," & ConvMoneyToInt(Kingaku)
		end if

		if not isnumeric(Ryoritsu) then
			 Query = Query & ", null"
		else
			 Query = Query & "," & ConvMoneyToInt(Ryoritsu)
		end if

		if not isnumeric(HokenRyokin) then
			 Query = Query & ",null"
		else
			 Query = Query & "," & ConvMoneyToInt(HokenRyokin)
		end if
		Query = Query & ",'" & Biko &	"'"

	End If
		Set Content = OpenQuery(Query)
	If Content.Fields.Count > 0 Then
		rsts = Content.Fields(0)
	End If

	If Action = 4 Then
		Response.Redirect("fu_hoken_ichiran.asp?Syubetsu=" & Syubetsu)
	Else
		Response.Redirect("fu_hoken_view.asp?MousikomiNum=" & rsts & "&Syubetsu=" & Syubetsu)
	End If

End Sub
%>