<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim SoushinButton ' SoushinButton = "送信" ' SoushinButton = "取引相手に手渡す(振出)" SoushinButton = "送信(取引相手に振出)" Dim SoushinMess ' SoushinMess = "送信" SoushinMess = "振出" Dim RouteType RouteType = Request("RouteType") Dim SenpoFlg Dim BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") Dim Title Title = ConvKubunMeisyo("手形種類区分", BunsyoSyuruiCD) Dim Query, Content Dim TmpKaisyaCD Dim SakuseiKaisyaCD Dim HikiukeninCD, FuridashininCD, UketorininCD Dim ShiharaiBasyo Dim BunsyoNaiyoCD, ShiharaiKijitsu, Furidashibi Dim Kingaku Dim Tekiyo Dim HasshinFlg Dim Tenmatsubi, TenmatsuKubun, HiuragakininCD Dim SakujyoFlg Dim SojyushinKubun Dim Action Action = Request("Action") Dim KaisyaCD1 Dim AdminMailFlag AdminMailFlag = 0 'メール管理機能から開いた場合はKaisyaCD1からKaisyaCDを取得 if Request("KaisyaCD1") <> "" then AdminMailFlag = 1 KaisyaCD = Request("KaisyaCD1") end if BunsyoNaiyoCD = Request("BunsyoNaiyoCD") '##### 2007.07.02 APPEND OldBunsyoNaiyoCD Dim OldBunsyoNaiyoCD OldBunsyoNaiyoCD = BunsyoNaiyoCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") If SakuseiKaisyaCD = "" Then SakuseiKaisyaCD = KaisyaCD End If If SakuseiKaisyaCD = KaisyaCD Then SenpoFlg = 0 Else SenpoFlg = 1 End If '########################################################################## '手形タイプが裏書なら作成会社CDが自会社CDではないので、ここで改めて取得する 'ここより前で取得してしまうと、自会社が作成した文書でないということになり、SenpoFlgに1が立ってしまう。 'TEST 'SakuseiKaisyaCD = "K001-SUZUKI" Dim sjk,skcd 'Dim ukcd sjk="" skcd="" 'ukcd="" 'WHERE句から作成会社CDの条件を除き、抽出(その他の手形と競合する可能性がないとは言えないので注意すること) Query = "select * from TGA手形F where システムCD= '" & GB_SystemCD & "' and 演習CD= '"& EnshuCD &"' and 会社CD= '"& KaisyaCD &"' and 文書種類CD= '"& BunsyoSyuruiCD &"' and 文書内容CD= '"& BunsyoNaiyoCD &"' " Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then sjk = Content.Fields("送受信区分") skcd = Content.Fields("作成会社CD") End If if sjk = "U" then SakuseiKaisyaCD = skcd 'ukcd = "1" end if '########################################################################### Query = "exec SPK手形取得" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & SakuseiKaisyaCD & "'" '会社CD Query = Query & ",'" & BunsyoSyuruiCD & "'" Query = Query & ",'" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then HikiukeninCD = Content.Fields("引受人CD") FuridashininCD = Content.Fields("振出人CD") UketorininCD = Content.Fields("受取人CD") ShiharaiBasyo = Content.Fields("支払場所CD") BunsyoNaiyoCD = Content.Fields("文書内容CD") ShiharaiKijitsu = Content.Fields("支払期日") Furidashibi = Content.Fields("取引日") Tekiyo = Content.Fields("摘要") Kingaku = Content.Fields("金額") HasshinFlg = Content.Fields("発行フラグ") SakujyoFlg = Content.Fields("削除フラグ") Tenmatsubi = "" & Content.Fields("顛末日") TenmatsuKubun = Content.Fields("顛末区分") HiuragakininCD = Content.Fields("被裏書人CD") SojyushinKubun = Content.Fields("送受信区分") End If If IsNull(TenmatsuKubun) Then TenmatsuKubun = "" End If Dim UketorininRyaku, Uketorinin, HikiukeninRyaku, Hikiukenin If HikiukeninCD = "etc" Then HikiukeninRyaku = "その他" Hikiukenin = "その他" Else HikiukeninRyaku = ConvKaisyaRyakuMeisyo(HikiukeninCD) Hikiukenin = ConvKaisyaMeisyoDx(EnshuCD, HikiukeninCD) End If If UketorininCD = "etc" Then UketorininRyaku = "その他" Uketorinin = "その他" Else UketorininRyaku = ConvKaisyaRyakuMeisyo(UketorininCD) Uketorinin = ConvKaisyaMeisyoDx(EnshuCD, UketorininCD) End If Dim TegataSyusei Dim KogitteHenkyaku Dim GinkoMadoguchiHyoji Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then TegataSyusei = Content.Fields("手形修正") KogitteHenkyaku = "" & Content.Fields("小切手返却利用") GinkoMadoguchiHyoji = "" & Content.Fields("銀行窓口表示") End If '取引先銀行講座がいくつ存在するかのチェック Dim KozaCnt KozaCnt = 0 Dim TmpGinkoCD '銀行窓口非利用若しくは銀行受領控えなら除外 If GinkoMadoguchiHyoji = "1" And SenpoFlg = 1 And SojyushinKubun = "R" And HasshinFlg = "0" Then Query = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'T'" Set Content = OpenQuery(Query) Do While Not(Content.EOF Or Content.BOF) '口座を持っている銀行数をカウント If TmpGinkoCD <> Content.Fields("銀行CD") Then TmpGinkoCD = Content.Fields("銀行CD") KozaCnt = KozaCnt + 1 End If Content.MoveNext Loop End If '会社配列作成 Dim KaishaCDA Dim KaishaNameA Dim KaishaShijoA ReDim KaishaCDA(0) ReDim KaishaNameA(0) ReDim KaishaShijoA(0) Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) TmpKaisyaCD = Content.Fields("会社CD") If TmpkaisyaCD <> KaisyaCD And Content.Fields("業種CD") <> "B" Then '銀行を除外 ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1) '配列数+1 ReDim PreServe KaishaNameA(UBound(KaishaCDA)) ReDim PreServe KaishaShijoA(UBound(KaishaCDA)) KaishaCDA(UBound(KaishaCDA)) = "" & Content.Fields("会社CD") KaishaNameA(UBound(KaishaCDA)) = "" & Content.Fields("会社名称") KaishaShijoA(UBound(KaishaCDA)) = "" & Content.Fields("市場CD") End If Content.MoveNext Loop ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1) '配列数+1 ReDim PreServe KaishaNameA(UBound(KaishaCDA)) ReDim PreServe KaishaShijoA(UBound(KaishaCDA)) KaishaCDA(UBound(KaishaCDA)) = "etc" KaishaNameA(UBound(KaishaCDA)) = "その他" KaishaShijoA(UBound(KaishaCDA)) = "" Dim ii %> <% = HtmlHeader("") %>
<% 'Response.Write("GB_Gyosyu:" & GB_Gyosyu) 'Response.Write("RouteType:" & RouteType) Dim AutoNyukinBtn Dim AutoNyukinVal '取引先銀行口座がひとつのみならダイレクト小切手入金ボタンを表示 If KozaCnt = 1 And SenpoFlg = 1 Then AutoNyukinBtn = "小切手入金" AutoNyukinVal = "tblbtn('../ginkomadoguchi/fb_ginkosyorui.asp?BunsyoSyuruiCD=BE&GinkoCD=" & TmpGinkoCD & "&TegataNo=" & SakuseiKaisyaCD & "_" & BunsyoSyuruiCD & "_" & BunsyoNaiyoCD & "');" End If Dim BunsyoType If InStr(RouteType, "RMail") > 0 Then BunsyoType = "受信文書" ElseIf InStr(RouteType, "SMail") > 0 Then BunsyoType = "発信文書" End If Dim PageType PageType = Request("PageType") If InStr(RouteType, "MailOnly") > 0 Then Response.Write(HtmlDesign(6)) ElseIf InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HtmlDesign(2)) 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 And InStr(RouteType, "RMail") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "受信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "発信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", SyoruiMei, "", "", "", "", "", "", "", "", "")) ElseIf RouteType = "Hakushi" 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/menu_s42.asp')", Title, "", "", "")) ElseIf InStr(RouteType, "RMail") > 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/')", "受信文書" , "", "", "")) ElseIf InStr(RouteType, "SMail") > 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/')", "発信文書" , "", "", "")) ElseIf InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HttpL2("補助簿ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp?RouteType=" & RouteType & "')", BunsyoSyuruiCD, "", "", "", "", "","", "", "", "")) ElseIf GB_Gyosyu <> "B" Then '社長室・総務部の受発信から入った場合、ここを表示する If 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_s1.asp')", Title & "管理", "", "", "", "", "")) End If Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp')", Title & "管理", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If AdminMailFlag = 1 Then Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "MailOnly") > 0 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "MailOnly") > 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 RouteType = "Hakushi" Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) ElseIf SakujyoFlg = 1 And SakujyoFlg <> "1" Then Response.Write(HttpL3_1("廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", "", "", "")) ElseIf SakujyoFlg = 1 Then Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) ' Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) ElseIf Action = "Furidashi" Then Response.Write(HttpL3_1(SoushinButton, "SubmitCheck()", "", "", "", "", "", "", "", "")) 'Response.Write(HttpL3_1("送信", "SubmitCheck()", "", "", "", "", "", "", "", "")) '''''''''手形 ElseIf BunsyoSyuruiCD = "TG" And SenpoFlg = 0 And HasshinFlg = 0 And TegataSyusei = "1" Then Response.Write(HttpL3_1( "修正", "tblbtn( 'fk_tegata.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", "")) ElseIf BunsyoSyuruiCD = "TG" And SenpoFlg = 0 And HasshinFlg = 0 Then Response.Write(HttpL3_1( "廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", "", "", "")) '''''''''手形以外 ElseIf BunsyoSyuruiCD <> "TG" And SenpoFlg = 0 And HasshinFlg = 0 And TegataSyusei = "1" Then Response.Write(HttpL3_1("振出", "SubmitCheck();", "修正", "tblbtn( 'fk_tegata.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "")) ElseIf BunsyoSyuruiCD <> "TG" And SenpoFlg = 0 And HasshinFlg = 0 Then Response.Write(HttpL3_1("振出", "SubmitCheck();", "廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", "")) ElseIf BunsyoSyuruiCD <> "TG" And SojyushinKubun = "H" Then ' Response.Write(HttpL3_1("廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", "", "", "")) Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) '引受人なら廃棄ボタンを表示しない(061115小野) ElseIf BunsyoSyuruiCD <> "TG" And TenmatsuKubun = "" AND SenpoFlg = 1 Then ' Response.Write(HttpL3_1("取立入金", "tblbtn( 'fk_tegata.asp?TenmatsuKubun=TT&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "')", "割引", "tblbtn( 'fk_tegata.asp?TenmatsuKubun=TW&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "')", "裏書譲渡", "tblbtn( 'fk_tegata.asp?TenmatsuKubun=TU&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "')", "廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()")) Response.Write(HttpL3_1("取立入金", "tblbtn( 'fk_tegata.asp?TenmatsuKubun=TT&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "')", "割引", "tblbtn( 'fk_tegata.asp?TenmatsuKubun=TW&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "')", "裏書譲渡", "tblbtn( 'fk_tegata.asp?TenmatsuKubun=TU&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "')", "印刷", "PrintoutReal()", "", "")) ElseIf BunsyoSyuruiCD <> "TG" And HasshinFlg = 0 And TegataSyusei = "1" Then Response.Write(HttpL3_1("修正", "tblbtn('fk_tegata.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&TenmatsuShusei=1')", "廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", "")) ElseIf TenmatsuKubun <> "" Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) '顛末区分が発生していたら廃棄ボタンを表示しない(061115小野) ElseIf BunsyoSyuruiCD <> "TG" And HasshinFlg = 0 Then Response.Write(HttpL3_1("廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", "", "", "")) Else ' Response.Write(HttpL3_1("廃棄", "SakujyoCheck()", "印刷", "PrintoutReal()", "", "", "", "", "", "")) If Tenmatsubi <> "" Or KogitteHenkyaku <> "1" Or SenpoFlg = 0 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", AutoNyukinBtn, AutoNyukinVal, "", "", "", "", "", "")) '発信フラグが立っていたら廃棄ボタンを表示しない(061115小野) Else '小切手のみ返却許可 Response.Write(HttpL3_1("印刷", "PrintoutReal()", "返却", "HenkyakuCheck()", AutoNyukinBtn, AutoNyukinVal, "", "", "", "")) '顛末前なら返却ボタンを表示(071221小野) End If End If If InStr(RouteType, "MailOnly") > 0 Then If SenpoFlg <> "1" Or 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 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=発信文書')", "", "", "", "", "", "", "", "")) Else If RouteType = "Hakushi" Then '社長室・総務部の受発信から入った場合、ここを表示する ElseIf InStr(RouteType, "syatyo") > 0 Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) ElseIf BunsyoSyuruiCD = "TK" then Response.Write(HttpL3_2("追加", "tblbtn( 'fk_tegata.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "作成一覧", "tblbtn( 'fk_tegata_ichiran.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&OldBunsyoNaiyoCD=" & OldBunsyoNaiyoCD & "&TegataJyotaiKubun=TF&HakkoFlg=0')", "振出一覧", "tblbtn( 'fk_tegata_ichiran.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&OldBunsyoNaiyoCD=" & OldBunsyoNaiyoCD & "&TegataJyotaiKubun=TF')", "受取一覧", "tblbtn( 'fk_tegata_ichiran.asp?SenpoFlg=1&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&OldBunsyoNaiyoCD=" & OldBunsyoNaiyoCD & "&TegataJyotaiKubun=TU')", "引受一覧", "tblbtn( 'fk_tegata_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&OldBunsyoNaiyoCD=" & OldBunsyoNaiyoCD & "&TegataJyotaiKubun=TH')")) Else Response.Write(HttpL3_2("追加", "tblbtn( 'fk_tegata.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "作成一覧", "tblbtn( 'fk_tegata_ichiran.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&OldBunsyoNaiyoCD=" & OldBunsyoNaiyoCD & "&TegataJyotaiKubun=TF&HakkoFlg=0')", "振出一覧", "tblbtn( 'fk_tegata_ichiran.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&OldBunsyoNaiyoCD=" & OldBunsyoNaiyoCD & "&TegataJyotaiKubun=TF')", "受取一覧", "tblbtn( 'fk_tegata_ichiran.asp?SenpoFlg=1&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&OldBunsyoNaiyoCD=" & OldBunsyoNaiyoCD & "&TegataJyotaiKubun=TU')", "", "")) End If End If Response.Write(HttpL4(Title, "")) Response.Write(BunsyoSyuruiCD) %> <% If SakujyoFlg = 1 Then '廃棄済みの場合に表示(070611小野)%> <% End If %>
<% = HtmlFooter %> <% End Sub %>