
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
' 	名称	：寄託契約
' 	作成日：2006/12/19
' 	作成者：小野
' 	目的　：寄託契約の締結
' 	概要	：
' 	 <<表示>>
' 	・寄託契約書を表示
'################################################
'-->
'
'
%>

<%

main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim BunsyoNaiyoCD
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	Dim RouteType
	RouteType = Request("RouteType")
	Dim PageType
	PageType = Request("PageType")
	Dim SakuseiKaisyaCD	'受発信文書表示の際に必要
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	Dim TorihikisakiCD	'運送会社側発信文書表示の際に必要
	TorihikisakiCD = Request("TorihikisakiCD")

	Dim SenpoFlg
	SenpoFlg = Request("SenpoFlg")

	Dim AdminMailFlag
	AdminMailFlag = 0
	'メール管理機能から開いた場合はKaisyaCD1からKaisyaCDを取得
	if Request("KaisyaCD1") <> "" then
		AdminMailFlag = 1
		KaisyaCD = Request("KaisyaCD1")
	end if

	Dim Query
	Dim Content

	Dim SouJushinKubun
	Dim SakuseiKaisyaMeisyo
	Dim TorihikisakiMeisyo
	Dim KouJyusyo1
	Dim KouJyusyo2
	Dim OtsuJyusyo1
	Dim OtsuJyusyo2
	Dim KouDaihyoTorishimariyaku
	Dim OtsuDaihyoTorishimariyaku
	Dim KouTantosyaCD
	Dim KouTantosya
	Dim OtsuTantosyaCD
	Dim OtsuTantosya
	Dim Kankatsu
	Dim KeiyakuBi
	Dim KeiyakuKaishiBi
	Dim KeiyakuSyuryoBi
	Dim HakkoFlg
	Dim HenshinFlg

	Dim KouJitsuin
	Dim OtsuJitsuin

	If SakuseiKaisyaCD = KaisyaCD Then
		SenpoFlg = "0"
	Else
		SenpoFlg = "1"
	End If

	'受発信文書(TTX文書F)開封処理
	If GB_JisyaFlag <> "" Then	'運用管理・演習管理（自社フラグ無し）では開封フラグを立てない
'		If SenpoFlg <> "1" Then
			Query = "exec SPK契約書開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & SakuseiKaisyaCD & "'"
			Set Content = OpenQuery(Query)
'		Else
'			Query = "exec SPK契約書開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & SakuseiKaisyaCD & "'"
'			Set Content = OpenQuery(Query)
'		End If
	End If

	If GB_Gyosyu <> "S" Then	'運送会社側
		If SenpoFlg = "1" Then
			Query = "exec SPK契約書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & SakuseiKaisyaCD & "', 'R'"
		Else	'運送会社側発信文書
			Query = "exec SPK契約書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & TorihikisakiCD & "', 'R'"
		End If
	Else
		If SenpoFlg = "1" Or InStr(RouteType, "RMail") > 0 Then	'商社側受信文書
			Query = "exec SPK契約書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & KaisyaCD & "', 'S'"
		Else
			Query = "exec SPK契約書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & SakuseiKaisyaCD & "', 'S'"
		End If
	End If
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		SouJushinKubun = Content.Fields("送受信区分")
		SakuseiKaisyaCD = Content.Fields("作成会社CD")
		TorihikisakiCD = Content.Fields("取引先CD")
		KouTantosyaCD = Content.Fields("甲担当者CD")
		OtsuTantosyaCD = Content.Fields("乙担当者CD")
		Kankatsu = Content.Fields("管轄裁判所")
		KeiyakuBi = Content.Fields("処理日")
		KeiyakuKaishiBi = Content.Fields("開始日")
		KeiyakuSyuryoBi = Content.Fields("終了日")
		HakkoFlg = Content.Fields("発行フラグ")
		HenshinFlg = Content.Fields("返信フラグ")
		If HakkoFlg = 0 Then	'発信前は甲会社の実印を表示しない
			KouJitsuin = ""
		Else
			KouJitsuin = " BACKGROUND=""/" & HomeAlias & "/images/jitsuin.gif?" & GB_STU & """"
		End If
		If HenshinFlg = 0 Or GB_Gyosyu <> "S" And InStr(RouteType, "RMail") > 0 Or  GB_Gyosyu = "S" And InStr(RouteType, "SMail") > 0 Then	'契約前は乙会社の実印を表示しない
			OtsuJitsuin = ""
		Else	'返信フラグが1なら取引先作成の文書Fを開封し実印を表示
			Query = "exec SPK契約書開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & TorihikisakiCD & "'"
			Set Content = OpenQuery(Query)
			OtsuJitsuin = " BACKGROUND=""/" & HomeAlias & "/images/jitsuin.gif?" & GB_STU & """"
		End If
	End If
	SakuseiKaisyaMeisyo = ConvKaisyaMeisyo(SakuseiKaisyaCD)
	TorihikisakiMeisyo = ConvKaisyaMeisyo(TorihikisakiCD)

	Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & SakuseiKaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		 If "" & Content.Fields("社員番号") = "" & KouTantosyaCD Then
			KouTantosya = Content.Fields("氏名")
		 End If
	Content.MoveNext
	Loop

	Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & TorihikisakiCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		 If "" & Content.Fields("社員番号") = "" & OtsuTantosyaCD Then
			OtsuTantosya = Content.Fields("氏名")
		 End If
	Content.MoveNext
	Loop

	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & SakuseiKaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		KouJyusyo1 = Content.Fields("住所1")
		KouJyusyo2 = Content.Fields("住所2")
		KouDaihyoTorishimariyaku = Content.Fields("代表取締役")
	End If

	Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & SakuseiKaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("代表取締役フラグ") = "1" Then
			KouDaihyoTorishimariyaku = Content.Fields("氏名")
			Exit Do
		End If
	Content.MoveNext
	Loop

	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & TorihikisakiCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		OtsuJyusyo1 = Content.Fields("住所1")
		OtsuJyusyo2 = Content.Fields("住所2")
		OtsuDaihyoTorishimariyaku = Content.Fields("代表取締役")
	End If

	Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & TorihikisakiCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("代表取締役フラグ") = "1" Then
			OtsuDaihyoTorishimariyaku = Content.Fields("氏名")
			Exit Do
		End If
	Content.MoveNext
	Loop


%>

<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)"	name="form1" method="POST" action="fk_kitakukeiyaku_bin.asp" autocomplete="off">
<input type="hidden" name="SenpoFlg" value="<% = SenpoFlg %>">

<%

	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 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')", "寄託契約書", "", "", "", "", "", "", "", "", ""))
	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
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s4.asp')", "寄託契約", "", "", "", "", ""))
		End If
		
	End If

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))

	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 & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=発信文書&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
			
		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( 'fk_kitakukeiyaku_ichiran.asp')", "", "", "", "", "", "", "", ""))
	Else
		If GB_Gyosyu = "U" Then
			Response.Write(HttpL3_2("先方書類一覧", "tblbtn( 'fk_kitakukeiyaku_ichiran.asp?SenpoFlg=" & SenpoFlg & "')", "", "", "", "", "", "", "", ""))
		Else
			Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
		End If
	End If

	Response.Write(HttpL4("寄託契約" , ""))
%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0; top: -2000px">
	<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="5" BGCOLOR="#FFFFFF" style="BORDER:1px solid #000000" WIDTH="770" HEIGHT="99%">
		<TR>
			<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
				<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="713" HEIGHT="100%" class="tx1214">
					<TR>
						<TD HEIGHT="35" VALIGN="BOTTOM">

							<table border="0" width="100%" cellspacing="0" cellpadding="0">
								<tr>
									<td width="50%">
										<% If HakkoFlg = 0 And HenshinFlg = 0 And InStr(RouteType, "MailOnly") < 1 Then %>
										<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="tblbtn( 'fk_kitakukeiyaku_bin.asp?BinType=Del&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');" BGCOLOR="#33CCFF" CLASS="tbtn1">
											<TR>
												<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rl.gif?<% = GB_STU %>">　</TD>
												<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>" WIDTH="80">削 除</TD>
												<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rr.gif?<% = GB_STU %>">　</TD>
											</TR>
										</TABLE>
										<% End If %>
									</td>
									<td width="50%" align="right">
										<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="PrintoutReal();" BGCOLOR="#33CCFF" CLASS="tbtn1">
											<TR>
												<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>">　</TD>
												<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" WIDTH="80">印　刷</TD>
												<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>">　</TD>
											</TR>
										</TABLE>
									</td>
								</tr>
							</table>
						</TD>
					</TR>
					<TR>
						<TD	align="center">
							<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" height="100%" style="BORDER:0px solid #000000" bgcolor="#FFFFFF">
								<TR>
									<TD>
<!-- ↓↓↓ブラウザ表示用黒枠↓↓↓ -->
										<DIV ID="Layer0" HEIGHT="220" STYLE="position:relative; left:0px; top:0px; width:713px; height:100%; z-index:1; border: 0px none #FFFFFF; overflow: auto;" class="tx1214">
										<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="20" width="650" height="100%" style="BORDER:0px solid #000000" bgcolor="#FFFFFF">
											<tr> 
												<td valign="top" bgcolor="#FFFFFF"> 
<!-- ↓↓↓印刷領域↓↓↓ -->
													<DIV ID="Layer1" HEIGHT="220" STYLE="position:relative; left:0px; top:0px; width:600px; height:100%; z-index:1; border: 0px none #FFFFFF; overflow: desable;" class="tx1214">
													<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" width="650" height="100%" style="BORDER:0px solid #000000" bgcolor="#FFFFFF">
														<tr> 
															<td height="80" valign="top" bgcolor="#FFFFFF"> 
																<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
																	<tr> 
																		<td width="100" align="center" valign="middle"></td>
																		<td align="center" valign="middle" class="tx1820b">寄　託　契　約　書</td>
																		<td width="100" align="center" valign="middle">
																			<table width="50" height="60" border="1" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
																				<tr>
																					<td class="tx1214" align="center">収 入<br><br>印 紙<!--<br>四千円-->
																					</td>
																				</tr>
																			</table>
																		</td>
																	</tr>
																</table>
															</td>
														</tr>
														<TR>
															<TD height="1" class="tx1416">


<br>
　<% = SakuseiKaisyaMeisyo %>（以下「甲」という）と<% = TorihikisakiMeisyo %>（以下「乙」という）の間に、甲の商品の寄託に関し以下の通り契約する。<br>
<br>
第1条（寄託） <br>
(1) 甲は乙に対して甲が所有又は所持する商品（以下「貨物」という）を寄託し、更に乙に対して倉庫の入出庫作業及び貨物に関するその他の作業を委託し、甲は乙の為に貨物を保管し、倉庫の入出庫作業及びその他の作業を行うことを約する。<br>
(2) 乙は、善良なる管理者の注意をもって、貨物を保管し、貨物の入出庫作業及びその他の作業を行うものとする。<br>
<br>
第2条（貨物に関する情報の通知）<br>
　甲が乙に対して貨物を寄託する際には、甲は、寄託申込書をもって乙に対して貨物の品名、記号、数量、及び価格を通知するものとする。<br>
<br>
第3条（貨物の破損・損失の通知）<br>
　乙はその倉庫で貨物を受領した時に、貨物に破損又は損失があることを発見した場合、及び寄託申込書に記載された数量との相違を発見した場合には、遅滞なく甲に対してその詳細を報告するものとし、甲の指示に従うものとする。<br>
<br>
第4条（入庫報告書）<br>
　乙は、貨物を受領した場合には、それを検査し、貨物の品名、記号、数量等を記載した入庫報告書を甲に送付するものとする。<br>
<br>
第5条（出庫手続）<br>
(1) 甲が乙に対して指示を与えるにつき権限を有する者は次のとおりとする。<br>
<br>
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" class="tx1416">
	<TR>
		<TD>
			　　　<% = KouTantosya %>
		</TD>
		<TD>
			　　　<% = SakuseiKaisyaMeisyo %>
		</TD>
	</TR>
	<TR>
		<TD>
			　　　<% = OtsuTantosya %>
		</TD>
		<TD>
			　　　<% = TorihikisakiMeisyo %>
		</TD>
	</TR>
</TABLE>
<BR>
(2) 甲による出庫の指示は、権限のある者の署名又は印鑑を押捺した出庫指示書によってなされる。<br>
<br>
第6条（出庫報告書）<br>
　乙は、出庫が完了した時、出庫された貨物の品名、記号、数量等を記載した出庫報告書を甲に送付するものとする。<br>
<br>
第7条（貨物の状態の通知）<br>
　貨物につきその保管中の破損又は損失が生じ又はその恐れがある場合には、乙は貨物の状態について詳細な報告を甲にするものとし、甲の指示を待つものとする。<br>
<br>
第8条（損害の補償）<br>
　乙による貨物の保管中又は貨物の入出庫作業中に貨物に破損又は損失が生じた場合には、乙はかかる破損又は損失につき全面的に責任を負うものとする。<br>
<br>
第9条（貨物の点検）<br>
　乙は適時貨物の状態を検査するものとし、甲に対して貨物の保管に関する必要な助言を与えるものとする。<br>
<br>
第10条（守秘義務）<br>
　乙は、甲が開示した情報又は乙が本契約の履行に際して知ることになった情報を、本契約に基づくその義務の履行以外の目的に用いないものとし、乙の担当従業員を除く第三者に対してかかる情報を開示しないものとする。乙の本条に基づく義務は本契約終了後も有効であるものとする。<br>
<br>
第11条（火災保険）<br>
　乙は、全ての寄託された貨物につきその費用負担で火災保険を付保するものとする。保険金額は、甲により通知された貨物の価格と等しいものとする。<br>
<br>
第12条（手数料）<br>
　乙の、保管、入出庫作業、その他の作業に関する手数料及び運送費等は別途合意するものとする。<br>
<br>
第13条（契約期間）<br>
　本契約は、<% = SetDate(KeiyakuKaishiBi, 3) %>から<% = SetDate(KeiyakuSyuryoBi, 3) %>まで有効であるものとする。本契約の期間は、甲又は乙から他方の当事者に対して本契約の満了日の6ヶ月前までに本契約を終了する旨の通知が為されない場合には、一年ずつの期間で更新されるものとする。<br>
<br>
第14条（解除）<br>
　甲は、下記のいずれかの事由が発生した場合には、本契約を解除することが出来るものとする。<br>
(a) 乙が本契約に基づく重要な債務の履行を怠り、甲からその旨の通知を受領してから10日以内にかかる不履行を是正しない場合<br>
(b) 乙が振出した小切手又は手形が不渡りになった場合<br>
(c) 乙に対して差押、仮差押、仮処分、滞納処分その他これに準ずべき処分があり、又は乙が競売の申立てを受けた場合<br>
(d) 乙に対して整理、民事再生手続の開始、破産又は会社更生の各申立てがなされ、又は自ら申立てた場合<br>
(e) 乙が営業の廃止又は解散（合併による場合を除く）の決議をした場合<br>
(f) 乙について、支払停止、債務超過等その財産状態が悪化し、又はその恐れがあると認められる相当の事由がある場合<br>
(g) 乙が甲の名声を傷つける行為をした場合、又は甲が本契約に基づく取引を継続することを困難にする事由が発生した場合<br>
<br>
第15条（本契約の中途解約）<br>
　乙又は甲は、本契約の期間中、3ヶ月の事前通知を相手方に与えることにより本契約を終了させることが出来る。<br>
<br>
第16条（裁判管轄）<br>
　本契約に関するあらゆる紛争につき<% = Kankatsu %>地方裁判所が専属的裁判管轄を有する。<br>
<br>
<br>
上記の証として、両当事者は本契約を2部作成し、各当事者が1部ずつ保有する。<br>
<br>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" class="tx1416">
	<TR>
		<TD ROWSPAN="5" WIDTH="100"></TD><TD HEIGHT="45"><% = SetDate(KeiyakuBi, 3) %><br></TD>
	</TR>
	<TR>
		<TD HEIGHT="2" COLSPAN="3">&nbsp;</TD>
	</TR>
	<TR>
		<TD>
			<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" class="tx1416">
				<TR>
					<TD WIDTH="40">甲</TD>
					<TD><% = SakuseiKaisyaMeisyo %><BR><% = KouJyusyo1 %>　<% = KouJyusyo2 %><BR>代表取締役　<% = KouDaihyoTorishimariyaku %></TD>
					<TD VALIGN="BOTTOM">
						<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="60" HEIGHT="45"><TR><TD WIDTH="15">　</TD><TD WIDTH="45" HEIGHT="45"<% = KouJitsuin %>>　</TD></TR></TABLE>
					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
	<TR>
		<TD HEIGHT="25" COLSPAN="3">&nbsp;</TD>
	</TR>
	<TR>
		<TD>
			<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" class="tx1416">
				<TR>
					<TD WIDTH="40">乙</TD>
					<TD><% = TorihikisakiMeisyo %><BR><% = OtsuJyusyo1 %>　<% = OtsuJyusyo2 %><BR>代表取締役　<% = OtsuDaihyoTorishimariyaku %></TD>
					<TD VALIGN="BOTTOM">
						<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="60" HEIGHT="45"><TR><TD WIDTH="15">　</TD><TD WIDTH="45" HEIGHT="45"<% = OtsuJitsuin %>>　</TD></TR></TABLE>
					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>
<br>
<br>
															</TD>
														</TR>
													</TABLE>
													</div>
<!-- ↑↑↑印刷領域↑↑↑ -->
												</TD>
											</TR>
										</TABLE>
										</div>
<!-- ↑↑↑ブラウザ表示用黒枠↑↑↑ -->
									</TD>
								</TR>
							</TABLE>
						</TD>
					</TR>
					<TR>
						<TD HEIGHT="35">

							<table border="0" width="100%" cellspacing="0" cellpadding="0">
								<tr>
									<td width="50%">
									<% If InStr(RouteType, "MailOnly") < 1 Then %>
										<% If SenpoFlg = "1" Then %>
										<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/keiyakusyo/fk_kitakukeiyaku_ichiran.asp?SenpoFlg=1');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="130">
										<% Else %>
										<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/menu_s4.asp');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="130">
										<% End If %>
											<TR>
												<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rl.gif?<% = GB_STU %>">　</TD>
												<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>" WIDTH="110">戻　る</TD>
												<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rr.gif?<% = GB_STU %>">　</TD>
											</TR>
										</TABLE>
									<% End If %>
									</td>
									<td width="50%" align="right">
										<% If HenshinFlg = 0 And SenpoFlg = "1" And InStr(RouteType, "MailOnly") < 1 Then %>
										<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="tblbtn( 'fk_kitakukeiyaku.asp?SakuseiKaisyaCD=<% = SakuseiKaisyaCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&SenpoFlg=<% = SenpoFlg %>');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="200">
											<TR>
												<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_gl.gif?<% = GB_STU %>">　</TD>
												<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_gc.gif?<% = GB_STU %>" WIDTH="180">契約を受け入れる</TD>
												<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_gr.gif?<% = GB_STU %>">　</TD>
											</TR>
										</TABLE>
										<% ElseIf HakkoFlg = 0 And HenshinFlg = 0 And InStr(RouteType, "MailOnly") < 1 Then %>
										<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="tblbtn( 'fk_kitakukeiyaku_bin.asp?BinType=Send&TorihikisakiCD=<% = TorihikisakiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&SakuseiKaisyaCD=<% = SakuseiKaisyaCD %>&SenpoFlg=<% = SenpoFlg %>');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="200">
											<TR>
												<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_gl.gif?<% = GB_STU %>">　</TD>
												<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_gc.gif?<% = GB_STU %>" WIDTH="180">契約を申し入れる</TD>
												<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_gr.gif?<% = GB_STU %>">　</TD>
											</TR>
										</TABLE>
										<% End If %>
									</td>
								</tr>
							</table>


						</TD>
					</TR>
				</TABLE>
			</TD>
		</TR>
	</TABLE>
</div>
</form>

</body>

<% = HtmlFooter %>
</html>
<%
End Sub
%>