
<!-- #include file="../../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：寄託一覧表示の親ウィンドウ
'	 作成日：2002/12/20 2006/12/21
'	 作成者：重松        鈴木
'	 目的　：寄託一覧表示のための親ウィンドウ
'	 概要	：
'
'	修正日：
'	修正者：
'################################################

'-->

main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim NRflg 
	Dim ErrMSG 
	Dim Action
	
	Dim SakuseiKaisyaCD                   '作成会社CD
	Dim KitakuIraiKaisyaCD                '寄託依頼会社CD
	Dim KitakuNo                          '寄託受付番号
	Dim KitakuNoSEQ                       '寄託受付番号SEQ
	Dim KitakuFrom								        '寄託期間始
	Dim KitakuTo								          '寄託期間終
	Dim NyukoNengappi								      '入庫年月日
	Dim Basyo									            '倉庫場所
	Dim SokoBetsu								          '倉庫種別
	Dim Syoribi                           '処理日
	Dim DelFlag                           '削除フラグ
	Dim YukoFlag                          '有効フラグ
	Dim GakuseiNo                         '学生番号
	
	Dim SyohinCD												  '商品コード
	Dim KitakuSuryo                       '数量
	Dim Tanka                             '仕入単価
	Dim UnsoTanka                         '運送単価
	Dim TotalSyukosu                      '総出庫数
	Dim Tekiyo                            '摘要
	
	Dim KasaiHokenKin                     '火災保険料金
	Dim Ryoritsu                          '火災保険料率
	Dim Niekiryokin                       '荷役料金
	Dim Niyakuritsu                       '荷役料率
	Dim Jyoryoritsu                       '従量率
	Dim Jyokaritsu                        '従価率
	Dim Hokanryokin                       '保管料金
	Dim SyokenNum                         '倉荷証券番号
	Dim SyokenTesuryo                     '倉荷証券発行手数料
	Dim SyokenHakkoFlag                   '倉荷証券発行フラグ
	Dim SyokenSeikyuFlag                  '倉荷証券請求フラグ
	Dim SyokenKaisyuFlag                  '倉荷証券回収フラグ
	Dim SyokenKaisyubi                    '倉荷証券回収日
	

	Dim GokeiKingaku
	Dim Syohizeigaku
	Dim ZeikomiKingaku
	Dim SyukoZandaka

	Dim SyohinJyuryo
	Dim SyohinYoseki

	Dim Query
	Dim Content
	Dim CContent
	
	Dim fmurl

	NRflg = Request("nr")
	Action = Request("Action")
	
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	KitakuIraiKaisyaCD = Request("KitakuIraiKaisyaCD")
	KitakuNo = Request("KitakuNo")
	KitakuNoSEQ = Request("KitakuNoSEQ")

	ErrMSG = Request("ErrMSG")


	If NRflg = "r" then
		SyukkoNo = Request("SyukkoNo")
		'KitakuNo = Request("KitakuNo")
		ErrMsg = Request("ErrMsg")
	End If

	If Action = 2 Or Action = 3 Then '2:確認モード 3:修正モード

		Query = "exec SPD寄託商品明細取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "','" & SakuseiKaisyaCD & "','" & KitakuIraiKaisyaCD & "'," & KitakuNo & ", "& KitakuNoSEQ &""

'Response.Write("Query:" & Query)

'Exit Sub

		Set Content = OpenQuery(Query)
		
		If Not(Content.BOF Or Content.EOF) Then
		
			SyohinCD = Content.Fields("商品CD")
			KitakuFrom = Content.Fields("寄託開始年月日")
			KitakuTo = Content.Fields("寄託保管期日")
			KitakuSuryo = Content.Fields("数量")
			Basyo = Content.Fields("倉庫場所")
			TotalSyukosu = Content.Fields("総出庫数")

			NyukoNengappi = Content.Fields("入庫年月日")
			SokoBetsu = Content.Fields("倉庫種別")
			Tekiyo = Content.Fields("摘要")
			Jyokaritsu = Content.Fields("従価率")
			Jyoryoritsu = Content.Fields("従量率")
			Niyakuritsu = Content.Fields("荷役料率")
			SyokenNum = Content.Fields("倉荷証券番号")
			SyokenTesuryo = Content.Fields("倉荷証券発行手数料")

			SyohinJyuryo = Content.Fields("商品重量")						 '商品重量
			SyohinYoseki = Content.Fields("商品容積")						'商品容積
			KasaiHokenKin = Content.Fields("火災保険料金")
			Ryoritsu = Content.Fields("火災保険料率")

		End If
	End If


	Dim Kitakuriyou
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Kitakuriyou = "" & Content.Fields("寄託倉庫利用") '060909追加 テーブルにもフィールドを追加
	End If
	'寄託利用状態を整数化（070207小野）
	If Kitakuriyou = "1" Then
		Kitakuriyou = 1
	Else
		Kitakuriyou = 0
	End If

'Response.write(Query & "<br>")
'exit sub

%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../../../binx/sj3web.css" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../../../include.js"></script>
<script language="JScript" src="../../../../includesj.js"></script>
<script language="JScript.Encode" src="../../../../include_enc.js"></script>
<script language="JScript.Encode" src="../../../../includesj_enc.js"></script>
<% Response.Write("<script type=""text/javascript"" src=""../../../../javascript.js?" & TimeUniq() & """></script>" & vbCrLf) %>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
<% If Action = 2 Then %>
	ExitFlg = 1;
<% Else %>
	ExitFlg = 2;
<% End If %>
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(1))

	Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", "寄託受付一覧", "tblbtn( '/" & HomeAlias & "/user/bk/unso/kitaku/fu_kitaku_ichiran.asp')", "寄託照会", "", "", ""))

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	If Action = 3 Then
	Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))
	Else
	Response.Write(HttpL3_1("修正", "SubmitCheck2()", "", "", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL3_2( "一覧表示", "tblbtn( 'fu_kitaku_ichiran.asp')", "", "", "", "", "", "", "", ""))


	If Action =1 then
		Response.Write(HttpL4("寄託", "入力"))
	ElseIf Action =2 then
		Response.Write(HttpL4("寄託", "照会"))
	Else
		Response.Write(HttpL4("寄託", "修正"))
	End If
	
	If Action = 2 Then
		fmurl = "fu_kitaku.asp"
	ElseIf Action = 3 Then
		fmurl = "fu_kitaku_bin.asp"
	End If

%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<form OnKeyDown="FormKeyDown(this)"	method="POST" action="<% =fmurl %>" name="form1" autocomplete="off">

<input type="hidden" name="Action" value="">
<input type="hidden" name="SakuseiKaisyaCD" value="<% = SakuseiKaisyaCD %>">




	<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
		<tr>
			<td align="center">
				<table width="574" border="0" cellspacing="5" cellpadding="5" bgcolor="#ffffff" style="border: 1px solid #000000">
					<tr>
						<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"><!--薄青のチェックの背景-->
							<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="5" WIDTH="100%" HEIGHT="100%">
								<tr>
									<td>
										<table border="0" width="100%" cellspacing="0" cellpadding="0">
											<tr>
												<td valign="bottom">

													<table border="0" width="100%">
														<tr>
															<td height="75" valign="top">

																<TABLE border=0 class="tx1416">
																	<TR>
																		<TD>受付番号</TD>
																		<TD>
																		<input type="text" name="KitakuNo" size="5" value="<% = KitakuNo %>"	readonly class="tbox4_ro">
																		</TD>
																	</TR>
																	<TR>
																		<TD>詳細番号</TD>
																		<TD>
																		<input type="text" name="KitakuNoSEQ" size="5" value="<% = KitakuNoSEQ %>"	readonly class="tbox4_ro">
																		</TD>
																	</TR>
																	<TR>
																		<TD>寄託者</TD>
																		<TD>
																			<input type="text" name="KitakusyaMei" size="35" value="<% = ConvKaisyaMeisyo(KitakuIraiKaisyaCD) %>"	readonly class="tbox4_ro">
																			<input type="hidden" name="KitakuIraiKaisyaCD" value="<% = KitakuIraiKaisyaCD %>"	readonly class="tbox4_ro">
																		</TD>
																	</TR>
																	<TR>
																		<TD >商品名</TD>
																		<TD>

																			<input type="text" name="SyohinMei" size="" value="<% = ConvSyohinMeisyo(SyohinCD) %>" class="tbox4_ro"	readonly>
																			<input type="hidden" name="SyohinCD" size="" value="<% = SyohinCD %>"	readonly class="tbox4_ro">
																		</TD>
																	</TR>
																</TABLE>

															</td>
														</tr>
														<tr>
															<td>


																<TABLE	BORDER="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="1" width="100%" class="tx1618">
																	<TR bgcolor="#DDDDDD">
																		<TD align="center">寄託情報</TD>
																	</TR>
																	<TR>
																		<TD>
																		
																			<TABLE border="0" cellpadding="0" cellpadding="0" class="tx1416" width="100%">
																				<TR>
																					<TD nowrap>貯蔵倉庫場所</TD>
																					<TD width="1" colspan="3">
																					<% If Action = 2 Then %>
																					<INPUT size="30" type="text" name="Basyo" value="<% = Basyo %>" MAXLENGTH="100"	class="tbox4_ro" onBlur="SetString(this, 200, true)" readonly>
																					<% Else %>
																					<INPUT size="30" type="text" name="Basyo" value="<% = Basyo %>" MAXLENGTH="100"	class="tbox4_ime" onBlur="SetString(this, 200, true)">
																					<% End If %>
																					</TD>
																				</TR>
																				<TR height="20">
																					<TD nowrap>寄託期間</TD>
																					<TD width="70">
																					<% If Action = 2 Then %>
																					<INPUT size="12" type="text" name="KitakuFrom" value="<% = KitakuFrom %>" onBlur="SetDate(this, 1, true)" onBlur="KitakuFromCheck();"	class="tbox4_ro" readonly>
																					<% Else %>
																					<INPUT size="12" type="text" name="KitakuFrom" value="<% = KitakuFrom %>" onBlur="SetDate(this, 1, true)" onBlur="KitakuFromCheck();"	class="tbox4">
																					<% End If %>
																					</TD>
																					<TD width="15">～</TD>
																					<TD>
																					<% If Action = 2 Then %>
																					<INPUT size="12" type="text" name="KitakuTo" value="<% = KitakuTo %>" onBlur="SetDate(this, 1, true)" onBlur="KitakuToCheck();" class="tbox4_ro" readonly>
																					<% Else %>
																					<INPUT size="12" type="text" name="KitakuTo" value="<% = KitakuTo %>" onBlur="SetDate(this, 1, true)" onBlur="KitakuToCheck();" class="tbox4" >
																					<% End If %>
																					</TD>
																				</TR>

																				<TR height="20">
																					<TD nowrap>寄託数量</TD>
																					<TD>
																					<% 'If Action = 2 Then %>
																					<% If Action = 2 Or Kitakuriyou > 0 Then %>
																						 <input type="text" name="KitakuSuryo" size="8" value="<% = KitakuSuryo %>"	readonly class="tbox5_ro">
																					<% Else %>
																						 <input type="text" name="KitakuSuryo" size="8" onkeyup="ChangeMoney(this);" value="<% = SetNumber(KitakuSuryo, false) %>" onBlur="SetNumber(this, false, 10);" class="tbox5">
																					<% End If %>
																					
																					</TD>
																					<TD><br></TD>
																					<TD><br></TD>
																				</TR>
																			</TABLE>
																			
																		</TD>
																	</TR>
																</TABLE>


															</td>
														</tr>
														<tr>
															<td>


																<TABLE BORDER="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="1" width="100%" class="tx1618">
																	<TR bgcolor="#DDDDDD">
																		<TD align="center">入庫情報</TD>
																	</TR>
																	<TR>
																		<TD>
																			<TABLE BORDER="0" class="tx1416" width="100%" cellpadding="0">
																				<TR height="20">
																					<TD nowrap align="left">入庫年月日</TD>
																					<TD>
																					<% If Action = 2 Then %>
																					<INPUT size="12" type="text" name="NyukoNengappi" value="<% = NyukoNengappi %>" onBlur="SetDate(this, 1, true)" onBlur="KitakuFromCheck();"	class="tbox4_ro" readonly>
																					<% Else %>
																					<INPUT size="12" type="text" name="NyukoNengappi" value="<% = NyukoNengappi %>" onBlur="SetDate(this, 1, true)" onBlur="KitakuFromCheck();"	class="tbox4">
																					<% End If %>
																					</TD>
																				</TR>

																				<TR height="20">
																					<TD nowrap align="left">倉庫種別</TD>
																					<TD>
																					<% 
																						Dim DataSibetsu
																						Dim KubunCD
																						DataSibetsu="倉庫種別"
																						
																						If Action = 2 Then 
																						
																						Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','" & DataSibetsu & "'"
																						Set Content = OpenQuery(Query)

																						Do While Not(Content.BOF Or Content.EOF)
																							
																							KubunCD = Content.Fields("区分CD")
																							If Content.Fields("区分CD") = SokoBetsu Then
																					%>
																								
																								<INPUT size="15" type="text" name="SokoBetsuMei" value="<% = Content.Fields("区分名称") %>"	class="tbox4_ro" readonly>
																								
																					<%
																							End If
																										
																							Content.MoveNext
																						Loop
																					%>
																					<INPUT size="15" type="hidden" name="SokoBetsu" value="<% = SokoBetsu %>">
																					
																					<% Else %>
																					
																						<SELECT name="SokoBetsu"	class="tbox4">
																							<option value="">　　　　</option>
																							<%

																								Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','" & DataSibetsu & "'"
																								Set Content = OpenQuery(Query)

																									Do While Not(Content.BOF Or Content.EOF)

																										KubunCD = Content.Fields("区分CD")
																												Response.Write("<option value=""" & Content.Fields("区分CD") & """")
																												If Content.Fields("区分CD") = SokoBetsu Then
																												Response.Write(" selected")
																												End If
																												Response.Write(">" & Content.Fields("区分名称") & "</option>" & vbCrLf)
																										Content.MoveNext
																									Loop
																								%>
																						</SELECT>
																						
																					<% End If %>
																					
																					</TD>
																				</TR>
																				<TR height="20">
																					<TD nowrap>摘　 要</TD>
																					<TD width="1" colspan="3">
																					<% If Action = 2 Then %>
																					<INPUT size="32" type="text" name="Tekiyo" value="<% = Tekiyo %>"	MAXLENGTH="100" class="tbox4_ro" onBlur="SetString(this, 200, true)" readonly>
																					<% Else %>
																					<INPUT size="32" type="text" name="Tekiyo" value="<% = Tekiyo %>"	MAXLENGTH="100" class="tbox4_ime" onBlur="SetString(this, 200, true)" >
																					<% End If %>
																					</TD>
																				</TR>
																			</TABLE>
																		</TD>
																	</TR>
																</TABLE>



															</td>
														</tr>
														<tr>
															<td>

																<TABLE border="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="1" width="100%" class="tx1618">
																	<TR bgcolor="#DDDDDD">
																		<TD align="center">料率情報</TD>
																	</TR>
																	<TR>
																		<TD>
																			<TABLE cellpadding="0" class="tx1416" width="100%">
																				<TR>
																					<TD nowrap>従価率（1000円につき）</TD>
																					<TD width="1">
																					<% If Action = 2 Then %>
																					<INPUT type="text" name="Jyokaritsu" size="15" value="<% = SetNumber(Jyokaritsu, false) %>" onBlur="SetNumber(this, false, 9, 2);" class="tbox5_ro" readonly>
																					<% Else %>
																					<INPUT type="text" name="Jyokaritsu" size="15" value="<% = SetNumber(Jyokaritsu, false) %>" onBlur="SetNumber(this, false, 9, 2);" class="tbox5">
																					<% End If %>
																					</TD>
																					<TD nowrap width="1">円</TD>
																				</TR>
																				<TR>
																					<TD nowrap>従量率（1トンにつき）</TD>
																					<TD>
																					<% If Action = 2 Then %>
																					<INPUT type="text" name="Jyoryoritsu" size="15" value="<% = SetNumber(Jyoryoritsu, false) %>" onBlur="SetNumber(this, false, 9, 2);" class="tbox5_ro" readonly>
																					<% Else %>
																					<INPUT type="text" name="Jyoryoritsu" size="15" value="<% = SetNumber(Jyoryoritsu, false) %>" onBlur="SetNumber(this, false, 9, 2);" class="tbox5">
																					<% End If %>
																					</TD>
																					<TD nowrap>円</TD>
																				</TR>
																				<TR>
																					<TD nowrap>荷役料率（1トンにつき）</TD>
																					<TD>
																					<% If Action = 2 Then %>
																					<INPUT type="text" name="Niyakuritsu" size="15" value="<% = SetNumber(Niyakuritsu, false) %>" onBlur="SetNumber(this, false, 9, 2);" class="tbox5_ro" readonly>
																					<% Else %>
																					<INPUT type="text" name="Niyakuritsu" size="15" value="<% = SetNumber(Niyakuritsu, false) %>" onBlur="SetNumber(this, false, 9, 2);" class="tbox5">
																					<% End If %>
																					</TD>
																					<TD nowrap>円</TD>
																				</TR>
																			</TABLE>
																		</TD>
																	</TR>
																</TABLE>
															</td>
														</tr>
													</table>
												</td>
												<td valign="bottom">


													<table border="0" width="100%">
														<tr>
															<td height="75">
															</td>
														</tr>
														<tr>
															<td>

																<TABLE border="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="1" width="100%" class="tx1618">
																	<TR bgcolor="#DDDDDD">
																		<TD align="center">商品情報</TD>
																	</TR>
																	<TR>
																		<TD>
																			<TABLE class="tx1416" cellpadding="0" width="100%">
																				<TR>
																					<TD nowrap>標準販売単価</TD>
																					<TD width="1"><INPUT type="text" name="HanbaiTanka" size="15" value="<% = SetMoney(ConvSyohinHanbaiTanka(SyohinCD), false, true) %>" readonly class="tbox5_ro"></TD>
																					<TD nowrap>円</TD>
																				</TR>
																				<TR>
																					<TD nowrap>商品重量</TD>
																					<TD>
																					 <INPUT type="text" name="SyohinJyuryo" size="15" value="<% = SetNumber(SyohinJyuryo, false) %>" readonly class="tbox5_ro"></TD>
																					<TD nowrap align="left">Kg</TD>
																				</TR>
																				<TR>
																					<TD nowrap>商品容積</TD>
																					<TD>
																					 <INPUT type="text" name="SyohinYoseki" size="15" value="<% = SetNumber(SyohinYoseki , false) %>" readonly class="tbox5_ro"></TD>
																					<TD nowrap></TD>
																				</TR>
																			</TABLE>
																		</TD>
																	</TR>
																</TABLE>

															</td>
														</tr>
														<tr>
															<td>


																<TABLE border="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="1" width="100%" class="tx1618">
																	<TR bgcolor="#DDDDDD">
																		<TD align="center">倉荷証券情報</TD>
																	</TR>
																	<TR>
																		<TD>
																			<TABLE class="tx1416" cellpadding="0" width="100%">
																				<TR>
																					<TD nowrap>倉荷証券番号</TD>
																					 <TD width="1">
																					 <% If Action = 2 Then %>
																					 <INPUT type="text" name="SyokenNum" size="15" value="<% = SyokenNum %>" MAXLENGTH="20" class="tbox4_ro" onBlur="SetString(this, 30, true)" readonly>
																					 <% Else %>
																					 <INPUT type="text" name="SyokenNum" size="15" value="<% = SyokenNum %>" MAXLENGTH="20" class="tbox4" onBlur="SetString(this, 30, true)">
																					 <% End If %>
																					 </TD>
																					 <TD></TD>
																				</TR>
																				<TR>
																					<TD nowrap>証券手数料</TD>
																					 <TD>
																					 <% If Action = 2 Then %>
																					 <INPUT type="text" name="SyokenTesuryo" size="15" value="<% = SetMoney(SyokenTesuryo, false, true) %>" onkeyup="ChangeMoney(this);" onBlur="SetMoney2(this, false, true);" class="tbox5_ro" readonly>
																					 <% Else %>
																					 <INPUT type="text" name="SyokenTesuryo" size="15" value="<% = SetMoney(SyokenTesuryo, false, true) %>" onkeyup="ChangeMoney(this);" onBlur="SetMoney2(this, false, true);" class="tbox5">
																					 <% End If %>
																					 </TD>
																					 <TD nowrap>円</TD>
																				</TR>
																			</TABLE>
																		</TD>
																	</TR>
																</TABLE>

															</td>
														</tr>
														<tr>
															<td>
																<TABLE border="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="1" width="100%" class="tx1618">
																	<TR bgcolor="#DDDDDD">
																		<TD align="center">保険情報</TD>
																	</TR>
																	<TR>
																		<TD>
																			<TABLE class="tx1416" cellpadding="0" width="100%">
																				<TR>
																					<TD nowrap>料率</TD>
																					<TD colspan="2">
																						<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" class="tx1416">
																							<tr>
																								<td>
																								<% If Action = 2 Then %>
																									<INPUT type="text" name="Ryoritsu" size="3" value="<% = SetMoney(Ryoritsu, false, true) %>" onBlur="SetNumber(this, false, 9, 3);" class="tbox5_ro" readonly>
																								<% Else %>
																									<INPUT type="text" name="Ryoritsu" size="3" value="<% = SetMoney(Ryoritsu, false, true) %>" onBlur="SetNumber(this, false, 9, 3);" class="tbox5">
																								<% End If %>
																								</td>
																								<td nowrap>
																									<% If Action <> 2 Then %>
																									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetHokenRyokin();" class="tx1416">
																										<TR>
																											<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2l.gif?<% = GB_STU %>">　</TD>
																											<TD nowrap CLASS="tbtn1" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2c.gif?<% = GB_STU %>">自動計算</TD>
																											<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2r.gif?<% = GB_STU %>">　</TD>
																										</TR>
																									</TABLE>
																									<% End If %>
																									
																								</td>
																							</tr>
																						</table>
																					</TD>
																					<TD></TD>
																				</TR>

																				<TR>
																					<TD nowrap>火災保険料金</TD>
																					<TD>
																					<% If Action = 2 Then %>
																					<INPUT type="text" name="KasaiHokenKin" size="15" value="<% = SetMoney(KasaiHokenKin, false, true) %>" onBlur="SetNumber(this, false, 9, 2);" class="tbox5_ro" readonly>
																					<% Else %>
																					<INPUT type="text" name="KasaiHokenKin" size="15" value="<% = SetMoney(KasaiHokenKin, false, true) %>" onBlur="SetNumber(this, false, 9, 2);" class="tbox5">
																					<% End If %>
																					</TD>
																					<TD>円</TD>
																				</TR>
																			</TABLE>
																		</TD>
																	</TR>
																</TABLE>

															</td>
														</tr>
													</table>

												</td>
											</tr>
										</table>
									</td>
								</tr>
							</table>
						</td>
					</tr>
				</table>

			</td>
		</tr>
	</table>
</form>
</div>
</body>



<SCRIPT LANGUAGE="JavaScript">
	function SetHokenRyokin()
	{
		var HokenRyokin;
		var Tanka, Suryo;
		var Kingaku, Ryoritsu;
		Tanka = ConvMoneyToInt(form1.HanbaiTanka.value, false, false);
		Suryo = ConvMoneyToInt(form1.KitakuSuryo.value, false, false);
		Ryoritsu = ConvMoneyToFloat(form1.Ryoritsu.value, false, false);

		if (Tanka	== "" || Suryo == "" )Kingaku = 0;
		else Kingaku = Tanka * Suryo;

		if (Ryoritsu	== "")Ryoritsu = 0;

		form1.KasaiHokenKin.value = ConvIntToMoney(Math.floor(Kingaku * Ryoritsu / 1000, false, false));
	}

//################################################
//	名称：SetSyohinKakaku
//	目的：商品標準価格をセットする。
//　作成：2002/9/12　山崎
//################################################
	function SetSyohinData()
	{
	//alert ("00000000");
	//alert(document.form1["SyohinCD"].value);
	//alert(ConvSyohinHanbaiTanka(document.form1["SyohinCD"].value));

	form1["HanbaiTanka"].value = ConvIntToMoney(ConvSyohinHanbaiTanka(document.form1["SyohinCD"].value));
	form1["SyohinJyuryo"].value = ConvIntToMoney(ConvSyohinJyuryo(document.form1["SyohinCD"].value));
	form1["SyohinYoseki"].value = ConvIntToMoney(ConvSyohinYoseki(document.form1["SyohinCD"].value));
	}


//################################################
//	名称：ConvSyohinHanbaiTanka
//	目的：商品リストの表示
//　作成：2002/8/26　川崎
//　概要：TS商品Mの標準販売単価を返す。
//################################################
	function ConvSyohinHanbaiTanka(SyohinCD)
	{
<%
	Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		Response.Write("if(SyohinCD == """ & Content.Fields("商品CD") & """)return """ & Content.Fields("標準販売単価") & """;" & vbCrLf)
		Content.MoveNext
	Loop
%>
		return "";
	}

//################################################
//	名称：ConvSyohinHanbaiTanka
//	目的：商品リストの表示
//　作成：2002/12/25　重松
//　概要：TS商品Mの商品重量を返す。
//################################################
	function ConvSyohinJyuryo(SyohinCD)
	{
<%
	Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		Response.Write("if(SyohinCD == """ & Content.Fields("商品CD") & """)return """ & Content.Fields("商品重量") & """;" & vbCrLf)
		Content.MoveNext
	Loop
%>
		return "";
	}

//################################################
//	名称：ConvSyohinHanbaiTanka
//	目的：商品リストの表示
//　作成：2002/12/25　重松
//　概要：TS商品Mの商品重量を返す。
//################################################
	function ConvSyohinYoseki(SyohinCD)
	{
<%
	Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		Response.Write("if(SyohinCD == """ & Content.Fields("商品CD") & """)return """ & Content.Fields("商品容積") & """;" & vbCrLf)
		Content.MoveNext
	Loop
%>
		return "";
	}





	function SubmitCheck()
	{
			var KitakuFrom;
			var KitakuTo;
			var NyukoNengappi;

		if (form1.SyohinCD.value == "")
		{
			alert("商品名を入力してください　");
			form1.SyohinCD.focus();
			return false;
		}

		if (form1.KitakuFrom.value == "")
		{
			alert("寄託期間の開始年月日を入力してください　");
			form1.KitakuFrom.focus();
			return false;
		}

		if (form1.KitakuTo.value == "")
		{
			alert("寄託期間の保管期日を入力してください　");
			form1.KitakuTo.focus();
			return false;
		}

		if (form1.KitakuSuryo.value == "")
		{
			alert("寄託数量を入力してください　");
			form1.KitakuSuryo.focus();
			return false;
		}

		if (form1.NyukoNengappi.value == "")
		{
			alert("入庫年月日を入力してください　");
			form1.NyukoNengappi.focus();
			return false;
		}


		if (form1.SokoBetsu.value == "")
		{
			alert("倉庫種別を入力してください　");
			form1.SokoBetsu.focus();
			return false;
		}

		if (form1.Jyokaritsu.value == "")
		{
			alert("従価率を入力してください　");
			form1.Jyokaritsu.focus();
			return false;
		}

		if (form1.Jyoryoritsu.value == "")
		{
			alert("従量率を入力してください　");
			form1.Jyoryoritsu.focus();
			return false;
		}

		if (form1.Niyakuritsu.value == "")
		{
			alert("荷役率を入力してください　");
			form1.Niyakuritsu.focus();
			return false;
		}

		if (form1.KasaiHokenKin.value == "")
		{
			alert("火災保険料金を入力してください　");
			form1.KasaiHokenKin.focus();
			return false;
		}

		if(form1.SyokenNum.value == "")
		{
			alert("倉荷証券番号を入力してください　");
			form1.SyokenNum.focus();
			return false;
		}

//		if(form1.SyokenNum.value != "" && ConvMoneyToInt(form1.SyokenNum.value, false, false) > 32767)
//		{
//			alert("倉荷証券番号を入力する場合は、32,767以下の数字を入力してください　");
//			form1.SyokenNum.focus();
//			return false;
//		}

		if(Date.parse(form1.KitakuTo.value) < Date.parse(form1.KitakuFrom.value))
		{
			alert("寄託期日を正しく入力してください　");
			form1.KitakuFrom.focus();
			return false;
		}

		document.form1.Action.value=2;
		SubmitReal(form1);
		return true;
	}


	function SubmitCheck2()
	{
		document.form1.Action.value=3;
		SubmitReal(form1);
		return true;
	}
	
</script>
<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
	form1.Basyo.select;
	form1.Basyo.focus();
	event.returnValue = false;
	return;
</SCRIPT>



<% = HtmlFooter %>
</html>

<%
End Sub
%>