<% ' ' ' %> <% main() Sub main() Dim RouteType, TyohyoKubun, KanriKubun RouteType = Request("RouteType") TyohyoKubun = Request("TyohyoKubun") KanriKubun = Request("KanriKubun") Dim AutoFlg AutoFlg = 0 Dim SyoruiMei If TyohyoKubun = "G" Then SyoruiMei = "製造原価報告書集計マスター" ElseIf InStr(TyohyoKubun, "P") > 0 Then SyoruiMei = "損益計算書集計マスター" ElseIf InStr(TyohyoKubun, "B") > 0 Then SyoruiMei = "貸借対照表集計マスター" Else SyoruiMei = "キャッシュフロー計算書集計マスター" End If Dim ToukiSoneki ToukiSoneki = GetEnshuParam(EnshuCD, "整理記入当期損益挿入先") Dim PrintFlg PrintFlg = 1 %> <% '= HtmlHeader(";-sj3web;sj3tyoboblack;") %> <% = HtmlHeader("sj3tyoboblack") %> <% = PrintScriptX %> <% Dim RowBreakNum, RowCount Dim Page RowBreakNum = 35 RowCount = 0 Dim Query Dim Content Dim ii, jj ii = 0 Query = "exec SPM報告書書式一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & TyohyoKubun & "'" 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 %> <% If TyohyoKubun = "P" Then %> <% ElseIf Content.BOF Or Content.EOF Then %> <% End IF %> <% If TyohyoKubun <> "C" Then Response.Write(SetStringInsertSpace(SyoruiMei)) Else Response.Write(SyoruiMei) End If %> <% 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 %> 集計コード 集計名称 貸借 区分 集計先 コード (+-) 行間 下線 表示 位置 構成 表示 " & Content.Fields("集計CD") & " " & Content.Fields("集計名称") & " " & ConvKubunMeisyo("貸借略区分", Content.Fields("貸借")) & " " & Content.Fields("集計先") & " " & Content.Fields("加減区分") & " " & Content.Fields("ラインコントロール") & " " & ConvKubunMeisyo("アンダーライン", Content.Fields("アンダーライン")) & " " & Content.Fields("右方表示") & " " & ConvKubunMeisyo("構成表示", Content.Fields("構成表示")) & " <% = Spacer(1,8) %> 仕訳集計により生じた当期損益の挿入先 ： <% = ToukiSoneki %> <% Response.Write(PrintFooter()) %>

<% If (Content.BOF Or Content.EOF) Then Exit For End If Next %> <% End Sub %>