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

	Dim RowBreakNum, RowCount
	Dim Page
	RowCount = 0
	
	If PrintFlg = 1 Then
		RowBreakNum = 33
	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

	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="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
							<tr>
								<td valign="top" align="center" height="30">
									<table border="0" width="100%" 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>
								</td>
							</tr>
							<TR>
								<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600">
									<TABLE WIDTH="600" HEIGHT="20" BORDER="0" CELLPADDING="0" CELLSPACING="0" class="bt3" STYLE="border-collapse: collapse">
										<TR ALIGN="CENTER">
											<TD WIDTH="83" HEIGHT="23" class="br1b1">取引日</TD>
											<TD				HEIGHT="23" class="br1b1">摘　要</TD>
											<TD WIDTH="94" HEIGHT="23" class="br3b1">収　入</TD>
											<TD WIDTH="94" HEIGHT="23" class="br3b1">支　出</TD>
											<TD WIDTH="94" HEIGHT="23" 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:620px; height:100%; z-index:1; overflow: auto;"> 
								<% End If %>
										<TABLE ID="SyoukaiList" WIDTH="600" 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 = ""


											Do While Not(Content.BOF Or Content.EOF)
												RowCount = RowCount + 1
												Dim Torihikibi, Tekiyo, Syunyu, Shisyutsu, Zandaka
												'自動現金出納帳（伝票集計）
												If AutoFlg = 2 Then
													Torihikibi = SetTimeYYYYMMDD(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 = SetTimeYYYYMMDD(Content.Fields("取引日"))
													Syunyu = Content.Fields("収入金額")
													Shisyutsu = Content.Fields("支出金額")
													Zandaka = Content.Fields("残高")
													Tekiyo = Content.Fields("摘要")
												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=""83"" HEIGHT=""23"" ALIGN=""center"" class=""br1"">" & Torihikibi & "</TD>" & vbCrLf)
												Response.Write("<TD				 HEIGHT=""23"" ALIGN=""LEFT"" class=""br1""><span style=""width:227px; height:14px; overflow:hidden;"">" & HardWrap(Tekiyo) & "</span></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(Syunyu , false, true) & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(Shisyutsu, false, true) & "</TD>" & vbCrLf)
If Zandaka <> 0 Then
												Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""b0"">" & ConvIntToMoney(Zandaka, false, true) & "</TD>" & vbCrLf)
Else
												'Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""b0"">" & Zandaka & "</TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""b0"">&nbsp;</TD>" & vbCrLf)
End If
												Response.Write("</TR>")
												ii = ii + 1
												Content.MoveNext
												If (RowCount Mod RowBreakNum = 0) Then
													Exit Do
												End If
											Loop

											For jj = RowCount + 1 To Max(19, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg)
												Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
												Response.Write("<TD WIDTH=""83"" HEIGHT=""23"" CLASS=""br1""></TD>" & vbCrLf)
												Response.Write("<TD				 HEIGHT=""23"" CLASS=""br1""></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
												Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" CLASS=""b0""></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="20" VALIGN="BOTTOM">
									<TABLE WIDTH="600" HEIGHT="20" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt1" STYLE="border-collapse: collapse">
										<TR ALIGN="CENTER">
											<TD align="center" HEIGHT="28" class="br1">合計</TD>
											<TD align="right" WIDTH="94" class="br3"><% = ConvIntToMoney(DbKarikataKingakuTotal, false, true) %></TD>
											<TD align="right" WIDTH="94" class="br3"><% = ConvIntToMoney(DbKashikataKingakuTotal, false, true) %></TD>
											<!--<TD align="right" WIDTH="94" class="b0"><% = ConvIntToMoney(DbKarikataKingakuTotal - DbKashikataKingakuTotal, false, true) %></TD>-->
											<TD align="right" WIDTH="94" class="b0">　</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
%>