
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称	：演習設定
'	作成日	：2009/11/0
'	作成者	：小野
'	概要	：
'################################################
'-->

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 ExchangeRateRiyo
	Dim GenkaKaikeiRiyo
	Dim KouriBottun
	Dim ShiireUriageJyuHasshin
	Dim ShiireUriageSyoruiHikae
	Dim SoufuzumiTegataHyoji
	Dim SoufuzumiKogitteHyoji
	Dim SoufuzumiRyoshushoHyoji
	Dim Jissenbi
	Dim InputShiwaketyoKyuVersionRiyo
	Dim JitsuinRiyo
	Dim UkeshoKakunin
	Dim SenpoHitsuyo
	Dim ShukkoUkeshoHitsuyo
	Dim AiteShukkoHitsuyo
	Dim JishaZaikoHitsuyo
	Dim KichoCheck
	Dim HyojunTankaHyoji
	Dim CheckLink
	Dim KishusetteiRiyo

	Dim KurikoshiEnshuCD
	Dim KurikoshiEnshuMei

	Dim DefShain(3)


	'数値文字変換チェック用
	Dim NumChrCheck
	NumChrCheck = ""


	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")
	KichoCheck = Request("KichoCheck")
	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")
	ExchangeRateRiyo = Request("ExchangeRateRiyo")
	GenkaKaikeiRiyo = Request("GenkaKaikeiRiyo")
	ShiireUriageJyuHasshin = Request("ShiireUriageJyuHasshin")
	ShiireUriageSyoruiHikae = Request("ShiireUriageSyoruiHikae")
	SoufuzumiTegataHyoji = Request("SoufuzumiTegataHyoji")
	SoufuzumiKogitteHyoji = Request("SoufuzumiKogitteHyoji")
	SoufuzumiRyoshushoHyoji = Request("SoufuzumiRyoshushoHyoji")
	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")
	HyojunTankaHyoji = Request("HyojunTankaHyoji")
	CheckLink = Request("CheckLink")
	KishusetteiRiyo = Request("KishusetteiRiyo")

	KurikoshiEnshuCD = Request("KurikoshiEnshuCD")
	KurikoshiEnshuMei = Request("KurikoshiEnshuMei")
	NumChrCheck = NumChrCheck & KurikoshiEnshuMei

	DefShain(1) = Request("DefShain1")
	NumChrCheck = NumChrCheck & DefShain(1)
	DefShain(2) = Request("DefShain2")
	NumChrCheck = NumChrCheck & DefShain(2)
	DefShain(3) = Request("DefShain3")
	NumChrCheck = NumChrCheck & DefShain(3)


	If KitakuSokoRiyo = "1" Then
		AiteShukkoHitsuyo = "1"
		JishaZaikoHitsuyo = "1"
	End If


	'数値文字変換チェック
	If Not(NumChrReject(NumChrCheck)) Then
		Exit Sub
	End If


	'繰越先演習作成の場合
	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
			EnshuCDAry(UBound(EnshuCDAry)) = "" & Content.Fields("演習CD")
			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
		'期末繰越先演習作成
		Dim FromYmd
		Dim ToYmd
		Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			EnshuKubun = Content.Fields("演習区分")
			FromYmd = Content.Fields("会計開始日")
			ToYmd = Content.Fields("会計終了日")
		End If
		FromYmd = DateAdd("d", 1, ToYmd)	'会計終了日の翌日が会計開始日
		ToYmd = DateAdd("d", -1, DateAdd("yyyy", 1, FromYmd))	'会計開始日の1年後の前日が会計終了
		Query = "exec SPM演習登録期末繰越先 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & EnshuKubun & "'"
		Query = Query & ", '" & KurikoshiEnshuCD & "', '" & KurikoshiEnshuMei & "', '" & FromYmd & "', '" & ToYmd & "'"
		Set Content = OpenQuery(Query)
	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 ExchangeRateRiyo = "" Then ExchangeRateRiyo = "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 CheckLink = "" Then CheckLink = "0" End If
	If KishusetteiRiyo = "" Then KishusetteiRiyo = "3" End If

	'入庫時相手出庫必要・出庫時在庫必要の両方が1なら商品入出庫整合性利用も1にする（寄託処理はそのままにするため）
	If AiteShukkoHitsuyo = "1" And JishaZaikoHitsuyo = "1" Then
		SyohinNyusyukkoSeikousei = "1"
	End If

	Query = "exec SPM演習更新4 '" & GB_SystemCD & "'," & "'" & EnshuCD & "'"
	Query = Query & ",'" & EnshuID & "'"
	Query = Query & ",'" & EnshuPassword & "'"
	Query = Query & ",'" & JidoBangoDenpyo	& "'"
	Query = Query & ",'" & JidoBangoShiireUriageSyorui	& "'"
	Query = Query & ",'" & JidoBangoGinkoSyorui	& "'"
	Query = Query & ",'" & JidoBangoTegata	& "'"
	Query = Query & ",'" & JidoBangoRyosyusyo	& "'"
	Query = Query & ",'" & RiyoMailKubun	& "'"
	Query = Query & ",'" & PrintHeaderHyoji	& "'"
	Query = Query & ",'" & MeishiKyuVersionRiyo	& "'"
	Query = Query & ",'" & NatsuinRiyo	& "'"
	Query = Query & ",'" & KichoCheck	& "'"
	Query = Query & ",'" & SyohinCheck	& "'"
	Query = Query & ",'" & GenbutsuCheck	& "'"
	Query = Query & ",'" & UnsohiSeikyusyoKyuVersionRiyo	& "'"
	Query = Query & ",'" & SyohinKaihatukaRiyo	& "'"
	Query = Query & ",'" & KitakuSokoRiyo	& "'"
	Query = Query & ",'" & WebCollaboRiyo	& "'"
	Query = Query & ",'" & ExchangeRateRiyo	& "'"
	Query = Query & ",'" & KouriHanbaiRiyo	& "'"
	Query = Query & ",'" & GenkaKaikeiRiyo	& "'"
	Query = Query & ",'" & SoufuzumiTegataHyoji	& "'"
	Query = Query & ",'" & SoufuzumiKogitteHyoji	& "'"
	Query = Query & ",'" & SoufuzumiRyoshushoHyoji	& "'"
	Query = Query & ",'" & InputShiwaketyoKyuVersionRiyo	& "'"
	Query = Query & ",'" & JitsuinRiyo	& "'"
	Query = Query & ",'" & KurikoshiEnshuCD & "'"
	Query = Query & ",'" & AiteShukkoHitsuyo & "'"
	Query = Query & ",'" & JishaZaikoHitsuyo & "'"
	Query = Query & ",'" & HyojunTankaHyoji & "'"
	Query = Query & ",'" & CheckLink & "'"
	Query = Query & ",'" & KishusetteiRiyo & "'"

'Response.Write(Query)
'Exit Sub
	
	Set Content = OpenQuery(Query)
	If Content.Fields.Count > 0 Then
		rsts = Content.Fields(0)
	End If


Call Application.Lock()
	Query = "  "
	Query = Query & " DELETE FROM TDA社員M "
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
	Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
	Set Content = OpenQuery(Query)
	Dim SCnt
	For SCnt = 1 To 3
		If DefShain(SCnt) <> "" Then
			Query = "  "
			Query = Query & " INSERT INTO TDA社員M (システムCD, 演習CD, 社員CD, 氏名) "
			Query = Query & " VALUES ('" & GB_SystemCD & "', '" & EnshuCD & "', " & SCnt & ", '" & DefShain(SCnt) & "') "
			Set Content = OpenQuery(Query)
		End If
	Next
Call Application.Unlock()


	Session(HomeAlias & "EnshuCD") = EnshuCD
	Session(HomeAlias & "EnshuMeisyo") = ConvEnshuMeisyo(EnshuCD)
	Session(HomeAlias & "GakuseiNo") = EnshuID
	Session(HomeAlias & "EnshuID") = UCase(EnshuID)
	Session(HomeAlias & "EnshuPassword") = UCase(EnshuPassword)

' 2007.01.29 小売販売設定のボタンが押された場合の対応
	If KouriBottun = "1" Then
		Response.Redirect("fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType)
	Else
		Response.Redirect("fm_enshu4_view.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType)
	End If

End Sub
%>