<!-- #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"> 会社名称 </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"> 会社略名 </td>
<td nowrap>
<input OnKeyDown="FormKeyDown(this)" type="text" name="KaisyaRyakuMeisyo" size="12" value="<% = KaisyaRyakuMeisyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,10,true)"> <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"> 業 種 </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"> 市 場 </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> <span class="tx1214">※特に指示が無い場合は、一番上の市場を選択してください。</span>
</td>
</tr>
<input type="hidden" name="KitakuGaisyaCD" value="<% = KitakuGaisyaCD %>"> <!-- 寄託倉庫会社は契約後に発生させる（061225小野）-->
<% End If %>
<tr>
<td nowrap align="right"> 住 所 </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"> TEL </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> FAX </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 %> <% End If %> 氏名
<% If GB_IEmode <> "1" Then %> <% End If %> 住所
<% If GB_IEmode <> "1" Then %> <% End If %> 株式数
</td>
</tr>
<tr>
<td nowrap align="right"> 発起人① </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);">株 <BR>
</td>
</tr>
<tr>
<td nowrap align="right"> 発起人② </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);">株 <br>
</td>
</tr>
<tr>
<td nowrap align="right"> 発起人③ </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);">株 <br>
</td>
</tr>
<tr>
<td nowrap align="right"> 発起人④ </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);">株 <br>
</td>
</tr>
<tr>
<td nowrap align="right"> 発起人⑤ </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);">株 <br>
</td>
</tr>
<tr>
<td nowrap align="right"> 株式の額面</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"> 資 本 金 </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"> 事業目的 </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 %>"> </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 %>"> </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
%>