
<%
'<!--
'################################################
'	名称	：仕入売上書類表示
'	作成日：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 DbTorihikisakiCD                           'DB取引先CD
	Dim DbUnsoGaisyaCD                             '運送会社CD
	Dim DbKitakuGaisyaCD                           '寄託会社CD
	Dim DbSenpoKitakuGaisyaCD                      '先方寄託会社CD
	Dim SenpoTmpBunsyoSyuruiCD                     '先方一時文書種類CD
	Dim DbSenpoBunsyoNaiyoCD                       'DB先方文書内容CD
	Dim Syoribi                                    '処理日
	Dim SenpoSyoribi                               '先方処理日
	Dim NonyuBasyoKubun                            '納入場所区分
	Dim NonyuKijitsu                               '納入期日
	Dim UntinSyogakariKubun                        '運賃諸掛区分
	Dim Unsohi                                     '運送費
	Dim UnsohiSeikyuFlg                            '運送費請求フラグ
	Dim Tekiyo                                     '摘要
	Dim ShiharaiHoho                               '支払方法
	Dim HasshinFlg                                 '発信フラグ
	Dim Tekiyo2

	Dim UnsohiSyohizei

	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                           '納入場所名称
	Dim UntinSyogakariMeisyo                       '運賃諸掛名称

	Dim GokeiKingaku									             '合計
	Dim SyohizeiKingaku							               '消費税
	Dim ZeikomiKingaku							               '税込み金額
	Dim Checked_N
	Dim Checked_R
	Dim GakuseiShimei							                 '学生氏名（係印）
	Dim GakuseiBango                               '学生番号

	Dim NextBunsyoNaiyoCD                          '次の文書内容CD
	Dim PrevBunsyoNaiyoCD                          '前の文書内容CD
	Dim SyoruiMei                                  '書類名
	Dim Query
	Dim Content
	Dim Genkin                                     '現金
	Dim Toza                                       '当座
	Dim Shimei                                     '氏名
	Dim SakujyoFlg                                 '削除フラグ
	Dim KaifuFlg                                   '開封フラグ

	Dim SenpoFlg                                   '先方フラグ

	Dim Kubun                                      '区分
	Dim Title                                      'タイトル
	Dim SyoriMongon                                '書類文言
	Dim SyoriMei                                   '書類名
	Dim ShiireUriageKubun                          '仕入売上区分
	Dim SenpoTmpSyoruiKubun                        '先方一時書類区分
	
	If KaisyaCD <> SakuseiKaisyaCD Then
		SenpoFlg = "1"
	Else
		SenpoFlg = "0"
	End If

	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 "KS"
		SyoruiMei = "出庫依頼書"
		Title = SyoruiMei
		ShiireUriageKubun = "U"
		SyoriMongon = "下記の通り出庫依頼申し上げます。"
	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

		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then

			DbTorihikisakiCD = Content.Fields("取引先CD")
			DbKitakuGaisyaCD = Content.Fields("寄託会社CD")
			DbSenpoKitakuGaisyaCD = Content.Fields("先方寄託会社CD")
			
			'文書種類=KS(寄託出庫依頼)の場合、取引先として表示するのは、出庫先ではなく寄託会社CDとなる
			'納入場所は先方寄託会社CD(これは下で設定)
			'また、発信クエリは SPD仕入売上書類発信4 では取引先CDに発信してしまうため
			'寄託会社CDに対して発信するよう新しく作成する必要あり

			If BunsyoSyuruiCD = "KS" Then            'BusyoSyuruiCD(文書種類CD)がKS(寄託出庫依頼)の場合
				DbTorihikisakiCD = DbKitakuGaisyaCD   '取引先CDに寄託会社CDを代入
			End If
			
			
			
			DbUnsoGaisyaCD = Content.Fields("運送会社CD")
			BunsyoNaiyoCD = Content.Fields("文書内容CD")
			DbSenpoBunsyoNaiyoCD = Content.Fields("先方文書内容CD")
			Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
			SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("先方処理日"))
			NonyuBasyoKubun = Content.Fields("納入場所区分")
			NonyuKijitsu = SetTimeYYYYMMDD(Content.Fields("納入期日"))
			UntinSyogakariKubun = Content.Fields("運賃諸掛区分")
			
			Unsohi = Content.Fields("運送費")
			UnsohiSeikyuFlg = Content.Fields("運送費請求フラグ")
			Tekiyo = Content.Fields("摘要")
			Tekiyo2 = Content.Fields("摘要2")
			ShiharaiHoho = Content.Fields("支払方法")
			GakuseiBango = Content.Fields("学生番号")
			HasshinFlg = 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小野）
				End If
				
				Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD"))
				Suryo(DenpyoSEQ) = Content.Fields("数量")
				
				If BunsyoSyuruiCD <> "KS" Then  '文書種類CD=KS(寄託出庫依頼書)以外で、表示する。
					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
				End If
				
				Content.MoveNext
				
				PreDenpyoSEQ = DenpyoSEQ
			Loop
			
			If BunsyoSyuruiCD <> "KS" Then
				'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
	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 ShameiYusen
	ShameiYusen = ""
	Dim ShiireUriageJHB
	Dim Kitakuriyou
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		ShiireUriageJHB = "" & Content.Fields("仕入売上書類受発信利用") 
		Kitakuriyou = Content.Fields("寄託倉庫利用") 
		ShameiYusen = "" & Content.Fields("仕入売上書類社名優先")
	End If

%>

<table width="640" height="400" border="0" cellpadding="0" cellspacing="0">
	<tr> 
		<td align="center" valign="middle">
		<%
			If PrintFlg = 1 Then
				Response.Write(PrintHeader(AutoFlg, ""))
			End if
		%>

			<table width="540" height="355" 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="355" align="CENTER" valign="top">
									<table width="<% If PrintFlg = 1 Then %><% = W1 %><% Else %><% = W1 + 30 %><% End If %>" border="0" cellspacing="0" cellpadding="0" height="460" 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">処理日：<% =   Syoribi %></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("寄託倉庫：")
																						'If SenpoFlg = 1 Then
																						If BunsyoSyuruiCD = "KI" Or BunsyoSyuruiCD = "KC" Or BunsyoSyuruiCD = "KX"  Then
																							If SakuseiKaisyaCD = GB_KaisyaCD Then
																								Response.Write(ConvKaisyaMeisyo(DbKitakuGaisyaCD))
																							Else
																								Response.Write(ConvKaisyaMeisyo(DbSenpoKitakuGaisyaCD))
																							End If
																						Else
																							If SakuseiKaisyaCD = GB_KaisyaCD Then
																								Response.Write(ConvKaisyaMeisyo(DbSenpoKitakuGaisyaCD))
																							Else
																								Response.Write(ConvKaisyaMeisyo(DbKitakuGaisyaCD))
																							End If
																						End If
																					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, DbUnsoGaisyaCD) %></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 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>
																				<td align="center" width="98"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準価格") End If %></td>
																				<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 Then %>
																					<td align="center" width="60">運送単価</td>
																				<% End If %>
		<% End If %>
																			</tr>
		
																			<tr>
																				<td align="<% =  SyohinAlign(1) %>"><% =   SyohinName(1) %></td>
																				<td align="right"><% =   SetMoney(Kakaku(1), false, true) %>　</td>
																				<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 Then %>
																					<td align="right"><% =   SetMoney(UnsoTanka(1), false, true) %>　</td>
																				<% End If %>
		<% End If %>
																			</tr>
																			<tr>
																				<td align="<% =  SyohinAlign(2) %>"><% =   SyohinName(2) %>　</td>
																				<td align="right"><% =   SetMoney(Kakaku(2), false, true) %>　</td>
																				<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 Then %>
																					<td align="right"><% =   SetMoney(UnsoTanka(2), false, true) %>　</td>
																				<% End If %>
		<% End If %>
																			</tr>
																			<tr>
																				<td align="<% =  SyohinAlign(3) %>"><% =   SyohinName(3) %>　</td>
																				<td align="right"><% =   SetMoney(Kakaku(3), false, true) %>　</td>
																				<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 Then %>
																					<td align="right"><% =   SetMoney(UnsoTanka(3), false, true) %>　</td>
																				<% End If %>
		<% End If %>
																			</tr>
																			<tr>
																				<td align="<% =  SyohinAlign(4) %>"><% =   SyohinName(4) %>　</td>
																				<td align="right"><% =   SetMoney(Kakaku(4), false, true) %>　</td>
																				<td align="right"><% =   SetMoney(Suryo(4), false, true) %>　</td>
		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																					<td align="right"><% =   SetMoney(Tanka(4), false, true) %>　</td>
																					<td align="right"><% =   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 Then %>
																					<td align="right"><% =   SetMoney(UnsoTanka(4), false, true) %>　</td>
																				<% End If %>
		<% End If %>
																			</tr>
																			<tr>
																				<td align="<% =  SyohinAlign(5) %>"><% =   SyohinName(5) %>　</td>
																				<td align="right"><% =   SetMoney(Kakaku(5), false, true) %>　</td>
																				<td align="right"><% =   SetMoney(Suryo(5), false, true) %>　</td>
		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																					<td align="right"><% =   SetMoney(Tanka(5), false, true) %>　</td>
																					<td align="right"><% =   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 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" colspan="2">&nbsp;</td>
																					<td align="center" colspan="2">合計金額</td>
																					<td align="right" bgcolor="#FFFFFF"><% = SetMoney(GokeiKingaku, false, false) %>　</td>
																				<% If PrintFlg = 1 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>
																			</table>
																		</td>
																	</tr>
		<% End If %>
															</table>
														</td>
													</tr>
												</table>
											</td>
										</tr>
		<% If PrintFlg = 1 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>
								</td>
							</tr>
						</table>
					</td>
		<!-- 注文請書の場合は受信文書でも情報を表示する（仕入入庫時に買入負担運送単価を確認するため）-->
		<% If (SenpoFlg = "0" Or BunsyoSyuruiCD = "KU") And PrintFlg = 0 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 %>
			<!-- 先方注文請書の場合は発信状態を表示しない-->
			<% If (SenpoFlg = "1" And BunsyoSyuruiCD = "KU") 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
%>