<%

Function Uososyuko(EnshuCD, KaisyaCD, SyukkoNo, AutoFlg, PrintFlg)

	Dim TekiyoCD	'摘要コード
	Dim MousikomiNum	'申込番号
	Dim KanrenKaisyaCD	'会社コード、関連会社コード

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

	Dim HanbaiTanka		'単価
	Dim SyohinJyuryo	'単量
	Dim Nisugata		'荷姿
	Dim Saisu			'才数

	'出庫
'	Dim SyukkoNo								'出庫番号
	Dim KitakuNo								'寄託者受付番号
	Dim KitakuCD								'寄託者CD
	Dim SyohinCD								'商品コード
	Dim SyohinName						 		'商品名称
	Dim Basyo									'倉庫場所
	Dim SokoBetsu								'倉庫種別
	Dim KitakuFrom								'寄託期間始
	Dim KitakuTo								'寄託期間終
	Dim SyukoYMD								'出庫年月日
	Dim SyukoSuryo								'出庫数量
	Dim Tekiyo									'摘要
	Dim Kisu									'期数
	Dim SokoHokenRyo							'倉庫保管料
	Dim SokoNiyakukin							'倉庫荷役料金
	Dim Jyokaritsu								'従価率
	Dim Jyoryoritsu								'従量率
	Dim Niyakuritsu								'荷役率
	Dim SyohinYoseki							'商品容積
	Dim NyukoNengappi								'入庫日
	Dim KitakuSuryo								'入庫数量
	Dim SuryoTotal								'総出庫数
	Dim SyukoZentaka							'出庫残高
	Dim GokeiKingaku, Syohizeigaku, ZeikomiKingaku
	Dim Query
	Dim Content

	Dim NiyakuKin								'荷役料金
	Dim HokanSougaku
	Dim NyukoTekiyo


	MousikomiNum = Request("MousikomiNum")

'	SyukkoNo = Request("SyukkoNo")



		'対象データGET保険情報取得
	Query = "exec SPC出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& SyukkoNo &""

	Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			SyukkoNo = Content.Fields("出庫番号")
			KitakuCD = Content.Fields("寄託者CD")
			KitakuNo = Content.Fields("寄託受付番号")
			SyohinCD = Content.Fields("商品CD")
			SyukoYMD = SetTimeYYYYMMDD(Content.Fields("出庫年月日"))
			SyukoSuryo = Content.Fields("出庫数量")
			Tekiyo = Content.Fields("摘要")
			Kisu = Content.Fields("期数")
			SokoHokenRyo = Content.Fields("保管料金")
			SokoNiyakukin = Content.Fields("荷役料金")

			'SyohinName = Content.Fields("会社CD")
			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("残高")
		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


		Query = "exec SPC寄託取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'," & KitakuNo

		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			KitakuCD = Content.Fields("寄託者CD")
			KitakuSuryo = Content.Fields("寄託数量")
			SuryoTotal = Content.Fields("総出庫数")
			SyukoZentaka = KitakuSuryo - SuryoTotal ' Content.Fields("残高")
			Niyakukin = Content.Fields("荷役料金")

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

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

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


	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
			SyohinJyuryo = Content.Fields("商品重量")
			SyohinYoseki = Content.Fields("商品容積")
		End If
		Content.MoveNext
	Loop


	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


	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


%>

<table border="0" width="650" CELLSPACING="0" CELLPADDING="2">
	<tr>
		<td>
			<TABLE BORDER="0" width="350" height="100%" CELLSPACING="0" CELLPADDING="2">
				<TR>
					<TD valign="top">
						<TABLE class="tx1618" border="0" CELLSPACING="0" CELLPADDING="2">
							<TR>
								<TD>出庫番号&nbsp;</TD>
								<TD><%= SyukkoNo %>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
								寄託受付番号&nbsp;
								<%= KitakuNo %></td>
							</TR>
														<TR>
															<TD>寄託者</TD>
															<TD><%= ConvKaisyaMeisyo(KitakuCD) %></td>
														</TR>
							<TR>
								<TD>商品名</TD>
								<TD><%= ConvSyohinRyakuMeisyo(SyohinCD) %></td>
							</TR>
						</TABLE>
					</TD>
				</TR>
				<TR>
					<TD height="100">
						<TABLE border="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" width="340" class="tx1618" CELLSPACING="0" CELLPADDING="2">
							<TR>
								<TD bgcolor="#DDDDDD" align="center" height="23">寄託情報</TD>
							</TR>
							<TR>
								<TD>
																			<TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618">
																				<TR>
																					<TD><nobr>貯蔵倉庫場所&nbsp;</nobr></TD>
																					<TD><%= Basyo %></td>
																				</TR>
																			</TABLE>
																			<TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618">
																				<TR height="23">
																					<TD>寄託期間&nbsp;</TD>
																					<TD>
																						<%= KitakuFrom %>&nbsp;~&nbsp;<%= KitakuTo %>&nbsp;
																					</TD>
																				</TR>
																			</TABLE>
																			<TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618">
																				<TR height="23">
																					<TD>寄託数量&nbsp;</TD>
																					<TD>
																						 <%= SetNumber(KitakuSuryo, false) %>&nbsp;&nbsp;&nbsp;
																					</TD>
																					<TD>総出庫数&nbsp;</TD>
																					<TD>
																						 <%= SetNumber(SuryoTotal, false) %>&nbsp;
																					</td>
																				</TR>
																				<TR height="23">
																					<TD></TD>
																					<TD></TD>
																					<TD align="right">出庫残高&nbsp;</TD>
																					<TD>
																						 <%= SetMoney(SyukoZentaka, false, true) %>&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><%= SyukoYMD %></TD>
																					<TD>&nbsp;&nbsp;</TD>
																					<TD><nobr>期数&nbsp;</nobr></TD>
																					<TD><%= SetNumber(Kisu, false) %></TD>
																				</TR>
																			</TABLE>
																			<TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618">
																				<TR>
																					<TD>出庫数量&nbsp;</TD>
																					<TD><%= SetNumber(SyukoSuryo, false) %></TD>
																				</TR>
																			</TABLE>
																			<TABLE border="0" cellspacing="0" class="tx1618" cellpadding="2">
																				<TR>
																					<TD>出庫料&nbsp;</TD>
																					<TD><%= SetMoney(NiyakuKin, false, true) %>&nbsp;円(1個あたり)</TD>
																				</TR>
																				<TR>
																					<TD colspan="2" align="right"><nobr>荷役料率(1t につき)</nobr></TD>
																					<TD>
																									<%= SetMoney(Niyakuritsu, false, true) %>&nbsp;円
																					</TD>
																				</TR>
																			</TABLE>
																			<TABLE border="0" class="tx1618" cellpadding="0">
																				<TR>
																					<TD>荷役料&nbsp;</TD>
																					<TD align="right"><%= SetMoney(SokoNiyakukin, false, true) %>&nbsp;円</TD>
																				</TR>
																				<TR>
																					<TD>保管料&nbsp;</TD>
																					<TD align="right"><%= SetMoney(SokoHokenRyo, false, true) %>&nbsp;円</TD>
																				</TR>
																			</TABLE>
																			<TABLE border="0" class="tx1618" cellpadding="0">
																	<TR>
																		<TD>合計金額&nbsp;&nbsp;</TD>
																		<TD>消費税額&nbsp;&nbsp;&nbsp;</TD>
																		<TD>請求倉庫料金</TD>
																	</TR>
																	<TR>
																		<TD align="right"><%= SetMoney(GokeiKingaku, false, true) %>&nbsp;円&nbsp;&nbsp;</TD>
																		<TD align="right"><%= SetMoney(Syohizeigaku, false, true) %>&nbsp;円&nbsp;&nbsp;&nbsp;</TD>
																		<TD align="right"><%= SetMoney(ZeikomiKingaku, false, true) %>&nbsp;円</TD>
																	</TR>
																			</TABLE>
																			<TABLE border="0" class="tx1618" cellpadding="0">
																		<TR>
																			<TD>摘要&nbsp;<%= Tekiyo %></TD>
																		</TR>
																			</TABLE>

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

					</TD>
				</TR>
			</TABLE>
		</TD>
		<TD valign="top" width="230">
			<TABLE width="230" class="tx1618" BORDER="0" STYLE="border-collapse: collapse" CELLSPACING="0" CELLPADDING="2">
				<tr>
					<td>
													<TABLE width="350" height="73" align="center" class="tx1618" border="0" CELLSPACING="0" CELLPADDING="2" STYLE="border-collapse: collapse">
														<tr>
															<td>
															</TD>
														</TR>
													</TABLE>
																<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 align="right"><%= SetMoney(HanbaiTanka, false, true) %>&nbsp;円&nbsp;&nbsp;&nbsp;</TD>
																					<TD>総価&nbsp;</TD>
																					<TD align="right"><%= SetMoney(Soka, false, true) %>&nbsp;円</TD>
																				</TR>
																				<TR>
																					<TD>単量&nbsp;</TD>
																					<TD align="right"><%= SetNumber(SyohinJyuryo, false) %>&nbsp;kg&nbsp;&nbsp;&nbsp;</TD>
																					<TD>総量&nbsp;</TD>
																					<TD align="right"><%= SetNumber(Soryo, false) %>&nbsp;t&nbsp;</TD>
																				</TR>
																				<TR>
																					<TD>荷姿&nbsp;</TD>
																					<TD><%= Nisugata %>&nbsp;&nbsp;&nbsp;</TD>
																					<TD>才数&nbsp;</TD>
																					<TD align="right"><%= SetNumber(Saisu, false) %></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><%= NyukoNengappi %>&nbsp;&nbsp;</TD>
																					<TD align="left"><nobr>倉庫種別&nbsp;</nobr></TD>
																					<TD><%
																									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
																					%>&nbsp;</TD>
																				</TR>
																				<TR height="23">
																					<TD>摘  要&nbsp;</TD>
																					<TD colspan="3"><%= NyukoTekiyo %></TD>
																				</TR>
																			</TABLE>
																			<TABLE border="0" class="tx1618" cellpadding="0">
																				<TR>
																					<TD>入庫料&nbsp;</TD>
																					<TD align="right"><%= SetMoney(NiyakuKin, false, true) %>&nbsp;円(1個あたり)</TD>
																				</TR>
																				<TR>
																					<TD colspan="2" align="right"><nobr>荷役料率(1t につき)</nobr></TD>
																					<TD align="right">
																									<%= SetMoney(Niyakuritsu, false, true) %>&nbsp;円
																					</TD>
																				</TR>
																				<TR>
																					<TD>保管料&nbsp;</TD>
																					<TD align="right"><%= SetMoney(HokanSougaku, false, true) %>&nbsp;円(1個あたり)</TD>
																				</TR>
																				<TR>
																					<TD colspan="2" align="right"><nobr>従価率(1000円につき)</nobr></TD>
																					<TD align="right">
																									<%= SetMoney(Jyokaritsu, false, true) %>&nbsp;円
																					</TD>
																				</TR>
																				<TR>
																					<TD colspan="2" align="right"><nobr>従量率(1t につき)</nobr></TD>
																					<TD align="right">
																									<%= SetMoney(Jyoryoritsu, false, true) %>&nbsp;円
																					</TD>
																				</TR>
																			</TABLE>
																		</TD>
																	</TR>
																</TABLE>
<br>
<br>
※荷役料 = (1個あたり入庫料 + 1個あたり出庫料) × 出庫数<br>
※保管料 = 1個あたり保管料 × 期数 × 出庫数<br>

					</TD>
				</tr>
			</table>
		</td>	
	</tr>		
</table>			
<%
End Function
%>