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

<%
'<!--
'################################################
'	名称	:自社情報登録
'	作成日:2002/8/30
'	作成者:山崎
'	目的 :自社情報を登録する
'	概要	:
'	 <<表示>>
'	・自社情報を登録に必要な入力フィールドが表示
'	2002/9/30:山崎:修正:会社略名称を追加
'################################################
'-->
'
'
%>

<%

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


	Session(HomeAlias & "GyosyuColorObj") = "w"

	Dim Query
	Dim Content
	Dim KaisyaKanaMeisyo, KaisyaMeisyo, KaisyaRyakuMeisyo, YubinBango
	Dim Jyusyo1, Jyusyo2, TEL, FAX, SetsuritsuNengappi
	Dim DaityoTorishimariyaku, Shihonkin
	Dim Torishimariyaku1, Torishimariyaku2, Mokuteki
	Dim Torishimariyaku1Jyusyo, Torishimariyaku2Jyusyo
	Dim ShijyoCD, GyosyuCD
	Dim DaityoTorishimariyakuJyusyo
	Dim KitakuGaisyaCD

	Dim Hokkinin4
	Dim Hokkinin5
	Dim Hokkinin4Jusho
	Dim Hokkinin5Jusho

	Dim Kabushiki1
	Dim Kabushiki2
	Dim Kabushiki3
	Dim Kabushiki4
	Dim Kabushiki5
	Dim Gakumen

	Query = "exec SPV自社情報取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		KaisyaKanaMeisyo = Content.Fields("会社カナ名称")
		KaisyaMeisyo = Content.Fields("会社名称")
		KaisyaRyakuMeisyo = Content.Fields("会社略名称")
		YubinBango = Content.Fields("郵便番号")
		Jyusyo1 = Content.Fields("住所1")
		Jyusyo2 = Content.Fields("住所2")
		TEL = Content.Fields("TEL")
		FAX = Content.Fields("FAX")
		DaityoTorishimariyaku = Content.Fields("代表取締役")
		Shihonkin = Content.Fields("資本金")
		Mokuteki = Content.Fields("事業目的")
		Mokuteki = Replace(Mokuteki , "<br>", vbCrLf)
		Mokuteki = Server.HTMLEncode(Mokuteki)
		ShijyoCD = Content.Fields("市場CD")
		GyosyuCD = Content.Fields("業種CD")
		KitakuGaisyaCD = Content.Fields("寄託会社CD")
		Kabushiki1 = Content.Fields("発起人1株式数")
		Kabushiki2 = Content.Fields("発起人2株式数")
		Kabushiki3 = Content.Fields("発起人3株式数")
		Kabushiki4 = Content.Fields("発起人4株式数")
		Kabushiki5 = Content.Fields("発起人5株式数")
		Gakumen = Content.Fields("株式の額面")

'		Dim tmp1, tmp2
'		tmp1 = Content.Fields("取締役")

'		tmp2 = split(tmp1, "/")
'		If UBound(tmp2) >= 1 Then
'			Torishimariyaku1 = tmp2(0)
'			Torishimariyaku2	= tmp2(1)
'		End If

		Torishimariyaku1 = Content.Fields("取締役1")
		Torishimariyaku2 = Content.Fields("取締役2")
		Torishimariyaku1Jyusyo = Content.Fields("取締役1住所")
		Torishimariyaku2Jyusyo = Content.Fields("取締役2住所")
		DaityoTorishimariyakuJyusyo = Content.Fields("代表取締役住所")

		Hokkinin4 = Content.Fields("発起人4")
		Hokkinin5 = Content.Fields("発起人5")
		Hokkinin4Jusho = Content.Fields("発起人4住所")
		Hokkinin5Jusho = Content.Fields("発起人5住所")

	End If

	If "" & Gakumen = "" Then
		Gakumen = 50000
	End If

	Dim MotoShihonkin
	MotoShihonkin = "" & ConvIntToMoney(Shihonkin, false, false)

	Dim Kitakuriyou

	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Kitakuriyou = Content.Fields("寄託倉庫利用") 
	End If
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	ExitFlg = 1;
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
-->
</SCRIPT>

<body onkeyudown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form name="form1" method="POST" action="regcorp_bin.asp" autocomplete="off">
<input type="hidden" name="SelectType" value="">
<input type="hidden" name="WBCLB" value="<% = Request("WBCLB") %>">

<%
	Response.Write(HtmlDesign(9))

	Response.Write(HttpL1(0))

	If PackageMode = 1 Then
		Response.Write(HttpL2("自社設定" , "", "", "", "", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL2("会社選択", "tblbtn( 'default.asp')","自社設定" , "", "", "", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL3("", "", "", "", "","" ,"", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL4("", ""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
	<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="20" BGCOLOR="#FFFFFF" style="BORDER:1px solid #000000" HEIGHT="100">
		<TR>
			<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
				<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="100%" HEIGHT="100">
					<TR ALIGN="CENTER" VALIGN="BOTTOM">
						<TD HEIGHT="25" ALIGN="CENTER" VALIGN="BOTTOM">
							<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="25" CLASS="tx1618">
								<TR>
									<TD ALIGN="LEFT" valign="top">自社設定に必要な情報を入力してください</TD>
									<TD ALIGN="RIGHT">


									</TD>
								</TR>
							</TABLE>
						</TD>
					</TR>
					<TR ALIGN="CENTER">
						<TD VALIGN="MIDDLE" ALIGN="CENTER">
							<TABLE HEIGHT="100" BORDER="0" CELLSPACING="0" CELLPADDING="0" STYLE="border:solid 1px #FF66BB">
								<TR>
									<TD>
										<table border="0" height="<% If PackageMode <> "1" Then %>470<% Else %>200<% End If %>" cellpadding="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" CLASS="tx1416">
											<tr>
												<td nowrap width="90" align="right">&nbsp;会社名称&nbsp;&nbsp;</td>
												<td nowrap width="540">
												<input OnKeyDown="FormKeyDown(this)" type="text" name="KaisyaMeisyo" size="52" value="<% = KaisyaMeisyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,40,true)"></td>
											</tr>
											<tr>
												<td nowrap align="right">&nbsp;会社略名&nbsp;&nbsp;</td>
												<td nowrap>
												<input OnKeyDown="FormKeyDown(this)" type="text" name="KaisyaRyakuMeisyo" size="12" value="<% = KaisyaRyakuMeisyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,10,true)">&nbsp;<span class="tx1214">※類似商号がある場合は、会社を設立できません。</span></td>
											</tr>
										<% If PackageMode = "1" Then %>
											<input type="hidden" name="GyosyuCD" value="S">
											<input type="hidden" name="ShijyoCD" value="1">
											<input type="hidden" name="KitakuGaisyaCD" value="">
											<% If 0=1 Then %>
											<input type="hidden" name="YubinBango" value="<% = YubinBango %>">
											<input type="hidden" name="Jyusyo1" value="<% = Jyusyo1 %>">
											<input type="hidden" name="Jyusyo2" value="<% = Jyusyo2 %>">
											<input type="hidden" name="TEL" value="<% = TEL %>">
											<input type="hidden" name="FAX" value="<% = FAX %>">
											<% End If %>
											<input type="hidden" name="DaityoTorishimariyaku" value="<% = DaityoTorishimariyaku %>">
											<input type="hidden" name="DaityoTorishimariyakuJyusyo" value="<% = DaityoTorishimariyakuJyusyo %>">
											<input type="hidden" name="Kabushiki1" value="<% = ConvIntToMoney(Kabushiki1, false, false) %>">
											<input type="hidden" name="Torishimariyaku1" value="<% = Torishimariyaku1 %>">
											<input type="hidden" name="Torishimariyaku1Jyusyo" value="<% = Torishimariyaku1Jyusyo %>">
											<input type="hidden" name="Kabushiki2" value="<% = ConvIntToMoney(Kabushiki2, false, false) %>">
											<input type="hidden" name="Torishimariyaku2" value="<% = Torishimariyaku2 %>">
											<input type="hidden" name="Torishimariyaku2Jyusyo" value="<% = Torishimariyaku2Jyusyo %>">
											<input type="hidden" name="Kabushiki3" value="<% = ConvIntToMoney(Kabushiki3, false, false) %>">
											<input type="hidden" name="Hokkinin4" value="<% = Hokkinin4 %>">
											<input type="hidden" name="Hokkinin4Jusho" value="<% = Hokkinin4Jusho %>">
											<input type="hidden" name="Kabushiki4" value="<% = ConvIntToMoney(Kabushiki4, false, false) %>">
											<input type="hidden" name="Hokkinin5" value="<% = Hokkinin5 %>">
											<input type="hidden" name="Hokkinin5Jusho" value="<% = Hokkinin5Jusho %>">
											<input type="hidden" name="Kabushiki5" value="<% = ConvIntToMoney(Kabushiki5, false, false) %>">
											<input type="hidden" name="Gakumen" value="<% = Gakumen %>">
											<input type="hidden" name="Shihonkin" value="<% = Shihonkin %>">
											<input type="hidden" name="Mokuteki" value="<% = Mokuteki %>">
										<% End If %>
										<% If PackageMode <> "1" Then %>
											<tr>
												<td nowrap align="right">&nbsp;業 種&nbsp;&nbsp;</td>
												<td nowrap>
													<select size="1" name="GyosyuCD" class="tbox4">
														<option value="">※ 選択してください ※</option>
														<%
															Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','業種CD'"
															Set Content = OpenQuery(Query)
															Do While Not(Content.BOF Or Content.EOF)
																	Response.Write("<option value=""" & Content.Fields("区分CD") & """")
																	If Content.Fields("区分CD") = GyosyuCD Then
																		Response.Write(" selected")
																	End If
																	Response.Write(">" & Content.Fields("区分名称") & "</option>" & vbCrLf)
																Content.MoveNext
															Loop
														%>
													</select>
												</td>
											</tr>

											<tr>
												<td nowrap align="right">&nbsp;市 場&nbsp;&nbsp;</td>
												<td nowrap>
													<select size="1" name="ShijyoCD" class="tbox4">
														<option value="">※ 選択してください ※</option>
														<%
															Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & GB_EnshuCD & "'"
															Set Content = OpenQuery(Query)
															Do While Not(Content.BOF Or Content.EOF)
																Response.Write("<option value=""" & Content.Fields("市場CD") & """")
																If Content.Fields("市場CD") = ShijyoCD Then
																	Response.Write(" selected")
																End If
																Response.Write(">" & Content.Fields("市場名称") & "</option>" & vbCrLf)
																Content.MoveNext
															Loop
														%>
													</select>&nbsp;<span class="tx1214">※特に指示が無い場合は、一番上の市場を選択してください。</span>
												</td>
											</tr>
											<input type="hidden" name="KitakuGaisyaCD" value="<% = KitakuGaisyaCD %>"> <!-- 寄託倉庫会社は契約後に発生させる(061225小野)-->
										<% End If %>
											<tr>
												<td nowrap align="right">&nbsp;住 所&nbsp;&nbsp;</td>
												<td nowrap>〒<input OnKeyDown="FormKeyDown(this)" name="YubinBango" size="10" value="<% = YubinBango %>" class="tbox4" onkeyup="FormStrLeft(this,8,false,false)" onkeypress="FormStrLeft(this,8,false,false)" onBlur="FormStrLeftEdge(this,8,true,false);FormStrTrim(this,true);"><br>
												<input OnKeyDown="FormKeyDown(this)" name="Jyusyo1" size="49" value="<% = Jyusyo1 %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,36,true)"><input OnKeyDown="FormKeyDown(this)" name="Jyusyo2" size="30" value="<% = Jyusyo2 %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,36,true)"></td>
											</tr>
											<tr>
												<td nowrap align="right">&nbsp;TEL&nbsp;&nbsp;</td>
												<td nowrap>
													<table border="0" cellpadding="0" cellspacing="0" class="tx1214">
														<tr>
															<td nowrap><input OnKeyDown="FormKeyDown(this)" name="TEL" size="15" value="<% = TEL %>" class="tbox4" onKeyup="FormStrLeft(this,14,false,false)" onKeypress="FormStrLeft(this,14,false,false)" onBlur="FormStrLeftEdge(this,14,true,false);FormStrTrim(this,true);"></td>
															<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FAX&nbsp;&nbsp;</td>
															<td nowrap><input OnKeyDown="FormKeyDown(this)" name="FAX" size="15" value="<% = FAX %>" class="tbox4" onKeyup="FormStrLeft(this,14,false,false)" onKeypress="FormStrLeft(this,14,false,false)" onBlur="FormStrLeftEdge(this,14,true,false);FormStrTrim(this,true);"></td>
														</tr>
													</table>
												</td>
											</tr>
										<% If PackageMode <> "1" Then %>
											<tr>
												<td nowrap></td>
												<td nowrap valign="bottom" height="10">
												<% If GB_IEmode <> "1" Then %>&nbsp;<% End If %>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;氏名
												<% If GB_IEmode <> "1" Then %>&nbsp;&nbsp;&nbsp;&nbsp;<% End If %>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;住所
												<% If GB_IEmode <> "1" Then %>&nbsp;&nbsp;<% End If %>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;株式数
												</td>
											</tr>
											<tr>
												<td nowrap align="right">&nbsp;発起人①&nbsp;&nbsp;</td>
												<td nowrap>
													<input OnKeyDown="FormKeyDown(this)" name="DaityoTorishimariyaku" size="19" value="<% = DaityoTorishimariyaku %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,18,true)"><input OnKeyDown="FormKeyDown(this)" name="DaityoTorishimariyakuJyusyo" size="52" value="<% = DaityoTorishimariyakuJyusyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,72,true)"><input OnKeyDown="FormKeyDown(this)" name="Kabushiki1" size="6" value="<% = ConvIntToMoney(Kabushiki1, false, false) %>" class="tbox5" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);SetGokei();" onFocus="FormStrCommaReplace(this);">株&nbsp;<BR>
												</td>
											</tr>
											<tr>
												<td nowrap align="right">&nbsp;発起人②&nbsp;&nbsp;</td>
												<td nowrap>
													<input OnKeyDown="FormKeyDown(this)" name="Torishimariyaku1" size="19" value="<% = Torishimariyaku1 %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,18,true)"><input OnKeyDown="FormKeyDown(this)" name="Torishimariyaku1Jyusyo" size="52" value="<% = Torishimariyaku1Jyusyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,72,true)"><input OnKeyDown="FormKeyDown(this)" name="Kabushiki2" size="6" value="<% = ConvIntToMoney(Kabushiki2, false, false) %>" class="tbox5" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);SetGokei();" onFocus="FormStrCommaReplace(this);">株&nbsp;<br>
												</td>
											</tr>
											<tr>
												<td nowrap align="right">&nbsp;発起人③&nbsp;&nbsp;</td>
												<td nowrap>
													<input OnKeyDown="FormKeyDown(this)" name="Torishimariyaku2" size="19" value="<% = Torishimariyaku2 %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,18,true)"><input OnKeyDown="FormKeyDown(this)" name="Torishimariyaku2Jyusyo" size="52" value="<% = Torishimariyaku2Jyusyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,72,true)"><input OnKeyDown="FormKeyDown(this)" name="Kabushiki3" size="6" value="<% = ConvIntToMoney(Kabushiki3, false, false) %>" class="tbox5" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);SetGokei();" onFocus="FormStrCommaReplace(this);">株&nbsp;<br>
												</td>
											</tr>
											<tr>
												<td nowrap align="right">&nbsp;発起人④&nbsp;&nbsp;</td>
												<td nowrap>
													<input OnKeyDown="FormKeyDown(this)" name="Hokkinin4" size="19" value="<% = Hokkinin4 %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,18,true)"><input OnKeyDown="FormKeyDown(this)" name="Hokkinin4Jusho" size="52" value="<% = Hokkinin4Jusho %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,72,true)"><input OnKeyDown="FormKeyDown(this)" name="Kabushiki4" size="6" value="<% = ConvIntToMoney(Kabushiki4, false, false) %>" class="tbox5" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);SetGokei();" onFocus="FormStrCommaReplace(this);">株&nbsp;<br>
												</td>
											</tr>
											<tr>
												<td nowrap align="right">&nbsp;発起人⑤&nbsp;&nbsp;</td>
												<td nowrap>
													<input OnKeyDown="FormKeyDown(this)" name="Hokkinin5" size="19" value="<% = Hokkinin5 %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,18,true)"><input OnKeyDown="FormKeyDown(this)" name="Hokkinin5Jusho" size="52" value="<% = Hokkinin5Jusho %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,72,true)"><input OnKeyDown="FormKeyDown(this)" name="Kabushiki5" size="6" value="<% = ConvIntToMoney(Kabushiki5, false, false) %>" class="tbox5" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);SetGokei();" onFocus="FormStrCommaReplace(this);">株&nbsp;<br>
												</td>
											</tr>
											<tr>
												<td nowrap align="right">&nbsp;株式の額面</td>
												<td nowrap><input OnKeyDown="FormKeyDown(this)" name="Gakumen" size="14" value="<% = ConvIntToMoney(Gakumen, false, false) %>" class="tbox5" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);SetGokei();" onFocus="FormStrCommaReplace(this);">円</td>
											</tr>
											<tr>
												<td nowrap align="right">&nbsp;資 本 金&nbsp;&nbsp;</td>
												<!--<td nowrap><input OnKeyDown="FormKeyDown(this)" name="Shihonkin" size="14" value="<% = ConvIntToMoney(Shihonkin, false, false) %>" class="tbox5" onkeyup="ChangeMoney(this)" onblur="SetMoney(this, false, true);">円</td>-->
												<td nowrap><input OnKeyDown="FormKeyDown(this)" name="Shihonkin" size="14" value="<% = ConvIntToMoney(Shihonkin, false, false) %>" class="tbox5_ro" readonly onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);" tabindex="-1">円</td>
											</tr>
											<tr>
												<td nowrap align="right">&nbsp;事業目的&nbsp;&nbsp;</td>
												<td nowrap><textarea rows="3" wrap="hard" name="Mokuteki" cols="40" class="tarea2_ime" style="height:62px;" onBlur="FormStrLeftIME(this,120,true)"><% = Mokuteki %></textarea></td>
											</tr>
										<% End If %>
										</table>
									</TD>
								</TR>
							</TABLE>
						</TD>
					</TR>
					<TR>
						<TD HEIGHT="35" align="right">
							<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" width="100%">
								<TR>
									<TD align="right">
										<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="form1.SelectType.value=1;SubmitCheck()" BGCOLOR="#33CCFF" CLASS="tbtn11">
											<TR>
												<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>">&nbsp;</TD>
												<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" WIDTH="110"><% If PackageMode = "1" Then %>会社作成<% Else %>定款の作成<% End If %></TD>
												<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>">&nbsp;</TD>
											</TR>
										</TABLE>
									</td>
								</tr>
							</table>
						</TD>
					</TR>
				</TABLE>
			</TD>
		</TR>
	</TABLE>
</div>
</form>

</body>
<SCRIPT LANGUAGE="JavaScript">

	//資本金自動計算(080924小野)
	function SetGokei() {
		//額面および株式数1~5いずれかが入力されたら動作(ゼロは未入力と見なす)
		if (form1.Gakumen.value != "" && form1.Gakumen.value != "0" && (form1.Kabushiki1.value != "" && form1.Kabushiki1.value != "0" || form1.Kabushiki2.value != "" && form1.Kabushiki2.value != "0" || form1.Kabushiki3.value != "" && form1.Kabushiki3.value != "0" || form1.Kabushiki4.value != "" && form1.Kabushiki4.value != "0" || form1.Kabushiki5.value != "" && form1.Kabushiki5.value != "0")) {
			var Kabushiki = 0;
			for (ii=1; ii<=5; ii++) {
				if (form1["Kabushiki" + ii].value != "") {
					Kabushiki = Kabushiki + ConvMoneyToInt(form1["Kabushiki" + ii].value);
				}
			}
			form1.Shihonkin.value = ConvIntToMoney(Kabushiki * ConvMoneyToInt(form1.Gakumen.value));
		} else {
			form1.Shihonkin.value = "<% = MotoShihonkin %>";
		}
	}


	function SubmitCheck()
	{

		if(form1.KaisyaMeisyo.value == "") {
			alert("会社名称を入力してください ");
			form1.KaisyaMeisyo.focus();
			return false;
		}
		if(form1.KaisyaRyakuMeisyo.value == "") {
			alert("会社略名称を入力してください ");
			form1.KaisyaRyakuMeisyo.focus();
			return false;
		}
		if(form1.GyosyuCD.value == "") {
			alert("業種を選択してください ");
			form1.GyosyuCD.focus();
			return false;
		}
		if(form1.ShijyoCD.value == "") {
			alert("市場を選択してください ");
			form1.ShijyoCD.focus();
			return false;
		}
		if(form1.Shihonkin.value != "") {
			if(form1.Shihonkin.value.length > 13) {
				alert("資本金が10桁以内に収まるよう\n株式数または株式の額面を設定してください ");
				form1.Gakumen.focus();
				return false;
			}
		}
		if((form1.DaityoTorishimariyakuJyusyo.value != "" || form1.Kabushiki1.value != "") && form1.DaityoTorishimariyaku.value == "") {
			alert("発起人①を入力してください ");
			form1.DaityoTorishimariyaku.focus();
			return false;
		}
		if((form1.Torishimariyaku1Jyusyo.value != "" || form1.Kabushiki2.value != "") && form1.Torishimariyaku1.value == "") {
			alert("発起人②を入力してください ");
			form1.Torishimariyaku1.focus();
			return false;
		}
		if((form1.Torishimariyaku2Jyusyo.value != "" || form1.Kabushiki3.value != "") && form1.Torishimariyaku2.value == "") {
			alert("発起人③を入力してください ");
			form1.Torishimariyaku2.focus();
			return false;
		}
		if((form1.Hokkinin4Jusho.value != "" || form1.Kabushiki4.value != "") && form1.Hokkinin4.value == "") {
			alert("発起人④を入力してください ");
			form1.Hokkinin4.focus();
			return false;
		}
		if((form1.Hokkinin5Jusho.value != "" || form1.Kabushiki5.value != "") && form1.Hokkinin5.value == "") {
			alert("発起人⑤を入力してください ");
			form1.Hokkinin5.focus();
			return false;
		}
		if((form1.DaityoTorishimariyaku.value != "" || form1.DaityoTorishimariyakuJyusyo.value != "") && form1.Kabushiki1.value == "") {
			alert("発起人①の株式数を入力してください ");
			form1.Kabushiki1.focus();
			return false;
		}
		if((form1.Torishimariyaku1.value != "" || form1.Torishimariyaku1Jyusyo.value != "") && form1.Kabushiki2.value == "") {
			alert("発起人②の株式数を入力してください ");
			form1.Kabushiki2.focus();
			return false;
		}
		if((form1.Torishimariyaku2.value != "" || form1.Torishimariyaku2Jyusyo.value != "") && form1.Kabushiki3.value == "") {
			alert("発起人③の株式数を入力してください ");
			form1.Kabushiki3.focus();
			return false;
		}
		if((form1.Hokkinin4.value != "" || form1.Hokkinin4Jusho.value != "") && form1.Kabushiki4.value == "") {
			alert("発起人④の株式数を入力してください ");
			form1.Kabushiki4.focus();
			return false;
		}
		if((form1.Hokkinin5.value != "" || form1.Hokkinin5Jusho.value != "") && form1.Kabushiki5.value == "") {
			alert("発起人⑤の株式数を入力してください ");
			form1.Kabushiki5.focus();
			return false;
		}
		SubmitReal(form1);
		return true;
	}

</script>
<% = HtmlFooter %>
</html>
<%
End Sub
%>