<% ' ' ' %> <% 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("") %>
<% 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("寄託契約" , "")) %>
<% = HtmlFooter %> <% End Sub %>