
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：白紙帳票-見積依頼書の照会
'	 作成日：2002/9/21
'	 作成者：川崎
'	 目的　：白紙帳票-見積依頼書の照会画面を表示する。
'	 概要	：
'		<<表示>>
'	・見積依頼書の照会
'################################################
'-->
'
'
%>
<%
main()

Sub main()

	Dim BunsyoNaiyoCD, BunsyoSyuruiCD, Syoribi, TorihikisakiCD, NonyuBasyoKubun, NonyuKijitsu
	Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, UnsohiSeikyugaku, Tekiyo, ShiharaiHoho, HasshinFlg
	Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi
	Dim DbTorihikisakiCD, DbSenpoBunsyoNaiyoCD
	Dim SenpoTmpBunsyoSyuruiCD

	Dim SyohinCD(5)														'商品コード
	Dim SyohinName(5)							'商品名称
	Dim Kakaku(5)								'標準価格
	Dim Suryo(5)															'数量
	Dim Tanka(5)															'単価
	Dim Kingaku(5)															'金額

	Dim NonyuBasyoMeisyo,	UntinSyogakariMeisyo


	Dim GokeiKingaku									'合計
	Dim SyohizeiKingaku							'消費税
	Dim ZeikomiKingaku							'税込み金額
	Dim Checked_N,Checked_R
	Dim GakuseiShimei							'学生氏名（係印）
	Dim GakuseiBango

	Dim NextBunsyoNaiyoCD, PrevBunsyoNaiyoCD
	Dim SyoruiMei, SyoriMei, SyoriMongon
	Dim Query
	Dim Content
	Dim Genkin, Toza
	Dim Shimei
	Dim RouteType
	Dim SakujyoFlg
	RouteType = Request("RouteType")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")

	Dim SenpoFlg
	SenpoFlg = Request("SenpoFlg")
	If SenpoBunsyoNaiyoCD <> "" Then
		SenpoFlg = "1"
	End If


	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	SenpoBunsyoSyuruiCD =	Request("SenpoBunsyoSyuruiCD")
	TorihikisakiCD = Request("TorihikisakiCD")


	Dim Kubun, SenpoSyoruiMei, Title
	Dim SyoruiKubun




	Select Case BunsyoSyuruiCD
	Case "K1"
		SyoruiMei = "仕入返品伝票"
		Title = SyoruiMei
		SyoruiKubun = "S"
		SyoriMongon = "下記の通り返品致します。"
	Case "K2"
		SyoruiMei = "売上返品伝票"
		Title = SyoruiMei
		SyoruiKubun = "S"
		SyoriMongon = "下記の通り返品受付致します。"
	Case "K3"
		SyoruiMei = "領収書"
		Title = SyoruiMei
		SyoruiKubun = "S"
		SyoriMongon = "下記の通り領収致しました。"

	Case "KI"
		SyoruiMei = "見積依頼書"
		Title = SyoruiMei
		SyoruiKubun = "S"
		SyoriMongon = "下記の通り御見積り依頼申し上げます。"
	Case "KM"
		SyoruiMei = "見積書"
		Title = SyoruiMei
		SyoruiKubun = "U"
		SenpoTmpBunsyoSyuruiCD = "KI"
		SyoriMei = "見積"
		SyoriMongon = "下記の通り御見積り申し上げます。"
	Case "KC"
		SyoruiMei = "注文書"
		Title = SyoruiMei
		SyoruiKubun = "S"
		SenpoTmpBunsyoSyuruiCD = "KM"
		SyoriMongon = "下記の通り発注致します。"
	Case "KU"
		SyoruiMei = "注文請書"
		Title = SyoruiMei
		SyoruiKubun = "U"
		SenpoTmpBunsyoSyuruiCD = "KC"
		SyoriMei = "請求"
		SyoriMongon = "下記の通り注文をお請け致します。"
	Case "KK"
		SyoruiMei = "注文請書"
		Title = "先方注文請書確認"
		SyoruiKubun = "S"
		SyoriMongon = "下記の通り注文をお請け致します。"
	Case "KN"
		SyoruiMei = "納品請求書"
		Title = SyoruiMei
		SyoruiKubun = "U"
		SenpoTmpBunsyoSyuruiCD = "KK"
		SyoriMei = "請求"
		SyoriMongon = "下記の通り納品請求申し上げます。"
	Case "KB"
		SyoruiMei = "物品受領書"
		Title = SyoruiMei
		SyoruiKubun = "S"
		SenpoTmpBunsyoSyuruiCD = "KN"
		SyoriMongon = "下記の通り受領致しました"
	Case "KQ"
		SyoruiMei = "領収書"
		Title = SyoruiMei
		SyoruiKubun = "U"
		SenpoTmpBunsyoSyuruiCD = "KB"
		SyoriMongon = "下記の通り領収致しました"
	Case "KX"
		SyoruiMei =	"管理部買入申込書"
		Title = SyoruiMei
		SyoruiKubun = "X"
	Case "KY"
		SyoruiMei =	"管理部売渡申込書"
		Title = SyoruiMei
		SyoruiKubun = "1"
	Case "KV"
		SyoruiMei =	"管理部納品請求書"
		Title = SyoruiMei
		SyoruiKubun = "V"
		SenpoTmpBunsyoSyuruiCD = "KX"
	Case "KW"
		SyoruiMei =	"管理部売渡受付書"
		Title = SyoruiMei
		SyoruiKubun = "W"
		SenpoTmpBunsyoSyuruiCD = "KY"
	Case "KO"
		SyoruiMei =	"管理部宛物品受領書"
		Title = SyoruiMei
		SyoruiKubun = "X"
		SenpoTmpBunsyoSyuruiCD = "KV"
	Case "KP"
		SyoruiMei =	"管理部宛納品請求書"
		Title = SyoruiMei
		SyoruiKubun = "1"
		SenpoTmpBunsyoSyuruiCD = "KW"
	Case Else
	End Select



	Select Case SenpoBunsyoSyuruiCD
	Case "KI"
		SenpoSyoruiMei = "先方見積依頼書"
	Case "KM"
		SenpoSyoruiMei = "先方見積書"
	Case "KC"
		SenpoSyoruiMei = "先方注文書"
	Case "KU"
		SenpoSyoruiMei = "先方注文請書"
	Case "KK"
		SenpoSyoruiMei = "先方確認済み注文請書"
	Case "KN"
		SenpoSyoruiMei = "先方納品請求書"
	Case "KB"
		SenpoSyoruiMei = "先方物品受領書"
	Case "KX"
		SenpoSyoruiMei = "先方管理部買入申込書"
	Case "KY"
		SenpoSyoruiMei = "先方管理部売渡申込書"
	Case "KV"
		SenpoSyoruiMei = "先方管理部納品請求書"
	Case "KW"
		SenpoSyoruiMei = "先方管理部売渡受付書"
	Case Else
	End Select

	If SyoruiMei = "" Then
		SyoruiMei = SenpoSyoruiMei
	End If




	Dim Kaisyamei, KaisyaRyakumei, kaisyaKanamei, ZipCode
	Dim Adr1, Adr2, Tel, Fax, GyosyuCD


	Dim jj,tmps

%>
<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="/<% = HomeAlias %>/binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="/<% = HomeAlias %>/include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="/<% = HomeAlias %>/includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="/<% = HomeAlias %>/include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="/<% = HomeAlias %>/includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="/<% = HomeAlias %>/javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(3))

	Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "白紙帳票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s42.asp')", SyoruiMei , "", "", ""))

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL4(SyoruiMei , ""))
%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">

<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="660" HEIGHT="100%">
	<TR>
		<TD ALIGN="CENTER">
			<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="100%" HEIGHT="100%">
				<TR>
					<TD ALIGN="CENTER">
						<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:620px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">


							<table width="540" border="0" cellspacing="0" cellpadding="0" height="355" bgcolor="#FFFFFF" style="border:solid 1px #FFFFFF">
								<tr>
									<td height="160" align="CENTER" valign="BOTTOM">
										<table width="580" height="260" border="0" cellpadding="0" cellspacing="0">

											<tr>
												<td valign="top" height="30">
													<table width="560" border="0" cellpadding="0" cellspacing="0">
														<tr>
															<td width="190">
																<table width="190" border="0" cellpadding="0" cellspacing="0">
																	<tr class="tx1214">
																		<td width="190" align="left">書類番号：<% = BunsyoNaiyoCD %></td>
																	</tr>
																</table>
															</td>
															<td width="190" valign="top" align="center">

																<table width="130" class="tx1820b" border="0" cellpadding="0" cellspacing="0">
																	<tr>
																		<td align="center" nowrap><%
																			Dim ii
																			If Len(SyoruiMei) < 8 Then
																				Response.Write(SetStringInsertSpace(SyoruiMei))
																			Else
																				Response.Write(SyoruiMei)
																			End If
																		%></td>
																	</tr>
																</table>
															</td>
															<td width="190">
																<table width="190" border="0" cellpadding="0" cellspacing="0">
																	<tr>
																		<td width="190" align="right">
																			<table class="tx1214" border="0" cellspacing="0" cellpadding="0">
																				<tr>
																					<td width="50">処理日：</td>
																					<td width="70"><% = Syoribi %></td>
																				</tr>
																			</table>
																		</td>
																	</tr>
																</table>
															</td>
														</tr>
													</table>
												</td>
											</tr>
											<tr>
												<td align="center" valign="top">
													<table width="560" height="100%" class="tx1214" border="0" cellpadding="0" cellspacing="0">
														<tr>
															<td valign="top">
																<table border="0" cellpadding="0" cellspacing="0" height="100%">
																	<tr>
																		<td valign="top" align="right">
																			<table height="80" class="tx1214" border="0" cellpadding="0" cellspacing="0">
																				<tr>
																					<td height="20" style="border-bottom: 1px solid #000000" class="tx1416" colspan="3">

																						<table border="0" width="100%" cellspacing="0" cellpadding="0" class="tx1416">
																							<tr>
																								<td valign="bottom"><% = ConvKaisyaMeisyoDx(EnshuCD, DbTorihikisakiCD) %><img src="/<% = HomeAlias %>/images3/spacer.gif" width="1" height="1"></td>
																								<td width="40">御中</td>
																							</tr>
																						</table>
																					</td>
																				</tr>
																				<tr>
																					<td width="55" height="20" style="border-bottom: 1px solid #000000">納入場所</td>
																					<td width="10" style="border-bottom: 1px solid #000000">:</td>
																					<td width="160" style="border-bottom: 1px solid #000000"><% = ConvKubunMeisyo("納入場所区分", NonyuBasyoKubun) %>　</td>
																				</tr>
																				<tr>
																					<td width="55" height="20" style="border-bottom: 1px solid #000000">運賃諸掛</td>
																					<td width="10" style="border-bottom: 1px solid #000000">:</td>
																					<td width="160" style="border-bottom: 1px solid #000000"><% = ConvKubunMeisyo("運賃諸掛区分", UntinSyogakariKubun)%>　</td>
																				</tr>
																				<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																				<tr>
																					<td width="55" height="20" style="border-bottom: 1px solid #000000">運送会社</td>
																					<td width="10" style="border-bottom: 1px solid #000000">:</td>
																					<td width="160" style="border-bottom: 1px solid #000000"><% = ConvKaisyaMeisyoDx(EnshuCD, UnsoGaisyaCD) %>　</td>
																				</tr>
																				<% End If %>
																				<tr>
																					<td width="55" height="20" style="border-bottom: 1px solid #000000">支払方法</td>
																					<td width="10" style="border-bottom: 1px solid #000000">:</td>
																					<td width="160" style="border-bottom: 1px solid #000000"><% = ShiharaiHoho %>　</td>
																				</tr>
																				<tr>
																					<td width="55" height="20" style="border-bottom: 1px solid #000000"><% If MHMNONYUKIJITSU <> "" Then Response.Write(MHMNONYUKIJITSU) Else Response.Write("納入期日") End If %></td>
																					<td width="10" style="border-bottom: 1px solid #000000">:</td>
																					<td width="170" style="border-bottom: 1px solid #000000"><% = NonyuKijitsu %>　</td>
																				</tr>
																			</table>
																		</td>
																	</tr>
																	<tr>
																		<td height="20"></td>
																	</tr>
																	<tr>
																		<td valign="bottom">
																			<table border="0" width="100%" class="tx1214">
																				<tr>
																					<td><% = SyoriMongon %></td>
																				</tr>
																				<% If SyoruiKubun = "U" Then %>
																				<tr>
																					<td>

																						<table border="1" STYLE="border-collapse: collapse" BORDERCOLOR="#000000" cellpadding="5" cellspacing="0" class="tx1416" height="40">
																							<tr>
																								<td align="center" width="100" bgcolor="#DDDDDD">合計金額</td>
																								<td width="130" align="right"><% = SetMoney(ZeikomiKingaku, false, false) %>　</td>
																							</tr>
																						</table>

																					</td>
																				</tr>
																				<tr>
																					<td>

																																（上記金額には消費税が含まれています）

																					</td>
																				</tr>
																				<% End If %>
																			</table>
																		</td>
																	</tr>
																</table>
															</td>
															<td valign="bottom">
																<table border="0" cellpadding="0" cellspacing="0" width="100%">
																	<tr>
																		<td>
																			<table width="230" class="tx1214" border="0" cellpadding="0" cellspacing="0">
																				<tr>
																					<td height="20" style="border-bottom: 1px solid #000000"><% = Kaisyamei %>　</td>
																				</tr>
																				<tr>
																					<td height="20" style="border-bottom: 1px solid #000000"><% = Adr1 %>　</td>
																				</tr>
																				<tr>
																					<td height="20" style="border-bottom: 1px solid #000000"><% = Adr2 %>　</td>
																				</tr>
																				<tr>
																					<td height="20" style="border-bottom: 1px solid #000000">
																						<table width="100%" class="tx1214" border="0" cellpadding="0" cellspacing="0">
																							<tr>
																								<td width="50%">TEL:<% = Tel %></td>
																								<td width="50%">FAX:<% = Fax %></td>
																							</tr>
																						</table>
																					</td>
																				</tr>
																			</table>
																		</td>
																	</tr>
																	<tr>
																		<td height="20">
																		</td>
																	</tr>
																	<tr>
																		<td valign="bottom" align="right">
																			<table width="120" height="40" border="1" cellpadding="0" cellspacing="0" bordercolor="#111111" STYLE="border-collapse: collapse">
																				<tr class="tx1012">
																					<td width="40" height="10" align="center">&nbsp;</td>
																					<td width="40" height="10" align="center">&nbsp;</td>
																					<td width="40" height="10" align="center">係　印</td>
																				</tr>
																				<tr class="tx1214">
																					<td width="40" height="30" align="center">&nbsp;</td>
																					<td width="40" height="30" align="center">&nbsp;</td>
																					<td width="40" height="30" align="center"><% = ConvShimeiRyakuMeisyo(GakuseiBango) %></td>
																				</tr>
																			</table>
																		</td>
																	</tr>
																</table>

															<!--
																<table class="tx1214" border="0" cellpadding="0" cellspacing="0">
																	<tr>
																		<td width="55" style="border-bottom: 1px solid #000000">
																				<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" AND SenpoFlg = "0" Then %>
																					先方書類
																				<% End If %>
																		</td>
																		<td width="10" style="border-bottom: 1px solid #000000">
																		</td>
																		<td width="170" style="border-bottom: 1px solid #000000">
																				<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" AND SenpoFlg = "0" Then
																					Response.Write("：" & SenpoSyoribi)
																					If DbSenpoBunsyoNaiyoCD <> "" Then
																						Response.Write("　番号 " & DbSenpoBunsyoNaiyoCD )
																					End If
																				End If %>
																		</td>
																	</tr>

																	<tr>
																		<td width="55" style="border-bottom: 1px solid #000000">発信</td>
																		<td width="10" style="border-bottom: 1px solid #000000">:</td>
																		<td width="170" style="border-bottom: 1px solid #000000"><% If HasshinFlg <> "" Then Response.Write(ConvFlagMeisyo(HasshinFlg, 6)) End If %>　</td>
																	</tr>
																	<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																	<tr>
																		<td width="55" style="border-bottom: 1px solid #000000">運送費</td>
																		<td width="10" style="border-bottom: 1px solid #000000">:</td>
																		<td width="170" style="border-bottom: 1px solid #000000">
																			<table width="100%" class="tx1214" border="0" cellpadding="0" cellspacing="0">
																				<tr>
																					<td width="50%"><% = SetMoney(Unsohi, false, true) %>　</td>
																					<td width="50%">　</td>
																				</tr>
																			</table>
																		</td>
																	</tr>
																	<% End If %>
																	<tr>
																		<td width="55" style="border-bottom: 1px solid #000000">摘要</td>
																		<td width="10" style="border-bottom: 1px solid #000000">:</td>
																		<td width="170" style="border-bottom: 1px solid #000000"><% = Tekiyo %>　</td>
																	</tr>
																</table>
															-->
															</td>
														</tr>
													</table>


												</td>
											</tr>

										</table>


									</td>
								</tr>

								<tr>
									<td align="CENTER" valign="TOP">
										<table width="520" height="230" border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse; border:solid 2px #FFFFFF">
											<tr>
												<td width="100%" align="RIGHT">
													<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="520" bordercolor="#000000">
														<tr>
															<td height="150" valign="TOP">
																<table width="100%" height="150" border="1" frame="void" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000"  class="tx1214" bgcolor="#FFFFFF">
																	<tr bgcolor="#DDDDDD">
																		<td align="center" width="32%">商品名称</td>
																		<td align="center" width="16%">標準価格</td>
																		<td align="center" width="16%">数　量</td>
																		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																		<td align="center" width="16%">単　価</td>
																		<td align="center">金　額</td>
																		<% End If %>
																	</tr>

																	<tr>
																		<td align="center" width="32%"><% = ConvSyohinMeisyo(SyohinCD(1)) %>　</td>
																		<td align="right" width="16%"><% = SetMoney(Kakaku(1), false, true) %>　</td>
																		<td align="right" width="16%"><% = SetMoney(Suryo(1), false, true) %>　</td>
																		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																		<td align="right" width="16%"><% = SetMoney(Tanka(1), false, true) %>　</td>
																		<td align="right"><% = SetMoney(Kingaku(1), false, true) %>　</td>
																		<% End If %>
																	</tr>
																	<tr>
																		<td align="center" width="32%"><% = ConvSyohinMeisyo(SyohinCD(2)) %>　</td>
																		<td align="right" width="16%"><% = SetMoney(Kakaku(2), false, true) %>　</td>
																		<td align="right" width="16%"><% = SetMoney(Suryo(2), false, true) %>　</td>
																		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																		<td align="right" width="16%"><% = SetMoney(Tanka(2), false, true) %>　</td>
																		<td align="right"><% = SetMoney(Kingaku(2), false, true) %>　</td>
																		<% End If %>
																	</tr>
																	<tr>
																		<td align="center" width="32%"><% = ConvSyohinMeisyo(SyohinCD(3)) %>　</td>
																		<td align="right" width="16%"><% = SetMoney(Kakaku(3), false, true) %>　</td>
																		<td align="right" width="16%"><% = SetMoney(Suryo(3), false, true) %>　</td>
																		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																		<td align="right" width="16%"><% = SetMoney(Tanka(3), false, true) %>　</td>
																		<td align="right"><% = SetMoney(Kingaku(3), false, true) %>　</td>
																		<% End If %>
																	</tr>
																	<tr>
																		<td align="center" width="32%"><% = ConvSyohinMeisyo(SyohinCD(4)) %>　</td>
																		<td align="right" width="16%"><% = SetMoney(Kakaku(4), false, true) %>　</td>
																		<td align="right" width="16%"><% = SetMoney(Suryo(4), false, true) %>　</td>
																		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																		<td align="right" width="16%"><% = SetMoney(Tanka(4), false, true) %>　</td>
																		<td align="right"><% = SetMoney(Kingaku(4), false, true) %>　</td>
																		<% End If %>
																	</tr>
																	<tr>
																		<td align="center" width="32%"><% = ConvSyohinMeisyo(SyohinCD(5)) %>　</td>
																		<td align="right" width="16%"><% = SetMoney(Kakaku(5), false, true) %>　</td>
																		<td align="right" width="16%"><% = SetMoney(Suryo(5), false, true) %>　</td>
																		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																		<td align="right" width="16%"><% = SetMoney(Tanka(5), false, true) %>　</td>
																		<td align="right"><% = SetMoney(Kingaku(5), false, true) %>　</td>
																		<% End If %>
																	</tr>
																</table>

															</td>
														</tr>
														<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
														<tr>
															<td>
																<table width="100%" height="70" border="1" cellpadding="0" cellspacing="0" frame="void" style="border-collapse: collapse" bordercolor="#000000"	bgcolor="#DDDDDD"  class="tx1214">
																	<tr>
																		<td align="center" width="48%" rowspan="4">　</td>
																		<td align="center" width="32%">合計金額</td>
																		<td align="right" bgcolor="#FFFFFF"><% = SetMoney(GokeiKingaku, false, false) %>　</td>
																	</tr>
																	<tr>
																		<td align="center" width="32%">運送費請求額</td>
																		<td align="right" bgcolor="#FFFFFF"><% = SetMoney(UnsohiSeikyugaku , false, false) %>　</td>
																	</tr>
																	<tr>
																		<td align="center" width="32%">消費税額</td>
																		<td align="right" bgcolor="#FFFFFF"><% = SetMoney(SyohizeiKingaku, false, false) %>　</td>
																	</tr>
																	<tr>
																		<td align="center" width="32%">税込金額</td>
																		<td align="right" bgcolor="#FFFFFF"><% = SetMoney(ZeikomiKingaku, false, false) %>　</td>
																	</tr>
																</table>
															</td>
														</tr>
														<% End If %>
													</table>
												</td>
											</tr>
										</table>

									</td>
								</tr>

								<tr>
									<td align="CENTER" valign="TOP">
										<table width="520" height="150" border="0" cellpadding="4" cellspacing="0" class="tx1416">
											<tr><td style="border-bottom: 1px solid #000000" height="1" colspan="2"><font size="1">　</font></td></tr>
											<tr>
												<td valign="top" align="left">
												備考
												</td>
												<td valign="top" align="right">

												</td>

											</tr>
										</table>

									</td>
								</tr>
							</table>


						</DIV>
					</TD>
				</TR>
			</TABLE>
		</td>
	</tr>
</table>
</div>

</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>