<% ' %> <% main() Sub main() Dim KanriKubun Dim EnshuName , SaimokuKubun ,GyoshuKubun Dim Query Dim Content Dim Content2 Dim HyojiFlg If Not(SessionCheck()) Then Exit Sub End If KanriKubun = Request("KanriKubun") GyoshuKubun = Request("GyoshuKubun") SaimokuKubun = Request("SaimokuKubun") If SaimokuKubun = "" Then SaimokuKubun = "%" End If Dim RouteType RouteType = Request("RouteType") HyojiFlg = Request("HyojiFlg") If HyojiFlg = "" Then HyojiFlg = "0" End If 'サイバー会計のユーザー科目表示時の絞込みフラグ Dim HyojiFlg2 HyojiFlg2 = Request("HyojiFlg2") If HyojiFlg2 = "" Then If GB_Admin < 1 Then HyojiFlg2 = "2" Else HyojiFlg2 = "0" End If End If Dim KamokuCD KamokuCD = Request("KamokuCD") Dim EnshuKubun Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuKubun = Content.Fields("演習区分") EnshuName = Content.Fields("演習名称") End If %> <% = HtmlHeader("") %>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) 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("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", "", "", "", "", "", "")) If 1 = 1 Then Response.Write(HttpL3_2("追加", "tblbtn( 'fm_kamoku.asp?Action=1&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & SaimokuKubun & "')", "特別勘定区分", "tblbtn( 'fm_kamoku_tokubetsu.asp?KanriKubun=" & KanriKubun & "&EnshuCD=" & EnshuCD & "&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & SaimokuKubun & "&KamokuCD=" & KamokuCD & "&RouteType=" & RouteType &"')", "", "", "", "", "", "")) ElseIf HyojiFlg <> "2" Then Response.Write(HttpL3_2("追加", "tblbtn( 'fm_kamoku.asp?Action=1&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & SaimokuKubun & "')", "すべて表示", "tblbtn( 'fm_kamoku_ichiran.asp?HyojiFlg=2&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & SaimokuKubun & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("追加", "tblbtn( 'fm_kamoku.asp?Action=1&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & SaimokuKubun & "')", "マスターのみ表示", "tblbtn( 'fm_kamoku_ichiran.asp?HyojiFlg=0&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & SaimokuKubun & "')", "", "", "", "", "", "")) End If Else Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", "", "", "", "", "", "")) If RouteType = "KaisyaAdd" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "勘定科目管理", "", "", "", "", "")) Response.Write(HttpL3_2("追加", "tblbtn( 'fm_kamoku.asp?Action=1&RouteType=" & RouteType & "&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & SaimokuKubun & "')", "", "", "", "", "", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "勘定科目マスター", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("追加", "tblbtn( 'fm_kamoku.asp?Action=1&RouteType=" & RouteType & "&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & SaimokuKubun & "')", "", "", "", "", "", "", "", "")) 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("追加", "tblbtn( 'fm_kamoku.asp?Action=1&RouteType=" & RouteType & "&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & SaimokuKubun & "')", "", "", "", "", "", "", "", "")) ' Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If End If Dim Title Title = "" If Left(GyosyuKubun, 1) = "B" Then Title = "銀行勘定" ElseIf GyoshuKubun = "G" Then Title = "製造原価" Else Title = "勘定" End If If RouteType = "KaisyaAdd" Then Response.Write(HttpL4(Title & "科目管理", "一覧表示")) Else Response.Write(HttpL4(Title & "科目マスター", "一覧表示")) End If %>

<% If GB_Admin = 2 Then %> <% End If %>

対象演習名

<%= EnshuName %>

<% If GB_Admin < 1 Then %> <% End If %>

r<% Else %>b<% End If %>l.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>c.gif?<% = GB_STU %>" nowrap>資産

r<% Else %>b<% End If %>r.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>l.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>c.gif?<% = GB_STU %>" nowrap>負債

r<% Else %>b<% End If %>r.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>l.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>c.gif?<% = GB_STU %>" nowrap><% If MHMKANJOSAIMOKC <> "" Then Response.Write(Replace(SetStringInsertSpace(MHMKANJOSAIMOKC),"　"," ")) Else Response.Write("資本") End If %>

r<% Else %>b<% End If %>r.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>l.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>c.gif?<% = GB_STU %>" nowrap>収益

r<% Else %>b<% End If %>r.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>l.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>c.gif?<% = GB_STU %>" nowrap>費用

r<% Else %>b<% End If %>r.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>l.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>c.gif?<% = GB_STU %>" nowrap>営業外損益

r<% Else %>b<% End If %>r.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>l.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>c.gif?<% = GB_STU %>" nowrap>特別損益

r<% Else %>b<% End If %>r.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>l.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>c.gif?<% = GB_STU %>" nowrap>その他

r<% Else %>b<% End If %>r.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>l.gif?<% = GB_STU %>">

r<% Else %>b<% End If %>c.gif?<% = GB_STU %>" nowrap>全て

r<% Else %>b<% End If %>r.gif?<% = GB_STU %>">

<% If HyojiFlg = "2" Then %> <% Else %> <% End If %> <% If GyoshuKubun = "G" Then %> <% End If %>

勘定CD

勘定名称

勘定
区分

勘定細目

貸借

分析区分

費用区分

チェック
区分

所有会社
名称

特別勘定区分

貸借
損益

キャシ
フロー

製造原
価報告

株主資
本変動

<% Dim ii, jj ii = 0 Dim iiDef '← スクロールポジション維持のための追加（070124小野） iiDef = -1 Dim KaishaGakuseiCD KaishaGakuseiCD = GB_GakuseiNo If EnshuKubun = "G" And GB_Admin < 1 Then KaishaGakuseiCD = GB_KaisyaCD End If Query = "exec SPM勘定科目詳細一覧全部 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GyoshuKubun & "', '" & SaimokuKubun & "', " & HyojiFlg2 & ", '" & KaishaGakuseiCD & "'" ' Query = "exec SPM勘定科目詳細一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & GyoshuKubun & "','" & SaimokuKubun & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If KamokuCD = Content.Fields("勘定CD") Then '← スクロールポジション維持のための追加（070124小野） iiDef = ii End If If HyojiFlg2 = "0" Or (HyojiFlg2 = "1" And Trim("" & Content.Fields("所有会社CD")) = "") Or (HyojiFlg2 = "2" And Content.Fields("所有会社CD") = KaishaGakuseiCD) Then 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) If HyojiFlg = "2" Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If GyoshuKubun = "G" Then Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("") ii = ii + 1 End If Content.MoveNext Loop ' For jj = ii To 0 ' 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) ' Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) ' Response.Write("") ' Next %>

" & Content.Fields("勘定CD") & "

" & Content.Fields("勘定名称") & "

" & Content.Fields("勘定区分名称") & "

" & Content.Fields("勘定細目名称") & "

" & Content.Fields("貸借区分名称") & "

" & Content.Fields("分析区分名称") & "

" & Content.Fields("費用区分名称") & "

" & Content.Fields("チェック区分名称") & "

" & Content.Fields("所有会社略名称") & "

" & Content.Fields("特別勘定区分名称") & "

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

" & Content.Fields("キャッシュフロー計算書集計CD") & "

" & Content.Fields("製造原価報告書集計CD") & "

" & Content.Fields("株主資本等変動計算書集計CD") & "

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