<% Function HojyobokoguchiSuitohyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg) Dim RowBreakNum, RowCount Dim Page RowCount = 0 If PrintFlg = 1 Then RowBreakNum = 35 Else RowBreakNum = MaxRowBreakNum MaxPage = 1 End If Dim DbKarikataKingakuTotal Dim DbKashikataKingakuTotal DbKarikataKingakuTotal = 0 DbKashikataKingakuTotal = 0 Dim SyoruiMei If AutoFlg = 2 Then Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'AA', '%', '', ''" SyoruiMei = "現金出納帳(自動)" ElseIf AutoFlg = 1 Then Query = "exec SPK現金入出金履歴一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" SyoruiMei = "入出金履歴" Else Query = "exec SPK補助簿_小口現金出納帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" SyoruiMei = "小口現金出納帳" End If 'response.write(Query) 'Exit function Set Content = OpenQuery(Query) 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 '表示と印刷でサイズ可変 Dim WidthTorihikibi, WidthKingakuWide, WidthKingakuNarrow, WidthParent, WidthParent2, WidthTekiyo Dim HeightCell If PrintFlg = 0 Then HeightCell = 23 WidthTorihikibi = 82 WidthKingakuWide = 92 WidthKingakuNarrow = 72 WidthParent = 842 WidthParent2 = 822 WidthTekiyo = 187 Else HeightCell = 21 WidthTorihikibi = 68 WidthKingakuWide = 78 WidthKingakuNarrow = 62 WidthParent = 700 WidthParent2 = 680 WidthTekiyo = 157 End If Dim GokeiSyunyu Dim GokeiShisyutsu Dim GokeiKingaku1 Dim GokeiKingaku2 Dim GokeiKingaku3 Dim GokeiKingaku4 Dim GokeiKingaku5 GokeiSyunyu = 0 GokeiShisyutsu = 0 GokeiKingaku1 = 0 GokeiKingaku2 = 0 GokeiKingaku3 = 0 GokeiKingaku4 = 0 GokeiKingaku5 = 0 For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="600" 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" BGCOLOR="#FFFFFF" WIDTH="100%" HEIGHT="100%"> <TR> <TD ALIGN="left" vALIGN="top"> <TABLE WIDTH="<% = WidthParent %>" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%"> <tr> <td valign="top" align="center" height="30"> <table border="0" width="<% = WidthParent2 %>" 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> </table> <% If GB_IEmode <> "1" Then %> <div><% = Spacer(1, 7) %></div> <% End If %> </td> </tr> <TR> <TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600"> <TABLE WIDTH="<% = WidthParent2 %>" HEIGHT="20" BORDER="0" CELLPADDING="0" CELLSPACING="0" class="bt3" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER"> <TD WIDTH="<% = WidthKingakuWide %>" class="br3b1" rowspan="2">受 入</TD> <TD WIDTH="<% = WidthTorihikibi %>" class="br1b1" rowspan="2">取引日</TD> <TD class="br3b1" rowspan="2">摘 要</TD> <TD WIDTH="<% = WidthKingakuWide %>" class="br3b1" rowspan="2">支 払</TD> <TD HEIGHT="<% = HeightCell %>" class="bb1" colspan="5">内 訳</TD> </TR> <TR ALIGN="CENTER"> <TD WIDTH="<% = WidthKingakuNarrow %>" HEIGHT="<% = HeightCell %>" class="br1b1">通信費</TD> <TD WIDTH="<% = WidthKingakuNarrow %>" class="br1b1">交通費</TD> <TD WIDTH="<% = WidthKingakuNarrow %>" class="br1b1">消耗品費</TD> <TD WIDTH="<% = WidthKingakuNarrow %>" class="br1b1">水道光熱</TD> <TD WIDTH="<% = WidthKingakuNarrow %>" 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:<% = WidthParent %>px; height:100%; z-index:1; overflow: auto;"> <% End If %> <TABLE ID="SyoukaiList" WIDTH="<% = WidthParent2 %>" BORDER="0" CELLSPACING="0" CELLPADDING="0" CLASS="tx1416" STYLE="border-collapse: collapse"> <% Dim Query Dim Content Dim ii, jj ii = 0 '月計表示のため現在の月を保持する変数(110509小野) Dim TmpMonth TmpMonth = "" 'exit function Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 Dim Torihikibi, Tekiyo, Syunyu, Shisyutsu, Kingaku1, Kingaku2, Kingaku3, Kingaku4, Kingaku5 '自動現金出納帳(伝票集計) If AutoFlg = 2 Then Torihikibi = Content.Fields("取引日") Syunyu = Content.Fields("借方金額") Shisyutsu = Content.Fields("貸方金額") Zandaka = Zandaka + Syunyu - Shisyutsu Tekiyo = "" & Content.Fields("伝票摘要") If Tekiyo = "" Then Tekiyo = Content.Fields("摘要") End If '自動現金入出金履歴(現物集計) ElseIf AutoFlg = 1 Then Torihikibi = Content.Fields("処理日") If Content.Fields("現金取引区分") = "GN" Then Syunyu = Content.Fields("金額") Shisyutsu = 0 ElseIf Content.Fields("現金取引区分") = "GS" Then Syunyu = 0 Shisyutsu = Content.Fields("金額") Else Syunyu = Content.Fields("金額") Shisyutsu = Content.Fields("金額") End If Zandaka = Zandaka + Syunyu - Shisyutsu Tekiyo = Content.Fields("摘要") Else Torihikibi = Content.Fields("取引日") Syunyu = Content.Fields("受入") Shisyutsu = Content.Fields("支払") Tekiyo = Content.Fields("摘要") Kingaku1 = Content.Fields("通信費") Kingaku2 = Content.Fields("交通費") Kingaku3 = Content.Fields("消耗品費") Kingaku4 = Content.Fields("水道光熱費") Kingaku5 = Content.Fields("その他") If "" & Syunyu <> "" Then GokeiSyunyu = GokeiSyunyu + Syunyu End If If "" & Shisyutsu <> "" Then GokeiShisyutsu = GokeiShisyutsu + Shisyutsu End If If "" & Kingaku1 <> "" Then GokeiKingaku1 = GokeiKingaku1 + Kingaku1 End If If "" & Kingaku2 <> "" Then GokeiKingaku2 = GokeiKingaku2 + Kingaku2 End If If "" & Kingaku3 <> "" Then GokeiKingaku3 = GokeiKingaku3 + Kingaku3 End If If "" & Kingaku4 <> "" Then GokeiKingaku4 = GokeiKingaku4 + Kingaku4 End If If "" & Kingaku5 <> "" Then GokeiKingaku5 = GokeiKingaku5 + Kingaku5 End If End If '月計表示(110509小野)(とりあえず保留) If 0=1 And TmpMonth <> "" And Mid(Torihikibi, 6, 2) <> TmpMonth Then Response.Write("<TD WIDTH=""83"" HEIGHT=""23"" ALIGN=""center"" class=""br1b3""> </TD>" & vbCrLf) Response.Write("<TD HEIGHT=""23"" ALIGN=""LEFT"" class=""br1""><span style=""width:227px; overflow:hidden;""> </span></TD>" & vbCrLf) Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3b3"">" & ConvIntToMoney(DbKarikataKingakuTotal , false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3b3"">" & ConvIntToMoney(DbKashikataKingakuTotal, false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""bb3""> </TD>" & vbCrLf) DbKarikataKingakuTotal = 0 'リセット DbKashikataKingakuTotal = 0 'リセット '発生行のためMoveNextせず改ページ判定する If (RowCount Mod RowBreakNum = 0) Then Exit Do End If End If TmpMonth = Mid(Torihikibi, 6, 2) If "" & Syunyu <> "" Then DbKarikataKingakuTotal = DbKarikataKingakuTotal + Syunyu End If If "" & Shisyutsu <> "" Then DbKashikataKingakuTotal = DbKashikataKingakuTotal + Shisyutsu End If Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingakuWide & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Syunyu , false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ ALIGN=""CENTER"" class=""br1"">" & Torihikibi & "</TD>" & vbCrLf) Response.Write("<TD HEIGHT=""" & HeightCell & """ ALIGN=""LEFT"" class=""br3""><span style=""width:" & WidthTekiyo & "px; height:14px; overflow:hidden;"">" & HardWrap(Tekiyo) & "</span></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingakuWide & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Shisyutsu , false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(Kingaku1 , false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(Kingaku2 , false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(Kingaku3 , false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(Kingaku4 , false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Kingaku5 , false, true) & "</TD>" & vbCrLf) Response.Write("</TR>" &vbCrLf) ii = ii + 1 Content.MoveNext If (RowCount Mod RowBreakNum = 0) Then Exit Do End If Loop 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=""" & WidthKingakuWide & """ ALIGN=""RIGHT"" class=""br3""> </TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ ALIGN=""center"" class=""br1""> </TD>" & vbCrLf) Response.Write("<TD HEIGHT=""" & HeightCell & """ ALIGN=""center"" class=""br3""> </TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingakuWide & """ ALIGN=""RIGHT"" class=""br3""> </TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1""> </TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1""> </TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1""> </TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""br1""> </TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingakuNarrow & """ ALIGN=""RIGHT"" class=""b0""> </TD>" & vbCrLf) Response.Write("</TR>") Next %> </TABLE> <% If PrintFlg <> 1 Then %> </DIV> <% End If %> </TD> </TR> <% If (Content.BOF Or Content.EOF) Then %> <TR ALIGN="left"> <TD HEIGHT="27" VALIGN="BOTTOM"> <TABLE WIDTH="<% = WidthParent2 %>" HEIGHT="29" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt1" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER"> <TD ALIGN="RIGHT" WIDTH="<% = WidthKingakuWide %>" class="br3"><% = ConvIntToMoney(GokeiSyunyu, false, true) %></TD> <TD WIDTH="<% = WidthTorihikibi %>" class="br1"> </TD> <TD class="br3">合 計</TD> <TD ALIGN="RIGHT" WIDTH="<% = WidthKingakuWide %>" class="br3"><% = ConvIntToMoney(GokeiShisyutsu, false, true) %></TD> <TD ALIGN="RIGHT" WIDTH="<% = WidthKingakuNarrow %>" class="br1"><% = ConvIntToMoney(GokeiKingaku1, false, true) %></TD> <TD ALIGN="RIGHT" WIDTH="<% = WidthKingakuNarrow %>" class="br1"><% = ConvIntToMoney(GokeiKingaku2, false, true) %></TD> <TD ALIGN="RIGHT" WIDTH="<% = WidthKingakuNarrow %>" class="br1"><% = ConvIntToMoney(GokeiKingaku3, false, true) %></TD> <TD ALIGN="RIGHT" WIDTH="<% = WidthKingakuNarrow %>" class="br1"><% = ConvIntToMoney(GokeiKingaku4, false, true) %></TD> <TD ALIGN="RIGHT" WIDTH="<% = WidthKingakuNarrow %>" class="b0"><% = ConvIntToMoney(GokeiKingaku5, false, true) %></TD> </TR> </TABLE> </TD> </TR> <% End If %> </TABLE> </TD> </TR> </TABLE> <% If PrintFlg = 1 Then Response.Write(PrintFooter()) End If %> </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 %>