<%
Function TyoboGokeiZandakaShisanhyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, Param1, Param2, Param3)

	Dim RowBreakNum, RowCount
	Dim Page
	RowCount = 0
	
	If PrintFlg = 1 Then
		RowBreakNum = 30
	Else
		RowBreakNum = MaxRowBreakNum
		MaxPage = 1
	End If

	Dim Query
	Dim Content
	Dim Content2
	Dim ii, jj
	ii = 0

	Dim RouteType
	RouteType = Request("RouteType")

	Dim Torihikibi
	Torihikibi = Request("Torihikibi")
	If BunsyoNaiyoCD <> "" Then
		Torihikibi = BunsyoNaiyoCD
	End If

	Dim KaikeiKaishibi, KaikeiSyuryobi
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		KaikeiKaishibi = Content.Fields("会計開始日")
		KaikeiSyuryobi = Content.Fields("会計終了日")
	End If

	If Param1 <> "" Then
		'「開始日;終了日」の形式で範囲指定出来るよう変更(120305小野)
		If InStr(Param1, ";") < 1 Then
			'終了日のみの場合
			KaikeiSyuryobi = Param1
		Else
			'「開始日;終了日」の場合
			Dim FromTo
			FromTo = Split(Param1, ";")
			KaikeiKaishibi = FromTo(0)
			KaikeiSyuryobi = FromTo(1)
		End If
	End If


	If Param2 = "2" Then
		Param2 = "11"
	ElseIf Param2 = "1" Then
		Param2 = "10"
	Else
		Param2 = "9"
	End If

	Dim SyoruiMei
	If AutoFlg = 0 Then
'		Query = "exec SPK帳簿_合計残高試算表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
		Query = "exec SPK帳簿_合計残高試算表取得日付指定 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & Torihikibi & "'"
		SyoruiMei = "合計残高試算表"
	ElseIf AutoFlg = 1 Then
		Query = "exec SPK自動転記帳簿_合計残高試算表照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaikeiKaishibi & "', '" & KaikeiSyuryobi & "', " & Param2 & ", '" & Param3 & "'"
		SyoruiMei = "合計残高試算表(自動)"
	Else
		Query = "SELECT * FROM TC1システムM WHERE 1 = 0"
		SyoruiMei = "合計残高試算表"
	End If

	If AutoFlg = 1 Then
		If Param2 = "11" Then
			SyoruiMei = "決算残高試算表(自動)"
		ElseIf Param2 = "10" Then
			SyoruiMei = "修正後残高試算表(自動)"
		End If
	End If


	Set Content = OpenQuery(Query)
	Dim KarikataZandakaTotal, KashikataZandakaTotal
	Dim KarikataKingakuTotal, KashikataKingakuTotal
	KarikataZandakaTotal = 0
	KashikataZandakaTotal = 0
	KarikataKingakuTotal = 0
	KashikataKingakuTotal = 0

	If AutoFlg = 1 Then
		Torihikibi = KaikeiSyuryobi
	Else
		If Not(Content.BOF Or Content.EOF) Then
			Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
		End IF
	End If


	If PrintFlg = 0 Then
%>
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" STYLE="BORDER:0px solid #000000" WIDTH="660" HEIGHT="100%"><tr><td>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="100%" HEIGHT="100%"><tr><td>
<%
	End If

	For Page = 1 To MaxPage
		If Page <> 1 Then
			Response.Write(PageBreakBefore)
		End If
%>
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="660" HEIGHT="100%">
	<TR>
		<TD ALIGN="CENTER" valign="top">
		<%
			If PrintFlg = 1 Then
				Response.Write(PrintHeader1(AutoFlg))
			End if
		%>
			<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="5" WIDTH="100%" HEIGHT="100%">
				<TR>
					<TD ALIGN="CENTER" valign="top">
						<TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
							<tr>
								<td valign="top" align="center" height="30">
									<table border="0" width="600" cellspacing="0" cellpadding="0">
										<tr>
											<td align="left" width="35%" nowrap></td>
											<td align="center" width="30%" class="bb2" nowrap><% = SetStringInsertSpace(SyoruiMei) %></td>
											<td align="right" width="35%" nowrap class="tx1214"><% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ページ<% End If %></td>
										</tr>
										<tr>
											<td width="230"></td>
											<td class="tx1416" align="center" nowrap height="25"><% 
If AutoFlg = - 1 Then
	Response.Write("    年    月    日")
'		自動			印刷			運用管理の書類一覧
ElseIf AutoFlg = 1 Or PrintFlg = 1 Or InStr(Request.ServerVariables("SCRIPT_NAME"), "/admin/syokai/fm_tyohyo_main.asp") > 0 Then
	If KaikeiKaishibi <> GB_KaikeiKaishibi Then
		'集計開始日が指定された場合
		Response.Write(SetDate(KaikeiKaishibi, 2) & " ~ ")
	End If
	Response.Write(SetDate(Torihikibi, 2))
Else
	Response.Write("日付:<select size=""1"" name=""Torihikibi"" onChange=""tblbtn('fk_gokeizandakashisanhyo_view.asp?RouteType=" & RouteType & "&Torihikibi=' + this.value);"" class=""tbox4_w"">" & vbCrLf)
	Response.Write("<option value="""">    </option>" & vbCrLf)
	Query = "exec SPK帳簿_合計残高試算表取引日一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content2 = OpenQuery(Query)
	Do While Not(Content2.BOF Or Content2.EOF)
		Response.Write("<option value=""" & SetTimeYYYYMMDD(Content2.Fields("取引日")) & """")
		If "" & SetTimeYYYYMMDD(Content2.Fields("取引日")) = "" & Torihikibi Then
			Response.Write(" selected")
		End If
		Response.Write(">" & SetTimeYYYYMMDD(Content2.Fields("取引日")))
		Response.Write("</option>" & vbCrLf)
		Content2.MoveNext
	Loop
	Response.Write("</select>" & vbCrLf)
'	Response.Write(SetDate(Torihikibi, 2))
End If
											%></td>
											<td class="tx1416" width="230" align="right"></td>
										</tr>
									</table>
								</td>
							</tr>
							<TR>
								<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600">
									<TABLE WIDTH="583" HEIGHT="20" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt3" STYLE="border-collapse: collapse">
										<tr>
											<TD HEIGHT="23" colspan="2" align="center" class="br3b1">借方</TD>
											<TD HEIGHT="40" rowspan="2" align="center" class="br3b1">勘定科目</TD>
											<TD HEIGHT="23" colspan="2" align="center" class="bb1">貸方</TD>
										</tr>
										<TR ALIGN="CENTER">
											<TD WIDTH="92" HEIGHT="23" align="center" class="br3b1">残高</TD>
											<TD WIDTH="92" HEIGHT="23" align="center" class="br3b1">合計</TD>
											<TD WIDTH="92" HEIGHT="23" align="center" class="br3b1">合計</TD>
											<TD WIDTH="92" HEIGHT="23" align="center" class="bb1">残高</TD>
										</TR>
									</TABLE>
								</TD>
							</TR>
							<TR>
								<TD HEIGHT="1" VALIGN="BOTTOM"></TD>
							</TR>
							<TR>
								<TD VALIGN="TOP">
								<% If PrintFlg <> 1 Then %>
									<DIV ID="Layer1" STYLE="position:relative; left:0px; top:-1px; width:603px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;"> 
								<% End If %>
								<TABLE ID="SyoukaiList" WIDTH="583" BORDER="0" CELLSPACING="0" CELLPADDING="0" STYLE="border-collapse: collapse">
								<%

									Do While Not(Content.BOF Or Content.EOF)
										RowCount = RowCount + 1
										Dim KarikataZandaka, KarikataKingaku
										Dim KanjyoCD, KanjyoKamoku
										Dim KashikataZandaka, KashikataKingaku

										KarikataZandaka = Content.Fields("借方残高")
										KarikataKingaku = Content.Fields("借方金額")
										KanjyoCD = Content.Fields("勘定CD")
										KashikataKingaku = Content.Fields("貸方金額")
										KashikataZandaka = Content.Fields("貸方残高")

										If IsNull(KarikataZandaka) or (KarikataZandaka="") Then
										Else
											 KarikataZandakaTotal = KarikataZandakaTotal + KarikataZandaka
										End If

										If IsNull(KarikataKingaku) or (KarikataKingaku="") Then
										Else
											KarikataKingakuTotal = KarikataKingakuTotal + KarikataKingaku
										End If

										If IsNull(KashikataZandaka) or (KashikataZandaka="") Then
										Else
											 KashikataZandakaTotal = KashikataZandakaTotal + KashikataZandaka
										End If

										If IsNull(KashikataKingaku) or (KashikataKingaku="") Then
										Else
											KashikataKingakuTotal = KashikataKingakuTotal + KashikataKingaku
										End If

											Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
											Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(Content.Fields("借方残高"), false, true) & "</TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(Content.Fields("借方金額"), false, true) & "</TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""50"" ALIGN=""center"" CLASS=""br1"">" & Content.Fields("勘定CD") & "</TD>" & vbCrLf)
											Response.Write("<TD HEIGHT=""23"" ALIGN=""LEFT"" CLASS=""br3"">" & Content.Fields("勘定名称") & "</TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(Content.Fields("貸方金額"), false, true) & "</TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""b0"">" & ConvIntToMoney(Content.Fields("貸方残高"), false, true) & "</TD>" & vbCrLf)
											ii = ii + 1
											Response.Write("</TR>")
										Content.MoveNext
										If (RowCount Mod RowBreakNum = 0) Then
											Exit Do
										End If
									Loop

									If 1 = 1 Then
										For jj = RowCount + 1 To Max(30, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg)
											Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
											Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""50"" CLASS=""br1""></TD>" & vbCrLf)
											Response.Write("<TD HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
											Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" CLASS=""b0""></TD>" & vbCrLf)
											Response.Write("</TR>")
										Next
									End if
									%>

								</TABLE>
								<% If PrintFlg <> 1 Then %>
									</DIV>
								<% End If %>
								</TD>
							</TR>
							<% If Content.BOF Or Content.EOF Then %>
							<TR>
								<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600">
									<TABLE WIDTH="583" HEIGHT="20" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt1" STYLE="border-collapse: collapse">
										<TR ALIGN="CENTER">
											<TD align="right" WIDTH="92" HEIGHT="23" class="br3b1"><% = ConvIntToMoney(KarikataZandakaTotal, false, true) %></TD>
											<TD align="right" WIDTH="92" HEIGHT="23" class="br3b1"><% = ConvIntToMoney(KarikataKingakuTotal, false, true) %></TD>
											<TD align="center" HEIGHT="23" class="br3b1">合計</TD>
											<TD align="right" WIDTH="92" HEIGHT="23" class="br3b1"><% = ConvIntToMoney(KashikataKingakuTotal, false, true) %></TD>
											<TD align="right" WIDTH="92" HEIGHT="23" class="bb1"><% = ConvIntToMoney(KashikataZandakaTotal, false, true) %></TD>
										</TR>
									</TABLE>
								</TD>
							</TR>
						<% End If %>
						</TABLE>
						<%
							If PrintFlg = 1 Then
								Response.Write(PrintFooter())
							End If
						%>
					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>
<%
		If (Content.BOF Or Content.EOF) Then
			Exit For
		End If
	Next

	If PrintFlg = 0 Then
%>
</td></tr></table>
</td></tr></table>
<%
	End if


End Function
%>