
<!-- #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 Jissenbi
	Dim MasterEnshu
	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 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("名刺作成旧バージョン利用")
			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("仕入売上書類受発信利用")
			ShiireUriageSyoruiHikae = Content.Fields("仕入売上書類控え印刷")
			ShameiYusen = "" & 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
			SouhuzumiTegataHyoji = Content.Fields("送付済み手形表示様式")
			Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日"))
			JitsuinRiyo = "" & Content.Fields("実印利用")
			UkeshoKakunin = "" & Content.Fields("注文請書確認利用") 
			SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要") 
			ShukkoUkeshoHitsuyo = "" & Content.Fields("出庫時注文請書必要") 
			KanribuUnchinShogakari = "" & Content.Fields("管理部買入売渡運賃諸掛") 
			AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要") 
			JishaZaikoHitsuyo = "" & Content.Fields("出庫時在庫必要") 
			ShijokanShiireRiyo = "" & Content.Fields("仕入他市場管理部利用") 
			MasterEnshu = Content.Fields("マスター演習")

			HaraidashiTankaRiyo = "" & Content.Fields("出庫時払出単価入力")

			'この後ろに追加すると期末繰越先演習のパラメータを取得してしまうので注意
			KurikoshiEnshuCD = "" & Content.Fields("期末繰越先演習CD") 
			If KurikoshiEnshuCD <> "" Then
				Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & KurikoshiEnshuCD & "'" 
				Set Content = OpenQuery(Query)
				If Not(Content.BOF Or Content.EOF) Then
					KurikoshiEnshuMei = "" & Content.Fields("演習名称") 
				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 HaraidashiTankaRiyo = "" Then
		HaraidashiTankaRiyo = "0"
	End If

	If WebCollaboRiyo = "" Then
		WebCollaboRiyo = "0"
	End If

	If GenkaKaikeiRiyo = "" Then
		GenkaKaikeiRiyo = "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 = 1;
-->
</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">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="DbEnshuCD" value="<% = EnshuCD%>">
<% 
	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("", "" ,"",  "", "", "", "", "", "", "", "", "", "", "", "", ""))
	
	If DebugFlg > 1 Or MasterEnshu <> "1" Then
		'Response.Write(HttpL3_1("修正", "tblbtn('fm_enshu3.asp?EnshuCD=" & EnshuCD & "')", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", "", "", ""))
		Response.Write(HttpL3_1("修正", "tblbtn('fm_enshu3.asp?EnshuCD=" & EnshuCD & "')", "演習操作", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control');", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", ""))
	Else
		'Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
		Response.Write(HttpL3_1("&nbsp;演習操作&nbsp;", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control')", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin')", "", "", "", "", "", ""))
	End If

	If GB_Admin = 1 Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu22_view.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu4_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", ""))
'		Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu22_view.asp?EnshuCD=" & EnshuCD & "')", KouriHanbaiBottunHyoji1, KouriHanbaiBottunHyoji2, "", "", "", ""))
	Else
		Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu22_view.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu4_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", ""))
'		Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu22_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL4("演習管理", "仕入販売"))

	If MasterEnshu = "1" Then
		Response.Write(HttpL5("マスター演習は設定を変更出来ません"))
	Else
		Response.Write(HttpL5("<font color=""#FF0000"">" & ErrMsg & "</font>"))
	End If
%>

<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" onclick="tblbtn('fm_enshu0_view.asp?EnshuCD=<% = EnshuCD %>')">演習コード</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">
												<% If SyohinNyusyukkoSeikousei <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %>　
												<% If SyohinNyusyukkoSeikousei <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %>　
											</td>
										</tr>
										-->
										<tr>
											<td width="330" height="20" bgcolor="#FFEE88"><nbsp>入庫には相手出庫を必要とする</nbsp></td>
											<td width="470" height="20">
												<% If AiteShukkoHitsuyo <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %>　
												<% If AiteShukkoHitsuyo <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %>　
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88"><nbsp>出庫には在庫を必要とする</nbsp></td>
											<td height="20">
												<% If JishaZaikoHitsuyo <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %>　
												<% If JishaZaikoHitsuyo <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %>　
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88"><nbsp>出庫時に払出単価を入力する</nbsp></td>
											<td height="20">
												<% If HaraidashiTankaRiyo <> "0" Then Response.Write("<font color=""#888888"">入力する</font>") Else Response.Write("入力する") End If %>　
												<% If HaraidashiTankaRiyo <> "1" Then Response.Write("<font color=""#888888"">入力しない</font>") Else Response.Write("入力しない") End If %>　
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88">出庫時の注文請書または管理部売渡申込書の利用</td>
											<td height="20">
												<% If ShukkoUkeshoHitsuyo <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %>　
												<% If ShukkoUkeshoHitsuyo <> "3" Then Response.Write("<font color=""#888888"">発信が必要</font>") Else Response.Write("発信が必要") End If %>　
												<% If ShukkoUkeshoHitsuyo <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %>　
												<% If ShukkoUkeshoHitsuyo <> "2" Then Response.Write("<font color=""#888888"">利用させない</font>") Else Response.Write("利用させない") End If %>　
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88">他市場の管理部からの仕入を利用する</td>
											<td height="20">
												<% If ShijokanShiireRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>　
												<% If ShijokanShiireRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>　
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88">仕入販売書類作成時の先方書類の利用</td>
											<td height="20">
												<% If SenpoHitsuyo <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %>　
												<% If SenpoHitsuyo <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %>　
												<% If SenpoHitsuyo <> "2" Then Response.Write("<font color=""#888888"">利用させない</font>") Else Response.Write("利用させない") End If %>　
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88">注文請書確認手続きを利用する</td>
											<td height="20">
												<% If UkeshoKakunin <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>　
												<% If UkeshoKakunin <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>　
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88">管理部買入・売渡の運賃諸掛を商社側に固定する</td>
											<td height="20">
												<% If KanribuUnchinShogakari <> "1" Then Response.Write("<font color=""#888888"">固定する</font>") Else Response.Write("固定する") End If %>　
												<% If KanribuUnchinShogakari <> "0" Then Response.Write("<font color=""#888888"">固定しない</font>") Else Response.Write("固定しない") End If %>　
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88">仕入販売書類の受発信機能を利用する</td>
											<td height="20">
												<% If ShiireUriageJyuHasshin <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>　
												<% If ShiireUriageJyuHasshin <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>　
											</td>
										</tr>
									<% If ShiireHanbaiKennin = 1 Then %>
										<tr>
											<td height="20" bgcolor="#FFEE88">仕入販売書類の発信前に教師の確認を必要とする</td>
											<td height="20">
												<% If ShiireUriageKenninKI <> "KI" Then Response.Write("<font color=""#888888"">見積依頼書</font>") Else Response.Write("見積依頼書") End If %>　
												<% If ShiireUriageKenninKC <> "KC" Then Response.Write("<font color=""#888888"">注文書</font>") Else Response.Write("注文書") End If %>　
												<% If ShiireUriageKenninKB <> "KB" Then Response.Write("<font color=""#888888"">物品受領書</font>") Else Response.Write("物品受領書") End If %>　
												<% If ShiireUriageKenninKX <> "KX" Then Response.Write("<font color=""#888888"">管理部買入申込書</font>") Else Response.Write("管理部買入申込書") End If %><br>
												<% If ShiireUriageKenninKM <> "KM" Then Response.Write("<font color=""#888888"">見積書</font>") Else Response.Write("見積書") End If %>　&nbsp;&nbsp;&nbsp;
												<% If ShiireUriageKenninKU <> "KU" Then Response.Write("<font color=""#888888"">注文請書</font>") Else Response.Write("注文請書") End If %>　
												<% If ShiireUriageKenninKN <> "KN" Then Response.Write("<font color=""#888888"">納品請求書</font>") Else Response.Write("納品請求書") End If %>　
												<% If ShiireUriageKenninKY <> "KY" Then Response.Write("<font color=""#888888"">管理部売渡申込書</font>") Else Response.Write("管理部売渡申込書") End If %><br>
												<% If ShiireUriageKenninKO <> "KO" Then Response.Write("<font color=""#888888"">管理部宛物品受領書</font>") Else Response.Write("管理部宛物品受領書") End If %>　
												<% If ShiireUriageKenninKP <> "KP" Then Response.Write("<font color=""#888888"">管理部宛納品請求書</font>") Else Response.Write("管理部宛納品請求書") End If %>　
											</td>
										</tr>
									<% End If %>
										<tr>
<!--
											<td height="20" bgcolor="#FFEE88">仕入販売書類の作成側の印刷様式</td>
											<td height="20">
												<% If ShiireUriageSyoruiHikae <> "0" Then Response.Write("<font color=""#888888"">通常印刷</font>") Else Response.Write("通常印刷") End If %>　
												<% If ShiireUriageSyoruiHikae <> "1" Then Response.Write("<font color=""#888888"">控え印刷</font>") Else Response.Write("控え印刷") End If %>　
												<% If ShiireUriageSyoruiHikae <> "2" Then Response.Write("<font color=""#888888"">2枚印刷</font>") Else Response.Write("2枚印刷") End If %>　
											</td>
-->
											<td height="20" bgcolor="#FFEE88">仕入販売書類の控え印刷</td>
											<td height="20">
												<% If ShiireUriageSyoruiHikae <> "1" Then Response.Write("<font color=""#888888"">利用させる</font>") Else Response.Write("利用させる") End If %>　
												<% If ShiireUriageSyoruiHikae <> "0" Then Response.Write("<font color=""#888888"">利用させない</font>") Else Response.Write("利用させない") End If %>　
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88">仕入販売書類で自社名を優先表示する</td>
											<td height="20">
												<% If ShameiYusen <> "0" Then Response.Write("<font color=""#888888"">優先（住所の上）</font>") Else Response.Write("優先（住所の上）") End If %>　
												<% If ShameiYusen <> "1" Then Response.Write("<font color=""#888888"">非優先（住所の下）</font>") Else Response.Write("非優先（住所の下）") End If %>　
											</td>
										</tr>
										<tr>
											<td height="20" bgcolor="#FFEE88">入出庫の担当部署</td>
											<td height="20">
												<% If NyuShukkoTanto <> "0" Or KitakuSokoRiyo = "1" Then Response.Write("<font color=""#888888"">仕入部・販売部</font>") Else Response.Write("仕入部・販売部") End If %>　
												<% If NyuShukkoTanto <> "1" Or KitakuSokoRiyo = "1" Then Response.Write("<font color=""#888888"">倉庫部</font>") Else Response.Write("倉庫部") End If %>　
												<% If KitakuSokoRiyo <> "1" Then Response.Write("<font color=""#888888"">寄託倉庫会社</font>") Else Response.Write("寄託倉庫会社") End If %>　
											</td>
										</tr>
									</TABLE>
								</td>
							</tr>
						</table>

					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>

</div>
</form>

</body>
<% = HtmlFooter %>
</html>
<SCRIPT LANGUAGE="JavaScript">
	function SubmitCheck()
	{		

		SubmitReal(form1);
		return true;
	}

		
</script> 	 

<% 
End Sub
%>