<!-- #include file="../../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：株主資本等変動計算書集計マスターの印刷画面
' 作成日：2007/1/23
' 作成者：小野
' 目的 ：株主資本等変動計算書集計マスターの印刷画面を表示する
' 概要 ：
'################################################
'-->
'
'
%>
<%
main()
Sub main()
Dim RouteType, TyohyoKubun, KanriKubun
RouteType = Request("RouteType")
TyohyoKubun = Request("TyohyoKubun")
KanriKubun = Request("KanriKubun")
Dim AutoFlg
AutoFlg = 0
Dim SyoruiMei
SyoruiMei = "株主資本等変動計算書集計マスター"
Dim PrintFlg
PrintFlg = 1
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 0;
//印刷余白指定（ミリ指定）
PrintTopMargin = 20;
PrintLeftMargin = 20;
// 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 %>
<%
Dim RowBreakNum, RowCount
Dim Page
RowBreakNum = 25
RowCount = 0
Dim Query
Dim Content
Dim ii, jj
ii = 0
Query = "exec SPM株主資本等変動計算書書式一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
For Page = 1 To MaxPage
If Page <> 1 Then
Response.Write(PageBreakBefore)
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">
<%
If PrintFlg = 1 Then
Response.Write(PrintHeader1(AutoFlg))
End if
%>
<TABLE WIDTH="603" 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><% = 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="603" HEIGHT="20" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1214" STYLE="border-collapse: collapse">
<TR bgcolor="#DDDDDD" ALIGN="CENTER">
<TD WIDTH="30" HEIGHT="20" class="tx1012">集計<br>コード</TD>
<TD WIDTH="98" HEIGHT="20">集計分類1</TD>
<TD WIDTH="147" HEIGHT="20">集計分類2</TD>
<TD WIDTH="111" HEIGHT="20">集計分類3</TD>
<TD WIDTH="62" HEIGHT="20">集計区分</TD>
<TD HEIGHT="20">変動額細目</TD>
<TD WIDTH="20" HEIGHT="20" CLASS="tx1416">±</TD>
<TD WIDTH="20" HEIGHT="20">行間</TD>
<TD WIDTH="20" HEIGHT="20">下線</TD>
</TR>
<%
Do While Not(Content.BOF Or Content.EOF)
RowCount = RowCount + 1
Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
Response.Write("<TD WIDTH=""30"" HEIGHT=""20"" ALIGN=""CENTER"">" & Content.Fields("集計CD") & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""98"" HEIGHT=""20"" ALIGN=""LEFT"">" & HardWrap("" & Content.Fields("集計分類1")) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""147"" HEIGHT=""20"" ALIGN=""LEFT"">" & HardWrap("" & Content.Fields("集計分類2")) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""111"" HEIGHT=""20"" ALIGN=""LEFT"">" & HardWrap("" & Content.Fields("集計分類3")) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""62"" HEIGHT=""20"" ALIGN=""CENTER"">" & Content.Fields("集計区分") & "</TD>" & vbCrLf)
Response.Write("<TD HEIGHT=""20"" ALIGN=""LEFT"">" & HardWrap("" & Content.Fields("変動額細目")) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""20"" HEIGHT=""20"" ALIGN=""CENTER"" CLASS=""tx1416"">" & Content.Fields("加減区分") & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""20"" HEIGHT=""20"" ALIGN=""CENTER"">" & Content.Fields("ラインコントロール") & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""20"" HEIGHT=""20"" ALIGN=""CENTER"">" & ConvKubunMeisyo("アンダーライン", Content.Fields("アンダーライン")) & "</TD>" & vbCrLf)
ii = ii + 1
Response.Write("</TR>")
Content.MoveNext
If (RowCount Mod RowBreakNum = 0) Then
Exit Do
End If
Loop
%>
</TABLE>
</TD>
</TR>
</TABLE>
<%
Response.Write(PrintFooter())
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
If (Content.BOF Or Content.EOF) Then
Exit For
End If
Next
%>
</body>
</html>
<%
End Sub
%>