
<%
'<!--
'################################################
'	名称	：銀行窓口受付申込の照会
'	作成日：2002/10/18
'	作成者：山崎
'	目的　：振替伝票画面を表示する。
'	概要	：
'	 <<表示>>
'	・
'	<<入力チェック>>
'	・
'################################################
'-->
'
%>

<%



Function GinkoSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg)

	Dim GinkoCD
	Dim Syoribi, AnsyoBango, Tekiyo , SenpoTekiyo
	Dim SenpoBunsyoSyuruiCD, SenpoBunsyoNaiyoCD
	Dim KozaKubun, Kingaku
	Dim KozaBango
	Dim FurikomisakiKozaBango, FurikomisakiGinkoCD, FurikomisakiKozaKubun, Tesuryo		'BD

	Dim TegataFuridashininCD, TegataSyuruiKubun, TegataNo, TegataBunsyoNaiyoCD
	Dim TegataShiharaiKijitsu
	Dim WaribikiRiritsu, WaribikiRiritsuTekiyoNissu, WaribikiRisokuKingaku
	Dim SenpoSyoribi
	Dim UketsukeKubun
	Dim FurikomisakiKoza
	Dim Tegata
	Dim SakujyoFlg

	Dim HasshinFlg

	Dim Title

	If BunsyoSyuruiCD= "BA" Then
		Title = "口座開設"
	ElseIf BunsyoSyuruiCD= "BB" Then
		Title = "預入"
	ElseIf BunsyoSyuruiCD= "BC" Then
		Title = "引出"
	ElseIf BunsyoSyuruiCD= "BD" Then
		Title = "振込"
	ElseIf BunsyoSyuruiCD= "BE" Then
		Title = "小切手入金"
	ElseIf BunsyoSyuruiCD= "BF" Then
		Title = "手形取立"
	ElseIf BunsyoSyuruiCD= "BG" Then
		Title = "手形割引"
	ElseIf BunsyoSyuruiCD= "BH" Then
		Title = "残高証明"
	End If


	Dim Query, Content, Query1, Content1

	If GB_JisyaFlag <> "" Then	'運用管理・演習管理（自社フラグ無し）では開封フラグを立てない（061213小野）
		Query = "exec SPB銀行取引書類開封 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD  & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
	End If
	Query = "exec SPB銀行取引書類取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		GinkoCD =Content.Fields("取引先CD")
		BunsyoNaiyoCD = Content.Fields("文書内容CD")
		KozaKubun = Content.Fields("口座区分")
		AnsyoBango = Content.Fields("暗証番号")
		Kingaku = Content.Fields("金額")
		KozaBango = Content.Fields("口座番号")
		FurikomisakiGinkoCD = Content.Fields("振込先銀行CD")
		FurikomisakiKozaBango = Content.Fields("振込先口座番号")
		FurikomisakiKozaKubun = 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("割引利息金額")
		Tekiyo = Content.Fields("摘要")
		Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
		UketsukeKubun = Content.Fields("受付区分")

		KaisyaCD = Content.Fields("会社CD")
		SakujyoFlg = Content.Fields("削除フラグ")

		HasshinFlg = "" & Content.Fields("発行フラグ")

		If FurikomisakiKozaKubun <> "" Then
			FurikomisakiKoza = GetKozaOutput(EnshuCD, Content.Fields("振込先銀行CD"), Content.Fields("振込先口座区分"), Content.Fields("振込先口座番号"))
		Else
			FurikomisakiKoza = "その他"
		End If

		If TegataBunsyoNaiyoCD <> "" Then
			Tegata = ConvKaisyaRyakuMeisyo(TegataFuridashininCD) & "　" & ConvKubunMeisyo("手形種類区分", TegataSyuruiKubun ) & "　" & TegataNo
		End If
	End If

	If GB_Gyosyu <> "B" Then	'自社銀行口座の場合は返信取得はできない
		Query = "exec SPB銀行取引書類返信取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & GinkoCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("先方処理日"))
			Kingaku = Content.Fields("金額")
			Tekiyo = Content.Fields("先方摘要")
			SenpoTekiyo = Content.Fields("摘要")
			UketsukeKubun = Content.Fields("受付区分")
		End If
	End If



	Dim TozaHikidashiFurikomiKogitteHituyo
	TozaHikidashiFurikomiKogitteHituyo = GetEnshuParam(EnshuCD, "当座引出振込小切手必要")

	Dim HtmlOut

%>

<table width="640" height="100%" border="0" cellpadding="0" cellspacing="5">
	<tr> 
		<td align="center" valign="top">
		<%
			If PrintFlg = 1 Then
				Response.Write(PrintHeader(AutoFlg, ""))
			End if
		%>
			<table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%">
				<tr>
					<td align="CENTER" valign="MIDDLE">
						<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="500">
							<TR>
								<TD ALIGN="CENTER" valign="top">
									<TABLE WIDTH="500" BORDER="0" CELLSPACING="0" CELLPADDING="0">
										<TR>
											<TD HEIGHT="1" VALIGN="top" WIDTH="525">
												<table width="100%" border="0" cellpadding="0" cellspacing="5">
													<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>
																	<% If GB_Gyosyu <> "B" Then %>
																		<% = ConvKaisyaRyakuMeisyoDx(EnshuCD, GinkoCD) & " " & title & "依頼書" %>
																	<% Else %>
																		<% = title %>
																	<% End If %>
																		</nobr>
																	</td>
																	<td align="right" class="tx1416">
																		受付番号：<% = BunsyoNaiyoCD %>
																	</td>
																</tr>
															</table>
														</td>
													</tr>
												</table>
											</TD>
										</TR>
										<TR>
											<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="525">
											<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="520"  class="tx1618">
												<% If GB_Gyosyu <> "B" Then %>
												<tr>
													<td width="100" height="28">申込社名</td>
													<td height="28"><% = ConvKaisyaMeisyoDx(EnshuCD, SakuseiKaisyaCD) %></td>
												</tr>
												<tr>
													<td width="100" height="28">申込番号</td>
													<td height="28" CLASS="tx1618"><% = BunsyoNaiyoCD %></td>
												</tr>
												<% End If %>
												<tr>
													<td width="100" height="28">処理日</td>
													<td height="28" CLASS="tx1618"><% = Syoribi	%></td>
												</tr>

	<% If BunsyoSyuruiCD = "BA" Then %>
													<tr>
														<td width="100" height="28">口座種類</td>
														<td height="28"><% = ConvKubunMeisyo("口座区分", KozaKubun) %></td>
													</tr>
	<% ElseIf BunsyoSyuruiCD <> "BH" Then %>
													<tr>
														<td width="100" height="28">口座種類</td>
														<td height="28"><% = ConvKubunMeisyo("口座区分", KozaKubun) %></td>
													</tr>
													<tr>
														<td width="100" height="28">口座番号</td>
														<td height="28" CLASS="tx1618"><% = KozaBango %></td>
													</tr>
	<% End If %>
	<% If BunsyoSyuruiCD = "BA" Then %>
													<tr>
														<td width="100" height="28">暗証番号</td>
														<td height="28" CLASS="tx1618"><% = String(Len(AnsyoBango) ,Asc("*")) %></td>
													</tr>
													<tr>
														<td width="100" height="28">金額</td>
														<td height="28" CLASS="tx1618"><% = ConvIntToMoney(Kingaku, false, false) %></td>
													</tr>
	
	<% ElseIf BunsyoSyuruiCD = "BB" Then %>
													<tr>
														<td width="100" height="28">金額</td>
														<td height="28" CLASS="tx1618"><% = ConvIntToMoney(Kingaku, false, false) %></td>
													</tr>
	<% ElseIf BunsyoSyuruiCD = "BC" Then %>
		<% If GB_Gyosyu <> "B" Then	'銀行自社口座の場合は小切手無し %>
													<tr>
														<td colspan="2" class="tx1214">
			<% If TozaHikidashiFurikomiKogitteHituyo = "1" Then %>
			○当座預金からの引出の場合は、小切手を選択・送付する必要があります。
			<% Else %>
			○当座預金からの引出の場合は、小切手を選択・送付することも可能です。
			<% End If %>
													</td>
													</tr>
													<tr>
														<td width="100" height="28">小切手</td>
														<td height="28"><% = Tegata %></td>
													</tr>
		<% End If %>
													<tr>
														<td width="100" height="28">金額</td>
														<td height="28" CLASS="tx1618"><% = ConvIntToMoney(Kingaku, false, false) %></td>
													</tr>
		<% If GB_Gyosyu <> "B" Then	'銀行自社口座の場合は暗証番号無し %>
													<tr>
														<td width="100" height="28">暗証番号</td>
														<td height="28" CLASS="tx1618"><% = String(Len(AnsyoBango) ,Asc("*")) %></td>
													</tr>
		<% End If %>
	<% ElseIf BunsyoSyuruiCD = "BD" Then %>
													<tr>
														<td width="100" height="28">振込先口座</td>
														<td height="28"><% = FurikomisakiKoza %></td>
													</tr>
		<% If GB_Gyosyu <> "B" Then	'銀行自社口座の場合は小切手無し %>
													<tr>
														<td colspan="2" class="tx1416">
		<% If TozaHikidashiFurikomiKogitteHituyo = "y" Then %>
		○当座預金からの振込場合は、小切手を選択・送付する必要があります。
		<% Else %> 
		○当座預金からの振込の場合は、小切手を選択・送付する事も可能です。
		<% End If %>
														</td>
													</tr>
													<tr>
														<td width="100" height="28">小切手</td>
														<td height="28"><% = Tegata %></td>
													</tr>
		<% End If %>
													<tr>
														<td width="100" height="28">金額</td>
														<td height="28" CLASS="tx1618"><% = ConvIntToMoney(Kingaku, false, false) %></td>
													</tr>
		<% If GB_Gyosyu <> "B" Then	'銀行自社口座の場合は暗証番号無し %>
													<tr>
														<td width="100" height="28">暗証番号</td>
														<td height="28" CLASS="tx1618"><% = String(Len(AnsyoBango) ,Asc("*")) %></td>
													</tr>
		<% End If %>
	<% ElseIf BunsyoSyuruiCD = "BE" Then %>
													<tr>
														<td width="100" height="28">小切手</td>
														<td height="28"><% = Tegata %></td>
													</tr>
	<% ElseIf BunsyoSyuruiCD = "BF" Or BunsyoSyuruiCD = "BG" Then %>
													<tr>
														<td width="100" height="28">手形</td>
														<td height="28"><% = Tegata %></td>
													</tr>
	<% End If %>
												<tr>
													<td width="100" height="28">摘要</td>
													<td height="28"><% = Tekiyo %></td>
												</tr>
												</table>
											</TD>
										</TR>
<% If SenpoSyoribi <> "" Then %>
										<TR>
											<TD HEIGHT="25" VALIGN="BOTTOM" WIDTH="520" CLASS="tx1618">
											銀行処理欄
											</td>
										</tr>
										<tr>
											<td HEIGHT="20" VALIGN="BOTTOM" WIDTH="520">

											<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%"  class="tx1618">

												<tr>
													<td width="100" height="28">処理日</td>
													<td height="28" CLASS="tx1618"><% = SenpoSyoribi %></td>
												</tr>
												<tr>
													<td width="100" height="28">受付</td>
													<td height="28"><% = ConvKubunMeisyo("受付区分", UketsukeKubun) %></td>
												</tr>
	<% If BunsyoSyuruiCD = "BD" Then %>
<!--
												<tr>
													<td width="100" height="28">振込手数料</td>
													<td height="28" CLASS="tx1618"><% = ConvIntToMoney(Tesuryo, false, false) %></td>
												</tr>
-->
	<% ElseIf BunsyoSyuruiCD = "BE" OR BunsyoSyuruiCD = "BF" Then %>
												<tr>
													<td width="100" height="28">入金金額</td>
													<td height="28" CLASS="tx1618"><% = ConvIntToMoney(Kingaku , false, false) %></td>
												</tr>
	<% ElseIf BunsyoSyuruiCD = "BT" Then %>
												<tr>
													<td width="100" height="28">年利率(%)</td>
													<td height="28" CLASS="tx1618"><% = WaribikiRiritsu %></td>
												</tr>
												<tr>
													<td width="100" height="28">日数</td>
													<td height="28" CLASS="tx1618"><% = WaribikiRiritsuTekiyoNissu %></td>
												</tr>
												<tr>
													<td width="100" height="28">利息金額</td>
													<td height="28" CLASS="tx1618"><% = ConvIntToMoney(WaribikiRisokuKingaku, false, false) %></td>
												</tr>
												<tr>
													<td width="100" height="28">入金金額</td>
													<td height="28" CLASS="tx1618"><% = ConvIntToMoney(Kingaku , false, false) %></td>
												</tr>
	<% End If %>
												<tr>
													<td width="100" height="28">摘要</td>
													<td height="28"><% = SenpoTekiyo %></td>
												</tr>
											</table>
											</TD>
										</TR>
<% End If %>
									</TABLE>
								</TD>
							</TR>
						</TABLE>
<% If HasshinFlg <> "1" Then %>
<br>
<font color="#ff0000">※この依頼書は送信されていません。</font>
<% End If %>
					</td>
				</tr>
			</table>
		<%
			If PrintFlg = 1 Then
				Response.Write(PrintFooter())
			End if
		%>
		</td>
	</tr>
</table>
<%
	GinkoSyorui = HtmlOut

End Function
%>