<% = AppTitle %>

<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim PageType PageType = "" Dim TyohyoKubun, KanriKubun TyohyoKubun = Request("TyohyoKubun") KanriKubun = Request("KanriKubun") Dim RouteType RouteType = Request("RouteType") Dim ToukiSoneki ToukiSoneki = GetEnshuParam(EnshuCD, "整理記入当期損益挿入先") %> <% = AppTitle %> <% If InStr(RouteType, "HojyoboOnly") > 0 Or InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(2)) Else Response.Write(HtmlDesign(1)) End If If GB_Admin >= 1 Then Response.Write(HttpL1(4)) Else Response.Write(HttpL1(3)) End If If GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "集計マスター", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("修正", "tblbtn( 'fm_syukei.asp?TyohyoKubun=" & TyohyoKubun & "')", "科目集計先設定", "tblbtn( 'fm_syukei_kamoku.asp?TyohyoKubun=" & TyohyoKubun & "')", "", "", "", "", "", "")) ElseIf InStr(KanriKubun, "kanri") > 0 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "集計マスター", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("修正", "tblbtn( 'fm_syukei.asp?TyohyoKubun=" & TyohyoKubun & "')", "科目集計先設定", "tblbtn( 'fm_syukei_kamoku.asp?TyohyoKubun=" & TyohyoKubun & "')", "", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "マスター照会", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s43.asp')", "集計マスター", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) If TyohyoKubun = "G" Then Response.Write(HttpL4("製造原価報告書集計マスター", "")) ElseIf InStr(TyohyoKubun, "P") > 0 Then Response.Write(HttpL4("損益計算書集計マスター", "")) ElseIf InStr(TyohyoKubun, "B") > 0 Then Response.Write(HttpL4("貸借対照表集計マスター", "")) Else Response.Write(HttpL4("キャッシュフロー計算書集計マスター", "")) End If %>

<% If TyohyoKubun = "P" Then %> <% Else %> <% End IF %>

集計コード

集計名称

貸借
区分

集計先
コード

(+-)

行間

下線

表示
位置

構成
表示

<% Dim Query Dim Content Dim ii, jj ii = 0 Query = "exec SPM報告書書式一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & TyohyoKubun & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) 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 Loop %>

" & Content.Fields("集計CD") & "

" & Content.Fields("集計名称") & "

" & ConvKubunMeisyo("貸借略区分", Content.Fields("貸借")) & "

" & Content.Fields("集計先") & "

" & Content.Fields("加減区分") & "

" & Content.Fields("ラインコントロール") & "

" & ConvKubunMeisyo("アンダーライン", Content.Fields("アンダーライン")) & "

" & ConvKubunMeisyo("右方表示", Content.Fields("右方表示")) & "

" & ConvKubunMeisyo("構成表示", Content.Fields("構成表示")) & "

<% = Spacer(1,8) %>

仕訳集計により生じた当期損益の挿入先： <% = ToukiSoneki %>

<% = HtmlFooter %>　 <% End Sub %>