
<!-- #include file="../../../../include.asp" -->

<%
'<!--
'################################################
' 名称	：寄託情報設定設定
' 作成日：2002/12/20
' 作成者：重松
' 目的　：寄託情報入力画面を表示する。
' 概要	：
'	<<表示>>
' <<入力チェック>>
' ・ＮＵＬＬチェック
'
' 修正日：
' 修正者：
' fu_syuko.asp
'################################################
'-->

main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim NRflg , ErrMSG , Action

	Dim EnshuName
	Dim MousikomiNum	'申込番号


	'保険
	Dim TorihikisakiCD,HokenkikanFrom,HokenkikanTo
	Dim Tanka															 '単価
	Dim Suryo															 '数量
	Dim Kakaku																	'標準価格
	Dim Kingaku															 '金額
	Dim Ryoritsu																'料率
	Dim HSyubetsuCode												 '種別CD
	Dim Biko																		'備考
	Dim Mosikomibi


	'寄託
	Dim KitakuNo								'寄託者受付番号
	Dim KitakuCD								'寄託者CD
	Dim KitakuName								'寄託者名称
	Dim SyohinCD																'商品コード
	Dim KitakuFrom								'寄託期間始
	Dim KitakuTo								'寄託期間終
	Dim KitakuSuryo							 '寄託数量
	Dim Basyo								 '倉庫場所
	Dim TotalSyukosu							'総出庫数
	Dim SyukoZentaka							'出庫残高
	Dim NyukoNengappi								'入庫年月日
	Dim NyukoSuryo								'入庫数量
	Dim SokoBetsu							 '倉庫種別
	Dim Tekiyo									'摘要
	Dim Jyokaritsu								'従価率
	Dim Jyoryoritsu							 '従量率
	Dim Niyakuritsu							 '荷役率
	Dim KasaiRyoritsu	'火災保険料率
	Dim HanbaiTanka		'単価
	Dim SyohinJyuryo	'単量
	Dim Nisugata		'荷姿
	Dim Saisu			'才数
	Dim SyokenNum							 '倉荷証券番号
	Dim SyokenTesuryo						 '証券手数料
	Dim KasaiHokenKin			'火災保険料金
	Dim HokenRyokin													 '保険料金
	Dim NiyakuKin							 '荷役料金（入庫料）
	Dim HokanSougaku

	Dim HanbaiTankaMST							 '標準販売単価
	Dim SyohinJyuryoMST							'商品重量
	Dim SyohinYosekiMST				'商品容積



	Dim Query
	Dim Content
	Dim CContent

	NRflg = Request("nr")
	Action = Request("Action")




	KitakuNo = Request("KitakuNo")
	ErrMSG = Request("ErrMSG")

		'演習名称ＧＥＴ
	EnshuName = ConvEnshuMeisyo(EnshuCD)


	If NRflg = "r" then
		SyukkoNo = Request("SyukkoNo")
		'KitakuNo = Request("KitakuNo")
		ErrMsg = Request("ErrMsg")
	End If

	If Action = 2 Then		 '修正をする場合
		'対象データＧＥＴ保険情報取得
		Query = "exec SPC寄託取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& KitakuNo &""

		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			KitakuCD = Content.Fields("寄託者CD")
			KitakuName = Content.Fields("寄託者名称")
			SyohinCD = Content.Fields("商品CD")
			KitakuFrom = SetTimeYYYYMMDD(Content.Fields("寄託開始年月日"))
			KitakuTo = SetTimeYYYYMMDD(Content.Fields("寄託保管期日"))
			KitakuSuryo = Content.Fields("寄託数量")
			Basyo = Content.Fields("倉庫場所")
			TotalSyukosu = Content.Fields("総出庫数")
			SyukoZentaka = Content.Fields("残高")
			NyukoNengappi = SetTimeYYYYMMDD(Content.Fields("入庫年月日"))
			SokoBetsu = Content.Fields("倉庫種別")
			Tekiyo = Content.Fields("摘要")
			Jyokaritsu = Content.Fields("従価率")
			Jyoryoritsu = Content.Fields("従量率")
			Niyakuritsu = Content.Fields("荷役料率")
			SyokenNum = Content.Fields("倉荷証券番号")
			SyokenTesuryo = Content.Fields("倉荷証券発行手数料")
			HokanSougaku = Content.Fields("保管料金")
			KasaiHokenKin = Content.Fields("火災保険料金")

			KasaiRyoritsu = Content.Fields("火災保険料率")
			NiyakuKin = Content.Fields("荷役料金")
			HanbaiTanka = Content.Fields("単価")
			SyohinJyuryo = Content.Fields("単量")
			Nisugata = Content.Fields("荷姿")
			Saisu = Content.Fields("才数")

			Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				If Content.Fields("商品CD") = SyohinCD Then
					HanbaiTankaMST = Content.Fields("標準販売単価")
					SyohinJyuryoMST = Content.Fields("商品重量")
					SyohinYosekiMST = Content.Fields("商品容積")
				End If
				Content.MoveNext
			Loop

		End If
	end if

	Dim HyojunTankaHyoji
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示")
	End If

%>

<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?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="../../../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;
-->
</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')", "寄託", "", "", "", "", ""))

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_2( "一覧表示", "tblbtn( 'fu_kitaku_ichiran.asp')", "", "", "", "", "", "", "", ""))

	If Action =1 then
		Response.Write(HttpL4("寄託", "入力"))
	ElseIf Action =2 then
		Response.Write(HttpL4("寄託", "修正"))
	End If

%>


<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<form OnKeyDown="FormKeyDown(this)"	method="POST" action="fu_kitaku_bin.asp" name="form1" autocomplete="off">
<input type="hidden" name="Action" value="<%= Action %>">
<input type="hidden" name="KitakuName" value="<%= KitakuName %>">
	<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
		<tr>
			<td align="center">
				<table width="700" border="0" cellspacing="3" cellpadding="3" bgcolor="#ffffff" style="border: 1px solid #000000">
					<tr>
						<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"><!--薄青のチェックの背景-->
							<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="100%" HEIGHT="100%">
								<tr>
									<td>
										<table border="0" width="700" cellspacing="0" cellpadding="0">
											<tr>
												<td valign="top" width="340">
													<table border="0" width="100%">
														<tr>
															<td height="80" valign="top">
																<TABLE class="tx1618">
																	<TR>
																		<TD>受付番号</TD>
																		<TD><input type="text" name="KitakuNo" size="6" value="<%= KitakuNo %>"	readonly class="tbox4_ro"></TD>
																	</TR>
																	<TR>
																		<TD >寄託者</TD>
																		<TD>
																			<SELECT	size="1" name="KitakuCD" class="tbox4">
																				<option value="">　　　　</option>
																					<%
																						Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
																						Set Content = OpenQuery(Query)
																						Do While Not(Content.BOF Or Content.EOF)
																							Dim TmpKaisyaCD
																							TmpKaisyaCD = Content.Fields("会社CD")
																							If TmpkaisyaCD <> KaisyaCD Then
																								Response.Write("<option value=""" & Content.Fields("会社CD") & """")
																								If Content.Fields("会社CD") = KitakuCD Then
																									Response.Write(" selected")
																								End If
																								KitakuName=Content.Fields("会社名称")
																								Response.Write(">" & KitakuName & "</option>" & vbCrLf)
																							End If
																							Content.MoveNext
																						Loop
																					%>
																			</SELECT>
																		</TD>
																	</TR>
																	<TR>
																		<TD >商品名</TD>
																		<TD>
																			<SELECT size="1" name="SyohinCD" class="tbox4" onChange="SetSyohinData();" >
																				<option value="">　　　　</option>
																				<%
																					Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
																					Set Content = OpenQuery(Query)
																					Do While Not(Content.BOF Or Content.EOF)
																						Response.Write("<option value=""" & Content.Fields("商品CD") & """")
																						If Content.Fields("商品CD") = SyohinCD Then
																							Response.Write(" selected")
																						End If
																						Response.Write(">" & Content.Fields("商品名称") & "</option>" & vbCrLf)
																						Content.MoveNext
																					Loop
																				%>
																			</select>
																		</td>
																	</TR>
																</TABLE>
															</td>
														</tr>
														<tr>
															<td>
																<TABLE	BORDER="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="2" width="340">
																	<TR bgcolor="#DDDDDD">
																		<TD	align="center" height="23">寄託情報</TD>
																	</TR>
																	<TR>
																		<TD>
																			<TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618">
																				<TR>
																					<TD><nobr>貯蔵倉庫場所&nbsp;</nobr></TD>
																					<TD><INPUT size="33" type="text" name="Basyo" value="<%= Basyo %>" MAXLENGTH="30" class="tbox4_ime" onBlur="SetString(this, 30, true)"></td>
																				</TR>
																			</TABLE>
																			<TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618">
																				<TR height="23">
																					<TD>寄託期間&nbsp;</TD>
																					<TD>
																						<INPUT size="12" type="text" name="KitakuFrom" value="<%= KitakuFrom %>" onBlur="SetDate(this, 1, false)" onBlur="KitakuFromCheck();" class="tbox4">&nbsp;
																						～&nbsp;
																						<INPUT size="12" type="text" name="KitakuTo" value="<%= KitakuTo %>" onBlur="SetDate(this, 1, false)" onBlur="KitakuToCheck();" class="tbox4" >&nbsp;
																					</TD>
																				</TR>
																			</TABLE>
																			<TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618">
																				<TR height="23">
																					<TD>寄託数量&nbsp;</TD>
																					<TD>
																						 <input type="text" name="KitakuSuryo" size="11" onkeyup="ChangeMoney(this);" value="<%= SetNumber(KitakuSuryo, false) %>" onBlur="SetNumber(this, false, 10);SetSoka();SetSoryo();" class="tbox5">&nbsp;
																					</TD>
																					<TD>総出庫数&nbsp;</TD>
																					<TD>
																						 <input type="text" name="TotalSyukosu" size="11" onkeyup="ChangeMoney(this);" value="<%= SetNumber(TotalSyukosu, false) %>" readonly class="tbox5_ro">&nbsp;
																					</td>
																				</TR>
																				<TR height="23">
																					<TD></TD>
																					<TD></TD>
																					<TD align="right">出庫残高&nbsp;</TD>
																					<TD>
																						 <INPUT type="text" name="SyukoZentaka" size="11" onkeyup="ChangeMoney(this);" value="<%= SetMoney(SyukoZentaka, false, true) %>" readonly class="tbox5_ro">&nbsp;
																					</td>
																				</TR>
																			</TABLE>
																		</TD>
																	</TR>
																</TABLE>
															</td>
														</tr>
														<tr>
															<td>
																<TABLE BORDER="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="2" width="340">
																	<TR bgcolor="#DDDDDD">
																		<TD align="center" height="23">入庫情報</TD>
																	</TR>
																	<TR>
																		<TD>
																			<TABLE BORDER="0" class="tx1618" cellpadding="0">
																				<TR height="23">
																					<TD align="left" nowrap>入庫日&nbsp;</TD>
																					<TD><INPUT size="12" type="text" name="NyukoNengappi" value="<%= NyukoNengappi %>" onBlur="SetDate(this, 1, false)" onBlur="KitakuFromCheck();"	class="tbox4">&nbsp;</TD>
																					<TD align="left" nowrap>倉庫種別&nbsp;</TD>
																					<TD>
																						<SELECT name="SokoBetsu" class="tbox4">
																							<option value="">　　　　</option>
																								<%
																									Dim DataSibetsu
																									DataSibetsu="倉庫種別"
																									Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','" & DataSibetsu & "'"
																									Set Content = OpenQuery(Query)
																									Do While Not(Content.BOF Or Content.EOF)
																										Dim KubunCD
																										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>&nbsp;
																					</TD>
																				</TR>
																				<TR height="23">
																					<TD nowrap>摘　 要&nbsp;</TD>
																					<TD colspan="3"><INPUT size="42" type="text" name="Tekiyo" value="<%= Tekiyo %>" MAXLENGTH="30" class="tbox4_ime" onBlur="SetString(this, 30, true)" >&nbsp;</TD>
																				</TR>
																			</TABLE>
																			<TABLE border="0" class="tx1618" cellpadding="0">
																				<TR>
																					<TD>入庫料&nbsp;</TD>
																					<TD><INPUT type="text" name="NiyakuKin" size="12" value="<%= SetMoney(NiyakuKin, false, true) %>" class="tbox5">&nbsp;</TD>
																					<TD>円（1個あたり）</TD>
																				</TR>
																				<TR>
																					<TD colspan="2" align="right"><nobr>荷役料率（1ｔ につき）</nobr></TD>
																					<TD>
																						<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
																							<tr>
																								<td>
																									<INPUT type="text" name="Niyakuritsu" size="6" value="<%= SetMoney(Niyakuritsu, false, true) %>" onBlur="SetNumber(this, false, 9, 3);" class="tbox5">
																								</td>
																								<td>
																									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetNiyakuRyokin();" class="tx1618">
																										<TR>
																											<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2l.gif?<% = GB_STU %>">　</TD>
																											<TD WIDTH="85" CLASS="tbtn3w" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2c.gif?<% = GB_STU %>" WIDTH="100">入庫料計算</TD>
																											<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2r.gif?<% = GB_STU %>">　</TD>
																										</TR>
																									</TABLE>
																								</td>
																							</tr>
																						</table>
																					</TD>
																				</TR>
																				<TR>
																					<TD>保管料&nbsp;</TD>
																					<TD><INPUT type="text" name="HokanSougaku" size="12" value="<%= SetMoney(HokanSougaku, false, true) %>" class="tbox5">&nbsp;</TD>
																					<TD>円（1個あたり）</TD>
																				</TR>
																				<TR>
																					<TD colspan="2" align="right"><nobr>従価率（1000円につき）</nobr></TD>
																					<TD>
																						<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
																							<tr>
																								<td>
																									<INPUT type="text" name="Jyokaritsu" size="6" value="<%= SetMoney(Jyokaritsu, false, true) %>" onBlur="SetNumber(this, false, 9, 3);" class="tbox5">
																								</td>
																								<td>
																								</td>
																							</tr>
																						</table>
																					</TD>
																				</TR>
																				<TR>
																					<TD colspan="2" align="right"><nobr>従量率（1ｔ につき）</nobr></TD>
																					<TD>
																						<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
																							<tr>
																								<td>
																									<INPUT type="text" name="Jyoryoritsu" size="6" value="<%= SetMoney(Jyoryoritsu, false, true) %>" onBlur="SetNumber(this, false, 9, 3);" class="tbox5">
																								</td>
																								<td>
																									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetHokanRyokin();" class="tx1618">
																										<TR>
																											<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2l.gif?<% = GB_STU %>">　</TD>
																											<TD WIDTH="85" CLASS="tbtn3w" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2c.gif?<% = GB_STU %>" WIDTH="100">保管料計算</TD>
																											<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2r.gif?<% = GB_STU %>">　</TD>
																										</TR>
																									</TABLE>
																								</td>
																							</tr>
																						</table>
																					</TD>
																				</TR>
																			</TABLE>
																		</TD>
																	</TR>
																</TABLE>
															</td>
														</tr>
													</table>
												</td>
												<td valign="top">
													<table border="0" width="100%">
														<tr>
															<td height="80" valign="bottom">
																<TABLE border="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="2" width="100%">
																	<TR bgcolor="#DDDDDD">
																		<TD align="center" height="23">商品マスタ情報</TD>
																	</TR>
																	<TR>
																		<TD>
																			<TABLE class="tx1618" cellpadding="0">
																			<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
																				<TR>
																					<TD>標準販売単価&nbsp;</TD>
																					<TD><INPUT type="text" name="HanbaiTankaMST" size="14" value="<%= SetMoney(HanbaiTankaMST, false, true) %>" readonly class="tbox5_ro"></TD>
																					<TD align="right">円</TD>
																				</TR>
																			<% Else %>
																				<INPUT type="hidden" name="HanbaiTankaMST" value="<%= SetMoney(HanbaiTankaMST, false, true) %>">
																			<% End If %>
																				<TR>
																					<TD>商品重量&nbsp;</TD>
																					<TD>
																					 <INPUT type="text" name="SyohinJyuryoMST" size="14" value="<%= SetNumber(SyohinJyuryoMST, false) %>" readonly class="tbox5_ro">&nbsp;</TD>
																					<TD align="right">kg</TD>
																				</TR>
																			</TABLE>
																		</TD>
																	</TR>
																</TABLE>
															</td>
														</tr>
														<tr>
															<td>
																<TABLE border="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="2" width="100%">
																	<TR bgcolor="#DDDDDD">
																		<TD align="center" height="23">商品情報</TD>
																	</TR>
																	<TR>
																		<TD>
																			<TABLE class="tx1618" border="0" cellpadding="0">
																				<TR>
																					<TD><nobr>単価&nbsp;</nobr></TD>
																					<TD><INPUT type="text" name="HanbaiTanka" size="14" value="<%= SetMoney(HanbaiTanka, false, true) %>" class="tbox5" onkeyup="ChangeMoney(this);" onBlur="SetNumber(this, false, 10);SetSoka();"></TD>
																					<TD>円&nbsp;&nbsp;</TD>
																					<TD>総価&nbsp;</TD>
																					<TD><INPUT type="text" name="Soka" size="14" value="" readonly class="tbox5_ro"></TD>
																					<TD>円&nbsp;</TD>
																				</TR>
																				<TR>
																					<TD>単量</TD>
																					<TD><INPUT type="text" name="SyohinJyuryo" size="14" value="<%= SetNumber(SyohinJyuryo, false) %>" class="tbox5" onBlur="SetNumber(this, false, 10);SetSoryo();"></TD>
																					<TD>kg&nbsp;&nbsp;</TD>
																					<TD>総量&nbsp;</TD>
																					<TD><INPUT type="text" name="Soryo" size="14" value="" readonly class="tbox5_ro"></TD>
																					<TD>ｔ&nbsp;</TD>
																				</TR>
																				<TR>
																					<TD>荷姿&nbsp;</TD>
																					<TD><INPUT type="text" name="Nisugata" size="14" value="<%= Nisugata %>" class="tbox4_ime" onBlur="SetString(this, 30, true)" MAXLENGTH="30"></TD>
																					<TD></TD>
																					<TD>才数&nbsp;</TD>
																					<TD><INPUT type="text" name="Saisu" size="14" value="<%= SetNumber(Saisu, false) %>" class="tbox5" onBlur="SetNumber(this, false, 10);"></TD>
																					<TD></TD>
																				</TR>
																			</TABLE>
																		</TD>
																	</TR>
																</TABLE>
															</td>
														</tr>
														<tr>
															<td>
																<TABLE border="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="2" width="100%">
																	<TR bgcolor="#DDDDDD">
																		<TD align="center" height="23">倉荷証券情報</TD>
																	</TR>
																	<TR>
																		<TD>
																			<TABLE border="0" class="tx1618" cellpadding="0">
																				<TR>
																					<TD width="108">倉荷証券番号&nbsp;</TD>
																					 <TD><INPUT type="text" name="SyokenNum" size="20" value="<%= SyokenNum %>" MAXLENGTH="20" class="tbox4" onBlur="SetString(this, 40, true)">&nbsp;</TD>
																					 <TD></TD>
																				</TR>
																				<TR>
																					<TD>証券手数料&nbsp;</TD>
																					 <TD><INPUT type="text" name="SyokenTesuryo" size="20" value="<%= SetMoney(SyokenTesuryo, false, true) %>" onkeyup="ChangeMoney(this);" onBlur="SetMoney2(this, false, true);" class="tbox5">&nbsp;</TD>
																					 <TD align="right">円</TD>
																				</TR>
																			</TABLE>
																		</TD>
																	</TR>
																</TABLE>

															</td>
														</tr>
														<tr>
															<td class="tx1214">
																<TABLE border="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="2" width="100%">
																	<TR bgcolor="#DDDDDD">
																		<TD align="center" height="23">保険情報</TD>
																	</TR>
																	<TR>
																		<TD>
																			<TABLE border="0" class="tx1618" cellpadding="0">
																				<TR>
																					<TD width="108">火災保険料金&nbsp;</TD>
																					<TD><INPUT type="text" name="KasaiHokenKin" size="20" value="<%= SetMoney(KasaiHokenKin, false, true) %>" class="tbox5">&nbsp;</TD>
																					<TD align="right">円</TD>
																				</TR>
																				<TR>
																					<TD><nobr>料率<span class="tx1214">（1000円につき）</span></nobr></TD>
																					<TD colspan="2">
																						<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
																							<tr>
																								<td>
																									<INPUT type="text" name="KasaiRyoritsu" size="6" value="<%= SetMoney(KasaiRyoritsu, false, true) %>" onBlur="SetNumber(this, false, 9, 3);" class="tbox5">
																								</td>
																								<td>
																									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetHokenRyokin();" class="tx1618">
																										<TR>
																											<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2l.gif?<% = GB_STU %>">　</TD>
																											<TD WIDTH="85" CLASS="tbtn3w" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2c.gif?<% = GB_STU %>" WIDTH="100">保険料計算</TD>
																											<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2r.gif?<% = GB_STU %>">　</TD>
																										</TR>
																									</TABLE>
																								</td>
																							</tr>
																						</table>
																					</TD>
																				</TR>
																			</TABLE>
																		</TD>
																	</TR>
																</TABLE>
<br>
<br>
※1個あたり入庫料 ＝ （荷役料率 × 総量） ÷ 入庫数<br>
※1個あたり保管料<br>
&nbsp;&nbsp;&nbsp; ＝ （（従価率 × 総価 ÷ 1000） ＋ （従量率 × 総量）） ÷ 入庫数<br>
															</td>
														</tr>
													</table>
												</td>
											</tr>
										</table>
									</td>
								</tr>
							</table>
						</td>
					</tr>
				</table>
			</td>
		</tr>
	</table>
</form>
</div>
</body>



<SCRIPT LANGUAGE="JavaScript">

	function SetSoka() {
		var Tanka, Suryo;
		Tanka = ConvMoneyToInt(form1.HanbaiTanka.value, false, false);
		Suryo = ConvMoneyToInt(form1.KitakuSuryo.value, false, false);
		if (Tanka == "" || Suryo == "") {
			Kingaku = 0;
		} else {
			Kingaku = Tanka * Suryo;
		}
		form1.Soka.value = ConvIntToMoney(Kingaku, false, false);
	}

	function SetSoryo() {
		var SyohinJyuryo, Suryo;
//		SyohinJyuryo = ConvMoneyToInt(form1.SyohinJyuryo.value, false, false);
		SyohinJyuryo = ConvMoneyToFloat(form1.SyohinJyuryo.value);
		Suryo = ConvMoneyToInt(form1.KitakuSuryo.value, false, false);
		if (SyohinJyuryo == "" || Suryo == "") {
			Soryo = 0;
		} else {
			Soryo = SyohinJyuryo * Suryo;
			if (Soryo > 9999999999) {
				alert("総量が10桁を超えました　\n\n単量を入力し直してください　");
				form1.SyohinJyuryo.value = "";
				form1.Soryo.value = "";
				return false;
			}
		}
//		alert(Soryo);
		form1.Soryo.value = ConvIntToMoney(Math.ceil(Soryo / 1000), false, false);
	}

	function SetHokanRyokin() {
		var Suryo
		var Soka, Soryo
		var Jyokaritsu, Jyoryoritsu;
		var Jyokaryo, Jyoryoryo;
		Suryo = ConvMoneyToInt(form1.KitakuSuryo.value, false, false);
		Jyokaritsu = ConvMoneyToFloat(form1.Jyokaritsu.value, false, false);
		Jyoryoritsu = ConvMoneyToFloat(form1.Jyoryoritsu.value, false, false);
		SetSoka();
		Soka = ConvMoneyToInt(form1.Soka.value, false, false);
		SetSoryo();
		Soryo = ConvMoneyToFloat(form1.Soryo.value, false, false);
		if (Soka > 0 && Soryo > 0) {
			Jyokaryo = Math.floor(Math.ceil(Soka / 1000) * Jyokaritsu); //総価を1000円で割って切り上げて料率を掛けて切り捨て 
//			alert(Jyokaryo);
			Jyoryoryo = Math.floor(Soryo * Jyoryoritsu); //トン数×料率
//			alert(Jyoryoryo);
			if (Jyokaryo > 0 && Jyoryoryo > 0) {
				Kingaku = Jyokaryo + Jyoryoryo;
				if (Kingaku < 1000) {
					Kingaku = 1000;
				}
				//1個あたり
				Kingaku = Math.floor((Kingaku / Suryo) + 0.5);
				if (Kingaku < 1) {
					Kingaku = 1;
				}
				form1.HokanSougaku.value = ConvIntToMoney(Kingaku, false, false);
			}
		}
	}

	function SetNiyakuRyokin() {
		var Suryo;
		var Soryo;
		var Niyakuritsu;
		Suryo = ConvMoneyToInt(form1.KitakuSuryo.value, false, false);
		Niyakuritsu = ConvMoneyToFloat(form1.Niyakuritsu.value, false, false);
		SetSoryo();
		Soryo = ConvMoneyToFloat(form1.Soryo.value, false, false);
//		alert(Soryo);
		if (Soryo > 0 && Niyakuritsu > 0) {
			Kingaku = Math.floor(Soryo * Niyakuritsu); //トン数×料率
			//1個あたり
			Kingaku = Math.floor((Kingaku / Suryo) + 0.5);
			if (Kingaku < 1) {
				Kingaku = 1;
			}
			form1.NiyakuKin.value = ConvIntToMoney(Kingaku, false, false);
		}
	}

	function SetHokenRyokin() {
		var Soka, Ryoritsu;
		SetSoka();
		Soka = ConvMoneyToInt(form1.Soka.value, false, false);
		Ryoritsu = ConvMoneyToFloat(form1.KasaiRyoritsu.value, false, false);
		if (Ryoritsu == "") {
			Ryoritsu = 0;
		}
		form1.KasaiHokenKin.value = ConvIntToMoney(Math.floor(Soka / 1000 * Ryoritsu), false, false); //1000分の料率
	}

//################################################
//	名称：SetSyohinKakaku
//	目的：商品標準価格をセットする。
//　作成：2002/9/12　山崎
//################################################
	function SetSyohinData()
	{
	//alert ("00000000");
	//alert(document.form1["SyohinCD"].value);
	//alert(ConvSyohinHanbaiTanka(document.form1["SyohinCD"].value));

	form1["HanbaiTankaMST"].value = ConvIntToMoney(ConvSyohinHanbaiTanka(document.form1["SyohinCD"].value));
	form1["SyohinJyuryoMST"].value = ConvIntToMoney(ConvSyohinJyuryo(document.form1["SyohinCD"].value));
//	form1["SyohinYosekiMST"].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.KitakuCD.value == "")
		{
			alert("寄託者を入力してください　");
			form1.KitakuCD.focus();
			return false;
		}

		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;
		}
		SubmitReal(form1);
		return true;
	}

</script>
<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
	SetSoka();
	SetSoryo();
	form1.KitakuCD.select;
	form1.KitakuCD.focus();
	event.returnValue = false;
	return;
</SCRIPT>



<%= HtmlFooter %>
</html>

<%
End Sub
%>