<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim HyojiFlg HyojiFlg = Request("HyojiFlg") 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 '061122追加 Dim Kitakuriyou, KitakuKaisyaCD, KitakuKaisyaMei KanriKubun = Session(HomeAlias & "KanriKubun") '演習名称ＧＥＴ EnshuName = ConvEnshuMeisyo(EnshuCD) '対象データＧＥＴ 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 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 ''''''''勘定残高行数を調べるここまで '061122追加 Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = 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("") %> <% = PrintScriptX %>

<% If GB_Admin < 1 And (UCase(GakuseiBango) = UCase(GB_GakuseiNo) Or (GB_EnshuKubun = "G" And KaisyaCD = GB_KaisyaCD)) Then Response.Write(PrintHeader(0, "自社情報")) Else Response.Write(PrintHeader(0, "会社マスター")) End If %> <% If PackageMode = 1 Then %> <% Else %> <% End If %> <% If PackageMode = 1 Then %> <% Else %> <% End If %> <% If PackageMode = 1 Then %> <% Else %> <% End If %> <% If PackageMode = 1 Then %> <% Else %> <% End If %> <% If PackageMode = 1 Then %> <% Else %> <% End If %> <% If PackageMode = 1 And GB_Admin < 1 Then %> <% Else %> <% End If %> <% If PackageMode = 1 Then %> <% Else %> <% If Kitakuriyou = "1" And GyosyuCD = "S" Then %> <% end if %> <% End If %> 会社コード <% = KaisyaCD %>  発起人�@   <% = DaityoTorishimariyaku %>    <% = ConvIntToMoney(Kabushiki1, false, false) %>株  住所  <% = DaityoTorishimariyakuJyusyo %> 会社名称 <% = KaisyaMeisyo %> 会社略名称 <% = KaisyaRyakuMeisyo %>  発起人�A   <% = Torishimariyaku1 %>    <% = ConvIntToMoney(Kabushiki2, false, false) %>株  住所  <% = Torishimariyaku1Jyusyo %> 郵便番号 <% = ZipCode %> 住所1 <% = Adr1 %>  発起人�B   <% = Torishimariyaku2 %>    <% = ConvIntToMoney(Kabushiki3, false, false) %>株  住所  <% = Torishimariyaku2Jyusyo %> 住所2 <% = Adr2 %> TEL <% = Tel %>   FAX <% = Fax %>  発起人�C   <% = Hokkinin4 %>    <% = ConvIntToMoney(Kabushiki4, false, false) %>株  住所  <% = Hokkinin4Jusho %> 代表取締役 <% = DaityoTorishimariyaku %> 業種区分 <% = GyosyuName %> 市場 <% = ShijyoMeisyo %>  発起人�D   <% = Hokkinin5 %>    <% = ConvIntToMoney(Kabushiki5, false, false) %>株  住所  <% = Hokkinin5Jusho %> 所有者ID <% = GakuseiBango %> 代表取締役 <% = DaihyoSyain %>  資本金 <% = ConvIntToMoney(Shihonkin, false, false) %>円  株式額面 <% = ConvIntToMoney(Gakumen, false, false) %>円 事業目的 <% = Mokuteki %>  勘定残高：<% If KanjyoZandakaShiwakeGyosu > 0 Then %>設定済<% Else %>未設定<% End If %> <% If GyosyuCD <> "B" Then %>     繰越残高：<% If KozaSonzai > 0 Then %><% If KurikoshiZandakaKingaku > 0 Then %>設定済<% Else %>口座有り<% End If %><% Else %>未設定<% End If %> <% End If %> 寄託倉庫 <% = KitakuKaisyaMei %> <% If KanKatsu <> "" Then %>  管轄   <% = KanKatsu %>地方裁判所 <% End If %> 出庫指示責任者 <% = ConvSyainShimei(TantosyaCD) %> <% Response.Write(PrintFooter()) %>

<% End Sub %>