<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") Dim Query1, Query2 Dim Content Dim Action Dim TorihikisakiCD Dim BunsyoNaiyoCD, Syoribi, GakuseiBango Dim ShiharaiHoho , HasshinFlg, Tekiyo Dim SakujyoFlg Dim GokeiKingaku, SyohizeiKingaku, ZeikomiKingaku Dim ShiireUriageBunsyoNaiyoCD, tmps Dim DbTorihikisakiCD Dim BunsyoKubun Dim MeisaiUnsobi(5) Dim MeisaiUnsosakiCD(5) Dim MeisaiUnsohi(5) Dim MeisaiUnsosakiMeisyo(5) Dim ii For ii = 1 To 5 MeisaiUnsobi(ii) = "" MeisaiUnsosakiCD(ii) = "" MeisaiUnsohi(ii) = "" MeisaiUnsosakiMeisyo(ii) = "" Next Dim RouteType RouteType = Request("RouteType") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim PageType PageType = Request("PageType") TorihikisakiCD = Request("TorihikisakiCD") Dim SakuseiKaisyaCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") If SakuseiKaisyaCD = "" Then SakuseiKaisyaCD = KaisyaCD End If Dim SenpoFlg SenpoFlg = 0 If SakuseiKaisyaCD <> KaisyaCD Then SenpoFlg = 1 End IF If SenpoFlg = 1 Then If GB_JisyaFlag <> "" Then '運用管理・演習管理（自社フラグ無し）では開封フラグを立てない（061213小野） Query1 = "exec SPC運送費請求書開封 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query1) End If Query1 = "exec SPC運送費請求書取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" Else Query1 = "exec SPC運送費請求書取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" End If Set Content = OpenQuery(Query1) If Not(Content.BOF Or Content.EOF) Then Syoribi = Content.Fields("処理日") DbTorihikisakiCD = Content.Fields("取引先CD") ShiharaiHoho = Content.Fields("支払方法") Tekiyo = Content.Fields("摘要") HasshinFlg = Content.Fields("発行フラグ") SakujyoFlg = Content.Fields("削除フラグ") GakuseiBango = Content.Fields("学生番号") BunsyoKubun = Content.Fields("文書区分") If BunsyoKubun = "CA" Then ShiireUriageBunsyoNaiyoCD = Content.Fields("納品請求書番号群") Else ii = 0 Do While Not(Content.BOF Or Content.EOF) ii = ii + 1 MeisaiUnsobi(ii) = Content.Fields("運送日") MeisaiUnsosakiCD(ii) = Content.Fields("運送先CD") MeisaiUnsohi(ii) = Content.Fields("運送費") MeisaiUnsosakiMeisyo(ii) = ConvKaisyaMeisyoDx(EnshuCD, MeisaiUnsosakiCD(ii)) Content.MoveNext Loop End If End If Dim SyoruiMei, Title SyoruiMei = "運送費請求書" Title = SyoruiMei %> <% = 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(3)) 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/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", "運送費請求書", "", "", "", "", "")) 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 HasshinFlg = 1 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) ElseIf SenpoFlg = 1 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) ElseIf BunsyoKubun = "CA" Then Response.Write(HttpL3_1("発信", "tblbtn( 'fu_seikyu_bin.asp?Syoribi=" & Syoribi & "&TorihikisakiCD=" & DbTorihikisakiCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&hasshin=1')", "修正", "tblbtn( 'fu_seikyu.asp?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "", "")) Else Response.Write(HttpL3_1("発信", "tblbtn( 'fu_seikyusyudo_bin.asp?Syoribi=" & Syoribi & "&TorihikisakiCD=" & DbTorihikisakiCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&hasshin=1')", "修正", "tblbtn( 'fu_seikyusyudo.asp?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "", "")) End If If InStr(RouteType, "MailOnly") > 0 Then If SenpoFlg = 0 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 ElseIf InStr(RouteType, "RMail") > 0 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=" & RouteType & "')", "","", "", "", "", "", "", "")) ElseIf InStr(RouteType, "SMail") > 0 Or InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=" & RouteType & "')", "","", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("追加", "tblbtn('fu_seikyusyudo.asp')", "一覧表示", "tblbtn( 'fu_seikyu_ichiran.asp')", "","", "", "", "", "")) End If Response.Write(HttpL4("運送費請求書", "")) %>
<% = HtmlFooter %> <% End Sub %>