
<!-- #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, SakuseiKaisyaCD, 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 PageType

	PageType = Request("PageType")
	RouteType = Request("RouteType")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")

	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	SenpoBunsyoSyuruiCD =	Request("SenpoBunsyoSyuruiCD")
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	UnsoCD = Request("UnsoCD")


	Dim SenpoFlg
	SenpoFlg = Request("SenpoFlg")
	If SenpoFlg = "" Then
		SenpoFlg = "0"
	End If




	If SakuseiKaisyaCD = "" Then
		SakuseiKaisyaCD = KaisyaCD
	End If
	If SakuseiKaisyaCD <> KaisyaCD Then
		SenpoFlg = "1"
	End If


	Dim Kubun, SenpoSyoruiMei, Title




	Select Case BunsyoSyuruiCD
	Case "CC"
		SyoruiMei =	"運送費見積書"
		Title = SyoruiMei
		SenpoTmpBunsyoSyuruiCD = "CC"
	Case "CB"
		SyoruiMei =	"運送費見積依頼書"
		Title = SyoruiMei
		SenpoTmpBunsyoSyuruiCD = "CB"

	Case Else
	End Select


	Select Case SenpoBunsyoSyuruiCD
	Case "CC"
		SenpoSyoruiMei = "先方見積書"
	Case "CB"
		SenpoSyoruiMei = "先方見積依頼書"
	Case Else
	End Select

	If SyoruiMei = "" Then
		SyoruiMei = SenpoSyoruiMei
	End If

	If BunsyoNaiyoCD <> "" Then

		If KaisyaCD <> SakuseiKaisyaCD And 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("削除フラグ")
			GokeiKingaku = Unsohi

If 0=1 Then	'この部分は計算間違いがあるけど使わないのでコメントアウト
			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

	End If

	Dim jj,tmps

	For ii = 1 To 5
		If SyohinName(ii) = "" Then
			SyohinName(ii) = "以下余白"
			Exit For
		End If
	Next

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="../../../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">


<%
	Dim BunsyoType
	If InStr(RouteType, "RMail") > 0 Then
		BunsyoType = "受信文書"
	ElseIf InStr(RouteType, "SMail") > 0 Then
		BunsyoType = "発信文書"
	End If

	If InStr(RouteType, "MailOnly") > 0 Then
		Response.Write(HtmlDesign(6))
	ElseIf InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HtmlDesign(4))
	Else
		Response.Write(HtmlDesign(1))
	End If

	Response.Write(HttpL1(3))

	If InStr(RouteType, "MailOnly") > 0 Then
		Response.Write(HttpL2("受発信文書ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=" & PageType & "&RouteType=MailOnly')", "", "", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", Title , "", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "RMail") > 0 Or InStr(RouteType, "SMail") > 0 Then	'メインウィンドウの受発信文書
		If GB_Gyosyu <> "B" Then
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "受発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/')", BunsyoType, "", "", ""))
		Else
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "受発信文書" , "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo')", BunsyoType , "", "", "", "", ""))
		End If
	Else	'特殊ウィンドウ以外
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", SyoruiMei, "", "", "", "", ""))
	End If

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	If SakujyoFlg ="" Then
		SakujyoFlg = 0
	End If
	If SakujyoFlg =" " Then
		SakujyoFlg = 0
	End If

	If InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "RMail") > 0 Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "SMail") > 0 Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "MailOnly") > 0 Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	ElseIf SenpoFlg = "0" AND HasshinFlg <> 1 AND SakujyoFlg <> 1 Then		'発信済みでも削除済みでも無い
		Response.Write(HttpL3_1("発信", "tblbtn( 'fu_syorui_bin.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Syoribi=" & Syoribi & "&TorihikisakiCD=" & DbTorihikisakiCD & "&hasshin=1')", "修正", "tblbtn( 'fu_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "", ""))
	ElseIf SenpoFlg = "0" AND HasshinFlg <> 1	Then		'発信済みでも削除済みでも無い
		Response.Write(HttpL3_1("発信", "tblbtn( 'fu_syorui_bin.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Syoribi=" & Syoribi & "&TorihikisakiCD=" & DbTorihikisakiCD & "&hasshin=1')", "修正", "tblbtn( 'fu_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "", ""))
	ElseIf SenpoFlg = "0" Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "再作成", "tblbtn( 'fu_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&ResendFlg=1')", "", "", "", "", "", ""))
	ElseIf SakujyoFlg = 0 AND BunsyoSyuruiCD = "KK" Then '注文請書確認
		Response.Write(HttpL3_1("確認", "tblbtn( 'fu_syorui_view.asp?BinType=Kaifu&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&TorihikisakiCD=" & TorihikisakiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "&SenpoBunsyoNaiyoCD=" & SenpoBunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "", "", "", "", "", ""))
	ElseIf SakujyoFlg = 0 Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	End If
''''''''', "削除", "SakujyoBtn()"


	If InStr(RouteType, "MailOnly") > 0 Then
		If SenpoFlg = "0" Then
			Response.Write(HttpL3_2("受信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=MailOnly')", "発信文書", "", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=MailOnly')", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')"))
		Else
			Response.Write(HttpL3_2("受信文書", "", "発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=MailOnly')", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=MailOnly')", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')"))
		End If
	ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0	Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=受信文書')", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0	Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=発信文書')", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fu_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "')", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "RMail") > 0 Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=受信文書')", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "SMail") > 0 Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=発信文書')", "", "", "", "", "", "", "", ""))
	ElseIf BunsyoSyuruiCD <> "KK" Then
		Response.Write(HttpL3_2("追加", "tblbtn( 'fu_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "先方書類一覧", "tblbtn( 'fu_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=CB')", "一覧表示", "tblbtn( 'fu_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "')", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fu_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "')", "", "", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL4(Title , ""))


	If SakujyoFlg = 0 AND BunsyoSyuruiCD = "KK" Then '注文請書確認
		Response.Write(HttpL5("「確認」ボタンを押し、注文請書を確認して下さい。"))
	ElseIf InStr(RouteType, "ViewOnly") = 0 AND InStr(RouteType, "RMail") = 0 AND InStr(RouteType, "SMail") = 0 AND SenpoFlg = "0" AND HasshinFlg <> 1 AND SakujyoFlg <> 1 Then
		Response.Write(HttpL5("「発信」ボタンを押し、相手に送って下さい。"))
	End If


%>


<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<%
Dim AutoFlg
If RouteType = "Hakushi" Then
	AutoFlg = -1
Else
	AutoFlg = 0
End If
%>
<% = UnsoSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0) %>
</div>
<input type="hidden" name="BunsyoSyuruiCD" value="<% = BunsyoSyuruiCD %>">
<input type="hidden" name="UnsohiSeikyuFlg" value="<% = UnsohiSeikyuFlg %>">
</form>
</body>

<SCRIPT LANGUAGE="JavaScript">

function SakujyoBtn(){
	if(confirm("この操作は元に戻す事が出来ません。\r\n削除をしてもよろしいですか？"))
	{
<% If SenpoFlg = "1" Then %>
		tblbtn( 'fu_syorui_bin.asp?BinType=BunsyoDel&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&RouteType=<% = RouteType %>&SakuseiKaisyaCD=<% = SakuseiKaisyaCD %>&SenpoFlg=1');
<% Else %>
		tblbtn( 'fu_syorui_bin.asp?BinType=Del&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');
<% End If %>
	}
}
</SCRIPT>
<% = HtmlFooter %>
</html>
<%
End Sub
%>