<!-- #include file="../../include.asp" -->

<%
'<!-- 
'################################################
' 	名称	:演習追加入力		
' 	作成日:2002/9/4
' 	作成者:徳田
' 	目的 :演習追加入力の画面を表示する。
' 	概要	:
' 	 <<表示>>
'	・演習追加入力画面
'	
'###############################################
'-->



main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim EnshuName, EnshuID, EnshuPassword
	Dim JidoBangoDenpyo, JidoBangoShiireUriageSyorui, JidoBangoGinkoSyorui, JidoBangoTegata, JidoBangoRyosyusyo
	Dim RiyoMailKubun, PrintHeaderHyoji, TutyoSyusei, MeishiKyuVersionRiyo, NatsuinRiyo
	Dim TozaHikidashiFurikomiKogitteHituyo, TegataSyusei
	Dim SyohinCheck, GenbutsuCheck, UnsohiSeikyusyoKyuVersionRiyo
	Dim SyohinNyusyukkoSeikousei, SyohinKaihatukaRiyo
	Dim ErrMsg
	
	Dim KitakuSokoRiyo
	Dim NyuShukkoTanto
	Dim EnshuKubun
	Dim WebCollaboRiyo
	Dim KouriHanbaiRiyo
	Dim GenkaKaikeiRiyo
	Dim ShiireUriageJyuHasshin
	Dim ShiireUriageSyoruiHikae
	Dim SouhuzumiTegataHyoji
	Dim FromYmd
	Dim ToYmd
	Dim Jissenbi
	Dim InputShiwaketyoKyuVersionRiyo
	Dim JitsuinRiyo
	Dim UkeshoKakunin
	Dim SenpoHitsuyo
	Dim ShukkoUkeshoHitsuyo
	Dim AiteShukkoHitsuyo
	Dim JishaZaikoHitsuyo
	Dim ShijokanShiireRiyo
	Dim KanribuUnchinShogakari
	Dim ShiireUriageKenninKI '見積依頼書
	Dim ShiireUriageKenninKM '見積書
	Dim ShiireUriageKenninKC '注文書
	Dim ShiireUriageKenninKU '注文請書
	Dim ShiireUriageKenninKB '物品受領書
	Dim ShiireUriageKenninKN '納品請求書
	Dim ShiireUriageKenninKX '管理部買入申込書
	Dim ShiireUriageKenninKO '管理部宛物品受領書
	Dim ShiireUriageKenninKY '管理部売渡申込書
	Dim ShiireUriageKenninKP '管理部宛納品請求書

	Dim ShameiYusen

	Dim HaraidashiTankaRiyo

	Dim Invoice
	Dim TaxRate

	Dim KurikoshiEnshuCD
	Dim KurikoshiEnshuMei

	Dim Query
	Dim Content

	EnshuCD = Request("EnshuCD")


	If EnshuCD <> "" Then
		Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			EnshuName = Content.Fields("演習名称")
			EnshuKubun = Content.Fields("演習区分")
			EnshuID = Content.Fields("演習管理者ID")
			EnshuPassword = Content.Fields("演習管理者パスワード")
			JidoBangoDenpyo = Content.Fields("自動番号伝票")
			JidoBangoShiireUriageSyorui = Content.Fields("自動番号仕入売上書類")
			JidoBangoGinkoSyorui = Content.Fields("自動番号銀行書類")
			JidoBangoTegata = Content.Fields("自動番号手形")
			JidoBangoRyosyusyo = Content.Fields("自動番号領収書")
			RiyoMailKubun = Content.Fields("メール利用")
			PrintHeaderHyoji = Content.Fields("印刷ヘッダー表示")
			TutyoSyusei = Content.Fields("通帳手動修正")
			MeishiKyuVersionRiyo = Content.Fields("名刺作成旧バージョン利用")
			MeishiKyuVersionRiyo = 0	'名刺作成旧バージョン利用は常にOFF(061113小野)
			InputShiwaketyoKyuVersionRiyo = Content.Fields("手入力仕訳帳旧バージョン利用")
			NatsuinRiyo = Content.Fields("捺印利用")
			TozaHikidashiFurikomiKogitteHituyo = Content.Fields("当座引出振込小切手必要")
			TegataSyusei = Content.Fields("手形修正")
			SyohinCheck = Content.Fields("商品チェック表示")
			GenbutsuCheck = Content.Fields("現物チェック表示")
			UnsohiSeikyusyoKyuVersionRiyo = Content.Fields("運送費請求書旧バージョン利用")
			SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用")
			SyohinKaihatukaRiyo = Content.Fields("商品開発課利用")
			KitakuSokoRiyo = "" & Content.Fields("寄託倉庫利用")
			NyuShukkoTanto = "" & Content.Fields("倉庫部利用")
			WebCollaboRiyo = "" & Content.Fields("WebCollabo利用")
			KouriHanbaiRiyo = "" & Content.Fields("小売販売有無")
			GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用")
			ShiireUriageJyuHasshin = Content.Fields("仕入売上書類受発信利用")
			Dim TmpKnnin
			If InStr("" & Content.Fields("仕入売上書類検認利用"), ";") > 0 Then
				TmpKnnin = Split("" & Content.Fields("仕入売上書類検認利用"), ";")
			Else
				TmpKnnin = Split("" & Content.Fields("仕入売上書類検認利用"), ",") '旧仕様整合のため
			End If
			Dim KCnt
			For KCnt = 0 To UBound(TmpKnnin)
				TmpKnnin(KCnt) = Trim(TmpKnnin(KCnt))
				If TmpKnnin(KCnt) = "KI" Then
					ShiireUriageKenninKI = TmpKnnin(KCnt) '見積依頼書
				ElseIf TmpKnnin(KCnt) = "KM" Then
					ShiireUriageKenninKM = TmpKnnin(KCnt) '見積書
				ElseIf TmpKnnin(KCnt) = "KC" Then
					ShiireUriageKenninKC = TmpKnnin(KCnt) '注文書
				ElseIf TmpKnnin(KCnt) = "KU" Then
					ShiireUriageKenninKU = TmpKnnin(KCnt) '注文請書
				ElseIf TmpKnnin(KCnt) = "KB" Then
					ShiireUriageKenninKB = TmpKnnin(KCnt) '物品受領書
				ElseIf TmpKnnin(KCnt) = "KN" Then
					ShiireUriageKenninKN = TmpKnnin(KCnt) '納品請求書
				ElseIf TmpKnnin(KCnt) = "KX" Then
					ShiireUriageKenninKX = TmpKnnin(KCnt) '管理部買入申込書
				ElseIf TmpKnnin(KCnt) = "KO" Then
					ShiireUriageKenninKO = TmpKnnin(KCnt) '管理部宛物品受領書
				ElseIf TmpKnnin(KCnt) = "KY" Then
					ShiireUriageKenninKY = TmpKnnin(KCnt) '管理部売渡申込書
				ElseIf TmpKnnin(KCnt) = "KP" Then
					ShiireUriageKenninKP = TmpKnnin(KCnt) '管理部宛納品請求書
				End If
			Next
			ShiireUriageSyoruiHikae = "" & Content.Fields("仕入売上書類控え印刷")
			ShameiYusen = "" & Content.Fields("仕入売上書類社名優先")
			SouhuzumiTegataHyoji = Content.Fields("送付済み手形表示様式")
			FromYmd = Content.Fields("会計開始日")
			ToYmd = Content.Fields("会計終了日")
			Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日"))
			JitsuinRiyo = "" & Content.Fields("実印利用")
			UkeshoKakunin = "" & Content.Fields("注文請書確認利用") 
			SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要") 
			KanribuUnchinShogakari = "" & Content.Fields("管理部買入売渡運賃諸掛") 
			ShukkoUkeshoHitsuyo = "" & Content.Fields("出庫時注文請書必要") 
			HaraidashiTankaRiyo = "" & Content.Fields("出庫時払出単価入力")
			AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要") 
			JishaZaikoHitsuyo = "" & Content.Fields("出庫時在庫必要") 
			ShijokanShiireRiyo = "" & Content.Fields("仕入他市場管理部利用") 
			Invoice = "" & Content.Fields("インボイス対応") 
			TaxRate = "" & Content.Fields("消費税")

			'この後ろに追加すると期末繰越先演習のパラメータを取得してしまうので注意
			KurikoshiEnshuCD = "" & Content.Fields("期末繰越先演習CD") 
			If KurikoshiEnshuCD <> "" Then
				Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & KurikoshiEnshuCD & "'" 
				Set Content = OpenQuery(Query)
				If (Content.BOF Or Content.EOF) Then
					KurikoshiEnshuCD = ""
				End If
			End If
		End If
	Else

	End If

	If KanribuUnchinShogakari = "" Then
		KanribuUnchinShogakari = "1"
	End If

	If UkeshoKakunin = "" Then
		UkeshoKakunin = "1"
	End If

	If ShameiYusen <> "1" Then
		ShameiYusen = "0"
	End If

	If ShijokanShiireRiyo = "" Then
		ShijokanShiireRiyo = "0"
	End If

	If WebCollaboRiyo = "" Then
		WebCollaboRiyo = "0"
	End If

	If GenkaKaikeiRiyo = "" Then
		GenkaKaikeiRiyo = "0"
	End If

	If KouriHanbaiRiyo = "" Then
		KouriHanbaiRiyo = "0"
	End If

	If NyuShukkoTanto = "" Then
		NyuShukkoTanto = "0"
	End If

	If HaraidashiTankaRiyo = "" Then
		HaraidashiTankaRiyo = "0"
	End If

	If Invoice = "" Then
		Invoice = "0"
	End If

	Dim RouteType
	RouteType = Request("RouteType")

	If RiyoMailKubun = "" Or IsNull(RiyoMailKubun) Then
		RiyoMailKubun = "1"
	End If

	If ShiireUriageSyoruiHikae <> "0" Then
		ShiireUriageSyoruiHikae = "1" '2枚印刷は廃止。控え印刷フラグに書き換える。(190809小野)
	End If

%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"  method="GET" name="form1" action="fm_enshu3_bin.asp" autocomplete="off">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="DbEnshuCD" value="<% = EnshuCD%>">
<input type="hidden" name="KouriBottun" value="0">
<!--非利用フラグ-->
<input type="hidden" name='Jissenbi' value="<% = Jissenbi %>">
<input type="hidden" name='SyohinNyusyukkoSeikousei' value="<% = SyohinNyusyukkoSeikousei %>">

<% 
	Response.Write(HtmlDesign(1))
	
	Response.Write(HttpL1(4))

	If Request("RouteType") = "Kantan" Then
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu1.asp')", "演習管理", "", "", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "", "", "", "", "", "", "", "", ""))	
	End If

	Response.Write(HttpL3("", "" ,"",  "", "", "", "", "", "", "", "", "", "", "", "", ""))
	
	Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))

	If GB_Admin = 1 Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu22.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu4.asp?EnshuCD=" & EnshuCD & "')", "", "", "", ""))
'		Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu22.asp?EnshuCD=" & EnshuCD & "')", KouriHanbaiBottunHyoji1, KouriHanbaiBottunHyoji2, "", "", "", ""))
	Else
		Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu22.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu4.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", ""))
'		Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu2.asp?EnshuCD=" & EnshuCD & "')", KouriHanbaiBottunHyoji1, KouriHanbaiBottunHyoji2, "", "", "", "", "", ""))
	End If

	Response.Write(HttpL4("演習管理", "仕入販売"))

	Response.Write(HttpL5("<font color=""#FF0000"">" & ErrMsg & "</font>"))
%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">

<table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%">
<tr>
	<TD ALIGN="CENTER">
		<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="5" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="740" HEIGHT="100%">
		<TR>
			<TD HEIGHT="30" VALIGN="TOP" ALIGN="left" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
				<TABLE WIDTH="800" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse" width="740">
				<tr> 
					<td height="24" align="center" bgcolor="#FFEE88">演習名称</td>
					<td height="24" align="center"><% = EnshuName %></td>
					<td height="24" align="center" bgcolor="#FFEE88">演習コード</td>
					<td height="24" align="center"><% = EnshuCD %></td>
				</tr>
				</table>
					<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">

				<TABLE WIDTH="740" BORDER="0" CELLPADDING="0" CELLSPACING="0">
				<tr>
					<td valign="top">
						<TABLE WIDTH="800" HEIGHT="100%" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
						<!--
						<tr>
							<td height="20" bgcolor="#FFEE88"><nbsp>入庫には相手出庫を必要とする / 出庫には在庫を必要とする</nbsp></td>
							<td height="20" valign="bottom">
								<INPUT type='radio' style="cursor:pointer;" name='SyohinNyusyukkoSeikousei' value="1" <% If SyohinNyusyukkoSeikousei = "1" Then Response.Write(" checked") End If %>>必要とする
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='SyohinNyusyukkoSeikousei' value="0" <% If SyohinNyusyukkoSeikousei = "0" Then Response.Write(" checked") End If %>>必要としない
							</td>
						</tr>
						-->
						<tr>
							<td width="330" height="20" bgcolor="#FFEE88"><nbsp>入庫には相手出庫を必要とする</nbsp></td>
							<td width="470" height="20" valign="bottom">
								<INPUT type='radio' style="cursor:pointer;" name='AiteShukkoHitsuyo' value="1" <% If AiteShukkoHitsuyo = "1" Then Response.Write(" checked") End If %>>必要とする
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='AiteShukkoHitsuyo' value="0" <% If AiteShukkoHitsuyo = "0" Then Response.Write(" checked") End If %>>必要としない
								<!--
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='AiteShukkoHitsuyo' value="0" <% If AiteShukkoHitsuyo = "0" Then Response.Write(" checked") End If %><% If KitakuSokoRiyo = "1" Then Response.Write(" disabled") End If %>>必要としない
								-->
							</td>
						</tr>
						<tr>
							<td height="20" bgcolor="#FFEE88"><nbsp>出庫には在庫を必要とする</nbsp></td>
							<td height="20" valign="bottom">
								<INPUT type='radio' style="cursor:pointer;" name='JishaZaikoHitsuyo' value="1" <% If JishaZaikoHitsuyo = "1" Then Response.Write(" checked") End If %>>必要とする
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='JishaZaikoHitsuyo' value="0" <% If JishaZaikoHitsuyo = "0" Then Response.Write(" checked") End If %>>必要としない
								<!--
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='JishaZaikoHitsuyo' value="0" <% If JishaZaikoHitsuyo = "0" Then Response.Write(" checked") End If %><% If KitakuSokoRiyo = "1" Then Response.Write(" disabled") End If %>>必要としない
								-->
							</td>
						</tr>
						<tr>
							<td height="20" bgcolor="#FFEE88"><nbsp>出庫時に払出単価を入力する</nbsp></td>
							<td height="20" valign="bottom">
								<INPUT type='radio' style="cursor:pointer;" name='HaraidashiTankaRiyo' value="0"<% If HaraidashiTankaRiyo = "0" Then Response.Write(" checked") End If %>>入力する
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='HaraidashiTankaRiyo' value="1"<% If HaraidashiTankaRiyo = "1" Then Response.Write(" checked") End If %>>入力しない
							</td>
						</tr>
						<tr>
							<td height="20" bgcolor="#FFEE88">出庫時の注文請書または管理部売渡申込書の利用</td>
							<td height="20" valign="bottom">
								<INPUT type='radio' style="cursor:pointer;" name='ShukkoUkeshoHitsuyo' value="1" <% If ShukkoUkeshoHitsuyo = "1" Then Response.Write(" checked") End If %>>必要とする
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='ShukkoUkeshoHitsuyo' value="3" <% If ShukkoUkeshoHitsuyo = "3" Then Response.Write(" checked") End If %> onClick="ShiireUriageSenpoHasshinLink2('ShukkoUkeshoHitsuyo');">発信が必要
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='ShukkoUkeshoHitsuyo' value="0" <% If ShukkoUkeshoHitsuyo = "0" Then Response.Write(" checked") End If %>>必要としない
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='ShukkoUkeshoHitsuyo' value="2" <% If ShukkoUkeshoHitsuyo = "2" Then Response.Write(" checked") End If %>>利用させない
							</td>
						</tr>
						<tr>
							<td height="20" bgcolor="#FFEE88">他市場の管理部からの仕入を利用する</td>
							<td height="20" valign="bottom">
								<INPUT type='radio' style="cursor:pointer;" name='ShijokanShiireRiyo' value="1" <% If ShijokanShiireRiyo = "1" Then Response.Write(" checked") End If %>>利用する
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='ShijokanShiireRiyo' value="0" <% If ShijokanShiireRiyo = "0" Then Response.Write(" checked") End If %>>利用しない
							</td>
						</tr>
					<% If TaxRateSelection = 1 And InvoiceMode = 1 And KitakuSokoRiyo <> "1" Then '寄託倉庫モードに設定されている演習では選択肢を表示しない(対応してないので) %>
						<tr>
							<td height="20" bgcolor="#FFEE88">仕入販売書類で適格請求書様式を利用する</td>
							<td height="20" valign="bottom">
							<% If TaxRate = "0" And Invoice = "0" Then '内税モードはインボイス利用不可(すでにその設定になっている場合は設定を維持) %>
								&nbsp;内税設定では利用できません
								<input type="hidden" name="Invoice" value="0">
							<% Else %>
								<INPUT type='radio' style="cursor:pointer;" name='Invoice' value="1" <% If Invoice = "1" Then Response.Write(" checked") End If %>>全ての書類で利用
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='Invoice' value="2" <% If Invoice = "2" Then Response.Write(" checked") End If %>>納品請求書で利用
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='Invoice' value="0" <% If Invoice = "0" Then Response.Write(" checked") End If %>>利用しない
							<% End If %>
							</td>
						</tr>
					<% End If %>
						<tr>
							<td height="20" bgcolor="#FFEE88">仕入販売書類作成時の先方書類の利用</td>
							<td height="20" valign="bottom">
								<INPUT type='radio' style="cursor:pointer;" name='SenpoHitsuyo' value="1" <% If SenpoHitsuyo = "1" Then Response.Write(" checked") End If %> onClick="ShiireUriageSenpoHasshinLink('SenpoHitsuyo');">必要とする
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='SenpoHitsuyo' value="0" <% If SenpoHitsuyo = "0" Then Response.Write(" checked") End If %>>必要としない
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='SenpoHitsuyo' value="2" <% If SenpoHitsuyo = "2" Then Response.Write(" checked") End If %>>利用させない
							</td>
						</tr>
						<tr>
							<td height="20" bgcolor="#FFEE88">注文請書確認手続きを利用する</td>
							<td height="20" valign="bottom">
								<INPUT type='radio' style="cursor:pointer;" name='UkeshoKakunin' value="1" <% If UkeshoKakunin = "1" Then Response.Write(" checked") End If %>>利用する
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='UkeshoKakunin' value="0" <% If UkeshoKakunin = "0" Then Response.Write(" checked") End If %>>利用しない
							</td>
						</tr>
						<tr>
							<td height="20" bgcolor="#FFEE88">管理部買入・売渡の運賃諸掛を商社側に固定する</td>
							<td height="20" valign="bottom">
								<INPUT type='radio' style="cursor:pointer;" name='KanribuUnchinShogakari' value="1" <% If KanribuUnchinShogakari = "1" Then Response.Write(" checked") End If %>>固定する
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='KanribuUnchinShogakari' value="0" <% If KanribuUnchinShogakari = "0" Then Response.Write(" checked") End If %>>固定しない
							</td>
						</tr>
						<tr>
							<td height="20" bgcolor="#FFEE88">仕入販売書類の受発信機能を利用する</td>
							<td height="20" valign="bottom">
								<INPUT type='radio' style="cursor:pointer;" name='ShiireUriageJyuHasshin' value="1" <% If ShiireUriageJyuHasshin = "1" Then Response.Write(" checked") End If %>>利用する
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='ShiireUriageJyuHasshin' value="0" <% If ShiireUriageJyuHasshin = "0" Then Response.Write(" checked") End If %> onClick="ShiireUriageSenpoHasshinLink('ShiireUriageJyuHasshin');ShiireUriageSenpoHasshinLink2('ShiireUriageJyuHasshin');">利用しない
							</td>
						</tr>
					<% If ShiireHanbaiKennin = 1 Then %>
						<tr>
							<td height="20" bgcolor="#FFEE88">仕入販売書類の発信前に教師の確認を必要とする</td>
							<td height="20" valign="bottom">
								<input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKI" value="KI" <% If ShiireUriageKenninKI = "KI" Then Response.Write(" checked") End If %>>見積依頼書
								 <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKC" value="KC" <% If ShiireUriageKenninKC = "KC" Then Response.Write(" checked") End If %>>注文書
								 <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKB" value="KB" <% If ShiireUriageKenninKB = "KB" Then Response.Write(" checked") End If %>>物品受領書
								 <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKX" value="KX" <% If ShiireUriageKenninKX = "KX" Then Response.Write(" checked") End If %>>管理部買入申込書<br>
								<input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKM" value="KM" <% If ShiireUriageKenninKM = "KM" Then Response.Write(" checked") End If %>>見積書&nbsp;&nbsp;&nbsp;
								 <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKU" value="KU" <% If ShiireUriageKenninKU = "KU" Then Response.Write(" checked") End If %>>注文請書
								 <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKN" value="KN" <% If ShiireUriageKenninKN = "KN" Then Response.Write(" checked") End If %>>納品請求書
								 <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKY" value="KY" <% If ShiireUriageKenninKY = "KY" Then Response.Write(" checked") End If %>>管理部売渡申込書<br>
								<input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKO" value="KO" <% If ShiireUriageKenninKO = "KO" Then Response.Write(" checked") End If %>>管理部宛物品受領書&nbsp;&nbsp;&nbsp;&nbsp;
								 <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKP" value="KP" <% If ShiireUriageKenninKP = "KP" Then Response.Write(" checked") End If %>>管理部宛納品請求書
							</td>
						</tr>
					<% Else %>
								<input type="hidden" name="ShiireUriageKenninKI" value="<% = ShiireUriageKenninKI %>">
								<input type="hidden" name="ShiireUriageKenninKC" value="<% = ShiireUriageKenninKC %>">
								<input type="hidden" name="ShiireUriageKenninKB" value="<% = ShiireUriageKenninKB %>">
								<input type="hidden" name="ShiireUriageKenninKX" value="<% = ShiireUriageKenninKX %>">
								<input type="hidden" name="ShiireUriageKenninKM" value="<% = ShiireUriageKenninKM %>">
								<input type="hidden" name="ShiireUriageKenninKU" value="<% = ShiireUriageKenninKU %>">
								<input type="hidden" name="ShiireUriageKenninKN" value="<% = ShiireUriageKenninKN %>">
								<input type="hidden" name="ShiireUriageKenninKY" value="<% = ShiireUriageKenninKY %>">
								<input type="hidden" name="ShiireUriageKenninKO" value="<% = ShiireUriageKenninKO %>">
								<input type="hidden" name="ShiireUriageKenninKP" value="<% = ShiireUriageKenninKP %>">
					<% End If %>
						<tr>
<!--
							<td height="20" bgcolor="#FFEE88">仕入販売書類の作成側の印刷様式</td>
							<td height="20" valign="bottom">
								<INPUT type='radio' style="cursor:pointer;" name='ShiireUriageSyoruiHikae' value="0" <% If ShiireUriageSyoruiHikae = "0" Then Response.Write(" checked") End If %>>通常印刷
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='ShiireUriageSyoruiHikae' value="1" <% If ShiireUriageSyoruiHikae = "1" Then Response.Write(" checked") End If %>>控え印刷
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='ShiireUriageSyoruiHikae' value="2" <% If ShiireUriageSyoruiHikae = "2" Then Response.Write(" checked") End If %>>2枚印刷
							</td>
-->
							<td height="20" bgcolor="#FFEE88">仕入販売書類の控え印刷</td>
							<td height="20" valign="bottom">
								<INPUT type='radio' style="cursor:pointer;" name='ShiireUriageSyoruiHikae' value="1" <% If ShiireUriageSyoruiHikae = "1" Then Response.Write(" checked") End If %>>利用させる
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='ShiireUriageSyoruiHikae' value="0" <% If ShiireUriageSyoruiHikae = "0" Then Response.Write(" checked") End If %>>利用させない
							</td>
						</tr>
						<tr>
							<td height="20" bgcolor="#FFEE88">仕入販売書類で自社名を優先表示する</td>
							<td height="20" valign="bottom">
								<INPUT type='radio' style="cursor:pointer;" name='ShameiYusen' value="0" <% If ShameiYusen = "0" Then Response.Write(" checked") End If %>>優先(住所の上)
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='ShameiYusen' value="1" <% If ShameiYusen = "1" Then Response.Write(" checked") End If %>>非優先(住所の下)
							</td>
						</tr>
						<tr>
							<td height="20" bgcolor="#FFEE88"><nbsp>入出庫の担当部署</nbsp></td>
							<td height="20" valign="bottom">
								<INPUT type='radio' style="cursor:pointer;" name='NyuShukkoTanto' value="0" <% If NyuShukkoTanto = "0" Then Response.Write(" checked") End If %>>仕入部・販売部
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='NyuShukkoTanto' value="1" <% If NyuShukkoTanto = "1" Then Response.Write(" checked") End If %>>倉庫部
							<% If KitakuSokoRiyo = "1" Then '寄託利用になっていなければ選択肢を表示しない %>
								&nbsp;<INPUT type='radio' style="cursor:pointer;" name='NyuShukkoTanto' value="2" <% If KitakuSokoRiyo = "1" Then Response.Write(" checked") End If %>>寄託倉庫会社
							<% End If %>
							</td>
						</tr>
						</TABLE>
					</td>
				</tr>
				</table>

			</TD>
		</TR>
		</TABLE>
	</TD>
</TR>
</TABLE>

</div>
</form>

</body>
<%
Dim HtmlFooter2
HtmlFooter2 = HtmlFooter2 & "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "function GetKaikeiKaishibi(){return '" & FromYmd & "';}" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "function GetKaikeiSyuryobi(){return '" & ToYmd & "';}" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "</SCRIPT>" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "<SCRIPT LANGUAGE=""JavaScript""> " & vbCrLf
HtmlFooter2 = HtmlFooter2 & "	Init();" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "</SCRIPT>" & vbCrLf
Response.Write(HtmlFooter2)
%>
</html>

<SCRIPT LANGUAGE="JavaScript">

	function ShiireUriageSenpoHasshinLink(Mode) {
		//ラジオボタン名の[*]は配列番号なので1個目が0になる。valueの値とは無関係。必要とする=[0]・必要としない=[1]
		if (form1.SenpoHitsuyo[0].checked == true && form1.ShiireUriageJyuHasshin[1].checked == true) {
			if (Mode == "SenpoHitsuyo") {
				alert("「仕入販売書類作成時の先方書類の利用」を \n「必要とする」に設定する場合は、 \n「仕入販売書類の受発信機能を利用する」を \n「利用する」に設定する必要があります ");
				form1.ShiireUriageJyuHasshin[0].checked = true;
			} else if (Mode == "ShiireUriageJyuHasshin") {
				alert("「仕入販売書類の受発信機能を利用する」を \n「利用しない」に設定する場合は、 \n「仕入販売書類作成時の先方書類の利用」を \n「必要としない」に設定する必要があります ");
				form1.SenpoHitsuyo[1].checked = true;
			}
		}
	}

	function ShiireUriageSenpoHasshinLink2(Mode) {
		//ラジオボタン名の[*]は配列番号なので1個目が0になる。valueの値とは無関係。必要とする=[0]・必要としない=[1]
		if (form1.ShukkoUkeshoHitsuyo[1].checked == true && form1.ShiireUriageJyuHasshin[1].checked == true) {
			if (Mode == "ShukkoUkeshoHitsuyo") {
				alert("「出庫時の注文請書または管理部売渡申込書の利用」を「発信が必要」に設定する場合は \n「仕入販売書類の受発信機能を利用する」を「利用する」に設定する必要があります ");
				form1.ShiireUriageJyuHasshin[0].checked = true;
			} else if (Mode == "ShiireUriageJyuHasshin") {
				alert("「仕入販売書類の受発信機能を利用する」を \n「利用しない」に設定する場合は、 \n「出庫時の注文請書または管理部売渡申込書の利用」を \n「必要としない」に設定する必要があります ");
				form1.ShukkoUkeshoHitsuyo[2].checked = true;
			}
		}
	}

	function SubmitCheck() {
		if (typeof(form1.NyuShukkoTanto[2]) == "object") {
			if (form1.NyuShukkoTanto[2].checked == true) {
				alert("寄託倉庫会社を利用する場合は\n 商品の入庫には相手の出庫を必要とする \n 商品の出庫には在庫を必要とする \n以上の項目が設定されます ");
				form1.AiteShukkoHitsuyo[0].checked = true;
				form1.JishaZaikoHitsuyo[0].checked = true;
			}
		}
		SubmitReal(form1);
		return true;
	}

</script>

<% 
End Sub
%>