<% Function TyoboHachiketaSeisanhyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, Param1, Param2, Param3) Dim RowBreakNum, RowCount Dim Page RowCount = 0 If PrintFlg = 1 Then RowBreakNum = 40 Else RowBreakNum = MaxRowBreakNum MaxPage = 1 End If Dim ShisanhyoKarikataGokei, ShisaknhyoKashikataGokei Dim SyuseikinyuKarikataGokei, SyuseikinyuKashikataGokei Dim SonekikeisansyoKarikataGokei, SonekikeisansyoKashikataGokei Dim TaisyakutaisyohyoKarikataGokei, TaisyakutaisyohyoKashikataGokei ShisanhyoKarikataGokei = 0 ShisaknhyoKashikataGokei = 0 SyuseikinyuKarikataGokei = 0 SyuseikinyuKashikataGokei = 0 SonekikeisansyoKarikataGokei = 0 SonekikeisansyoKashikataGokei = 0 TaisyakutaisyohyoKarikataGokei = 0 TaisyakutaisyohyoKashikataGokei = 0 Dim KaikeiKaishibi, KaikeiSyuryobi Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KaikeiKaishibi = Content.Fields("会計開始日") KaikeiSyuryobi = Content.Fields("会計終了日") End If If Param1 = "" Then Param1 = KaikeiSyuryobi End If 'Param2は伝票集計区分として利用 If Param2 = "1" Then Param2 = "10" Else Param2 = "9" End If Dim SyoruiMei SyoruiMei = "八桁精算表" If AutoFlg = 0 Then Query = "exec SPK帳簿_八桁精算表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" ElseIf AutoFlg = 1 Then Query = "exec SPK自動転記帳簿_八桁精算表照会 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & KaikeiKaishibi & "','" & Param1 & "', " & Param2 & "" If InStr(Param3, "ViewOnly") > 0 Then '自動転記と整理記入を区別するため SyoruiMei = "八桁精算表（自動）" End If Else Query = "SELECT * FROM TC1システムM WHERE 1 = 0" Param1 = "" End If 'Response.Write(Query) 'Exit Function Set Content = OpenQuery(Query) If PrintFlg = 0 Then %>
<% End If Dim WidthCell1, WidthCell2, WidthParent, WidthParent2 Dim HeightCell If PrintFlg = 0 Then HeightCell = 20 WidthCell1 = 50 WidthCell2 = 91 WidthParent = 952 WidthParent2 = 932 Else HeightCell = 18 WidthCell1 = 33 WidthCell2 = 68 WidthParent = 708 WidthParent2 = 706 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 Content.BOF Or Content.EOF Then %> <% '10桁を超えたらフォントサイズを落とす Dim FontSizeToggle FontSizeToggle = " style=""font-size:14px;""" If PrintFlg = 1 Then FontSizeToggle = " style=""font-size:11px;""" End If %> <% End If %>
<% = SetStringInsertSpace(SyoruiMei) %> <% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ページ<% End If %>
<% If AutoFlg = - 1 Then Response.Write("　　　　年　　　　月　　　　日") Else Response.Write(SetDate(Param1, 2)) End If If AutoFlg <> -1 And PrintFlg = 1 And Param2 = "10" Then Response.Write("（振替記入後）") End If %>
勘定科目 <% If Param2 = "10" Then %> 修正後残高試算表 <% Else %> 残高試算表 <% End If %> <% If Param2 = "10" Then %> 振替記入 <% Else %> 整理記入 <% End If %> 損益計算書 貸借対照表
借方 貸方 借方 貸方 借方 貸方 借方 貸方
<% If PrintFlg <> 1 Then %>
<% End If %> <% Dim Query Dim Content Dim ii, jj ii = 0 Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 Dim ShisanhyoKarikata, ShisaknhyoKashikata Dim SyuseikinyuKarikata, SyuseikinyuKashikata Dim SonekikeisansyoKarikata, SonekikeisansyoKashikata Dim TaisyakutaisyohyoKarikata, TaisyakutaisyohyoKashikata ShisanhyoKarikata = Content.Fields("試算表借方金額") ShisaknhyoKashikata = Content.Fields("試算表貸方金額") SyuseikinyuKarikata = Content.Fields("整理記入借方金額") SyuseikinyuKashikata = Content.Fields("整理記入貸方金額") SonekikeisansyoKarikata = Content.Fields("損益計算書借方金額") SonekikeisansyoKashikata = Content.Fields("損益計算書貸方金額") TaisyakutaisyohyoKarikata = Content.Fields("貸借対照表借方金額") TaisyakutaisyohyoKashikata = Content.Fields("貸借対照表貸方金額") '※この部分は社長に騙されて完全に誤ってた '「資産勘定で貸方」または「資産勘定以外で借方」なら貸借対照表の貸借金額を反転する（090119小野） ' If Content.Fields("勘定細目") = "A" And Content.Fields("貸借区分") = "C" Then ' TaisyakutaisyohyoKarikata = Content.Fields("貸借対照表借方金額") - Content.Fields("貸借対照表貸方金額") ' TaisyakutaisyohyoKashikata = 0 ' End If ' その他勘定は反転しない（111012小野） If Content.Fields("勘定細目") <> "A" And Content.Fields("勘定細目") <> "H" And Content.Fields("貸借区分") = "D" Then TaisyakutaisyohyoKarikata = 0 TaisyakutaisyohyoKashikata = Content.Fields("貸借対照表貸方金額") - Content.Fields("貸借対照表借方金額") End If If IsNull(ShisanhyoKarikata) Then ShisanhyoKarikata = 0 End If If IsNull(ShisaknhyoKashikata) Then ShisaknhyoKashikata = 0 End If If IsNull(SyuseikinyuKarikata) Then SyuseikinyuKarikata = 0 End If If IsNull(SyuseikinyuKashikata) Then SyuseikinyuKashikata = 0 End If If IsNull(SonekikeisansyoKarikata) Then SonekikeisansyoKarikata = 0 End If If IsNull(SonekikeisansyoKashikata) Then SonekikeisansyoKashikata = 0 End If If IsNull(TaisyakutaisyohyoKarikata) Then TaisyakutaisyohyoKarikata = 0 End If If IsNull(TaisyakutaisyohyoKashikata) Then TaisyakutaisyohyoKashikata = 0 End If ShisanhyoKarikataGokei = ShisanhyoKarikataGokei + ShisanhyoKarikata ShisaknhyoKashikataGokei = ShisaknhyoKashikataGokei + ShisaknhyoKashikata SyuseikinyuKarikataGokei = SyuseikinyuKarikataGokei + SyuseikinyuKarikata SyuseikinyuKashikataGokei = SyuseikinyuKashikataGokei + SyuseikinyuKashikata SonekikeisansyoKarikataGokei = SonekikeisansyoKarikataGokei + SonekikeisansyoKarikata SonekikeisansyoKashikataGokei = SonekikeisansyoKashikataGokei + SonekikeisansyoKashikata TaisyakutaisyohyoKarikataGokei = TaisyakutaisyohyoKarikataGokei + TaisyakutaisyohyoKarikata TaisyakutaisyohyoKashikataGokei = TaisyakutaisyohyoKashikataGokei + TaisyakutaisyohyoKashikata ii = ii + 1 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) '勘定名称を18Byteで切り捨て（061102小野） Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Content.MoveNext If (RowCount Mod RowBreakNum = 0) Then Exit Do End If Loop If 1 = 1 Then For jj = RowCount + 1 To Max(19, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Next End if %>
" & Content.Fields("勘定CD") & "" & AscLeft(Content.Fields("勘定名称"),18) & "" & ConvIntToMoney(ShisanhyoKarikata, false, true) & "" & ConvIntToMoney(ShisaknhyoKashikata, false, true) & "" & ConvIntToMoney(SyuseikinyuKarikata, false, true) & "" & ConvIntToMoney(SyuseikinyuKashikata, false, true) & "" & ConvIntToMoney(SonekikeisansyoKarikata, false, true) & "" & ConvIntToMoney(SonekikeisansyoKashikata, false, true) & "" & ConvIntToMoney(TaisyakutaisyohyoKarikata, false, true) & "" & ConvIntToMoney(TaisyakutaisyohyoKashikata, false, true) & "
 
<% If PrintFlg <> 1 Then %>
<% End If %>
<% '10桁を超えたらフォントサイズを落とす Dim ToukiPLKari Dim ToukiPLKashi Dim ToukiBSKari Dim ToukiBSKashi ToukiPLKari = SonekikeisansyoKashikataGokei - SonekikeisansyoKarikataGokei ToukiPLKashi = SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei ToukiBSKari = TaisyakutaisyohyoKashikataGokei - TaisyakutaisyohyoKarikataGokei ToukiBSKashi = TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei If ToukiPLKari <= 0 Then ToukiPLKari = null End If If ToukiPLKashi <= 0 Then ToukiPLKashi = null End If If ToukiBSKari <= 0 Then ToukiBSKari = null End If If ToukiBSKashi <= 0 Then ToukiBSKashi = null End If %> <% '10桁を超えたらフォントサイズを落とす Dim GokeiPLKari Dim GokeiPLKashi Dim GokeiBSKari Dim GokeiBSKashi If SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0 Then GokeiPLKari = SonekikeisansyoKashikataGokei Else GokeiPLKari = SonekikeisansyoKarikataGokei End If If SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0 Then GokeiPLKashi = SonekikeisansyoKarikataGokei Else GokeiPLKashi = SonekikeisansyoKashikataGokei End If If TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei < 0 Then GokeiBSKari = TaisyakutaisyohyoKashikataGokei Else GokeiBSKari = TaisyakutaisyohyoKarikataGokei End If If TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei > 0 Then GokeiBSKashi = TaisyakutaisyohyoKarikataGokei Else GokeiBSKashi = TaisyakutaisyohyoKashikataGokei End If %>
試算表合計 10 Then %><% = FontSizeToggle %><% End If %>><% = ConvIntToMoney(ShisanhyoKarikataGokei, false, true) %> 10 Then %><% = FontSizeToggle %><% End If %>><% = ConvIntToMoney(ShisaknhyoKashikataGokei, false, true) %> 　 　 　 　 　 　
<% If SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0 Then Response.Write("当期利益") ElseIf SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0 Then Response.Write("当期損失") Else Response.Write("当期") End If %>　 　 　 　 10 Then %><% = FontSizeToggle %><% End If %>><% = ConvIntToMoney(ToukiPLKari, false, true) %> 10 Then %><% = FontSizeToggle %><% End If %>><% = ConvIntToMoney(ToukiPLKashi, false, true) %> 10 Then %><% = FontSizeToggle %><% End If %>><% = ConvIntToMoney(ToukiBSKari, false, true) %> 10 Then %><% = FontSizeToggle %><% End If %>><% = ConvIntToMoney(ToukiBSKashi, false, true) %>
合計 　 　 10 Then %><% = FontSizeToggle %><% End If %>><% = ConvIntToMoney(SyuseikinyuKarikataGokei, false, true) %> 10 Then %><% = FontSizeToggle %><% End If %>><% = ConvIntToMoney(SyuseikinyuKashikataGokei, false, true) %> 10 Then %><% = FontSizeToggle %><% End If %>><% = ConvIntToMoney(GokeiPLKari, false, true) %> 10 Then %><% = FontSizeToggle %><% End If %>><% = ConvIntToMoney(GokeiPLKashi, false, true) %> 10 Then %><% = FontSizeToggle %><% End If %>><% = ConvIntToMoney(GokeiBSKari, false, true) %> 10 Then %><% = FontSizeToggle %><% End If %>><% = ConvIntToMoney(GokeiBSKashi, false, true) %>
<% 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 %>