<% ' ' %> <% main() Sub main() Dim BunsyoNaiyoCD, BunsyoSyuruiCD, Syoribi, TorihikisakiCD, NonyuBasyoKubun, NonyuKijitsu Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi Dim DbTorihikisakiCD, DbSenpoBunsyoNaiyoCD Dim SenpoTmpBunsyoSyuruiCD Dim UnsoCD Dim SyohinCD(5) '商品コード Dim SyohinName(5) '商品名称 Dim Kakaku(5) '標準価格 Dim Suryo(5) '数量 Dim Tanka(5) '単価 Dim Kingaku(5) '金額 Dim NonyuBasyoMeisyo, UntinSyogakariMeisyo Dim GokeiKingaku '合計 Dim SyohizeiKingaku '消費税 Dim ZeikomiKingaku '税込み金額 Dim Checked_N,Checked_R Dim GakuseiShimei '学生氏名（係印） Dim GakuseiBango Dim NextBunsyoNaiyoCD, PrevBunsyoNaiyoCD Dim SyoruiMei Dim Query Dim Content Dim Genkin, Toza Dim Shimei Dim RouteType Dim SakujyoFlg Dim SakuseiKaisyaCD Dim PageType PageType = Request("PageType") SakuseiKaisyaCD = Request("SakuseiKaisyaCD") RouteType = Request("RouteType") SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD") If SakuseiKaisyaCD = "" Then SakuseiKaisyaCD = KaisyaCD End If Dim SenpoFlg SenpoFlg = 0 If SakuseiKaisyaCD <> KaisyaCD Then SenpoFlg = 1 End If BunsyoNaiyoCD = Request("BunsyoNaiyoCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") TorihikisakiCD = Request("TorihikisakiCD") UnsoCD = Request("UnsoCD") Dim Kubun, SenpoSyoruiMei, Title Dim SyoruiKubun Title = ConvKubunMeisyo("文書区分", BunsyoSyuruiCD) If BunsyoNaiyoCD <> "" Then Query = "exec SPC運送書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then HasshinFlg = Content.Fields("発行フラグ") SakujyoFlg = Content.Fields("削除フラグ") End If End If Dim jj,tmps %> <% = AppTitle %> <% 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 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 , "", "", "", "", "", "", "", "", "")) 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 '特殊ウィンドウ以外 Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", Title, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) '**************************** If SakujyoFlg ="" Then SakujyoFlg = 0 End If If SakujyoFlg =" " Then SakujyoFlg = 0 End If If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "RMail") > 0 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "SMail") > 0 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) ElseIf SenpoFlg = 0 AND HasshinFlg <> 1 AND SakujyoFlg <> 1 Then '発信済みでも削除済みでも無い Response.Write(HttpL3_1("発信", "tblbtn( 'fc_syorui_bin.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Syoribi=" & Syoribi & "&TorihikisakiCD=" & DbTorihikisakiCD & "&hasshin=1')", "修正", "tblbtn( 'fc_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "", "")) ElseIf SenpoFlg = 0 AND HasshinFlg <> 1 Then '発信済みでも削除済みでも無い Response.Write(HttpL3_1("発信", "tblbtn( 'fc_syorui_bin.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Syoribi=" & Syoribi & "&TorihikisakiCD=" & DbTorihikisakiCD & "&hasshin=1')", "修正", "tblbtn( 'fc_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "", "")) ElseIf SenpoFlg = 0 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "再作成", "tblbtn( 'fc_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&ResendFlg=1')", "削除", "SakujyoBtn()", "", "", "", "")) ElseIf SakujyoFlg = 0 AND BunsyoSyuruiCD = "KK" Then '注文請書確認 Response.Write(HttpL3_1("確認", "tblbtn( 'fc_syorui_view.asp?BinType=Kaifu&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&TorihikisakiCD=" & TorihikisakiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "&SenpoBunsyoNaiyoCD=" & SenpoBunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "", "", "", "", "", "")) ElseIf SakujyoFlg = 0 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) End If ''''''''', "削除", "SakujyoBtn()" If InStr(RouteType, "MailOnly") > 0 Then If SenpoFlg <> "1" Then 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')")) 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 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( 'fc_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "')", "", "", "", "", "", "", "", "")) 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 BunsyoSyuruiCD <> "KK" Then Response.Write(HttpL3_2("追加", "tblbtn( 'fc_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fc_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fc_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "')", "", "", "", "", "", "", "", "")) End If End If Response.Write(HttpL4(Title , "")) If 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 Response.Write(HttpL5("「発信」ボタンを押し、相手に送って下さい。")) End If %> <% = HtmlFooter %> <% End Sub %>