<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Cnt Dim RouteType RouteType = Request("RouteType") Dim TyohyoKubun Dim KanriKubun KanriKubun = Request("KanriKubun") TyohyoKubun = Request("TyohyoKubun") Dim GyoshuKubun GyoshuKubun = Request("GyoshuKubun") If GyoshuKubun = "" Then GyoshuKubun = "S" End If If TyohyoKubun = "G" Then GyoshuKubun = "G" End If Dim SaimokuKubun SaimokuKubun = Request("SaimokuKubun") If SaimokuKubun = "" Then SaimokuKubun = "%" End If Dim GenkaKaikeiRiyo Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用") End If '報告書書式一覧を配列化 Dim ShukeiCDAry Dim ShukeiMeiAry ReDim ShukeiCDAry(0) ReDim ShukeiMeiAry(0) Query = "exec SPM報告書書式一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & TyohyoKubun & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ReDim PreServe ShukeiCDAry(UBound(ShukeiCDAry) + 1) '配列+1 ReDim PreServe ShukeiMeiAry(UBound(ShukeiMeiAry) + 1) '配列+1 ShukeiCDAry(UBound(ShukeiCDAry)) = "" & Content.Fields("集計CD") ShukeiMeiAry(UBound(ShukeiMeiAry)) = "" & Content.Fields("集計名称") Content.MoveNext Loop %> <% = 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("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) 'マスター編集のため一時許可 If EnshuCD <> "SYSORIGN" Then Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) End If ' If GenkaKaikeiRiyo <> "1" Then Response.Write(HttpL3_2("戻る", "tblbtn('fm_syukei_view.asp?TyohyoKubun=" & TyohyoKubun & "')", "", "", "", "", "", "", "", "")) ' ElseIf GyoshuKubun = "S" Then ' Response.Write(HttpL3_2("製造原価勘定科目", "tblbtn('fm_syukei_kamoku.asp?TyohyoKubun=" & TyohyoKubun & "&GyoshuKubun=G')", "戻る", "tblbtn('fm_syukei_view.asp?TyohyoKubun=" & TyohyoKubun & "')", "", "", "", "", "", "")) ' Else ' Response.Write(HttpL3_2("商社勘定科目", "tblbtn('fm_syukei_kamoku.asp?TyohyoKubun=" & TyohyoKubun & "&GyoshuKubun=S')", "戻る", "tblbtn('fm_syukei_view.asp?TyohyoKubun=" & TyohyoKubun & "')", "", "", "", "", "", "")) ' End If 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("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) 'マスター編集のため一時許可 If EnshuCD <> "SYSORIGN" Then Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) End If If GenkaKaikeiRiyo <> "1" Then Response.Write(HttpL3_2("戻る", "tblbtn('fm_syukei_view.asp?TyohyoKubun=" & TyohyoKubun & "')", "", "", "", "", "", "", "", "")) ElseIf GyoshuKubun = "S" Then Response.Write(HttpL3_2("製造原価勘定科目", "tblbtn('fm_syukei_kamoku.asp?TyohyoKubun=" & TyohyoKubun & "&GyoshuKubun=G')", "戻る", "tblbtn('fm_syukei_view.asp?TyohyoKubun=" & TyohyoKubun & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("商社勘定科目", "tblbtn('fm_syukei_kamoku.asp?TyohyoKubun=" & TyohyoKubun & "&GyoshuKubun=S')", "戻る", "tblbtn('fm_syukei_view.asp?TyohyoKubun=" & TyohyoKubun & "')", "", "", "", "", "", "")) End If 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("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If Dim Label If TyohyoKubun = "G" Then Label = "製造原価報告書" ElseIf InStr(TyohyoKubun, "P") > 0 Then Label = "損益計算書" ElseIf InStr(TyohyoKubun, "B") > 0 Then Label = "貸借対照表" Else Label = "キャッシュフロー" Label = "キャッシュフロー計算書" End If Response.Write(HttpL4("科目集計先設定", Label)) If EnshuCD = "SYSORIGN" Then Response.Write(HttpL5("演習コード SYSORIGN の演習は修正出来ません")) End If %>
<% If GB_IEmode <> "1" Then %> <% Else 'IEモード %> <% End If %> <% = HtmlFooter %> <% End Sub %>