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

<%

'<!--
'################################################
'	名称  ：会社情報の印刷画面
'	作成日：2007/5/7
'	作成者：小野
'	目的  ：会社情報の印刷画面を表示する。
'	概要  ：
'################################################
'-->

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

	Dim HyojiFlg
	HyojiFlg = Request("HyojiFlg")

	Dim KanriKubun					'管理区分
	Dim EnshuName                                   '演習名称
	Dim KaisyaMeisyo, kaisyaKanamei			'会社コード、会社名称、会社カナ名称
	Dim ZipCode, Adr1, Adr2				'郵便番号、住所1、住所2
	Dim Tel, Fax, GyosyuCD, GyosyuName 		'Tel、Fax、業種CD、業種名称
	Dim KaisyaRyakuMeisyo				'会社略名称
	Dim JisyaFlg, GakuseiBango
	Dim Query
	Dim Content
	Dim ShijyoCD, ShijyoMeisyo
	Dim DaityoTorishimariyaku, Shihonkin
	Dim DaityoTorishimariyakuJyusyo
	Dim Torishimariyaku1, Torishimariyaku2, Mokuteki
	Dim Torishimariyaku1Jyusyo, Torishimariyaku2Jyusyo
	Dim BunsyoNaiyoCD
	Dim TantosyaCD
	Dim KanKatsu
	Dim DaihyoSyain
	TantosyaCD = ""
	Dim Hokkinin4
	Dim Hokkinin5
	Dim Hokkinin4Jusho
	Dim Hokkinin5Jusho

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

	'061122追加
	Dim Kitakuriyou, KitakuKaisyaCD, KitakuKaisyaMei
	
	KanriKubun = Session(HomeAlias & "KanriKubun")

'演習名称ＧＥＴ
		EnshuName = ConvEnshuMeisyo(EnshuCD)

'対象データＧＥＴ
	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		ShijyoCD = Content.Fields("市場CD")
		KaisyaMeisyo = Content.Fields("会社名称")
		KaisyaRyakuMeisyo = 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")
		GyosyuName = Content.Fields("業種名称")
		GakuseiBango = Content.Fields("学生番号")
		JisyaFlg = Content.Fields("自社フラグ")
		ShijyoMeisyo = 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
			'行単位で分割してからHardWrap処理を行う
			Dim TmpMokuteki
			TmpMokuteki = Split(Mokuteki, "<br>")
			Dim TmpCnt
			For TmpCnt = 0 To UBound(TmpMokuteki)
				TmpMokuteki(TmpCnt) = HardWrap(TmpMokuteki(TmpCnt))
				If TmpCnt > 0 Then
					TmpMokuteki(TmpCnt) = "<br>" & TmpMokuteki(TmpCnt)
				End If
			Next
			'再結合する
			Mokuteki = ""
			For TmpCnt = 0 To UBound(TmpMokuteki)
				Mokuteki = Mokuteki & TmpMokuteki(TmpCnt)
			Next
		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
	If KaisyaCD = "" Then
		KaisyaMeisyo = "（自社のマスター）"
	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 & "', '', 'SS'"
	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 & "', '', 'SS', '" & NyusyukoBango	& "'"
	Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
	Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
		SyohinKingaku = SyohinKingaku + ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価")
		ContentNyusyuko.MoveNext
	Loop

	Dim KozaSonzai
	KozaSonzai = 0
	QueryKoza = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', ''"
	Set ContentKoza = OpenQuery(QueryKoza)
	Do While Not(ContentKoza.BOF Or ContentKoza.EOF)
		KozaSonzai = 1
		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

	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
	''''''''勘定残高行数を調べるここまで
	
	'061122追加
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Kitakuriyou = Content.Fields("寄託倉庫利用") 
	End If
	
	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
					TantosyaCD = "" & Content.Fields("甲担当者CD")
					Kankatsu = Content.Fields("管轄裁判所")
				End If
			End If
			Content.MoveNext
		Loop
	End If
%>


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

	//印刷余白指定（ミリ指定）
	PrintTopMargin = 15;
	PrintLeftMargin = 8;
//	PrintTopMargin = 0;
//	PrintLeftMargin = 0;

-->
</SCRIPT>


<body onload="<% = PrintOnLoad %>" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% = PrintScriptX %>

	<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
		<tr>
			<td align="center" valign="top">
				<table height="100" border="0" cellspacing="5" cellpadding="0" bgcolor="#ffffff">
					<tr>
						<td align="center">
						<%
							If GB_Admin < 1 And (UCase(GakuseiBango) = UCase(GB_GakuseiNo) Or (GB_EnshuKubun = "G" And KaisyaCD = GB_KaisyaCD)) Then
								Response.Write(PrintHeader(0, "自社情報"))
							Else
								Response.Write(PrintHeader(0, "会社マスター"))
							End If
						%>
							<table border="0" cellpadding="0" cellspacing="0">
								<tr>
									<td align="center">
										<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
											<TR>
												<td height="10">
												</td>
											</TR>
											<tr>
												<td VALIGN="TOP" align="center">
													<TABLE HEIGHT="100" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1416" STYLE="border-collapse: collapse">
														<tr>
															<td WIDTH="106" height="29">会社コード</td>
															<td WIDTH="290"><% = KaisyaCD %></td>
														<% If PackageMode = 1 Then %>
														<% Else %>
															<td WIDTH="330" ROWSPAN="2">&nbsp;発起人①&nbsp;&nbsp;&nbsp;<% = DaityoTorishimariyaku %>
																&nbsp;&nbsp;&nbsp;<% = ConvIntToMoney(Kabushiki1, false, false) %>株<BR>
																&nbsp;住所&nbsp;&nbsp;<% = DaityoTorishimariyakuJyusyo %>
															</td>
														<% End If %>
														</tr>
														<tr>
															<td height="29">会社名称</td>
															<td><% = KaisyaMeisyo %></td>
														</tr>
														<tr>
															<td height="29">会社略名称</td>
															<td><% = KaisyaRyakuMeisyo %></td>
														<% If PackageMode = 1 Then %>
														<% Else %>
															<td ROWSPAN="2">&nbsp;発起人②&nbsp;&nbsp;&nbsp;<% = Torishimariyaku1 %>
																&nbsp;&nbsp;&nbsp;<% = ConvIntToMoney(Kabushiki2, false, false) %>株<BR>
																&nbsp;住所&nbsp;&nbsp;<% = Torishimariyaku1Jyusyo %>
															</td>
														<% End If %>
														</tr>
														<!--
														<tr>
															<td height="29">カナ名称</td>
															<td><%= kaisyaKanamei %></td>
														</tr>
														-->
														<tr>
															<td height="29">郵便番号</td>
															<td><% = ZipCode %></td>
														</tr>
														<tr>
															<td height="29">住所1</td>
															<td><% = Adr1 %></td>
														<% If PackageMode = 1 Then %>
														<% Else %>
															<td ROWSPAN="2">&nbsp;発起人③&nbsp;&nbsp;&nbsp;<% = Torishimariyaku2 %>
																&nbsp;&nbsp;&nbsp;<% = ConvIntToMoney(Kabushiki3, false, false) %>株<BR>
																&nbsp;住所&nbsp;&nbsp;<% = Torishimariyaku2Jyusyo %>
															</td>
														<% End If %>
														</tr>
														<tr>
															<td height="29">住所2</td>
															<td><% = Adr2 %></td>
														</tr>
														<tr>
															<td height="29">TEL</td>
															<td><% = Tel %>&nbsp;&nbsp;&nbsp;FAX&nbsp;<% = Fax %></td>
														<% If PackageMode = 1 Then %>
														<% Else %>
															<td ROWSPAN="2">&nbsp;発起人④&nbsp;&nbsp;&nbsp;<% = Hokkinin4 %>
																&nbsp;&nbsp;&nbsp;<% = ConvIntToMoney(Kabushiki4, false, false) %>株<BR>
																&nbsp;住所&nbsp;&nbsp;<% = Hokkinin4Jusho %>
															</td>
														<% End If %>
														</tr>
													<% If PackageMode = 1 Then %>
														<tr>
															<td height="29">代表取締役</td>
															<td><% = DaityoTorishimariyaku %></td>
														</tr>
													<% Else %>
														<tr>
															<td height="29">業種区分</td>
															<td><% = GyosyuName %></td>
														</tr>
														<tr>
															<td height="29">市場</td>
															<td><% = ShijyoMeisyo %></td>
															<td ROWSPAN="2">&nbsp;発起人⑤&nbsp;&nbsp;&nbsp;<% = Hokkinin5 %>
																&nbsp;&nbsp;&nbsp;<% = ConvIntToMoney(Kabushiki5, false, false) %>株<BR>
																&nbsp;住所&nbsp;&nbsp;<% = Hokkinin5Jusho %>
															</td>
														</tr>
													<% End If %>
<!--
														<tr>
															<td height="29">自社フラグ</td>
															<td><% = jisyaFlg %></td>
														</tr>
-->
														<% If PackageMode = 1 And GB_Admin < 1 Then %>
														<% Else %>
														<tr>
															<td height="29">所有者ID</td>
															<td><% = GakuseiBango %></td>
														</tr>
														<% End If %>
													<% If PackageMode = 1 Then %>
													<% Else %>
														<tr>
															<td height="29">代表取締役</td>
															<td><% = DaihyoSyain %></td>
															<td>
																&nbsp;資本金&nbsp;<% = ConvIntToMoney(Shihonkin, false, false) %>円
																&nbsp;株式額面&nbsp;<% = ConvIntToMoney(Gakumen, false, false) %>円
															</td>
														</tr>
														<tr>
															<td height="29">事業目的</td>
															<td><% = Mokuteki %></td>
															<td>
																&nbsp;勘定残高：<% If KanjyoZandakaShiwakeGyosu > 0 Then %>設定済<% Else %>未設定<% End If %>
																<% If GyosyuCD <> "B" Then %>
																&nbsp;&nbsp;&nbsp;&nbsp;繰越残高：<% If KozaSonzai > 0 Then %><% If KurikoshiZandakaKingaku > 0 Then %>設定済<% Else %>口座有り<% End If %><% Else %>未設定<% End If %>
																<% End If %>
															</td>
														</tr>
														<% If Kitakuriyou = "1" And GyosyuCD = "S" Then %>
														<tr>
															<td height="29">寄託倉庫</td>
															<td><% = KitakuKaisyaMei %></td>
															<td>
																<% If KanKatsu <> "" Then %>
																&nbsp;管轄&nbsp;&nbsp;&nbsp;<% = KanKatsu %>地方裁判所
																<% End If %>
															</td>
														</tr>
														<tr>
															<td height="29">出庫指示責任者</td>
															<td COLSPAN="2"><% = ConvSyainShimei(TantosyaCD) %></td>
														</tr>
														<% end if %>
													<% End If %>

													</table>
												</td>
			<!--3x3中段右-->
			<!--3x3下段左--><!--3x3下段中央--><!--3x3下段右-->
											</tr>
										</table>
									</td>
								</tr>
							</table>
						<%
							Response.Write(PrintFooter())
						%>
						</td>
					</tr>
				</table>
			</td>
		</tr>
	</table>
</body>
</html>
<%
End Sub
%>