<!-- #include virtual="/sj4web/include.asp" -->

<%
'<!-- 
'################################################
'	名称  :帳簿_仕訳集計表の印刷画面
'	作成日:2003/1/23
'	作成者:山崎
'	目的 :帳簿_仕訳集計表の印刷画面を表示する。
'	概要  :
'	 <<表示>>
'	・帳簿_仕訳集計表の印刷画面
'################################################
'-->
'
'
%>

<% 
main()

Sub main()

	Dim Kaishibi
	Dim Syuryobi
	Dim Query
	Dim Content
	Dim ii, jj


	Kaishibi = Request("Kaishibi")
	Syuryobi = Request("Syuryobi")
	
	If Kaishibi = "" Then
		Kaishibi = GB_KaikeiKaishibi
	End If
	IF Syuryobi = "" Then
		Syuryobi = GB_KaikeiSyuryobi
	End If
	
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="/sj4web/binx/sj3web.css" rel="stylesheet" type="text/css">
<link href="/sj4web/binx/sj3tyobored.css" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="/sj4web/include.js"></script>
<script language="JScript" src="/sj4web/includesj.js"></script>
<script language="JScript.Encode" src="/sj4web/include_enc.js"></script>
<script language="JScript.Encode" src="/sj4web/includesj_enc.js"></script>

</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	ExitFlg = 0;

	//印刷余白指定(ミリ指定)
	PrintTopMargin = 20;
	PrintLeftMargin = 23;
//	PrintTopMargin = 0;
//	PrintLeftMargin = 0;

-->
</SCRIPT>

<% If PrintMarginControl > 0 Then %>
<body onload="this.focus();doPrint(window);" onkeydown="if(ExitFlg==2)ExitFlg=3;" topmargin="0" leftmargin="0"><!--余白指定印刷-->
<% = ScriptXObject() %>
<% Else %>
<body onload="this.focus();window.print();" onkeydown="if(ExitFlg==2)ExitFlg=3;" topmargin="0" leftmargin="0">
<% End If %>

 
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
	<tr>
		<td valign="top" align="center">
			<table width="100%" border="0" cellspacing="0" cellpadding="0">
				<tr>
					<td height="100%" width="100%" valign="top">
						<%
							Response.Write(PrintHeader(0, "キャッシュフロー計算書"))										
						%>

							<TABLE WIDTH="620" BORDER="0" CELLSPACING="5" CELLPADDING="0" HEIGHT="100%" bgcolor="#FFFFFF">
 					 
								<TR>
									<TD>																	
										<TABLE WIDTH="620" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
											<TR> 
												<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600"> 
													<TABLE WIDTH="600" HEIGHT="20" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#DDDDDD" CLASS="tx1416" STYLE="border-collapse: collapse">
														<TR ALIGN="CENTER"> 
															<TD HEIGHT="20" colspan="3" align="left">対象期間 <% = Kaishibi %> ~ <% = Syuryobi %></TD>
														</TR>
 
														<TR ALIGN="CENTER"> 
															<TD WIDTH="400" HEIGHT="20" > 勘 定 項 目 </TD>
															<TD WIDTH="80" HEIGHT="20" > 金 			額 </TD>
															<TD WIDTH="80" HEIGHT="20" > </TD>
														</TR>
													 </TABLE>
												</TD>
											</TR>
											<TR> 
												<TD VALIGN="TOP"> 
														<TABLE ID="SyoukaiList" WIDTH="600" BORDER="1" CELLSPACING="0" CELLPADDING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1214" STYLE="border-collapse: collapse">
									
														<%



															Dim RowCount, RowBreakNum
							
															ii = 0			
																	
															RowCount = 0
															RowBreakNum = 5
															Query = "exec SPKキャッシュフロー '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" 

															Set Content = OpenQuery(Query)		
															
															
																Do While Not(Content.BOF Or Content.EOF)
																	RowCount = RowCount + 1
																	Response.Write("<tr>" & vbCrLf)
													'				Response.Write("<td width=""400"">" & Content.Fields("勘定名称") & "</td>")
																	Response.Write("<td width=""400""><table width=""400"" CLASS=""tx1214""><tr>")
																	Response.Write("<td width=""50"">" & Content.Fields("分類名称") & "</td>")
																	Response.Write("<td width=""350"">" & Content.Fields("勘定名称") & "</td>")
																	Response.Write("</tr></table></td>")
																	Response.Write("<td width=""80"" align=""right"">" & ConvIntToMoney(Content.Fields("金額左"), false, true) & "</td>")	'<font color=""#000099"">
																	Response.Write("<td width=""80"" align=""right"">" & ConvIntToMoney(Content.Fields("金額右"), false, false) & "</td>")	'<font color=""#6600cc"">
																	Response.Write("</tr>" & vbCrLf)
																	ii = ii + 1				
																	Content.MoveNext
																Loop
																		
														%>
 
														</TABLE>
												</TD>
											</TR> 												
										</TABLE>
									</TD>
								</TR>
							</TABLE>
					<%
						Response.Write(PrintFooter())
					%>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>

</body>
</html>
<% 
End Sub
%>