<%
Function TyoboTaisyakuTaisyohyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, Param1, Param2, Param3)
Dim RowBreakNum, RowCount
Dim Page
RowCount = 0
If PrintFlg = 1 Then
RowBreakNum = 30
Else
RowBreakNum = MaxRowBreakNum
MaxPage = 1
End If
Dim Query, Content
Dim Torihikibi
Dim ContentKarikata, ContentKashikata
Dim KarikataGokei, KashikataGokei
KarikataGokei = 0
KashikataGokei = 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 Param2 <> "" Then
KaikeiSyuryobi = Param2
End If
If Param3 = "1" Then
Param3 = "10"
Else
Param3 = "9"
End If
Dim SyoruiMei
If AutoFlg = 0 Then
Query = "exec SPK帳簿_貸借対照表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
SyoruiMei = "貸借対照表"
ElseIf AutoFlg = 1 Then
Query = "exec SPK自動転記帳簿_財務諸表2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & KaikeiKaishibi & "','" & KaikeiSyuryobi & "','B', 0, " & Param3
SyoruiMei = "貸借対照表（自動）"
Else
Query = "SELECT * FROM TC1システムM WHERE 1 = 0"
SyoruiMei = "貸借対照表"
End if
Set ContentKarikata = OpenQuery(Query)
Set ContentKashikata = OpenQuery(Query)
If AutoFlg = 1 Then
If Param2 = "" Then
Torihikibi = GB_KaikeiSyuryobi
Else
Torihikibi = Param2
End If
Else
If Not(ContentKarikata.BOF Or ContentKarikata.EOF) Then
Torihikibi = SetTimeYYYYMMDD(ContentKarikata.Fields("取引日"))
End IF
End If
If PrintFlg = 0 Then
%>
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" STYLE="BORDER:0px solid #000000" WIDTH="660" HEIGHT="100%"><tr><td>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="100%" HEIGHT="100%"><tr><td>
<%
End If
For Page = 1 To MaxPage
If Page <> 1 Then
Response.Write(PageBreakBefore)
End If
%>
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="660" HEIGHT="100%">
<TR>
<TD ALIGN="CENTER" valign="top">
<%
If PrintFlg = 1 Then
Response.Write(PrintHeader1(AutoFlg))
End if
%>
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="5" WIDTH="100%" HEIGHT="100%">
<TR>
<TD ALIGN="CENTER">
<TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
<tr>
<td valign="top" align="center" height="30">
<table border="0" width="600" cellspacing="0" cellpadding="0">
<tr>
<td align="left" width="35%" nowrap></td>
<td align="center" width="30%" class="bb2" nowrap><% = SetStringInsertSpace(SyoruiMei) %></td>
<td align="right" width="35%" nowrap class="tx1214"><% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ページ<% End If %></td>
</tr>
<tr>
<td width="230"></td>
<td align="center" nowrap height="25" CLASS="tx1618"><%
If AutoFlg = - 1 Then
Response.Write(" 年 月 日")
Else
Response.Write(SetDate(Torihikibi, 2))
End If
If AutoFlg <> -1 And PrintFlg = 1 And Param3 = "10" Then
Response.Write("（繰越記入後）")
End If
%></td>
<td width="230" align="right"></td>
</tr>
</table>
</td>
</tr>
<TR>
<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600">
<TABLE WIDTH="600" HEIGHT="20" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt3" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD WIDTH="203" HEIGHT="23" CLASS="br3b1">資産</TD>
<TD HEIGHT="23" CLASS="br2b1">金額</TD>
<TD WIDTH="203" HEIGHT="23" CLASS="br3b1">負債および資本</TD>
<TD WIDTH="93" HEIGHT="23" CLASS="bb1">金額</TD>
<%
GB_CSVOutput = GB_CSVOutput & ""
GB_CSVOutput = GB_CSVOutput & ",資産"
GB_CSVOutput = GB_CSVOutput & ",金額"
GB_CSVOutput = GB_CSVOutput & ","
GB_CSVOutput = GB_CSVOutput & ",負債および資本"
GB_CSVOutput = GB_CSVOutput & ",金額"
GB_CSVOutput = GB_CSVOutput & "kaigyooygiakaigyooygiakaigyooygiakaigyooygiak"
%>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD HEIGHT="1" VALIGN="BOTTOM"></TD>
</TR>
<TR>
<TD VALIGN="TOP">
<% If PrintFlg <> 1 Then %>
<DIV ID="Layer1" STYLE="position:relative; left:0px; top:-1px; width:620px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
<% End If %>
<TABLE ID="SyoukaiList" WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" STYLE="border-collapse: collapse">
<%
Dim ii, jj
ii = 0
Dim bExist
bExist = 2
Do While bExist > 0
RowCount = RowCount + 1
bExist = 2
Dim KarikataKingaku, KashikataKingaku
Dim KarikataKanjyoCD, KashikataKanjyoCD
Dim KarikataKanjyoMeisyo, KashikataKanjyoMeisyo
KarikataKingaku = ""
KashikataKingaku = ""
KarikataKanjyoCD = ""
KashikataKanjyoCD = ""
KarikataKanjyoMeisyo = ""
KashikataKanjyoMeisyo = ""
For jj = 1 To 100
If (ContentKarikata.BOF Or ContentKarikata.EOF) Then
bExist = bExist - 1
Exit For
ElseIf IsNull(ContentKarikata.Fields("借方金額")) Or ContentKarikata.Fields("借方金額") = 0 Then' Or ContentKarikata.Fields("貸借区分") = "C"
ContentKarikata.MoveNext
Else
KarikataKingaku = ContentKarikata.Fields("借方金額")
If AutoFlg = 0 Then
KarikataKanjyoCD = ContentKarikata.Fields("借方勘定CD")
KarikataKanjyoMeisyo = ContentKarikata.Fields("借方勘定名称")
Else
KarikataKanjyoCD = ContentKarikata.Fields("勘定CD")
KarikataKanjyoMeisyo = ContentKarikata.Fields("勘定名称")
End If
ContentKarikata.MoveNext
Exit For
End If
Next
For jj = 1 To 100
If (ContentKashikata.BOF Or ContentKashikata.EOF) Then
bExist = bExist - 1
Exit For
ElseIf IsNull(ContentKashikata.Fields("貸方金額")) Or ContentKashikata.Fields("貸方金額") = 0 Then' Or ContentKashikata.Fields("貸借区分") = "D"
ContentKashikata.MoveNext
Else
KashikataKingaku = ContentKashikata.Fields("貸方金額")
If AutoFlg = 0 Then
KashikataKanjyoCD = ContentKashikata.Fields("貸方勘定CD")
KashikataKanjyoMeisyo = ContentKashikata.Fields("貸方勘定名称")
Else
KashikataKanjyoCD = ContentKashikata.Fields("勘定CD")
KashikataKanjyoMeisyo = ContentKashikata.Fields("勘定名称")
End If
ContentKashikata.MoveNext
Exit For
End If
Next
If bExist <> 0 Then
If Not(IsNull(KarikataKingaku)) And KarikataKingaku <> "" Then
KarikataGokei = KarikataGokei + KarikataKingaku
End If
If Not(IsNull(KashikataKingaku)) And KashikataKingaku <> "" Then
KashikataGokei = KashikataGokei + KashikataKingaku
End If
Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
Response.Write("<TD WIDTH=""50"" HEIGHT=""23"" ALIGN=""CENTER"" CLASS=""br1"">" & KarikataKanjyoCD & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""152"" HEIGHT=""23"" ALIGN=""left"" CLASS=""br3"">" & KarikataKanjyoMeisyo & "</TD>" & vbCrLf)
Response.Write("<TD HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br2"">" & ConvIntToMoney(KarikataKingaku, false, false) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""50"" HEIGHT=""23"" ALIGN=""CENTER"" CLASS=""br1"">" & KashikataKanjyoCD & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""152"" HEIGHT=""23"" ALIGN=""left"" CLASS=""br3"">" & KashikataKanjyoMeisyo & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""93"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""b0"">" & ConvIntToMoney(KashikataKingaku, false, false) & "</TD>" & vbCrLf)
GB_CSVOutput = GB_CSVOutput & "" & KarikataKanjyoCD
GB_CSVOutput = GB_CSVOutput & "," & KarikataKanjyoMeisyo
GB_CSVOutput = GB_CSVOutput & "," & KarikataKingaku
GB_CSVOutput = GB_CSVOutput & "," & KashikataKanjyoCD
GB_CSVOutput = GB_CSVOutput & "," & KashikataKanjyoMeisyo
GB_CSVOutput = GB_CSVOutput & "," & KashikataKingaku
GB_CSVOutput = GB_CSVOutput & "kaigyooygiakaigyooygiakaigyooygiakaigyooygiak"
ii = ii + 1
Response.Write("</TR>")
End If
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("<TR ALIGN=""CENTER"">" & vbCrLf)
Response.Write("<TD WIDTH=""50"" HEIGHT=""23"" CLASS=""br1""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""152"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
Response.Write("<TD HEIGHT=""23"" CLASS=""br2""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""50"" HEIGHT=""23"" CLASS=""br1""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""152"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""93"" HEIGHT=""23"" CLASS=""b0""></TD>" & vbCrLf)
Response.Write("</TR>")
Next
End if
Dim Gokei
If KashikataGokei - KarikataGokei > 0 Then
Gokei = KashikataGokei
Else
Gokei = KarikataGokei
End if
%>
</TABLE>
<% If PrintFlg <> 1 Then %>
</DIV>
<% End If %>
</TD>
</TR>
<% If (ContentKarikata.BOF Or ContentKarikata.EOF) And (ContentKashikata.BOF Or ContentKashikata.EOF) Then %>
<TR>
<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600">
<TABLE WIDTH="600" HEIGHT="20" BORDER="0" CELLPADDING="0" CELLSPACING="0" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD WIDTH="50" HEIGHT="23" ALIGN="CENTER" class="br1b1"> </TD>
<TD WIDTH="152" HEIGHT="23" ALIGN="CENTER" class="br3b1"><% If KashikataGokei - KarikataGokei > 0 Then Response.Write("当期損失") End If %></TD>
<TD HEIGHT="23" ALIGN="RIGHT" class="br2b1"><% If KashikataGokei - KarikataGokei > 0 Then Response.Write(ConvIntToMoney(KashikataGokei - KarikataGokei , false, false)) End If %></TD>
<TD WIDTH="50" HEIGHT="23" ALIGN="CENTER" class="br1b1"> </TD>
<TD WIDTH="152" HEIGHT="23" ALIGN="CENTER" class="br3b1"><% If KashikataGokei - KarikataGokei < 0 Then Response.Write("当期利益") End If %></TD>
<TD WIDTH="93" HEIGHT="23" ALIGN="RIGHT" class="bb1"><% If KashikataGokei - KarikataGokei < 0 Then Response.Write(ConvIntToMoney(KarikataGokei - KashikataGokei, false, false)) End If %></TD>
<%
GB_CSVOutput = GB_CSVOutput & ""
GB_CSVOutput = GB_CSVOutput & ","
If KashikataGokei - KarikataGokei > 0 Then
GB_CSVOutput = GB_CSVOutput & "当期損失"
End If
GB_CSVOutput = GB_CSVOutput & ","
If KashikataGokei - KarikataGokei > 0 Then
GB_CSVOutput = GB_CSVOutput & (KashikataGokei - KarikataGokei)
End If
GB_CSVOutput = GB_CSVOutput & ","
GB_CSVOutput = GB_CSVOutput & ","
If KashikataGokei - KarikataGokei < 0 Then
GB_CSVOutput = GB_CSVOutput & "当期利益"
End If
GB_CSVOutput = GB_CSVOutput & ","
If KashikataGokei - KarikataGokei < 0 Then
GB_CSVOutput = GB_CSVOutput & (KarikataGokei - KashikataGokei)
End If
GB_CSVOutput = GB_CSVOutput & "kaigyooygiakaigyooygiakaigyooygiakaigyooygiak"
%>
</TR>
<% If AutoFlg = - 1 Then %>
<TR ALIGN="CENTER">
<TD WIDTH="50" HEIGHT="23" ALIGN="CENTER" class="br1b1"> </TD>
<TD WIDTH="152" HEIGHT="23" ALIGN="CENTER" class="br3b1">資産合計</TD>
<TD HEIGHT="23" ALIGN="RIGHT" class="br2b1"></TD>
<TD WIDTH="50" HEIGHT="23" ALIGN="CENTER" class="br1b1"> </TD>
<TD WIDTH="152" HEIGHT="23" ALIGN="CENTER" class="br3b1">負債・資本合計</TD>
<TD WIDTH="92" HEIGHT="23" ALIGN="RIGHT" class="bb1"></TD>
</TR>
<% Else %>
<TR ALIGN="CENTER">
<TD WIDTH="50" HEIGHT="23" ALIGN="CENTER" class="br1b1"> </TD>
<TD WIDTH="152" HEIGHT="23" ALIGN="CENTER" class="br3b1">資産合計</TD>
<TD HEIGHT="23" ALIGN="RIGHT" class="br2b1"><% = ConvIntToMoney(Gokei , false, false) %></TD>
<TD WIDTH="50" HEIGHT="23" ALIGN="CENTER" class="br1b1"> </TD>
<TD WIDTH="152" HEIGHT="23" ALIGN="CENTER" class="br3b1">負債・資本合計</TD>
<TD WIDTH="93" HEIGHT="23" ALIGN="RIGHT" class="bb1"><% = ConvIntToMoney(Gokei , false, false) %></TD>
</TR>
<%
GB_CSVOutput = GB_CSVOutput & ""
GB_CSVOutput = GB_CSVOutput & ",資産合計"
GB_CSVOutput = GB_CSVOutput & ","
GB_CSVOutput = GB_CSVOutput & Gokei
GB_CSVOutput = GB_CSVOutput & ","
GB_CSVOutput = GB_CSVOutput & ",負債・資本合計"
GB_CSVOutput = GB_CSVOutput & ","
GB_CSVOutput = GB_CSVOutput & Gokei
GB_CSVOutput = GB_CSVOutput & "kaigyooygiakaigyooygiakaigyooygiakaigyooygiak"
%>
<% End If %>
</TABLE>
</TD>
</TR>
<% End If %>
</TABLE>
<%
If PrintFlg = 1 Then
Response.Write(PrintFooter())
End If
%>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<%
If (ContentKarikata.BOF Or ContentKarikata.EOF) And (ContentKashikata.BOF Or ContentKashikata.EOF) Then
Exit For
End If
Next
If PrintFlg = 0 Then
%>
</td></tr></table>
</td></tr></table>
<%
End if
End Function
%>