<!-- #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 GenkaKaikeiRiyo
	Dim KouriBottun
	Dim ShiireUriageJyuHasshin
	Dim ShiireUriageSyoruiHikae
	Dim SouhuzumiTegataHyoji
	Dim Jissenbi
	Dim InputShiwaketyoKyuVersionRiyo
	Dim JitsuinRiyo
	Dim UkeshoKakunin
	Dim SenpoHitsuyo
	Dim ShukkoUkeshoHitsuyo
	Dim AiteShukkoHitsuyo
	Dim JishaZaikoHitsuyo
	Dim ShijokanShiireRiyo
	Dim KanribuUnchinShogakari
	Dim KurikoshiEnshuCD
	Dim KurikoshiEnshuMei
	Dim ShiireUriageKennin

	Dim ShameiYusen

	Dim HaraidashiTankaRiyo

	Dim NyuShukkoTanto

	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")
	GenkaKaikeiRiyo = Request("GenkaKaikeiRiyo")
	ShiireUriageJyuHasshin = Request("ShiireUriageJyuHasshin")
	ShiireUriageSyoruiHikae = Request("ShiireUriageSyoruiHikae")
	SouhuzumiTegataHyoji = Request("SouhuzumiTegataHyoji")
	Jissenbi = Request("Jissenbi")
	If Jissenbi <> "" Then
		Jissenbi = "'" & Jissenbi & "'"
	Else
		Jissenbi = "null"
	End If
	InputShiwaketyoKyuVersionRiyo = Request("InputShiwaketyoKyuVersionRiyo")
	JitsuinRiyo = Request("JitsuinRiyo")
	UkeshoKakunin = Request("UkeshoKakunin")
	SenpoHitsuyo = Request("SenpoHitsuyo")
	ShukkoUkeshoHitsuyo = Request("ShukkoUkeshoHitsuyo")
	AiteShukkoHitsuyo = Request("AiteShukkoHitsuyo")
	JishaZaikoHitsuyo = Request("JishaZaikoHitsuyo")
	ShijokanShiireRiyo = Request("ShijokanShiireRiyo")
	KanribuUnchinShogakari = Request("KanribuUnchinShogakari")

	ShiireUriageKennin = Request("ShiireUriageKenninKI")
	ShiireUriageKennin = ShiireUriageKennin & ";" & Request("ShiireUriageKenninKM")
	ShiireUriageKennin = ShiireUriageKennin & ";" & Request("ShiireUriageKenninKC")
	ShiireUriageKennin = ShiireUriageKennin & ";" & Request("ShiireUriageKenninKU")
	ShiireUriageKennin = ShiireUriageKennin & ";" & Request("ShiireUriageKenninKB")
	ShiireUriageKennin = ShiireUriageKennin & ";" & Request("ShiireUriageKenninKN")
	ShiireUriageKennin = ShiireUriageKennin & ";" & Request("ShiireUriageKenninKX")
	ShiireUriageKennin = ShiireUriageKennin & ";" & Request("ShiireUriageKenninKO")
	ShiireUriageKennin = ShiireUriageKennin & ";" & Request("ShiireUriageKenninKY")
	ShiireUriageKennin = ShiireUriageKennin & ";" & Request("ShiireUriageKenninKP")

	ShameiYusen = Request("ShameiYusen")

	HaraidashiTankaRiyo = Request("HaraidashiTankaRiyo")

	NyuShukkoTanto = Request("NyuShukkoTanto")

	KurikoshiEnshuCD = Request("KurikoshiEnshuCD")
	KurikoshiEnshuMei = Request("KurikoshiEnshuMei")

	'繰越先演習作成の場合
	If KurikoshiEnshuMei <> "" Then
		Dim EnshuCDAry
		ReDim EnshuCDAry(0)
		'演習存在チェック＆配列作成
		Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 2"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("演習名称") = KurikoshiEnshuMei Then
				Response.Write("この演習名称はすでに登録済みです。<br>")
				Response.Write("この演習を利用する場合は演習一覧メニューから選択してください。<br>")
				Response.Write("<a href=""JavaScript:history.go(-1)"">戻る</a>")
				Exit Sub
			End If
			ReDim PreServe EnshuCDAry(UBound(EnshuCDAry) + 1)	'配列+1
			Content.MoveNext
		Loop
		KurikoshiEnshuCD = ""
		Dim TmpCnt
		Dim TmpCnt2
		For TmpCnt = 0 To 999
			Dim SonzaiFlg
			SonzaiFlg = 0
			For TmpCnt2 = 1 To UBound(EnshuCDAry)
				'演習名称の左9桁＋採番3桁の演習の存在チェック
				If Left(EnshuCD, 9) & Right("00" & TmpCnt, 3) = EnshuCDAry(TmpCnt2) Then
					SonzaiFlg = 1
					Exit For
				End If
			Next
			If SonzaiFlg = 0 Then
				'存在しなければ代入
				KurikoshiEnshuCD = Left(EnshuCD, 9) & Right("00" & TmpCnt, 3)
				Exit For
			End If
		Next
		If KurikoshiEnshuCD = "" Then
			'例外対策
			Response.Write("ナンバリング制約により演習が新規作成出来ませんでした。<br>")
			Response.Write("<a href=""JavaScript:history.go(-1)"">戻る</a>")
			Exit Sub
		End If
	End If

	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
	If MeishiKyuVersionRiyo = "" Then MeishiKyuVersionRiyo = "0" End If
	If KitakuSokoRiyo = "" Then KitakuSokoRiyo = "0" End If
	If WebCollaboRiyo = "" Then WebCollaboRiyo = "0" End If
	If KouriHanbaiRiyo = "" Then KouriHanbaiRiyo = "0" End If
	If GenkaKaikeiRiyo = "" Then GenkaKaikeiRiyo = "0" End If
	If ShiireUriageJyuHasshin = "" Then ShiireUriageJyuHasshin = "0" End If
	If ShiireUriageSyoruiHikae = "" Then ShiireUriageSyoruiHikae = "0" End If
	If InputShiwaketyoKyuVersionRiyo = "" Then InputShiwaketyoKyuVersionRiyo = "0" End If
	If JitsuinRiyo = "" Then JitsuinRiyo = "0" End If
	If UkeshoKakunin = "" Then UkeshoKakunin = "0" End If
	If SenpoHitsuyo = "" Then SenpoHitsuyo = "0" End If
	If ShukkoUkeshoHitsuyo = "" Then ShukkoUkeshoHitsuyo = "0" End If
	If AiteShukkoHitsuyo = "" Then AiteShukkoHitsuyo = "0" End If
	If JishaZaikoHitsuyo = "" Then JishaZaikoHitsuyo = "0" End If
	If ShijokanShiireRiyo = "" Then JishaZaikoHitsuyo = "0" End If
	If KanribuUnchinShogakari = "" Then KanribuUnchinShogakari = "1" End If
	If ShameiYusen <> "1" Then ShameiYusen = "0" End If
	If NyuShukkoTanto = "" Then NyuShukkoTanto = "0" End If

	'入庫時相手出庫必要・出庫時在庫必要の両方が1なら商品入出庫整合性利用も1にする（寄託処理はそのままにするため）
	If AiteShukkoHitsuyo = "1" And JishaZaikoHitsuyo = "1" Then
		SyohinNyusyukkoSeikousei = "1"
	End If

	Query = "exec SPM演習更新3 '" & GB_SystemCD & "'," & "'" & EnshuCD & "'"
	Query = Query & ",'" & SyohinNyusyukkoSeikousei	& "'"
	Query = Query & ",'" & ShiireUriageSyoruiHikae	& "'"
	Query = Query & ",'" & ShameiYusen	& "'"
	Query = Query & ",'" & ShiireUriageJyuHasshin	& "'"
	Query = Query & ",'" & ShiireUriageKennin	& "'"
	Query = Query & ",'" & UkeshoKakunin	& "'"
	Query = Query & ",'" & SenpoHitsuyo	& "'"
	Query = Query & ",'" & KanribuUnchinShogakari	& "'"
	Query = Query & ",'" & ShukkoUkeshoHitsuyo	& "'"
	Query = Query & ",'" & AiteShukkoHitsuyo & "'"
	Query = Query & ",'" & JishaZaikoHitsuyo & "'"
	Query = Query & ",'" & ShijokanShiireRiyo & "'"
	Query = Query & ",'" & HaraidashiTankaRiyo & "'"
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)
	If Content.Fields.Count > 0 Then
		rsts = Content.Fields(0)
	End If

	Query = " UPDATE TC2演習M "
	If NyuShukkoTanto = "2" Then
		Query = Query & " SET 倉庫部利用 = '0', 寄託倉庫利用 = '1' "
	ElseIf NyuShukkoTanto = "1" Then
		Query = Query & " SET 倉庫部利用 = '1', 寄託倉庫利用 = '0' "
	Else
		Query = Query & " SET 倉庫部利用 = '0', 寄託倉庫利用 = '0' "
	End If
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' "
	Set Content = OpenQuery(Query)


	Session(HomeAlias & "EnshuCD") = EnshuCD
	Session(HomeAlias & "EnshuMeisyo") = ConvEnshuMeisyo(EnshuCD)
	Session(HomeAlias & "GakuseiNo") = EnshuID

' 2007.01.29 小売販売設定のボタンが押された場合の対応
	If KouriBottun = "1" Then
		Response.Redirect("fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType)
	Else
		Response.Redirect("fm_enshu3_view.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType)
	End If

End Sub
%>