<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim SortMode SortMode = Request("SortMode") Dim ShijoCD ShijoCD = Request("ShijoCD") 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 Dim DaihyoSyain TantosyaCD = "" Dim Hokkinin4 Dim Hokkinin5 Dim Hokkinin4Jusho Dim Hokkinin5Jusho Dim Kabushiki1 Dim Kabushiki2 Dim Kabushiki3 Dim Kabushiki4 Dim Kabushiki5 Dim Gakumen Dim SeitoJisha 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住所") Hokkinin4 = Content.Fields("発起人4") Hokkinin5 = Content.Fields("発起人5") Hokkinin4Jusho = Content.Fields("発起人4住所") Hokkinin5Jusho = Content.Fields("発起人5住所") Kabushiki1 = Content.Fields("発起人1株式数") Kabushiki2 = Content.Fields("発起人2株式数") Kabushiki3 = Content.Fields("発起人3株式数") Kabushiki4 = Content.Fields("発起人4株式数") Kabushiki5 = Content.Fields("発起人5株式数") Gakumen = Content.Fields("株式の額面") Shihonkin = Content.Fields("資本金") Mokuteki = "" & Content.Fields("事業目的") If Mokuteki <> "" Then '行単位で分割してからHardWrap処理を行う Dim TmpMokuteki TmpMokuteki = Split(Mokuteki, "
") Dim TmpCnt For TmpCnt = 0 To UBound(TmpMokuteki) TmpMokuteki(TmpCnt) = HardWrap(TmpMokuteki(TmpCnt)) If TmpCnt > 0 Then TmpMokuteki(TmpCnt) = "
" & TmpMokuteki(TmpCnt) End If Next '再結合する Mokuteki = "" For TmpCnt = 0 To UBound(TmpMokuteki) Mokuteki = Mokuteki & TmpMokuteki(TmpCnt) Next End If SeitoJisha = "" & Content.Fields("同時同業生徒自社") Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("代表取締役フラグ") = "1" Then DaihyoSyain = "" & Content.Fields("氏名") Exit Do End If Content.MoveNext Loop End If If KaisyaCD = "" Then KaisyaMeisyo = "(自社のマスター)" End If Dim RouteType RouteType = Request("RouteType") 'サイバー会計で代表取締役氏名が存在しない場合はTTA社員台帳Mから取得(初回会社選択時に作成されている) If PackageMode = "1" Then If DaityoTorishimariyaku = "" Then DaityoTorishimariyaku = DaihyoSyain End If End If ''''''''繰越金額を調べるここから Dim Kingaku Dim KurikoshiZandakaKingaku Dim GenkinKingaku, SyohinKingaku, GinkoKingaku Dim SyohinSu, ContentKoza Dim NyusyukoBango, QueryNyusyuko, ContentNyusyuko Dim QueryKoza GenkinKingaku = 0 SyohinKingaku = 0 GinkoKingaku = 0 Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 0, 0" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then GenkinKingaku = Content.Fields("金額") End If QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'SS'" Set ContentNyusyuko = OpenQuery(QueryNyusyuko) Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF) If ContentNyusyuko.Fields("処理時期区分") = 0 Then NyusyukoBango = ContentNyusyuko.Fields("文書内容CD") End If ContentNyusyuko.MoveNext Loop QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'SS', '" & NyusyukoBango & "'" Set ContentNyusyuko = OpenQuery(QueryNyusyuko) Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF) SyohinKingaku = SyohinKingaku + ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価") ContentNyusyuko.MoveNext Loop Dim KozaSonzai KozaSonzai = 0 QueryKoza = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', ''" Set ContentKoza = OpenQuery(QueryKoza) Do While Not(ContentKoza.BOF Or ContentKoza.EOF) KozaSonzai = 1 Dim MyGinkoCD, MyKozaKubun MyGinkoCD = "" MyKozaKubun = "" If Not(ContentKoza.BOF Or ContentKoza.EOF) Then MyGinkoCD = ContentKoza.Fields("銀行CD") MyKozaKubun = ContentKoza.Fields("口座区分") End If Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MyGinkoCD & "', '" & MyKozaKubun & "', ''" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("処理時期区分") = 0 Then Kingaku = Content.Fields("金額") End If Content.MoveNext Loop GinkoKingaku = GinkoKingaku + Kingaku ContentKoza.MoveNext Loop KurikoshiZandakaKingaku = GenkinKingaku + SyohinKingaku + GinkoKingaku ''''''''繰越金額を調べるここまで ''''''''勘定残高行数を調べるここから Dim KanjyoZandakaShiwakeGyosu, KanjyoZandaka KanjyoZandakaShiwakeGyosu = 0 Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '0000000', '" & ConvKaisyaGyosyuKubun(KaisyaCD) & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) KanjyoZandakaShiwakeGyosu = KanjyoZandakaShiwakeGyosu + 1 KanjyoZandaka = KanjyoZandaka + Content.Fields("借方金額") Content.MoveNext Loop ''''''''勘定残高行数を調べるここまで Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = Content.Fields("寄託倉庫利用") Genkariyou = "" & Content.Fields("原価会計利用") End If Query = "exec SPM寄託会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KitakuKaisyaMei = Content.Fields("会社名称") Query = "exec SPK契約書一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', 'S'" '自社が甲の寄託契約書一覧 Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("削除フラグ") <> "1" Then BunsyoNaiyoCD = Content.Fields("文書内容CD") Query = "exec SPK契約書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & KaisyaCD & "', 'S'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then TantosyaCD = "" & Content.Fields("甲担当者CD") Kankatsu = Content.Fields("管轄裁判所") End If End If Content.MoveNext Loop End If %> <% = HtmlHeader("") %>
<% 'Response.Write("◆" & KaisyaCD) Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Dim PageTitle PageTitle = "会社マスター" If GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", PageTitle, "", "", "", "", "", "", "")) Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If EnshuCD <> "SYSORIGN" Or DebugFlg > 1 Then 'マスター編集モードでは編集出来るよう修正(090219小野) If KaisyaCD = "" Then Response.Write(HttpL3_1("", "","", "" ,"", "", "", "", "", "")) Else Response.Write(HttpL3_1("修正", "tblbtn('fm_kaisya.asp?KaisyaCD=" & KaisyaCD & "&Action=2&nr=n&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "')", "削除", "DeleteCheck()", "印刷", "PrintoutReal()", "コピー", "tblbtn( 'fm_kaisya.asp?Action=1&CopyMoto=" & KaisyaCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "')", "", "")) End If If GyosyuCD = "B" Then Response.Write(HttpL3_2("追加", "tblbtn( 'fm_kaisya.asp?Action=1&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "')", "一覧表示", "tblbtn( 'fm_kaisya_ichiran.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "')", "勘定残高設定", "tblbtn('/" & HomeAlias & "/user/bk/kisyusettei/fk_kanjyozandaka.asp?KaisyaCD=" & KaisyaCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "')", "トップ画像", "tblbtn('/" & HomeAlias & "/admin/master/image/fm_topimage.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "');", "", "")) ElseIf GyosyuCD = "S" And Genkariyou = "1" Then '製造部対応(080411小野) Response.Write(HttpL3_2("追加", "tblbtn( 'fm_kaisya.asp?Action=1&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "')", "一覧表示", "tblbtn( 'fm_kaisya_ichiran.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "')", "期首残高", "tblbtn('fm_kaisya_view_main_sub.asp?KaisyaCD=" & KaisyaCD & "&GyosyuCD=" & GyosyuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "')", "製造部残高", "tblbtn('fm_kaisya_view_main_sub.asp?KaisyaCD=" & KaisyaCD & "&GyosyuCD=" & GyosyuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&Mode=Seizo')", "トップ画像", "tblbtn('/" & HomeAlias & "/admin/master/image/fm_topimage.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "');")) Else'If KaisyaCD <> "" Then If PackageMode = 1 Then Response.Write(HttpL3_2("追加", "tblbtn( 'fm_kaisya.asp?Action=1&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "')", "一覧表示", "tblbtn( 'fm_kaisya_ichiran.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("追加", "tblbtn( 'fm_kaisya.asp?Action=1&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "')", "一覧表示", "tblbtn( 'fm_kaisya_ichiran.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "')", "勘定残高", "tblbtn('/" & HomeAlias & "/user/bk/kisyusettei/fk_kanjyozandaka.asp?KaisyaCD=" & KaisyaCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "')", "繰越残高", "tblbtn('/" & HomeAlias & "/user/bk/kisyusettei/fk_kurikoshizandaka.asp?KaisyaCD=" & KaisyaCD & "&GyosyuCD=" & GyosyuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "')", "トップ画像", "tblbtn('/" & HomeAlias & "/admin/master/image/fm_topimage.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "');")) End If End If End If Response.Write(HttpL3_2("追加", "tblbtn( 'fm_kaisya.asp?Action=1')", "一覧表示", "tblbtn( 'fm_kaisya_ichiran.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "&KaisyaCD=" & KaisyaCD & "')" ,"", "", "", "", "", "")) Else If PackageMode = "1" Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", PageTitle, "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If UCase(GakuseiBango) = UCase(GB_GakuseiNo) Or GB_EnshuKubun = "G" And KaisyaCD = GB_KaisyaCD Then PageTitle = "自社情報" Response.Write(HttpL3_1("修正", "tblbtn('fm_kaisya.asp?KaisyaCD=" & KaisyaCD & "&Action=2&nr=n&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_kaisya_ichiran.asp?KaisyaCD=" & KaisyaCD & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "')" ,"", "", "", "", "", "", "", "")) 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')", PageTitle, "", "", "")) Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "" ,"", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_kaisya_ichiran.asp?KaisyaCD=" & KaisyaCD & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "')" ,"", "", "", "", "", "", "", "")) End If End If Response.Write(HttpL4(PageTitle, "照会")) If EnshuCD = "SYSORIGN" And DebugFlg < 2 Then 'マスター編集モードでは編集出来るよう修正(090219小野) Response.Write(HttpL5("演習コード SYSORIGN の演習は修正出来ません")) End If %>
<% = HtmlFooter %> <% End Sub %>