
<!-- #include file="../../../include.asp" -->

<%
'
'################################################
'	名称	：お買上票の表示
'	作成日	：2007/2/4
'	作成者	：Masayoshi Wada
'	目的　	：お買上票を表示する
'	概要	：
'	 <<表示>>
'################################################
'
%>

<%
main()

Sub main()

	'マスタの標準消費税率を取得
	Dim StdTaxRate
	Dim StdTaxRateUnso
	StdTaxRate = GB_Shohizei
	StdTaxRateUnso = GB_Shohizei
	If GB_ShohizeiMode = 1 Then
		Query = " SELECT * FROM TDA消費税率M WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND (標準 = '1' OR 運送費標準 = '1') "
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If "" & Content.Fields("標準") = "1" Then
				StdTaxRate = Content.Fields("消費税率")
			End If
			If "" & Content.Fields("運送費標準") = "1" Then
				StdTaxRateUnso = Content.Fields("消費税率")
			End If
			Content.MoveNext
		Loop
	End If

	Dim TmpCnt

	Dim Syoribi, TorihikisakiCD, NonyuKijitsu
	Dim UnsoGaisyaCD, UntinSyogakariKubun, Unsohi, UnsohiSeikyuFlg, ShiharaiHoho, HasshinFlg
	

'商品Mテーブル
	Dim GokeiKingaku					'合計金額
	Dim ShohizeiKingaku					'消費税
	Dim ZeikomiKingaku					'税込合計金額

	Dim ShoruiMei
	Dim Query
	Dim Content
	Dim Shimei
	Dim ShohinGazoStr
	Dim KaisyaCD1
	Dim AdminMailFlag

	Dim ShohinNyusyukkoSeigosei
	
	AdminMailFlag = 0
	
	ShohinNyusyukkoSeigosei = GetEnshuParam(EnshuCD, "商品入出庫整合性利用")

	Dim Action
	Action = Request("Actin")
	Dim RouteType
	RouteType = Request("RouteType")
	Dim PageType
	PageType = Request("PageType")
	Dim BunsyoSyuruiCD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	Dim BunsyoNaiyoCD
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	Dim SakuseiKaisyaCD
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")

	Dim Kaisyamei
	Dim KaisyaRyakumei
	Dim kaisyaKanamei
	Dim ZipCode
	Dim Adr1
	Dim Adr2
	Dim Tel
	Dim Fax
	Dim GyosyuCD
	Dim Set_ShijyoCD

	Dim jj,tmps

	Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth

	'↓市場・商品表示幅の指定及び商品名称・商品略名称の指定（修正061031小野）
	SyohinMeisyo = "商品名称"
	SyohinMeisyoListWidth = "width: 155;"
	ShijyoListWidth = "width:85"
	'↑市場・商品表示幅の指定及び商品名称・商品略名称の指定（修正061031小野）

	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 Kitakuriyou
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Kitakuriyou = Content.Fields("寄託倉庫利用") 
	End If


' 小売販売データ読み込み

	Dim Query2
	Dim Content2
	Dim Query3
	Dim Content3

' 小売販売テーブルヘッダ部
	Dim KyakuName						'客氏名
	Dim Kaiagebi						'買上日
	Dim Tekiyo						'摘要
	Dim GakuseiBango					'学生番号
	Dim GakuseiShimei					'学生氏名
	Dim KaiageTensu						'買上点数
	Dim KaiageKingaku					'買上金額
	Dim ShohiZei						'消費税
	Dim Soryo						'送料
	Dim GokeiUriage						'合計売上
	Dim KaimonohyoPrintF					'買物票印刷フラグ
	Dim ShukkaF						'出荷フラグ
	Dim RyoshushoF						'領収書印刷フラグ
	Dim KoshinF						'入出庫更新フラグ
	Dim SakujyoF						'削除フラグ
	Dim KitakuSokoriyo					'寄託倉庫利用
	Dim KoushinDate						'更新日時
' 小売販売テーブル明細部
	Dim ShohinCD(6)						'商品CD
	Dim ShohinMei(6)					'商品名
	Dim ShohinRyakumei(6)					'商品略称
	Dim HyojyunTanka(6)					'標準単価
	Dim JitubaiTanka(6)					'実販売単価
	Dim ShiireTanka(6)					'仕入単価
	Dim Suryo(6)						'数量
	Dim Henpin(6)						'返品数量
	Dim Kingaku(6)						'金額
	Dim TaxRate(5)	'消費税率
	Dim SyohinGazo(6)					'商品画像
	Dim SyohinGazoStr					'商品画像ストリング
	
	ShoruiMei = "お買い上げ票"

'For Debug
'Response.Write("<br>")
'Response.Write("GB_SystemCD:" & GB_SystemCD & "<br>")
'Response.Write("EnshuCD:" & EnshuCD & "<br>")
'Response.Write("KaisyaCD:" & KaisyaCD & "<br>")
'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD & "<br>")
'Response.Write("BunsyoSyuruiCD:" & BunsyoSyuruiCD & "<br>")
'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "<br>")
'Response.Write("KyakuName:" & KyakuName & "<br>")

'小売販売ヘッダ部読み込み
	Query2 = "exec SPK小売販売取得_合計 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "','" & BunsyoNaiyoCD & "'"

	Set Content2 = OpenQuery(Query2)

	Dim kk, GokeiSuryo, GokeiGaku, GokeiShohizei, ZeikomiGaku, GokeiSoryo

	Do While Not(Content2.BOF Or Content2.EOF)

		KyakuName = Content2.Fields("客氏名")						'客氏名
		Kaiagebi = Content2.Fields("買上日")						'買上日
		Tekiyo = Content2.Fields("摘要")						'摘要
		GakuseiBango = Content2.Fields("学生番号")					'学生番号
		GakuseiShimei = Content2.Fields("学生氏名")	 				'学生氏名（係印）
		KaiageTensu = Content2.Fields("買上点数")					'買上点数
		KaiageKingaku = Content2.Fields("買上金額")					'買上金額
		ShohiZei = Content2.Fields("消費税")						'消費税
		Soryo = Content2.Fields("送料")							'送料
		GokeiUriage = Content2.Fields("合計金額")					'合計金額
		KaimonohyoPrintF = Content2.Fields("買上票印刷フラグ")				'買い物票印刷フラグ
		ShukkaF = Content2.Fields("出荷フラグ")						'出荷フラグ
		RyoshushoF = Content2.Fields("領収書印刷フラグ")				'領収書印刷フラグ
		KoshinF = Content2.Fields("入出庫更新フラグ")					'入出庫更新フラグ
		SakujyoF = Content2.Fields("削除フラグ")					'削除フラグ
		KitakuSokoriyo = Content2.Fields("寄託倉庫利用")				'寄託倉庫利用
		KoushinDate = Content2.Fields("更新日時")					'更新日時

		Content2.MoveNext

	Loop

'小売販売明細部読み込み
	Query3 = "exec SPK小売販売取得_明細 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"

	kk = 0										'行シーケンス

	Set Content3 = OpenQuery(Query3)

	Do While Not(Content3.BOF Or Content3.EOF)

		ShohinCD(kk) = Content3.Fields("商品CD")					'商品CD
		ShohinMei(kk) = Content3.Fields("商品名")					'商品名
		ShohinRyakumei(kk) = Content3.Fields("商品略称")				'商品略称
		HyojyunTanka(kk) = Content3.Fields("標準売価")					'標準売価
		JitubaiTanka(kk) = Content3.Fields("実販売単価") 				'実販売単価
		ShiireTanka(kk) = Content3.Fields("仕入単価")					'仕入単価
		Suryo(kk) = Content3.Fields("数量")						'数量
		Henpin(kk) = Content3.Fields("返品数量")					'返品数量
		Suryo(kk) = Suryo(kk) - Henpin(kk)						'現在数量
		Kingaku(kk) = Content3.Fields("金額")						'金額
		TaxRate(kk) = Content3.Fields("消費税率")	'消費税率
		If "" & TaxRate(kk) = "" Or GB_ShohizeiMode <> 1 Then
			TaxRate(kk) = StdTaxRate
		End If

		SyohinGazo(kk) = ConvSyohinGazo(EnshuCD, Content3.Fields("商品CD"))

		If SyohinGazoStr <> "" Then
			SyohinGazoStr = SyohinGazoStr & ","
		End If

		If SyohinGazo(kk) <> "" Then
			SyohinGazoStr = SyohinGazoStr & """" &  Fgoods & "/" & EnshuCD & "/" &SyohinGazo(kk) & """"
		Else
			SyohinGazoStr = SyohinGazoStr & """/" & HomeAlias & "/images/truck_box.gif"""
		End If

		kk = kk + 1

		ShohinCD(kk) = ""

		Content3.MoveNext

	Loop

'For Debug
'Response.Write("ShohiMei:" & ShohinMei(0) & "<br>")


%>

<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 = 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">
<form OnKeyDown="FormKeyDown(this)"	method="POST" action="kh_kouri_bin.asp" name="form1">

<%
	'RouteType = "ViewOnly" の定義を追加（070320小野）

	Dim BunsyoType

	If InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HtmlDesign(4))
	Else
		Response.Write(HtmlDesign(1))
	End If

	Response.Write(HttpL1(3))

	If InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "販売部", "", "販売書類", "", "お買い上げ票", "", "", "", "", ""))
	ElseIf RouteType = "admin" Then
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "演習状況一覧" , "tblbtn( '/" & HomeAlias & "/admin/syokai/fm_jyokyo_ichiran.asp?EnshuCD=" & EnshuCD & "')", "小売販売", "", "", "", "", "", "", ""))	
	Else
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", ShoruiMei, "", "", "", "", ""))
	End If
	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
	
	If RouteType = "" Then
		If ShukkaF = 1 Then
			Response.Write(HttpL3_1("印刷", "PrintoutReal()", "領収書", "RyoshuBtn()", "返品", "HenpinBtn()", "", "", "", ""))

			Response.Write(HttpL3_2("追加", "tblbtn( 'kh_kouri.asp?Action=" & Action & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&PageType=kaiage&RouteType=" & RouteType & "&SakuseiKaisyaCD=" & KaisyaCD & "')", "一覧表示", "tblbtn( 'kh_kouri_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SakuseiKaisyaCD=" & KaisyaCD & "&PageType=ichiran&RouteType=" & RouteType & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "", "", "", "", "", ""))
		Else
			Response.Write(HttpL3_1("修正", "tblbtn( 'kh_kouri.asp?Action=update&RouteType=" & RouteType & "&SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')","印刷", "PrintoutReal()", "販売", "ShukkaBtn()", "削除", "SakujyoBtn()",  "", ""))
			Response.Write(HttpL3_2("追加", "tblbtn( 'kh_kouri.asp?Action=" & Action & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&PageType=kaiage&RouteType=" & RouteType & "&SakuseiKaisyaCD=" & KaisyaCD & "')", "一覧表示", "tblbtn( 'kh_kouri_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SakuseiKaisyaCD=" & KaisyaCD & "&PageType=ichiran&RouteType=" & RouteType & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "", "", "", "", "", ""))
		End IF
	Else
		If RouteType = "admin" Then
			Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))

			Response.Write(HttpL3_2("一覧表示", "tblbtn( 'kh_kouri_ichiran.asp?EnshuCD=" & EnshuCD & "&PageType=ichiran&RouteType=" & RouteType & "&SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "", "", "", "", "", "", "", ""))
		Else
			Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))

			Response.Write(HttpL3_2("一覧表示", "tblbtn( 'kh_kouri_ichiran.asp?PageType=ichiran&RouteType=" & RouteType & "&SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "", "", "", "", "", "", "", ""))
		End If
	End If
	Response.Write(HttpL4(ShoruiMei, "照会"))
	If ShukkaF <> 1 Then
		Response.Write(HttpL5("内容を確認し、販売ボタンを押してください。"))
	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" valign="top">
			<table width="100%" height="100%" border="0" cellpadding="4" cellspacing="0">
				<tr>
					<td align="center" valign="top">
						<table width="100%" border="0" cellpadding="4" cellspacing="0" bgcolor="#FFFFFF" style="border:solid 1px #111111">
							<tr>
								<td height="2" align="center" valign="top"></td>
							</tr>
							<tr>
								<td valign="top" align="center">
									<table width="100%" border="0" cellpadding="0" cellspacing="0">
										<tr>
											<td width="10"></td>
											<td width="190">
												<table width="190" border="0" cellpadding="0" cellspacing="0">
													<tr class="tx1416">
														<td width="190" align="left">伝票番号：<% = BunsyoNaiyoCD %></td>
														<td height="20" align="left">&nbsp;</td>
													</tr>
												</table>
											</td>
											<td width="190" valign="top">
												<table width="130" class="tx2022b" border="0" cellpadding="0" cellspacing="0" >
													<tr>
														<td align="center" nowrap>
															<% = ShoruiMei %>&nbsp;
														</td>
													</tr>
												</table>
											</td>
											<td width="190">
												<table width="190" border="0" cellpadding="0" cellspacing="0">
													<tr class="tx1416">
														<td width="190" align="right">処理日：</td>
														<td width="80" height="20"><% = Kaiagebi %>&nbsp;</td>
													</tr>
												</table>
											</td>
										</tr>
									</table>
								</td>
							</tr>
							<tr>
								<td height="95" align="center" valign="top">
									<table border="0" cellpadding="0" cellspacing="0" width="95%">
										<tr>
											<td width="290">
												<table class="tx1416" width="100%" border="0" cellpadding="0" cellspacing="0">
													<tr >
														<td width="70%" height="26" style="border-bottom: 1px solid #000000">お名前： <% = KyakuName %></td>
														<td width="30%" height="26" style="border-bottom: 1px soli d#000000">様&nbsp; </td>
													</tr>
												</table>
											</td>
											<td>
												<table height="80" class="tx1416" border="0" cellpadding="0" cellspacing="0">
													<tr >
														<td width="5"></td>
													</tr>
												</table>
											</td>
											<td valign="bottom" width="185">
												<table width="290" class="tx1416" border="0" cellpadding="0" cellspacing="0">
													<tr>
														<td height="26" style="border-bottom: 1px solid #000000"><% = Kaisyamei %>&nbsp;</td>
													</tr>
													<tr>
														<td height="26" style="border-bottom: 1px solid #000000"><% = Adr1 %>&nbsp;</td>
													</tr>
													<tr>
														<td height="26" style="border-bottom: 1px solid #000000"><% = Adr2 %>&nbsp;</td>
													</tr>
													<tr>
													<tr>                                                              
														<td height="26" style="border-bottom: 1px solid #000000">TEL：<% = Tel %>&nbsp;</td>
													</tr>							
													<tr>	
														<td height="26" style="border-bottom: 1px solid #000000">FAX：<% = Fax %>&nbsp;</td>
													</tr>
													<tr>
														<td height="26" style="border-bottom: 1px solid #000000">摘要：<% = Tekiyo %>&nbsp;</td>
													</tr>
												</table>
											</td>
										</tr>
									</table>
								</td>
							</tr>
							<tr>
								<td height="240" align="center" valign="top">
									<table width="640" height="240" border="0" cellpadding="4" cellspacing="0">
										<tr>
											<td width="100%" align="RIGHT">
												<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="640" bordercolor="#000000">
													<tr>
														<td height="150" valign="TOP">
															<table width="100%" height="150" border="1" frame="void" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000"  class="tx1416">
																<tr bgcolor="#DDDDDD" height="20">
																	<td align="center" width="15%">商品コード</td>
																	<td align="center">商品名称</td>
																	<td align="center" width="17%">数　量</td>
																	<td align="center" width="17%">単　価</td>
																	<td align="center" width="17%">金　額</td>
																	<% If GB_ShohizeiMode = 1 Then %>
																	<td align="center" width="48">税率</td>
																	<% End If %>
																</tr>
																<tr>
																	<td align="center" height="23"><% = ShohinCD(0) %>&nbsp;</td>
																	<td align="center"><% = ShohinMei(0) %>&nbsp;</td>
																	<td align="right"><% = NumComma(Suryo(0), False) %>&nbsp;</td>
																	<td align="right"><% = NumComma(JitubaiTanka(0), False) %>&nbsp;</td>
																	<td align="right"><% = NumComma(Kingaku(0), False) %>&nbsp;</td>
																	<% If GB_ShohizeiMode = 1 Then %>
																	<td align="right"><% If "" & TaxRate(0) <> "" Then %><% = NumComma(TaxRate(0), False) %>％<% End If %></td>
																	<% End If %>
																</tr>
																<tr>
																	<td align="center" height="23"><% = ShohinCD(1) %>&nbsp;</td>
																	<td align="center"><% = ShohinMei(1) %>&nbsp;</td>
																	<td align="right"><% = NumComma(Suryo(1), False) %>&nbsp;</td>
																	<td align="right"><% = NumComma(JitubaiTanka(1), False) %>&nbsp;</td>
																	<td align="right"><% = NumComma(Kingaku(1), False) %>&nbsp;</td>
																	<% If GB_ShohizeiMode = 1 Then %>
																	<td align="right"><% If "" & TaxRate(1) <> "" Then %><% = NumComma(TaxRate(1), False) %>％<% End If %></td>
																	<% End If %>
																</tr>
																<tr>
																	<td align="center" height="23"><% = ShohinCD(2) %>&nbsp;</td>
																	<td align="center"><% = ShohinMei(2) %>&nbsp;</td>
																	<td align="right"><% = NumComma(Suryo(2), False) %>&nbsp;</td>
																	<td align="right"><% = NumComma(JitubaiTanka(2), False) %>&nbsp;</td>
																	<td align="right"><% = NumComma(Kingaku(2), False) %>&nbsp;</td>
																	<% If GB_ShohizeiMode = 1 Then %>
																	<td align="right"><% If "" & TaxRate(2) <> "" Then %><% = NumComma(TaxRate(2), False) %>％<% End If %></td>
																	<% End If %>
																</tr>
																<tr>
																	<td align="center" height="23"><% = ShohinCD(3) %>&nbsp;</td>
																	<td align="center"><% = ShohinMei(3) %>&nbsp;</td>
																	<td align="right"><% = NumComma(Suryo(3), False) %>&nbsp;</td>
																	<td align="right"><% = NumComma(JitubaiTanka(3), False) %>&nbsp;</td>
																	<td align="right"><% = NumComma(Kingaku(3), False) %>&nbsp;</td>
																	<% If GB_ShohizeiMode = 1 Then %>
																	<td align="right"><% If "" & TaxRate(3) <> "" Then %><% = NumComma(TaxRate(30), False) %>％<% End If %></td>
																	<% End If %>
																</tr>
																<tr>
																	<td align="center" height="23"><% = ShohinCD(4) %>&nbsp;</td>
																	<td align="center"><% = ShohinMei(4) %>&nbsp;</td>
																	<td align="right"><% = NumComma(Suryo(4), False) %>&nbsp;</td>
																	<td align="right"><% = NumComma(JitubaiTanka(4), False) %>&nbsp;</td>
																	<td align="right"><% = NumComma(Kingaku(4), False) %>&nbsp;</td>
																	<% If GB_ShohizeiMode = 1 Then %>
																	<td align="right"><% If "" & TaxRate(4) <> "" Then %><% = NumComma(TaxRate(4), False) %>％<% End If %></td>
																	<% End If %>
																</tr>
															</table>
														</td>
													</tr>
													<tr>
														<td>
															<table width="100%" border="1" cellpadding="0" cellspacing="0" frame="void" style="border-collapse: collapse" bordercolor="#000000"	bgcolor="#DDDDDD"  class="tx1416">
																<tr>
																	<td align="center" rowspan="4"></td>
																	<td align="center" width="215" height="23">合計金額</td>
																	<td  width="108" align="right" bgcolor="#FFFFFF"><% = NumComma(KaiageKingaku, False) %></td>
																	<% If GB_ShohizeiMode = 1 Then %>
																	<td align="center" width="52" rowspan="4"></td>
																	<% End If %>
																</tr>
																<tr>
																	<td align="center" height="23">消費税額</td>
																	<td align="right" bgcolor="#FFFFFF"><% = NumComma(ShohiZei, False) %></td>
																</tr>
																<tr>
																	<td align="center" height="23">税込金額</td>
																	<td align="right" bgcolor="#FFFFFF"><% = NumComma(GokeiUriage, False) %></td>
																</tr>
															</table>
														</td>
													</tr>
												</table>
											</td>
										</tr>
									</table>                                        	
								</td>
							</tr>
						</table>
						<% If Request("Action") = "shukka" Then %>
					<td width="200">
						<table width="100%" height="210" border="0" cellpadding="0" cellspacing="0">
							<tr> 
								<td width="20" rowspan="2"> 
									<img src="/<% = HomeAlias %>/images/warehouse_l.gif" width="20" height="210"></td>
								<td valign="top"> 
									<div id="AreaLay" style="position:absolute; width:100%; height:195px; z-index:1; visibility: visible; overflow: hidden;">
									<div id="TruckLay" style="position:absolute; width:155px; height:135px; z-index:1; top: 60; left: 500;">
									<table width="175" height="135" border="0" cellpadding="0" cellspacing="0">
										<tr> 
											<td width="130" height="100" align="center" valign="bottom"><img src="/<% = HomeAlias %>/images/piece.gif" name="picIMG" width="120" height="90" id="picIMG"></td>
											<td width="45" rowspan="2" valign="bottom"><img src="/<% = HomeAlias %>/images/truck_r_l.gif" width="45" height="65"></td>
										</tr>
										<tr> 
											<td width="130" height="35"><img src="/<% = HomeAlias %>/images/truck_r_r.gif" width="130" height="35"></td>
										</tr>
									</table>
									</div>
									</div>
									<table width="100%" height="195" border="0" cellpadding="0" cellspacing="0">
										<tr> 
											<td width="50" rowspan="2"><img src="/<% = HomeAlias %>/images/warehouse_r.gif" width="50" height="195"></td>
											<td height="180">&nbsp;</td>
										</tr>
										<tr> 
											<td height="15" bgcolor="#999999"><img src="/<% = HomeAlias %>/images/spacer.gif" width="10" height="10"></td>
										</tr>
									</table>
								</td>
							</tr>
							<tr> 
								<td height="15" bgcolor="#999999"><img src="/<% = HomeAlias %>/images/spacer.gif" width="10" height="10"></td>
							</tr>
						</table>
					</td>
					<% End If %>
				</tr>
			</table>
		</td>
	</tr>
</table>
</div>
<input type="hidden" name="BunsyoSyuruiCD" value="<% = BunsyoSyuruiCD %>">

</form>
</body>
<SCRIPT LANGUAGE="JavaScript">

// ### 削除ボタン
function SakujyoBtn()
{
	if(confirm("この操作は元に戻す事ができません。\r\n削除してもよろしいですか？"))
	{
		tblbtn( 'kh_kouri_bin.asp?Action=Delete&SakuseiKaisyaCD=<% = KaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&RouteType=<% = RouteType %>'); 
	}
}

// ### 返品ボタン
function HenpinBtn()
{
	if(confirm("お買い上げ商品を返品します。\r\n返品してもよろしいですか？"))
	{
		tblbtn( 'kh_kouri_henpin.asp?Action=henpin&SakuseiKaisyaCD=<% = KaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&RouteType=<% = RouteType %>'); 
	}
}

// ### 出荷ボタン
function ShukkaBtn()
{
	if(confirm("お買上商品を出荷します。\r\n出荷してもよろしいですか？"))
	{
		tblbtn( 'kh_kouri_bin.asp?Action=shukka&SakuseiKaisyaCD=<% = KaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&RouteType=<% = RouteType %>'); 
	}
}

// ### 領収書ボタン
function RyoshuBtn()
{
		tblbtn( 'kh_kouri_ryoshusho_view.asp?Action=ryoshusho&SakuseiKaisyaCD=<% = KaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&RouteType=<% = RouteType %>'); 
}

<% If Request("Action") = "shukka" Then %>
var pm;
pm = -1;
<% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SY" Then %>
pm = 1;
<% End If %>
itemimg=[<% = SyohinGazoStr %>];
itemnum=itemimg.length-1;
	
count=0;
speed=5;
//speed=50;

function init()
{
	defw = document.all.AreaLay.clientWidth + 50;
	mvlw = document.all.TruckLay.clientWidth + speed;
	if(pm == 1)start = defw;
	else start = -1 * mvlw;
	document.all.TruckLay.style.left = start;
	xx=0;
	moveLay();
}


function moveLay()
{
	xx += speed;
	if(xx > defw + mvlw)
	{
		count += 1;
		if(count>itemnum){ return;}
		document.images["picIMG"].src=itemimg[count];
		init();
	}
	document.all.TruckLay.style.left = start - (xx * pm);
	clearTimeout(slideID);
	slideID=setTimeout('moveLay()',50);
}

if(itemnum >= 0)
{
	slideID=setTimeout("",1);
	document.images["picIMG"].src=itemimg[0];
	init();
}


<% End If %>
</SCRIPT>

<% = HtmlFooter %>
</html>
<%
End Sub
%>