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

<%
'<!--
'################################################
'	名称	:寄託出庫依頼処理
'	作成日	:2006/12/11
'	作成者	:鈴木
'	目的	:寄託出庫依頼を表示する。
'	概要	:
'	履歴	:2007.07.06 期首在庫表示対応
'################################################
'-->
'
%>

<%
main()

Sub main()

	Dim SakuseiKaisyaCD                            '作成会社CD
	Dim TorihikisakiCD                             '取引先CD
	Dim KitakuGaisyaCD                             '寄託会社CD
	Dim SenpoKitakuGaisyaCD                        '先方寄託会社CD
	Dim UnsoGaisyaCD                               '運送会社CD
	Dim UnsoGaisyaMei                              '運送会社名
	Dim BunsyoSyuruiCD                             '文書種類CD
	Dim BunsyoNaiyoCD                              '文書内容CD
	Dim SenpoBunsyoSyuruiCD                        '先方文書種類CD
	Dim SenpoBunsyoNaiyoCD                         '先方文書内容CD
	Dim Syoribi                                    '処理日
	Dim SenpoSyoribi                               '先方処理日
	Dim NonyuKijitsu                               '納入期日
	Dim UntinSyogakariKubun                        '運賃諸掛区分
	Dim Unsohi                                     '運送費
	Dim UnsohiSeikyuFlg                            '運送請求フラグ
	Dim Tekiyo                                     '摘要
	Dim ShiharaiHoho                               '支払方法
	Dim HasshinFlg                                 '発信フラグ
	Dim YukoFlg                                    '有効フラグ
	Dim Kakaku(6)		                               '標準単価
	Dim SyohinCD(6)	                               '商品コード
	Dim SyohinName(6)							                 '商品名称
	Dim Suryo(6)		                               '数量
	Dim Tanka(6)		                               '単価
	Dim MotoTanka(6)		                           '元単価
	Dim UnsoTanka(6)	                             '運送単価
	Dim Zaiko(6)		                               '在庫数量
	Dim GakuseiShimei							                 '学生氏名(係印)
	Dim SyoruiMei                                  '書類名
	Dim Query
	Dim Content
	Dim Shimei                                     '氏名
	Dim PageType
	Dim ZaikoTemp
	Dim ShijyoCD(5)                                '市場CD
	Dim SyohinNyusyukkoSeikousei

	Dim KitakuFrom								                 '寄託期間始
	Dim KitakuTo								                   '寄託期間終

	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
	
	SyohinNyusyukkoSeikousei = GetEnshuParam(EnshuCD, "商品入出庫整合性利用")
	PageType = Request("PageType")

	Dim SenpoFlg
	SenpoFlg = 0
	If SenpoBunsyoNaiyoCD <> "" Then
		SenpoFlg = 1
	End If

	Dim RouteType
	RouteType = Request("RouteType")

	Dim AdminMailFlag

'##### 2007.07.06 期首在庫表示対応 Page 引数化
	Dim Page
	Page = Request("Page")

	If Page = "" Then
		Page = 0
	Else
		Page = Cint(Page)
	End IF

'#####	SyoruiMei = ConvKubunMeisyo("入出庫区分", BunsyoSyuruiCD)
	SyoruiMei = "寄託入庫確認書"

	If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then
	
		If SenpoFlg = 1 Then
			Query = "exec SPD入出庫取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"
		Else
			Query = "exec SPD入出庫取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
		End If

'Response.Write(Query)

		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then
		
			If SenpoFlg = 1 Then
				Syoribi = Content.Fields("先方処理日")
				SenpoSyoribi = Content.Fields("処理日")
			Else
				Syoribi = Content.Fields("処理日")
				SenpoSyoribi = Content.Fields("先方処理日")
			End If
			
			SakuseiKaisyaCD = Content.Fields("作成会社CD")
			TorihikisakiCD = Content.Fields("取引先CD")
			UnsoGaisyaCD = Content.Fields("運送会社CD")
			KitakuGaisyaCD = Content.Fields("寄託会社CD")
			SenpoKitakuGaisyaCD = Content.Fields("先方寄託会社CD")
			YukoFlg = Content.Fields("有効フラグ")

'##### 2007.07.06 期首在庫表示対応 複数頁の対応
			Dim MeisaiCnt, RecCnt
			Dim BackBtn
			Dim FordBtn
			Dim BackUrl
			Dim FordUrl

			RecCnt = 0
			MeisaiCnt = (Page + 1) * 5

			Do While Not(Content.BOF Or Content.EOF)

'				Dim DenpyoSEQ,PreDenpyoSEQ
'				DenpyoSEQ = Content.Fields("入出庫SEQ")
'				SyohinCD(DenpyoSEQ) = Content.Fields("商品CD")
'				
'				ShijyoCD(DenpyoSEQ) = Content.Fields("市場CD")
'				
'				SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD"))
'				Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD"))
'				Suryo(DenpyoSEQ) = Content.Fields("数量")
'				MotoTanka(DenpyoSEQ) = Content.Fields("単価")

				Content.MoveNext
				RecCnt = RecCnt + 1
			Loop
			
			If MeisaiCnt < RecCnt Then
				FordBtn = "次ページ"
				FordUrl = "tblbtn( 'fd_kitaku_nyuko_view.asp?SakuseiKaisyaCD="& KaisyaCD &"&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD &"&Page=" & Page + 1 &"')"
			End If
			If Page > 0 Then
				BackBtn = "前ページ"
				BackUrl = "tblbtn( 'fd_kitaku_nyuko_view.asp?SakuseiKaisyaCD="& KaisyaCD &"&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD &"&Page=" & Page - 1 &"')"
			End If
'##### ここまで			
			Query = "SELECT TGC寄託在庫F.* FROM TGC寄託在庫F "
			Query = Query & " WHERE "
			Query = Query & " システムCD = '" & GB_SystemCD & "' AND "
			Query = Query & " 演習CD = '" & EnshuCD & "' AND "
			Query = Query & " 会社CD = '" & KitakuGaisyaCD & "' AND "
			Query = Query & " 作成会社CD = '" & SakuseiKaisyaCD & "' AND "
			Query = Query & " 寄託依頼会社CD = '" & KaisyaCD & "' AND "
			Query = Query & " 寄託受付番号 = '" & BunsyoNaiyoCD & "'"

			Set Content = db.Execute(Query)
			
			If Not(Content.BOF Or Content.EOF) Then
			
			KitakuFrom = Content.Fields("寄託開始年月日")
			KitakuTo = Content.Fields("寄託保管期日")
			
			End If
			
		End If
		
	End If

	Dim jj,tmps
	Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth
	SyohinMeisyo = "商品名称"

	'TTX文書F開封処理
'	If InStr(RouteType, "MailOnly") > 0 Then
		If BunsyoNaiyoCD <> "" Then
			If GB_JisyaFlag <> "" Then	'運用管理・演習管理(自社フラグ無し)では開封フラグを立てない(061213小野)
				Query = "exec SPD寄託確認文書開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', 'KK', '" & BunsyoNaiyoCD & "'"
				Set Content = OpenQuery(Query)
			End If
		End If
'	End If

%>
<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">
<input type="hidden" name="Action" value="">
<input type="hidden" name="BunsyoSyuruiCD" value="<% = BunsyoSyuruiCD %>">

<%

	Dim BunsyoType
	If InStr(RouteType, "RMail") > 0 Then
		BunsyoType = "受信文書"
		BunsyoSyuruiCD = "SU"	'文書種類入れ替え(苦肉の辻褄合わせ(^^;)
	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 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 , "", "", "", "", "", "", "", "", ""))
	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 BunsyoSyuruiCD = "SC" Then
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "商品企画室", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s5.asp')", SyoruiMei, "", "", "", "", ""))
		ElseIf BunsyoSyuruiCD = "SS" OR BunsyoSyuruiCD = "SX" Then
			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, "", "", "", "", ""))
		Else
			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, "", "", "", "", ""))
		End If
	End If

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

	If InStr(RouteType, "MailOnly") > 0 Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	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 SyohinNyusyukkoSeikousei = "1" And SenpoBunsyoNaiyoCD <> "" Then
		Response.Write(HttpL3_1("受け付ける", "SubmitCheck()", "受け付けない", "form1.Action.value='Deny';SubmitReal(form1);", "", "", "", "", "", ""))
	Else 
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	End If


	If InStr(RouteType, "MailOnly") > 0 Then
	
		If 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("追加", "tblbtn( 'fd_kitaku_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fd_kitaku_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
		ElseIf BunsyoSyuruiCD <> "KK" Then
			Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fd_kitaku_nyuko_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", BackBtn, BackUrl, FordBtn, FordUrl, "", "", "", ""))
		Else
			Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fd_kitaku_nyuko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", ""))
		End If
	End If
	'Response.Write(HttpL3_2("先方書類一覧", "tblbtn( 'fd_kitaku_syuko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fd_kitaku_syuko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
	'Response.Write(HttpL3_2("先方書類一覧", "tblbtn( 'fd_kitaku_nyuko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", ""))
	'Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fd_kitaku_nyuko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", ""))

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

%>

<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
%>
<% '##### 2007.07.06 期首在庫表示対応 Page 引数化 %>
<% = KitakuNyukoKakunin(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, Page) %>

</div>

</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>