
<!-- #include file="../../../include.asp" -->
<!-- #include file="../../../user/bk/ginko/fb_uketsukesyori_view_main_in.asp" -->

<%
'<!--
'################################################
'	名称	：銀行受付画面
'	作成日：2002/10/18
'	作成者：山崎
'	目的　：銀行処理を受け付ける
'	概要	：
'	 <<表示>>
'	・
'	<<入力チェック>>
'	・
'################################################
'-->
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim GinkoCD, BunsyoSyuruiCD, BunsyoNaiyoCD, SyosyaCD
	Dim Moshikomibi, AnsyoBango, Tekiyo
	Dim SenpoTekiyo
	Dim SenpoFlg, SakuseiKaisyaCD, SenpoBunsyoSyuruiCD, SenpoBunsyoNaiyoCD
	Dim KozaKubun, Kingaku
	Dim UketsukeKubun, KozaBango
	Dim FurikomisakiGinkoCD, FurikomisakiKaisyaCD, FurikomisakiKozaKubun, FurikomisakiKozaBango, FurikomiNyukinKingaku, FurikomiTesuryo
	Dim TegataFuridashininCD, TegataSyuruiKubun, TegataNo, TegataHikiukeninCD
	Dim TegataShiharaiKijitsu, TegataKingaku
	Dim WaribikiRiritsu, WaribikiRiritsuTekiyoNissu, WaribikiRisokuKingaku
	Dim Syoribi
	Dim RouteType, PageType
	Dim FurikomisakiKoza, Koza
	Dim Tegata
	Dim TegataKogitteSyukkinGinkoCD, TegataKogitteSyukkinKozaKubun, TegataKogitteSyukkinKozaBango
	Dim TegataKogitteSyukkinSyukkinKingaku, TegataKogitteSyukkinKoza
        Dim BunNaiCD
        
	PageType = Request("PageType")
	RouteType = Request("RouteType")
	GinkoCD = Request("GinkoCD")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	SenpoFlg = Request("SenpoFlg")
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")

	BunNaiCD = BunsyoNaiyoCD

Dim KaisyaCD1
Dim AdminMailFlag

AdminMailFlag = 0

	'メール管理機能から開いた場合はKaisyaCD1からKaisyaCDを取得
	if Request("KaisyaCD1") <> "" then
		AdminMailFlag = 1
		KaisyaCD = Request("KaisyaCD1")
	end if

	Dim Query, Content
	If KaisyaCD <> SakuseiKaisyaCD Then
		SenpoFlg = "1"
	End If
	If SakuseiKaisyaCD = "" Then	
		SakuseiKaisyaCD = KaisyaCD
	End If

	If SenpoFlg = "1" And 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

	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 = 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("振込手数料")


		TegataKogitteSyukkinGinkoCD = Content.Fields("手形小切手出金銀行CD")
		TegataKogitteSyukkinKozaKubun = Content.Fields("手形小切手出金口座区分")
		TegataKogitteSyukkinKozaBango = Content.Fields("手形小切手出金口座番号")
		TegataKogitteSyukkinSyukkinKingaku = Content.Fields("手形小切手出金金額")

		TegataFuridashininCD = Content.Fields("手形作成会社CD")
		TegataSyuruiKubun = Content.Fields("手形文書種類CD")
		TegataNo = Content.Fields("手形文書内容CD")


		WaribikiRiritsu = Content.Fields("割引利率")
		WaribikiRiritsuTekiyoNissu = Content.Fields("割引利率適用日数")
		WaribikiRisokuKingaku = Content.Fields("割引利息金額")

		Syoribi = Content.Fields("処理日")
		TegataShiharaiKijitsu = 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)
		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 = "引出"
		If GB_Gyosyu = "B" Then
			title = "払戻 （引出）"
		End If
		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


	'前後の文書を特定（170407小野）
	Dim ButtonPrv
	Dim ButtonFwd
	Dim URLPrv
	Dim URLFwd
	Dim Jibunsho
	Jibunsho = False
	Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "','" & BunsyoSyuruiCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("文書内容CD") = BunsyoNaiyoCD Then
			Jibunsho = True '自文書が見付かった時点でそれを示すフラグを代入
		ElseIf Not(Jibunsho) And "" & Content.Fields("文書内容CD") <> BunsyoNaiyoCD Then
			'自文書が見付かっていない場合はPrvに代入
			URLPrv = "tblbtn('/" & HomeAlias & "/user/bk/ginko/fb_uketsukesyori_view.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & Content.Fields("文書内容CD") & "&Syorizumi=" & Content.Fields("返信フラグ") & "');"
		ElseIf Jibunsho And "" & Content.Fields("文書内容CD") <> BunsyoNaiyoCD Then
			'自文書が見付かっていればFwdに代入
			URLFwd = "tblbtn('/" & HomeAlias & "/user/bk/ginko/fb_uketsukesyori_view.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & Content.Fields("文書内容CD") & "&Syorizumi=" & Content.Fields("返信フラグ") & "');"
			Exit Do
		End If
	 	Content.MoveNext
	Loop
'Response.Write(URLPrv & "<br>")
'Response.Write(BunsyoNaiyoCD & "<br>")
'Response.Write(URLFwd & "<br>")
'Exit Sub
	If URLPrv <> "" Then
		ButtonPrv = "＜前文書"
	End If
	If URLFwd <> "" Then
		ButtonFwd = "次文書＞"
	End If


%>

<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	name="form1" method="POST" action="fb_uketsukesyori_bin.asp" autocomplete="off">
<input type="hidden" name="BunsyoSyuruiCD" value="<% = BunsyoSyuruiCD %>">
<input type="hidden" name="BunsyoNaiyoCD" value="<% = BunsyoNaiyoCD %>">
<input type="hidden" name="SakuseiKaisyaCD" value="<% = SakuseiKaisyaCD %>">
<input type="hidden" name="MotoGinkoCD" value="<% = TegataKogitteSyukkinGinkoCD %>">
<input type="hidden" name="SakiGinkoCD" value="<% = GinkoCD %>">
<input type="hidden" name="MotoKozaKubun" value="<% = TegataKogitteSyukkinKozaKubun %>">
<input type="hidden" name="SakiKozaKubun" value="<% = KozaKubun %>">
<input type="hidden" name="MotoKozaBango" value="<% = TegataKogitteSyukkinKozaBango %>">
<input type="hidden" name="SakiKozaBango" value="<% = KozaBango %>">
<input type="hidden" name="MotoKingaku" value="<% = TegataKogitteSyukkinSyukkinKingaku %>">
<input type="hidden" name="SakiKingaku" value="<% = Kingaku %>">
<input type="hidden" name="CancelShoribi" value="<% = Syoribi %>">
<input type="hidden" name="MoushikomiCD" value="<% = SyosyaCD %>">
<input type="hidden" name="Mode" value="Cancel">

<%
	Dim BunsyoType

	If InStr(RouteType, "RMail") > 0 Then
		BunsyoType = "受信文書"
	ElseIf InStr(RouteType, "SMail") > 0 Then
		BunsyoType = "発信文書"
	End If

	If InStr(RouteType, "MailOnly") > 0 Then
		Response.Write(HtmlDesign(6))
	ElseIf InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HtmlDesign(4))
	Else
		Response.Write(HtmlDesign(1))
	End If

	Response.Write(HttpL1(3))

	If AdminMailFlag = 1 Then
		Response.Write(HttpL2("受発信文書ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=" & PageType & "&RouteType=MailOnly')", "", "", "", "", "", "", "", "", "", ""))
		
	ElseIf InStr(RouteType, "MailOnly") > 0 Then
		Response.Write(HttpL2("受発信文書ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=" & PageType & "&RouteType=MailOnly')", "", "", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", Title , "", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "RMail") > 0 Or InStr(RouteType, "SMail") > 0 Then	'メインウィンドウの受発信文書
		If GB_Gyosyu <> "B" Then
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "受発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/')", BunsyoType, "", "", ""))
		Else
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "受発信文書" , "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo')", BunsyoType , "", "", "", "", ""))
		End If
	Else	'特殊ウィンドウ以外
	
		'社長室・総務部の受発信から入った場合、ここを表示する
		If InStr(RouteType, "syatyo") > 0 Then
		
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "受発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/')", PageType	, "", "", ""))
			
		Else
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "銀行", "tblbtn( '/" & HomeAlias & "/user/bk/menu_b.asp')", "窓口業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_b2.asp')", title, "", "", "", "", ""))
		End If
		
	End If

	Response.Write(HttpL3("", "", "", "", "", "", "","" ,"", "", "", "", "", "", "", ""))

	If AdminMailFlag = 1 Then
		Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
		
	'社長室・総務部の受発信から入った場合、ここを表示する
	ElseIf InStr(RouteType, "syatyo") > 0 Then
		Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
	Else
'		If GinkoRollback > 0 And BunsyoSyuruiCD = "BR" Then
'			Response.Write(HttpL3_1("印刷", "PrintoutReal()", "組み戻し", "Cancel();", "", "", "", "", "", ""))
'		Else
			Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
'		End If
	End If

	If InStr(RouteType, "MailOnly") > 0 Then
	
	
		If SenpoFlg <> "1" Or PageType = "発信文書" Then 
			If AdminMailFlag = 1 Then
				Response.Write(HttpL3_3("受信文書", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=MailOnly')", "発信文書", "", "", "", "受信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')"))
			Else
		
			Response.Write(HttpL3_2("受信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=MailOnly')", "発信文書", "", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=MailOnly')", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')"))
			
			End If
		
		Else
		
			If AdminMailFlag = 1 Then
				Response.Write(HttpL3_3("受信文書", "", "発信文書", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=MailOnly')", "", "", "受信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')"))
			Else
			
			Response.Write(HttpL3_2("受信文書", "", "発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=MailOnly')", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=MailOnly')", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')"))
			End If
			
		End If
		
	ElseIf InStr(RouteType, "RMail") > 0 Then
			Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=" & RouteType & "')", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "SMail") > 0 Then
			Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=" & RouteType & "')", "", "", "", "", "", "", "", ""))
			
	Else
	
		'社長室・総務部の受発信から入った場合、ここを表示する
		If InStr(RouteType, "syatyo") > 0 Then
			Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
			
		Else
			Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/ginko/fb_uketsukesyori_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunNaiCD & "')", "先方書類一覧","tblbtn( 'fb_uketsukesyori_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "')", ButtonPrv, URLPrv, ButtonFwd, URLFwd, "", ""))
		End If
		
	End If

	Response.Write(HttpL4(ConvKaisyaRyakuMeisyoDx(EnshuCD, GinkoCD) & " " & title, ""))

%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<%
Dim AutoFlg
If RouteType = "Hakushi" Then
	AutoFlg = -1
Else
	AutoFlg = 0
End If
%>
<% = GinkoUketsukeSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0) %>
</div>

</form>
</body>
<script language="JavaScript">

	function Cancel() {
		var TmpMes = "";
	<% If BunsyoSyuruiCD = "BR" Then %>
		TmpMes = "\n\n組み戻した場合、入金された金額が元の口座に戻されます。　";
	<% End If %>
		if (confirm("\nこの手続きを組み戻し処理してよろしいですか？　" + TmpMes)) {
			SubmitReal(form1);
		}
	}



function ChangeNyukinKingaku()
{
	<% If BunsyoSyuruiCD = "BT" Then %>
	if(form1.UketsukeKubun[0].checked)
	{
		if(form1.Syoribi.value != "")
		{
			var TegataShiharaiKijitsu, Syoribi;
			TegataShiharaiKijitsu = new Date('<% = TegataShiharaiKijitsu %>');
			Syoribi = new Date(form1.Syoribi.value);
			form1.WaribikiRiritsuTekiyoNissu.value = (TegataShiharaiKijitsu.getTime() - Syoribi.getTime()) / (24*60*60*1000);

			if(form1.WaribikiRiritsu.value != "")
			{
				form1.WaribikiRisokuKingaku.value = ConvIntToMoney(form1.WaribikiRiritsu.value * form1.WaribikiRiritsuTekiyoNissu.value, false, false);
				form1.Kingaku.value = ConvIntToMoney(<% = Kingaku %> - ConvMoneyToInt(form1.WaribikiRisokuKingaku.value));
			}
		}
	}
	else
	{
		form1.WaribikiRiritsuTekiyoNissu.value = "";
		form1.WaribikiRisokuKingaku.value = "";
		form1.Kingaku.value = "";
	}
	<% End If %>
}
</script>
<% = HtmlFooter %>

</html>
<%
End Sub
%>