
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：演習情報登録処理
'	 作成日：2002/9/4
'	 作成者：徳田
'	 目的　：演習情報の登録処理を行う。
'	 概要	：
'		<<表示>>
'	・無し
'
'	修正:20070129 小売販売の有無追加
'	     	
'################################################
'-->

main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query, Content, rsts, RouteType
	Dim DbEnshuCD, EnshuCD, JidoBangoDenpyo, JidoBangoShiireUriageSyorui, JidoBangoGinkoSyorui, JidoBangoTegata, JidoBangoRyosyusyo
	Dim EnshuID, EnshuPassword, RiyoMailKubun, PrintHeaderHyoji, TutyoSyusei, MeishiKyuVersionRiyo
	Dim NatsuinRiyo, TozaHikidashiFurikomiKogitteHituyo, TegataSyusei
	Dim SyohinCheck, GenbutsuCheck, UnsohiSeikyusyoKyuVersionRiyo
	Dim SyohinNyusyukkoSeikousei, SyohinKaihatukaRiyo
	
	Dim KitakuSokoRiyo
	Dim EnshuKubun
	Dim WebCollaboRiyo
	Dim KouriHanbaiRiyo
	Dim KouriBottun


	Dim HanbaiShuruiSeigen
	Dim HanbaiSuryoSeigen
	Dim HanbaiTankaKijun
	Dim SeitoSu1
	Dim SeitoSu2
	Dim SeitoSu3
	Dim SeitoSu4
	Dim SeitoSu5
	Dim KakeritsuTop1
	Dim KakeritsuTop2
	Dim KakeritsuTop3
	Dim KakeritsuTop4
	Dim KakeritsuTop5
	Dim KakeritsuBot1
	Dim KakeritsuBot2
	Dim KakeritsuBot3
	Dim KakeritsuBot4
	Dim KakeritsuBot5

	HanbaiShuruiSeigen = Request("HanbaiShuruiSeigen")
	HanbaiSuryoSeigen = Request("HanbaiSuryoSeigen")
	HanbaiTankaKijun = Request("HanbaiTankaKijun")
	SeitoSu1 = Request("SeitoSu1")
	SeitoSu2 = Request("SeitoSu2")
	SeitoSu3 = Request("SeitoSu3")
	SeitoSu4 = Request("SeitoSu4")
	SeitoSu5 = Request("SeitoSu5")
	KakeritsuTop1 = Request("KakeritsuTop1")
	KakeritsuTop2 = Request("KakeritsuTop2")
	KakeritsuTop3 = Request("KakeritsuTop3")
	KakeritsuTop4 = Request("KakeritsuTop4")
	KakeritsuTop5 = Request("KakeritsuTop5")
	KakeritsuBot1 = Request("KakeritsuBot1")
	KakeritsuBot2 = Request("KakeritsuBot2")
	KakeritsuBot3 = Request("KakeritsuBot3")
	KakeritsuBot4 = Request("KakeritsuBot4")
	KakeritsuBot5 = Request("KakeritsuBot5")


	RouteType = Request("RouteType")
	KouriBottun = Request("KouriBottun")

	DbEnshuCD = Request("DbEnshuCD")

	EnshuCD = LCase(Request("EnshuCD"))
	EnshuID = Request("EnshuID")
	EnshuPassword = Request("EnshuPassword")
	JidoBangoDenpyo = Request("JidoBangoDenpyo")
	JidoBangoShiireUriageSyorui = Request("JidoBangoShiireUriageSyorui")
	JidoBangoGinkoSyorui = Request("JidoBangoGinkoSyorui")
	JidoBangoTegata = Request("JidoBangoTegata")
	JidoBangoRyosyusyo = Request("JidoBangoRyosyusyo")

	RiyoMailKubun = Request("RiyoMailKubun")
	PrintHeaderHyoji = Request("PrintHeaderHyoji")
	TutyoSyusei = Request("TutyoSyusei")
	MeishiKyuVersionRiyo = Request("MeishiKyuVersionRiyo")
	NatsuinRiyo = Request("NatsuinRiyo")
	TozaHikidashiFurikomiKogitteHituyo = Request("TozaHikidashiFurikomiKogitteHituyo")
	TegataSyusei = Request("TegataSyusei")
	SyohinCheck = Request("SyohinCheck")
	GenbutsuCheck = Request("GenbutsuCheck")
	UnsohiSeikyusyoKyuVersionRiyo = Request("UnsohiSeikyusyoKyuVersionRiyo")
	SyohinNyusyukkoSeikousei = Request("SyohinNyusyukkoSeikousei")
	SyohinKaihatukaRiyo = Request("SyohinKaihatukaRiyo")
	
	KitakuSokoRiyo = Request("KitakuSokoRiyo")
	EnshuKubun = Request("EnshuKubun")
	WebCollaboRiyo = Request("WebCollaboRiyo")
	KouriHanbaiRiyo = Request("KouriHanbaiRiyo")

	If JidoBangoDenpyo = "" Then JidoBangoDenpyo = "0" End If
	If JidoBangoShiireUriageSyorui = "" Then JidoBangoShiireUriageSyorui = "0" End If
	If JidoBangoGinkoSyorui = "" Then JidoBangoGinkoSyorui = "0" End If
	If JidoBangoTegata = "" Then JidoBangoTegata = "0" End If
	If JidoBangoRyosyusyo = "" Then JidoBangoRyosyusyo = "0" End If
	If TozaHikidashiFurikomiKogitteHituyo = "" Then TozaHikidashiFurikomiKogitteHituyo = "0" End If

	Query = "exec SPM演習更新_小売販売 '" & GB_SystemCD & "'," & "'" & EnshuCD & "'"
	Query = Query & "," & HanbaiShuruiSeigen & ""
	Query = Query & "," & HanbaiSuryoSeigen & ""
	Query = Query & "," & HanbaiTankaKijun & ""
	Query = Query & "," & SeitoSu1 & ""
	Query = Query & "," & SeitoSu2 & ""
	Query = Query & "," & SeitoSu3 & ""
	Query = Query & "," & SeitoSu4 & ""
	Query = Query & "," & SeitoSu5 & ""
	Query = Query & "," & KakeritsuTop1 & ""
	Query = Query & "," & KakeritsuTop2 & ""
	Query = Query & "," & KakeritsuTop3 & ""
	Query = Query & "," & KakeritsuTop4 & ""
	Query = Query & "," & KakeritsuTop5 & ""
	Query = Query & "," & KakeritsuBot1 & ""
	Query = Query & "," & KakeritsuBot2 & ""
	Query = Query & "," & KakeritsuBot3 & ""
	Query = Query & "," & KakeritsuBot4 & ""
	Query = Query & "," & KakeritsuBot5 & ""
	
	Set Content = OpenQuery(Query)
	If Content.Fields.Count > 0 Then
		rsts = Content.Fields(0)
	End If


	Session(HomeAlias & "EnshuCD") = EnshuCD
	Session(HomeAlias & "EnshuMeisyo") = ConvEnshuMeisyo(EnshuCD)

	Response.Redirect("fm_kourihanbai_view.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType)

'Call DebugResponse("Query",Query)

End Sub
%>