<%
Function HojyobokoguchiSuitohyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg)

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

	Dim DbKarikataKingakuTotal
	Dim DbKashikataKingakuTotal 
	DbKarikataKingakuTotal = 0
	DbKashikataKingakuTotal = 0
	Dim SyoruiMei
	If AutoFlg = 2 Then
		Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'AA', '%', '', ''"
		SyoruiMei = "現金出納帳(自動)"
	ElseIf AutoFlg = 1 Then
		Query = "exec SPK現金入出金履歴一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
		SyoruiMei = "入出金履歴"
	Else
		Query = "exec SPK補助簿_小口現金出納帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
		SyoruiMei = "小口現金出納帳"
	End If
'response.write(Query)
'Exit function

	Set Content = OpenQuery(Query)

	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

	'表示と印刷でサイズ可変
	Dim WidthTorihikibi, WidthKingakuWide, WidthKingakuNarrow, WidthParent, WidthParent2, WidthTekiyo
	Dim HeightCell
	If PrintFlg = 0 Then
		HeightCell = 23
		WidthTorihikibi = 82
		WidthKingakuWide = 92
		WidthKingakuNarrow = 72
		WidthParent = 842
		WidthParent2 = 822
		WidthTekiyo = 187
	Else
		HeightCell = 21
		WidthTorihikibi = 68
		WidthKingakuWide = 78
		WidthKingakuNarrow = 62
		WidthParent = 700
		WidthParent2 = 680
		WidthTekiyo = 157
	End If


	Dim GokeiSyunyu
	Dim GokeiShisyutsu
	Dim GokeiKingaku1
	Dim GokeiKingaku2
	Dim GokeiKingaku3
	Dim GokeiKingaku4
	Dim GokeiKingaku5
	GokeiSyunyu = 0
	GokeiShisyutsu = 0
	GokeiKingaku1 = 0
	GokeiKingaku2 = 0
	GokeiKingaku3 = 0
	GokeiKingaku4 = 0
	GokeiKingaku5 = 0


	For Page = 1 To MaxPage
		If Page <> 1 Then
			Response.Write(PageBreakBefore)
		End If

%>
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="600" 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" BGCOLOR="#FFFFFF" WIDTH="100%" HEIGHT="100%">
				<TR>
					<TD ALIGN="left" vALIGN="top">
						<TABLE WIDTH="<% = WidthParent %>" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
							<tr>
								<td valign="top" align="center" height="30">
									<table border="0" width="<% = WidthParent2 %>" 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>
									</table>
<% If GB_IEmode <> "1" Then %>
<div><% = Spacer(1, 7) %></div>
<% End If %>
								</td>
							</tr>
							<TR>
								<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600">
									<TABLE WIDTH="<% = WidthParent2 %>" HEIGHT="20" BORDER="0" CELLPADDING="0" CELLSPACING="0" class="bt3" STYLE="border-collapse: collapse">
										<TR ALIGN="CENTER">
											<TD WIDTH="<% = WidthKingakuWide %>" class="br3b1" rowspan="2">受 入</TD>
											<TD WIDTH="<% = WidthTorihikibi %>" class="br1b1" rowspan="2">取引日</TD>
											<TD class="br3b1" rowspan="2">摘    要</TD>
											<TD WIDTH="<% = WidthKingakuWide %>" class="br3b1" rowspan="2">支 払</TD>
											<TD HEIGHT="<% = HeightCell %>" class="bb1" colspan="5">内        訳</TD>
										</TR>
										<TR ALIGN="CENTER">
											<TD WIDTH="<% = WidthKingakuNarrow %>" HEIGHT="<% = HeightCell %>" class="br1b1">通信費</TD>
											<TD WIDTH="<% = WidthKingakuNarrow %>" class="br1b1">交通費</TD>
											<TD WIDTH="<% = WidthKingakuNarrow %>" class="br1b1">消耗品費</TD>
											<TD WIDTH="<% = WidthKingakuNarrow %>" class="br1b1">水道光熱</TD>
											<TD WIDTH="<% = WidthKingakuNarrow %>" 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:<% = WidthParent %>px; height:100%; z-index:1; overflow: auto;"> 
								<% End If %>
										<TABLE ID="SyoukaiList" WIDTH="<% = WidthParent2 %>" BORDER="0" CELLSPACING="0" CELLPADDING="0" CLASS="tx1416" STYLE="border-collapse: collapse">
										<%
											Dim Query
											Dim Content
											Dim ii, jj
											ii = 0
											'月計表示のため現在の月を保持する変数(110509小野)
											Dim TmpMonth
											TmpMonth = ""

'exit function
											Do While Not(Content.BOF Or Content.EOF)
												RowCount = RowCount + 1
												Dim Torihikibi, Tekiyo, Syunyu, Shisyutsu, Kingaku1, Kingaku2, Kingaku3, Kingaku4, Kingaku5
												'自動現金出納帳(伝票集計)
												If AutoFlg = 2 Then
													Torihikibi = Content.Fields("取引日")
													Syunyu = Content.Fields("借方金額")
													Shisyutsu = Content.Fields("貸方金額")
													Zandaka = Zandaka + Syunyu - Shisyutsu
													Tekiyo = "" & Content.Fields("伝票摘要")
													If Tekiyo = "" Then
														Tekiyo = Content.Fields("摘要")
													End If
												'自動現金入出金履歴(現物集計)
												ElseIf AutoFlg = 1 Then
													Torihikibi = Content.Fields("処理日")
													If Content.Fields("現金取引区分") = "GN" Then
														Syunyu = Content.Fields("金額")
														Shisyutsu = 0
													ElseIf Content.Fields("現金取引区分") = "GS" Then
														Syunyu = 0
														Shisyutsu = Content.Fields("金額")
													Else
														Syunyu = Content.Fields("金額")
														Shisyutsu = Content.Fields("金額")
													End If
													Zandaka = Zandaka + Syunyu - Shisyutsu
													Tekiyo = Content.Fields("摘要")
												Else
													Torihikibi = Content.Fields("取引日")
													Syunyu = Content.Fields("受入")
													Shisyutsu = Content.Fields("支払")
													Tekiyo = Content.Fields("摘要")
													Kingaku1 = Content.Fields("通信費")
													Kingaku2 = Content.Fields("交通費")
													Kingaku3 = Content.Fields("消耗品費")
													Kingaku4 = Content.Fields("水道光熱費")
													Kingaku5 = Content.Fields("その他")
													If "" & Syunyu <> "" Then
														GokeiSyunyu = GokeiSyunyu + Syunyu
													End If
													If "" & Shisyutsu <> "" Then
														GokeiShisyutsu = GokeiShisyutsu + Shisyutsu
													End If
													If "" & Kingaku1 <> "" Then
														GokeiKingaku1 = GokeiKingaku1 + Kingaku1
													End If
													If "" & Kingaku2 <> "" Then
														GokeiKingaku2 = GokeiKingaku2 + Kingaku2
													End If
													If "" & Kingaku3 <> "" Then
														GokeiKingaku3 = GokeiKingaku3 + Kingaku3
													End If
													If "" & Kingaku4 <> "" Then
														GokeiKingaku4 = GokeiKingaku4 + Kingaku4
													End If
													If "" & Kingaku5 <> "" Then
														GokeiKingaku5 = GokeiKingaku5 + Kingaku5
													End If
												End If

												'月計表示(110509小野)(とりあえず保留)
												If 0=1 And TmpMonth <> "" And Mid(Torihikibi, 6, 2) <> TmpMonth Then
													Response.Write("<TD WIDTH=""83"" HEIGHT=""23"" ALIGN=""center"" class=""br1b3"">&nbsp;</TD>" & vbCrLf)
													Response.Write("<TD				 HEIGHT=""23"" ALIGN=""LEFT"" class=""br1""><span style=""width:227px; overflow:hidden;"">&nbsp;</span></TD>" & vbCrLf)
													Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3b3"">" & ConvIntToMoney(DbKarikataKingakuTotal , false, true) & "</TD>" & vbCrLf)
													Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3b3"">" & ConvIntToMoney(DbKashikataKingakuTotal, false, true) & "</TD>" & vbCrLf)
													Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""bb3"">&nbsp;</TD>" & vbCrLf)
													DbKarikataKingakuTotal = 0	'リセット
													DbKashikataKingakuTotal = 0	'リセット
													'発生行のためMoveNextせず改ページ判定する
													If (RowCount Mod RowBreakNum = 0) Then
														Exit Do
													End If
												End If
												TmpMonth = Mid(Torihikibi, 6, 2)

												If "" & Syunyu <> "" Then
													DbKarikataKingakuTotal = DbKarikataKingakuTotal + Syunyu
												End If
												If "" & Shisyutsu <> "" Then
													DbKashikataKingakuTotal = DbKashikataKingakuTotal + Shisyutsu
												End If

												Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingakuWide & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Syunyu , false, true) & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ ALIGN=""CENTER"" class=""br1"">" & Torihikibi & "</TD>" & vbCrLf)
												Response.Write("<TD HEIGHT=""" & HeightCell & """ ALIGN=""LEFT"" class=""br3""><span style=""width:" & WidthTekiyo & "px; height:14px; overflow:hidden;"">" & HardWrap(Tekiyo) & "</span></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingakuWide & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Shisyutsu , false, true) & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(Kingaku1 , false, true) & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(Kingaku2 , false, true) & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(Kingaku3 , false, true) & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(Kingaku4 , false, true) & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Kingaku5 , false, true) & "</TD>" & vbCrLf)
												Response.Write("</TR>" &vbCrLf)
												ii = ii + 1
												Content.MoveNext
												If (RowCount Mod RowBreakNum = 0) Then
													Exit Do
												End If
											Loop

											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=""" & WidthKingakuWide & """ ALIGN=""RIGHT"" class=""br3"">&nbsp;</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ ALIGN=""center"" class=""br1"">&nbsp;</TD>" & vbCrLf)
												Response.Write("<TD HEIGHT=""" & HeightCell & """ ALIGN=""center"" class=""br3"">&nbsp;</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingakuWide & """ ALIGN=""RIGHT"" class=""br3"">&nbsp;</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1"">&nbsp;</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1"">&nbsp;</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1"">&nbsp;</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1"">&nbsp;</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""b0"">&nbsp;</TD>" & vbCrLf)
												Response.Write("</TR>")
											Next
										%>

										</TABLE>
								<% If PrintFlg <> 1 Then %>
									</DIV>
								<% End If %>
								</TD>
							</TR>
							<% If (Content.BOF Or Content.EOF) Then %>
							<TR ALIGN="left">
								<TD HEIGHT="27" VALIGN="BOTTOM">
									<TABLE WIDTH="<% = WidthParent2 %>" HEIGHT="29" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt1" STYLE="border-collapse: collapse">
										<TR ALIGN="CENTER">
											<TD ALIGN="RIGHT" WIDTH="<% = WidthKingakuWide %>" class="br3"><% = ConvIntToMoney(GokeiSyunyu, false, true) %></TD>
											<TD WIDTH="<% = WidthTorihikibi %>" class="br1">&nbsp;</TD>
											<TD class="br3">合    計</TD>
											<TD ALIGN="RIGHT" WIDTH="<% = WidthKingakuWide %>" class="br3"><% = ConvIntToMoney(GokeiShisyutsu, false, true) %></TD>
											<TD ALIGN="RIGHT" WIDTH="<% = WidthKingakuNarrow %>" class="br1"><% = ConvIntToMoney(GokeiKingaku1, false, true) %></TD>
											<TD ALIGN="RIGHT" WIDTH="<% = WidthKingakuNarrow %>" class="br1"><% = ConvIntToMoney(GokeiKingaku2, false, true) %></TD>
											<TD ALIGN="RIGHT" WIDTH="<% = WidthKingakuNarrow %>" class="br1"><% = ConvIntToMoney(GokeiKingaku3, false, true) %></TD>
											<TD ALIGN="RIGHT" WIDTH="<% = WidthKingakuNarrow %>" class="br1"><% = ConvIntToMoney(GokeiKingaku4, false, true) %></TD>
											<TD ALIGN="RIGHT" WIDTH="<% = WidthKingakuNarrow %>" class="b0"><% = ConvIntToMoney(GokeiKingaku5, false, true) %></TD>
										</TR>
									</TABLE>
								</TD>
							</TR>
							<% End If %>

						</TABLE>
					</TD>
				</TR>
			</TABLE>
			<%
				If PrintFlg = 1 Then
					Response.Write(PrintFooter())
				End If
			%>

		</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
%>