

<%
'<!--
'################################################
'	名称	：銀行受付画面
'	作成日：2002/10/18
'	作成者：山崎
'	目的　：銀行処理を受け付ける
'	概要	：
'	 <<表示>>
'	・
'	<<入力チェック>>
'	・
'################################################
'-->
'
%>

<%
Function GinkoUketsukeSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg)

	Dim GinkoCD, SyosyaCD
	Dim Moshikomibi, AnsyoBango, Tekiyo
	Dim SenpoTekiyo
	Dim SenpoFlg, SenpoBunsyoSyuruiCD, SenpoBunsyoNaiyoCD
	Dim KozaKubun, Kingaku
	Dim UketsukeKubun, KozaBango
	Dim FurikomisakiGinkoCD, FurikomisakiKaisyaCD, FurikomisakiKozaKubun, FurikomisakiKozaBango, FurikomiNyukinKingaku, FurikomiTesuryo
	Dim FurikomimotoGinkoCD, FurikomimotoKozaKubun, FurikomimotoKozaBango
	Dim TegataFuridashininCD, TegataSyuruiKubun, TegataNo, TegataBunsyoNaiyoCD, TegataHikiukeninCD
	Dim TegataShiharaiKijitsu, TegataKingaku
	Dim WaribikiRiritsu, WaribikiRiritsuTekiyoNissu, WaribikiRisokuKingaku
	Dim Syoribi
	Dim RouteType, PageType
	Dim FurikomisakiKoza, Koza, FurikomimotoKoza
	Dim Tegata
	Dim TegataKogitteSyukkinGinkoCD, TegataKogitteSyukkinKozaKubun, TegataKogitteSyukkinKozaBango
	Dim TegataKogitteSyukkinSyukkinKingaku, TegataKogitteSyukkinKoza

	PageType = Request("PageType")
	RouteType = Request("RouteType")
	GinkoCD = Request("GinkoCD")
	SenpoFlg = Request("SenpoFlg")
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")


	Dim Query, Content
	If KaisyaCD <> SakuseiKaisyaCD Then
		SenpoFlg = "1"
	End If
	If SakuseiKaisyaCD = "" Then	
		SakuseiKaisyaCD = KaisyaCD
	End If

	If SenpoFlg = "1" Or GB_JisyaFlag <> "" Then	'運用管理・演習管理（自社フラグ無し）では開封フラグを立てない（061213小野）
		SyosyaCD = KaisyaCD
		GinkoCD = SakuseiKaisyaCD
		Query = "exec SPB銀行取引書類開封 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD  & "', '" & BunsyoSyuruiCD  & "', '" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
		Query = "exec SPB銀行取引書類取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
	Else
		GinkoCD = KaisyaCD
		Query = "exec SPB銀行取引書類取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
	End If
'Response.Write(Query)
'Exit Function
	Set Content = OpenQuery(Query)


	If Not(Content.BOF Or Content.EOF) Then
		If SenpoFlg = "1" Then
		Else

		End If


		SyosyaCD = Content.Fields("取引先CD")
		BunsyoNaiyoCD = Content.Fields("文書内容CD")
		KozaKubun = Content.Fields("口座区分")
		KozaBango = Content.Fields("口座番号")
		Moshikomibi = SetTimeYYYYMMDD(Content.Fields("先方処理日"))
		AnsyoBango = Content.Fields("暗証番号")
		Kingaku = Content.Fields("金額")

		Tekiyo = Content.Fields("摘要")

		SenpoTekiyo = Content.Fields("先方摘要")
		UketsukeKubun = Content.Fields("受付区分")

		FurikomisakiGinkoCD = Content.Fields("振込先銀行CD")
		FurikomisakiKozaKubun = Content.Fields("振込先口座区分")
		FurikomisakiKozaBango = Content.Fields("振込先口座番号")

		FurikomiNyukinKingaku = Content.Fields("振込入金金額")
		FurikomiTesuryo = Content.Fields("振込手数料")

		FurikomimotoGinkoCD = Content.Fields("振込元銀行CD")
		FurikomimotoKozaKubun = Content.Fields("振込元口座区分")
		FurikomimotoKozaBango = Content.Fields("振込元口座番号")


		TegataKogitteSyukkinGinkoCD = Content.Fields("手形小切手出金銀行CD")
		TegataKogitteSyukkinKozaKubun = Content.Fields("手形小切手出金口座区分")
		TegataKogitteSyukkinKozaBango = Content.Fields("手形小切手出金口座番号")
		TegataKogitteSyukkinSyukkinKingaku = Content.Fields("手形小切手出金金額")

		TegataFuridashininCD = Content.Fields("手形作成会社CD")
		TegataSyuruiKubun = Content.Fields("手形文書種類CD")
		TegataBunsyoNaiyoCD = Content.Fields("手形文書内容CD")
		TegataNo = Content.Fields("手形番号")


		WaribikiRiritsu = Content.Fields("割引利率")
		WaribikiRiritsuTekiyoNissu = Content.Fields("割引利率適用日数")
		WaribikiRisokuKingaku = Content.Fields("割引利息金額")

		Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
		TegataShiharaiKijitsu = SetTimeYYYYMMDD(Content.Fields("手形支払期日"))
		TegataKingaku = Content.Fields("手形金額")

		If FurikomisakiKozaKubun <> "" Then
			FurikomisakiKoza = GetKozaOutput(EnshuCD, FurikomisakiGinkoCD, FurikomisakiKozaKubun, FurikomisakiKozaBango)
		Else
			FurikomisakiKoza = "その他"
		End If



		If TegataNo <> "" Then
			Tegata = ConvKaisyaRyakuMeisyo(TegataFuridashininCD) & "_" & ConvKubunMeisyo("手形種類区分", TegataSyuruiKubun) & "_" & TegataNo
		End If



		Koza = GetKozaOutput(EnshuCD, GinkoCD, KozaKubun, KozaBango)
		FurikomimotoKoza = GetKozaOutput(EnshuCD, FurikomimotoGinkoCD, FurikomimotoKozaKubun, FurikomimotoKozaBango)
		TegataKogitteSyukkinKoza = GetKozaOutput(EnshuCD, TegataKogitteSyukkinGinkoCD, TegataKogitteSyukkinKozaKubun, TegataKogitteSyukkinKozaBango)

		

	End If


	Dim title, DefSenpoBunsyoSyuruiCD
	If BunsyoSyuruiCD = "BN" Then
		title = "口座開設"
		DefSenpoBunsyoSyuruiCD = "BA"
	ElseIf BunsyoSyuruiCD = "BO" Then
		title = "預入"
		DefSenpoBunsyoSyuruiCD = "BB"
	ElseIf BunsyoSyuruiCD = "BP" Then
		title = "引出"
		DefSenpoBunsyoSyuruiCD = "BC"
	ElseIf BunsyoSyuruiCD = "BQ" Then
		title = "振込"
		DefSenpoBunsyoSyuruiCD = "BD"
	ElseIf BunsyoSyuruiCD = "BR" Then
		title = "小切手入金"
		DefSenpoBunsyoSyuruiCD = "BE"
	ElseIf BunsyoSyuruiCD = "BS" Then
		title = "手形取立"
		DefSenpoBunsyoSyuruiCD = "BF"
	ElseIf BunsyoSyuruiCD = "BT" Then
		title = "手形割引"
		DefSenpoBunsyoSyuruiCD = "BG"
	ElseIf BunsyoSyuruiCD = "BU" Then
		title = "残高証明書"
		DefSenpoBunsyoSyuruiCD = "BH"
	End If

'先方書類は何かを入れている
	If SenpoBunsyoSyuruiCD = "" Then
		SenpoBunsyoSyuruiCD = DefSenpoBunsyoSyuruiCD
	End If

	Dim Tegata1, Tegata2, Kogitte1, Kogitte2, TegataShiharaininCD
	If TegataNo <> "" Then
		If TegataSyuruiKubun = "TY" Or TegataSyuruiKubun = "TG" Then
			TegataShiharaininCD = TegataFuridashininCD
		Else
			TegataShiharaininCD = TegataHikiukeninCD
		End If

		Tegata1 = ConvKubunMeisyo("手形種類区分", TegataSyuruiKubun ) & " " & TegataNo
		Tegata1 = Tegata1 & "　振出人：" & ConvKaisyaRyakuMeisyo(TegataFuridashininCD) 
		Tegata2 = "支払期日：" & TegataShiharaiKijitsu & "　金額：" & ConvIntToMoney(TegataKingaku, false, false)

		Kogitte1 = ConvKubunMeisyo("手形種類区分", TegataSyuruiKubun ) & " " & TegataNo
		Kogitte1 = Kogitte1 & "　振出人：" & ConvKaisyaRyakuMeisyo(TegataFuridashininCD) 
		Kogitte2 = "金額：" & ConvIntToMoney(TegataKingaku, false, false)
	End If


	'手動一括口座開設で受付許可の場合に直前の摘要が書き込まれてしまう不具合の対処（090714小野）
	If UketsukeKubun = "Y" Then
		Dim TmpTekiyo
		TmpTekiyo = Tekiyo
		If TmpTekiyo = "" Then
			TmpTekiyo = SenpoTekiyo
		End If
		If Right(TmpTekiyo, 15) = "の当座口座はすでに開設済みです" Then
			'会社略名称を抜き出す
			TmpTekiyo = Mid(TmpTekiyo, 1, Len(TmpTekiyo) - 15)
			'抜き出した会社略名称が申込会社の略名称と異なっていれば摘要をクリアする
			If TmpTekiyo <> ConvKaisyaRyakuMeisyo(SyosyaCD) Then
				Tekiyo = ""
				SenpoTekiyo = ""
			End If
		End If
	End If


	Dim JitsuinRiyo
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		JitsuinRiyo = "" & Content.Fields("実印利用")
	End If

%>


<table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%">
<tr>
	<td align="center" valign="<% If PrintFlg = 1 Then %>top<% Else %>middle<% End If %>">
	<%
		If PrintFlg = 1 Then
			Response.Write(PrintHeader(AutoFlg, ""))
		End if
	%>
		<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="25" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #111111" WIDTH="525" HEIGHT="300">
		<tr>
			<td>
				<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
				<tr>
					<td align="CENTER" valign="MIDDLE">

<% If BunsyoSyuruiCD <> "BU" Then %>

						<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="525" HEIGHT="100%">
						<TR>
							<TD ALIGN="CENTER" valign="top">
								<TABLE WIDTH="525" BORDER="0" CELLSPACING="0" CELLPADDING="0" bgcolor="#FFFFFF" class="tx1618">
								<TR>
									<TD HEIGHT="10" VALIGN="BOTTOM" WIDTH="525">
										<table width="100%" border="0" cellpadding="0" cellspacing="0">
										<tr>
											<td>
												<table width="100%" border="0" cellpadding="0" cellspacing="0" class="tx1820">
												<tr>
													<td width="1" align="left" style="border-bottom: solid 1 #000000;">
														<nobr>
														<% = ConvKaisyaRyakuMeisyoDx(EnshuCD, GinkoCD)%>　<% = title & "結果通知書" %>
														</nobr>
													</td>
													<td align="right" class="tx1416">
														受付番号：<% = BunsyoNaiyoCD %>
													</td>
												</tr>
												</table>
											</td>
										</tr>
										</table>

									</TD>
								</TR>
								<TR>
									<TD HEIGHT="10" VALIGN="BOTTOM" WIDTH="525">
									<div><% = Spacer(1,10) %></div>
									先方申込内容
										<table border="1" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%"   class="tx1618">
										<tr>
											<td height="16" width="105">申込社名</td>
											<td height="16" width="420"><% = ConvKaisyaMeisyoDx(EnshuCD, SyosyaCD) %></td>
										</tr>
										<tr>
											<td height="16">申込日</td>
											<td height="16" class="tx1618"><% = Moshikomibi %></td>
										</tr>
											<% If BunsyoSyuruiCD = "BN" Then %>
										<tr>
											<td height="16">口座種類</td>
											<td height="16"><% = ConvKubunMeisyo("口座区分", KozaKubun) %></td>
										</tr>
										<tr>
											<td height="16">口座番号</td>
											<td height="16"><% = KozaBango %></td>
										</tr>
										<tr>
											<td height="16">金額</td>
											<td height="16" class="tx1618"><% = ConvIntToMoney(Kingaku, false, false) %></td>
										</tr>
										<tr>
											<td height="16">暗証番号</td>
											<td height="16" class="tx1618"><% = AnsyoBango %></td>
										</tr>
											<% ElseIf BunsyoSyuruiCD = "BO" Then %>
										<tr>
											<td height="16">入金口座</td>
											<td height="16"><% = Koza %></td>
										</tr>
										<tr>
											<td height="16">入金金額</td>
											<td height="16" class="tx1618"><% = ConvIntToMoney(Kingaku, false, false) %></td>
										</tr>
											<% ElseIf BunsyoSyuruiCD = "BP" Then %>
										<tr>
											<td height="16">出金口座</td>
											<td height="16"><% = Koza %></td>
										</tr>
										<tr>
											<td height="16">出金金額</td>
											<td height="16" class="tx1618"><% = ConvIntToMoney(Kingaku, false, false) %></td>
										</tr>
										<tr>
											<td height="16">小切手</td>
											<td height="16"><% = Kogitte1 & "<br>" & Kogitte2 %></td>
										</tr>
										<tr>
											<td height="16">暗証番号</td>
											<td height="16" class="tx1618"><% = AnsyoBango %></td>
										</tr>
											<% ElseIf BunsyoSyuruiCD = "BQ" Then %>
										<tr>
											<td height="16">小切手</td>
											<td height="16"><% = Kogitte1 & "<br>" & Kogitte2 %></td>
										</tr>
										<tr>
											<td height="16">暗証番号</td>
											<td height="16" class="tx1618"><% = AnsyoBango %></td>
										</tr>
											<% ElseIf BunsyoSyuruiCD = "BR" Then %>
										<tr>
											<td height="16">小切手</td>
											<td height="16"><% = Kogitte1 & "<br>" & Kogitte2 %></td>
										</tr>
											<% ElseIf BunsyoSyuruiCD = "BS" Then %>
										<tr>
											<td height="16">手形</td>
											<td height="16"><% = Tegata1 & "<br>" & Tegata2 %></td>
										</tr>
											<% ElseIf BunsyoSyuruiCD = "BT" Then %>
										<tr>
											<td height="16">手形</td>
											<td height="16"><% = Tegata1 & "<br>" & Tegata2 %></td>
										</tr>
											<% End If %>
										<tr>
											<td height="17">申込摘要</td>
											<td height="17"><% = SenpoTekiyo %></td>
										</tr>
										</table>


									</TD>
								</TR>
								<TR>
									<TD HEIGHT="10" VALIGN="BOTTOM" WIDTH="525">
									<div><% = Spacer(1,10) %></div>
									銀行処理欄
										<table border="1" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%"  class="tx1618">
										<tr>
											<td height="16" width="105">処理日</td>
											<td height="16" width="420" class="tx1618"><% = Syoribi %></td>
										</tr>
										<tr>
											<td height="16">受付</td>
											<td height="16"><% = ConvKubunMeisyo("受付区分", UketsukeKubun) %></td>
										</tr>
											<% If BunsyoSyuruiCD = "BO" Then%>
											<% ElseIf BunsyoSyuruiCD = "BP" Then%>
										<tr>
											<td height="16">出金口座</td>
											<td height="16"><% = Koza %></td>
										</tr>
										<tr>
											<td height="16">出金金額</td>
											<td height="16" class="tx1618"><% = ConvIntToMoney(Kingaku, false, false) %></td>
										</tr>
											<% ElseIf BunsyoSyuruiCD = "BQ" Then%>
										<tr>
											<td height="16">振込元口座</td>
<% If FurikomimotoKoza <> "" Then %>
											<td height="16"><% = FurikomimotoKoza %></td>
<% Else %>
											<td height="16"><% = Koza %></td>
<% End If %>
										</tr>
										<tr>
											<td height="16">出金金額</td>
											<td height="16" class="tx1618"><% = ConvIntToMoney(Kingaku, false, false) %></td>
										</tr>

										<tr>
											<td height="16">振込手数料</td>
											<td height="16" class="tx1618"><% = ConvIntToMoney(FurikomiTesuryo, false, false) %></td>
										</tr>
										<tr>
											<td height="15">振込先口座</td>
											<td height="15"><% = FurikomisakiKoza %></td>
										</tr>
										<tr>
											<td height="16">入金金額</td>
											<td height="16" class="tx1618"><% = ConvIntToMoney(FurikomiNyukinKingaku, false, false) %></td>
										</tr>


											<% ElseIf BunsyoSyuruiCD = "BR" OR BunsyoSyuruiCD = "BS" OR BunsyoSyuruiCD = "BT" Then%>
										<tr>
											<td height="16">入金口座</td>
											<td height="16"><% = Koza %></td>
										</tr>
										<tr>
											<td height="16">入金金額</td>
											<td height="16" class="tx1618"><% = ConvIntToMoney(Kingaku , false, false) %></td>
										</tr>
										<tr>
											<td height="16">出金口座</td>
											<td height="16"><% = TegataKogitteSyukkinKoza %></td>
										</tr>
										<tr>
											<td height="16">出金金額</td>
											<td height="16" class="tx1618"><% = ConvIntToMoney(TegataKogitteSyukkinSyukkinKingaku, false, false) %></td>
										</tr>
												<% If BunsyoSyuruiCD = "BS" Then%>
										<tr>
											<td height="16">手形支払期日</td>
											<td height="16"><% = TegataShiharaiKijitsu %></td>
										</tr>
												<% End If %>
												<% If BunsyoSyuruiCD = "BT" Then %>
										<tr>
											<td height="16" colspan="2">
												<table border="0" class="tx1618" cellpadding="0" cellspacing="0"><tr><td>手形支払期日　<% = TegataShiharaiKijitsu %></td><td width="30">　</td><td>年利率　<% = WaribikiRiritsu %>％</td><td width="30">　</td><td>手形金額　<% = ConvIntToMoney(TegataKingaku, false, false) %></td></tr></table>
												<table border="0" class="tx1618" cellpadding="0" cellspacing="0"><tr><td>日数　<% = WaribikiRiritsuTekiyoNissu %>日</td><td width="30">　</td><td>利息金額　<% =  ConvIntToMoney(WaribikiRisokuKingaku, false, false) %></td></tr></table>
											</td>
										</tr>
												<% End If %>
											<% End If %>
										<tr>
											<td height="16">通帳摘要</td>
											<td height="16"><% = Tekiyo %></td>
										</tr>
										</table>
									</TD>
								</TR>
								</TABLE>
							</TD>
						</TR>
						</TABLE>

<% Else 'If BunsyoSyuruiCD = "BM" Then %>

						<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" WIDTH="600" CLASS="tx1416">
							<TR><TD><% = Spacer(1,30) %></td></tr>
							<TR>
								<TD ALIGN="CENTER" CLASS="tx2224b">
									残　高　証　明　書
								</td>
							</tr>
							<TR><TD><% = Spacer(1,20) %></td></tr>
							<TR>
								<TD ALIGN="CENTER" CLASS="tx1618">
									<% = ConvKaisyaMeisyoDx(EnshuCD, SyosyaCD) %>　様
								</td>
							</tr>
							<TR><TD><% = Spacer(1,30) %></td></tr>
							<TR>
								<TD ALIGN="CENTER" CLASS="tx1618">
									<%
										Dim GinkoZandaka
										GinkoZandaka = 0
										Query = "exec SPB銀行口座残高一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & SyosyaCD & "', '" & GinkoCD & "', '', '" & Syoribi & "'"
'Response.Write(Query)
'Exit Function
										Set Content = OpenQuery(Query)
										Do While Not(Content.EOF Or Content.BOF)
											GinkoZandaka = GinkoZandaka + Content.Fields("残高")
											Content.MoveNext
										Loop
									%>
									預金・積金&nbsp;：&nbsp;<span class="tx1820b"><% = ConvIntToMoney(GinkoZandaka, false, false) %></span> 円
								</td>
							</tr>
							<TR><TD><% = Spacer(1,30) %></td></tr>
							<TR>
								<TD ALIGN="CENTER" CLASS="tx1416">
									貴名義の残高は <% = SetDate(Syoribi, 3) %> 現在上記の通り相違ないことを証明いたします。
								</td>
							</tr>
							<TR><TD><% = Spacer(1,25) %></td></tr>
							<TR>
								<TD width="550" ALIGN="right" CLASS="tx1618">
									<table border="0" cellpadding="0" cellspacing="0" CLASS="tx1416">
										<TR>
											<TD>
												<% = SetDate(Syoribi, 3) %>
											</td>
											<TD rowspan="2">
											<% If JitsuinRiyo = "1" Then %>
												<img src="/<% = HomeAlias %>/images/jitsuin.gif?<% = GB_STU %>">
											<% Else %>
												<% = Spacer(1,48) %>
											<% End If %>
											</td>
										</tr>
										<TR>
											<TD CLASS="tx1618">
												<% = ConvKaisyaMeisyoDx(EnshuCD, GinkoCD) %>
											</td>
										</tr>
									</table>
								</td>
							</tr>
							<TR><TD><% = Spacer(1,25) %></td></tr>
							<TR>
								<TD ALIGN="CENTER" CLASS="tx1618">
									＜　内　　訳　＞
								</td>
							</tr>
							<TR><TD><% = Spacer(1,5) %></td></tr>
							<TR>
								<TD ALIGN="CENTER" CLASS="tx1618">
									<table border="1" cellpadding="5" cellspacing="0" style="border-collapse:collapse" bordercolor="#111111" width="570" class="tx1618">
										<tr>
											<td width="100" align="center">種　類</td>
											<td width="100" align="center">口座区分</td>
											<td width="100" align="center">口座番号</td>
											<td align="center">金　　額</td>
										</tr>
										<%
											Query = "exec SPB銀行口座残高一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & SyosyaCD & "', '" & GinkoCD & "', '', '" & Syoribi & "'"
											Set Content = OpenQuery(Query)
											Do While Not(Content.EOF Or Content.BOF)
												Response.Write("<tr>" & vbCrLf)
												Response.Write("<td align=""center"">預金・積金</td>" & vbCrLf)
												Response.Write("<td align=""center"">" & ConvKubunMeisyo("口座区分", Content.Fields("口座区分")) & "預金</td>" & vbCrLf)
												Response.Write("<td align=""center"">" & Content.Fields("口座番号") & "</td>" & vbCrLf)
												Response.Write("<td align=""right"" class=""tx1820"">\ " & ConvIntToMoney(Content.Fields("残高") , false, false) & "&nbsp;&nbsp;</td>" & vbCrLf)
												Response.Write("</tr>" & vbCrLf)
												Content.MoveNext
											Loop
										%>
									</table>
								</td>
							<TR><TD><% = Spacer(1,30) %></td></tr>
							</tr>
						</TABLE>

<% End If %>

					</td>
				</tr>
				</table>
			</td>
		</tr>
		</table>
		<%
			If PrintFlg = 1 Then
				Response.Write(PrintFooter())
			End if
		%>
	</td>
</tr>
</table>

<%
End Function
%>