<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim BunsyoSyuruiCD '文書種類CD Dim SenpoBunsyoSyuruiCD '先方文書種類CD Dim SyoruiMei '書類名 Dim SenpoSyoruiMei '先方書類名 Dim NyusyukoKubun '入出庫区分 Dim RouteType Dim ShowDel Dim Title Dim SyuruiKubun Dim SenpoFlg '先方書類フラグ Dim HenshinFlgHyoji BunsyoSyuruiCD = Request("BunsyoSyuruiCD") '文書種類CD SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") '先方文書種類CD NyusyukoKubun = Request("NyusyukoKubun") '入出庫区分 RouteType = Request("RouteType") ShowDel = Request("ShowDel") Select Case SenpoBunsyoSyuruiCD Case "KI" SenpoSyoruiMei = "先方見積依頼書" Case "KM" SenpoSyoruiMei = "先方見積書" Case "KC" SenpoSyoruiMei = "先方注文書" Case "KU" SenpoSyoruiMei = "先方注文請書" Case "KK" SenpoSyoruiMei = "先方確認済み注文請書" Case "KN" SenpoSyoruiMei = "先方納品請求書" Case "KB" SenpoSyoruiMei = "先方物品受領書" Case "KQ" SenpoSyoruiMei = "先方物品領収書" Case "KX" SenpoSyoruiMei = "先方管理部買入申込書" Case "KY" SenpoSyoruiMei = "先方管理部売渡申込書" Case "KV" SenpoSyoruiMei = "先方管理部納品請求書" Case "KW" SenpoSyoruiMei = "先方管理部売渡受付書" Case Else End Select Select Case BunsyoSyuruiCD Case "KI" SyoruiMei = "見積依頼書" SyuruiKubun = "S" Case "KM" SyoruiMei = "見積書" SyuruiKubun = "U" Case "KC" SyoruiMei = "注文書" SyuruiKubun = "S" Case "KU" SyoruiMei = "注文請書" SyuruiKubun = "U" Case "KK" SyoruiMei = "先方注文請書確認" SyuruiKubun = "S" Case "KN" SyoruiMei = "納品請求書" SyuruiKubun = "U" Case "KB" SyoruiMei = "物品受領書" SyuruiKubun = "S" Case "KQ" SyoruiMei = "領収書" SyuruiKubun = "U" Case "KX" SyoruiMei = "管理部買入申込書" SyuruiKubun = "X" Case "KY" SyoruiMei = "管理部売渡申込書" SyuruiKubun = "1" Case "KV" SyoruiMei = "管理部納品請求書" SyuruiKubun = "V" Case "KW" SyoruiMei = "管理部売渡受付書" SyuruiKubun = "W" Case "KO" SyoruiMei = "管理部宛物品受領書" SyuruiKubun = "X" Case "KP" SyoruiMei = "管理部宛納品請求書" SyuruiKubun = "1" Case "KS" SyoruiMei = "出庫依頼書" SyuruiKubun = "U" Case "SS" SyoruiMei = "寄託入庫一覧" SyuruiKubun = "S" Case Else End Select Select Case NyusyukoKubun Case "S" SyoruiMei = "仕入入庫" Case "U" SyoruiMei = "売上出庫" End Select Title = SyoruiMei If SenpoSyoruiMei <> "" Then Title = SenpoSyoruiMei End If %> <% = HtmlHeader("") %> <% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) Dim Bu, BuAddr, UrikaiType, ShiireUriageType If SyuruiKubun = "V" Or SyuruiKubun = "X" Or SyuruiKubun = "S" Then ShiireUriageType = "仕入" Bu = "仕入部" UrikaiType = "買入" BuAddr = 3 Else ShiireUriageType = "売上" Bu = "販売部" UrikaiType = "売渡" BuAddr = 2 End If If 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')", Bu, "", ShiireUriageType & "書類", "", SyoruiMei, "", "", "", "", "")) ElseIf SyuruiKubun = "V" Or SyuruiKubun = "W" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", UrikaiType & "受付", "", "", "", "", "")) ElseIf SyuruiKubun = "X" Or SyuruiKubun = "1" Or SyuruiKubun = "U" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", Bu, "tblbtn( '/" & HomeAlias & "/user/bk/menu_s" & BuAddr & ".asp')", "" , "", "", "", "", "")) Else ' U S Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", Bu, "tblbtn( '/" & HomeAlias & "/user/bk/menu_s" & BuAddr & ".asp')", "寄託入庫一覧", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "", "", "", "", "", "", "", "")) 'If InStr(RouteType, "ViewOnly") > 0 Then ' Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) 'ElseIf SenpoFlg = 0 AND ShowDel = 1 Then ' Response.Write(HttpL3_2("追加", "tblbtn( 'fd_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "削除済みを非表示", "tblbtn( 'fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "")) 'ElseIf SenpoFlg = 0 Then ' Response.Write(HttpL3_2("追加", "tblbtn( 'fd_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "削除済みを表示", "tblbtn( 'fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ShowDel=1')", "", "", "", "", "", "")) 'ElseIf BunsyoSyuruiCD <> "KK" Then '先方書類 ' Response.Write(HttpL3_2("追加", "tblbtn( 'fd_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", "")) 'Else '他ボタンは全て表示しないため、If分岐はせず、以下の一行のみとする ' Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) 'End If Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("寄託入庫一覧", "")) %> <% = HtmlFooter %> <% End Sub %>