<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim Mode Mode = Request("Mode") Dim ColorFlg If Mode = "Seizo" Then ColorFlg = "o" Else ColorFlg = "r" End If Dim KanriKubun '管理区分 Dim EnshuName '演習名称 Dim KaisyaMeisyo, kaisyaKanamei '会社コード、会社名称、会社カナ名称 Dim ZipCode, Adr1, Adr2 '郵便番号、住所1、住所2 Dim Tel, Fax, GyosyuCD, GyosyuName 'Tel、Fax、業種CD、業種名称 Dim KaisyaRyakuMeisyo '会社略名称 Dim JisyaFlg, GakuseiBango Dim Query Dim Content Dim ShijyoCD, ShijyoMeisyo Dim DaityoTorishimariyaku, Shihonkin Dim DaityoTorishimariyakuJyusyo Dim Torishimariyaku1, Torishimariyaku2, Mokuteki Dim Torishimariyaku1Jyusyo, Torishimariyaku2Jyusyo Dim BunsyoNaiyoCD Dim TantosyaCD Dim KanKatsu TantosyaCD = "" Dim Kitakuriyou, KitakuKaisyaCD, KitakuKaisyaMei Dim Genkariyou KanriKubun = Session(HomeAlias & "KanriKubun") '演習名称GET EnshuName = ConvEnshuMeisyo(EnshuCD) '対象データGET Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ShijyoCD = Content.Fields("市場CD") KaisyaMeisyo = Content.Fields("会社名称") KaisyaRyakuMeisyo = Content.Fields("会社略名称") kaisyaKanamei = Content.Fields("会社カナ名称") ZipCode = Content.Fields("郵便番号") Adr1 = Content.Fields("住所1") Adr2 = Content.Fields("住所2") Tel = Content.Fields("TEL") Fax = Content.Fields("FAX") GyosyuCD = Content.Fields("業種CD") GyosyuName = Content.Fields("業種名称") GakuseiBango = Content.Fields("学生番号") JisyaFlg = Content.Fields("自社フラグ") ShijyoMeisyo = Content.Fields("市場名称") KitakuKaisyaCD = Content.Fields("寄託会社CD") DaityoTorishimariyaku = Content.Fields("代表取締役") DaityoTorishimariyakuJyusyo = Content.Fields("代表取締役住所") Torishimariyaku1 = Content.Fields("取締役1") Torishimariyaku2 = Content.Fields("取締役2") Torishimariyaku1Jyusyo = Content.Fields("取締役1住所") Torishimariyaku2Jyusyo = Content.Fields("取締役2住所") Shihonkin = Content.Fields("資本金") Mokuteki = "" & Content.Fields("事業目的") End If If KaisyaCD = "" Then KaisyaMeisyo = "(自社のマスター)" End If Dim RouteType RouteType = Request("RouteType") %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "会社マスター", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "tblbtn('fm_kaisya_view.asp?KaisyaCD=" & KaisyaCD & "&HyojiFlg=" & HyojiFlg & "')", "一覧表示", "tblbtn( 'fm_kaisya_ichiran.asp?HyojiFlg=" & HyojiFlg & "')" ,"", "", "", "", "", "")) If Mode = "Seizo" Then Response.Write(HttpL4("製造部期首残高設定", "選択")) Else Response.Write(HttpL4("期首残高設定", "選択")) End If If EnshuCD = "SYSORIGN" And DebugFlg < 2 Then 'マスター編集モードでは編集出来るよう修正(090219小野) Response.Write(HttpL5("演習コード SYSORIGN の演習は修正出来ません")) End If %>
<% = HtmlFooter %> <% End Sub %>