
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：会社情報設定設定
'	作成日：2002/8/18
'	作成者：徳田
'	目的　：会社情報入力画面を表示する。
'	概要	：
'	 <<表示>>
'	<<入力チェック>>
'	・ＮＵＬＬチェック
'
'	修正:
'################################################
'-->

main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim HyojiFlg
	Dim NRflg , ErrMSG , Action
	Dim KanriKubun
	Dim EnshuName
	Dim Kaisyamei , KaisyaKanamei	'会社コード、会社名称、会社カナ名称
	Dim ZipCode	, Adr1		 , Adr2								'郵便番号、住所1、住所2
	Dim Tel		 , Fax			 , GyosyuCD , GyosyuName 'Tel、Fax、業種CD、業種名称
	Dim KaisyaRyakumei				'会社略名称
	Dim Query
	Dim Content
	Dim GakuseiBango, JisyaFlg
	Dim SetteiFlg
	Dim ShijyoCD
	Dim DaityoTorishimariyaku, Shihonkin
	Dim DaityoTorishimariyakuJyusyo
	Dim Torishimariyaku1, Torishimariyaku2, Mokuteki
	Dim Torishimariyaku1Jyusyo, Torishimariyaku2Jyusyo
	Dim BunsyoNaiyoCD
	Dim TantosyaCD
	Dim KanKatsu
	Dim DaihyoSyain
	TantosyaCD = ""

	'061122追加
	Dim Kitakuriyou, KitakuKaisyaCD, KitakuKaisyaMei
	'070207追加
	Dim OldKitakuKaisyaCD

	Dim Hokkinin4
	Dim Hokkinin5
	Dim Hokkinin4Jusho
	Dim Hokkinin5Jusho

	Dim Kabushiki1
	Dim Kabushiki2
	Dim Kabushiki3
	Dim Kabushiki4
	Dim Kabushiki5
	Dim Gakumen

	Dim SeitoJisha

	SetteiFlg = Request("SetteiFlg")

	KaisyaCD = Request("KaisyaCD")
	NRflg = Request("nr")
	Action = Request("Action")
	ErrMSG = Request("ErrMSG")
	HyojiFlg = Request("HyojiFlg")

	Dim SortMode
	SortMode = Request("SortMode")

	Dim ShijoCD
	ShijoCD = Request("ShijoCD")

	Dim CopyMoto
	CopyMoto = Request("CopyMoto")


'Response.Write("Action:" & Action)

'演習名称ＧＥＴ
	EnshuName = ConvEnshuMeisyo(EnshuCD)

	If NRflg = "r" then

		Kaisyamei = Request("Kaisyamei")
		KaisyaRyakumei = Request("KaisyaRyakumei")
		KaisyaKanamei = Request("KaisyaKanamei")
		ZipCode = Request("ZipCode")
		Adr1 = Request("Adr1")
		Adr2 = Request("Adr2")
		Tel = Request("Tel")
		Fax = Request("Fax")
		GyosyuCD = Request("GyosyuCD")
		ErrMsg = Request("ErrMsg")
		GakuseiBango = Request("GakuseiBango")
		JisyaFlg = Request("JisyaFlg")
		KitakuKaisyaCD = Request("KitakuKaisyaCD")
		ShijyoCD = Request("ShijyoCD")
		DaityoTorishimariyaku = Request("DaityoTorishimariyaku")
		DaityoTorishimariyakuJyusyo = Request("DaityoTorishimariyakuJyusyo")
		Torishimariyaku1 = Request("Torishimariyaku1")
		Torishimariyaku1Jyusyo = Request("Torishimariyaku1Jyusyo")
		Torishimariyaku2 = Request("Torishimariyaku2")
		Torishimariyaku2Jyusyo = Request("Torishimariyaku2Jyusyo")
		Hokkinin4 = Request("Hokkinin4")
		Hokkinin5 = Request("Hokkinin5")
		Hokkinin4Jusho = Request("Hokkinin4Jusho")
		Hokkinin5Jusho = Request("Hokkinin5Jusho")
		Kabushiki1 = Request("Kabushiki1")
		If Kabushiki1 = "null" Then
			Kabushiki1 = ""
		End If
		Kabushiki2 = Request("Kabushiki2")
		If Kabushiki2 = "null" Then
			Kabushiki2 = ""
		End If
		Kabushiki3 = Request("Kabushiki3")
		If Kabushiki3 = "null" Then
			Kabushiki3 = ""
		End If
		Kabushiki4 = Request("Kabushiki4")
		If Kabushiki4 = "null" Then
			Kabushiki4 = ""
		End If
		Kabushiki5 = Request("Kabushiki5")
		If Kabushiki5 = "null" Then
			Kabushiki5 = ""
		End If
		Gakumen = Request("Gakumen")
		If Gakumen = "null" Then
			Gakumen = ""
		End If
		Shihonkin = Request("Shihonkin")
		If Shihonkin = "null" Then
			Shihonkin = ""
		End If
		Mokuteki = Request("Mokuteki")
		DaihyoSyain = Request("DaihyoSyain")
		SeitoJisha = Request("SeitoJisha")
	Else
		If CopyMoto <> "" Then
			Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & CopyMoto & "'"
		Else
			Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
		End If
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			ShijyoCD = Content.Fields("市場CD")
			Kaisyamei = Content.Fields("会社名称")
			KaisyaRyakumei = Content.Fields("会社略名称")
			KaisyaKanamei = Content.Fields("会社カナ名称")
			ZipCode = Content.Fields("郵便番号")
			Adr1 = Content.Fields("住所1")
			Adr2 = Content.Fields("住所2")
			Tel = Content.Fields("TEL")
			Fax = Content.Fields("FAX")
			GyosyuCD = Content.Fields("業種CD")
			GakuseiBango = Content.Fields("学生番号")
			JisyaFlg = Content.Fields("自社フラグ")
			KitakuKaisyaCD = "" & Content.Fields("寄託会社CD")
			DaityoTorishimariyaku = Content.Fields("代表取締役")
			DaityoTorishimariyakuJyusyo = Content.Fields("代表取締役住所")
			Torishimariyaku1 = Content.Fields("取締役1")
			Torishimariyaku2 = Content.Fields("取締役2")
			Torishimariyaku1Jyusyo = Content.Fields("取締役1住所")
			Torishimariyaku2Jyusyo = Content.Fields("取締役2住所")
			Hokkinin4 = Content.Fields("発起人4")
			Hokkinin5 = Content.Fields("発起人5")
			Hokkinin4Jusho = Content.Fields("発起人4住所")
			Hokkinin5Jusho = Content.Fields("発起人5住所")
			Kabushiki1 = Content.Fields("発起人1株式数")
			Kabushiki2 = Content.Fields("発起人2株式数")
			Kabushiki3 = Content.Fields("発起人3株式数")
			Kabushiki4 = Content.Fields("発起人4株式数")
			Kabushiki5 = Content.Fields("発起人5株式数")
			Gakumen = Content.Fields("株式の額面")
			Shihonkin = Content.Fields("資本金")
			Mokuteki = "" & Content.Fields("事業目的")
			If Mokuteki <> "" Then
				Mokuteki = Replace(Mokuteki , "<br>", vbCrLf)
				Mokuteki = Server.HTMLEncode(Mokuteki)
			End If
			If CopyMoto = "" Then
				SeitoJisha = "" & Content.Fields("同時同業生徒自社")
			End If
			Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				If  "" & Content.Fields("代表取締役フラグ") = "1" Then
					DaihyoSyain = "" & Content.Fields("氏名")
					Exit Do
				End If
				Content.MoveNext
			Loop
		End If
	End If

	If "" & Gakumen = "" Then
		Gakumen = 50000
	End If

	Dim MotoShihonkin
	MotoShihonkin = "" & ConvIntToMoney(Shihonkin, false, false)

	OldKitakuKaisyaCD = KitakuKaisyaCD


'Response.Write("NRflg:" & NRflg & "<br>")
'Response.Write("GakuseiBango:" & GakuseiBango & "<br>")
'Response.Write("KitakuKaisyaCD:" & KitakuKaisyaCD & "<br>")

	If JisyaFlg = "" Then
		JisyaFlg = 0
	End If

	If GakuseiBango <> "" Then
		KitakuKaisyaCD = Replace(KitakuKaisyaCD, "-" & GakuseiBango, "")
	End If

	Dim RouteType
	RouteType = Request("RouteType")


	'サイバー会計で代表取締役氏名が存在しない場合はTTA社員台帳Mから取得（初回会社選択時に作成されている）
	If PackageMode = "1" Then
		If DaityoTorishimariyaku = "" Then
			DaityoTorishimariyaku = DaihyoSyain
		End If
	End If


	''''''''繰越金額を調べるここから
	Dim Kingaku
	Dim KurikoshiZandakaKingaku
	Dim GenkinKingaku, SyohinKingaku, GinkoKingaku
	Dim SyohinSu, ContentKoza
	Dim NyusyukoBango, QueryNyusyuko, ContentNyusyuko
	Dim QueryKoza
	GenkinKingaku = 0
	SyohinKingaku = 0
	GinkoKingaku = 0

	Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 0, 0"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		GenkinKingaku = Content.Fields("金額")
	End If

	QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'S'"
	Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
	Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
		If ContentNyusyuko.Fields("処理時期区分") = 0 Then
			NyusyukoBango = ContentNyusyuko.Fields("文書内容CD")
		End If
		ContentNyusyuko.MoveNext
	Loop

	QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'S', '" & NyusyukoBango	& "'"
	Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
	Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
		SyohinKingaku = SyohinKingaku + ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価")
		ContentNyusyuko.MoveNext
	Loop

	If KaisyaCD <> "" Then
		QueryKoza = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', ''"
		Set ContentKoza = OpenQuery(QueryKoza)
		Do While Not(ContentKoza.BOF Or ContentKoza.EOF)
			Dim MyGinkoCD, MyKozaKubun
			MyGinkoCD = ""
			MyKozaKubun = ""
			If Not(ContentKoza.BOF Or ContentKoza.EOF) Then
				MyGinkoCD = ContentKoza.Fields("銀行CD")
				MyKozaKubun = ContentKoza.Fields("口座区分")
			End If
			Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MyGinkoCD & "', '" & MyKozaKubun & "', ''"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				If Content.Fields("処理時期区分") = 0 Then
					Kingaku = Content.Fields("金額")
				End If
				Content.MoveNext
			Loop

			GinkoKingaku = GinkoKingaku + Kingaku
		ContentKoza.MoveNext
		Loop
	End If
	KurikoshiZandakaKingaku = GenkinKingaku + SyohinKingaku + GinkoKingaku
	''''''''繰越金額を調べるここまで

	''''''''勘定残高行数を調べるここから
	Dim KanjyoZandakaShiwakeGyosu, KanjyoZandaka
	KanjyoZandakaShiwakeGyosu = 0

	Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '0000000', '" & ConvKaisyaGyosyuKubun(KaisyaCD) & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		KanjyoZandakaShiwakeGyosu = KanjyoZandakaShiwakeGyosu + 1
		KanjyoZandaka	= KanjyoZandaka + Content.Fields("借方金額")
		Content.MoveNext
	Loop
	''''''''勘定残高行数を調べるここまで


	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Kitakuriyou = Content.Fields("寄託倉庫利用") 
	End If

	KitakuKaisyaCD = ""
	Query = "exec SPM寄託会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		KitakuKaisyaMei = Content.Fields("会社名称")
		Query = "exec SPK契約書一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', 'S'"	'自社が甲の寄託契約書一覧
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If "" & Content.Fields("削除フラグ") <> "1" Then
				BunsyoNaiyoCD = Content.Fields("文書内容CD")
				Query = "exec SPK契約書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & KaisyaCD & "', 'S'"
				Set Content = OpenQuery(Query)
				If Not(Content.BOF Or Content.EOF) Then
					KitakuKaisyaCD = "" & Content.Fields("取引先CD")
					TantosyaCD = "" & Content.Fields("甲担当者CD")
					Kankatsu = Content.Fields("管轄裁判所")
				End If
			End If
			Content.MoveNext
		Loop
	End If
	
	Dim ZaikoChkFlag
	
	Query = "exec SPD在庫チェック '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	ZaikoChkFlag = Content.Fields(0)
	
	'Dim Syuryobi
	'Syuryobi = GB_KaikeiSyuryobi
	'Query = "exec SPR入出庫在庫 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Syuryobi & "'"
	'Set Content = OpenQuery(Query)
	'If Not(Content.BOF Or Content.EOF) Then
	'	ZaikoChkFlag = "1"
	'Else
	'	ZaikoChkFlag = "0"
	'End If
	

	
	'Response.Write("Query:" & Query & "<br>")
	'Response.Write("ZaikoChkFlag:" & ZaikoChkFlag & "<br>")
%>

<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)"<% If Kitakuriyou = "1" Then %> onLoad="ShowKitakuForm()"<% End If %> bgcolor="#5C70B6" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form method="POST" name="form1" action="fm_kaisya_bin.asp" autocomplete="off">
<input OnKeyDown="FormKeyDown(this)" type="hidden" name="Action" value="<% = Action %>">
<input OnKeyDown="FormKeyDown(this)" type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
<input OnKeyDown="FormKeyDown(this)" type="hidden" name="KanriKubun" value="<% = KanriKubun %>">
<input OnKeyDown="FormKeyDown(this)" type="hidden" name="RouteType" value="<% = RouteType %>">
<input OnKeyDown="FormKeyDown(this)" type="hidden" name="OldKitakukaisyaCD" value="<% = OldKitakukaisyaCD %>">
<input OnKeyDown="FormKeyDown(this)" type="hidden" name="BunsyoNaiyoCD" value="<% = BunsyoNaiyoCD %>">
<input OnKeyDown="FormKeyDown(this)" type="hidden" name="HyojiFlg" value="<% = HyojiFlg %>">
<input OnKeyDown="FormKeyDown(this)" type="hidden" name="SortMode" value="<% = SortMode %>">
<input OnKeyDown="FormKeyDown(this)" type="hidden" name="ShijoCD" value="<% = ShijoCD %>">
<%

	Dim PageTitle
	PageTitle = "会社マスター"

	Response.Write(HtmlDesign(1))

	If RouteType = "syatyo" Then

		Response.Write(HttpL1(3))

		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s4.asp')", "定款", "", "", "", "", ""))

	Else

		Response.Write(HttpL1(4))

		If GB_Admin >= 1 Then
			Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", PageTitle, "", "", "", "", "", "", ""))
		Else
			PageTitle = "自社情報"
			Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", PageTitle, "", "", "", "", "", "", "", "", ""))
		End If

	End If

	Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))


	If RouteType = "syatyo" Then
		Response.Write(HttpL3_2("戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s4.asp')", "", "", "", "", "", "", "", ""))
	ElseIf Setteiflg = 1 Then
		If Action = 1 Then
			Response.Write(HttpL3_2("戻る", "tblbtn('fm_kaisya_ichiran.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "')", "", "", "", "", "", "", "", ""))
		Else
			Response.Write(HttpL3_2("戻る", "tblbtn('fm_kaisya_view.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "')", "一覧表示", "tblbtn( 'fm_kaisya_ichiran.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "')", "", "", "", "", "", ""))
		End If
	ElseIf GB_Admin >= 1 Then
		If Action = 1 Then
			Response.Write(HttpL3_2("戻る", "tblbtn('fm_kaisya_ichiran.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "')", "高度な設定", "if(confirm('メンテナンス時以外では高度な設定は利用しません\r\n高度な設定のページに移動しますか？'))tblbtn('fm_Kaisya.asp?SetteiFlg=1&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "&CopyMoto=" & CopyMoto & "&Action=" & Action & "')", "", "", "", "", "", ""))
		Else
			Response.Write(HttpL3_2("戻る", "tblbtn('fm_kaisya_view.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "')", "一覧表示", "tblbtn('fm_kaisya_ichiran.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "')", "高度な設定", "if(confirm('メンテナンス時以外では高度な設定は利用しません\r\n高度な設定のページに移動しますか？'))tblbtn('fm_Kaisya.asp?SetteiFlg=1&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "&CopyMoto=" & CopyMoto & "&Action=" & Action & "')", "", "", "", ""))
		End If
	Else
		Response.Write(HttpL3_2("戻る", "tblbtn('fm_kaisya_view.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "')", "一覧表示", "tblbtn( 'fm_kaisya_ichiran.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "')", "", "", "", "", "", ""))
	End If

	If RouteType = "syatyo" Then
		Response.Write(HttpL4("会社情報", "修正"))
	ElseIf Action = 1 Then
		Response.Write(HttpL4(PageTitle, "追加"))
	Else
		Response.Write(HttpL4(PageTitle, "修正"))
	End If

	Response.Write(HttpL5(ErrMsg))

%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
	<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
		<tr>
			<td align="center">
				<table height="100" border="0" cellspacing="5" cellpadding="0" bgcolor="#ffffff" style="border:1px solid #000000">
					<tr>
						<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"><!--薄青のチェックの背景-->
							<table border="0" cellspacing="0" cellpadding="15">
								<tr>
									<td>
										<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
														<!--
											<TR>
												<TD HEIGHT="30" VALIGN="BOTTOM" WIDTH="600">
													<TABLE WIDTH="747" HEIGHT="26" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
														<TR ALIGN="CENTER">
															<TD WIDTH="220" HEIGHT="26">対象演習名</TD>
															<TD HEIGHT="26"><%= EnshuName %></TD>
														</TR>
													</TABLE>
												</TD>
											</TR>
											<TR>
												<td height="10">
												</td>
											</TR>
														-->
											<TR>
												<TD VALIGN="TOP">

													<% 'Kitakuriyou = "1" %>
													<TABLE id="MainTable" HEIGHT="100" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">

														<tr>
															<td width="106">会社コード</td>
															<td width="290">
															<% If Action = 1 Then %>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="KaisyaCD" size="10" value="<% = KaisyaCD %>" class="tbox4" onkeyup="FormStrLeft(this,6,false,false);" onKeypress="FormStrLeft(this,6,false,false)" onBlur="FormStrLeftEdge(this,6,true,false);FormStrTrim(this,true);" tabindex="1">(6)
																<% If CopyMoto <> "" Then %>
																<span class="tx1214">&nbsp;［コピー元：<% = CopyMoto %>］</span>
																<% End If %>
															
															<% Else %>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="KaisyaCD" size="20" value="<% = KaisyaCD %>" class="tbox4_ro" readonly tabIndex=-1>
															<% End If %>
															</td>
														<% If PackageMode = 1 Then %>
<!-- サイバー会計も代表取締役は入力可（200917小野）
															<input type="hidden" name="DaityoTorishimariyaku" value="<% = DaityoTorishimariyaku %>">
-->
															<input type="hidden" name="Kabushiki1" value="<% = ConvIntToMoney(Kabushiki1, false, false) %>">
															<input type="hidden" name="DaityoTorishimariyakuJyusyo" value="<% = DaityoTorishimariyakuJyusyo %>">
														<% Else %>
															<td width="330" ROWSPAN="2">&nbsp;発起人①&nbsp;氏名&nbsp;<input OnKeyDown="FormKeyDown(this)" type="text" name="DaityoTorishimariyaku" size="22" value="<% = DaityoTorishimariyaku %>" onBlur="FormStrLeftIME(this,18,true);" class="tbox4_ime" tabindex="17">
																<input OnKeyDown="FormKeyDown(this)" type="text" 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);" tabindex="19">株<BR>
																&nbsp;住所&nbsp;<input OnKeyDown="FormKeyDown(this)" type="text" name="DaityoTorishimariyakuJyusyo" size="45" value="<% = DaityoTorishimariyakuJyusyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,72,true)" tabindex="18">
															</td>
														<% End If %>
														</tr>
														<tr>
															<td>会社名称</td>
															<td>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="Kaisyamei" size="45" value="<% = Kaisyamei %>" onBlur="FormStrLeftIME(this, 40, true);" class="tbox4_ime" tabindex="2">
															</td>
														</tr>
														<tr>
															<td>会社略名称</td>
															<td>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="KaisyaRyakumei" size="11" value="<% = KaisyaRyakumei %>" onBlur="FormStrLeftIME(this, 10, true);" class="tbox4_ime" tabindex="3">
															</td>
														<% If PackageMode = 1 Then %>
															<input type="hidden" name="Torishimariyaku1" value="<% = Torishimariyaku1 %>">
															<input type="hidden" name="Kabushiki2" value="<% = ConvIntToMoney(Kabushiki2, false, false) %>">
															<input type="hidden" name="Torishimariyaku1Jyusyo" value="<% = Torishimariyaku1Jyusyo %>">
														<% Else %>
															<td ROWSPAN="2">&nbsp;発起人②&nbsp;氏名&nbsp;<input OnKeyDown="FormKeyDown(this)" type="text" name="Torishimariyaku1" size="22" value="<% = Torishimariyaku1 %>" onBlur="FormStrLeftIME(this,18,true);" class="tbox4_ime" tabindex="19">
																<input OnKeyDown="FormKeyDown(this)" type="text" 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);" tabindex="21">株<BR>
																&nbsp;住所&nbsp;<input OnKeyDown="FormKeyDown(this)" type="text" name="Torishimariyaku1Jyusyo" size="45" value="<% = Torishimariyaku1Jyusyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,72,true)" tabindex="20">
															</td>
														<% End If %>
														</tr>
														<input OnKeyDown="FormKeyDown(this)" type="hidden" name="KaisyaKanamei" size="32" value="<% = KaisyaKanamei %>" onBlur="FormStrLeftIME(this, 32, true);" class="tbox4_ime">
														<!--
														<tr>
															<td height="20">カナ名称</td>
															<td>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="KaisyaKanamei" size="32" value="<% = KaisyaKanamei %>" onBlur="FormStrLeftIME(this, 32, true);"	class="tbox4_ime">
															</td>
														</tr>
														-->

													<% If PackageMode = 1 Then %>
														<tr>
															<td>郵便番号</td>
															<td>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="ZipCode" size="12" value="<% = ZipCode %>" onkeyup="FormStrLeft(this,8,false,false);" onKeypress="FormStrLeft(this,8,false,false)" onBlur="FormStrLeftEdge(this,8,true,false);FormStrTrim(this,true);" class="tbox4" tabindex="4">
															</td>
														</tr>
														<tr>
															<td>住所1</td>
															<td>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="Adr1" size="45"	value="<% = Adr1 %>" onBlur="FormStrLeftIME(this, 36, true);" class="tbox4_ime" tabindex="5">
															</td>
														</tr>
														<tr>
															<td>住所2</td>
															<td>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="Adr2" size="45" value="<% = Adr2 %>" onBlur="FormStrLeftIME(this, 36, true);" class="tbox4_ime" tabindex="6">
															</td>
														</tr>
														<tr>
															<td>TEL</td>
															<td>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="Tel" size="17" value="<% = Tel %>" onkeyup="FormStrLeft(this,14,false,false);" onKeypress="FormStrLeft(this,14,false,false)" onBlur="FormStrLeftEdge(this,14,true,false);FormStrTrim(this,true);" class="tbox4" tabindex="7">
																&nbsp;&nbsp;FAX&nbsp;<input OnKeyDown="FormKeyDown(this)" type="text" name="Fax" size="17" value="<% = Fax %>" onkeyup="FormStrLeft(this,14,false,false);" onKeypress="FormStrLeft(this,14,false,false)" onBlur="FormStrLeftEdge(this,14,true,false);FormStrTrim(this,true);" class="tbox4" tabindex="8">
															</td>
														</tr>
														<tr>
															<td>代表取締役</td>
															<td>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="DaityoTorishimariyaku" size="22" value="<% = DaityoTorishimariyaku %>" onBlur="FormStrLeftIME(this,18,true);" class="tbox4_ime" tabindex="17">
															</td>
														</tr>
<!-- サイバー会計も住所は入力可（200917小野）
														<input type="hidden" name="ZipCode" value="<% = ZipCode %>">
														<input type="hidden" name="Adr1" value="<% = Adr1 %>">
-->
														<input type="hidden" name="Torishimariyaku2" value="<% = Torishimariyaku2 %>">
														<input type="hidden" name="Kabushiki3" value="<% = ConvIntToMoney(Kabushiki3, false, false) %>">
														<input type="hidden" name="Torishimariyaku2Jyusyo" value="<% = Torishimariyaku2Jyusyo %>">
<!-- サイバー会計も住所は入力可（200917小野）
														<input type="hidden" name="Adr2" value="<% = Adr2 %>">
														<input type="hidden" name="Tel" value="<% = Tel %>">
														<input type="hidden" name="Fax" value="<% = Fax %>">
-->
														<input type="hidden" name="Hokkinin4" value="<% = Hokkinin4 %>">
														<input type="hidden" name="Kabushiki4" value="<% = ConvIntToMoney(Kabushiki4, false, false) %>">
														<input type="hidden" name="Hokkinin4Jusho" value="<% = Hokkinin4Jusho %>">
														<input type="hidden" name="GyosyuCD" value="S">
														<input type="hidden" name="ShijyoCD" value="1">
														<input type="hidden" name="Hokkinin5" value="<% = Hokkinin5 %>">
														<input type="hidden" name="Kabushiki5" value="<% = ConvIntToMoney(Kabushiki5, false, false) %>">
														<input type="hidden" name="Hokkinin5Jusho" value="<% = Hokkinin5Jusho %>">
													<% Else %>
														<tr>
															<td>郵便番号</td>
															<td>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="ZipCode" size="12" value="<% = ZipCode %>" onkeyup="FormStrLeft(this,8,false,false);" onKeypress="FormStrLeft(this,8,false,false)" onBlur="FormStrLeftEdge(this,8,true,false);FormStrTrim(this,true);" class="tbox4" tabindex="4">
															</td>
														</tr>
														<tr>
															<td>住所1</td>
															<td>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="Adr1" size="45"	value="<% = Adr1 %>" onBlur="FormStrLeftIME(this, 36, true);" class="tbox4_ime" tabindex="5">
															</td>
															<td ROWSPAN="2">&nbsp;発起人③&nbsp;氏名&nbsp;<input OnKeyDown="FormKeyDown(this)" type="text" name="Torishimariyaku2" size="22" value="<% = Torishimariyaku2 %>" onBlur="FormStrLeftIME(this,18,true);" class="tbox4_ime" tabindex="22">
																<input OnKeyDown="FormKeyDown(this)" type="text" 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);" tabindex="24">株<BR>
																&nbsp;住所&nbsp;<input OnKeyDown="FormKeyDown(this)" type="text" name="Torishimariyaku2Jyusyo" size="45" value="<% = Torishimariyaku2Jyusyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,72,true)" tabindex="23">
															</td>
														</tr>
														<tr>
															<td>住所2</td>
															<td>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="Adr2" size="45" value="<% = Adr2 %>" onBlur="FormStrLeftIME(this, 36, true);" class="tbox4_ime" tabindex="6">
															</td>
														</tr>
														<tr>
															<td>TEL</td>
															<td>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="Tel" size="17" value="<% = Tel %>" onkeyup="FormStrLeft(this,14,false,false);" onKeypress="FormStrLeft(this,14,false,false)" onBlur="FormStrLeftEdge(this,14,true,false);FormStrTrim(this,true);" class="tbox4" tabindex="7">
																&nbsp;&nbsp;FAX&nbsp;<input OnKeyDown="FormKeyDown(this)" type="text" name="Fax" size="17" value="<% = Fax %>" onkeyup="FormStrLeft(this,14,false,false);" onKeypress="FormStrLeft(this,14,false,false)" onBlur="FormStrLeftEdge(this,14,true,false);FormStrTrim(this,true);" class="tbox4" tabindex="8">
															</td>
															<td ROWSPAN="2">&nbsp;発起人④&nbsp;氏名&nbsp;<input OnKeyDown="FormKeyDown(this)" type="text" name="Hokkinin4" size="22" value="<% = Hokkinin4 %>" onBlur="FormStrLeftIME(this,18,true);" class="tbox4_ime" tabindex="25">
																<input OnKeyDown="FormKeyDown(this)" type="text" 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);" tabindex="27">株<BR>
																&nbsp;住所&nbsp;<input OnKeyDown="FormKeyDown(this)" type="text" name="Hokkinin4Jusho" size="45" value="<% = Hokkinin4Jusho %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,72,true)" tabindex="26">
															</td>
														</tr>
														<tr>
															<td>業種区分</td>
															<td>
															<% If RouteType = "syatyo" Then %>
																<input OnKeyDown="FormKeyDown(this)" type="hidden" name="GyosyuCD" size="20" value="<% = GB_Gyosyu %>" class="tbox4_ro" readonly tabindex="-1">
																<input OnKeyDown="FormKeyDown(this)" type="text" name="GyosyuMeisyo" size="20" value="<% = GB_GyosyuMeisyo %>" class="tbox4_ro" readonly tabindex="-1">
															<% Else %>
																<select OnKeyDown="FormKeyDown(this)" size="1" name="GyosyuCD" class="tbox4" tabindex="9"<% If Kitakuriyou = "1" Then %> onChange="ShowKitakuForm()"<% End If %>>
																	<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>
															<% End If %>
															</td>
														</tr>
														<tr>
															<td>市場</td>
															<td>
															<% If RouteType = "syatyo" Then %>
																<input OnKeyDown="FormKeyDown(this)" type="hidden" name="ShijyoCD" size="20" value="<% = ShijyoCD %>" class="tbox4_ro" readonly tabindex="-1">
																<input OnKeyDown="FormKeyDown(this)" type="text" name="ShijyoMeisyo" size="20" value="<%
																		Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & GB_EnshuCD & "'"
																		Set Content = OpenQuery(Query)
																		Do While Not(Content.BOF Or Content.EOF)
																			If Content.Fields("市場CD") = ShijyoCD Then
																				Response.Write(Content.Fields("市場名称"))
																			End If
																			Content.MoveNext
																		Loop
																%>" class="tbox4_ro" readonly tabindex="-1">
															<% Else %>
																<select OnKeyDown="FormKeyDown(this)" size="1" name="ShijyoCD" class="tbox4" tabindex="10">
																	<%
																		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>
															<% End If %>
															</td>
															<td ROWSPAN="2">&nbsp;発起人⑤&nbsp;氏名&nbsp;<input OnKeyDown="FormKeyDown(this)" type="text" name="Hokkinin5" size="22" value="<% = Hokkinin5 %>" onBlur="FormStrLeftIME(this,18,true);" class="tbox4_ime" tabindex="28">
																<input OnKeyDown="FormKeyDown(this)" type="text" 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);" tabindex="30">株<BR>
																&nbsp;住所&nbsp;<input OnKeyDown="FormKeyDown(this)" type="text" name="Hokkinin5Jusho" size="45" value="<% = Hokkinin5Jusho %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,72,true)" tabindex="29">
															</td>
														</tr>
													<% End If %>
														<% If GB_EnshuKubun = "P" And JisyaFlg <> "1" Then %>
														<tr>
															<td nowrap>生徒の自社とする</td>
															<td class="tx1214">
																<nobr>
																<select OnKeyDown="FormKeyDown(this)" size="1" name="SeitoJisha" class="tbox4" tabindex="11">
																	<option value="">＜＜選択してください＞＞</option>
																	<option value="0" <% If SeitoJisha <> "1" Then %> selected <% End If %>>しない</option>
																	<option value="1" <% If SeitoJisha = "1" Then %> selected <% End If %>>する</option>
																</select>
																※1社のみ指定可
																</nobr>
															</td>
														</tr>
														<% Else %>
															<input type="hidden" name="SeitoJisha" value="<% = SeitoJisha %>">
														<% End If %>
														<% If SetteiFlg = "1" Then %>
														<tr>
															<td>自社フラグ</td>
															<td>
																<select OnKeyDown="FormKeyDown(this)" size="1" name="JisyaFlg" class="tbox4" tabindex="11">
																	<option value="">＜＜選択してください＞＞</option>
																	<option value="0" <% If JisyaFlg = "0" Then %> selected <% End If %>>0</option>
																	<option value="1" <% If JisyaFlg = "1" Then %> selected <% End If %>>1</option>
																</select>
															</td>
														</tr>
														<tr>
															<td>所有者ID</td>
															<td>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="GakuseiBango" size="20" value="<% = GakuseiBango %>" onkeyup="FormStrLeft(this,14,false,false);" onKeypress="FormStrLeft(this,14,false,false)" onBlur="FormStrLeftEdge(this,14,true,false);FormStrTrim(this,true);" class="tbox4" tabindex="12">(14)
															</td>
														</tr>
														<% Else %>
															<input type="hidden" name="JisyaFlg" value="<% = JisyaFlg %>">
															<input type="hidden" name="GakuseiBango" value="<% = GakuseiBango %>">
															<% If PackageMode = 1 And GB_Admin < 1 Then %>
															<% Else %>
														<tr>
															<td>所有者ID</td>
															<td><% = GakuseiBango %></td>
														</tr>
															<% End If %>
														<% End If %>
													<% If PackageMode = 1 Then %>
														<input type="hidden" name="DaihyoSyain" value="<% = DaihyoSyain %>">
														<input type="hidden" name="Shihonkin" value="<% = Shihonkin %>">
														<input type="hidden" name="Gakumen" value="<% = Gakumen %>">
														<input type="hidden" name="Mokuteki" value="<% = Mokuteki %>">
													<% Else %>
														<tr>
															<td>代表取締役</td>
															<td>
																<INPUT OnKeyDown="FormKeyDown(this)" TYPE='TEXT' size='22' NAME='DaihyoSyain' value="<% = DaihyoSyain %>" class='tbox4_ime' onBlur="FormStrLeftIME(this,20,true);" tabindex="14">
															</td>
															<td>
																&nbsp;資本金&nbsp;<input OnKeyDown="FormKeyDown(this)" type="text" name="Shihonkin" size="13" value="<% = ConvIntToMoney(Shihonkin, false, false) %>" class="tbox5_ro" readonly onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);" onFocus="FormStrCommaReplace(this);" tabindex="-1">円
																&nbsp;株式額面<input OnKeyDown="FormKeyDown(this)" type="text" name="Gakumen" size="10" 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);" tabindex="31">円
															</td>
														</tr>
														<tr>
															<td>事業目的</td>
															<td>
																<textarea rows="2" wrap="soft" name="Mokuteki" cols="36" class="tarea4_ime" onBlur="FormStrLeftIME(this,120,true)" tabindex="40"><% = Mokuteki %></textarea>
															</td>
															<td>
																&nbsp;勘定残高：<% If KanjyoZandakaShiwakeGyosu > 0 Then %>設定済<% Else %>未設定<% End If %>
																<% If GyosyuCD <> "B" Then %>
																&nbsp;&nbsp;&nbsp;&nbsp;繰越残高：<% If KurikoshiZandakaKingaku > 0 Then %>設定済<% Else %>未設定<% End If %>
																<% End If %>
															</td>
														</tr>
														<% If Kitakuriyou = "1" Then %>
														<tr>
															<td height="24">寄託倉庫</td>
															<% If ZaikoChkFlag <> "1" Or Action = 1 Then %>
															<td>
																<select OnKeyDown="FormKeyDown(this)" size="1" name="KitakuKaisyaCD" class="tbox4" tabindex="50">
																<option value="">　</option>
																<%
																	Query = "exec SPM寄託会社一覧 '" & GB_SystemCD & "','" & GB_EnshuCD & "'"
																	Set Content = OpenQuery(Query)
																	Do While Not(Content.BOF Or Content.EOF)
																		If Content.Fields("会社CD") <> KaisyaCD Then
																			Response.Write("<option value=""" & Content.Fields("会社CD") & """")
																			If Content.Fields("会社CD") = KitakuKaisyaCD Then
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & Content.Fields("会社名称") & "</option>" & vbCrLf)
																		End If
																		Content.MoveNext
																	Loop
																%>
																</select>
															</td>
															<% Else %>
															<td class="tx1618">
																<input OnKeyDown="FormKeyDown(this)" type="hidden" name="KitakuKaisyaCD" size="20" value="<% = KitakuKaisyaCD %>" class="tbox4_ro" readonly tabindex="-1">
																<% = KitakuKaisyaMei %>　<font color='#ff0000'>※寄託在庫有</font>
															</td>
															<% End If %>
															<td>
																&nbsp;管轄&nbsp;<input OnKeyDown="FormKeyDown(this)" type="text" name="KanKatsu" size="21" value="<% = KanKatsu %>" onBlur="FormStrLeftIME(this, 18, true);" class="tbox4_ime" tabindex="53">地方裁判所
															</td>
														</tr>
														<tr>
															<td>出庫指示責任者</td>
															<% If ZaikoChkFlag <> "1" Or Action = 1 Then %>
															<td COLSPAN="2">
																<table id="TantosyaTable" height="23" border="0" cellpadding="0" cellspacing="0" CLASS="tx1416">
																	<TR>
																		<TD>
																			<%
																			Response.Write("<select OnKeyDown=""FormKeyDown(this)"" size=""1"" name=""TantosyaSel"" class=""tbox4"" onChange=""ShowTextBox()"" tabindex=""51"">" & vbCrLf)
																			Response.Write("<option value=""""" & vbCrLf)
																			If TantosyaCD = "" Then Response.Write(" selected") End If
																			Response.Write(">（新規社員）</option>" & vbCrLf)
																			Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
																			Set Content = OpenQuery(Query)
																			Do While Not(Content.BOF Or Content.EOF)
																				If  "" & Content.Fields("代表取締役フラグ") = "1" Then
																					Response.Write("<option value=""DaihyoTorishimariyakukayiramihsiroToyhiaD""") '代表フラグ文字列を設定
																					If "" & Content.Fields("社員番号") = TantosyaCD Then Response.Write(" selected") End If
																					Response.Write(">（代表取締役）</option>" & vbCrLf)
																				Else
																					Response.Write("<option value=""" & Content.Fields("氏名") & """")
																					If "" & Content.Fields("社員番号") = TantosyaCD Then Response.Write(" selected") End If
																					Response.Write(">" & Content.Fields("氏名") & "</option>" & vbCrLf)
																				End If
																				Content.MoveNext
																			Loop
																			Response.Write("</select>" & vbCrLf)
																			%>
																		</TD>
																		<TD>
																		<!-- 連動表示セルの初期値 -->
																		<% If TantosyaCD = "" Or TantosyaCD = "0" Then %>
																			　氏名 <INPUT OnKeyDown="FormKeyDown(this)" TYPE='TEXT' size='22' NAME='Tantosya' class='tbox4_ime' onBlur="FormStrLeftIME(this,20,true);" tabindex="52">
																		<% Else %>
																			<INPUT TYPE="HIDDEN" NAME="Tantosya" value="<% = ConvSyainShimei(TantosyaCD) %>">
																		<% End If %>
																		</TD>
																	</TR>
																</TABLE>
															</td>
															<% Else %>
															<td>
																<input OnKeyDown="FormKeyDown(this)" type="text" name="Tantosya" size="20" value="<% = ConvSyainShimei(TantosyaCD) %>" class="tbox4_ro" readonly tabindex="-1">
															</td>
															<% End If %>
														</tr>
														<% end if %>
													<% End If %>
													</TABLE>
												</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 %>";
		}
	}


	//ドロップダウンメニューの動作に連動してテキストボックスを表示させる（070202小野）
	function ShowTextBox() {
		var tmp;
		if(form1.TantosyaSel.value == "") {
			tmp = "<NOBR>　氏名 <INPUT OnKeyDown='FormKeyDown(this)' TYPE='TEXT' size='22' NAME='Tantosya' class='tbox4_ime' onBlur='FormStrLeftIME(this,20,true);' tabindex='52'><NOBR>\r\n";
			document.all.TantosyaTable.rows[0].cells[1].innerHTML = tmp;	//表示
		} else {
			tmp = "<INPUT TYPE='HIDDEN' NAME='Tantosya'>\r\n";
			document.all.TantosyaTable.rows[0].cells[1].innerHTML = tmp;	//HIDDEN表示
			form1.Tantosya.value = form1.TantosyaSel.options[form1.TantosyaSel.selectedIndex].value; //TantosyaSelからTantosyaに代入
		}
	}
	//ドロップダウンメニューの動作に連動して寄託関連フォームを表示させる（070302小野）
	function ShowKitakuForm() {
		var tmp;
		var SetteiFlg = 0;
		<% If SetteiFlg = "1" Then %>
		SetteiFlg = 1;
		<% End If %>
		if(form1.GyosyuCD.value == "S") {
			tmp = "";
			<% If ZaikoChkFlag <> "1" Or Action = 1 Then %>
			tmp = tmp + "<select OnKeyDown='FormKeyDown(this)' size='1' name='KitakuKaisyaCD' class='tbox4' tabindex='50'>";
			tmp = tmp + "<option value=''>　</option>";
<%
			Query = "exec SPM寄託会社一覧 '" & GB_SystemCD & "','" & GB_EnshuCD & "'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				If Content.Fields("会社CD") <> KaisyaCD Then
					Response.Write("			tmp = tmp + ""<option value='" & Content.Fields("会社CD") & "'")
					If Content.Fields("会社CD") = KitakuKaisyaCD Then
						Response.Write(" selected")
					End If
					Response.Write(">" & Content.Fields("会社名称") & "</option>"";" & vbCrLf)
				End If
				Content.MoveNext
			Loop
%>
			tmp = tmp + "</select>";
			<% Else %>
			tmp = tmp + "<input OnKeyDown='FormKeyDown(this)' type='hidden' name='KitakuKaisyaCD' size='20' value='<% = KitakuKaisyaCD %>' class='tbox4_ro' readonly tabindex='-1'>";
			tmp = tmp + "<% = KitakuKaisyaMei %>　<font color='#ff0000'>※寄託在庫有</font>";
			<% End If %>
			document.all.MainTable.rows[12+SetteiFlg].cells[1].innerHTML = tmp;	//寄託倉庫会社
			tmp = "&nbsp;管轄&nbsp;<input OnKeyDown='FormKeyDown(this)' type='text' name='KanKatsu' size='21' value='<% = KanKatsu %>' onBlur='FormStrLeftIME(this, 18, true);' class='tbox4_ime' tabindex='53'>地方裁判所 (9)";
			document.all.MainTable.rows[12+SetteiFlg].cells[2].innerHTML = tmp;	//管轄裁判所
			tmp = "";
			tmp = tmp + "<table id='TantosyaTable' border='0' cellpadding='0' cellspacing='0' CLASS='tx1214'>";
			tmp = tmp + "	<TR>";
			tmp = tmp + "		<TD>";
<%
			Response.Write("			tmp = tmp + ""<select OnKeyDown='FormKeyDown(this)' size='1' name='TantosyaSel' class='tbox4' onChange='ShowTextBox()' tabindex='51'>"";" & vbCrLf)
			Response.Write("			tmp = tmp + ""<option value=''")
			If TantosyaCD = "" Then Response.Write(" selected") End If
			Response.Write(">（新規社員）</option>"";" & vbCrLf)
			Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				If  "" & Content.Fields("代表取締役フラグ") = "1" Then
					Response.Write("			tmp = tmp + ""<option value='DaihyoTorishimariyakukayiramihsiroToyhiaD'") '代表フラグ文字列を設定
					If "" & Content.Fields("社員番号") = TantosyaCD Then Response.Write(" selected") End If
					Response.Write(">（代表取締役）</option>"";" & vbCrLf)
				Else
					Response.Write("			tmp = tmp + ""<option value='" & Content.Fields("氏名") & "'")
					If "" & Content.Fields("社員番号") = TantosyaCD Then Response.Write(" selected") End If
					Response.Write(">" & Content.Fields("氏名") & "</option>"";" & vbCrLf)
				End If
				Content.MoveNext
			Loop
			Response.Write("			tmp = tmp + ""</select>"";" & vbCrLf)
%>
			tmp = tmp + "		</TD>"
			tmp = tmp + "		<TD>"
			tmp = tmp + "		<!-- 連動表示セルの初期値 -->"
			<% If TantosyaCD = "" Or TantosyaCD = "0" Then %>
			tmp = tmp + "			<NOBR>　氏名 <INPUT OnKeyDown='FormKeyDown(this)' TYPE='TEXT' size='22' NAME='Tantosya' class='tbox4_ime' onBlur='FormStrLeftIME(this,20,true);' tabindex='52'><NOBR>";
			<% Else %>
			tmp = tmp + "			<INPUT TYPE='HIDDEN' NAME='Tantosya' value='<% = ConvSyainShimei(TantosyaCD) %>'>";
			<% End If %>
			tmp = tmp + "		</TD>"
			tmp = tmp + "	</TR>"
			tmp = tmp + "</TABLE>"
			document.all.MainTable.rows[13+SetteiFlg].cells[1].innerHTML = tmp;	//出庫指示責任者
		} else {
			tmp = "<INPUT TYPE='HIDDEN' NAME='KitakuKaisyaCD'>\r\n";
			document.all.MainTable.rows[12+SetteiFlg].cells[1].innerHTML = tmp;	//HIDDEN表示
			tmp = "<INPUT TYPE='HIDDEN' NAME='KanKatsu'>\r\n";
			document.all.MainTable.rows[12+SetteiFlg].cells[2].innerHTML = tmp;	//管轄裁判所
			tmp = "<INPUT TYPE='HIDDEN' NAME='Tantosya'>\r\n";
			document.all.MainTable.rows[13+SetteiFlg].cells[1].innerHTML = tmp;	//出庫指示責任者
		}
	}


	function SubmitCheck() {
		if (form1.KaisyaCD.value == "") {
			alert("会社コードを入力してください　");
			form1.KaisyaCD.focus();
			return false;
		}

		if (form1.Kaisyamei.value == "") {
			alert("会社名称を入力してください　");
			form1.Kaisyamei.focus();
			return false;
		}

		if (form1.KaisyaRyakumei.value == "") {
			alert("会社略名称を入力してください　");
			form1.KaisyaRyakumei.focus();
			return false;
		}

		if (form1.GyosyuCD.value == "") {
			alert("業種区分を入力してください　");
			form1.GyosyuCD.focus();
			return false;
		}


		if(typeof(form1.JisyaFlg) == "object") {
			if (form1.JisyaFlg.value == "") {
				alert("自社フラグを選択してください　");
				form1.JisyaFlg.focus();
				return false;
			}
		}

		if(typeof(form1.Tantosya) == "object") {
			if (form1.Tantosya.value == "" && form1.KitakuKaisyaCD.value != "" && form1.GyosyuCD.value == "S") {
				alert("出庫指示責任者を選択または入力してください　");
				form1.TantosyaSel.focus();
				return false;
			}
		}

		if(typeof(form1.KanKatsu) == "object") {
			if (form1.KanKatsu.value == "" && form1.KitakuKaisyaCD.value != "" && form1.GyosyuCD.value == "S") {
				alert("管轄裁判所を入力してください　");
				form1.KanKatsu.focus();
				return false;
			}
		}

		if(typeof(form1.KitakuKaisyaCD) == "object") {
			if (form1.KitakuKaisyaCD.value == "" && form1.Tantosya.value != "" && form1.GyosyuCD.value == "S" || form1.KitakuKaisyaCD.value == "" && form1.KanKatsu.value != "" && form1.GyosyuCD.value == "S")
			{
				alert("寄託倉庫会社を選択してください　");
				form1.KitakuKaisyaCD.focus();
				return false;
			}
		}

		if(form1.Shihonkin.value != "") {
			if(form1.Shihonkin.value.length > 13) {
				alert("資本金が10桁以内に収まるよう\n株式数または株式の額面を設定してください　");
				form1.Gakumen.focus();
				return false;
			}
		}

		SubmitReal(form1);
		return true;
	}


</script>

<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">

<% If ErrMSG = "この会社名称は登録済みです" Then '会社名称重複時の警告処理（091005小野）%>
//会社名称重複時の警告処理（091005小野）
	alert("入力された会社名称はすでに登録されている会社と重複しています。　\n\n会社法では住所が異なれば同じ会社名でも登記出来ますが、　\n当ソフト上では取引先の区別のため同一名称は禁止しております。　\n（同一にしてしまうと伝票入力などの際に区別できなくなるからです）　\n\n複数の会社で同一の商号を利用する場合は　\n　○○A商事株式会社（略名称：○○A商事）　\n　○○B商事株式会社（略名称：○○B商事）　\nのように両者を区別出来るようにしてください。　");
	form1.Kaisyamei.focus();
	form1.Kaisyamei.select();
<% ElseIf ErrMSG = "この会社略名称は登録済みです" Then '会社略名称重複時の警告処理（091005小野）%>
	alert("入力された会社略名称はすでに登録されている会社と重複しています。　\n\n会社法では住所が異なれば同じ会社名でも登記出来ますが、　\n当ソフト上では取引先の区別のため同一名称は禁止しております。　\n（同一にしてしまうと伝票入力などの際に区別できなくなるからです）　\n\n複数の会社で同一の商号を利用する場合は　\n　○○A商事株式会社（略名称：○○A商事）　\n　○○B商事株式会社（略名称：○○B商事）　\nのように両者を区別出来るようにしてください。　");
	form1.KaisyaRyakumei.focus();
	form1.KaisyaRyakumei.select();
<% End If %>
	event.returnValue = false;
	return;

</SCRIPT>

<% = HtmlFooter %>
</html>
<%
End Sub
%>