
<!-- #include file="../../../include.asp" -->
<!-- #include file="../../../user/bk/tegata/fk_tegata_view_main_in.asp" -->

<%
'<!--
'################################################
'	名称	：補助簿_現金出納帳
'	作成日：2002/8/27
'	作成者：山崎
'	目的　：現金出納帳をする。
'	概要	：
'	 <<>>
'	・現金出納帳の画面
'	履歴　：2002/9/19　川崎　必須項目のチェックを追加
'
'################################################
'-->
'
%>
<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim SoushinButton
'	SoushinButton = "送信"
'	SoushinButton = "取引相手に手渡す（振出）"
	SoushinButton = "送信（取引相手に振出）"

	Dim SoushinMess
'	SoushinMess = "送信"
	SoushinMess = "振出"


	Dim RouteType
	RouteType = Request("RouteType")
	Dim SenpoFlg
	Dim BunsyoSyuruiCD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	Dim Title
	Title = ConvKubunMeisyo("手形種類区分", BunsyoSyuruiCD)


	Dim Query, Content
	Dim TmpKaisyaCD
	Dim SakuseiKaisyaCD
	Dim HikiukeninCD, FuridashininCD, UketorininCD
	Dim ShiharaiBasyo
	Dim BunsyoNaiyoCD, ShiharaiKijitsu, Furidashibi
	Dim Kingaku
	Dim Tekiyo
	Dim HasshinFlg
	Dim Tenmatsubi, TenmatsuKubun, HiuragakininCD
	Dim SakujyoFlg
	Dim SojyushinKubun

	Dim Action
	Action = Request("Action")

Dim KaisyaCD1
Dim AdminMailFlag

AdminMailFlag = 0

	'メール管理機能から開いた場合はKaisyaCD1からKaisyaCDを取得
	if Request("KaisyaCD1") <> "" then
		AdminMailFlag = 1
		KaisyaCD = Request("KaisyaCD1")
	end if
	
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")

'##### 2007.07.02 APPEND OldBunsyoNaiyoCD
	Dim OldBunsyoNaiyoCD
	OldBunsyoNaiyoCD = BunsyoNaiyoCD


	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")

	If SakuseiKaisyaCD = "" Then
		SakuseiKaisyaCD = KaisyaCD
	End If

	If SakuseiKaisyaCD = KaisyaCD Then
		SenpoFlg = 0
	Else
		SenpoFlg = 1
	End If


'##########################################################################
'手形タイプが裏書なら作成会社CDが自会社CDではないので、ここで改めて取得する
'ここより前で取得してしまうと、自会社が作成した文書でないということになり、SenpoFlgに1が立ってしまう。
'TEST
'SakuseiKaisyaCD = "K001-SUZUKI"

	Dim sjk,skcd
	'Dim ukcd
	sjk=""
	skcd=""
	'ukcd=""
	
	'WHERE句から作成会社CDの条件を除き、抽出（その他の手形と競合する可能性がないとは言えないので注意すること）
	Query = "select * from TGA手形F where システムCD= '" & GB_SystemCD & "' and 演習CD= '"& EnshuCD &"' and 会社CD= '"& KaisyaCD &"' and 文書種類CD= '"& BunsyoSyuruiCD &"' and 文書内容CD= '"& BunsyoNaiyoCD &"' "

	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		sjk = Content.Fields("送受信区分")
		skcd =  Content.Fields("作成会社CD")
	End If
	
	if sjk = "U" then
		SakuseiKaisyaCD = skcd
		'ukcd = "1"
	end if
'###########################################################################



	Query = "exec SPK手形取得"
	Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"		'演習CD
	Query = Query & ",'" & KaisyaCD & "'"	'会社CD
	Query = Query & ",'" & SakuseiKaisyaCD & "'"	'会社CD
	Query = Query & ",'" & BunsyoSyuruiCD & "'"
	Query = Query & ",'" & BunsyoNaiyoCD & "'"

	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		HikiukeninCD = Content.Fields("引受人CD")
		FuridashininCD = Content.Fields("振出人CD")
		UketorininCD = Content.Fields("受取人CD")
		ShiharaiBasyo = Content.Fields("支払場所CD")
		BunsyoNaiyoCD = Content.Fields("文書内容CD")
		ShiharaiKijitsu = Content.Fields("支払期日")
		Furidashibi = Content.Fields("取引日")
		Tekiyo = Content.Fields("摘要")
		Kingaku = Content.Fields("金額")
		HasshinFlg = Content.Fields("発行フラグ")
		SakujyoFlg = Content.Fields("削除フラグ")
		Tenmatsubi = "" & Content.Fields("顛末日")
		TenmatsuKubun = Content.Fields("顛末区分")
		HiuragakininCD = Content.Fields("被裏書人CD")
		SojyushinKubun = Content.Fields("送受信区分")
	End If

	If IsNull(TenmatsuKubun) Then TenmatsuKubun = "" End If


	Dim UketorininRyaku, Uketorinin, HikiukeninRyaku, Hikiukenin
	
	If HikiukeninCD = "etc" Then
		HikiukeninRyaku = "その他"
		Hikiukenin = "その他"
	Else
		HikiukeninRyaku = ConvKaisyaRyakuMeisyo(HikiukeninCD)
		Hikiukenin = ConvKaisyaMeisyoDx(EnshuCD, HikiukeninCD)
	End If


	If UketorininCD = "etc" Then
		UketorininRyaku = "その他"
		Uketorinin = "その他"
	Else
		UketorininRyaku = ConvKaisyaRyakuMeisyo(UketorininCD)
		Uketorinin = ConvKaisyaMeisyoDx(EnshuCD, UketorininCD)
	End If

	Dim TegataSyusei
	Dim KogitteHenkyaku
	Dim GinkoMadoguchiHyoji
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		TegataSyusei = Content.Fields("手形修正")
		KogitteHenkyaku =  "" & Content.Fields("小切手返却利用")
		GinkoMadoguchiHyoji = "" & Content.Fields("銀行窓口表示")
	End If


	'取引先銀行講座がいくつ存在するかのチェック
	Dim KozaCnt
	KozaCnt = 0
	Dim TmpGinkoCD
	'銀行窓口非利用若しくは銀行受領控えなら除外
	If GinkoMadoguchiHyoji = "1" And SenpoFlg = 1 And SojyushinKubun = "R" And HasshinFlg = "0" Then
		Query = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'T'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.EOF Or Content.BOF)
			'口座を持っている銀行数をカウント
			If TmpGinkoCD <> Content.Fields("銀行CD") Then
				TmpGinkoCD = Content.Fields("銀行CD")
				KozaCnt = KozaCnt + 1
			End If
			Content.MoveNext
		Loop
	End If


	'会社配列作成
	Dim KaishaCDA
	Dim KaishaNameA
	Dim KaishaShijoA
	ReDim KaishaCDA(0)
	ReDim KaishaNameA(0)
	ReDim KaishaShijoA(0)
	Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		TmpKaisyaCD = Content.Fields("会社CD")
		If TmpkaisyaCD <> KaisyaCD And Content.Fields("業種CD") <> "B" Then	'銀行を除外
			ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1)	'配列数+1
			ReDim PreServe KaishaNameA(UBound(KaishaCDA))
			ReDim PreServe KaishaShijoA(UBound(KaishaCDA))
			KaishaCDA(UBound(KaishaCDA)) = "" & Content.Fields("会社CD")
			KaishaNameA(UBound(KaishaCDA)) = "" & Content.Fields("会社名称")
			KaishaShijoA(UBound(KaishaCDA)) = "" & Content.Fields("市場CD")
		End If
		Content.MoveNext
	Loop
	ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1)	'配列数+1
	ReDim PreServe KaishaNameA(UBound(KaishaCDA))
	ReDim PreServe KaishaShijoA(UBound(KaishaCDA))
	KaishaCDA(UBound(KaishaCDA)) = "etc"
	KaishaNameA(UBound(KaishaCDA)) = "その他"
	KaishaShijoA(UBound(KaishaCDA)) = ""

	Dim ii


%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg != 0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)" method="POST" action="fk_tegata_bin.asp" name="form1" target="_top" autocomplete="off">
<input type="hidden" name="SakuseiKaisyaCD" value="<% = SakuseiKaisyaCD %>">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="BunsyoSyuruiCD" value="<% = BunsyoSyuruiCD %>">
<input type="hidden" name="BunsyoNaiyoCD" value="<% = BunsyoNaiyoCD %>">
<input type="hidden" name="BinType" value="Hasshin">

<%

'Response.Write("GB_Gyosyu:" & GB_Gyosyu)
'Response.Write("RouteType:" & RouteType)

	Dim AutoNyukinBtn
	Dim AutoNyukinVal
	'取引先銀行口座がひとつのみならダイレクト小切手入金ボタンを表示
	If KozaCnt = 1 And SenpoFlg = 1 Then
		AutoNyukinBtn = "小切手入金"
		AutoNyukinVal = "tblbtn('../ginkomadoguchi/fb_ginkosyorui.asp?BunsyoSyuruiCD=BE&GinkoCD=" & TmpGinkoCD & "&TegataNo=" & SakuseiKaisyaCD & "_" & BunsyoSyuruiCD & "_" & BunsyoNaiyoCD & "');"
	End If


	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, "HojyoboOnly") > 0 Then
		Response.Write(HtmlDesign(2))
	Else
		Response.Write(HtmlDesign(1))
	End If

	Response.Write(HttpL1(3))

	If 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 And InStr(RouteType, "RMail") > 0 Then
		Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "受信文書", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0	Then
		Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "発信文書", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", SyoruiMei, "", "", "", "", "", "", "", "", ""))
	ElseIf RouteType = "Hakushi" 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')", Title, "", "", ""))
	ElseIf InStr(RouteType, "RMail") > 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/')", "受信文書"	, "", "", ""))
	ElseIf InStr(RouteType, "SMail") > 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/')", "発信文書"	, "", "", ""))
	ElseIf InStr(RouteType, "HojyoboOnly") > 0 Then
		Response.Write(HttpL2("補助簿ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp?RouteType=" & RouteType & "')", BunsyoSyuruiCD, "", "", "", "", "","", "", "", ""))
	ElseIf GB_Gyosyu <> "B" Then
	
		'社長室・総務部の受発信から入った場合、ここを表示する
		If 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
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", Title & "管理", "", "", "", "", ""))
		End If
		
	Else
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp')", Title & "管理", "", "", "", "", ""))
	End If

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	If AdminMailFlag = 1 Then
		Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
		
	ElseIf InStr(RouteType, "MailOnly") > 0 Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
		
	ElseIf InStr(RouteType, "MailOnly") > 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 RouteType = "Hakushi" Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	ElseIf SakujyoFlg = 1 And SakujyoFlg <> "1" Then
		Response.Write(HttpL3_1("廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", "", "", ""))
	ElseIf SakujyoFlg = 1 Then
		Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
'		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	ElseIf Action = "Furidashi" Then
		Response.Write(HttpL3_1(SoushinButton, "SubmitCheck()", "", "", "", "", "", "", "", ""))
		'Response.Write(HttpL3_1("送信", "SubmitCheck()", "", "", "", "", "", "", "", ""))
'''''''''手形
	ElseIf BunsyoSyuruiCD = "TG" And SenpoFlg = 0 And HasshinFlg = 0 And TegataSyusei = "1" Then
		Response.Write(HttpL3_1( "修正", "tblbtn( 'fk_tegata.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" &	BunsyoNaiyoCD & "')", "廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", ""))
	ElseIf BunsyoSyuruiCD = "TG" And SenpoFlg = 0 And HasshinFlg = 0 Then
		Response.Write(HttpL3_1( "廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", "", "", ""))
'''''''''手形以外
	ElseIf BunsyoSyuruiCD <> "TG" And SenpoFlg = 0 And HasshinFlg = 0 And TegataSyusei = "1"  Then
		Response.Write(HttpL3_1("振出", "SubmitCheck();", "修正", "tblbtn( 'fk_tegata.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" &	BunsyoNaiyoCD & "')", "廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", ""))
	ElseIf BunsyoSyuruiCD <> "TG" And SenpoFlg = 0 And HasshinFlg = 0 Then
		Response.Write(HttpL3_1("振出", "SubmitCheck();", "廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", ""))
	ElseIf BunsyoSyuruiCD <> "TG" And SojyushinKubun = "H" Then
'		Response.Write(HttpL3_1("廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", "", "", ""))
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))	'引受人なら廃棄ボタンを表示しない（061115小野）
	ElseIf BunsyoSyuruiCD <> "TG" And TenmatsuKubun = "" AND SenpoFlg = 1 Then
'		Response.Write(HttpL3_1("取立入金", "tblbtn( 'fk_tegata.asp?TenmatsuKubun=TT&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" &	BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD	& "')", "割引", "tblbtn( 'fk_tegata.asp?TenmatsuKubun=TW&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" &	BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD	& "')", "裏書譲渡", "tblbtn( 'fk_tegata.asp?TenmatsuKubun=TU&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" &	BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD	& "')", "廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()"))
		Response.Write(HttpL3_1("取立入金", "tblbtn( 'fk_tegata.asp?TenmatsuKubun=TT&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" &	BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD	& "')", "割引", "tblbtn( 'fk_tegata.asp?TenmatsuKubun=TW&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" &	BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD	& "')", "裏書譲渡", "tblbtn( 'fk_tegata.asp?TenmatsuKubun=TU&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" &	BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD	& "')", "印刷", "PrintoutReal()", "", ""))
	ElseIf BunsyoSyuruiCD <> "TG" And HasshinFlg = 0  And TegataSyusei = "1" Then
		Response.Write(HttpL3_1("修正", "tblbtn('fk_tegata.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&TenmatsuShusei=1')", "廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", ""))
	ElseIf TenmatsuKubun <> "" Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))	'顛末区分が発生していたら廃棄ボタンを表示しない（061115小野）
	ElseIf BunsyoSyuruiCD <> "TG" And HasshinFlg = 0 Then
		Response.Write(HttpL3_1("廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", "", "", ""))
	Else
'		Response.Write(HttpL3_1("廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", "", "", ""))
		If Tenmatsubi <> "" Or KogitteHenkyaku <> "1" Or SenpoFlg = 0 Then
			Response.Write(HttpL3_1("印刷", "PrintoutReal()", AutoNyukinBtn, AutoNyukinVal, "", "", "", "", "", ""))	'発信フラグが立っていたら廃棄ボタンを表示しない（061115小野）
		Else '小切手のみ返却許可
			Response.Write(HttpL3_1("印刷", "PrintoutReal()", "返却", "HenkyakuCheck()", AutoNyukinBtn, AutoNyukinVal, "", "", "", ""))	'顛末前なら返却ボタンを表示（071221小野）
		End If
	End If

	If 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

		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=発信文書')", "", "", "", "", "", "", "", ""))
		
		Else
		
		If RouteType = "Hakushi" Then
		'社長室・総務部の受発信から入った場合、ここを表示する
		ElseIf InStr(RouteType, "syatyo") > 0 Then
			Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
		ElseIf BunsyoSyuruiCD = "TK" then
			Response.Write(HttpL3_2("追加", "tblbtn( 'fk_tegata.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "作成一覧", "tblbtn( 'fk_tegata_ichiran.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&OldBunsyoNaiyoCD=" & OldBunsyoNaiyoCD & "&TegataJyotaiKubun=TF&HakkoFlg=0')", "振出一覧", "tblbtn( 'fk_tegata_ichiran.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&OldBunsyoNaiyoCD=" & OldBunsyoNaiyoCD & "&TegataJyotaiKubun=TF')", "受取一覧", "tblbtn( 'fk_tegata_ichiran.asp?SenpoFlg=1&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&OldBunsyoNaiyoCD=" & OldBunsyoNaiyoCD & "&TegataJyotaiKubun=TU')", "引受一覧", "tblbtn( 'fk_tegata_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&OldBunsyoNaiyoCD=" & OldBunsyoNaiyoCD & "&TegataJyotaiKubun=TH')"))
		Else
			Response.Write(HttpL3_2("追加", "tblbtn( 'fk_tegata.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "作成一覧", "tblbtn( 'fk_tegata_ichiran.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&OldBunsyoNaiyoCD=" & OldBunsyoNaiyoCD & "&TegataJyotaiKubun=TF&HakkoFlg=0')", "振出一覧", "tblbtn( 'fk_tegata_ichiran.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&OldBunsyoNaiyoCD=" & OldBunsyoNaiyoCD & "&TegataJyotaiKubun=TF')", "受取一覧", "tblbtn( 'fk_tegata_ichiran.asp?SenpoFlg=1&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&OldBunsyoNaiyoCD=" & OldBunsyoNaiyoCD & "&TegataJyotaiKubun=TU')", "", ""))
		End If
		
	End If

	Response.Write(HttpL4(Title, ""))


Response.Write(BunsyoSyuruiCD)

%>

<% If SakujyoFlg = 1 Then '廃棄済みの場合に表示（070611小野）%>
<SCRIPT LANGUAGE="JavaScript">
<!--
	if(new Boolean(GetObj("BaseL5")) == true) {
		document.all.item("BaseL5").innerHTML = '<font color="#FF0000">※この<% = Title %>は廃棄済みです';
	}
-->
</SCRIPT>
<% End If %>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="550" height="100%" border="0" cellspacing="5" cellpadding="5">
	<tr>
		<td align="center">

			<% If InStr(RouteType, "Hakushi") < 1 And SakujyoFlg = 0 And HasshinFlg = 0 And BunsyoSyuruiCD = "TG" AND SenpoFlg = 0 Then %>
			<% If Action = "" Then %>

			<table width="550" height="75" border="1" cellspacing="5" cellpadding="5" bgcolor="#ffffff" style="border:1px solid #000000">
				<tr>
					<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
						<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td height="30" colspan="2" class="tx1416">　この小切手を、この後どのように処理をするかを選んでください。</td>
							</tr>
							<tr>
								<td height="30" align="center">
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" width="300" HEIGHT="30" onClick="tblbtn('fk_tegata_view.asp?Action=Furidashi&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&BunsyoSyuruiCD=TG');" BGCOLOR="#33CCFF" CLASS="tbtn1">
										<TR>
											<TD id="TDAL" WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
											<TD id="TDAC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>">取引相手に手渡す（振出）</TD>
											<TD id="TDAR" WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
										</TR>
									</TABLE>
								</td>
								<td height="30" align="center">
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" width="300" HEIGHT="30" onClick="tblbtn('fk_tegata_view.asp?Action=ToGinko&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&BunsyoSyuruiCD=TG');" BGCOLOR="#33CCFF" CLASS="tbtn1">
										<TR>
											<TD id="TDAL" WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
											<TD id="TDAC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>">銀行へ持っていき、引出・振込に使う</TD>
											<TD id="TDAR" WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
										</TR>
									</TABLE>
								</td>
							</tr>
							<tr>
								<td height="25" colspan="2" class="tx1416">
									　<font color="#ff0000">※「振出」は小切手を相手に渡す処理です。「振込」とは異なるので注意しましょう。</font>
								</td>
							</tr>
						</TABLE>
					</td>
				</tr>
			</TABLE>


			<% ElseIf Action = "ToGinko" Then %>
			<table width="550" height="75" border="0" cellspacing="5" cellpadding="5" bgcolor="#ffffff" style="border:1px solid #000000">
				<tr>
					<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
						<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td height="30" class="tx1618">　銀行窓口へ行き、処理を行ってください。</td>
							</tr>
						</TABLE>
					</td>
				</tr>
			</TABLE>
			<% ElseIf Action = "Furidashi" Then %>

			<table width="550" height="75" border="0" cellspacing="5" cellpadding="5" bgcolor="#ffffff" style="border:1px solid #000000">
				<tr>
					<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
						<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="tx1416">
							<tr>
								<td height="25" colspan="2" class="tx1618">
									<nobr>&nbsp;&nbsp;小切手の振出先を選択し、「<% = SoushinButton %>」ボタンをクリックしてください。&nbsp;</nobr><br>
								</td>
							</tr>
							<tr>
								<td height="25" colspan="2" class="tx1416" valign="top">
									　<font color="#ff0000">※「振出」は小切手を相手に渡す処理です。「振込」とは異なるので注意しましょう。</font>
								</td>
							</tr>
							<tr>
								<td height="30" align="center">
									振出先市場
									<select size="1" name="ShijoCD" class="tbox4" onChange="SetUketorininMenu(this.selectedIndex);">
										<option value="">全て表示</option>
										<%
											Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
											Set Content = OpenQuery(Query)
											Do While Not(Content.BOF Or Content.EOF)
												Response.Write("<option value=""" & Content.Fields("市場CD") & """>" & Content.Fields("市場名称") & "</option>" & vbCrLf)
												Content.MoveNext
											Loop
										%>
									</select>
									&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
									振出先
									<select size="1" name="UketorininCD" class="tbox4">
										<option value="">＜＜ 選択して下さい ＞＞</option>
										<%
											Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
											Set Content = OpenQuery(Query)
											Do While Not(Content.BOF Or Content.EOF)
												TmpKaisyaCD = Content.Fields("会社CD")
												If TmpkaisyaCD <> KaisyaCD And Content.Fields("業種CD") <> "B" Then	'銀行を除外（080618小野）
													Response.Write("<option value=""" & Content.Fields("会社CD") & """")
													If Content.Fields("会社CD") = UketorininCD Then
														Response.Write(" selected")
													End If
													Response.Write(">" & Content.Fields("会社名称") & "</option>" & vbCrLf)
												End If
												Content.MoveNext
											Loop
										%>
										<option value="etc">その他</option>
									</select>
								</td>
							</tr>
						</TABLE>

					</td>
				</tr>
			</table>
			<% End If %>
			<% End If %>
		</td>
	</tr>
	<tr>
		<td>
<%
Dim AutoFlg
If RouteType = "Hakushi" Then
	AutoFlg = -1
Else
	AutoFlg = 0
End If


%>
<% = Tegata(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0) %>
		</td>
	</tr>
</table>
</div>
</form>

</body>

<SCRIPT LANGUAGE="JavaScript">

//////取引先メニュー変更ロジック

	//取引先CD及び取引先名称の配列を作成
	var Val = new Array();	//配列番号＝市場メニューのselectedIndexで動作する
	var Tex = new Array();
<%
	Dim ContentTorihikisaki
	Dim iii
	Dim jjj
	iii = 0
	jjj = 0
	'TDA市場Mから市場(市場CD)を取得
	Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Do While Not(Content.BOF Or Content.EOF)
			'取引先
			Response.Write("Val[" & iii & "] = new Array()" & vbCrLf)	'2次元配列
			Response.Write("Tex[" & iii & "] = new Array()" & vbCrLf)
			If UBound(KaishaCDA) > 0 Then
				jjj = 0
				Response.Write("Val[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				Response.Write("Tex[" & iii & "][" & jjj & "] = '＜＜ 選択して下さい ＞＞'" & vbCrLf )
				jjj = jjj + 1
				'摘要配列より
				For ii = 1 To UBound(KaishaCDA)
					'iii=0は全取引先取得	KaishaShijoA(ii)=NULLも取得（小売販売対応）
					If iii = 0 Or KaishaShijoA(ii) = "" Or KaishaShijoA(ii) = Content.Fields("市場CD") Then
						Response.Write("Val[" & iii & "][" & jjj & "] = '" & KaishaCDA(ii) & "'" & vbCrLf)
						Response.Write("Tex[" & iii & "][" & jjj & "] = '" & KaishaNameA(ii) & "'" & vbCrLf)
						jjj = jjj + 1
					End If
				Next
			End If
			'iii=0は全取引先取得なのでMoveNextしない
			If iii <> 0 then
				Content.MoveNext
			End If
			iii = iii + 1
		Loop
	End If
%>

	function SetUketorininMenu(selindex) {
		var plusLen = 0;
		//現在選択されているメニュー内容を取得
		var selVal = form1.UketorininCD.value;
		var selTex = form1.UketorininCD.options[form1.UketorininCD.selectedIndex].text;
		//メニューの配列長を変更（Valの2次元目の配列長）
		if (selVal != '') {
			plusLen = 1;
			//現在選択されているメニュー内容がnullで無ければ配列長+1＆先頭メニュー配列にセット
			form1.UketorininCD.options.length = Val[selindex].length + plusLen;
			form1.UketorininCD.options[0].value = selVal;
			form1.UketorininCD.options[0].text = selTex;
		} else {
			form1.UketorininCD.options.length = Val[selindex].length;
		}
		for (jj=0; jj<Val[selindex].length; jj++) {
			//メニューの内容を変更
			form1.UketorininCD.options[jj + plusLen].value = Val[selindex][jj]
			form1.UketorininCD.options[jj + plusLen].text = Tex[selindex][jj]
		}
		form1.UketorininCD.selectedIndex = 0;
	}



	function HenkyakuCheck()
	{
		if(confirm("返却してよろしいですか？"))
		{
			tblbtn( 'fk_tegata_bin.asp?BinType=Henkyaku&SakuseiKaisyaCD=<% = SakuseiKaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>')
		}
	}

	function SakujyoCheck()
	{
		if(confirm("廃棄してよろしいですか？"))
		{
			tblbtn( 'fk_tegata_bin.asp?BinType=Sakujyo&SakuseiKaisyaCD=<% = SakuseiKaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>')
		}
	}


	function SubmitCheck()
	{
		<% If BunsyoSyuruiCD = "TG" Then %>
		if (form1.UketorininCD.value == "")
		{
			alert("振出先を選択して下さい");
			form1.UketorininCD.focus();
			return false;
		}
		<% End If %>

		<% If Action = "Furidashi" Then %>
		if(confirm("<% = SoushinMess %>してよろしいですか？一度行うと取り消すことはできません"))
		{
			SubmitReal(form1);
			return true;
		}
		<% Else %>
		if(confirm("振出してよろしいですか？一度行うと取り消すことはできません"))
		{
			SubmitReal(form1);
			return true;
		}
		<% End If %>

//		SubmitReal(form1);
//		return true;
	}
</SCRIPT>

<% = HtmlFooter %>
</html>
<%
End Sub
%>