<% ' ' %> <% main() Sub main() Dim ShiireUriageKennin Dim ShiireUriageJHB Dim SenpoHitsuyo Dim ShiireUriageSyoruiHikae Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要") ShiireUriageJHB = "" & Content.Fields("仕入売上書類受発信利用") ShiireUriageKennin = ";" & Content.Fields("仕入売上書類検認利用") & ";" ShiireUriageKennin = Replace(ShiireUriageKennin, ",", ";") '旧バージョン整合 ShiireUriageSyoruiHikae = "" & Content.Fields("仕入売上書類控え印刷") End If If ShiireHanbaiKennin <> 1 Then ShiireUriageKennin = "" End If Dim SenpoFlg Dim SakuseiKaisyaCD Dim BunsyoNaiyoCD, BunsyoSyuruiCD, Syoribi, NonyuBasyoKubun, NonyuKijitsu Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg Dim SenpoSyoribi Dim DbSenpoBunsyoNaiyoCD Dim SenpoTmpBunsyoSyuruiCD Dim NonyuBasyoMeisyo, UntinSyogakariMeisyo Dim NextBunsyoNaiyoCD, PrevBunsyoNaiyoCD Dim SyoruiMei Dim Query Dim Content Dim Genkin, Toza Dim Shimei Dim RouteType Dim SakujyoFlg Dim KaifuFlg Dim KenninFlg RouteType = Request("RouteType") If Request("EnshuCD") <> "" Then EnshuCD = Request("EnshuCD") End If If Request("KaisyaCD") <> "" Then KaisyaCD = Request("KaisyaCD") End If SakuseiKaisyaCD = Request("SakuseiKaisyaCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Syoribi = Request("Syoribi") If SakuseiKaisyaCD = "" Then SakuseiKaisyaCD = KaisyaCD End If If KaisyaCD <> SakuseiKaisyaCD Then SenpoFlg = "1" Else SenpoFlg = "0" End If Dim KaisyaCD1 Dim AdminMailFlag AdminMailFlag = 0 'メール管理機能から開いた場合はKaisyaCD1からKaisyaCDを取得 if Request("KaisyaCD1") <> "" then AdminMailFlag = 1 KaisyaCD = Request("KaisyaCD1") end if Dim Kubun, SenpoSyoruiMei, Title Dim BunsyoKubun Dim SyoriMongon Dim SyoriMei '受発信文書を先方書類にするための次文書フラグ Dim NextBunsyoSyuruiCD NextBunsyoSyuruiCD = "" Select Case BunsyoSyuruiCD Case "K1" SyoruiMei = "仕入返品伝票" Title = SyoruiMei BunsyoKubun = "S" SyoriMongon = "下記の通り返品致します。" Case "K2" SyoruiMei = "売上返品伝票" Title = SyoruiMei BunsyoKubun = "S" SyoriMongon = "下記の通り返品受付致します。" Case "K3" SyoruiMei = "領収書" Title = SyoruiMei BunsyoKubun = "S" SyoriMongon = "下記の通り領収致しました。" Case "KD" SyoruiMei = "寄託出庫依頼書" Title = SyoruiMei BunsyoKubun = "U" SyoriMongon = "下記の通り御見積り依頼申し上げます。" Case "KI" SyoruiMei = "見積依頼書" Title = SyoruiMei BunsyoKubun = "S" SyoriMongon = "下記の通り御見積り依頼申し上げます。" NextBunsyoSyuruiCD = "KM" Case "KM" SyoruiMei = "見積書" Title = SyoruiMei BunsyoKubun = "U" SenpoTmpBunsyoSyuruiCD = "KI" SyoriMei = "見積" SyoriMongon = "下記の通り御見積り申し上げます。" NextBunsyoSyuruiCD = "KC" Case "KC" SyoruiMei = "注文書" Title = SyoruiMei BunsyoKubun = "S" SenpoTmpBunsyoSyuruiCD = "KM" SyoriMongon = "下記の通り注文致します。" NextBunsyoSyuruiCD = "KU" Case "KU" SyoruiMei = "注文請書" Title = SyoruiMei BunsyoKubun = "U" SenpoTmpBunsyoSyuruiCD = "KC" SyoriMei = "請求" SyoriMongon = "下記の通り注文をお請け致します。" Case "KK" SyoruiMei = "注文請書" Title = "先方注文請書確認" BunsyoKubun = "S" SyoriMongon = "下記の通り注文をお請け致します。" Case "KN" SyoruiMei = "納品請求書" Title = SyoruiMei BunsyoKubun = "U" SenpoTmpBunsyoSyuruiCD = "KK" SyoriMei = "請求" SyoriMongon = "下記の通り納品請求申し上げます。" NextBunsyoSyuruiCD = "KB" Case "KB" SyoruiMei = "物品受領書" Title = SyoruiMei BunsyoKubun = "S" SenpoTmpBunsyoSyuruiCD = "KN" SyoriMongon = "下記の通り受領致しました" Case "KQ" SyoruiMei = "領収書" Title = SyoruiMei BunsyoKubun = "U" SenpoTmpBunsyoSyuruiCD = "KB" SyoriMongon = "下記の通り領収致しました" Case "KX" SyoruiMei = "管理部買入申込書" Title = SyoruiMei BunsyoKubun = "X" NextBunsyoSyuruiCD = "KV" Case "KY" SyoruiMei = "管理部売渡申込書" Title = SyoruiMei BunsyoKubun = "1" NextBunsyoSyuruiCD = "KW" Case "KV" SyoruiMei = "管理部納品請求書" Title = SyoruiMei BunsyoKubun = "V" SenpoTmpBunsyoSyuruiCD = "KX" Case "KW" SyoruiMei = "管理部売渡受付書" Title = SyoruiMei BunsyoKubun = "W" SenpoTmpBunsyoSyuruiCD = "KY" NextBunsyoSyuruiCD = "KP" Case "KO" SyoruiMei = "管理部宛物品受領書" Title = SyoruiMei BunsyoKubun = "X" SenpoTmpBunsyoSyuruiCD = "KV" Case "KP" SyoruiMei = "管理部宛納品請求書" Title = SyoruiMei BunsyoKubun = "1" SenpoTmpBunsyoSyuruiCD = "KW" Case Else End Select Dim Bu, BuAddr, UrikaiType, ShiireUriageType If BunsyoKubun = "V" Or BunsyoKubun = "X" Or BunsyoKubun = "S" Then ShiireUriageType = "仕入" Bu = "仕入部" UrikaiType = "買入" BuAddr = 3 Else ShiireUriageType = "販売" Bu = "販売部" UrikaiType = "売渡" BuAddr = 2 End If If SyoruiMei = "" Then SyoruiMei = SenpoSyoruiMei End If If BunsyoNaiyoCD <> "" Then If BunsyoSyuruiCD = "KK" Then Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', 'KU', '" & BunsyoNaiyoCD & "'" Else Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" End If Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then HasshinFlg = Content.Fields("発行フラグ") SakujyoFlg = Content.Fields("削除フラグ") KaifuFlg = Content.Fields("開封フラグ") KenninFlg = Content.Fields("検認フラグ") UnsoGaisyaCD = Content.Fields("運送会社CD") End If End If '注文請書確認要不要トグル Dim UkeshoKakunin UkeshoKakunin = 1 Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then UkeshoKakunin = Content.Fields("注文請書確認利用") End If If "" & UkeshoKakunin = "" Then UkeshoKakunin = 1 End If %> <% = AppTitle %> 1 And BunsyoSyuruiCD = "KU" And Request("BinType") = "HasshinZumi" Then %> onLoad="alert('続いて注文された商品の出庫\n及び納品請求書の送付を行ってください　')"<% ElseIf InStr(ShiireUriageKennin, ";" & BunsyoSyuruiCD & ";") > 0 Then '発信前に検認が必要で検認されていない場合は発信ボタン表示のためオートリロードする %> onLoad="setTimeout('AutoReload();', 20000);"<% End If %> bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% 'Response.Write("RouteType:" & RouteType & "
") 'Response.Write("GB_Gyosyu:" & GB_Gyosyu & "
") 'Response.Write("BunsyoKubun:" & BunsyoKubun & "
") 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, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "Hakushi") > 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/menu_s42.asp')", SyoruiMei , "", "", "")) ElseIf 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')", Title , "", "", "", "", "", "", "", "", "")) Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", Bu, "", ShiireUriageType & "書類", "", SyoruiMei, "", "", "", "", "")) 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 If BunsyoKubun = "1" Or BunsyoKubun = "U" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", SyoruiMei, "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "仕入部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s3.asp')", SyoruiMei, "", "", "", "", "")) End If End If End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Dim TsuikaButton1 Dim TsuikaButton2 Dim TsuikaButton3 Dim TsuikaButton4 Dim HikaeButton1 Dim HikaeButton2 TsuikaButton1 = "追加" TsuikaButton2 = "tblbtn('fd_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "');" TsuikaButton3 = "再作成" TsuikaButton4 = "tblbtn('fd_syorui.asp?BinType=Saisakusei&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "');" HikaeButton1 = "控え印刷" HikaeButton2 = "PrintoutReal('&HikaeFlg=1');" If SenpoHitsuyo = "1" And SenpoTmpBunsyoSyuruiCD <> "" Then TsuikaButton1 = "先方書類一覧" TsuikaButton2 = "tblbtn( 'fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "');" TsuikaButton3 = "" TsuikaButton4 = "" HikaeButton1 = "" HikaeButton2 = "" End If If ShiireUriageSyoruiHikae <> "1" And ShiireUriageSyoruiHikae <> "2" Then HikaeButton1 = "" HikaeButton2 = "" End If If InStr(RouteType, "Hakushi") > 0 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "MailOnly") > 0 Then '先方書類としてジャンプするボタン（090925小野） If InStr(RouteType, "RMail") > 0 And NextBunsyoSyuruiCD <> "" Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", " この書類に返信する ", "tblbtn2('fd_syorui.asp?BunsyoSyuruiCD=" & NextBunsyoSyuruiCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&SenpoBunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoNaiyoCD=" & BunsyoNaiyoCD & "');", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) End If ElseIf InStr(RouteType, "ViewOnly") > 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 SenpoFlg = "0" AND HasshinFlg = 0 AND SakujyoFlg = 0 Then '発信済みでも削除済みでも無い If ShiireUriageJHB = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then '発信前に検認が必要で検認されていない場合 If InStr(ShiireUriageKennin, ";" & BunsyoSyuruiCD & ";") > 0 And "" & KenninFlg <> "1" Then Response.Write(HttpL3_1("修正", "tblbtn( 'fd_syorui.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", HikaeButton1, HikaeButton2, "削除", "SakujyoBtn()", "", "")) Else Response.Write(HttpL3_1("発信", "tblbtn( 'fd_syorui_bin.asp?BinType=Hasshin&UnsoGaisyaCD=" &UnsoGaisyaCD & "&Hasshin&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Syoribi=" & Syoribi & "')", "修正", "tblbtn( 'fd_syorui.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", HikaeButton1, HikaeButton2, "削除", "SakujyoBtn()")) 'Response.Write(HttpL3_1("発信", "tblbtn( 'fd_syorui_bin.asp?BinType=Hasshin&UnsoGaisyaCD=" &UnsoGaisyaCD & "&Hasshin&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Syoribi=" & Syoribi & "')", "修正", "tblbtn( 'fd_syorui.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "文書として保存", "")) End if Else Response.Write(HttpL3_1("", "", "修正", "tblbtn( 'fd_syorui.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "", "")) End If ElseIf SenpoFlg = "0" AND HasshinFlg = 1 AND SakujyoFlg = 0 Then '発信済みでも削除済みでも無い Response.Write(HttpL3_1("印刷", "PrintoutReal()", HikaeButton1, HikaeButton2, TsuikaButton3, TsuikaButton4, "削除", "SakujyoBtn()", "", "")) ElseIf SenpoFlg = "0" AND HasshinFlg = 0 AND SakujyoFlg = 1 Then '発信済みでも削除済みでも無い Response.Write(HttpL3_1("印刷", "PrintoutReal()", TsuikaButton3, TsuikaButton4, "", "", "", "", "", "")) ElseIf SenpoFlg = "0" Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", TsuikaButton3, TsuikaButton4, "", "", "", "", "", "")) ElseIf SenpoFlg = "0" Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", TsuikaButton3, TsuikaButton4, "", "", "", "", "", "")) ElseIf SakujyoFlg = 0 AND BunsyoSyuruiCD = "KK" AND KaifuFlg = "0" Then '注文請書確認 Response.Write(HttpL3_1("確認", "tblbtn( 'fd_syorui_bin.asp?BinType=Kaifu&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "", "", "", "", "", "")) ElseIf SakujyoFlg = 0 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) End If If InStr(RouteType, "Hakushi") > 0 Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) ElseIf 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 Else If 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( 'fd_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", "")) 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=発信文書')", "", "", "", "", "", "", "", "")) '社長室・総務部の受発信から入った場合、ここを表示する ElseIf InStr(RouteType, "syatyo") > 0 Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) ElseIf BunsyoSyuruiCD = "KI" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then Response.Write(HttpL3_2(TsuikaButton1, TsuikaButton2, "一覧表示", "tblbtn( 'fd_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "")) ElseIf BunsyoSyuruiCD <> "KK" Then Response.Write(HttpL3_2(TsuikaButton1, TsuikaButton2, "一覧表示", "tblbtn( 'fd_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fd_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=KU')", "", "", "", "", "", "", "", "")) End If End If Response.Write(HttpL4(Title , "")) If InStr(RouteType, "Hakushi") > 0 Then Response.Write(HttpL5("")) ElseIf Request("BinType") = "HasshinZumi" Then Response.Write(HttpL5("取引先に発信されました。")) ElseIf SakujyoFlg = 0 AND BunsyoSyuruiCD = "KK" AND KaifuFlg = "0" Then '注文請書確認 Response.Write(HttpL5("「確認」ボタンを押し、注文請書を確認して下さい。")) ElseIf SakujyoFlg = 0 AND BunsyoSyuruiCD = "KK" Then '注文請書確認 Response.Write(HttpL5("確認されました。")) ElseIf InStr(RouteType, "ViewOnly") = 0 AND InStr(RouteType, "RMail") = 0 AND InStr(RouteType, "SMail") = 0 AND SenpoFlg = "0" AND HasshinFlg <> 1 AND SakujyoFlg <> 1 Then If ShiireUriageJHB = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then '発信前に検認が必要で検認されていない場合 If InStr(ShiireUriageKennin, ";" & BunsyoSyuruiCD & ";") > 0 And "" & KenninFlg <> "1" Then Response.Write(HttpL5("この書類を発信するには管理者による発信許可が必要です。")) Else Response.Write(HttpL5("「発信」ボタンを押し、相手に送ってください。")) End if Else Response.Write(HttpL5("")) End If End If %> <% = HtmlFooter %> <% End Sub %>