<%

Function SoukoryoSeikyuRyoushu(EnshuCD, KaisyaCD, Seq, AutoFlg, PrintFlg)

	Dim EnshuName

	Dim Bango
	Dim Shoribi
	Dim TorihikisakiCD
	Dim TorihikisakiMei
	Dim Basho
	Dim Nyukobi
	Dim Shukobi
	Dim KikanFrom
	Dim KikanTo
	Dim Hokanryo
	Dim Nyukoryo
	Dim Shukoryo
	Dim Shohizei
	Dim Gokei
	Dim Biko


	Dim Query
	Dim Content

	Query = "exec SPU倉庫料請求領収書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', " & Seq & " "
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Bango = Content.Fields("番号")
		Shoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
		TorihikisakiCD = Content.Fields("取引先CD")
		TorihikisakiMei = Content.Fields("取引先名称")
		Basho = Content.Fields("貯蔵倉庫場所")
		Nyukobi = SetTimeYYYYMMDD(Content.Fields("入庫日"))
		Shukobi = SetTimeYYYYMMDD(Content.Fields("出庫日"))
		KikanFrom = SetTimeYYYYMMDD(Content.Fields("期間始"))
		KikanTo = SetTimeYYYYMMDD(Content.Fields("期間終"))
		Hokanryo = Content.Fields("保管料")
		Nyukoryo = Content.Fields("入庫料")
		Shukoryo = Content.Fields("出庫料")
		Biko = Content.Fields("備考")
		'Shohizei = Int((Hokanryo + Nyukoryo + Shukoryo) * GB_Shohizei / 100)
		Shohizei = Content.Fields("消費税")
		Gokei = Hokanryo + Nyukoryo + Shukoryo + Shohizei
	End If


	Dim Kaisyamei, KaisyaRyakumei, kaisyaKanamei, ZipCode
	Dim Adr1, Adr2, Tel, Fax, GyosyuCD, Set_ShijyoCD
	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Kaisyamei = Content.Fields("会社名称")
		KaisyaRyakumei = Content.Fields("会社略名称")
		kaisyaKanamei = Content.Fields("会社カナ名称")
		ZipCode = Content.Fields("郵便番号")
		Adr1 = Content.Fields("住所1")
		Adr2 = Content.Fields("住所2")
		Tel = Content.Fields("TEL")
		Fax = Content.Fields("FAX")
		GyosyuCD = Content.Fields("業種CD")
		Set_ShijyoCD = Content.Fields("市場CD")
	End If


Dim Border
Border = "0"
%>
<table width="640" border="<% = Border %>" cellspacing="0" cellpadding="0" height="1" bgcolor="#FFFFFF" class="tx1416">
	<tr>
		<td colspan="2" height="50" align="CENTER" class="tx2224b">
			倉庫料請求書
		</td>
	</tr>
	<tr>
		<td colspan="2" height="20" align="CENTER">
			<br>
		</td>
	</tr>
	<tr>
		<td width="420" height="1" align="LEFT" valign="top">
			<table border="<% = Border %>" cellspacing="0" cellpadding="0" height="1">
				<tr>
					<td height="1" align="LEFT" class="tx1820" style="border-bottom: 1px solid #000000">
						&nbsp;<% = TorihikisakiMei %> 御中&nbsp;
					</td>
				</tr>
			</table>
			<table border="<% = Border %>" cellspacing="0" cellpadding="0" height="1">
				<tr>
					<td height="90" align="LEFT" class="tx1618">
						&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ご請求額&nbsp;&nbsp;
					</td>
					<td height="1" align="LEFT">
						<table border="<% = Border %>" cellspacing="0" cellpadding="0" height="1">
							<tr>
								<td height="1" align="LEFT" class="tx2022" style="border-bottom: 1px solid #000000">
									&nbsp;\<% = SetMoney(Gokei, false, false) %>&nbsp;
								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
			<table border="<% = Border %>" cellspacing="0" cellpadding="0" height="1">
				<tr>
					<td height="1" align="LEFT">
						入庫日&nbsp;:&nbsp;<% = SetDate(Nyukobi, 2) %>&nbsp;&nbsp;&nbsp;&nbsp;出庫日&nbsp;:&nbsp;<% = SetDate(Shukobi, 2) %>
					</td>
				</tr>
				<tr>
					<td height="1" align="LEFT">
						<br>
					</td>
				</tr>
				<tr>
					<td height="1" align="LEFT">
						寄託期間&nbsp;:&nbsp;自&nbsp;<% = SetDate(KikanFrom, 2) %>&nbsp;~&nbsp;至&nbsp;<% = SetDate(KikanTo, 2) %>
					</td>
				</tr>
				<tr>
					<td height="1" align="LEFT">
						<br>
					</td>
				</tr>
				<tr>
					<td height="1" align="LEFT">
						但し 倉庫料金 として
					</td>
				</tr>
				<tr>
					<td height="1" align="LEFT"><% = Spacer(1,8) %></td>
				</tr>
				<tr>
					<td height="1" align="LEFT">
						下記の通りご請求申し上げます
					</td>
				</tr>
				<tr>
					<td height="1" align="LEFT"><% = Spacer(1,8) %></td>
				</tr>
			</table>
		</td>
		<td align="LEFT" valign="top">
			<table border="<% = Border %>" cellspacing="0" cellpadding="0" height="1">
				<tr>
					<td height="1" align="LEFT" nowrap>
						契約証番号&nbsp;:&nbsp;<% = Bango %>
					</td>
				</tr>
				<tr>
					<td height="1" align="LEFT">
						<br>
					</td>
				</tr>
				<tr>
					<td height="1" align="LEFT" nowrap>
						発行日&nbsp;:&nbsp;<% = SetDate(Shoribi, 2) %>
					</td>
				</tr>
				<tr>
					<td height="1" align="LEFT">
						<br>
					</td>
				</tr>
				<tr>
					<td height="28" align="LEFT" class="tx1618" nowrap>
						<% = Kaisyamei %>
					</td>
				</tr>
				<tr>
					<td height="20" align="LEFT" nowrap>
						<% = Adr1 %>
					</td>
				</tr>
				<% If Adr2 <> "" Then %>
				<tr>
					<td height="20" align="LEFT" nowrap>
						<% = Adr2 %>
					</td>
				</tr>
				<% End If %>
				<tr>
					<td height="18" align="LEFT" nowrap>
						TEL:<% = Tel %>
					</td>
				</tr>
				<tr>
					<td height="18" align="LEFT" nowrap>
						FAX:<% = Fax %>
					</td>
				</tr>
			</table>
			<table border="<% = Border %>" width="100%" cellspacing="0" cellpadding="0" height="1">
				<tr>
					<td align="RIGHT">
						<table width="50" cellspacing="0" cellpadding="0" height="1" style="border-collapse:collapse;">
							<tr>
								<td height="1" align="CENTER" style="border:1px solid #000000;">
									責任者
								</td>
							</tr>
							<tr>
								<td height="50" width="50" align="CENTER" style="border:1px solid #000000;">
									<br>
								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
	<tr>
		<td colspan="2" height="20" align="CENTER">
			<table border="0" width="100%" cellspacing="0" cellpadding="10" height="1" class="tx1618" style="border-collapse:collapse;">
				<tr>
					<td align="CENTER" style="border:1px solid #000000;" width="10%">
						No
					</td>
					<td align="CENTER" style="border:1px solid #000000;" width="30%">
						項 目
					</td>
					<td align="CENTER" style="border:1px solid #000000;" width="30%">
						単 価
					</td>
					<td align="CENTER" style="border:1px solid #000000;" width="30%">
						金 額
					</td>
				</tr>
				<tr>
					<td align="CENTER" style="border:1px solid #000000;">
						1
					</td>
					<td align="CENTER" style="border:1px solid #000000;">
						保管料
					</td>
					<td align="RIGHT" style="border:1px solid #000000;">
						\<% = SetMoney(Hokanryo, false, false) %>
					</td>
					<td align="RIGHT" style="border:1px solid #000000;">
						\<% = SetMoney(Hokanryo, false, false) %>
					</td>
				</tr>
				<tr>
					<td align="CENTER" style="border:1px solid #000000;">
						2
					</td>
					<td align="CENTER" style="border:1px solid #000000;">
						入庫料
					</td>
					<td align="RIGHT" style="border:1px solid #000000;">
						\<% = SetMoney(Nyukoryo, false, false) %>
					</td>
					<td align="RIGHT" style="border:1px solid #000000;">
						\<% = SetMoney(Nyukoryo, false, false) %>
					</td>
				</tr>
				<tr>
					<td align="CENTER" style="border:1px solid #000000;">
						3
					</td>
					<td align="CENTER" style="border:1px solid #000000;">
						出庫料
					</td>
					<td align="RIGHT" style="border:1px solid #000000;">
						\<% = SetMoney(Shukoryo, false, false) %>
					</td>
					<td align="RIGHT" style="border:1px solid #000000;">
						\<% = SetMoney(Shukoryo, false, false) %>
					</td>
				</tr>
<% If Shohizei > 0 Then %>
				<tr>
					<td align="CENTER" style="border:1px solid #000000;">
						4
					</td>
					<td align="CENTER" style="border:1px solid #000000;">
						消費税
					</td>
					<td align="RIGHT" style="border:1px solid #000000;">
						\<% = SetMoney(Shohizei, false, false) %>
					</td>
					<td align="RIGHT" style="border:1px solid #000000;">
						\<% = SetMoney(Shohizei, false, false) %>
					</td>
				</tr>
<% End If %>
				<tr>
					<td align="CENTER" style="border:none;">
						<br>
					</td>
					<td align="CENTER" style="border:none;">
						<br>
					</td>
					<td align="RIGHT" style="border:none;">
						<br>
					</td>
					<td align="RIGHT" style="border:1px solid #000000;">
						小 計 \<% = SetMoney(Gokei, false, false) %>
					</td>
				</tr>
			</table>
		</td>
	</tr>
	<tr>
		<td colspan="2" height="20" align="CENTER">
			<br>
		</td>
	</tr>
	<tr>
		<td colspan="2" height="80" align="CENTER">
			- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
		</td>
	</tr>
	<tr>
		<td colspan="2" height="50" align="CENTER" class="tx2224b">
			倉庫料領収書
		</td>
	</tr>
	<tr>
		<td colspan="2" height="20" align="CENTER">
			<br>
		</td>
	</tr>
	<tr>
		<td colspan="2" height="20" align="CENTER">
			<table border="0" width="100%" cellspacing="0" cellpadding="8" height="1" class="tx1416" style="border-collapse:collapse;">
				<tr height="50">
					<td align="CENTER" style="border:1px solid #000000;" width="20%">
						契約証番号
					</td>
					<td align="LEFT" style="border:1px solid #000000;" width="35%">
						<% = Bango %>
					</td>
					<td align="CENTER" style="border:1px solid #000000;" width="20%">
						金 額
					</td>
					<td align="RIGHT" style="border:1px solid #000000;" width="25%">
						\<% = SetMoney(Gokei, false, false) %>
					</td>
				</tr>
				<tr height="50">
					<td align="CENTER" style="border:1px solid #000000;">
						寄託者
					</td>
					<td align="LEFT" style="border:1px solid #000000;">
						<% = TorihikisakiMei %>
					</td>
					<td align="CENTER" style="border:1px solid #000000;">
						貯蔵倉庫場所
					</td>
					<td align="LEFT" style="border:1px solid #000000;">
						<% = Basho %>
					</td>
<!--
					<td align="CENTER" style="border:1px solid #000000;" width="20%">
						<br>
					</td>
					<td align="RIGHT" style="border:1px solid #000000;" width="20%">
						<br>
					</td>
-->
				</tr>
				<tr height="50">
					<td align="CENTER" style="border:1px solid #000000;">
						入庫日
					</td>
					<td align="LEFT" style="border:1px solid #000000;">
						<% = SetDate(Nyukobi, 2) %>
					</td>
					<td align="CENTER" style="border:1px solid #000000;">
						出庫日
					</td>
					<td align="LEFT" style="border:1px solid #000000;">
						<% = SetDate(Shukobi, 2) %>
					</td>
				</tr>
				<tr height="50">
					<td align="CENTER" style="border:1px solid #000000;">
						寄託期間
					</td>
					<td align="LEFT" style="border:1px solid #000000;" colspan="3">
						自&nbsp;<% = SetDate(KikanFrom, 2) %>&nbsp;~&nbsp;至&nbsp;<% = SetDate(KikanTo, 2) %>
					</td>
				</tr>
<!--				<tr height="50">
					<td align="CENTER" style="border:1px solid #000000;">
						貯蔵倉庫場所
					</td>
					<td align="LEFT" style="border:1px solid #000000;" colspan="3">
						<% = Basho %>
					</td>
				</tr>
-->
<!--
				<tr height="50">
					<td align="CENTER" style="border:1px solid #000000;">
						備考
					</td>
					<td align="LEFT" style="border:1px solid #000000;" colspan="3">
						<% = Biko %>
					</td>
				</tr>
-->
			</table>
		</td>
	</tr>
	<tr>
		<td colspan="2" height="20" align="CENTER">
			<br>
		</td>
	</tr>
	<tr>
		<td width="420" height="1" align="LEFT" valign="top">
			<table border="<% = Border %>" cellspacing="0" cellpadding="0" height="1">
				<tr>
					<td height="1" width="120" align="CENTER" class="tx1618">
						<table border="0" cellspacing="0" cellpadding="0" width="72" HEIGHT="86">
							<tr>
								<td style="line-height:13px; font-family:MS 明朝,serif; font-size:12px; color:#888888; border: 1px solid #888888;" valign="middle" align="center">
																					収&nbsp;&nbsp;入<br><br>
																					印&nbsp;&nbsp;紙</td>
							</tr>
						</table>
					</td>
					<td height="1" align="LEFT">
						<table border="0" cellspacing="0" cellpadding="0" height="1">
							<tr>
								<td height="1" align="CENTER" class="tx1618">
									上記の倉庫料正に領収いたしました<br><br><% = SetDate(Shoribi, 2) %>
									
								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
		</td>
		<td align="LEFT" valign="top">
			<table border="<% = Border %>" cellspacing="0" cellpadding="0" height="1">
				<tr>
					<td height="28" align="LEFT" class="tx1618" nowrap>
						<% = Kaisyamei %>
					</td>
				</tr>
				<tr>
					<td height="20" align="LEFT" nowrap>
						<% = Adr1 %>
					</td>
				</tr>
				<% If Adr2 <> "" Then %>
				<tr>
					<td height="20" align="LEFT" nowrap>
						<% = Adr2 %>
					</td>
				</tr>
				<% End If %>
				<tr>
					<td height="18" align="LEFT" nowrap>
						TEL:<% = Tel %>
					</td>
				</tr>
				<tr>
					<td height="18" align="LEFT" nowrap>
						FAX:<% = Fax %>
					</td>
				</tr>
			</table>
		</td>
	</tr>
	<tr>
		<td colspan="2" height="20" align="CENTER">
			<br>
		</td>
	</tr>
</table>


<!--
							<%	If PrintFlg = 1 Then  %>
							<TABLE BORDER="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="5" cellpadding="5" height="360" width="500">
							<% Else %>
 							<TABLE border="0" cellspacing="3" cellpadding="15" width="500" height="360">
 							<% End If %>
								<TR>
									<TD align="center">
										<TABLE border="0" width="500" class="tx1618" height="260" cellspacing="0" cellpadding="2">
											<TR>
												<TD>契約証番号</TD>
												<TD><% = Bango %></TD>
											</TR>
											<TR>
												<TD>寄託者</TD>
												<TD><% = TorihikisakiMei %></TD>
											</TR>
											<TR>
												<TD>貯蔵倉庫場所</TD>
												<TD><% = Basho %></TD>
											</TR>
											<TR>
												<TD>入庫日</TD>
												<TD><% = Nyukobi %></TD>
											</TR>
											<TR>
												<TD>出庫日</TD>
												<TD><% = Shukobi %></TD>
											</TR>
											<TR>
												<TD>寄託期間</TD>
												<TD>
												<TABLE border="0" hieght="100%" cellspacing="0" cellpadding="0" class="tx1618">
													<TBODY>
														<TR>
															<TD><% = KikanFrom %></TD>
															<TD>&nbsp;~&nbsp;</TD>
															<TD><% = KikanTo %></TD>
														</TR>
													</TBODY>
												</TABLE>
												</TD>
											</TR>
											<TR>
												<TD>倉庫料</TD>
												<TD><% = SetMoney(Hokanryo, false, false) %></TD>
											</TR>
<% If GB_Shohizei > 0 Then %>
											<TR>
												<TD>消費税</TD>
												<TD><% = SetMoney(Shohizei, false, false) %></TD>
											</TR>
											<TR>
												<TD>合計</TD>
												<TD><% = SetMoney(Gokei, false, false) %></TD>
											</TR>
<% End If %>
											<TR>
												<TD>備考</TD>
												<TD > <% = Biko %></TD>
											</TR>
									</TABLE>
								</TD>
							</TR>
						</TABLE>
-->
<%
End Function
%>