<%
'<!--
'################################################
'	名称	:仕入売上書類表示
'	作成日:2002/9/10
'	作成者:山崎 貴史
'	目的 :仕入売上書類画面を表示する。
'	概要	:
'	 <<表示>>
'################################################
'-->
'
%>

<%

Function ShiireUriageSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, HikaeFlg)

	'マスタの標準消費税率を取得
	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, NonyuBasyoKubun, NonyuKijitsu
	Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg
	Dim UnsohiSyohizei
	Dim SenpoSyoribi
	Dim DbTorihikisakiCD, DbSenpoBunsyoNaiyoCD
	Dim SenpoTmpBunsyoSyuruiCD
	Dim Tekiyo2

	Dim Hikae
	If HikaeFlg = 1 Then
		Hikae = "(控)"
	Else
		Hikae = ""
	End If

	Dim LabelSoumu
	Dim LabelTanto
	Dim LabelKakari
	LabelSoumu = ""
	LabelTanto = ""
	LabelKakari = "係 印"
	If MHMINRANLEFT <> "" Then LabelSoumu = MHMINRANLEFT End If
	If MHMINRANCENTER <> "" Then LabelTanto = MHMINRANCENTER End If
	If MHMINRANRIGHT <> "" Then LabelKakari = MHMINRANRIGHT End If

	Dim SyohinCD(5)														'商品コード
	Dim SyohinName(5)							'商品名称
	Dim SyohinAlign(5)
	Dim Kakaku(5)								'標準価格
	Dim Suryo(5)															'数量
	Dim Tanka(5)															'単価
	Dim TaxRate(5)	'消費税率
	Dim Kingaku(5)															'金額

	Dim UnsoTanka(5)							'運送単価
	Dim UnsohiSyohin(5)							'商品運送費
	Dim UnsohiGokei
	Dim OldSyoruiFlg
	UnsohiGokei = 0
	OldSyoruiFlg = 0

	Dim NonyuBasyoMeisyo,	UntinSyogakariMeisyo


	Dim GokeiKingaku									'合計
	Dim SyohizeiKingaku							'消費税
	Dim ZeikomiKingaku							'税込み金額
	Dim Checked_N,Checked_R
	Dim GakuseiShimei							'学生氏名(係印)
	Dim GakuseiBango
	SyohizeiKingaku = 0
	For TmpCnt = 1 To 5
		TaxRate(TmpCnt) = StdTaxRate
	Next

	Dim NextBunsyoNaiyoCD, PrevBunsyoNaiyoCD
	Dim SyoruiMei
	Dim Query
	Dim Content
	Dim Genkin, Toza
	Dim Shimei
	Dim SakujyoFlg
	Dim KaifuFlg

	Dim SenpoFlg

	If KaisyaCD <> SakuseiKaisyaCD Then
		SenpoFlg = "1"
	Else
		SenpoFlg = "0"
	End If

	Dim Kubun, Title
	Dim SyoriMongon
	Dim SyoriMei
	Dim ShiireUriageKubun
	Dim SenpoTmpSyoruiKubun
	
	Select Case BunsyoSyuruiCD
	Case "K1"
		SyoruiMei = "仕入返品伝票"
		Title = SyoruiMei
		ShiireUriageKubun = "S"
		SyoriMongon = "下記の通り返品致します。"
	Case "K2"
		SyoruiMei = "売上返品伝票"
		Title = SyoruiMei
		ShiireUriageKubun = "S"
		SyoriMongon = "下記の通り返品受付致します。"
	Case "K3"
		SyoruiMei = "領収書"
		Title = SyoruiMei
		ShiireUriageKubun = "S"
		SyoriMongon = "下記の通り領収致しました。"

	Case "KI"
		SyoruiMei = "見積依頼書"
		Title = SyoruiMei
		ShiireUriageKubun = "S"
		SyoriMongon = "下記の通り御見積り依頼申し上げます。"
	Case "KM"
		SyoruiMei = "見積書"
		Title = SyoruiMei
		ShiireUriageKubun = "U"
		SenpoTmpSyoruiKubun = "KI"
		SyoriMei = "見積"
		SyoriMongon = "下記の通り御見積り申し上げます。"
	Case "KC"
		SyoruiMei = "注文書"
		Title = SyoruiMei
		ShiireUriageKubun = "S"
		SyoriMongon = "下記の通り注文致します。"
	Case "KU"
		SyoruiMei = "注文請書"
		Title = SyoruiMei
		ShiireUriageKubun = "U"
		SyoriMei = "請求"
		SyoriMongon = "下記の通り注文をお請け致します。"
	Case "KK"
		SyoruiMei = "注文請書"
		Title = "先方注文請書確認"
		ShiireUriageKubun = "S"
		SyoriMongon = "下記の通り注文をお請け致します。"
	Case "KN"
		SyoruiMei = "納品請求書"
		Title = SyoruiMei
		ShiireUriageKubun = "U"
		SyoriMei = "請求"
		SyoriMongon = "下記の通り納品請求申し上げます。"
	Case "KB"
		SyoruiMei = "物品受領書"
		Title = SyoruiMei
		ShiireUriageKubun = "S"
		SyoriMongon = "下記の通り受領致しました"
	Case "KQ"
		SyoruiMei = "領収書"
		Title = SyoruiMei
		ShiireUriageKubun = "S"
		SyoriMongon = "下記の通り領収致しました"
	Case "KX"
		SyoruiMei =	"管理部買入申込書"
		Title = SyoruiMei
		ShiireUriageKubun = "X"
	Case "KY"
		SyoruiMei =	"管理部売渡申込書"
		Title = SyoruiMei
		ShiireUriageKubun = "1"
	Case "KV"
		SyoruiMei =	"管理部納品請求書"
		Title = SyoruiMei
		ShiireUriageKubun = "V"
	Case "KW"
		SyoruiMei =	"管理部売渡受付書"
		Title = SyoruiMei
		ShiireUriageKubun = "W"
	Case "KO"
		SyoruiMei =	"管理部宛物品受領書"
		Title = SyoruiMei
		ShiireUriageKubun = "X"
	Case "KP"
		SyoruiMei =	"管理部宛納品請求書"
		Title = SyoruiMei
		ShiireUriageKubun = "1"
		SenpoTmpSyoruiKubun = "KW"
	Case Else
	End Select
	SyoruiMei = SyoruiMei & Hikae


	'見積依頼書・管理部買入申込書・管理部売渡申込書は税率・合計がないので此処でレイアウトトグル
	Dim TmpShohizeiMode
	Dim TmpGokeiMode
	TmpShohizeiMode = GB_ShohizeiMode
	TmpGokeiMode = 1
	If BunsyoSyuruiCD = "KI" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then
		TmpShohizeiMode = 0
		TmpGokeiMode = 0
	End If
'Response.Write(TmpShohizeiMode)
'Exit Sub



	If BunsyoNaiyoCD <> "" Then

		If SenpoFlg = "1" Then

			If BunsyoSyuruiCD <> "KK" Then '注文請書確認でない
				If KaisyaCD <> SakuseiKaisyaCD Then
					If GB_JisyaFlag <> "" Then	'運用管理・演習管理(自社フラグ無し)では開封フラグを立てない(061213小野)
						Query = "exec SPD仕入売上書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
						Set Content = OpenQuery(Query)
						Query = "exec SPD仕入売上書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
						Set Content = OpenQuery(Query)
					End If
				End If
			End If
		End If

		If BunsyoSyuruiCD = "KK" Then
			Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', 'KU', '" & BunsyoNaiyoCD & "'"
		Else
			Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
		End If

'Response.Write("Query:" & Query & "<br>")

		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then

			BunsyoNaiyoCD = Content.Fields("文書内容CD")
			DbTorihikisakiCD = Content.Fields("取引先CD")
			HasshinFlg = Content.Fields("発行フラグ")


			Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
			DbSenpoBunsyoNaiyoCD = Content.Fields("先方文書内容CD")
			SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("先方処理日"))


			NonyuBasyoKubun = Content.Fields("納入場所区分")
			NonyuKijitsu = SetTimeYYYYMMDD(Content.Fields("納入期日"))
			UntinSyogakariKubun = Content.Fields("運賃諸掛区分")
			UnsoGaisyaCD = Content.Fields("運送会社CD")
			Unsohi = Content.Fields("運送費")
			UnsohiSeikyuFlg = Content.Fields("運送費請求フラグ")
			Tekiyo = Content.Fields("摘要")
			Tekiyo2 = Content.Fields("摘要2")
			ShiharaiHoho = Content.Fields("支払方法")
			GakuseiBango = Content.Fields("学生番号")
			SakujyoFlg = Content.Fields("削除フラグ")
			KaifuFlg = Content.Fields("開封フラグ")


			If Unsohi = "" Or IsNull(Unsohi) Then
				Unsohi = 0
			End If

			Do While Not(Content.BOF Or Content.EOF)
				Dim DenpyoSEQ,PreDenpyoSEQ
				DenpyoSEQ = Content.Fields("文書内容SEQ")
				SyohinCD(DenpyoSEQ) = Content.Fields("商品CD")


				If BunsyoSyuruiCD = "KI" OR BunsyoSyuruiCD = "KX" OR BunsyoSyuruiCD = "KY" Or PrintFlg = 1 Then
					SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD"))
				Else
					SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD"))
				End If
				
				If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then
'					SyohinName(DenpyoSEQ) = AscLeft(SyohinName(DenpyoSEQ),28) '商品名称を28byteで切捨て(061031小野)
					SyohinName(DenpyoSEQ) = "<span style=""width:200px; height:16px; overflow:hidden; border:0px solid #000000;"">" & SyohinName(DenpyoSEQ) & "</span>" '商品名称表示領域を制限(070919小野)
				End If
				
				Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD"))
				Suryo(DenpyoSEQ) = Content.Fields("数量")
				Tanka(DenpyoSEQ) = Content.Fields("単価")
				Kingaku(DenpyoSEQ) = Content.Fields("単価")	* Content.Fields("数量")
				TaxRate(DenpyoSEQ) = Content.Fields("消費税率")
				If "" & TaxRate(DenpyoSEQ) = "" Or GB_ShohizeiMode <> 1 Then
					TaxRate(DenpyoSEQ) = StdTaxRate
				End If
				UnsoTanka(DenpyoSEQ) = Content.Fields("運送単価")
				UnsohiSyohin(DenpyoSEQ) = Content.Fields("運送単価") * Content.Fields("数量")
				
				If PreDenpyoSEQ <> DenpyoSEQ then
					GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ)
					If TaxRate(DenpyoSEQ) <> "" Then
						SyohizeiKingaku = SyohizeiKingaku + (Kingaku(DenpyoSEQ) * CCur(TaxRate(DenpyoSEQ)) / 100)
					Else
						SyohizeiKingaku = SyohizeiKingaku + (Kingaku(DenpyoSEQ) * StdTaxRate / 100)
					End If
					If Not(IsNull(UnsohiSyohin(DenpyoSEQ))) Then
						UnsohiGokei = UnsohiGokei + UnsohiSyohin(DenpyoSEQ)
					End If
				End If
				
				Content.MoveNext
				
				PreDenpyoSEQ = DenpyoSEQ
			Loop
			'SyohizeiKingaku = Int((GokeiKingaku + Unsohi * UnsohiSeikyuFlg) * GB_Shohizei / 100)
			UnsohiSyohizei = (Unsohi * StdTaxRateUnso / 100) * UnsohiSeikyuFlg
			SyohizeiKingaku = Int(SyohizeiKingaku + UnsohiSyohizei)
'Response.Write(SyohizeiKingaku)
'Exit Function
			UnsohiSyohizei = Int(UnsohiSyohizei)
			ZeikomiKingaku = SyohizeiKingaku + GokeiKingaku + Unsohi * UnsohiSeikyuFlg
			If UnsohiGokei <> Unsohi Then	'運送単価から計算された値が運送費と異なっていれば旧仕様にする
				OldSyoruiFlg = 1
			End If
		End If
	End If

	Dim jj,tmps
	Dim ii
	For ii = 1 To 5
		SyohinAlign(ii) = "left"
		If SyohinName(ii) = "" Then
			SyohinName(ii) = "以下余白"
			SyohinAlign(ii) = "center"
			Exit For
		End If
	Next

	If SyohinName(1) = "以下余白" Then
		SyohinName(1) = ""
	End If


	Dim Kaisyamei, KaisyaRyakumei, kaisyaKanamei, ZipCode
	Dim Adr1, Adr2, Tel, Fax, GyosyuCD

	If BunsyoNaiyoCD <> "" Then
		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "'"
		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")
		End If
	End If

	Dim H1, H2, H3, W1, B1
	If PrintFlg = 0 Then
		H1 = 25
		H2 = 100
		W1 = 606
		If TmpShohizeiMode = 1 Then
			W1 = 646
		End If
		B1 = 1
	Else
		H1 = 30
		H2 = 100
		W1 = 667
		B1 = 0
	End If

	Dim Kitakuriyou,KitakuGaisyaCD

	'演習設定取得
	Dim ShiireUriageJHB
	Dim HyojunTankaHyoji
	Dim ShameiYusen
	ShameiYusen = ""
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Kitakuriyou = Content.Fields("寄託倉庫利用") 
		ShameiYusen = "" & Content.Fields("仕入売上書類社名優先")
		ShiireUriageJHB = "" & Content.Fields("仕入売上書類受発信利用") 
		HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示") 
	End If

	Query = "exec SPM寄託会社取得2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		KitakuGaisyaCD = Content.Fields("寄託会社CD") 
	End If
%>

<table width="640" height="<% If PrintFlg = 0 And BunsyoNaiyoCD = "" Then %>510<% Else %>400<% End If %>" border="0" cellpadding="0" cellspacing="0">
	<tr> 
		<td align="center" valign="middle">
		<%
			If PrintFlg = 1 And HikaeFlg < 2 Then 'HTML出力モードではヘッダを出さない
				Response.Write(PrintHeader(AutoFlg, ""))
			End if
		%>

			<table width="540" height="100%" border="0" cellpadding="0" cellspacing="2">
				<tr>
					<td align="CENTER" valign="top">
						<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td height="100%" align="CENTER" valign="top">
								<% If PrintFlg = 0 And BunsyoNaiyoCD = "" Then %>
									<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:655px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
								<% End If %>
									<table width="<% If PrintFlg = 1 Then %><% = W1 %><% Else %><% = W1 + 30 %><% End If %>" border="0" cellspacing="0" cellpadding="0" height="<% If PrintFlg = 0 And BunsyoNaiyoCD = "" Then %><% If BunsyoSyuruiCD = "KM" Or BunsyoSyuruiCD = "KU" Or BunsyoSyuruiCD = "KN" Then %>780<% Else %>700<% End If %><% Else %>460<% End If %>" bgcolor="#FFFFFF" style="border:solid <% =  B1 %>px #000000">
										<tr>
											<td align="CENTER" valign="BOTTOM">
												<table width="<% =  W1 - 10 %>" border="0" cellpadding="0" cellspacing="0">
													<tr>
														<td valign="top">
															<table width="100%" border="0" cellpadding="0" cellspacing="0">
																<tr>
																	<td width="150" >
																		<table width="150" border="0" cellpadding="0" cellspacing="0">
																			<tr class="tx1416">
																				<td width="150" align="left">書類番号:<% =   BunsyoNaiyoCD %></td>
																			</tr>
																		</table>
																	</td>
																	<td valign="top" align="center">
		
																		<table width="150" class="tx2022b" border="0" cellpadding="0" cellspacing="0" >
																			<tr>
																				<td align="center" nowrap>
																				<% If Len(SyoruiMei) < 8 Then %>
																					<% = SetStringInsertSpace(SyoruiMei) %>
																				<% Else %>
																					<% = SyoruiMei %>
																				<% End If %>
																				</td>
																			</tr>
																		</table>
																	</td>
																	<td width="150">
																		<table width="150" border="0" cellpadding="0" cellspacing="0">
																			<tr class="tx1416">
																				<td width="150" align="right">処理日:<% If "" & Syoribi = "" Then %>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<% Else %><% = Syoribi %><% End If %></td>
																			</tr>
																		</table>
																	</td>
																</tr>
															</table>
														</td>
													</tr>
													<tr><td height="5" align="center" valign="top"></td></tr>
													<tr>
														<td height="95" align="center" valign="top">
															<table width="100%" border="0" cellpadding="0" cellspacing="0">
																<tr>
																	<td>
																		<table class="tx1416" border="0" cellpadding="0" cellspacing="0">
																			<tr>
																				<td height="<% =  H1 %>" style="border-bottom: 1px solid #000000" colspan="2" class="tx1416">
																					<table class="tx1618" width="100%"  border="0" cellpadding="0" cellspacing="0">
																						<tr>
																							<td>
																					<% = ConvKaisyaMeisyoDx(EnshuCD, DbTorihikisakiCD) %>
																							</td>
																							<td align="right">
		御中
																							</td>
																						</tr>
																					</table>
																				</td>
																			</tr>
																			<tr >
																				<td width="60" height="<% =  H1 %>" style="border-bottom: 1px solid #000000">納入場所</td>
																				<td style="border-bottom: 1px solid #000000">:<% =   ConvKubunMeisyo("納入場所区分", NonyuBasyoKubun) %>  
																				<% 
																					If Kitakuriyou = "1" Then
																						Response.Write(":")
																						Response.Write(ConvKaisyaMeisyo(KitakuGaisyaCD))
																					End If 
																				%>
																				
																				</td>
																			</tr>
																			<tr >
																				<td width="60" height="<% =  H1 %>" style="border-bottom: 1px solid #000000">運賃諸掛</td>
																				<td style="border-bottom: 1px solid #000000">:<% =   ConvKubunMeisyo("運賃諸掛区分", UntinSyogakariKubun)%></td>
																			</tr>
		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																				<tr >
																					<td width="60" height="<% =  H1 %>" style="border-bottom: 1px solid #000000">運送会社</td>
																					<td style="border-bottom: 1px solid #000000">:<% =   ConvKaisyaMeisyoDx(EnshuCD, UnsoGaisyaCD) %></td>
																				</tr>
		<% Else '運送会社がない分は空行にする %>
																				<tr >
																					<td width="60" height="<% =  H1 %>" style="border-bottom: 1px solid #000000" colspan="2">       </td>
																				</tr>
		<% End If %>
																			<tr >
																				<td width="60" height="<% =  H1 %>" style="border-bottom: 1px solid #000000">支払方法</td>
																				<td style="border-bottom: 1px solid #000000">:<%
																					ShiharaiHoho = AscLeft(ShiharaiHoho,26) '支払方法を26byteで切捨て(061031小野)
																					%>
																				<% = ShiharaiHoho %></td>
																			</tr>
																			<tr >
																				<td height="<% =  H1 %>" width="60" style="border-bottom: 1px solid #000000"><% If MHMNONYUKIJITSU <> "" Then Response.Write(MHMNONYUKIJITSU) Else Response.Write("納入期日") End If %></td>
																				<td width="225" style="border-bottom: 1px solid #000000">:<% =   NonyuKijitsu %></td>
																			</tr>
																		</table>
																	</td>
																	<td>
																		<table height="95" class="tx1416" border="0" cellpadding="0" cellspacing="0">
																			<tr>
																				<td width="<% =  H1 %>">
																				</td>
																			</tr>
																			<tr >
																				<td width="<% =  H1 %>" ></td>
																			</tr>
																			<tr >
																				<td width="<% =  H1 %>" ></td>
																			</tr>
		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																				<tr >
																					<td width="<% =  H1 %>" ></td>
																				</tr>
		<% End If %>
																			<tr>
																				<td width="<% =  H1 %>" ></td>
																			</tr>
																		</table>
																	</td>
																	<td valign="bottom">
																		<table width="285" class="tx1416" border="0" cellpadding="0" cellspacing="0">
																		<% If ShameiYusen <> "1" Then %>
																			<tr>
																				<td height="<% =  H1 %>" style="border-bottom: 1px solid #000000"><% =   Kaisyamei %> </td>
																			</tr>
																		<% End If %>
																			<tr>
																				<td height="<% =  H1 %>" style="border-bottom: 1px solid #000000"><% =   Adr1 %> </td>
																			</tr>
																		<% If Trim(Adr2) <> "" Then %>
																			<tr>
																				<td height="<% =  H1 %>" style="border-bottom: 1px solid #000000"><% =   Adr2 %> </td>
																			</tr>
																		<% End If %>
																		<% If ShameiYusen = "1" Then %>
																			<tr>
																				<td height="<% =  H1 %>" style="border-bottom: 1px solid #000000"><% =   Kaisyamei %> </td>
																			</tr>
																		<% End If %>
																		<% If ShiireHanbaiKaishaTekiyo = 1 And Trim(Tekiyo2) <> "" Then %>
																			<tr>
																				<td height="<% =  H1 %>" style="border-bottom: 1px solid #000000"><%
																					Tekiyo2 = AscLeft(Tekiyo2,32) '摘要を32byteで切捨て(061031小野)
																					%>
																				<% = Tekiyo2 %></td>
																			</tr>
																		<% End If %>
																			<tr>
																				<td height="<% =  H1 %>" style="border-bottom: 1px solid #000000">TEL:<% =   Tel %></td>
																			</tr>
																			<tr>
																				<td height="<% =  H1 %>" style="border-bottom: 1px solid #000000">FAX:<% =   Fax %></td>
																			</tr>
																			<tr>
																				<td height="<% =  H1 %>" style="border-bottom: 1px solid #000000">摘要:<%
																					Tekiyo = AscLeft(Tekiyo,32) '摘要を32byteで切捨て(061031小野)
																					%>
																				<% = Tekiyo %></td>
																			</tr>
																		</table>
																	</td>
																</tr>
															</table>
		
		
		
		
		
		
														</td>
													</tr>
		<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
													<tr>
														<td height="60" valign="bottom" align="right">
														</td>
													</tr>



													<tr>
														<td height="60" valign="bottom" align="right">
															<table width="150" height="60" border="1" cellpadding="0" cellspacing="0" bordercolor="#111111" STYLE="border-collapse: collapse">
																<tr class="tx1416">
																	<td width="50" height="15" align="center"><% = LabelSoumu %></td>
																	<td width="50" height="15" align="center"><% = LabelTanto %></td>
																	<td width="50" height="15" align="center"><% = LabelKakari %></td>
																</tr>
																<tr class="tx1416">
																	<td width="50" height="35" align="center">&nbsp;</td>
																	<td width="50" height="35" align="center">&nbsp;</td>
																	<td width="50" height="35" align="center"><% =  ConvShimeiRyakuMeisyo(GakuseiBango) %></td>
																</tr>
															</table>
														</td>
													</tr>

													<tr>
														<td valign="bottom">
															<table border="0" width="100%" class="tx1416">
																<tr>
																	<td><% =  SyoriMongon %></td>
																</tr>
			<% If ShiireUriageKubun = "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>
		<% End If %>
												</table>
		
		
											</td>
										</tr>
		
										<tr>
											<td align="CENTER" valign="TOP">
												<table width="<% = W1 %>" height="230" border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse; border:solid 2px #FFFFFF">
													<tr>
														<td width="100%" align="center">
															<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<% = W1 %>" bordercolor="#000000">
																<tr>
																	<td height="150" valign="TOP">
																		<table width="100%" height="<% If TmpGokeiMode = 1 Then %>250<% Else %>160<% End If %>" border="1" frame="void" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000"  class="tx1416" bgcolor="#FFFFFF">
																			<tr bgcolor="#DDDDDD">
																				<td align="center">商品名称</td>
																			<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
																				<td align="center" width="98"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準価格") End If %></td>
																			<% End If %>
																				<td align="center" width="98">数 量</td>
		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																					<td align="center" width="98">単 価</td>
																					<td align="center" width="98">金 額</td>
																				<% If TmpShohizeiMode = 1 Then %>
																					<td align="center" width="52">税率</td>
																				<% End If %>
																				<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
																					<td align="center" width="60">運送<br>単価</td>
																				<% End If %>
		<% End If %>
																			</tr>
		
																			<tr>
																				<td align="<% =  SyohinAlign(1) %>"><% =   SyohinName(1) %></td>
																			<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
																				<td align="right"><% =   SetMoney(Kakaku(1), false, true) %> </td>
																			<% End If %>
																				<td align="right"><% =   SetMoney(Suryo(1), false, true) %> </td>
		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																					<td align="right"><% =   SetMoney(Tanka(1), false, true) %> </td>
																					<td align="right"><% =   SetMoney(Kingaku(1), false, true) %> </td>
																				<% If TmpShohizeiMode = 1 Then %>
																					<td align="center"><% If "" & Kingaku(1) <> "" Then %><% = TaxRate(1) %>%<% End If %></td>
																				<% End If %>
																				<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
																					<td align="right"><% =   SetMoney(UnsoTanka(1), false, true) %> </td>
																				<% End If %>
		<% End If %>
																			</tr>
																			<tr>
																				<td align="<% =  SyohinAlign(2) %>"><% =   SyohinName(2) %> </td>
																			<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
																				<td align="right"><% =   SetMoney(Kakaku(2), false, true) %> </td>
																			<% End If %>
																				<td align="right"><% =   SetMoney(Suryo(2), false, true) %> </td>
		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																					<td align="right"><% =   SetMoney(Tanka(2), false, true) %> </td>
																					<td align="right"><% =   SetMoney(Kingaku(2), false, true) %> </td>
																				<% If TmpShohizeiMode = 1 Then %>
																					<td align="center"><% If "" & Kingaku(2) <> "" Then %><% = TaxRate(2) %>%<% End If %></td>
																				<% End If %>
																				<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
																					<td align="right"><% =   SetMoney(UnsoTanka(2), false, true) %> </td>
																				<% End If %>
		<% End If %>
																			</tr>
																			<tr>
																				<td align="<% =  SyohinAlign(3) %>"><% =   SyohinName(3) %> </td>
																			<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
																				<td align="right"><% =   SetMoney(Kakaku(3), false, true) %> </td>
																			<% End If %>
																				<td align="right"><% =   SetMoney(Suryo(3), false, true) %> </td>
		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																					<td align="right"><% =   SetMoney(Tanka(3), false, true) %> </td>
																					<td align="right"><% =   SetMoney(Kingaku(3), false, true) %> </td>
																				<% If TmpShohizeiMode = 1 Then %>
																					<td align="center"><% If "" & Kingaku(3) <> "" Then %><% = TaxRate(3) %>%<% End If %></td>
																				<% End If %>
																				<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
																					<td align="right"><% =   SetMoney(UnsoTanka(3), false, true) %> </td>
																				<% End If %>
		<% End If %>
																			</tr>
																			<tr>
																				<td align="<% =  SyohinAlign(4) %>"><% =   SyohinName(4) %> </td>
																			<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
																				<td align="right" width="100"><% =   SetMoney(Kakaku(4), false, true) %> </td>
																			<% End If %>
																				<td align="right" width="100"><% =   SetMoney(Suryo(4), false, true) %> </td>
		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																					<td align="right" width="100"><% =   SetMoney(Tanka(4), false, true) %> </td>
																					<td align="right" width="100"><% =   SetMoney(Kingaku(4), false, true) %> </td>
																				<% If TmpShohizeiMode = 1 Then %>
																					<td align="center"><% If "" & Kingaku(4) <> "" Then %><% = TaxRate(4) %>%<% End If %></td>
																				<% End If %>
																				<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
																					<td align="right"><% =   SetMoney(UnsoTanka(4), false, true) %> </td>
																				<% End If %>
		<% End If %>
																			</tr>
																			<tr>
																				<td align="<% =  SyohinAlign(5) %>"><% =   SyohinName(5) %> </td>
																			<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
																				<td align="right" width="100"><% =   SetMoney(Kakaku(5), false, true) %> </td>
																			<% End If %>
																				<td align="right" width="100"><% =   SetMoney(Suryo(5), false, true) %> </td>
		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																					<td align="right" width="100"><% =   SetMoney(Tanka(5), false, true) %> </td>
																					<td align="right" width="100"><% =   SetMoney(Kingaku(5), false, true) %> </td>
																				<% If TmpShohizeiMode = 1 Then %>
																					<td align="center"><% If "" & Kingaku(5) <> "" Then %><% = TaxRate(5) %>%<% End If %></td>
																				<% End If %>
																				<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
																					<td align="right"><% =   SetMoney(UnsoTanka(5), false, true) %> </td>
																				<% End If %>
		<% End If %>
																			</tr>
<!--
																		</table>
																	</td>
																</tr>
-->
		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
<!--
																	<tr>
																		<td>
																			<table width="100%" height="<% = H2 %>" border="1" cellpadding="0" cellspacing="0" frame="void" style="border-collapse: collapse" bordercolor="#000000"	bgcolor="#DDDDDD"  class="tx1416">
-->
																				<tr bgcolor="#DDDDDD">
																					<td align="center" rowspan="4"<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> colspan="2"<% End If %>>&nbsp;</td>
																					<td align="center" colspan="2">合計金額</td>
																					<td align="right" bgcolor="#FFFFFF" width="100"><% = SetMoney(GokeiKingaku, false, false) %> </td>
																				<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
																					<td align="right" bgcolor="#FFFFFF" rowspan="4">&nbsp;</td>
																				<% End If %>
																				<% If TmpShohizeiMode = 1 Then %>
																					<td align="center" rowspan="4"></td>
																				<% End If %>
																				</tr>
																				<tr bgcolor="#DDDDDD">
																					<td align="center" colspan="2">運送費請求額</td>
																					<td align="right" bgcolor="#FFFFFF"><% If BunsyoNaiyoCD <> "" Then %><% = SetMoney(Unsohi * UnsohiSeikyuFlg, false, false) %><% End If %> </td>
																				</tr>
																				<tr bgcolor="#DDDDDD">
																					<td align="center" colspan="2">消費税額</td>
																					<td align="right" bgcolor="#FFFFFF"><% = SetMoney(SyohizeiKingaku, false, false) %> </td>
																				</tr>
																				<tr bgcolor="#DDDDDD">
																					<td align="center" colspan="2">税込金額</td>
																					<td align="right" bgcolor="#FFFFFF"><% = SetMoney(ZeikomiKingaku, false, false) %> </td>
																				</tr>
		<% End If %>
																			</table>
																		</td>
																	</tr>
															</table>
														</td>
													</tr>
												</table>
											</td>
										</tr>
		<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
					<tr>
						<td align="CENTER" valign="TOP" >
							<table width="600" height="100" 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>
		<% End If %>

									</table>
								<% If PrintFlg = 0 And BunsyoNaiyoCD = "" Then %>
									</DIV>
								<% End If %>
								</td>
							</tr>
						</table>
					</td>
		<!-- 先方注文請書の場合は受信文書でも情報を表示する(仕入入庫時に買入負担運送単価を確認するため)※先方管理部売渡受付書も同様に(140701小野)-->
		<% If (SenpoFlg = "0" Or BunsyoSyuruiCD = "KU" Or BunsyoSyuruiCD = "KW") And PrintFlg = 0 And BunsyoNaiyoCD <> "" Then %>
						<td valign="top">
							<table width="100%" height="200" border="0" cellpadding="3" cellspacing="0"	bgcolor="#eeeeff" style="border:solid 1px #111111">
								<tr>
									<td valign="top">
			
										<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" >
											<tr>
												<td valign="top">
													<table BORDER="0" CELLSPACING="0" CELLPADDING="0" class="tx1416" width="150">
														<tr>
															<td>この書類に関する情報</td>
														</tr>
														<tr>
															<td> </td>
														</tr>
			<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
													<% If DbSenpoBunsyoNaiyoCD <> "" Then %>
														<tr>
															<td>先方書類番号:<% = DbSenpoBunsyoNaiyoCD %></td>
														</tr>
													<% End If %>
														<tr>
															<td>先方処理日:<% = SenpoSyoribi %></td>
														</tr>
														<tr>
															<td height="10"></td>
														</tr>
			<% End If %>
			<!-- 先方注文請書の場合は発信状態を表示しない ※先方管理部売渡受付書も同様に(140701小野)-->
			<% If (SenpoFlg = "1" And BunsyoSyuruiCD = "KU") Or (SenpoFlg = "1" And BunsyoSyuruiCD = "KW") Then %>
			<% ElseIf ShiireUriageJHB = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then %>
														<tr>
															<td>発信:<% = ConvFlagMeisyo(HasshinFlg, 5) %></td>
														</tr>
														<tr>
															<td height="10"></td>
														</tr>
			<% End If %>
			<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> 
															<tr>
																<td>運送費:<% = SetMoney(Unsohi, false, true) %> 円</td>
															</tr>
															<tr>
																<td height="10"></td>
															</tr>
			<% End If %>
			<% If OldSyoruiFlg < 1 And BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> 
				<% For DenpyoSEQ = 1 To 5
					If SyohinCD(DenpyoSEQ) <> "" Then %>
															<tr>
																<td><% = SyohinName(DenpyoSEQ) %></td>
															</tr>
															<tr>
																<td>&nbsp;運送単価:<% = UnsoTanka(DenpyoSEQ) %> 円</td>
															</tr>
															<tr>
																<td height="5"></td>
															</tr>
					<% End If
				Next %>
			<% End If %>
													</table>
												</td>
											</tr>
										</table>
			
									</td>
								</tr>
							</table>
						</td>
		<% End If %>
				</tr>
			</table>
		<%
			If PrintFlg = 1 Then
				Response.Write(PrintFooter())
			End if
		%>
		</td>
	</tr>
</table>
<%
End Function
%>