
<!-- #include file="../../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：入出庫表示
'	作成日：2002/9/20
'	作成者：山崎　貴史
'	目的　：入出庫画面を表示する。
'	概要	：
'	 <<表示>>
'	・初期は"追加モード"：文書内容CDはＮＵＬＬ
'	・文書内容CDが指定してある場合は"修正モード"
'	<<入力チェック>>
'	１．取引日のチェック
'	２．取引先のチェック
'	３．明細部のチェック
'################################################
'-->
'
%>

<%
main()

Sub main()

	Dim SakuseiKaisyaCD                            '作成会社CD
	Dim TorihikisakiCD                             '取引先CD
	Dim KitakuGaisyaCD                             '寄託会社CD
	Dim SenpoKitakuGaisyaCD                        '先方寄託会社CD
	Dim UnsoGaisyaCD                               '運送会社CD
	Dim BunsyoSyuruiCD                             '文書種類CD
	Dim BunsyoNaiyoCD                              '文書内容CD
	Dim SenpoBunsyoSyuruiCD                        '先方文書種類CD
	Dim SenpoTmpBunsyoSyuruiCD                     '一時先方文書種類CD
	Dim SenpoBunsyoNaiyoCD                         '先方文書内容CD
	Dim Syoribi                                    '処理日
	Dim SenpoSyoribi                               '先方処理日
	Dim NonyuKijitsu                               '納入期日
	Dim UntinSyogakariKubun                        '運賃諸掛区分
	Dim Unsohi                                     '運送費
	Dim UnsohiSeikyuFlg                            '運送費請求フラグ
	Dim Tekiyo                                     '摘要
	Dim ShiharaiHoho                               '支払方法
	Dim HasshinFlg                                 '発信フラグ
	Dim Kakaku(5)		                               '標準単価
	Dim SyohinCD(5)														     '商品コード
	Dim SyohinName(5)							                 '商品名称
	Dim Suryo(5)															     '数量
	Dim Tanka(5)															     '単価
	Dim UnsoTanka(5)														   '運送単価
	Dim SyohinGazo(5)                              '商品画像
	Dim GakuseiShimei							                 '学生氏名（係印）
	Dim SyoruiMei                                  '書類名
	Dim Shimei                                     '氏名
	Dim SyohinGazoStr                              '商品画像文字
	Dim KaisyaCD1                                  '会社CD1
	Dim AdminMaliFlag                              'メール管理者フラグ
	Dim SyohinNyusyukkoSeikousei
	Dim PageType
	Dim RouteType
	Dim Query
	Dim Content
	
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	TorihikisakiCD = Request("TorihikisakiCD")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
	RouteType = Request("RouteType")
	PageType = Request("PageType")

	SyohinGazoStr = ""
	
	SyohinNyusyukkoSeikousei = GetEnshuParam(EnshuCD, "商品入出庫整合性利用")
	
	AdminMaliFlag = 0
	
	'メール管理機能から開いた場合はKaisyaCD1からKaisyaCDを取得
	if Request("KaisyaCD1") <> "" then
		AdminMaliFlag = 1
		KaisyaCD = Request("KaisyaCD1")
	end if

	

	Dim SenpoFlg
	SenpoFlg = 0
	If SenpoBunsyoNaiyoCD <> "" Then
		SenpoFlg = 1
	End If

	If BunsyoSyuruiCD = "SS" Then 
		SenpoTmpBunsyoSyuruiCD = "SU"
	End if

	'SyoruiMei = ConvKubunMeisyo("入出庫区分", BunsyoSyuruiCD)
	SyoruiMei = "寄託出庫"

	If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then
		If SenpoFlg = 1 Then
			Query = "exec SPD入出庫取得2 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"
		Else
			Query = "exec SPD入出庫取得2 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
		End If

		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then

			If SenpoFlg = 1 Then
				TorihikisakiCD = Content.Fields("作成会社CD")
				SenpoSyoribi = Content.Fields("処理日")
				Syoribi = Content.Fields("処理日")
				BunsyoNaiyoCD = SenpoBunsyoNaiyoCD
				
			Else
				TorihikisakiCD = Content.Fields("取引先CD")
				SenpoSyoribi = Content.Fields("先方処理日")
				Syoribi = Content.Fields("処理日")
				
				UnsoGaisyaCD = Content.Fields("運送会社CD")
				KitakuGaisyaCD = Content.Fields("寄託会社CD")
				SenpoKitakuGaisyaCD = Content.Fields("先方寄託会社CD")
				
				
			End If
			
'060908--------------------
			Dim PreNyusyukoSEQ
			PreNyusyukoSEQ = 0
'--------------------------

			Do While Not(Content.BOF Or Content.EOF)
				Dim NyusyukoSEQ

				NyusyukoSEQ = Content.Fields("入出庫SEQ")
				Kakaku(NyusyukoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD"))
				SyohinCD(NyusyukoSEQ) = Content.Fields("商品CD")
				Suryo(NyusyukoSEQ) = Content.Fields("数量")
				Tanka(NyusyukoSEQ) = Content.Fields("単価")
				SyohinGazo(NyusyukoSEQ) = ConvSyohinGazo(EnshuCD, Content.Fields("商品CD"))
				
'060908--------------------
If NyusyukoSEQ <> PreNyusyukoSEQ Then
'--------------------------

				If SyohinGazoStr <> "" Then
					SyohinGazoStr = SyohinGazoStr & ","
				End If

				If SyohinGazo(NyusyukoSEQ) <> "" Then
					SyohinGazoStr = SyohinGazoStr & """" &  Fgoods & "/" & EnshuCD & "/" &SyohinGazo(NyusyukoSEQ) & """"
				Else
					SyohinGazoStr = SyohinGazoStr & """/" & HomeAlias & "/images/truck_box.gif"""
				End If
				
'060908--------------------
End If
PreNyusyukoSEQ = NyusyukoSEQ
'--------------------------

				Content.MoveNext
			Loop
		End If
	End If

'DEBUG#################
'Response.Write(SyohinGazoStr)

	Dim jj,tmps
	


	'TTX文書F開封処理
'	If InStr(RouteType, "MailOnly") > 0 Then
		If BunsyoNaiyoCD <> "" Then
'			Query = "exec SPD入出庫書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
			Query = "exec SPD入出庫書類開封2 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', 'KS', '" & BunsyoNaiyoCD & "'"
			Set Content = OpenQuery(Query)
		End If
'	End If




%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	method="POST" action="fd_nyusyukko_bin.asp" name="form1" autocomplete="off">

<%

	Dim BunsyoType
	If InStr(RouteType, "RMail") > 0 Then
		BunsyoType = "受信文書"
	ElseIf InStr(RouteType, "SMail") > 0 Then
		BunsyoType = "発信文書"
	End If


	If InStr(RouteType, "MailOnly") > 0 Then
		Response.Write(HtmlDesign(6))
	ElseIf InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HtmlDesign(4))
	Else
		Response.Write(HtmlDesign(1))
	End If


'	If InStr(RouteType, "ViewOnly") > 0 Then
'		Response.Write(HtmlDesign(4))
'	Else
'		Response.Write(HtmlDesign(1))
'	End If



	Response.Write(HttpL1(3))
	
	'メール管理機能から開いた場合
	If AdminMaliFlag = 1 Then
		Response.Write(HttpL2("受発信文書ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=" & PageType & "&RouteType=MailOnly')", "", "", "", "", "", "", "", "", "", ""))
	
	
	
	ElseIf InStr(RouteType, "MailOnly") > 0 Then
		Response.Write(HttpL2("受発信文書ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=" & PageType & "&RouteType=MailOnly')", "", "", "", "", "", "", "", "", "", ""))

	ElseIf BunsyoSyuruiCD = "SC" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "商品企画室", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s5.asp')", SyoruiMei, "", "", "", "", ""))
	ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0 Then
		Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "受信文書", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0	Then
		Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "発信文書", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", SyoruiMei, "", "", "", "", "", "", "", "", ""))
	Else
		If BunsyoSyuruiCD = "SC" Then
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "オリジナル商品管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s5.asp')", SyoruiMei, "", "", "", "", ""))
		ElseIf BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "仕入部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s3.asp')", SyoruiMei, "", "", "", "", ""))
		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')", SyoruiMei, "", "", "", "", ""))
			
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "運送倉庫保険業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", SyoruiMei, "", "", "", "", ""))
			
		End If
	End If



	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	If AdminMaliFlag = 1 Then
		Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
		
		
	ElseIf InStr(RouteType, "MailOnly") > 0 Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))

	ElseIf InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()",	"", "", "", "", "", "", "", ""))
	ElseIf SyohinNyusyukkoSeikousei = "1" And (BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SY") Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()",	"", "", "", "", "", "", "", ""))
	Else
		'Response.Write(HttpL3_1("印刷", "PrintoutReal()", "修正", "tblbtn( 'fd_nyusyukko.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')",	"削除", "tblbtn( 'fd_nyusyukko_bin.asp?Action=Del&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "", "", "", ""))
	End If


	If InStr(RouteType, "MailOnly") > 0 Then
		'If SenpoFlg <> "1" or PageType = "発信文書" Then
		
		If PageType = "発信文書" Then
		
			'メール管理機能から開いた場合
			If AdminMaliFlag = 1 Then
				Response.Write(HttpL3_3("受信文書", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=MailOnly')", "発信文書", "", "", "", "受信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')"))
		
			Else
		
				Response.Write(HttpL3_2("受信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=MailOnly')", "発信文書", "", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=MailOnly')", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')"))
			
			End If
			
		Else

			'メール管理機能から開いた場合
			If AdminMaliFlag = 1 Then
			
				Response.Write(HttpL3_3("受信文書", "", "発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=MailOnly')", "", "", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')"))
				
			Else
			
				Response.Write(HttpL3_2("受信文書", "", "発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=MailOnly')", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=MailOnly')", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')"))
			
			End If
			
		End If


	ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0	Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=受信文書')", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0	Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=発信文書')", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?RouteType=ViewOnly&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", ""))
	ElseIF BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SY" Then
		Response.Write(HttpL3_2("先方書類一覧", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("出庫一覧", "tblbtn( 'fu_kitaku_syukko_ichiran.asp')", "出庫依頼一覧", "tblbtn( 'fu_kitaku_syukko_ichiran.asp?Senpo=1')", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL4(SyoruiMei, ""))

%>



<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 height="355" border="0" cellpadding="10" cellspacing="0" style="border:solid 1px #000000" bgcolor="#FFFFFF">
				<tr>
					<td width="600" height="355" align="CENTER" valign="top">
						<table width="600" border="0" cellspacing="0" cellpadding="0" height="355">
							<tr>
								<td height="40" align="CENTER" valign="middle">
									<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"  height="30" width="580" class="tx1416">
										<tr>
											<td width="25%">
												<table width="190" border="0" cellpadding="0" cellspacing="0">
													<tr class="tx1214">
														<td align="left">
															<table class="tx2224b" border="0" cellpadding="0" cellspacing="0" >
																<tr>
																	<td align="center" nowrap><%
																		If Len(SyoruiMei) < 8 Then
																			Response.Write(SetStringInsertSpace(SyoruiMei))
																		Else
																			Response.Write(SyoruiMei)
																		End If
																	%></td>
																</tr>
															</table>
														</td>
													</tr>
												</table>
											</td>
											<td>　</td>
										</tr>
									</table>
								</td>
							</tr>
							<tr>
								<td height="30" align="CENTER" valign="middle">
									<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"  height="160" width="520" class="tx1618">
										<tr>
											<td width="14%" height="20">出庫番号</td>
											<td height="20"><% = BunsyoNaiyoCD %></td>
											<td width="14%" height="20">処理日</td>
											<td width="18%" height="20"><% = Syoribi %></td>
										</tr>
<% If BunsyoSyuruiCD <> "SC" Then %>
										<tr>
											<td height="20">依頼会社</td>
											<td height="20"><% = ConvKaisyaMeisyoDx(EnshuCD, SakuseiKaisyaCD) %></td>
											<td height="20">注文請日</td>
											<td height="20"><% = SenpoSyoribi %></td>
										</tr>
										<tr>
											<td height="20">寄託倉庫</td>
											<td height="20"><% = ConvKaisyaMeisyoDx(EnshuCD, KitakuGaisyaCD) %></td>
											<td height="20"></td>
											<td height="20"></td>
										</tr>
										<tr>
											<td height="20">取 引 先</td>
											<td height="20"><% = ConvKaisyaMeisyoDx(EnshuCD, TorihikisakiCD) %></td>
											<td height="20"></td>
											<td height="20"></td>
										</tr>
<% End If %>
										<tr>
											<td height="20">納入場所</td>
											<td height="20"><% = ConvKaisyaMeisyoDx(EnshuCD, SenpoKitakuGaisyaCD) %></td>
											<td height="20"></td>
											<td height="20"></td>
										</tr>
										
										<tr>
											<td height="20">運送会社</td>
											<td height="20"><% = ConvKaisyaMeisyoDx(EnshuCD, UnsoGaisyaCD) %></td>
											<td height="20"></td>
											<td height="20"></td>
										</tr>
									</table>
								</td>
							</tr>
							<tr>
								<td align="CENTER">
									<table width="580" height="180" 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="580" bordercolor="#000000">
													<tr>
														<td height="30" valign="TOP">
															<table width="100%" height="30" border="1" cellpadding="0" cellspacing="0" frame="below" style="border-collapse: collapse" bordercolor="#000000"  class="tx1618" bgcolor="#CCCCCC">
																<tr>
																	<td align="center">商品名称</td>
																	<td align="center" width="17%">標準単価</td>
																	<td align="center" width="16%">数　量</td>
																	<% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %>
																	<td align="center" width="17%">単　価</td>
																	<% Else %>
																	<td align="center" width="17%">払出単価</td>
																	<% End If %>
																	<% If 1 = 0 Then %>
																	<td align="center" width="17%">運送単価</td>
																	<% End If %>
																	</tr>
															</table>
														</td>
													</tr>


													<tr>
														<td>
															<table width="100%" height="150" border="1" cellpadding="3" cellspacing="0" frame="below" style="border-collapse: collapse" bordercolor="#000000"  class="tx1618">
																<tr>
																	<td align="left"><% = AscLeft(ConvSyohinMeisyo(SyohinCD(1)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て（061031小野）-->
																	<td align="right" width="17%"><% = SetMoney(Kakaku(1), false, true) %><br></td>
																	<td align="right" width="16%"><% = SetMoney(Suryo(1), false, true) %><br></td>
																	<% If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %>
																	<td align="right" width="17%"><% = SetMoney(Tanka(1), false, true) %><br></td>
																	<% End If %>
																</tr>
																<tr>
																	<td align="left"><% = AscLeft(ConvSyohinMeisyo(SyohinCD(2)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て（061031小野）-->
																	<td align="right"><% = SetMoney(Kakaku(2), false, true) %><br></td>
																	<td align="right"><% = SetMoney(Suryo(2), false, true) %><br></td>
																	<% If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %>
																	<td align="right"><% = SetMoney(Tanka(2), false, true) %><br></td>
																	<% End If %>
																</tr>
																<tr>
																	<td align="left"><% = AscLeft(ConvSyohinMeisyo(SyohinCD(3)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て（061031小野）-->
																	<td align="right"><% = SetMoney(Kakaku(3), false, true) %><br></td>
																	<td align="right"><% = SetMoney(Suryo(3), false, true) %><br></td>
																	<% If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %>
																	<td align="right"><% = SetMoney(Tanka(3), false, true) %><br></td>
																	<% End If %>
																</tr>
																<tr>
																	<td align="left"><% = AscLeft(ConvSyohinMeisyo(SyohinCD(4)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て（061031小野）-->
																	<td align="right"><% = SetMoney(Kakaku(4), false, true) %><br></td>
																	<td align="right"><% = SetMoney(Suryo(4), false, true) %><br></td>
																	<% If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %>
																	<td align="right"><% = SetMoney(Tanka(4), false, true) %><br></td>
																	<% End If %>
																</tr>
																<tr>
																	<td align="left"><% = AscLeft(ConvSyohinMeisyo(SyohinCD(5)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て（061031小野）-->
																	<td align="right"><% = SetMoney(Kakaku(5), false, true) %><br></td>
																	<td align="right"><% = SetMoney(Suryo(5), false, true) %><br></td>
																	<% If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %>
																	<td align="right"><% = SetMoney(Tanka(5), false, true) %><br></td>
																	<% End If %>
																</tr>


															</table>
														</td>
													</tr>
												</table>
											</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
		</td>
	<% If Request("Action") = "7" Then %>
		<td width="200">
			<table width="100%" height="210" border="0" cellpadding="0" cellspacing="0">
				<tr> 
					<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;">
											<% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SY" Then %>
											<table width="175" height="135" border="0" cellpadding="0" cellspacing="0">
												<tr> 
													<td width="45" rowspan="2" valign="bottom"><img src="/<% = HomeAlias %>/images/truck_l_l.gif" width="45" height="65"></td>
													<td width="130" height="100" align="center" valign="bottom"><img src="/<% = HomeAlias %>/images/piece.gif" name="picIMG" width="120" height="90" id="picIMG"></td>
												</tr>
												<tr> 
													<td width="130" height="35"><img src="/<% = HomeAlias %>/images/truck_l_r.gif" width="130" height="35"></td>
												</tr>
											</table>
											<% Else %>
											<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>
											<% End If %>
										</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>
				</tr>
			</table>
		</td>
	<% End If %>
	</tr>
</table>
</div>
<input type="hidden" name="BunsyoSyuruiCD" value="<% = BunsyoSyuruiCD %>">
<input type="hidden" name="SenpoBunsyoNaiyoCD" value="<% = SenpoBunsyoNaiyoCD %>">
<input type="hidden" name="SenpoBunsyoSyuruiCD" value="<% = SenpoBunsyoSyuruiCD %>">

</form>
</body>
<SCRIPT LANGUAGE="JavaScript"> 
	<% If Request("Action") = "7" 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
%>