<!-- #include file="../../../../include.asp" -->

<%
'<!--
'################################################
'	名称	:出庫情報設定設定
'	作成日:2002/12/18
'	作成者:重松
'	目的 :出庫情報入力画面を表示する。
'	概要	:
'	 <<表示>>
'	<<入力チェック>>
'	・NULLチェック
'
'	修正日:
'	修正者:
'	fu_syuko.asp
'################################################
'-->

main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim NRflg , ErrMSG , Action , setflg


	Dim MousikomiNum	'申込番号

	'保険
	Dim TorihikisakiCD,HokenkikanFrom,HokenkikanTo
	Dim Tanka																'単価
	Dim Suryo																'数量
	Dim Kakaku																'標準価格
	Dim Kingaku																'金額
	Dim Ryoritsu															'料率
	Dim HSyubetsuCode														'種別CD
	Dim Biko																'備考
	Dim Mosikomibi

	'出庫
	Dim SyukkoNo								'出庫番号
	Dim SyohinName								'商品名称
	Dim SyukoYMD								'出庫年月日
	Dim SyukoSuryo								'出庫数量
	Dim Kisu									'期数
	Dim SokoHokenRyo							'倉庫保管料
	Dim SokoNiyakukin							'倉庫荷役料金
	Dim SuryoTotal								'総出庫数
	Dim TempSuryoTotal							'Temp総出庫数
	'Dim SyukoZentaka							'出庫残高


	'寄託
	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 HanbaiTanka		'単価
	Dim SyohinJyuryo	'単量
	Dim Nisugata		'荷姿
	Dim Saisu			'才数
	Dim Syohinyouseki							'商品容積
	Dim SyokenNum								'倉荷証券番号
	Dim SyokenTesuryo							'証券手数料
	Dim HokenTanka								'火災保険単価
	Dim HokenSougaku							'火災保険総額
	Dim KasaiHokenKin							'火災保険料金
	Dim KasaiHokenRitsu							'火災保険料率
	Dim HokenRyokin								'保険料金
	Dim NiyakuKin								'荷役料金
	Dim HokanSougaku
	Dim NyukoTekiyo

	Dim GokeiKingaku, Syohizeigaku, ZeikomiKingaku

	Dim Query
	Dim Content
	Dim CContent

	NRflg = Request("nr")
	Action = Request("Action")
	KitakuNo = Request("KitakuNo")

	SyukkoNo = Request("SyukkoNo")
	ErrMSG = Request("ErrMSG")

	If NRflg = "r" then
		KitakuNo = Request("KitakuNo")
		KaisyaCD = Request("KaisyaCD")
		EnshuCD = Request("EnshuCD")
		ErrMsg = Request("ErrMsg")
	End If



	If ( Action = 2 or Action = 3) And isnumeric(SyukkoNo) Then		'検索の場合出庫情報取得
		Query = "exec SPC出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& SyukkoNo &""
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			KitakuNo = Content.Fields("寄託受付番号")
			SyukkoNo = Content.Fields("出庫番号")
			SyukoYMD = SetTimeYYYYMMDD(Content.Fields("出庫年月日"))
			SyukoSuryo = Content.Fields("出庫数量")
			Tekiyo = Content.Fields("摘要")
			Kisu = Content.Fields("期数")
			SokoHokenRyo = Content.Fields("保管料金")
			SokoNiyakukin = Content.Fields("荷役料金")
		End If
	End if

	If ((Action = 2) or (Action = 3) or (Action = 9)) And (isnumeric(KitakuNo)) 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")
			KitakuNo = Content.Fields("寄託受付番号")
			SyohinCD = Content.Fields("商品CD")
			Niyakukin = Content.Fields("荷役料金")
			Basyo = Content.Fields("倉庫場所")
			SokoBetsu = Content.Fields("倉庫種別")
			KitakuFrom = SetTimeYYYYMMDD(Content.Fields("寄託開始年月日"))
			KitakuTo = SetTimeYYYYMMDD(Content.Fields("寄託保管期日"))
			Jyokaritsu = Content.Fields("従価率")
			Jyoryoritsu = Content.Fields("従量率")
			Niyakuritsu = Content.Fields("荷役料率")
			NyukoNengappi = SetTimeYYYYMMDD(Content.Fields("入庫年月日"))
			KitakuSuryo = Content.Fields("寄託数量")
			SuryoTotal = Content.Fields("総出庫数")
			SyukoZentaka = KitakuSuryo - SuryoTotal ' Content.Fields("残高")

			HokanSougaku = Content.Fields("保管料金")

			HanbaiTanka = Content.Fields("単価")
			SyohinJyuryo = Content.Fields("単量")
			Nisugata = Content.Fields("荷姿")
			Saisu = Content.Fields("才数")

			NyukoTekiyo = Content.Fields("摘要")
		End If
	end if


	If ((Action = 9) or (Action = 2) or (Action = 3))	Then		'修正、検索の場合商品情報取得
	'If ((Action = 2) or (Action = 3)) And isnumeric(SyohinCD)	Then		 '修正、検索の場合商品情報取得
		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
				Syohinyouseki=Content.Fields("商品容積")
				SyohinName=Content.Fields("商品略名称")
			End If
			Content.MoveNext
		Loop
	end if


	If SokoHokenRyo = "" Then SokoHokenRyo = 0 End If
	If SokoNiyakukin = "" Then SokoNiyakukin = 0 End If

	GokeiKingaku = SokoHokenRyo + SokoNiyakukin
	Syohizeigaku = Int(GokeiKingaku * GB_Shohizei / 100)
	ZeikomiKingaku = GokeiKingaku + Syohizeigaku


	if not isnumeric(SyukoSuryo) then
		TempSuryoTotal=0
	else
		TempSuryoTotal=SyukoSuryo
	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

	Dim Soryo
	Soryo = 0
	Dim Soka
	Soka = 0
	If "" & KitakuSuryo <> "" And KitakuSuryo > 0 Then
		If "" & HanbaiTanka <> "" And HanbaiTanka > 0 Then
			Soka = HanbaiTanka * KitakuSuryo
		End If
		If "" & SyohinJyuryo <> "" And SyohinJyuryo > 0 Then
			'1トン未満を切り上げた総量
			Soryo = Fix((SyohinJyuryo * KitakuSuryo) / 1000)
			If (SyohinJyuryo * KitakuSuryo) Mod 1000 > 0 Then
				Soryo = Soryo + 1
			End If
		End If
	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" margin margin>

<form OnKeyDown="FormKeyDown(this)"	method="POST" action="fu_syuko_bin.asp" name="form1" autocomplete="off">
<!--Action????-->
<input type="hidden" name="Action" value="<%= Action %>">
<input type="hidden" name="SyohinCD" value="<%= SyohinCD %>">
<INPUT type="hidden" name="TempSuryoTotal" value="<%= TempSuryoTotal %>"	onkeyup="ChangeMoney(this);" onBlur="SetMoney2(this, false, true);">


<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(3))

	Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", "出庫", "", "", "", "", ""))

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))



	If Action =1 Then
		Response.Write(HttpL3_1("保存", "SubmitCheck()","", "", "", "", "", "", "", ""))
		Response.Write(HttpL3_2("", "", "一覧表示", "tblbtn( 'fu_syuko_ichiran.asp')", "", "", "", "", "", ""))
	ElseIf Action =2 Then
		Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))
		Response.Write(HttpL3_2("", "","一覧表示", "tblbtn( 'fu_syuko_ichiran.asp')", "", "", "", "", "", ""))
	ElseIf Action =3 Then
		Response.Write(HttpL3_1("修正", "tblbtn( 'fu_syuko.asp?Action=2&SyukkoNo=" & SyukkoNo &	"&KitakuNo=" & KitakuNo & "')", "削除", "DeleteCheck()", "", "", "", "", "", ""))
		Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fu_syuko_ichiran.asp')", "", "",	"", "", "", "", "", ""))
	ElseIf Action =9 Then
		Response.Write(HttpL3_1("保存", "SubmitCheck()","", "", "", "", "", "", "", ""))
		Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fu_syuko_ichiran.asp')", "", "","", "", "", "", "", ""))
	End If

	if Action =1 then
		Response.Write(HttpL4("出庫", "入力"))
	ElseIf Action =9 then
		Response.Write(HttpL4("出庫", "入力"))
	ElseIf Action =2 then
		Response.Write(HttpL4("出庫", "修正"))
	ElseIf Action =3 then
		Response.Write(HttpL4("出庫", "照会"))
	End If
%>


<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">

	<table 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"><!--薄青のチェックの背景-->
							<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="100%" HEIGHT="100%">
								<tr>
									<td valign="top">
										<table border="0" width="340" CELLSPACING="0" CELLPADDING="2">
											<TR valign="top">
												<TD valign="top">
													<table border="0" CELLSPACING="0" CELLPADDING="2" class="tx1618">
														<TR>
															<TD>出庫番号</TD>
															<TD><INPUT	type="text" name="SyukkoNo" size="6" value="<%= SyukkoNo %>" readonly class="tbox4_ro">&nbsp;&nbsp;&nbsp;
															寄託受付番号&nbsp;
															<% If (Action = 2) or (Action = 3) Then	%>
															<INPUT type="text" name="KitakuNo" size="6" value="<%= KitakuNo %>" readonly class="tbox4_ro">
															<% else %>
															<SELECT	name="KitakuNo" class="tbox4" onChange="SetKitakuData();">
															<option value="">   </option>
															<%
															Query = "exec SPM寄託受付番号取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
															Set Content = OpenQuery(Query)

																Do While Not(Content.BOF Or Content.EOF)
																		Response.Write("<option value=""" & Content.Fields("寄託受付番号") & """")
																		If Content.Fields("寄託受付番号") = KitakuNo Then
																			Response.Write(" selected")
																		End If
																		'Response.Write(">" & ConvKaisyaMeisyoDx(EnshuCD, Content.Fields("会社CD")) & "</option>" & vbCrLf)
																		Response.Write(">" & Content.Fields("寄託受付番号") & "</option>" & vbCrLf)
																	Content.MoveNext
																Loop
															%>
																</select>
															<% end if %>
															</td>
														</TR>
														<TR>
															<TD>寄託者</TD>
															<TD><INPUT	type="text" size="40" name="KitakuCD" value="<%= ConvKaisyaMeisyo(KitakuCD) %>" readonly class="tbox4_ro"></td>
														</TR>
														<TR>
															<TD>商品名</TD>
															<TD><INPUT	type="text" size="40" name="SyohinName" value="<%= SyohinName %>" readonly class="tbox4_ro"></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 %>" class="tbox4_ro" readonly></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 %>" class="tbox4_ro" readonly>&nbsp;
																						~&nbsp;
																						<INPUT size="12" type="text" name="KitakuTo" value="<%= KitakuTo %>" class="tbox4_ro" readonly>&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" value="<%= SetNumber(KitakuSuryo, false) %>" class="tbox5_ro" readonly>&nbsp;
																					</TD>
																					<TD>総出庫数&nbsp;</TD>
																					<TD>
																						 <input type="text" name="SuryoTotal" size="11" value="<%= SetNumber(SuryoTotal, 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" cellspacing="0" cellpadding="2" class="tx1618">
																				<TR>
																					<TD><nobr>出庫日&nbsp;</nobr></TD>
																					<TD><INPUT	type="text" name="SyukoYMD" value="<%= SyukoYMD %>" onBlur="SetDate(this, 1, true, '<%= KitakuFrom %>', '<%= KitakuTo %>');Kisuu();" class="tbox4" size="12"></TD>
																					<TD>&nbsp;&nbsp;</TD>
																					<TD><nobr>期数&nbsp;</nobr></TD>
																					<TD><input type="text" name="Kisu"	value="<%= SetNumber(Kisu, false) %>" readonly class="tbox5_ro" size="6"></TD>
																				</TR>
																			</TABLE>
																			<TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618">
																				<TR>
																					<TD>出庫数量&nbsp;</TD>
																					<TD><input type="text" name="SyukoSuryo"	value="<%= SetNumber(SyukoSuryo, false) %>" onBlur="SetNumber(this, false, 9)" class="tbox5" size="8"></TD>
																				</TR>
																			</TABLE>
																			<TABLE border="0" cellspacing="0" class="tx1618" cellpadding="2">
																				<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>荷役料率(1t につき)</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>
																			</TABLE>
																			<TABLE border="0" class="tx1618" cellpadding="0">
																				<TR>
																					<TD>荷役料&nbsp;</TD>
																					<TD align="top"><INPUT type="text" name="SokoNiyakukin" value="<%= SetMoney(SokoNiyakukin, false, true) %>" onkeyup="ChangeMoney(this);" onBlur="SetMoney2(this, false, false);SetGokei();" class="tbox5" size="14"></TD>
																				</TR>
																				<TR>
																					<TD>保管料&nbsp;</TD>
																					<TD align="top"><INPUT type="text" name="SokoHokenRyo"	value="<%= SetMoney(SokoHokenRyo, false, true) %>" onkeyup="ChangeMoney(this);" onBlur="SetMoney2(this, false, false);SetGokei();" class="tbox5" size="14"></TD>
																								<td>
																									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetNiyakuHokanRyokin();SetGokei();" 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>
																			<TABLE border="0" class="tx1618" cellpadding="0">
																	<TR>
																		<TD>合計金額</TD>
																		<TD>消費税額</TD>
																		<TD>請求倉庫料金</TD>
																	</TR>
																	<TR>
																		<TD><INPUT type="text" name="GokeiKingaku" value="<%= SetMoney(GokeiKingaku, false, true) %>" class="tbox5_ro" readonly size="15">&nbsp;</TD>
																		<TD><INPUT type="text" name="Syohizeigaku" value="<%= SetMoney(Syohizeigaku, false, true) %>" class="tbox5_ro" readonly size="13">&nbsp;&nbsp;</TD>
																		<TD><INPUT type="text" name="ZeikomiKingaku" value="<%= SetMoney(ZeikomiKingaku, false, true) %>" class="tbox5_ro" readonly size="15"></TD>
																	</TR>
																			</TABLE>
																			<TABLE border="0" class="tx1618" cellpadding="0">
																		<TR>
																			<TD>摘要&nbsp;<INPUT type="text" name="Tekiyo" value="<%= Tekiyo %>" onBlur="SetString(this, 30, true)" class="tbox4_ime" size="45"></TD>
																		</TR>
																			</TABLE>

																		</TD>
																	</TR>
																</TABLE>

												</TD>
											</TR>
										</TABLE>
									</TD>
									<TD valign="top">
										<table border="0" width="340" CELLSPACING="0" CELLPADDING="2">
											<TR valign="top">
												<TD valign="top">
													<TABLE width="350" height="81" align="center" class="tx1618" border="0" CELLSPACING="0" CELLPADDING="2" STYLE="border-collapse: collapse">
														<tr>
															<td>
															</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>単価&nbsp;</TD>
																					<TD><INPUT type="text" name="HanbaiTanka" size="14" value="<%= SetMoney(HanbaiTanka, false, true) %>" class="tbox5_ro" readonly></TD>
																					<TD>円&nbsp;&nbsp;</TD>
																					<TD>総価&nbsp;</TD>
																					<TD><INPUT type="text" name="Soka" size="14" value="<%= SetMoney(Soka, false, true) %>" 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_ro" readonly></TD>
																					<TD>kg&nbsp;&nbsp;</TD>
																					<TD>総量&nbsp;</TD>
																					<TD><INPUT type="text" name="Soryo" size="14" value="<%= SetNumber(Soryo, false) %>" readonly class="tbox5_ro"></TD>
																					<TD>t&nbsp;</TD>
																				</TR>
																				<TR>
																					<TD>荷姿&nbsp;</TD>
																					<TD><INPUT type="text" name="Nisugata" size="14" value="<%= Nisugata %>" class="tbox4_ro" readonly></TD>
																					<TD></TD>
																					<TD>才数&nbsp;</TD>
																					<TD><INPUT type="text" name="Saisu" size="14" value="<%= SetNumber(Saisu, false) %>" class="tbox5_ro" readonly></TD>
																					<TD></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="350">
																	<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">入庫日&nbsp;</TD>
																					<TD><INPUT size="12" type="text" name="NyukoNengappi" value="<%= NyukoNengappi %>" class="tbox4_ro" readonly>&nbsp;</TD>
																					<TD align="left"><nobr>倉庫種別&nbsp;</nobr></TD>
																					<TD><INPUT size="12" type="text" name="SokoBetsu" value="<%
																									Dim DataSibetsu
																									DataSibetsu="倉庫種別"
																									Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','" & DataSibetsu & "'"
																									Set Content = OpenQuery(Query)
																									Do While Not(Content.BOF Or Content.EOF)
																										If Content.Fields("区分CD") = SokoBetsu Then
																											Response.Write(Content.Fields("区分名称"))
																											Exit Do
																										End If
																										Content.MoveNext
																									Loop
																					%>" class="tbox4_ro" readonly>&nbsp;</TD>
																				</TR>
																				<TR height="23">
																					<TD>摘  要&nbsp;</TD>
																					<TD colspan="3"><INPUT size="42" type="text" name="NyukoTekiyo" value="<%= NyukoTekiyo %>" class="tbox4_ro" readonly>&nbsp;</TD>
																				</TR>
																			</TABLE>
																			<TABLE border="0" class="tx1618" cellpadding="0">
																				<TR>
																					<TD>入庫料&nbsp;</TD>
																					<TD><INPUT type="text" name="NiyakuKinNyuko" size="15" value="<%= SetMoney(NiyakuKin, false, true) %>" class="tbox5_ro" readonly>&nbsp;</TD>
																					<TD>円(1個あたり)</TD>
																				</TR>
																				<TR>
																					<TD colspan="2" align="right"><nobr>荷役料率(1t につき)</nobr></TD>
																					<TD>
																						<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
																							<tr>
																								<td>
																									<INPUT type="text" name="NiyakuritsuNyuko" size="6" value="<%= SetMoney(Niyakuritsu, false, true) %>" class="tbox5_ro" readonly>&nbsp;円
																								</td>
																							</tr>
																						</table>
																					</TD>
																				</TR>
																				<TR>
																					<TD>保管料&nbsp;</TD>
																					<TD><INPUT type="text" name="HokanSougaku" size="15" value="<%= SetMoney(HokanSougaku, false, true) %>" class="tbox5_ro" readonly>&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="JyokaritsuNyuko" size="6" value="<%= SetMoney(Jyokaritsu, false, true) %>" class="tbox5_ro" readonly>&nbsp;円
																								</td>
																								<td>
																								</td>
																							</tr>
																						</table>
																					</TD>
																				</TR>
																				<TR>
																					<TD colspan="2" align="right"><nobr>従量率(1t につき)</nobr></TD>
																					<TD>
																						<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
																							<tr>
																								<td>
																									<INPUT type="text" name="JyoryoritsuNyuko" size="6" value="<%= SetMoney(Jyoryoritsu, false, true) %>" class="tbox5_ro" readonly>&nbsp;円
																								</td>
																							</tr>
																						</table>
																					</TD>
																				</TR>
																			</TABLE>
																		</TD>
																	</TR>
																</TABLE>
<br>
<br>
<br>
<br>
※荷役料 = (1個あたり入庫料 + 1個あたり出庫料) × 出庫数<br>
※保管料 = 1個あたり保管料 × 期数 × 出庫数<br>
												</td>
											</tr>
										</TABLE>
									</TD>
								</TR>
							</TABLE>
						</td>
					</tr>
				</table>
			</td>
		</tr>
	</table>			
</form>
</div>
</body>

<SCRIPT LANGUAGE="JavaScript">

	function SetNiyakuRyokin() {
		var Suryo
		var Soryo
		var Niyakuritsu
		Suryo = ConvMoneyToInt(form1.KitakuSuryo.value, false, false);
		Niyakuritsu = ConvMoneyToFloat(form1.Niyakuritsu.value, false, false);
		Soryo = ConvMoneyToFloat(form1.Soryo.value, false, false);
		Kingaku = Math.floor(Soryo * Niyakuritsu); //トン数×料率
		//1個あたり
		Kingaku = Kingaku / Suryo;
		form1.NiyakuKin.value = ConvIntToMoney(Kingaku, false, false);
	}

	function SetNiyakuHokanRyokin() {
		var SyukoSuryo;
		var NiyakuKinNyuko;
		var NiyakuKin;
		var Kisu;
		var HokanSougaku;
		SyukoSuryo = ConvMoneyToInt(form1.SyukoSuryo.value, false, false);
		NiyakuKinNyuko = ConvMoneyToFloat(form1.NiyakuKinNyuko.value, false, false);
		NiyakuKin = ConvMoneyToFloat(form1.NiyakuKin.value, false, false);
		Kisu = ConvMoneyToFloat(form1.Kisu.value, false, false);
		HokanSougaku = ConvMoneyToFloat(form1.HokanSougaku.value, false, false);
		Kingaku = Math.ceil((NiyakuKinNyuko + NiyakuKin) * SyukoSuryo);
		form1.SokoNiyakukin.value = ConvIntToMoney(Kingaku, false, false);
		Kingaku = Math.ceil((HokanSougaku) * Kisu * SyukoSuryo);
		form1.SokoHokenRyo.value = ConvIntToMoney(Kingaku, false, false);
	}


now = 'menu0' ;
check = 0 ;
menuflag = 0 ;
//################################################
//	名称:SetKitakuData
//	目的:寄託情報をセットする。
// 作成:2003/01/07 重松
//################################################
	function SetKitakuData()
	{
		var v,i;
		var Action,KitakuNo;
		i = form1.KitakuNo.selectedIndex;
		v = form1.KitakuNo.options[i].value;
		Action=9;

		tblbtn("fu_syuko.asp?Action=9&KitakuNo=" + v);



	}

//################################################
//	名称:SetKitakuData
//	目的:寄託情報をセットする。
// 作成:2003/01/07 重松
//################################################
	function SetSyusei()
	{
		var v,i;
		var Action,KitakuNo;
		i = form1.KitakuNo.selectedIndex;
		v = form1.KitakuNo.options[i].value;
		Action=2;
		ExitFlg = 0;
		tblbtn("fu_syuko.asp?Action=2&KitakuNo=" + v);



	}

//################################################
//	名称:SetSyohinData
//	目的:商品標準価格をセットする。
// 作成:2003/1/8 重松
//################################################
	function SetSyohinData()
	{
	form1["Hanbaitanka"].value = ConvIntToMoney(ConvSyohinHanbaiTanka(document.form1["SyohinCD"].value));
	form1["Syohinjyuryo"].value = ConvIntToMoney(ConvSyohinJyuryo(document.form1["SyohinCD"].value));
	form1["Syohinyouseki"].value = ConvIntToMoney(ConvSyohinYouseki(document.form1["SyohinCD"].value));
	form1["SyohinName"].value = ConvSyohinMeisyo(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 "";
	}

//################################################
//	名称:ConvSyohinJyuryo
//	目的:商品リストの表示
// 作成: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 "";
	}

//################################################
//	名称:ConvSyohinYouseki
//	目的:商品リストの表示
// 作成:2002/12/25 重松
// 概要:TS商品Mの商品容積を返す。
//################################################
	function ConvSyohinYouseki(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 "";
	}

//################################################
//	名称:ConvSyohinMeisyo
//	目的:商品リストの表示
// 作成:2002/8/26 川崎
// 概要:TS商品Mの商品略名称を返す。
//################################################
	function ConvSyohinMeisyo(SyohinCD)
	{
<%
	'Dim Query
	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 "";
	}

//################################################
//	名称:SetKingaku
//	目的:保険料金金額の値をセットする。
//################################################
	function SetKingaku()
	{
		var Kingaku;

		if (form1["Kingaku"].value == "" || form1["Ryoritsu"].value == "" )
		{
			form1["HokenRyokin"].value = "";
		}
		else
		{
			Kingaku = ConvMoneyToInt(form1["Ryoritsu"].value) * ConvMoneyToInt(form1["Kingaku"].value)/1000;
			form1["HokenRyokin"].value = ConvIntToMoney(Kingaku, false, false);
		}

		if (form1["Tanka"].value == "" || form1["Suryo"].value == "" )
		{
			form1["Kingaku"].value = "";
		}
		else
		{
			Kingaku = ConvMoneyToInt(form1["Tanka"].value) * ConvMoneyToInt(form1["Suryo"].value);
			form1["Kingaku"].value = ConvIntToMoney(Kingaku, false, false);
		}

	}

	function SubmitCheck()
	{
		var HokenkikanFrom;
		var HokenkikanTo;
		var dateNum;

		if (form1.KitakuNo.value == "")
		{
			alert("寄託者受付番号を選択してください");
			form1.KitakuNo.focus();
			return false;
		}

		if (form1.SyukoYMD.value == "")
		{
			alert("出庫年月日を入力してください");
			form1.SyukoYMD.focus();
			return false;
		}
		if (form1.SyukoSuryo.value == "")
		{
			alert("出庫数量を入力してください");
			form1.SyukoSuryo.focus();
			return false;
		}
		if (form1.SokoHokenRyo.value == "")
		{
			alert("倉庫保管料を入力してください");
			form1.SokoHokenRyo.focus();
			return false;
		}
		if (form1.SokoNiyakukin.value == "")
		{
			alert("倉庫荷役料金を入力してください");
			form1.SokoNiyakukin.focus();
			return false;
		}


		SubmitReal(form1);
		return true;
	}

	function DeleteCheck()
	{

		var flag;
		flag=confirm("削除をしますか?");
		if (flag)
		{
			tblbtn( "fu_syuko_bin.asp?Action=4&EnshuCD=<%= EnshuCD %>&SyukkoNo=" + document.form1["SyukkoNo"].value + "&KaisyaCD=<%= KaisyaCD %>") ;
			return true;
		}
		else
		{
			return false;
		}

	}

//################################################
//	名称:Kisuu
//	目的:期数算出
// 作成:2003/01/09 重松
//################################################
	function Kisuu()
	{
		var S_KISUU;
		var W_KISUU;
		var WK_SMM, WK_SDD, WK_SKI, WK_TMM, WK_TDD, WK_TKI;
		var WK_SYY, WK_TYY ;
		var WK_KISU1, WK_KISU2;


		if (form1["KitakuFrom"].value == "")
		{
			alert("まだ商品が入庫されていないため出庫処理は出来ません");
			return false;
		}



			//20030110-13-UPD	START
		var DateStr;
		var DateStrKitaku;
		var DateStrSyukko;
		DateStrKitaku = form1["KitakuFrom"].value;
		DateStrSyukko = form1["SyukoYMD"].value;

		DateStrKitaku = new Date(DateStrKitaku);
		DateStrSyukko = new Date(DateStrSyukko);


		WK_SYY = DateStrKitaku.getFullYear();
		WK_SMM = DateStrKitaku.getMonth();
		WK_SDD = DateStrKitaku.getDate();

		WK_TYY = DateStrSyukko.getFullYear();
		WK_TMM = DateStrSyukko.getMonth();
		WK_TDD = DateStrSyukko.getDate();




//寄託開始年月日の年月日取得


//*******期数計算*************
	if(WK_SDD <= 10){WK_SKI=1;}
	else if(WK_SDD <= 20){WK_SKI=2;}
	else{WK_SKI=3;}



	if( WK_SYY == WK_TYY)
	{
		if(WK_TDD <= 10){WK_TKI=1;}
		else if(WK_TDD <= 20){WK_TKI=2;}
		else{WK_TKI=3;}
	}
	else
	{
		WK_TMM=12;
		WK_TDD=31;
		WK_TKI=3;
	}

	S_KISUU=WK_TMM * 3 + WK_TKI - (WK_SMM * 3 + WK_SKI) + 1;
	WK_KISU1=S_KISUU;


	if ( WK_SYY == WK_TYY)
	{
		form1["Kisu"].value =S_KISUU;
		return ;
	}

	WK_SKI = 1;
	WK_SMM = 1;
	WK_SDD = 1;

	if(WK_TDD <= 10){WK_TKI=1;}
	else if(WK_TDD <= 20){WK_TKI=2;}
	else{WK_TKI=3;}

	WK_KISU2=WK_TMM * 3 + WK_TKI - (WK_SMM * 3 + WK_SKI) + 1;
	S_KISUU=WK_KISU1 + WK_KISU2;


	form1.Kisu.value =S_KISUU;
	return ;


}

//################################################
//	名称:SyukoSuryoAfter()
//	目的:出庫数量変更後処理
// 作成:2003/01/10 重松
//################################################
	function SyukoSuryoAfter()
	{
	var WK_SU;
	var TempSuryoTotal;
	var Jyokaryo;
	var Jyoryoryo;
	var SokoHokenRyo;
	var SokoNiyakukin;


		if (form1["SyukoSuryo"].value == "")
		{
		alert("出庫数量入力して下さい");
		event.returnValue = false;
		return;
		}

		if (form1["SyukoSuryo"].value == 0)
		{
		alert("出庫数量が0個では出庫の意味をなしません");
		event.returnValue = false;
		return;
		}


		if (ConvMoneyToInt(form1["TempSuryoTotal"].value) < ConvMoneyToInt(form1["SyukoSuryo"].value))
		{
			WK_SU=ConvMoneyToInt(form1["SuryoTotal"].value)+((ConvMoneyToInt(form1["SyukoSuryo"].value))-(ConvMoneyToInt(form1["TempSuryoTotal"].value)));
		}
		else
	{
			WK_SU=ConvMoneyToInt(form1["SuryoTotal"].value)-((ConvMoneyToInt(form1["TempSuryoTotal"].value))-(ConvMoneyToInt(form1["SyukoSuryo"].value)));
	}

		if (ConvMoneyToInt(form1["KitakuSuryo"].value) < WK_SU)
		{
		alert("入庫数量より多くの出荷は許されません");
		event.returnValue = false;
		return;
		}

		form1["SuryoTotal"].value=WK_SU;
		form1["SuryoTotal"].value=ConvMoneyToInt(form1["SuryoTotal"].value);
		form1["SyukoZentaka"].value=ConvMoneyToInt(form1["KitakuSuryo"].value) - ConvMoneyToInt(form1["SuryoTotal"].value);



//請求倉庫料金計算
//従価保管料計算、従量保管料計算
		Jyokaryo = (ConvMoneyToInt(form1["Jyokaritsu"].value) * ConvMoneyToInt(form1["Hanbaitanka"].value))/1000;
		Jyoryoryo = (ConvMoneyToInt(form1["Jyoryoritsu"].value) * ConvMoneyToInt(form1["Syohinjyuryo"].value))/1000;
//倉庫保管料計算、倉庫荷役料金計算
	//SokoHokenRyo=(Jyokaryo + Jyoryoryo) * (ConvMoneyToInt(form1["SyukoSuryo"].value)) * (ConvMoneyToInt(form1["Kisu"].value));
	SokoHokenRyo=(Jyokaryo + Jyoryoryo) *(form1["SyukoSuryo"].value) * (form1["Kisu"].value)
	form1["SokoHokenRyo"].value=ConvIntToMoney(Math.floor(SokoHokenRyo), false, false);
	//SokoNiyakukin= (ConvMoneyToInt(form1["Niyakuritsu"].value) * ConvMoneyToInt(form1["SyukoSuryo"].value))*2;
	SokoNiyakukin= (form1["Niyakuritsu"].value) * (form1["SyukoSuryo"].value) * 2;
	//form1["SokoNiyakukin"].value=ConvIntToMoney(SokoNiyakukin, false, false);
	form1["SokoNiyakukin"].value=SokoNiyakukin;

//請求倉庫料金計算

	form1["Sokoryokin"].value=ConvIntToMoney(Sokoryokin, false, false);

	}


	function SetGokei()
	{
		var SokoHokenRyo, SokoNiyakukin;
		var GokeiKingaku, Syohizeigaku, ZeikomiKingaku;
		SokoHokenRyo = ConvMoneyToInt(form1.SokoHokenRyo.value, false, false);
		SokoNiyakukin = ConvMoneyToInt(form1.SokoNiyakukin.value, false, false);
		
		if(isNaN(SokoHokenRyo) || isNaN(SokoNiyakukin))return;
		if(SokoHokenRyo == "")SokoHokenRyo = 0;
		if(SokoNiyakukin == "")SokoNiyakukin = 0;

		GokeiKingaku = SokoHokenRyo + SokoNiyakukin;
		Syohizeigaku =  Math.floor(GokeiKingaku * <%= GB_Shohizei %> / 100);
		ZeikomiKingaku = GokeiKingaku + Syohizeigaku;
	
		form1.GokeiKingaku.value = ConvIntToMoney(GokeiKingaku, false, false);
		form1.Syohizeigaku.value = ConvIntToMoney(Syohizeigaku, false, false);
		form1.ZeikomiKingaku.value = ConvIntToMoney(ZeikomiKingaku, false, false);

	}

</script>


<%= HtmlFooter %>
</html>

<%
End Sub
%>