<%
Function HojyoboUketoriShiharaiTegatatyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg)
Dim Query
Dim Content
Dim Content2
Dim RowBreakNum, RowCount
Dim Page
RowCount = 0
Dim DbKarikataKingakuTotal
Dim DbKashikataKingakuTotal
DbKarikataKingakuTotal = 0
DbKashikataKingakuTotal = 0
Dim YTegataHyoji
Dim KTegataHyoji
Dim TegataHyoji
TegataHyoji = "1"
Dim SyoruiMei
Dim Mode
If AutoFlg > 0 Then
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
YTegataHyoji = "" & Content.Fields("約束手形表示")
KTegataHyoji = "" & Content.Fields("為替手形表示")
End If
If YTegataHyoji <> "1" And KTegataHyoji <> "1" Then
TegataHyoji = "0"
End If
If AutoFlg = 2 Then
' Query = "exec SPK伝票_振替伝票一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
If BunsyoSyuruiCD = "MH" Then
SyoruiMei = "受取手形記入帳（自動）"
Mode = "AE"
Else
SyoruiMei = "支払手形記入帳（自動）"
Mode = "AF"
End If
Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & Mode & "', '%', '', ''"
ElseIf TegataHyoji <> "1" Then
Query = "exec SPK伝票_振替伝票一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
If BunsyoSyuruiCD = "MH" Then
SyoruiMei = "受取手形履歴"
Else
SyoruiMei = "支払手形履歴"
End If
Else
If BunsyoSyuruiCD = "MH" Then
Query = "exec SPK手形一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TX', ''"
SyoruiMei = "受取手形履歴"
Else
Query = "exec SPK手形一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TY', ''"
SyoruiMei = "支払手形履歴"
End If
End If
Else
If BunsyoSyuruiCD = "MH" Then
Query = "exec SPK補助簿_受取手形記入帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
SyoruiMei = "受取手形記入帳"
Else
Query = "exec SPK補助簿_支払手形記入帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
SyoruiMei = "支払手形記入帳"
End If
End If
If PrintFlg = 1 Then
If AutoFlg <> 2 And TegataHyoji = "1" Then
RowBreakNum = 32
Else
RowBreakNum = 37
End If
Else
RowBreakNum = MaxRowBreakNum
MaxPage = 1
End If
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 WidthCell0, WidthCell1, WidthCell2, WidthCell3, WidthCell4, WidthCell5, WidthCell6, WidthCell7, WidthParent, WidthParent2
If AutoFlg = 2 Or TegataHyoji <> "1" Then
WidthCell0 = 120
WidthCell1 = 30
WidthCell2 = 75
WidthCell3 = 80
WidthCell4 = 80
WidthCell5 = 100
WidthCell6 = 80
If PrintFlg = 0 Then
WidthCell7 = 311
WidthParent = 720
WidthParent2 = 700
Else
WidthCell7 = 232
WidthParent = 620
WidthParent2 = 620
End If
Else
If PrintFlg = 0 Then
WidthCell0 = 80
WidthCell1 = 30
WidthCell2 = 75
WidthCell3 = 38
WidthCell4 = 65
WidthCell5 = 100
WidthCell6 = 132
WidthCell7 = 159
WidthParent = 920
WidthParent2 = 900
Else
WidthCell0 = 68
WidthCell1 = 24
WidthCell2 = 60
WidthCell3 = 30
WidthCell4 = 60
WidthCell5 = 90
WidthCell6 = 52
WidthCell7 = 121
WidthParent = 700
WidthParent2 = 700
End If
If Right(SyoruiMei, 4) = "手形履歴" Then
WidthCell7 = WidthCell7 + 2
End If
End If
For Page = 1 To MaxPage
If Page <> 1 Then
Response.Write(PageBreakBefore)
End If
%>
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="100%" HEIGHT="100%">
<TR>
<TD ALIGN="left" valign="top">
<%
If PrintFlg = 1 Then
Response.Write(PrintHeader1(AutoFlg))
End if
%>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" WIDTH="<% = WidthParent %>" HEIGHT="100%">
<TR>
<TD ALIGN="CENTER" 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="100%" 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>
</td>
</tr>
<TR>
<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="<% = WidthParent %>">
<TABLE WIDTH="<% = WidthParent2 %>" HEIGHT="21" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt3" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER" class="tx1214">
<% If AutoFlg <> 2 And TegataHyoji = "1" Then %>
<TD WIDTH="<% = WidthCell3 %>" class="br1b1">取引<br>日</TD>
<% Else %>
<TD WIDTH="<% = WidthCell4 %>" class="br1b1">取引日</TD>
<% End If %>
<TD class="br3b1">摘要</TD>
<TD WIDTH="<% = WidthCell0 %>" class="br3b1">金額</TD>
<% If AutoFlg <> 2 And TegataHyoji = "1" Then %>
<TD WIDTH="<% = WidthCell1 %>" class="br1b1">種類</TD>
<TD WIDTH="<% = WidthCell5 %>" class="br1b1">手形<br>番号</TD>
<TD WIDTH="<% = WidthCell4 %>" class="br1b1"><% If BunsyoSyuruiCD = "MH" Then %>支払人<% Else %>受取人<% End If %></TD>
<% Else %>
<TD WIDTH="<% = WidthCell5 %>" class="br1b1">伝票番号</TD>
<TD WIDTH="<% = WidthCell4 %>" class="bb1"><% If BunsyoSyuruiCD = "MH" Then %>支払人<% Else %>受取人<% End If %></TD>
<% End If %>
<% If AutoFlg <> 2 And TegataHyoji = "1" Then %>
<TD WIDTH="<% = WidthCell4 %>" class="br1b1"><% If BunsyoSyuruiCD = "MH" Then %>振出人<span class="tx1012">また</span><br><span class="tx1012">は</span>裏書人<% Else %>振出人<% End If %></TD>
<TD WIDTH="<% = WidthCell3 %>" class="br1b1">振出<br>日</TD>
<TD WIDTH="<% = WidthCell2 %>" class="br1b1">満期日</TD>
<TD WIDTH="<% = WidthCell4 %>" class="br1b1">支払場所</TD>
<TD WIDTH="<% = WidthCell3 %>" class="br1b1">顛末<br>日付</TD>
<TD WIDTH="<% = WidthCell6 %>" class="bb1">顛末摘要</TD>
<% End If %>
</TR>
</TABLE>
</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; border: 1px none #000000; overflow: auto;">
<% End If %>
<TABLE ID="SyoukaiList" WIDTH="<% = WidthParent2 %>" BORDER="0" CELLSPACING="0" CELLPADDING="0" CLASS="tx1214" STYLE="border-collapse: collapse">
<%
Dim ii, jj
ii = 0
Dim UketoriSiharaiTegataTyoCD, Torihikibi, Tekiyo, Kingaku,TegataSyurui, TegataNo
Dim SiharaiUketorinin,FuridasiUragakinin,Furidasibi,Mankibi,Siharaibasyo,Tenmatubi,TenmatuTekiyo
Dim TegataSyuruiName
Dim SiharaibasyoName, SiharaiUketorininName, FuridasiUragakininName
If AutoFlg <> 2 And TegataHyoji = "1" Then
Do While Not(Content.BOF Or Content.EOF)
RowCount = RowCount + 1
If AutoFlg = 0 Then
If BunsyoSyuruiCD = "MH" Then
UketoriSiharaiTegataTyoCD = Content.Fields("受取手形記入帳CD")
SiharaiUketorininName = Content.Fields("支払人名称")
FuridasiUragakininName = Content.Fields("振出人名称")
Else
UketoriSiharaiTegataTyoCD = Content.Fields("支払手形記入帳CD")
SiharaiUketorininName = Content.Fields("受取人名称")
FuridasiUragakininName = Content.Fields("振出人名称")
End If
TegataSyuruiName = Content.Fields("手形種類名称")
TegataNo = Content.Fields("手形番号")
Furidasibi = SetTimeYYYYMMDD(Content.Fields("振出日"))
Mankibi = SetTimeYYYYMMDD(Content.Fields("満期日"))
SiharaibasyoName = Content.Fields("支払場所名称")
Tenmatubi = SetTimeYYYYMMDD(Content.Fields("顛末日付"))
Else
If BunsyoSyuruiCD = "MH" Then
If IsNull(Content.Fields("引受人名称")) Then
SiharaiUketorininName = Content.Fields("振出人名称")
Else
SiharaiUketorininName = Content.Fields("引受人名称")
End If
If IsNull(Content.Fields("裏書人名称")) Then
FuridasiUragakininName = Content.Fields("振出人名称")
Else
FuridasiUragakininName = Content.Fields("裏書人名称")
End If
Else
SiharaiUketorininName = Content.Fields("受取人名称")
FuridasiUragakininName = Content.Fields("振出人名称")
End If
TegataSyuruiName = Replace(Content.Fields("手形種類名称"), "手形", "")
TegataNo = Content.Fields("手形番号")
Furidasibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
Mankibi = SetTimeYYYYMMDD(Content.Fields("支払期日"))
SiharaibasyoName = Content.Fields("支払場所名称")
Tenmatubi = SetTimeYYYYMMDD(Content.Fields("顛末日"))
End If
Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
Tekiyo = Content.Fields("摘要")
Kingaku = Content.Fields("金額")
TenmatuTekiyo = Content.Fields("顛末摘要")
If AutoFlg = 1 Then
If Content.Fields("削除フラグ") = 1 Then '削除フラグが立っている場合は
TenmatuTekiyo = "廃棄" '顛末摘要に「廃棄」と表示（061110小野）
End if
End if
Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell3 & """ HEIGHT=""22"" class=""br1"">" & SetTimeMMDD(Torihikibi) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell7 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br3""><span style=""width:" & WidthCell7 & "px; height:14px; overflow:hidden;"">" & HardWrap(Tekiyo) & "</span></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell0 & """ HEIGHT=""22"" ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Kingaku , false, false) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell1 & """ HEIGHT=""22"" class=""br1"">" & TegataSyuruiName & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell5 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & TegataNo & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell4 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & SiharaiUketorininName & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell4 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & FuridasiUragakininName & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell3 & """ HEIGHT=""22"" class=""br1"">" & SetTimeMMDD(Furidasibi) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell2 & """ HEIGHT=""22"" class=""br1"">" & Mankibi & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell4 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & SiharaibasyoName & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell3 & """ HEIGHT=""22"" class=""br1"">" & SetTimeMMDD(Tenmatubi) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell6 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""b0""><span style=""width:" & WidthCell6 & "px; height:14px; overflow:hidden;"">" & HardWrap(TenmatuTekiyo) & "</span></TD>" & vbCrLf)
ii = ii + 1
Response.Write("</TR>")
Content.MoveNext
If (RowCount Mod RowBreakNum = 0) Then
Exit Do
End If
Loop
Else '手形非利用時及び自動帳簿
Do While Not(Content.BOF Or Content.EOF)
'自動帳簿
If AutoFlg = 2 Then
RowCount = RowCount + 1
TegataNo = Content.Fields("伝票番号")
Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
Tekiyo = Content.Fields("伝票摘要")
If Tekiyo = "" Then
Tekiyo = Content.Fields("摘要")
End If
If BunsyoSyuruiCD = "MH" Then
Kingaku = Content.Fields("借方金額")
Else
Kingaku = Content.Fields("貸方金額")
End If
SiharaiUketorininName = Content.Fields("取引先略名称")
Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell4 & """ HEIGHT=""22"" ALIGN=""CENTER"" class=""br1"">" & SetDate(Torihikibi, 1) & "</TD>" & vbCrLf)
Response.Write("<TD HEIGHT=""22"" ALIGN=""LEFT"" class=""br3""><span style=""width:" & WidthCell7 & "px; height:14px; overflow:hidden;"">" & HardWrap(Tekiyo) & "</span></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell0 & """ HEIGHT=""22"" ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Kingaku , false, false) & " </TD>" & vbCrLf)
' Response.Write("<TD WIDTH=""" & WidthCell1 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & TegataSyuruiName & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell5 & """ HEIGHT=""22"" ALIGN=""CENTER"" class=""br1"">" & TegataNo & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell4 & """ HEIGHT=""22"" ALIGN=""CENTER"" class=""b0"">" & SiharaiUketorininName & "</TD>" & vbCrLf)
' Response.Write("<TD WIDTH=""" & WidthCell4 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & FuridasiUragakininName & "</TD>" & vbCrLf)
' Response.Write("<TD WIDTH=""" & WidthCell3 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & SetTimeMMDD(Furidasibi) & "</TD>" & vbCrLf)
' Response.Write("<TD WIDTH=""" & WidthCell2 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & Mankibi & "</TD>" & vbCrLf)
' Response.Write("<TD WIDTH=""" & WidthCell4 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & SiharaibasyoName & "</TD>" & vbCrLf)
' Response.Write("<TD WIDTH=""" & WidthCell3 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & SetTimeMMDD(Tenmatubi) & "</TD>" & vbCrLf)
' Response.Write("<TD WIDTH=""" & WidthCell6 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""b0"">" & TenmatuTekiyo & "</TD>" & vbCrLf)
ii = ii + 1
Response.Write("</TR>")
If (RowCount Mod RowBreakNum = 0) Then
Exit Do
End If
'手形非利用時
ElseIf "" & Content.Fields("削除フラグ") <> "1" Then
Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & Content.Fields("伝票番号") & "', '" & ConvKaisyaGyosyuKubun(KaisyaCD) & "'"
Set Content2 = OpenQuery(Query)
Do While Not(Content2.BOF Or Content2.EOF)
If (BunsyoSyuruiCD = "MH" And "" & Content2.Fields("チェック区分") = "AE") Or (BunsyoSyuruiCD = "MI" And "" & Content2.Fields("チェック区分") = "AF") Then
RowCount = RowCount + 1
TegataNo = Content2.Fields("伝票番号")
Torihikibi = SetTimeYYYYMMDD(Content2.Fields("取引日"))
Tekiyo = Content2.Fields("伝票摘要")
If Tekiyo = "" Then
Tekiyo = Content2.Fields("摘要")
End If
If BunsyoSyuruiCD = "MH" Then
Kingaku = Content2.Fields("借方金額")
Else
Kingaku = Content2.Fields("貸方金額")
End If
SiharaiUketorininName = Content2.Fields("摘要会社名称")
Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell3 & """ HEIGHT=""22"" ALIGN=""CENTER"" class=""br1"">" & SetDate(Torihikibi, 1) & "</TD>" & vbCrLf)
Response.Write("<TD HEIGHT=""22"" ALIGN=""LEFT"" class=""br3""><span style=""width:" & WidthCell7 & "px; height:14px; overflow:hidden;"">" & HardWrap(Tekiyo) & "</span></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell0 & """ HEIGHT=""22"" ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Kingaku , false, false) & " </TD>" & vbCrLf)
' Response.Write("<TD WIDTH=""" & WidthCell1 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & TegataSyuruiName & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell5 & """ HEIGHT=""22"" ALIGN=""CENTER"" class=""br1"">" & TegataNo & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell4 & """ HEIGHT=""22"" ALIGN=""CENTER"" class=""br1"">" & SiharaiUketorininName & "</TD>" & vbCrLf)
' Response.Write("<TD WIDTH=""" & WidthCell4 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & FuridasiUragakininName & "</TD>" & vbCrLf)
' Response.Write("<TD WIDTH=""" & WidthCell3 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & SetTimeMMDD(Furidasibi) & "</TD>" & vbCrLf)
' Response.Write("<TD WIDTH=""" & WidthCell2 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & Mankibi & "</TD>" & vbCrLf)
' Response.Write("<TD WIDTH=""" & WidthCell4 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & SiharaibasyoName & "</TD>" & vbCrLf)
' Response.Write("<TD WIDTH=""" & WidthCell3 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""br1"">" & SetTimeMMDD(Tenmatubi) & "</TD>" & vbCrLf)
' Response.Write("<TD WIDTH=""" & WidthCell6 & """ HEIGHT=""22"" ALIGN=""LEFT"" class=""b0"">" & TenmatuTekiyo & "</TD>" & vbCrLf)
ii = ii + 1
Response.Write("</TR>")
If (RowCount Mod RowBreakNum = 0) Then
Exit Do
End If
End If
Content2.MoveNext
Loop
End If
Content.MoveNext
Loop
End If
For jj = RowCount + 1 To Max(21, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg)
Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell3 & """ HEIGHT=""22"" class=""br1""></TD>" & vbCrLf)
Response.Write("<TD HEIGHT=""22"" class=""br3""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell0 & """ HEIGHT=""22"" class=""br3""></TD>" & vbCrLf)
If AutoFlg <> 2 And TegataHyoji = "1" Then
Response.Write("<TD WIDTH=""" & WidthCell1 & """ HEIGHT=""22"" class=""br1""></TD>" & vbCrLf)
End If
Response.Write("<TD WIDTH=""" & WidthCell5 & """ HEIGHT=""22"" class=""br1""></TD>" & vbCrLf)
If AutoFlg <> 2 And TegataHyoji = "1" Then
Response.Write("<TD WIDTH=""" & WidthCell4 & """ HEIGHT=""22"" class=""br1""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell4 & """ HEIGHT=""22"" class=""br1""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell3 & """ HEIGHT=""22"" class=""br1""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell2 & """ HEIGHT=""22"" class=""br1""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell4 & """ HEIGHT=""22"" class=""br1""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell3 & """ HEIGHT=""22"" class=""br1""></TD>" & vbCrLf)
End If
Response.Write("<TD WIDTH=""" & WidthCell6 & """ HEIGHT=""22"" class=""b0""></TD>" & vbCrLf)
Response.Write("</TR>")
Next
%>
</TABLE>
<% If PrintFlg <> 1 Then %>
</DIV>
<% End If %>
</TD>
</TR>
</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
%>