<% Function TyoboGokeiZandakaShisanhyo(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 Dim Content Dim Content2 Dim ii, jj ii = 0 Dim RouteType RouteType = Request("RouteType") Dim Torihikibi Torihikibi = Request("Torihikibi") If BunsyoNaiyoCD <> "" Then Torihikibi = BunsyoNaiyoCD End If 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 '「開始日;終了日」の形式で範囲指定出来るよう変更(120305小野) If InStr(Param1, ";") < 1 Then '終了日のみの場合 KaikeiSyuryobi = Param1 Else '「開始日;終了日」の場合 Dim FromTo FromTo = Split(Param1, ";") KaikeiKaishibi = FromTo(0) KaikeiSyuryobi = FromTo(1) End If End If If Param2 = "2" Then Param2 = "11" ElseIf Param2 = "1" Then Param2 = "10" Else Param2 = "9" End If Dim SyoruiMei If AutoFlg = 0 Then ' Query = "exec SPK帳簿_合計残高試算表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Query = "exec SPK帳簿_合計残高試算表取得日付指定 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & Torihikibi & "'" SyoruiMei = "合計残高試算表" ElseIf AutoFlg = 1 Then Query = "exec SPK自動転記帳簿_合計残高試算表照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaikeiKaishibi & "', '" & KaikeiSyuryobi & "', " & Param2 & ", '" & Param3 & "'" SyoruiMei = "合計残高試算表(自動)" Else Query = "SELECT * FROM TC1システムM WHERE 1 = 0" SyoruiMei = "合計残高試算表" End If If AutoFlg = 1 Then If Param2 = "11" Then SyoruiMei = "決算残高試算表(自動)" ElseIf Param2 = "10" Then SyoruiMei = "修正後残高試算表(自動)" End If End If Set Content = OpenQuery(Query) Dim KarikataZandakaTotal, KashikataZandakaTotal Dim KarikataKingakuTotal, KashikataKingakuTotal KarikataZandakaTotal = 0 KashikataZandakaTotal = 0 KarikataKingakuTotal = 0 KashikataKingakuTotal = 0 If AutoFlg = 1 Then Torihikibi = KaikeiSyuryobi Else If Not(Content.BOF Or Content.EOF) Then Torihikibi = SetTimeYYYYMMDD(Content.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" valign="top"> <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 class="tx1416" align="center" nowrap height="25"><% If AutoFlg = - 1 Then Response.Write(" 年 月 日") ' 自動 印刷 運用管理の書類一覧 ElseIf AutoFlg = 1 Or PrintFlg = 1 Or InStr(Request.ServerVariables("SCRIPT_NAME"), "/admin/syokai/fm_tyohyo_main.asp") > 0 Then If KaikeiKaishibi <> GB_KaikeiKaishibi Then '集計開始日が指定された場合 Response.Write(SetDate(KaikeiKaishibi, 2) & " ~ ") End If Response.Write(SetDate(Torihikibi, 2)) Else Response.Write("日付:<select size=""1"" name=""Torihikibi"" onChange=""tblbtn('fk_gokeizandakashisanhyo_view.asp?RouteType=" & RouteType & "&Torihikibi=' + this.value);"" class=""tbox4_w"">" & vbCrLf) Response.Write("<option value=""""> </option>" & vbCrLf) Query = "exec SPK帳簿_合計残高試算表取引日一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content2 = OpenQuery(Query) Do While Not(Content2.BOF Or Content2.EOF) Response.Write("<option value=""" & SetTimeYYYYMMDD(Content2.Fields("取引日")) & """") If "" & SetTimeYYYYMMDD(Content2.Fields("取引日")) = "" & Torihikibi Then Response.Write(" selected") End If Response.Write(">" & SetTimeYYYYMMDD(Content2.Fields("取引日"))) Response.Write("</option>" & vbCrLf) Content2.MoveNext Loop Response.Write("</select>" & vbCrLf) ' Response.Write(SetDate(Torihikibi, 2)) End If %></td> <td class="tx1416" width="230" align="right"></td> </tr> </table> </td> </tr> <TR> <TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600"> <TABLE WIDTH="583" HEIGHT="20" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt3" STYLE="border-collapse: collapse"> <tr> <TD HEIGHT="23" colspan="2" align="center" class="br3b1">借方</TD> <TD HEIGHT="40" rowspan="2" align="center" class="br3b1">勘定科目</TD> <TD HEIGHT="23" colspan="2" align="center" class="bb1">貸方</TD> </tr> <TR ALIGN="CENTER"> <TD WIDTH="92" HEIGHT="23" align="center" class="br3b1">残高</TD> <TD WIDTH="92" HEIGHT="23" align="center" class="br3b1">合計</TD> <TD WIDTH="92" HEIGHT="23" align="center" class="br3b1">合計</TD> <TD WIDTH="92" HEIGHT="23" align="center" class="bb1">残高</TD> </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:603px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;"> <% End If %> <TABLE ID="SyoukaiList" WIDTH="583" BORDER="0" CELLSPACING="0" CELLPADDING="0" STYLE="border-collapse: collapse"> <% Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 Dim KarikataZandaka, KarikataKingaku Dim KanjyoCD, KanjyoKamoku Dim KashikataZandaka, KashikataKingaku KarikataZandaka = Content.Fields("借方残高") KarikataKingaku = Content.Fields("借方金額") KanjyoCD = Content.Fields("勘定CD") KashikataKingaku = Content.Fields("貸方金額") KashikataZandaka = Content.Fields("貸方残高") If IsNull(KarikataZandaka) or (KarikataZandaka="") Then Else KarikataZandakaTotal = KarikataZandakaTotal + KarikataZandaka End If If IsNull(KarikataKingaku) or (KarikataKingaku="") Then Else KarikataKingakuTotal = KarikataKingakuTotal + KarikataKingaku End If If IsNull(KashikataZandaka) or (KashikataZandaka="") Then Else KashikataZandakaTotal = KashikataZandakaTotal + KashikataZandaka End If If IsNull(KashikataKingaku) or (KashikataKingaku="") Then Else KashikataKingakuTotal = KashikataKingakuTotal + KashikataKingaku End If Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf) Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(Content.Fields("借方残高"), false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(Content.Fields("借方金額"), false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""50"" ALIGN=""center"" CLASS=""br1"">" & Content.Fields("勘定CD") & "</TD>" & vbCrLf) Response.Write("<TD HEIGHT=""23"" ALIGN=""LEFT"" CLASS=""br3"">" & Content.Fields("勘定名称") & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(Content.Fields("貸方金額"), false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""b0"">" & ConvIntToMoney(Content.Fields("貸方残高"), false, true) & "</TD>" & vbCrLf) ii = ii + 1 Response.Write("</TR>") Content.MoveNext If (RowCount Mod RowBreakNum = 0) Then Exit Do End If Loop If 1 = 1 Then For jj = RowCount + 1 To Max(30, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg) Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf) Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""50"" CLASS=""br1""></TD>" & vbCrLf) Response.Write("<TD HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" CLASS=""br3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""92"" HEIGHT=""23"" CLASS=""b0""></TD>" & vbCrLf) Response.Write("</TR>") Next End if %> </TABLE> <% If PrintFlg <> 1 Then %> </DIV> <% End If %> </TD> </TR> <% If Content.BOF Or Content.EOF Then %> <TR> <TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600"> <TABLE WIDTH="583" HEIGHT="20" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt1" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER"> <TD align="right" WIDTH="92" HEIGHT="23" class="br3b1"><% = ConvIntToMoney(KarikataZandakaTotal, false, true) %></TD> <TD align="right" WIDTH="92" HEIGHT="23" class="br3b1"><% = ConvIntToMoney(KarikataKingakuTotal, false, true) %></TD> <TD align="center" HEIGHT="23" class="br3b1">合計</TD> <TD align="right" WIDTH="92" HEIGHT="23" class="br3b1"><% = ConvIntToMoney(KashikataKingakuTotal, false, true) %></TD> <TD align="right" WIDTH="92" HEIGHT="23" class="bb1"><% = ConvIntToMoney(KashikataZandakaTotal, false, true) %></TD> </TR> </TABLE> </TD> </TR> <% End If %> </TABLE> <% If PrintFlg = 1 Then Response.Write(PrintFooter()) End If %> </TD> </TR> </TABLE> </TD> </TR> </TABLE> <% If (Content.BOF Or Content.EOF) Then Exit For End If Next If PrintFlg = 0 Then %> </td></tr></table> </td></tr></table> <% End if End Function %>