% ' ' ' %> <% 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 %> <% = HtmlHeader("") %>