<!-- #include file="../../../include.asp" -->
<!-- #include file="../../../user/bk/tyobo/fk_sonekikeisansyo_view_main_in.asp" -->

<%
'<!--
'################################################
'	名称	：損益計算書の照会
'	作成日：2002/11/12
'	作成者：川崎
'	目的　：損益計算書の照会画面を表示する。
'	概要	：
'	 <<表示>>
'	・損益計算書の照会
'################################################
'-->
'
'
%>

<%

	Dim WK_Zandaka_KanjyoCD()
	Dim WK_Zandaka_KanjyoName()
	Dim WK_Zandaka_KariKingaku()
	Dim WK_Zandaka_KashiKingaku()
	Dim WK_Zandaka_KanjyoKubun()
	Dim WK_Zandaka_TaisyakuKubun()
	Dim WK_Zandaka_SyukeiCD()
	Dim ShowCount, MaxCount

	Dim WK_Zandaka()
	Dim DSP_Zandaka()
	Dim HiNikubun


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

	Dim tmp
	Dim Query, Content
	Dim Kaishibi
	Dim Syuryobi
	Dim TanaorosiFlg, HiNikubunFlg
	Dim TanaorosiKubun
	Dim TyohyoHeader, TableHeader, TableFooter
	Dim Nikubun

	Kaishibi = Request("Kaishibi")
	Syuryobi = Request("Syuryobi")
	TanaorosiKubun = Request("TanaorosiKubun")
	HiNikubun = Request("HiNikubun")
	Nikubun = Request("Nikubun")

	Dim KurikoshiKubun
	KurikoshiKubun = Request("KurikoshiKubun")
	Dim KurikoshiFlg
	If KurikoshiKubun = "1" Then	'チェックあり
		KurikoshiFlg = "checked"
	Else
		KurikoshiFlg = ""
	End If

	Dim PageType
	PageType = "損益計算書"

	If Kaishibi = "" Then
		Kaishibi = GB_KaikeiKaishibi
	End If
	IF Syuryobi = "" Then
		Syuryobi = GB_KaikeiSyuryobi
	End If

	If TanaorosiKubun = "1" Then	'チェックあり
		TanaorosiFlg = "checked"
	Else
		TanaorosiFlg = ""
	End If

	If HiNikubun = "1" Then	'チェックあり
		HiNikubunFlg = "checked"
	Else
		HiNikubunFlg = ""
	End If

	Dim RouteType
	RouteType = Request("RouteType")

	Dim bExistSyuseiKinyu
	bExistSyuseiKinyu = 0
	Query = "exec SPK伝票集計取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', -1, -1, 9"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		bExistSyuseiKinyu = 1
	End If

	TyohyoHeader = TyohyoHeader & "		<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & vbCrLf
	TyohyoHeader = TyohyoHeader & "					<tr>" & vbCrLf
	TyohyoHeader = TyohyoHeader & "						<td width=""25%"">　</td>" & vbCrLf
	TyohyoHeader = TyohyoHeader & "						<td width=""50%"" align=""center"">" & vbCrLf
	TyohyoHeader = TyohyoHeader & "			自：" & SetDate(Kaishibi, 2) & "～至：" & SetDate(Syuryobi, 2) & vbCrLf
	TyohyoHeader = TyohyoHeader & "			</td>" & vbCrLf

	If bExistSyuseiKinyu = 0 Then
		If TanaorosiKubun = "1" Then
			TyohyoHeader = TyohyoHeader & "			<td width=""25%"">帳簿棚卸後を表示</td>" & vbCrLf
		Else
			TyohyoHeader = TyohyoHeader & "			<td width=""25%""></td>" & vbCrLf
		End If
	Else
		If HiNikubun = "1" Then
			TyohyoHeader = TyohyoHeader & "			<td width=""25%"" CLASS=""tx1214"">[2区分損益計算書形式で表示]</td>" & vbCrLf
		Else
			TyohyoHeader = TyohyoHeader & "			<td width=""25%"" CLASS=""tx1214"">[精算表整理記入適用済]</td>" & vbCrLf

		End If
	End If

	TyohyoHeader = TyohyoHeader & "					</tr>" & vbCrLf
	TyohyoHeader = TyohyoHeader & "				</table>" & vbCrLf


	TableHeader = ""
'	TableHeader = TableHeader & "			</tr>" & vbCrLf

	TableHeader = TableHeader & "	<table border=""0"" width=""100%"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
	TableHeader = TableHeader & "		<tr valign=""top"">" & vbCrLf
	TableHeader = TableHeader & "			<td>" & vbCrLf
	TableHeader = TableHeader & "" & vbCrLf
	TableHeader = TableHeader & "		<table border=""1"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""100%"" class=""tx1416"">" & vbCrLf
	TableHeader = TableHeader & "" & vbCrLf
	TableHeader = TableHeader & "		<tr bgcolor=""#DDDDDD"">" & vbCrLf
	TableHeader = TableHeader & "		<td width=""30%"" align=""center"">費用</td>" & vbCrLf
	TableHeader = TableHeader & "		<td width=""20%"" align=""center"">金額</td>" & vbCrLf
	TableHeader = TableHeader & "		<td width=""30%"" align=""center"">収益</td>" & vbCrLf
	TableHeader = TableHeader & "		<td width=""20%"" align=""center"">金額</td>" & vbCrLf
	TableHeader = TableHeader & "		</tr>" & vbCrLf
	TableHeader = TableHeader & "		</table>" & vbCrLf
	TableHeader = TableHeader & "			</td>" & vbCrLf
	TableHeader = TableHeader & "" & vbCrLf

	TableFooter = ""
	TableFooter = TableFooter & "		</table>" & vbCrLf
	TableFooter = TableFooter & "" & vbCrLf
	TableFooter = TableFooter & "			</td>" & vbCrLf
	TableFooter = TableFooter & "		</tr>" & vbCrLf
	TableFooter = TableFooter & "	</table>" & vbCrLf
%>
<html>
<% = HtmlHeader("sj3tyobored11") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 0;

	//印刷余白指定（ミリ指定）
	PrintTopMargin = 20;
	PrintLeftMargin = 18;
//	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 %>

<% If bExistSyuseiKinyu = 0 Then
	Response.Write(TyoboSonekiKeisansyo(EnshuCD, KaisyaCD, KaisyaCD, "LF", "", 1, 1, Kaishibi, Syuryobi, TanaorosiKubun, KurikoshiKubun))
Else
	Response.Write(TyoboSonekiKeisansyo(EnshuCD, KaisyaCD, KaisyaCD, "LF", "", 1, 1, Kaishibi, Syuryobi, Nikubun, KurikoshiKubun))
End if
%>
</body>

</html>

<%
End Sub
%>