<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim KanriKubun Dim EnshuName Dim Query Dim Content Dim RouteType RouteType = Request("RouteType") Dim TmpKaisyaCD TmpKaisyaCD = Request("KaisyaCD") Dim GinkoNothingS GinkoNothingS = "" Dim GinkoNothingK GinkoNothingK = "" Dim GinkoNothingU GinkoNothingU = "" Dim KitakuNothing KitakuNothing = "" Dim HitsuyoKaisya Dim GinkoHitsuyo Dim KitakuHitsuyo Dim CopyMotoGyosyu ReDim HitsuyoKaisya(0) ReDim GinkoHitsuyo(0) ReDim KitakuHitsuyo(0) ReDim CopyMotoGyosyu(0) Dim ShijoCD ShijoCD = Request("ShijoCD") Dim HyojiFlg HyojiFlg = Request("HyojiFlg") If HyojiFlg = "" Then HyojiFlg = "0" End If Dim SortMode SortMode = Request("SortMode") If SortMode = "" Then SortMode = "0" '会社CD End If Dim Message Message = Request("Message") If Message = "Copy" Then Query = "exec SPM会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & Request("CopyMoto") & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Message = Content.Fields("会社名称") & "の期首残高設定を全ての" & Content.Fields("業種名称") If Content.Fields("業種CD") = "U" Then Message = Message & "会社" End If Message = Message & "にコピーしました。" Else Message = "期首残高設定をコピーしました。" End If End If Dim Kitakuriyou Dim Genkariyou Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then '演習名称GET EnshuName = Content.Fields("演習名称") Kitakuriyou = "" & Content.Fields("寄託倉庫利用") Genkariyou = "" & 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')", "会社マスター", "", "", "", "", "", "", "")) Else If PackageMode = "1" Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "会社マスター", "", "", "", "", "", "", "", "", "")) 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')", "会社マスター", "", "", "")) End If Response.Write(HttpL3("照会", "syokaibtn()" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) End If If GB_Admin >= 1 Then If PackageMode = 1 Then Response.Write(HttpL3_1("照会", "syokaibtn()","印刷", "PrintoutReal()", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("照会", "syokaibtn()","印刷", "PrintoutReal()", " 期首残高設定をコピーする ", "SubmitCheck()", "", "", "", "")) End If If HyojiFlg = "2" Then Response.Write(HttpL3_2("追加", "tblbtn( 'fm_kaisya.asp?Action=1')", "マスターのみ表示", "tblbtn('fm_kaisya_ichiran.asp?HyojiFlg=0&ShijoCD=" & ShijoCD & "&SortMode=" & SortMode & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("追加", "tblbtn( 'fm_kaisya.asp?Action=1')", "すべて表示", "tblbtn('fm_kaisya_ichiran.asp?HyojiFlg=2&ShijoCD=" & ShijoCD & "&SortMode=" & SortMode & "')", "", "", "", "", "", "")) End If Else Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()","", "", "", "", "", "")) If PackageMode = 1 Then If GB_EnshuKubun = "P" Then Response.Write(HttpL3_2("追加", "tblbtn( 'fm_kaisya.asp?Action=1')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If Else Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If End If Response.Write(HttpL4("会社マスター", "一覧表示")) If Message <> "" Then Response.Write(HttpL5(Message)) ElseIf HyojiFlg = "2" Then If GB_EnshuKubun = "P" Then Response.Write(HttpL5("生徒がログインし、マスターからコピーされた会社も表示されています")) Else Response.Write(HttpL5("生徒が自社設定した会社も表示されています")) End If End If 'PackageMode = "1" 'Genkariyou = "1" Dim ParentWidth Dim CellWidth1 ParentWidth = 680 CellWidth1 = 100 If GB_Admin >= 1 And PackageMode <> "1" Then ParentWidth = ParentWidth + 23 + 23 If Genkariyou = "1" Then ParentWidth = ParentWidth + 23 + 23 End If ElseIf PackageMode = "1" Then ParentWidth = 480 CellWidth1 = 130 End If %>
<% = HtmlFooter %> <% End Sub %>