<% ' ' ' %> <% 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 %> <% = HtmlHeader("") %> <% = 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 %>
<% If PrintFlg = 1 Then Response.Write(PrintHeader1(AutoFlg)) End if %>
<% = SyoruiMei %> <% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ページ<% End If %>
<% Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") Content.MoveNext If (RowCount Mod RowBreakNum = 0) Then Exit Do End If Loop %>
集計
コード
集計分類1 集計分類2 集計分類3 集計区分 変動額細目 ± 行間 下線
" & Content.Fields("集計CD") & "" & HardWrap("" & Content.Fields("集計分類1")) & "" & HardWrap("" & Content.Fields("集計分類2")) & "" & HardWrap("" & Content.Fields("集計分類3")) & "" & Content.Fields("集計区分") & "" & HardWrap("" & Content.Fields("変動額細目")) & "" & Content.Fields("加減区分") & "" & Content.Fields("ラインコントロール") & "" & ConvKubunMeisyo("アンダーライン", Content.Fields("アンダーライン")) & "
<% Response.Write(PrintFooter()) %>
<% If (Content.BOF Or Content.EOF) Then Exit For End If Next %> <% End Sub %>