<!-- #include file="../../../include.asp" -->
<!-- #include file="../../../user/bk/shiireuriage/fd_syorui_view_main_in.asp" -->

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

<%
main()

Sub main()


	Dim ShiireUriageKennin
	Dim ShiireUriageJHB
	Dim SenpoHitsuyo
	Dim ShiireUriageSyoruiHikae
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要") 
		ShiireUriageJHB = "" & Content.Fields("仕入売上書類受発信利用") 
		ShiireUriageKennin = ";" & Content.Fields("仕入売上書類検認利用") & ";"
		ShiireUriageKennin = Replace(ShiireUriageKennin, ",", ";") '旧バージョン整合
		ShiireUriageSyoruiHikae = "" & Content.Fields("仕入売上書類控え印刷")
	End If
	If ShiireHanbaiKennin <> 1 Then
		ShiireUriageKennin = ""
	End If

	Dim SenpoFlg

	Dim SakuseiKaisyaCD
	Dim BunsyoNaiyoCD, BunsyoSyuruiCD, Syoribi, NonyuBasyoKubun, NonyuKijitsu
	Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg
	Dim SenpoSyoribi
	Dim DbSenpoBunsyoNaiyoCD
	Dim SenpoTmpBunsyoSyuruiCD

	Dim NonyuBasyoMeisyo,	UntinSyogakariMeisyo

	Dim NextBunsyoNaiyoCD, PrevBunsyoNaiyoCD
	Dim SyoruiMei
	Dim Query
	Dim Content
	Dim Genkin, Toza
	Dim Shimei
	Dim RouteType
	Dim SakujyoFlg
	Dim KaifuFlg
	Dim KenninFlg
	RouteType = Request("RouteType")



	If Request("EnshuCD") <> "" Then
		EnshuCD = Request("EnshuCD")
	End If

	If Request("KaisyaCD") <> "" Then
		KaisyaCD = Request("KaisyaCD")
	End If
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	Syoribi = Request("Syoribi")


	If SakuseiKaisyaCD = "" Then
		SakuseiKaisyaCD = KaisyaCD
	End If

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


Dim KaisyaCD1
Dim AdminMailFlag

AdminMailFlag = 0

	'メール管理機能から開いた場合はKaisyaCD1からKaisyaCDを取得
	if Request("KaisyaCD1") <> "" then
		AdminMailFlag = 1
		KaisyaCD = Request("KaisyaCD1")
	end if
	
	
	
	Dim Kubun, SenpoSyoruiMei, Title
	Dim BunsyoKubun
	Dim SyoriMongon
	Dim SyoriMei

	'受発信文書を先方書類にするための次文書フラグ
	Dim NextBunsyoSyuruiCD
	NextBunsyoSyuruiCD = ""

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

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


	Dim Bu, BuAddr, UrikaiType, ShiireUriageType

	If BunsyoKubun = "V" Or BunsyoKubun = "X" Or BunsyoKubun = "S" Then
		ShiireUriageType = "仕入"
		Bu = "仕入部"
		UrikaiType = "買入"
		BuAddr = 3
	Else
		ShiireUriageType = "販売"
		Bu = "販売部"
		UrikaiType = "売渡"
		BuAddr = 2
	End If



	If SyoruiMei = "" Then
		SyoruiMei = SenpoSyoruiMei
	End If


	If BunsyoNaiyoCD <> "" Then
		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
			HasshinFlg = Content.Fields("発行フラグ")
			SakujyoFlg = Content.Fields("削除フラグ")
			KaifuFlg = Content.Fields("開封フラグ")
			KenninFlg = Content.Fields("検認フラグ")
			UnsoGaisyaCD = Content.Fields("運送会社CD")
		End If
	End If


	'注文請書確認要不要トグル
	Dim UkeshoKakunin
	UkeshoKakunin = 1
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		UkeshoKakunin = Content.Fields("注文請書確認利用") 
	End If
	If "" & UkeshoKakunin = "" Then
		UkeshoKakunin = 1
	End If

%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;

	function AutoReload() {
		tblbtn("<% = Request.ServerVariables("SCRIPT_NAME") %>?<% = Request.ServerVariables("QUERY_STRING") %>");
	}

-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)"<%
	'注文請書確認不要モードでは次の作業を指示する(091009小野)
	If UkeshoKakunin <> 1 And BunsyoSyuruiCD = "KU" And Request("BinType") = "HasshinZumi" Then
		%> onLoad="alert('続いて注文された商品の出庫\n及び納品請求書の送付を行ってください ')"<%
	ElseIf InStr(ShiireUriageKennin, ";" & BunsyoSyuruiCD & ";") > 0 Then
		'発信前に検認が必要で検認されていない場合は発信ボタン表示のためオートリロードする
		%> onLoad="setTimeout('AutoReload();', 20000);"<%
	End If
%> bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">


<%

'Response.Write("RouteType:" & RouteType & "<br>")
'Response.Write("GB_Gyosyu:" & GB_Gyosyu & "<br>")
'Response.Write("BunsyoKubun:" & BunsyoKubun & "<br>")




	Dim BunsyoType
	If InStr(RouteType, "RMail") > 0 Then
		BunsyoType = "受信文書"
	ElseIf InStr(RouteType, "SMail") > 0 Then
		BunsyoType = "発信文書"
	End If

	Dim PageType
	PageType = Request("PageType")

	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, "Hakushi") > 0 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/menu_s42.asp')", SyoruiMei , "", "", ""))
	ElseIf AdminMailFlag = 1 Then
		Response.Write(HttpL2("受発信文書ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=" & PageType & "&RouteType=MailOnly')", "", "", "", "", "", "", "", "", "", ""))
		
	ElseIf 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 , "", "", "", "", "", "", "", "", ""))
		Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", Bu, "", ShiireUriageType & "書類", "", SyoruiMei, "", "", "", "", ""))
	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	'特殊ウィンドウ以外
	
		If GB_Gyosyu = "K" Then
			If BunsyoKubun = "V" Then
				Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", "買入受付", "", "", "", "", ""))
			ElseIf BunsyoKubun = "W" Then
				Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", "売渡受付", "", "", "", "", ""))
			End If
			
		'社長室・総務部の受発信から入った場合、ここを表示する (業種)GB_Gyosyu = "S"ではダメ
		ElseIf InStr(RouteType, "syatyo") > 0 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/')", PageType	, "", "", ""))
			
		Else
			If BunsyoKubun = "1" Or BunsyoKubun = "U" Then
				Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", SyoruiMei, "", "", "", "", ""))
			Else
				 Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "仕入部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s3.asp')", SyoruiMei, "", "", "", "", ""))
			End If
		End If
		
	End If

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Dim TsuikaButton1
	Dim TsuikaButton2
	Dim TsuikaButton3
	Dim TsuikaButton4
	Dim HikaeButton1
	Dim HikaeButton2
	TsuikaButton1 = "追加"
	TsuikaButton2 = "tblbtn('fd_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "');"
	TsuikaButton3 = "再作成"
	TsuikaButton4 = "tblbtn('fd_syorui.asp?BinType=Saisakusei&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "');"
	HikaeButton1 = "控え印刷"
	HikaeButton2 = "PrintoutReal('&HikaeFlg=1');"
	If SenpoHitsuyo = "1" And SenpoTmpBunsyoSyuruiCD <> "" Then
		TsuikaButton1 = "先方書類一覧"
		TsuikaButton2 = "tblbtn( 'fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "');"
		TsuikaButton3 = ""
		TsuikaButton4 = ""
		HikaeButton1 = ""
		HikaeButton2 = ""
	End If
	If ShiireUriageSyoruiHikae <> "1" And  ShiireUriageSyoruiHikae <> "2" Then
		HikaeButton1 = ""
		HikaeButton2 = ""
	End If

	If InStr(RouteType, "Hakushi") > 0 Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "MailOnly") > 0 Then
		'先方書類としてジャンプするボタン(090925小野)
		If InStr(RouteType, "RMail") > 0 And NextBunsyoSyuruiCD <> "" Then
			Response.Write(HttpL3_1("印刷", "PrintoutReal()", "&nbsp;この書類に返信する&nbsp;", "tblbtn2('fd_syorui.asp?BunsyoSyuruiCD=" & NextBunsyoSyuruiCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&SenpoBunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoNaiyoCD=" & BunsyoNaiyoCD & "');", "", "", "", "", "", ""))
		Else
			Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
		End If
	ElseIf InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	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, "syatyo") > 0 Then
		Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
		
	ElseIf SenpoFlg = "0" AND HasshinFlg = 0 AND SakujyoFlg = 0 Then		'発信済みでも削除済みでも無い
		If ShiireUriageJHB = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then
			'発信前に検認が必要で検認されていない場合
			If InStr(ShiireUriageKennin, ";" & BunsyoSyuruiCD & ";") > 0 And "" & KenninFlg <> "1" Then
				Response.Write(HttpL3_1("修正", "tblbtn( 'fd_syorui.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", HikaeButton1, HikaeButton2, "削除", "SakujyoBtn()", "", ""))
			Else
				Response.Write(HttpL3_1("発信", "tblbtn( 'fd_syorui_bin.asp?BinType=Hasshin&UnsoGaisyaCD=" &UnsoGaisyaCD & "&Hasshin&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Syoribi=" & Syoribi & "')", "修正", "tblbtn( 'fd_syorui.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", HikaeButton1, HikaeButton2, "削除", "SakujyoBtn()"))
				'Response.Write(HttpL3_1("発信", "tblbtn( 'fd_syorui_bin.asp?BinType=Hasshin&UnsoGaisyaCD=" &UnsoGaisyaCD & "&Hasshin&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Syoribi=" & Syoribi & "')", "修正", "tblbtn( 'fd_syorui.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "文書として保存", ""))
			End if
		Else
			Response.Write(HttpL3_1("", "", "修正", "tblbtn( 'fd_syorui.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "", ""))
		End If
	ElseIf SenpoFlg = "0" AND HasshinFlg = 1 AND SakujyoFlg = 0 Then		'発信済みでも削除済みでも無い
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", HikaeButton1, HikaeButton2, TsuikaButton3, TsuikaButton4, "削除", "SakujyoBtn()", "", ""))
	ElseIf SenpoFlg = "0" AND HasshinFlg = 0 AND SakujyoFlg = 1 Then		'発信済みでも削除済みでも無い
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", TsuikaButton3, TsuikaButton4, "", "", "", "", "", ""))
	ElseIf SenpoFlg = "0" Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", TsuikaButton3, TsuikaButton4, "", "", "", "", "", ""))
	ElseIf SenpoFlg = "0" Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", TsuikaButton3, TsuikaButton4, "", "", "", "", "", ""))
	ElseIf SakujyoFlg = 0 AND BunsyoSyuruiCD = "KK"	AND KaifuFlg = "0" Then '注文請書確認
		Response.Write(HttpL3_1("確認", "tblbtn( 'fd_syorui_bin.asp?BinType=Kaifu&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "", "", "", "", "", ""))
	ElseIf SakujyoFlg = 0 Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	End If

	If InStr(RouteType, "Hakushi") > 0 Then
		Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "MailOnly") > 0 Then
	
		If SenpoFlg <> "1" Or PageType = "発信文書" Then 
		
			If AdminMailFlag = 1 Then
			
				Response.Write(HttpL3_3("受信文書", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=MailOnly')", "発信文書", "", "", "", "受信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/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
			
		Else
		
			If AdminMailFlag = 1 Then
			
				Response.Write(HttpL3_3("受信文書", "", "発信文書", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=MailOnly')", "", "", "受信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/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
			
		End If		
		
	Else

		If 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( 'fd_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", ""))
		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 InStr(RouteType, "syatyo") > 0 Then
			Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
			
		ElseIf BunsyoSyuruiCD = "KI" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then
			Response.Write(HttpL3_2(TsuikaButton1, TsuikaButton2, "一覧表示", "tblbtn( 'fd_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
		ElseIf BunsyoSyuruiCD <> "KK" Then
			Response.Write(HttpL3_2(TsuikaButton1, TsuikaButton2, "一覧表示", "tblbtn( 'fd_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
		Else
			Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fd_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=KU')", "", "", "", "", "", "", "", ""))
		End If
	End If


	Response.Write(HttpL4(Title , ""))

	If InStr(RouteType, "Hakushi") > 0 Then
		Response.Write(HttpL5(""))
	ElseIf Request("BinType") = "HasshinZumi" Then
		Response.Write(HttpL5("取引先に発信されました。"))
	ElseIf SakujyoFlg = 0 AND BunsyoSyuruiCD = "KK" AND KaifuFlg = "0" Then '注文請書確認
		Response.Write(HttpL5("「確認」ボタンを押し、注文請書を確認して下さい。"))
	ElseIf 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
		If ShiireUriageJHB = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then
			'発信前に検認が必要で検認されていない場合
			If InStr(ShiireUriageKennin, ";" & BunsyoSyuruiCD & ";") > 0 And "" & KenninFlg <> "1" Then
				Response.Write(HttpL5("<span style=""color:ff0000;"">この書類を発信するには管理者による発信許可が必要です。</span>"))
			Else
				Response.Write(HttpL5("「発信」ボタンを押し、相手に送ってください。"))
			End if
		Else
			Response.Write(HttpL5(""))
		End If
	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
%>
<% = ShiireUriageSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, 0) %>
</div>
</form>
</body>
<SCRIPT LANGUAGE="JavaScript">

function SakujyoBtn(){
	if(confirm("この操作は元に戻す事が出来ません。\r\n削除をしてもよろしいですか?"))
	{
		tblbtn( 'fd_syorui_bin.asp?BinType=Sakujyo&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&RouteType=<% = RouteType %>&SakuseiKaisyaCD=<% = SakuseiKaisyaCD %>&SenpoFlg=<% = SenpoFlg %>');
	}
}
</SCRIPT>
<% = HtmlFooter %>
</html>
<%
End Sub
%>