
<%
'<!--
'################################################
'	名称	：運送書類表示
'	作成日：2002/9/10
'	作成者：山崎　貴史
'	修正日：2003/1/20
'	修正者：重松
'	目的　：運送書類画面を表示する。
'	概要	：
'	 <<表示>>
'################################################
'-->
'
%>

<%
Function UnsoSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg)

	'マスタの標準消費税率を取得
	Dim StdTaxRate
	Dim StdTaxRateUnso
	StdTaxRate = GB_Shohizei
	StdTaxRateUnso = GB_Shohizei
	If GB_ShohizeiMode = 1 Then
		Query = " SELECT * FROM TDA消費税率M WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND (標準 = '1' OR 運送費標準 = '1') "
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If "" & Content.Fields("標準") = "1" Then
				StdTaxRate = Content.Fields("消費税率")
			End If
			If "" & Content.Fields("運送費標準") = "1" Then
				StdTaxRateUnso = Content.Fields("消費税率")
			End If
			Content.MoveNext
		Loop
	End If

	Dim TmpCnt

	Dim Syoribi, TorihikisakiCD, NonyuBasyoKubun, NonyuKijitsu
	Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg
	Dim SenpoBunsyoSyuruiCD, SenpoSyoribi
	Dim DbTorihikisakiCD, DbSenpoBunsyoNaiyoCD
	Dim SenpoTmpBunsyoSyuruiCD
	Dim UnsoCD

	Dim SyohinCD(5)														'商品コード
	Dim SyohinName(5)							'商品名称
	Dim Kakaku(5)								'標準価格
	Dim Suryo(5)															'数量
	Dim Tanka(5)															'単価
	Dim Kingaku(5)															'金額

	Dim NonyuBasyoMeisyo,	UntinSyogakariMeisyo


	Dim GokeiKingaku									'合計
	GokeiKingaku = 0									'合計
	Dim SyohizeiKingaku							'消費税
	Dim ZeikomiKingaku							'税込み金額
	Dim Checked_N,Checked_R
	Dim GakuseiShimei							'学生氏名（係印）
	Dim GakuseiBango

	Dim NextBunsyoNaiyoCD, PrevBunsyoNaiyoCD
	Dim SyoruiMei
	Dim Query
	Dim Content
	Dim Genkin, Toza
	Dim Shimei
	Dim RouteType
	Dim SakujyoFlg


	RouteType = Request("RouteType")


	Dim SenpoFlg



	TorihikisakiCD = Request("TorihikisakiCD")
	UnsoCD = Request("UnsoCD")


	Dim Kubun, SenpoSyoruiMei, Title


	Select Case BunsyoSyuruiCD
	Case "CB"
		SyoruiMei =	"運送費見積依頼書"
		Title = SyoruiMei
		SenpoTmpBunsyoSyuruiCD = "CB"
	Case "CC"
		SyoruiMei =	"運送費見積書"
		Title = SyoruiMei
		SenpoTmpBunsyoSyuruiCD = "CC"

	Case Else
	End Select



	If SyoruiMei = "" Then
		SyoruiMei = SenpoSyoruiMei
	End If


	If SakuseiKaisyaCD = "" Then
		SakuseiKaisyaCD = KaisyaCD
	End If

	SenpoFlg = 0
	If KaisyaCD <> SakuseiKaisyaCD Then
		SenpoFlg = 1
	End If

	If BunsyoNaiyoCD <> "" Then

		If GB_JisyaFlag <> "" Then	'運用管理・演習管理（自社フラグ無し）では開封フラグを立てない（061213小野）
			Query = "exec SPC運送書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD	&"', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
			Set Content = OpenQuery(Query)
		End If
		Query = "exec SPC運送書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"

		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then

			BunsyoNaiyoCD = Content.Fields("文書内容CD")
			DbTorihikisakiCD = Content.Fields("取引先CD")
			UnsoCD = 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("摘要")
			ShiharaiHoho = Content.Fields("支払方法")
			GakuseiBango = Content.Fields("学生番号")
			SakujyoFlg = Content.Fields("削除フラグ")

			Dim TempDenpyoSEQ
			TempDenpyoSEQ = 0
			Do While Not(Content.BOF Or Content.EOF)
				Dim DenpyoSEQ
				DenpyoSEQ = Content.Fields("文書内容SEQ")
				SyohinCD(DenpyoSEQ) = Content.Fields("商品CD")
				SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD"))
				Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD"))
				Suryo(DenpyoSEQ) = Content.Fields("数量")
				Tanka(DenpyoSEQ) = Content.Fields("単価")
				If "" & Tanka(DenpyoSEQ) = "" Then
					Tanka(DenpyoSEQ) = 0
				End If
				Kingaku(DenpyoSEQ) = Tanka(DenpyoSEQ) * Suryo(DenpyoSEQ)
				If JukaFlg = 1 Then
					Kingaku(DenpyoSEQ) = Tanka(DenpyoSEQ)	'重量指定では単価フィールドを金額として利用
				End If
				If DenpyoSEQ <> TempDenpyoSEQ Then
					GokeiKingaku = GokeiKingaku + ConvMoneyToInt(Kingaku(DenpyoSEQ))
					TempDenpyoSEQ = DenpyoSEQ
				End If
				Content.MoveNext
			Loop

			GokeiKingaku = GokeiKingaku + Unsohi
			'SyohizeiKingaku = Int(GokeiKingaku * GB_Shohizei / 100)
			SyohizeiKingaku = Int(GokeiKingaku * StdTaxRateUnso / 100)
			ZeikomiKingaku = SyohizeiKingaku + GokeiKingaku

		End If
	End If

	For ii = 1 To 5
		If SyohinName(ii) = "" Then
			SyohinName(ii) = "以下余白"
			Exit For
		End If
	Next


	Dim HyojunTankaHyoji
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示")
	End If


	Dim jj,tmps
%>

<% If PrintFlg = 1 Then %>
			<table width="650" height="100%" border="0" cellpadding="0" cellspacing="5">
				<tr> 
					<td align="center" valign="top">
<% Response.Write(PrintHeader(AutoFlg, "")) %>
<% Else %>
			<table width="650" height="100" border="0" cellpadding="0" cellspacing="5">
				<tr>
					<td align="CENTER" valign="middle">
<% End If %>
						<table width="650" height="300" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td align="CENTER" valign="middle">
									<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" style="border:solid 1px #000000">
										<tr>
											<td height="190" align="CENTER" valign="middle">
												<table width="630" height="180" border="0" cellpadding="0" cellspacing="0">
													<tr>
														<td height="60" valign="top">
<div><% = Spacer(1, 17) %></div>
															<table width="630" height="50" align="center" border="0" cellpadding="0" cellspacing="0">
																<tr>
																	<td width="12">
																	</td>
																	<td width="250" valign="top">
																		<table width="130" border="0" cellpadding="0" cellspacing="0" style="border-bottom: 1px solid #000000" class="tx2022">
																			<tr>
																				<td align="center" nowrap><%
																					Dim ii
																					If Len(SyoruiMei) < 8 Then
																						Response.Write(SetStringInsertSpace(SyoruiMei))
																					Else
																						Response.Write(SyoruiMei)
																					End If
																				%></td>
																			</tr>
																		</table>
																	</td>
																	<td width="200">
																		<table width="200" height="50" border="0" cellpadding="0" cellspacing="0">
																			<tr class="tx1416">
																				<td width="60" height="25">書類番号</td>
																				<td width="120" height="25">：<% = BunsyoNaiyoCD %></td>
																			</tr>
																			<tr class="tx1416">
																				<td width="60" height="25">処 理 日</td>
																				<td width="120" height="25">：<% = Syoribi %></td>
																			</tr>
																		</table>
																	</td>
																	<td align="right" valign="bottom">
																		<table width="150" height="50" border="1" cellpadding="0" cellspacing="0" bordercolor="#111111" STYLE="border-collapse: collapse">
																			<tr class="tx1214" >
																				<td width="50" height="15" align="center">&nbsp;</td>
																				<td width="50" height="15" align="center">&nbsp;</td>
																				<td width="50" height="15" align="center">係　印</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>
																	<td width="12">
																	</td>
																</tr>
															</table>
														</td>
													</tr>
													<tr>
														<td height="80" align="center" valign="top">

															<% If BunsyoSyuruiCD = "CB" Then %>
															<table width="600" height="80" border="0" cellpadding="0" cellspacing="0">
																<tr class="tx1618">
																	<td width="70" height="25" >取 引 先</td>
																	<td>：<% = ConvKaisyaMeisyoDx(EnshuCD, DbTorihikisakiCD) %></td>
																	<td width="60">
																			<% If 1 = 0 And BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" AND SenpoFlg = 0 Then %>
																				先方書類
																			<% End If %>
																	</td>
																	<td width="170">
																			<% If 1 = 0 And BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" AND SenpoFlg = 0 Then
																				Response.Write("：" & SenpoSyoribi)
																				If DbSenpoBunsyoNaiyoCD <> "" Then
																					Response.Write("　番号 " & DbSenpoBunsyoNaiyoCD )
																				End If
																			End If %>
																	</td>
																</tr>
																<tr class="tx1618">
																	<td width="70" height="25" >運 送 先</td>
																	<td width="280" >：<% = ConvKaisyaMeisyoDx(EnshuCD, UnsoCD) %></td>
																	<td width="60" >配 送 日</td>
																	<td width="170" >：<% = NonyuKijitsu %></td>
																</tr>
																<tr class="tx1618">
																	<td width="70" >支払方法</td>
																	<td width="190" >：<% = ShiharaiHoho %></td>
																	<td width="60" >　</td>
																	<td width="170" >　</td>
																</tr>
																<tr class="tx1618">
																	<td width="70" height="25" >摘　　要</td>
																	<td width="170" >：<% = Tekiyo %></td>
																</tr>
															</table>
															<% Else %>


															<table width="600" height="80" border="0" cellpadding="0" cellspacing="0">
																<tr class="tx1618">
																	<td width="65" height="25" >取 引 先</td>
																	<td>：<% = ConvKaisyaMeisyoDx(EnshuCD, DbTorihikisakiCD) %></td>
																	<td width="70">配 送 日</td>
																	<td width="200" >：<% = NonyuKijitsu %></td>
																	</td>
																</tr>
																<tr class="tx1618">
																	<td height="25">運 送 先</td>
																	<td>：<% = ConvKaisyaMeisyoDx(EnshuCD, UnsoCD) %></td>
																	<td>支払方法</td>
																	<td>：<% = AscLeft(ShiharaiHoho,26) %></td>
																</tr>
															</table>
															<% End If %>
														</td>
													</tr>
												</table>

											</td>
										</tr>

										<% if BunsyoSyuruiCD = "CB" Then %>
										<tr>
											<td align="CENTER" valign="TOP">
												<table width="600" height="150" 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="600" bordercolor="#000000">
																<tr>
																	<td height="150" valign="TOP">
																		<table width="100%" height="150" border="1" frame="void" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000"  class="tx1416" bgcolor="#FFFFFF">
																			<tr bgcolor="#DDDDDD">
																				<td align="center">商品名称</td>
																				<td align="center" width="100">数　量</td>
																			</tr>

																			<tr>
																				<td align="center"><% = SyohinName(1) %></td>
																				<td align="right"><% = SetMoney(Suryo(1), false, true) %>&nbsp;</td>
																			</tr>
																			<tr>
																				<td align="center"><% = SyohinName(2) %>　</td>
																				<td align="right"><% = SetMoney(Suryo(2), false, true) %>&nbsp;</td>
																			</tr>
																			<tr>
																				<td align="center"><% = SyohinName(3) %>　</td>
																				<td align="right"><% = SetMoney(Suryo(3), false, true) %>&nbsp;</td>
																			</tr>
																			<tr>
																				<td align="center"><% = SyohinName(4) %>　</td>
																				<td align="right"><% = SetMoney(Suryo(4), false, true) %>&nbsp;</td>
																			</tr>
																			<tr>
																				<td align="center"><% = SyohinName(5) %>　</td>
																				<td align="right"><% = SetMoney(Suryo(5), false, true) %>&nbsp;</td>
																			</tr>
																		</table>
																	</td>
																</tr>
															</table>
														</td>
													</tr>
												</table>
<div><% = Spacer(1, 17) %></div>
											</td>
										</tr>
										<% Else %>
										<tr>
											<td align="CENTER" valign="TOP">
												<table width="650" 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="630" bordercolor="#000000">
																<tr>
																	<td height="150" valign="TOP">
																		<table width="100%" height="150" border="1" frame="void" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000"  class="tx1416" bgcolor="#FFFFFF">
																			<tr bgcolor="#DDDDDD">
																				<td align="center" height="25">商品名称</td>
																			<% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
																				<td align="center" width="95">標準価格</td>
																			<% End If %>
																			<% If JukaFlg <> 1 Then %>
																				<td align="center" width="95">数　量</td>
																				<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																				<td align="center" width="95">単　価</td>
																				<td align="center" width="95">金　額</td>
																				<% End If %>
																			<% Else %>
																				<td align="center" width="195">重　量</td>
																				<td align="center" width="95">金　額</td>
																			<% End If %>
																			</tr>

																			<tr>
																				<td align="center" height="25"><% = HardWrap(SyohinName(1)) %></td>
																			<% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
																				<td align="right"><% = SetMoney(Kakaku(1), false, true) %>&nbsp;</td>
																			<% End If %>
																				<td align="right"><% = SetMoney(Suryo(1), false, true) %>&nbsp;</td>
																				<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																				<% If JukaFlg <> 1 Then %>
																				<td align="right"><% = SetMoney(Tanka(1), false, true) %>&nbsp;</td>
																				<% End If %>
																				<td align="right"><% = SetMoney(Kingaku(1), false, true) %>&nbsp;</td>
																				<% End If %>
																			</tr>
																			<tr>
																				<td align="center" height="25"><% = HardWrap(SyohinName(2)) %></td>
																			<% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
																				<td align="right"><% = SetMoney(Kakaku(2), false, true) %>&nbsp;</td>
																			<% End If %>
																				<td align="right"><% = SetMoney(Suryo(2), false, true) %>&nbsp;</td>
																				<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																				<% If JukaFlg <> 1 Then %>
																				<td align="right"><% = SetMoney(Tanka(2), false, true) %>&nbsp;</td>
																				<% End If %>
																				<td align="right"><% = SetMoney(Kingaku(2), false, true) %>&nbsp;</td>
																				<% End If %>
																			</tr>
																			<tr>
																				<td align="center" height="25"><% = HardWrap(SyohinName(3)) %></td>
																			<% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
																				<td align="right"><% = SetMoney(Kakaku(3), false, true) %>&nbsp;</td>
																			<% End If %>
																				<td align="right"><% = SetMoney(Suryo(3), false, true) %>&nbsp;</td>
																				<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																				<% If JukaFlg <> 1 Then %>
																				<td align="right"><% = SetMoney(Tanka(3), false, true) %>&nbsp;</td>
																				<% End If %>
																				<td align="right"><% = SetMoney(Kingaku(3), false, true) %>&nbsp;</td>
																				<% End If %>
																			</tr>
																			<tr>
																				<td align="center" height="25"><% = HardWrap(SyohinName(4)) %></td>
																			<% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
																				<td align="right"><% = SetMoney(Kakaku(4), false, true) %>&nbsp;</td>
																			<% End If %>
																				<td align="right"><% = SetMoney(Suryo(4), false, true) %>&nbsp;</td>
																				<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																				<% If JukaFlg <> 1 Then %>
																				<td align="right"><% = SetMoney(Tanka(4), false, true) %>&nbsp;</td>
																				<% End If %>
																				<td align="right"><% = SetMoney(Kingaku(4), false, true) %>&nbsp;</td>
																				<% End If %>
																			</tr>
																			<tr>
																				<td align="center" height="25"><% = HardWrap(SyohinName(5)) %></td>
																			<% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
																				<td align="right"><% = SetMoney(Kakaku(5), false, true) %>&nbsp;</td>
																			<% End If %>
																				<td align="right"><% = SetMoney(Suryo(5), false, true) %>&nbsp;</td>
																				<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																				<% If JukaFlg <> 1 Then %>
																				<td align="right"><% = SetMoney(Tanka(5), false, true) %>&nbsp;</td>
																				<% End If %>
																				<td align="right"><% = SetMoney(Kingaku(5), false, true) %>&nbsp;</td>
																				<% End If %>
																			</tr>
																		</table>

																	</td>
																</tr>
																<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
																<tr>
																	<td>
																		<table width="100%" height="100" border="1" cellpadding="2" cellspacing="0" frame="void" style="border-collapse: collapse" bordercolor="#000000" bgcolor="#DDDDDD" class="tx1416">
																			<tr>
																				<td align="center" rowspan="4"></td>
																				<td align="center" width="195">保険料・その他</td>
																				<td align="right" width="95" bgcolor="#FFFFFF"><% = SetMoney(Unsohi, false, false) %>&nbsp;</td>
																			</tr>
																			<tr>
																				<td align="center">合計金額</td>
																				<td align="right" bgcolor="#FFFFFF"><% = SetMoney(GokeiKingaku, false, false) %>&nbsp;</td>
																			</tr>
																			<tr>
																				<td align="center">消費税額</td>
																				<td align="right" bgcolor="#FFFFFF"><% = SetMoney(SyohizeiKingaku, false, false) %>&nbsp;</td>
																			</tr>
																			<tr>
																				<td align="center">税込金額</td>
																				<td align="right" bgcolor="#FFFFFF"><% = SetMoney(ZeikomiKingaku, false, false) %>&nbsp;</td>
																			</tr>
																		</table>
																	</td>
																</tr>
																<% End If %>
															</table>
														</td>
													</tr>
												</table>
<div><% = Spacer(1, 17) %></div>
											</td>
										</tr>
										<% End If %>

									</table>
								</td>
							</tr>
						</table>
					</td>
			<% If SenpoFlg = 0 And PrintFlg = 0 Then %>
					<td valign="top" class="tx1618">
						<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="tx1618" width="160">
													<tr>
														<td align="center">この書類に関する情報</td>
													</tr>
													<tr>
														<td>　</td>
													</tr>
													<tr>
														<td>発信： <% = ConvFlagMeisyo(HasshinFlg, 5) %> </td>
													</tr>
													<tr>
														<td height="10"></td>
													</tr>
												</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
%>