<% ' ' ' %> <% 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 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 %> <% = HtmlHeader("") %> <% = PrintScriptX %>
寄　託　契　約　書
収 入

印 紙

　<% = SakuseiKaisyaMeisyo %>（以下「甲」という）と<% = TorihikisakiMeisyo %>（以下「乙」という）の間に、甲の商品の寄託に関し以下の通り契約する。

第1条（寄託）
(1) 甲は乙に対して甲が所有又は所持する商品（以下「貨物」という）を寄託し、更に乙に対して倉庫の入出庫作業及び貨物に関するその他の作業を委託し、甲は乙の為に貨物を保管し、倉庫の入出庫作業及びその他の作業を行うことを約する。
(2) 乙は、善良なる管理者の注意をもって、貨物を保管し、貨物の入出庫作業及びその他の作業を行うものとする。

第2条（貨物に関する情報の通知）
　甲が乙に対して貨物を寄託する際には、甲は、寄託申込書をもって乙に対して貨物の品名、記号、数量、及び価格を通知するものとする。

第3条（貨物の破損・損失の通知）
　乙はその倉庫で貨物を受領した時に、貨物に破損又は損失があることを発見した場合、及び寄託申込書に記載された数量との相違を発見した場合には、遅滞なく甲に対してその詳細を報告するものとし、甲の指示に従うものとする。

第4条（入庫報告書）
　乙は、貨物を受領した場合には、それを検査し、貨物の品名、記号、数量等を記載した入庫報告書を甲に送付するものとする。

第5条（出庫手続）
(1) 甲が乙に対して指示を与えるにつき権限を有する者は次のとおりとする。

　　　<% = KouTantosya %> 　　　<% = SakuseiKaisyaMeisyo %>
　　　<% = OtsuTantosya %> 　　　<% = TorihikisakiMeisyo %>

(2) 甲による出庫の指示は、権限のある者の署名又は印鑑を押捺した出庫指示書によってなされる。

第6条（出庫報告書）
　乙は、出庫が完了した時、出庫された貨物の品名、記号、数量等を記載した出庫報告書を甲に送付するものとする。

第7条（貨物の状態の通知）
　貨物につきその保管中の破損又は損失が生じ又はその恐れがある場合には、乙は貨物の状態について詳細な報告を甲にするものとし、甲の指示を待つものとする。

第8条（損害の補償）
　乙による貨物の保管中又は貨物の入出庫作業中に貨物に破損又は損失が生じた場合には、乙はかかる破損又は損失につき全面的に責任を負うものとする。

第9条（貨物の点検）
　乙は適時貨物の状態を検査するものとし、甲に対して貨物の保管に関する必要な助言を与えるものとする。

第10条（守秘義務）
　乙は、甲が開示した情報又は乙が本契約の履行に際して知ることになった情報を、本契約に基づくその義務の履行以外の目的に用いないものとし、乙の担当従業員を除く第三者に対してかかる情報を開示しないものとする。乙の本条に基づく義務は本契約終了後も有効であるものとする。

第11条（火災保険）
　乙は、全ての寄託された貨物につきその費用負担で火災保険を付保するものとする。保険金額は、甲により通知された貨物の価格と等しいものとする。

第12条（手数料）
　乙の、保管、入出庫作業、その他の作業に関する手数料及び運送費等は別途合意するものとする。

第13条（契約期間）
　本契約は、<% = SetDate(KeiyakuKaishiBi, 3) %>から<% = SetDate(KeiyakuSyuryoBi, 3) %>まで有効であるものとする。本契約の期間は、甲又は乙から他方の当事者に対して本契約の満了日の6ヶ月前までに本契約を終了する旨の通知が為されない場合には、一年ずつの期間で更新されるものとする。

第14条（解除）
　甲は、下記のいずれかの事由が発生した場合には、本契約を解除することが出来るものとする。
(a) 乙が本契約に基づく重要な債務の履行を怠り、甲からその旨の通知を受領してから10日以内にかかる不履行を是正しない場合
(b) 乙が振出した小切手又は手形が不渡りになった場合
(c) 乙に対して差押、仮差押、仮処分、滞納処分その他これに準ずべき処分があり、又は乙が競売の申立てを受けた場合
(d) 乙に対して整理、民事再生手続の開始、破産又は会社更生の各申立てがなされ、又は自ら申立てた場合
(e) 乙が営業の廃止又は解散（合併による場合を除く）の決議をした場合
(f) 乙について、支払停止、債務超過等その財産状態が悪化し、又はその恐れがあると認められる相当の事由がある場合
(g) 乙が甲の名声を傷つける行為をした場合、又は甲が本契約に基づく取引を継続することを困難にする事由が発生した場合

第15条（本契約の中途解約）
　乙又は甲は、本契約の期間中、3ヶ月の事前通知を相手方に与えることにより本契約を終了させることが出来る。

第16条（裁判管轄）
　本契約に関するあらゆる紛争につき<% = Kankatsu %>地方裁判所が専属的裁判管轄を有する。


上記の証として、両当事者は本契約を2部作成し、各当事者が1部ずつ保有する。

<% = SetDate(KeiyakuBi, 3) %>
 
甲 <% = SakuseiKaisyaMeisyo %>
<% = KouJyusyo1 %>　<% = KouJyusyo2 %>
代表取締役　<% = KouDaihyoTorishimariyaku %>
　>　
 
乙 <% = TorihikisakiMeisyo %>
<% = OtsuJyusyo1 %>　<% = OtsuJyusyo2 %>
代表取締役　<% = OtsuDaihyoTorishimariyaku %>
　>　


<% End Sub %>