
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：補助簿_現金出納帳
'	作成日：2002/8/27
'	作成者：山崎
'	目的　：現金出納帳を表示する。
'	概要	：
'	 <<表示>>
'	・現金出納帳の画面
'	履歴　：2002/9/19　川崎　必須項目のチェックを追加
'
'################################################
'-->
'
%>
<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim RouteType
	RouteType = Request("RouteType")

	Dim BunsyoSyuruiCD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	BunsyoSyuruiCD = "RA"

	Dim Title
	Title = "領収書"

	Dim Query, Content
	Dim TmpKaisyaCD
	Dim Tenmatsubi, TenmatsuKubun, HiuragakininCD
	Dim HikiukeninCD, FuridashininCD, UketorininCD
	Dim ShiharaiBasyo
	Dim BunsyoNaiyoCD, ShiharaiKijitsu, ShiharaiKijitsuY, ShiharaiKijitsuM, ShiharaiKijitsuD, Furidashibi, FuridashibiY, FuridashibiM, FuridashibiD
	Dim Kingaku
	Dim Tekiyo , SakuseiKaisyaCD , SenpoFlg
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")

	UketorininCD = Request("UketorininCD")
	FuridashibiY = Request("FuridashibiY")
	FuridashibiM = Request("FuridashibiM")
	FuridashibiD = Request("FuridashibiD")
	Furidashibi = Request("Furidashibi")
	Kingaku = Request("Kingaku")
	Tekiyo = Request("Tekiyo")

	If SakuseiKaisyaCD = "" Then
		SenpoFlg = "0"
	Else
		SenpoFlg = "1"
	End If

	'会計開始日の元号
	Dim KaikeiKaishibiG
	Dim KaikeiKaishibiGYear
	KaikeiKaishibiG = SetGengo(GB_KaikeiKaishibi)
	KaikeiKaishibiGYear = Year(GB_KaikeiKaishibi)
'Response.Write(KaikeiKaishibiGYear)
'Exit Sub

	'元号
	Dim FuridashibiG
	Dim JissenbiG
	Dim TmpGengo '初期値が存在しない場合はKaikeiKaishibiGを初期値にするため


	If SenpoFlg = "0" Then
		Query = "exec SPK領収書取得 '" & GB_SystemCD & "'"
		Query = Query & ",'" & EnshuCD & "'"		'演習CD
		Query = Query & ",'" & KaisyaCD & "'"	'会社CD
		Query = Query & ",'" & KaisyaCD & "'"	'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
	Else
		Query = "exec SPK領収書取得 '" & GB_SystemCD & "'"
		Query = Query & ",'" & EnshuCD & "'"		'演習CD
		Query = Query & ",'" & KaisyaCD & "'"	'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"	'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
	End If

	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		FuridashininCD = Content.Fields("発行人CD")
		UketorininCD = Content.Fields("受取人CD")
		BunsyoNaiyoCD = Content.Fields("文書内容CD")
		Furidashibi = "" & SetTimeYYYYMMDD(Content.Fields("取引日"))
		Tekiyo = Content.Fields("摘要")
		Kingaku = Content.Fields("金額")
	End If

	If TenmatsuKubun = "" Or IsNull(TenmatsuKubun) Then
		TenmatsuKubun = Request("TenmatsuKubun")
	End If

	Dim Jissenbi
	Jissenbi = ""
	'実践日取得
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日"))
		JissenbiG = "" & SetGengo(Content.Fields("実践日"))
	End If

	If Furidashibi = "" Then
		Furidashibi = Jissenbi
	End If


	If Furidashibi <> "" Then
		FuridashibiG = SetGengo(Furidashibi) 
		FuridashibiY = Year(Furidashibi) - SetYearGengo(FuridashibiG) + 1
		FuridashibiM = Month(Furidashibi) 
		FuridashibiD = Day(Furidashibi) 
	End If

	If ShiharaiKijitsu <> "" Then
		ShiharaiKijitsuY = Year(ShiharaiKijitsu) - 1988
		ShiharaiKijitsuM = Month(ShiharaiKijitsu) 
		ShiharaiKijitsuD = Day(ShiharaiKijitsu) 
	End If

	Dim UketorininRyaku, Uketorinin, HikiukeninRyaku, Hikiukenin
	
	If HikiukeninCD = "etc" Then
		HikiukeninRyaku = "その他"
		Hikiukenin = "その他"
	Else
		HikiukeninRyaku = ConvKaisyaRyakuMeisyo(HikiukeninCD)
		Hikiukenin = ConvKaisyaMeisyoDx(EnshuCD, HikiukeninCD)
	End If

	If UketorininCD = "etc" Then
		UketorininRyaku = "その他"
		Uketorinin = "その他"
	Else
		UketorininRyaku = ConvKaisyaRyakuMeisyo(UketorininCD)
		Uketorinin = ConvKaisyaMeisyoDx(EnshuCD, UketorininCD)
	End If

	Dim JidoBangoryosyusyo
	JidoBangoryosyusyo = GetEnshuParam(EnshuCD, "自動番号領収書")



	'会社配列作成
	Dim KaishaCDA
	Dim KaishaNameA
	Dim KaishaShijoA
	ReDim KaishaCDA(0)
	ReDim KaishaNameA(0)
	ReDim KaishaShijoA(0)
	Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		TmpKaisyaCD = Content.Fields("会社CD")
		If TmpkaisyaCD <> KaisyaCD And Content.Fields("業種CD") <> "B" Then	'銀行を除外
			ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1)	'配列数+1
			ReDim PreServe KaishaNameA(UBound(KaishaCDA))
			ReDim PreServe KaishaShijoA(UBound(KaishaCDA))
			KaishaCDA(UBound(KaishaCDA)) = "" & Content.Fields("会社CD")
			KaishaNameA(UBound(KaishaCDA)) = "" & Content.Fields("会社名称")
			KaishaShijoA(UBound(KaishaCDA)) = "" & Content.Fields("市場CD")
		End If
		Content.MoveNext
	Loop
	ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1)	'配列数+1
	ReDim PreServe KaishaNameA(UBound(KaishaCDA))
	ReDim PreServe KaishaShijoA(UBound(KaishaCDA))
	KaishaCDA(UBound(KaishaCDA)) = "etc"
	KaishaNameA(UBound(KaishaCDA)) = "その他"
	KaishaShijoA(UBound(KaishaCDA)) = ""

	Dim ii


%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;
-->
</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)"	method="POST" action="fk_ryosyusyo_bin.asp" name="form1" autocomplete="off">
<input type="hidden" name="FuridashininCD" value="<% = KaisyaCD %>">
<input type="hidden" name="BunsyoSyuruiCD" value="<% = BunsyoSyuruiCD %>">
<% If SenpoFlg = "1" Then %>
<input type="hidden" name="BinType" value="Tenmatsu">
<input type="hidden" name="BunsyoNaiyoCD" value="<% = BunsyoNaiyoCD %>">
<input type="hidden" name="SakuseiKaisyaCD" value="<% = SakuseiKaisyaCD %>">
<% Else %>
<% If BunsyoNaiyoCD <> "" Then %>
<input type="hidden" name="BinType" value="Syusei">
<input type="hidden" name="OldBunsyoNaiyoCD" value="<% = BunsyoNaiyoCD %>">
<% End If %>
<% End If %>
<%

	If InStr(RouteType, "HojyoboOnly") > 0 Then
		Response.Write(HtmlDesign(2))
	Else
		Response.Write(HtmlDesign(1))
	End If

	Response.Write(HttpL1(3))

	If InStr(RouteType, "HojyoboOnly") > 0 Then
		Response.Write(HttpL2("補助簿ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp?RouteType=" & RouteType & "')", Title, "", "", "", "", "","", "", "", ""))
	ElseIf 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_s1.asp')", Title & "管理", "", "", "", "", ""))
	Else
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp')", Title & "管理", "", "", "", "", ""))
	End If



	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))


	If BunsyoSyuruiCD = "TK" Then
		Response.Write(HttpL3_2("発行一覧", "tblbtn( 'fk_ryosyusyo_ichiran.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ryosyusyoJyotaiKubun=TF')", "受取一覧", "tblbtn( 'fk_ryosyusyo_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ryosyusyoJyotaiKubun=TU')", "引受一覧", "tblbtn( 'fk_ryosyusyo_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ryosyusyoJyotaiKubun=TH')", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("発行一覧", "tblbtn( 'fk_ryosyusyo_ichiran.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ryosyusyoJyotaiKubun=TF')", "受取一覧", "tblbtn( 'fk_ryosyusyo_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ryosyusyoJyotaiKubun=TU')", "", "", "", "", "", ""))
	End If

	If SenpoFlg = "1" Then
		Response.Write(HttpL4(Title & "管理", "顛末"))
	Else
		Response.Write(HttpL4(Title & "管理", ""))
	End If
%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
	<tr>
		<td align="center" valign="middle">
			<table width="780" height="100%" border="0" cellspacing="5" cellpadding="15" bgcolor="#ffffff" style="border:1px solid #000000">
				<tr>
					<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif">
						<table width="700" height="100%" border="0" cellspacing="0" cellpadding="0">
							<tr>
								<td align="center" valign="middle">
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" HEIGHT="240">
										<tr>
											<td width="175" bgcolor="#FEFFF1" align="center" STYLE="border: 1px solid #111111">
												<table border="0" width="90%" cellspacing="0" cellpadding="0" class="tx1416">
													<tr>
														<td><span class="tx1214">NO．</span><% = BunsyoNaiyoCD %><div style="border-bottom-style: solid; border-bottom-width: 1;"></div></td>
													</tr>
													<tr>
														<td>日付：<br><% = SetDate(Furidashibi, 3) %><div style="border-bottom-style: solid; border-bottom-width: 1;"></div></td>
													</tr>
													<tr>
														<td>領収先：<BR><% = Uketorinin %><div style="border-bottom-style: solid; border-bottom-width: 1;"></div></td>
													</tr>
													<tr>
														<td>金額：<% = ConvIntToMoney(Kingaku, false, false) %><div style="border-bottom-style: solid; border-bottom-width: 1;"></div></td>
													</tr>
													<tr>
														<td><span style="width:157px; height:48px; overflow:hidden">摘要：<BR><% = Tekiyo %></span><div style="border-bottom-style: solid; border-bottom-width: 1;"></div></td>
													</tr>

												</table>
											</td>
											<td WIDTH="525" bgcolor="#FCF8DB" STYLE="border-top: 1px solid #111111;border-right: 1px solid #111111;border-bottom: 1px solid #111111;">
												<table border="0" width="100%"	HEIGHT="100%" cellspacing="0" cellpadding="0">
													<tr>
														<td><% = Spacer(1,10) %></td>
													</tr>
													<tr>
														<td height="30" valign="bottom">
															<table border="0" width="100%" cellspacing="0" cellpadding="0" class="tx1820">
																<tr>
																	<td width="25"><br></td>
																	<td width="180" class="tx1416">
																		市場
																		<select size="1" name="ShijoCD" class="tbox4" onChange="SetUketorininMenu(this.selectedIndex);">
																			<option value="">全て表示</option>
																			<%
																				Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
																				Set Content = OpenQuery(Query)
																				Do While Not(Content.BOF Or Content.EOF)
																					Response.Write("<option value=""" & Content.Fields("市場CD") & """>" & Content.Fields("市場名称") & "</option>" & vbCrLf)
																					Content.MoveNext
																				Loop
																			%>
																		</select>
																	</td>
																	<td align="center"><% If Len(Title) < 8 Then Response.Write(SetStringInsertSpace(Title)) Else Response.Write(Title) %></td>
																	<td width="50"><br></td>
																	<td width="130" class="tx1416" align="center">
<% If JidoBangoryosyusyo = "1" Then %>
																		<span class="tx1214">NO．</span><input type="text" name="BunsyoNaiyoCD" size="12" readonly class="tbox4_ro" value="<% = BunsyoNaiyoCD %>">
<% Else %>
																		<span class="tx1214">NO．</span><input type="text" name="BunsyoNaiyoCD" size="12" onBlur="SetString(this, 12, true)" class="tbox4" value="<% = BunsyoNaiyoCD %>">
<% End If %>
																	<div style="border-bottom-style: solid; border-bottom-width: 1;"></div></td>
																	<td width="25"><br></td>
																</tr>
															</table>
														</td>
													</tr>
													<tr>
														<td height="10"><img src="/<% = HomeAlias %>/images/spacer.gif" width="1" height="1"></td>
													</tr>
													<tr>
														<td>
															<table border="0" width="100%" cellspacing="0" cellpadding="0" class="tx1416" height="80%">
																<tr>

																	<td valign="middle" align="right">
																		<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" height="20">
																			<tr>
																				<td height="10" align="center" class="tx1416" style="border-bottom:1 solid #000000;">
																					<select size="1" name="UketorininCD" class="tbox4" style="width:222px;">
																						<option value=""></option>
																						<%
																							Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
																							Set Content = OpenQuery(Query)
																							Do While Not(Content.BOF Or Content.EOF)
																								TmpKaisyaCD = Content.Fields("会社CD")
																								If TmpkaisyaCD <> KaisyaCD Then
																									Response.Write("<option value=""" & Content.Fields("会社CD") & """")
																									If Content.Fields("会社CD") = UketorininCD Then
																										Response.Write(" selected")
																									End If
																									Response.Write(">" & Content.Fields("会社名称") & "</option>" & vbCrLf)
																								End If
																								Content.MoveNext
																							Loop
																						%>
																						<option value="etc"<% If UketorininCD = "etc" Then %> selected<% End If %>>その他</option>
																					</select>
																				</td>
																				<td height="10" align="right" class="tx1416" style="border-bottom:1 solid #000000;" nowrap>御中　</td>
																			</tr>

																		</table>

																	</td>
																	<td>
																		<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="5"	WIDTH="100%" HEIGHT="20" class="tx1416" bordercolor="#000000">

																			<tr>
																				<td height="20" nowrap>
<select size="1" name="FuridashibiG" class="tbox4" style="width:56px;">
<%
	TmpGengo = FuridashibiG
	If "" & TmpGengo = "" Then
		TmpGengo = KaikeiKaishibiG
	End If
	Query = " SELECT * FROM TC9元号M WHERE システムCD = '" & GB_SystemCD & "' ORDER BY 開始日 DESC "
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("元号") <> "" And "" & Content.Fields("開始日") <> "" Then
			Response.Write("<option value=""" & Year(Content.Fields("開始日")) & """")
			If "" & Content.Fields("元号") = TmpGengo Then
				Response.Write(" selected")
			End If
			Response.Write(">" & Content.Fields("元号") & "</option>" & vbCrLf)
		End If
		Content.MoveNext
	Loop
%>
</select>
<% If Jissenbi <> "" Then '日付固定モード %>
<input type="text" name="FuridashibiY" size="2" class="tbox4_ro" readonly style="width:26px;" value="<% = FuridashibiY %>" onKeyup="FormStrFloat(this,2,0);" onKeypress="FormStrFloat(this,2,0);" onBlur="FormStrFloatCutoff(this,true);" maxlength="3">
<% Else %>
<input type="text" name="FuridashibiY" size="2" class="tbox4" style="width:22px;" value="<% = FuridashibiY %>" onKeyup="FormStrFloat(this,2,0);" onKeypress="FormStrFloat(this,2,0);" onBlur="FormStrFloatEdge(this,2,0,true);FormStrFloatCutoff(this,true);" maxlength="3">
<% End If %>年
<% If Jissenbi <> "" Then '日付固定モード %>
<input type="text" name="FuridashibiM" size="2" class="tbox4_ro" readonly style="width:22px;" value="<% = FuridashibiM %>" onKeyup="FormStrFloat(this,2,0);" onKeypress="FormStrFloat(this,2,0);" onBlur="FormStrFloatCutoff(this,true);" maxlength="3">
<% Else %>
<input type="text" name="FuridashibiM" size="2" class="tbox4" style="width:22px;" value="<% = FuridashibiM %>" onKeyup="FormStrFloat(this,2,0);" onKeypress="FormStrFloat(this,2,0);" onBlur="FormStrFloatEdge(this,2,0,true);FormStrFloatCutoff(this,true);" maxlength="3">
<% End If %>月
<% If Jissenbi <> "" Then '日付固定モード %>
<input type="text" name="FuridashibiD" size="2" class="tbox4_ro" readonly style="width:22px;" value="<% = FuridashibiD %>" onKeyup="FormStrFloat(this,2,0);" onKeypress="FormStrFloat(this,2,0);" onBlur="FormStrFloatCutoff(this,true);" maxlength="3">
<% Else %>
<input type="text" name="FuridashibiD" size="2" class="tbox4" style="width:22px;" value="<% = FuridashibiD %>" onKeyup="FormStrFloat(this,2,0);" onKeypress="FormStrFloat(this,2,0);" onBlur="FormStrFloatEdge(this,2,0,true);FormStrFloatCutoff(this,true);" maxlength="3">
<% End If %>日

<input type="hidden" name="Furidashibi" size="20" class="tbox2" style="width: 78; height: 17" value="<% = Furidashibi %>" onBlur="SetDate(this, 1, false)">
</td>
																			</tr>

																		</table>
																	</td>
																</tr>
															</table>
														</td>
													</tr>

													<tr>
														<td>
															<table border="0" width="100%" cellspacing="0" cellpadding="0" class="tx1416" height="80%">
																<tr>

																	<td valign="middle" align="center">
																		<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" height="40" width="90%">

																			<tr>
																				<td width="100%">
																						<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#F7F0C8" STYLE="border: 1px solid #111111" WIDTH="100%" HEIGHT="100%" class="tx1416">
																						<tr>
																							<td width="100%" align="center">金額　￥<input type="text" name="Kingaku" size="14" class="tbox6" value="<% = ConvIntToMoney(Kingaku, false, false) %>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" onFocus="FormStrCommaReplace(this);">※</td>
																						</tr>
																					</table>
																				</td>
																			</tr>

																		</table>

																	</td>
																</tr>
															</table>
														</td>
													</tr>
													<tr>
														<td align="center">
															<table border="0" width="90%" cellspacing="0" cellpadding="0" class="tx1416" height="100%">
																<tr>
																	<td width="98" align="center">
																		<table border="0" width="84" height="95" cellspacing="0" cellpadding="0" style="border: 1px dotted #888888" class="tx1618">
																			<tr>
																				<td width="100%" valign="middle" align="center"><font color="#888888">印&nbsp;&nbsp;&nbsp;収<br><br>紙&nbsp;&nbsp;&nbsp;入</font></td>
																			</tr>
																		</table>
																	</td>
																	<td valign="middle" align="center">
																		<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" height="40" width="340">
																			<tr>
																				<td width="100%">
																					<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" class="tx1416">
																						<tr>
																							<td width="100%" align="center" style="border-bottom:1 solid #000000;"nowrap>ただし　<input type="text" name="Tekiyo" size="51" class="tbox4_ime" value="<% = Tekiyo %>" onBlur="FormStrLeftIME(this,60,true);" maxlength="60"></td>
																						</tr>
																						<tr>
																							<td width="100%" align="right">上記のとおり領収いたしました。</td>
																						</tr>
																						<tr>
																							<td height="70" align="center" varign="center" class="tx1618">
																								&nbsp;
																							</td>
																						</tr>
																					</table>
																				</td>
																			</tr>

																		</table>

																	</td>
																</tr>
															</table>
														</td>
													</tr>
<!--
													<tr>
														<td height="50">
															<table BORDER="0" CELLSPACING="0" CELLPADDING="0" width="100%" height="100%" class="tx1416">
																<tr>
																	<td width="80" valign="middle" align="center">
																		<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0"	WIDTH="40" HEIGHT="90%" STYLE="border: 1px solid #888888" class="tx1416" bordercolor="#888888">
																			<tr>
																				<td width="100%" style="line-height:10px; font-family:ＭＳ 明朝,serif; font-size:10px; color:#888888;" valign="middle" align="center">
																					印&nbsp;&nbsp;収<br>
																					<br>
																					紙&nbsp;&nbsp;入<br>
																				</td>
																			</tr>
																		</table>
																	</td>

																	<td class="tx1416" width="130"></td>

																</tr>
															</table>
														</td>
													</tr>
-->
												</table>
											</td>
										</tr>
									</table>

								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
</div>
</form>


</body>

<SCRIPT LANGUAGE="JavaScript">

	function SubmitCheck()
	{



		//非利用
		if(typeof(form1.ShiharaiKijitsuY) == "object")
		{
			if(form1.ShiharaiKijitsuY.value != "" && form1.ShiharaiKijitsuM.value != "" && form1.ShiharaiKijitsuD.value != "")
			{
				form1.ShiharaiKijitsu.value = (1988 + parseInt(form1.ShiharaiKijitsuY.value) ) + "/" + form1.ShiharaiKijitsuM.value  + "/" + form1.ShiharaiKijitsuD.value 
			}

			if(form1.ShiharaiKijitsu.value == "")
			{
				alert("支払期日を入力してください　");
				form1.ShiharaiKijitsuY.focus()
				return false;
			}
		}

		if(typeof(form1.FuridashibiY) == "object")
		{
			if(form1.FuridashibiY.value != "" && form1.FuridashibiM.value != "" && form1.FuridashibiD.value != "")
			{
			//日付の誤入力のチェック追加 2006/06/20 By Hamada
				//うるう年チェックは元号開始日の西暦基準（171107小野）
				if((Number(form1.FuridashibiG.value) - 1 + Number(form1.FuridashibiY.value)) % 4 == 0 && form1.FuridashibiM.value == 2 && form1.FuridashibiD.value > 29)
				//if(form1.FuridashibiY.value % 4 == 0 && form1.FuridashibiM.value == 2 && form1.FuridashibiD.value > 29)
				{
					alert("作成日が不正な日付です　");
					return false;
				}
				//うるう年チェックは元号開始日の西暦基準（171107小野）
				if((Number(form1.FuridashibiG.value) - 1 + Number(form1.FuridashibiY.value)) % 4 != 0 && form1.FuridashibiM.value == 2 && form1.FuridashibiD.value > 28)
				//if(form1.FuridashibiY.value % 4 != 0 && form1.FuridashibiM.value == 2 && form1.FuridashibiD.value > 28)
				{
					alert("作成日が不正な日付です　");
					return false;
				}
				if((form1.FuridashibiM.value == 1 || form1.FuridashibiM.value == 3 || form1.FuridashibiM.value == 5 || form1.FuridashibiM.value == 7 || form1.FuridashibiM.value == 8 || form1.FuridashibiM.value ==10 || form1.FuridashibiM.value == 12) && form1.FuridashibiD.value > 31)
				{
					alert("作成日が不正な日付です　");
					return false;
				}
				if((form1.FuridashibiM.value == 4 || form1.FuridashibiM.value == 6 ||form1.FuridashibiM.value == 9 || form1.FuridashibiM.value == 11) && form1.FuridashibiD.value > 30)
				{
					alert("作成日が不正な日付です　");
					return false;
				}
										//元号開始日の西暦を加算（171107小野）
				form1.Furidashibi.value = (Number(form1.FuridashibiG.value) - 1 + parseInt(form1.FuridashibiY.value) ) + "/" + form1.FuridashibiM.value  + "/" + form1.FuridashibiD.value 
//alert(form1.Furidashibi.value);
//return false;
			}

			rc = ConvDate(form1.Furidashibi.value, 1, true)
			if(rc == "ERR")
			{
				form1.FuridashibiY.focus();
				return false;
			} 

			if(form1.Furidashibi.value == "")
			{
				alert("発行日を入力してください　");
				form1.FuridashibiY.focus()
				return false;
			}
		}

		//非利用
		if(typeof(form1.Tenmatsubi) == "object")
		{
			//** 顛末日のチェック
			if(form1.Tenmatsubi.value == "")
			{
				alert("日付を入力してください　");
				form1.Tenmatsubi.focus()
				return false;
			}
		}

		//非利用
		if(typeof(form1.TenmatsuKubun) == "object")
		{
			//** 顛末区分のチェック
			if(form1.TenmatsuKubun.value == "")
			{
				alert("顛末区分を入力してください　");
				form1.TenmatsuKubun.focus()
				return false;
			}
		}

		//非利用
		if(typeof(form1.HiuragakininCD) == "object")
		{
			//** 被裏書人のチェック
			if(form1.HiuragakininCD.value == "")
			{
				alert("被裏書人を入力してください　");
				form1.HiuragakininCD.focus()
				return false;
			}
		}

		//非利用
		if(typeof(form1.HikiukeninCD) == "object")
		{
			//** 引受人のチェック
			if(form1.HikiukeninCD.value == "")
			{
				alert("引受人を入力してください　");
				form1.HikiukeninCD.focus()
				return false;
			}
		}

		//非利用
		if(typeof(form1.UketorininCD) == "object")
		{
			//** 受取人のチェック
			if(form1.UketorininCD.value == "")
			{
				alert("受取人を入力してください　");
				form1.UketorininCD.focus()
				return false;
			}
		}

		//非利用
		if(typeof(form1.HikiukeninCD) == "object" && typeof(form1.UketorininCD) == "object")
		{
			//** 引受人と受取人のチェック
			if(form1.HikiukeninCD.value == form1.UketorininCD.value)
			{
				alert("受取人と引受人は同じにできません。正しく入力をしてください　");
				form1.HikiukeninCD.focus()
				return false;
			}
		}

		//** 金額のチェック
		if(form1.Kingaku.value == "")
		{
			alert("金額を入力してください　");
			form1.Kingaku.focus()
			return false;
		}

		//** 金額のチェック
		if(form1.BunsyoNaiyoCD.value == "")
		{
//			alert("<% = Title %>Noを入力してください　");
//			form1.BunsyoNaiyoCD.focus()
//			return false;
		}


		//** 発行日のチェック
		if(form1.Furidashibi.value == "")
		{
			alert("発行日を入力してください　");
			form1.Furidashibi.focus()
			return false;
		}

		if(typeof(form1.ShiharaiKijitsu) == "object")
		{
			//** 支払期日のチェック
			if(form1.ShiharaiKijitsu.value == "")
			{
				alert("支払期日を入力してください　");
				form1.ShiharaiKijitsu.focus()
				return false;
			}
			var furidasi=Date.parse(form1.Furidashibi.value);
			var kijitu=Date.parse(form1.ShiharaiKijitsu.value);
			if(furidasi > kijitu)
			{
				alert("支払期日は発行日以降で入力をしてください　");
				form1.ShiharaiBasyo.focus()
				return false;
			}
		}

		if(typeof(form1.ShiharaiBasyo) == "object")
		{
			//** 支払場所のチェック
			if(form1.ShiharaiBasyo.value == "")
			{
				alert("支払場所を入力してください　");
				form1.ShiharaiBasyo.focus()
				return false;
			}
		}


		SubmitReal(form1);
		return true;
	}

//////取引先メニュー変更ロジック

	//取引先CD及び取引先名称の配列を作成
	var Val = new Array();	//配列番号＝市場メニューのselectedIndexで動作する
	var Tex = new Array();
<%
	Dim ContentTorihikisaki
	Dim iii
	Dim jjj
	iii = 0
	jjj = 0
	'TDA市場Mから市場(市場CD)を取得
	Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Do While Not(Content.BOF Or Content.EOF)
			'取引先
			Response.Write("Val[" & iii & "] = new Array()" & vbCrLf)	'2次元配列
			Response.Write("Tex[" & iii & "] = new Array()" & vbCrLf)
			If UBound(KaishaCDA) > 0 Then
				jjj = 0
				Response.Write("Val[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				Response.Write("Tex[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				jjj = jjj + 1
				'摘要配列より
				For ii = 1 To UBound(KaishaCDA)
					'iii=0は全取引先取得	KaishaShijoA(ii)=NULLも取得（小売販売対応）
					If iii = 0 Or KaishaShijoA(ii) = "" Or KaishaShijoA(ii) = Content.Fields("市場CD") Then
						Response.Write("Val[" & iii & "][" & jjj & "] = '" & KaishaCDA(ii) & "'" & vbCrLf)
						Response.Write("Tex[" & iii & "][" & jjj & "] = '" & KaishaNameA(ii) & "'" & vbCrLf)
						jjj = jjj + 1
					End If
				Next
			End If
			'iii=0は全取引先取得なのでMoveNextしない
			If iii <> 0 then
				Content.MoveNext
			End If
			iii = iii + 1
		Loop
	End If
%>

	function SetUketorininMenu(selindex) {
		var plusLen = 0;
		//現在選択されているメニュー内容を取得
		var selVal = form1.UketorininCD.value;
		var selTex = form1.UketorininCD.options[form1.UketorininCD.selectedIndex].text;
		//メニューの配列長を変更（Valの2次元目の配列長）
		if (selVal != '') {
			plusLen = 1;
			//現在選択されているメニュー内容がnullで無ければ配列長+1＆先頭メニュー配列にセット
			form1.UketorininCD.options.length = Val[selindex].length + plusLen;
			form1.UketorininCD.options[0].value = selVal;
			form1.UketorininCD.options[0].text = selTex;
		} else {
			form1.UketorininCD.options.length = Val[selindex].length;
		}
		for (jj=0; jj<Val[selindex].length; jj++) {
			//メニューの内容を変更
			form1.UketorininCD.options[jj + plusLen].value = Val[selindex][jj]
			form1.UketorininCD.options[jj + plusLen].text = Tex[selindex][jj]
		}
		form1.UketorininCD.selectedIndex = 0;
	}



</SCRIPT>

<% = HtmlFooter %>
</html>
<%
End Sub
%>