
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：為替レートマスタ更新処理
'	作成日	：2020/4/3
'	作成者	：小野
'	概要	：
'################################################
'-->

main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content
	Dim Content2

	Dim ii

	Dim Cnt

	Dim MSG

	Dim Command
	Command = Request("Command")

	Dim TsukaCD
	TsukaCD = Request("TsukaCD")


	If TsukaCD <> "" And IsNumeric(TsukaCD) Then
		MSG = "Update"
		If Command = "Add" Then
			Query = ""
			Query = Query & "  "
			Query = Query & " SELECT MAX(通貨CD) AS 最大通貨CD "
			Query = Query & " FROM TDA為替レートM "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				Cnt = Content.Fields("最大通貨CD")
			End If
			If Cnt = "" Or Not(IsNumeric(Cnt)) Then
				Cnt = 0
			End If
			Cnt = Cnt +1
			Query = ""
			Query = Query & "  "
			Query = Query & " INSERT INTO TDA為替レートM (システムCD, 演習CD, 通貨CD, 名称, 金額, 単位, 更新日時) "
			Query = Query & " VALUES ('" & GB_SystemCD & "', '" & EnshuCD & "', " & Cnt & ", '" & Request("Tsuka0") & "', " & ConvMoneyToInt(Request("Rate0")) & ", '" & Request("Tani0") & "', GETDATE()) "
'Response.Write(Query)
'Exit Sub
			Set Content = OpenQuery(Query)
		ElseIf Command = "Update" Then
			Query = ""
			Query = Query & "  "
			Query = Query & " UPDATE TDA為替レートM "
			Query = Query & " SET 名称 = '" & Request("Tsuka" & TsukaCD) & "' "
			Query = Query & " 	, 金額 = " & ConvMoneyToInt(Request("Rate" & TsukaCD)) & " "
			Query = Query & " 	, 単位 = '" & Request("Tani" & TsukaCD) & "' "
			Query = Query & " 	, 更新日時 = GETDATE() "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND 通貨CD = " & TsukaCD & " "
			Set Content = OpenQuery(Query)
		ElseIf Command = "Up" Or Command = "Down" Then
			Cnt = ""
			If Command = "Up" Then
				'ひとつ上の通貨CDを取得
				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 通貨CD < " & TsukaCD & " "
				Query = Query & " ORDER BY 通貨CD DESC "
			Else'If Command = "Down" Then
				'ひとつ下の通貨CDを取得
				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 通貨CD > " & TsukaCD & " "
				Query = Query & " ORDER BY 通貨CD "
			End If
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				Cnt = "" & Content.Fields("通貨CD")
			End If
			If Cnt <> "" Then
				Query = ""
				Query = Query & " UPDATE TDA為替レートM "
				Query = Query & " SET 通貨CD = 7777777 "
				Query = Query & " 	, 更新日時 = GETDATE() "
				Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
				Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
				Query = Query & " 	AND 通貨CD = " & Cnt & " "
				Set Content = OpenQuery(Query)
				Query = ""
				Query = Query & " UPDATE TDA為替レートM "
				Query = Query & " SET 通貨CD = " & Cnt & " "
				Query = Query & " 	, 更新日時 = GETDATE() "
				Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
				Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
				Query = Query & " 	AND 通貨CD = " & TsukaCD & " "
				Set Content = OpenQuery(Query)
				Query = ""
				Query = Query & " UPDATE TDA為替レートM "
				Query = Query & " SET 通貨CD = " & TsukaCD & " "
				Query = Query & " 	, 更新日時 = GETDATE() "
				Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
				Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
				Query = Query & " 	AND 通貨CD = 7777777 "
				Set Content = OpenQuery(Query)
			Else
				MSG = ""
			End If
		ElseIf Command = "Delete" Then
			'削除
			Query = ""
			Query = Query & "  "
			Query = Query & " DELETE FROM TDA為替レートM "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND 通貨CD = " & TsukaCD & " "
			Set Content = OpenQuery(Query)
		End If
	End If


	Response.Redirect("fm_exchangerate.asp?MSG=" & MSG)

End Sub
%>