
<!-- #include file="../../../../include.asp" -->
<!-- #include file="../../../../user/bk/unyusokomadoguchi/fc_syorui_view_main_in.asp" -->

<%
'<!--
'################################################
'	名称	：運送書類表示
'	作成日：2002/9/10
'	作成者：山崎　貴史
'	修正日：2003/1/20
'	修正者：重松
'	目的　：運送書類画面を表示する。
'	概要	：
'	 <<表示>>
'################################################
'-->
'
%>

<%
main()

Sub main()

	Dim BunsyoNaiyoCD, BunsyoSyuruiCD, Syoribi, TorihikisakiCD, NonyuBasyoKubun, NonyuKijitsu
	Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg
	Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi
	Dim DbTorihikisakiCD, DbSenpoBunsyoNaiyoCD
	Dim SenpoTmpBunsyoSyuruiCD
	Dim UnsoCD
	Dim ii

	Dim SyohinCD(5)														'商品コード
	Dim SyohinName(5)							'商品名称
	Dim Kakaku(5)								'標準価格
	Dim Suryo(5)															'数量
	Dim Tanka(5)															'単価
	Dim Kingaku(5)															'金額

	Dim NonyuBasyoMeisyo,	UntinSyogakariMeisyo


	Dim GokeiKingaku									'合計
	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
	Dim SakuseiKaisyaCD

	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	RouteType = Request("RouteType")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")

	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	SenpoBunsyoSyuruiCD =	Request("SenpoBunsyoSyuruiCD")
	TorihikisakiCD = Request("TorihikisakiCD")
	UnsoCD = Request("UnsoCD")

	Dim SenpoFlg
	SenpoFlg = Request("SenpoFlg")
	If SenpoFlg = "" Then
		SenpoFlg = 0
	End If

	If SenpoBunsyoNaiyoCD <> "" Then
		SenpoFlg = 1
	End If



	If SakuseiKaisyaCD = "" Then
		SakuseiKaisyaCD = KaisyaCD
	End If



	Dim Kubun, SenpoSyoruiMei, Title
	Dim SyoruiKubun




	Select Case BunsyoSyuruiCD
	Case "KI"
		SyoruiMei = "見積依頼書"
		Title = SyoruiMei
		SyoruiKubun = "S"
	Case "KM"
		SyoruiMei = "見積書"
		Title = SyoruiMei
		SyoruiKubun = "U"
		SenpoTmpBunsyoSyuruiCD = "KI"
	Case "KC"
		SyoruiMei = "注文書"
		Title = SyoruiMei
		SyoruiKubun = "S"
		SenpoTmpBunsyoSyuruiCD = "KM"
	Case "KU"
		SyoruiMei = "注文請書"
		Title = SyoruiMei
		SyoruiKubun = "U"
		SenpoTmpBunsyoSyuruiCD = "KC"
	Case "KK"
		SyoruiMei = "注文請書"
		Title = "先方注文請書確認"
		SyoruiKubun = "S"
	Case "KN"
		SyoruiMei = "納品請求書"
		Title = SyoruiMei
		SyoruiKubun = "U"
		SenpoTmpBunsyoSyuruiCD = "KK"
	Case "KB"
		SyoruiMei = "物品受領書"
		Title = SyoruiMei
		SyoruiKubun = "S"
		SenpoTmpBunsyoSyuruiCD = "KN"
	Case "KX"
		SyoruiMei =	"管理部買入申込書"
		Title = SyoruiMei
		SyoruiKubun = "X"
	Case "KY"
		SyoruiMei =	"管理部売渡申込書"
		Title = SyoruiMei
		SyoruiKubun = "1"
	Case "KV"
		SyoruiMei =	"管理部納品請求書"
		Title = SyoruiMei
		SyoruiKubun = "V"
		SenpoTmpBunsyoSyuruiCD = "KX"
	Case "KW"
		SyoruiMei =	"管理部売渡受付書"
		Title = SyoruiMei
		SyoruiKubun = "W"
		SenpoTmpBunsyoSyuruiCD = "KY"
	Case "CC"
		SyoruiMei =	"運送費見積書"
		Title = SyoruiMei
		SyoruiKubun = "C"
		SenpoTmpBunsyoSyuruiCD = "CC"
	Case "CB"
		SyoruiMei =	"運送費見積依頼書"
		Title = SyoruiMei
		SyoruiKubun = "B"
		SenpoTmpBunsyoSyuruiCD = "CB"

	Case Else
	End Select


	Select Case SenpoBunsyoSyuruiCD
	Case "KI"
		SenpoSyoruiMei = "先方見積依頼書"
	Case "KM"
		SenpoSyoruiMei = "先方見積書"
	Case "KC"
		SenpoSyoruiMei = "先方注文書"
	Case "KU"
		SenpoSyoruiMei = "先方注文請書"
	Case "KK"
		SenpoSyoruiMei = "先方注文請書確認"
	Case "KN"
		SenpoSyoruiMei = "先方納品請求書"
	Case "KB"
		SenpoSyoruiMei = "先方物品受領書"
	Case "KX"
		SenpoSyoruiMei = "先方買入申込書"
	Case "KY"
		SenpoSyoruiMei = "先方売渡申込書"
	Case "KV"
		SenpoSyoruiMei = "先方納品請求書"
	Case "KW"
		SenpoSyoruiMei = "先方物品受領書"
	Case "CC"
		SenpoSyoruiMei = "先方見積書"
	Case "CB"
		SenpoSyoruiMei = "先方見積依頼書"
	Case Else
	End Select

	If SyoruiMei = "" Then
		SyoruiMei = SenpoSyoruiMei
	End If

	If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then

		If KaisyaCD <> SakuseiKaisyaCD And GB_JisyaFlag <> "" Then
			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)

		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("削除フラグ")
			GokeiKingaku = Unsohi

			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("単価")
				Kingaku(DenpyoSEQ) = Content.Fields("単価")	* Content.Fields("数量")
				GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ)
				SyohizeiKingaku = Int(GokeiKingaku * GB_Shohizei / 100)
				ZeikomiKingaku = SyohizeiKingaku + GokeiKingaku
				Content.MoveNext
			Loop
		End If
	End If

	Dim jj,tmps

	For ii = 1 To 5
		If SyohinName(ii) = "" Then
			SyohinName(ii) = "以下余白"
			Exit For
		End If
	Next
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 0;

	//印刷余白指定（ミリ指定）
	PrintTopMargin = 20;
	PrintLeftMargin = 18;
//	PrintTopMargin = 0;
//	PrintLeftMargin = 0;

-->
</SCRIPT>

<body onload="<% = PrintOnLoad %>" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% = PrintScriptX %>

<%
Dim AutoFlg
If RouteType = "Hakushi" Then
	AutoFlg = -1
Else
	AutoFlg = 0
End If
%>
<% = UnsoSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1) %>
</body>
</html>
<%
End Sub
%>