
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：消費税率マスタ更新処理
'	作成日	：2019/10/1
'	作成者	：小野
'	概要	：
'################################################
'-->

main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content
	Dim Content2

	Dim ii


	Dim Command
	Command = Request("Command")

	Dim TaxRate
	TaxRate = Request("TaxRate")

	Dim MotoTaxRate
	MotoTaxRate = Request("MotoTaxRate")

	Dim UpdateTaxRate
	UpdateTaxRate = Request("TaxRate" & MotoTaxRate)

	Dim DeleteTaxRate
	DeleteTaxRate = Request("DeleteTaxRate")

	Dim Default
	Default = Request("Default")

	Dim DefaultUnso
	DefaultUnso = Request("DefaultUnso")


	Dim UpdateResult
	UpdateResult = False

	If Command = "Add" And TaxRate <> "" And IsNumeric(TaxRate) Then
		Query = ""
		Query = Query & "  "
		Query = Query & " SELECT * "
		Query = Query & " FROM TDA消費税率M "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
		Query = Query & " 	AND 消費税率 = " & TaxRate & " "
		Set Content = OpenQuery(Query)
		If Content.BOF Or Content.EOF Then
			Query = ""
			Query = Query & "  "
			Query = Query & " INSERT INTO TDA消費税率M (システムCD, 演習CD, 消費税率, 更新日時) "
			Query = Query & " VALUES ('" & GB_SystemCD & "', '" & EnshuCD & "', " & TaxRate & ", GETDATE()) "
			Set Content = OpenQuery(Query)
			UpdateResult = True
		End If
	ElseIf Command = "Update" And MotoTaxRate <> "" And IsNumeric(MotoTaxRate) And UpdateTaxRate <> "" And IsNumeric(UpdateTaxRate) And MotoTaxRate <> UpdateTaxRate Then
		Query = ""
		Query = Query & "  "
		Query = Query & " SELECT * "
		Query = Query & " FROM TDA消費税率M "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
		Query = Query & " 	AND 消費税率 = " & UpdateTaxRate & " "
		Set Content = OpenQuery(Query)
		If Content.BOF Or Content.EOF Then
			Query = ""
			Query = Query & "  "
			Query = Query & " UPDATE TDA消費税率M "
			Query = Query & " SET 消費税率 = " & UpdateTaxRate & " "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND 消費税率 = " & MotoTaxRate & " "
			Set Content = OpenQuery(Query)
		Else
			'すでに存在する場合は削除
			Query = ""
			Query = Query & "  "
			Query = Query & " DELETE FROM TDA消費税率M "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND 消費税率 = " & MotoTaxRate & " "
			Set Content = OpenQuery(Query)
		End If
		UpdateResult = True
	ElseIf Left(Command, 7) = "Default" Then
		'標準税率設定
		Query = ""
		Query = Query & "  "
		Query = Query & " UPDATE TDA消費税率M "
		If Command = "Default" Then
			Query = Query & " SET 標準 = '' " '事前クリア
		Else
			Query = Query & " SET 運送費標準 = '' " '事前クリア
		End If
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
		Set Content = OpenQuery(Query)
		Query = ""
		Query = Query & "  "
		Query = Query & " UPDATE TDA消費税率M "
		If Command = "Default" Then
			Query = Query & " SET 標準 = '1' "
		Else
			Query = Query & " SET 運送費標準 = '1' "
		End If
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
		If Command = "Default" Then
			Query = Query & " 	AND 消費税率 = " & Default & " "
		Else
			Query = Query & " 	AND 消費税率 = " & DefaultUnso & " "
		End If
		Set Content = OpenQuery(Query)
		Response.Redirect("fm_taxrate.asp?MSG=Update")
		Exit Sub
	ElseIf Command = "Delete" And DeleteTaxRate <> "" And IsNumeric(DeleteTaxRate) Then
		'削除
		Query = ""
		Query = Query & "  "
		Query = Query & " DELETE FROM TDA消費税率M "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
		Query = Query & " 	AND 消費税率 = " & DeleteTaxRate & " "
		Set Content = OpenQuery(Query)
		UpdateResult = True
	End If


	If UpdateResult Then
		'演習設定の消費税率をマスタの最大税率にセットする（内税の場合は0固定なので廃止。演習管理側で外税設定した場合のみ0以外の最大税率をセットすることにする。マスタが存在しなければ強制的に10％に設定）
If 0=1 Then
		Query = ""
		Query = Query & "  "
		Query = Query & " SELECT * "
		Query = Query & " FROM TDA消費税率M "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
		Query = Query & " ORDER BY 消費税率 DESC "
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			Query = ""
			Query = Query & "  "
			Query = Query & " UPDATE TC2演習M "
			Query = Query & " SET 消費税 = " & Content.Fields("消費税率") & " "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Set Content = OpenQuery(Query)
		End If
End If
		'標準税率が無くなったら最大税率を標準に設定
		Query = ""
		Query = Query & "  "
		Query = Query & " SELECT * "
		Query = Query & " FROM TDA消費税率M "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
		Query = Query & " 	AND 標準 = '1' "
		Set Content = OpenQuery(Query)
		If Content.BOF Or Content.EOF Then
			Query = ""
			Query = Query & "  "
			Query = Query & " SELECT * "
			Query = Query & " FROM TDA消費税率M "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Query = Query & " ORDER BY 消費税率 DESC "
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				Query = ""
				Query = Query & "  "
				Query = Query & " UPDATE TDA消費税率M "
				Query = Query & " SET 標準 = '1' "
				Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
				Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
				Query = Query & " 	AND 消費税率 = " & Content.Fields("消費税率") & " "
				Set Content = OpenQuery(Query)
			End If
		End If
		Query = ""
		Query = Query & "  "
		Query = Query & " SELECT * "
		Query = Query & " FROM TDA消費税率M "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
		Query = Query & " 	AND 運送費標準 = '1' "
		Set Content = OpenQuery(Query)
		If Content.BOF Or Content.EOF Then
			Query = ""
			Query = Query & "  "
			Query = Query & " SELECT * "
			Query = Query & " FROM TDA消費税率M "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Query = Query & " ORDER BY 消費税率 DESC "
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				Query = ""
				Query = Query & "  "
				Query = Query & " UPDATE TDA消費税率M "
				Query = Query & " SET 運送費標準 = '1' "
				Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
				Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
				Query = Query & " 	AND 消費税率 = " & Content.Fields("消費税率") & " "
				Set Content = OpenQuery(Query)
			End If
		End If
		Response.Redirect("fm_taxrate.asp?MSG=Update")
	Else
		Response.Redirect("fm_taxrate.asp")
	End If

End Sub
%>