<% Dim RowCount RowCount = 0 Dim PageBreakMode PageBreakMode = 0 Function StatementOfStockholdersEquity(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, Param1, Param2, Param3) Dim tmp Dim Kaishibi Dim Syuryobi Dim TanaorosiFlg Dim TanaorosiKubun Dim PageType PageType = "株主資本等変動計算書" Dim Kubun1ZenkimatsuZandaka Dim Kubun1ToukiHendougaku Dim Kubun1ToukimatsuZandaka Kubun1ZenkimatsuZandaka = 0 Kubun1ToukiHendougaku = 0 Kubun1ToukimatsuZandaka = 0 Dim Kubun2ZenkimatsuZandaka Dim Kubun2ToukiHendougaku Dim Kubun2ToukimatsuZandaka Kubun2ZenkimatsuZandaka = 0 Kubun2ToukiHendougaku = 0 Kubun2ToukimatsuZandaka = 0 Dim ZenkimatsuZandakaGoukei Dim ToukiHendougakuGoukei Dim ToukimatsuZandakaGoukei ZenkimatsuZandakaGoukei = 0 ToukiHendougakuGoukei = 0 ToukimatsuZandakaGoukei = 0 Dim RowBreakNum Dim Page If PrintFlg = 1 Then RowBreakNum = 42 Else RowBreakNum = MaxRowBreakNum MaxPage = 1 End If Dim Query Dim Content Dim KaikeiKaishibi, KaikeiSyuryobi Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KaikeiKaishibi = SetTimeYYYYMMDD(Content.Fields("会計開始日")) KaikeiSyuryobi = SetTimeYYYYMMDD(Content.Fields("会計終了日")) End If Dim RouteType RouteType = Request("RouteType") Query = "exec SPK帳簿_株主資本等変動計算書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) If PrintFlg = 0 Then %>
<% End If For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %>
<% If PrintFlg = 1 Then Response.Write(PrintHeader1(AutoFlg)) End if %> <% If PrintFlg <> 1 Then %> <% End If %> <% If Content.BOF Or Content.EOF Then %> <% End If %>
<% = SetStringInsertSpaceH(PageType) %> <% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ページ<% End If %>
<% Response.Write("自 ") Response.Write(SetDate(KaikeiKaishibi, 2)) Response.Write(" 　至 ") Response.Write(SetDate(KaikeiSyuryobi, 2)) %>
<% = ConvKaisyaMeisyo(KaisyaCD) %>
<% If PrintFlg <> 1 Then %>
<% End If %> <% ' Dim Query ' Dim Content Dim ii, jj ii = 0 Dim PreShukeiMeisho1 Dim PreShukeiMeisho2 Dim PreShukeiMeisho3 PreShukeiMeisho1 = "systemfuture_erutufmetsys_systemfuture_erutufmetsys_systemfuture" PreShukeiMeisho2 = "systemfuture_erutufmetsys_systemfuture_erutufmetsys_systemfuture" PreShukeiMeisho3 = "systemfuture_erutufmetsys_systemfuture_erutufmetsys_systemfuture" Dim ShukeiMeisho1 Dim ShukeiMeisho2 Dim ShukeiMeisho3 Dim ShukeiKubun Dim ShukeiKubunMeisho Dim ToukiHendougakuSaimoku Dim PlusMinus Dim PlusMinusHyouji Dim Kingaku Dim HantenKingaku Dim ToukimatsuZandaka ToukimatsuZandaka = 0 Dim SentouFlg SentouFlg = 1 Dim ToukimatsuZandakaHyouji ToukimatsuZandakaHyouji = 0 Dim Kubun1ZandakaHyouji Kubun1ZandakaHyouji = 0 Dim PrePreShukeiMeisho1 PrePreShukeiMeisho1 = "" Dim Kubun2ZandakaHyoujiUmu Kubun2ZandakaHyoujiUmu = 0 Dim Kubun2ZandakaHyouji Kubun2ZandakaHyouji = 0 Dim PrePreShukeiMeisho2 PrePreShukeiMeisho2 = "" Do While Not(Content.BOF Or Content.EOF) ShukeiMeisho2 = "" & Content.Fields("集計分類2") If ShukeiMeisho2 = PreShukeiMeisho2 Or ShukeiMeisho2 = "" Or ShukeiMeisho2 = " " Then ShukeiMeisho2 = "" Else PreShukeiMeisho2 = ShukeiMeisho2 '先頭行以外で集計分類2が変わったら If ToukimatsuZandakaHyouji = 1 Then Kubun2ZandakaHyouji = 1 '分類2集計フラグを1に End If '先頭行以外で集計分類2が変わったら当期末残高行を表示 If ToukimatsuZandakaHyouji = 1 Then Call ResponseToukimatsuZandaka(ToukimatsuZandaka) ToukimatsuZandaka = 0 'リセット ToukimatsuZandakaHyouji = 0 End If End If ShukeiMeisho3 = "" & Content.Fields("集計分類3") If ShukeiMeisho3 = PreShukeiMeisho3 Or ShukeiMeisho3 = "" Or ShukeiMeisho3 = " " Then ShukeiMeisho3 = "" Else PreShukeiMeisho3 = ShukeiMeisho3 '先頭行以外で集計分類3が変わったら当期末残高行を表示 If ToukimatsuZandakaHyouji = 1 Then Call ResponseToukimatsuZandaka(ToukimatsuZandaka) ToukimatsuZandaka = 0 'リセット ToukimatsuZandakaHyouji = 0 End If End If ShukeiMeisho1 = "" & Content.Fields("集計分類1") If ShukeiMeisho1 = PreShukeiMeisho1 Or ShukeiMeisho1 = "" Or ShukeiMeisho1 = " " Then ShukeiMeisho1 = "" Else PreShukeiMeisho1 = ShukeiMeisho1 '先頭行以外で集計分類1が変わったら If SentouFlg = 0 Then '当期末残高行を表示 If ToukimatsuZandakaHyouji = 1 Then Call ResponseToukimatsuZandaka(ToukimatsuZandaka) ToukimatsuZandaka = 0 'リセット ToukimatsuZandakaHyouji = 0 End If '分類1の合計を表示 Call ResponseKubunZandaka(PrePreShukeiMeisho1,Kubun1ZenkimatsuZandaka,Kubun1ToukiHendougaku,Kubun1ToukimatsuZandaka) ' Kubun1ZandakaHyoujiUmu = 0 Kubun1ZandakaHyouji = 0 Kubun1ZenkimatsuZandaka = 0 Kubun1ToukiHendougaku = 0 Kubun1ToukimatsuZandaka = 0 '改ページ If RowCount >= RowBreakNum Then RowCount = 0 Exit Do End If End If '集計分類1が変わったら見出し行を表示 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") RowCount = RowCount + 1 End If '分類2の合計を表示 If Kubun2ZandakaHyouji = 1 And Kubun2ZandakaHyoujiUmu = 1 Then Call ResponseKubunZandaka(PrePreShukeiMeisho2,Kubun2ZenkimatsuZandaka,Kubun2ToukiHendougaku,Kubun2ToukimatsuZandaka) Kubun2ZandakaHyoujiUmu = 0 ' Kubun2ZandakaHyouji = 0 ' Kubun2ZenkimatsuZandaka = 0 ' Kubun2ToukiHendougaku = 0 ' Kubun2ToukimatsuZandaka = 0 '改ページ If RowCount >= RowBreakNum Then RowCount = 0 Exit Do End If End If If Kubun2ZandakaHyouji = 1 Then ' Kubun2ZandakaHyoujiUmu = 0 Kubun2ZandakaHyouji = 0 Kubun2ZenkimatsuZandaka = 0 Kubun2ToukiHendougaku = 0 Kubun2ToukimatsuZandaka = 0 End If ShukeiKubun = "" & Content.Fields("集計区分") If ShukeiKubun = "1" Then ShukeiKubunMeisho = "前期末残高" ElseIf ShukeiKubun = "2" Then ShukeiKubunMeisho = "当期変動額" End If ToukiHendougakuSaimoku = "" & Content.Fields("変動額細目") PlusMinus = "" & Content.Fields("加減区分") If PlusMinus = "+" Or PlusMinus = "" Or PlusMinus = " " Then PlusMinus = "+" End If If PlusMinus = "+" Then PlusMinusHyouji = "" ElseIf PlusMinus = "-" Then PlusMinusHyouji = "△" End If Kingaku = Content.Fields("金額") If ShukeiKubun = "1" And PlusMinus = "+" Then Kubun1ZenkimatsuZandaka = Kubun1ZenkimatsuZandaka + Kingaku Kubun2ZenkimatsuZandaka = Kubun2ZenkimatsuZandaka + Kingaku Kubun1ToukimatsuZandaka = Kubun1ToukimatsuZandaka + Kingaku Kubun2ToukimatsuZandaka = Kubun2ToukimatsuZandaka + Kingaku ZenkimatsuZandakaGoukei = ZenkimatsuZandakaGoukei + Kingaku ToukimatsuZandaka = ToukimatsuZandaka + Kingaku ToukimatsuZandakaGoukei = ToukimatsuZandakaGoukei + Kingaku ElseIf ShukeiKubun = "1" And PlusMinus = "-" Then Kubun1ZenkimatsuZandaka = Kubun1ZenkimatsuZandaka - Kingaku Kubun2ZenkimatsuZandaka = Kubun2ZenkimatsuZandaka - Kingaku Kubun1ToukimatsuZandaka = Kubun1ToukimatsuZandaka - Kingaku Kubun2ToukimatsuZandaka = Kubun2ToukimatsuZandaka - Kingaku ZenkimatsuZandakaGoukei = ZenkimatsuZandakaGoukei - Kingaku ToukimatsuZandaka = ToukimatsuZandaka - Kingaku ToukimatsuZandakaGoukei = ToukimatsuZandakaGoukei - Kingaku ElseIf ShukeiKubun = "2" And PlusMinus = "+" Then Kubun1ToukiHendougaku = Kubun1ToukiHendougaku + Kingaku Kubun2ToukiHendougaku = Kubun2ToukiHendougaku + Kingaku Kubun1ToukimatsuZandaka = Kubun1ToukimatsuZandaka + Kingaku Kubun2ToukimatsuZandaka = Kubun2ToukimatsuZandaka + Kingaku ToukiHendougakuGoukei = ToukiHendougakuGoukei + Kingaku ToukimatsuZandaka = ToukimatsuZandaka + Kingaku ToukimatsuZandakaGoukei = ToukimatsuZandakaGoukei + Kingaku ElseIf ShukeiKubun = "2" And PlusMinus = "-" Then Kubun1ToukiHendougaku = Kubun1ToukiHendougaku - Kingaku Kubun2ToukiHendougaku = Kubun2ToukiHendougaku - Kingaku Kubun1ToukimatsuZandaka = Kubun1ToukimatsuZandaka - Kingaku Kubun2ToukimatsuZandaka = Kubun2ToukimatsuZandaka - Kingaku ToukiHendougakuGoukei = ToukiHendougakuGoukei - Kingaku ToukimatsuZandaka = ToukimatsuZandaka - Kingaku ToukimatsuZandakaGoukei = ToukimatsuZandakaGoukei - Kingaku End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") RowCount = RowCount + 1 ii = ii + 1 ToukimatsuZandakaHyouji = 1 '当期末残高表示フラグを立てる SentouFlg = 0 '先頭フラグを降ろす If ShukeiMeisho1 <> "" Then PrePreShukeiMeisho1 = ShukeiMeisho1 End If If ShukeiMeisho2 <> "" Then PrePreShukeiMeisho2 = ShukeiMeisho2 End If If ShukeiMeisho3 <> "" Then Kubun2ZandakaHyoujiUmu = 1 End If Content.MoveNext ' If (RowCount Mod RowBreakNum = 0) Then ' Exit Do ' End If Loop '最後の当期末残高を表示 If Content.BOF Or Content.EOF Then ResponseToukimatsuZandaka(ToukimatsuZandaka) End If %>
【" & ShukeiMeisho1 & "】   " & vbCrLf) Response.Write("
 " & ShukeiMeisho2 & "" & ShukeiMeisho3 & "" & ShukeiKubunMeisho & "" & ToukiHendougakuSaimoku & "" & PlusMinusHyouji & ConvIntToMoney(Kingaku, false, true) & "
<% If PrintFlg <> 1 Then %>
<% End If %>
<% '純資産合計を表示 Call ResponseKubunZandaka("純資産",ZenkimatsuZandakaGoukei,ToukiHendougakuGoukei,ToukimatsuZandakaGoukei) %>
<% If PrintFlg = 1 Then Response.Write(PrintFooter()) End If %>
<% If Content.BOF Or Content.EOF Then Exit For End If Next If PrintFlg = 0 Then %>
<% End if End Function Function ResponseToukimatsuZandaka(ToukimatsuZandaka) Response.Write("" & vbCrLf) Response.Write("  " & vbCrLf) Response.Write("  " & vbCrLf) Response.Write("  " & vbCrLf) Response.Write(" 当期末残高" & vbCrLf) Response.Write("  " & vbCrLf) Response.Write(" " & ConvIntToMoneySankaku(ToukimatsuZandaka, false, true) & "" & vbCrLf) Response.Write("") RowCount = RowCount + 1 End Function Function ResponseKubunZandaka(KubunShukeiMeisho,ZenkimatsuZandaka,ToukiHendougaku,ToukimatsuZandaka) Response.Write("" & vbCrLf) Response.Write("  " & vbCrLf) Response.Write(" （" & KubunShukeiMeisho & "合計）" & vbCrLf) Response.Write("  " & vbCrLf) Response.Write(" 前期末残高" & vbCrLf) Response.Write("  " & vbCrLf) Response.Write(" " & ConvIntToMoneySankaku(ZenkimatsuZandaka, false, true) & "" & vbCrLf) Response.Write("") Response.Write("" & vbCrLf) Response.Write("  " & vbCrLf) Response.Write("  " & vbCrLf) Response.Write("  " & vbCrLf) Response.Write(" 当期変動額" & vbCrLf) Response.Write("  " & vbCrLf) Response.Write(" " & ConvIntToMoneySankaku(ToukiHendougaku, false, true) & "" & vbCrLf) Response.Write("") Response.Write("" & vbCrLf) Response.Write("  " & vbCrLf) Response.Write("  " & vbCrLf) Response.Write("  " & vbCrLf) Response.Write(" 当期末残高" & vbCrLf) Response.Write("  " & vbCrLf) Response.Write(" " & ConvIntToMoneySankaku(ToukimatsuZandaka, false, true) & "" & vbCrLf) Response.Write("") RowCount = RowCount + 3 End Function %>