<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim BunsyoSyuruiCD, SenpoBunsyoSyuruiCD Dim SyoruiMei, SenpoSyoruiMei Dim NyusyukoKubun Dim RouteType RouteType = Request("RouteType") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") NyusyukoKubun = Request("NyusyukoKubun") Dim ShowDel ShowDel = Request("ShowDel") Dim Title Dim SyoruiKubun Dim SenpoFlg SenpoFlg = 0 If SenpoBunsyoSyuruiCD <> "" Then SenpoFlg = 1 End If 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 "KX" SenpoSyoruiMei = "先方買入申込書" Case "KY" SenpoSyoruiMei = "先方売渡申込書" Case "CB" SenpoSyoruiMei = "運送見積依頼書" Case "CC" SenpoSyoruiMei = "運送見積書" Case Else End Select Select Case BunsyoSyuruiCD Case "KI" SyoruiMei = "見積依頼書" SyoruiKubun = "S" Case "KM" SyoruiMei = "見積書" SyoruiKubun = "U" Case "KC" SyoruiMei = "注文書" SyoruiKubun = "S" Case "KU" SyoruiMei = "注文請書" SyoruiKubun = "U" Case "KK" SyoruiMei = "先方注文請書確認" SyoruiKubun = "S" Case "KN" SyoruiMei = "納品請求書" SyoruiKubun = "U" Case "KB" SyoruiMei = "物品受領書" SyoruiKubun = "S" Case "KX" SyoruiMei = "管理部買入申込書" SyoruiKubun = "X" Case "KY" SyoruiMei = "管理部売渡申込書" SyoruiKubun = "1" Case "KV" SyoruiMei = "管理部納品請求書" SyoruiKubun = "V" Case "KW" SyoruiMei = "管理部売渡受付書" SyoruiKubun = "W" Case "CB" SyoruiMei = "運送費見積依頼書" SyoruiKubun = "B" Case "CC" SyoruiMei = "運送費見積書" SyoruiKubun = "C" 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 SyoruiKubun = "V" Or SyoruiKubun = "X" Or SyoruiKubun = "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 SyoruiKubun = "V" Or SyoruiKubun = "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 SyoruiKubun = "X" Or SyoruiKubun = "1" 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')", "管理部" & UrikaiType , "", "", "", "", "")) 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')", SyoruiMei, "", "", "", "", "")) 'Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運送保険", "tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", SyoruiMei, "", "", "", "", "", "", "")) 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')", SyoruiMei, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "", "", "", "", "", "", "", "")) If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) ElseIf SenpoBunsyoSyuruiCD = "" AND ShowDel = 1 Then Response.Write(HttpL3_2("追加", "tblbtn( 'fc_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "削除済みを非表示", "tblbtn( 'fc_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "")) ElseIf SenpoBunsyoSyuruiCD = "" Then Response.Write(HttpL3_2("追加", "tblbtn( 'fc_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "削除済みを表示", "tblbtn( 'fc_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ShowDel=1')", "", "", "", "", "", "")) ElseIf BunsyoSyuruiCD <> "KK" Then '先方書類 Response.Write(HttpL3_2("追加", "tblbtn( 'fc_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", "")) Else '先方注文請書確認には追加ボタンがいらない Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If 'Response.Write "SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD 'Response.Write "----SenpoFlg=" & SenpoFlg 'EXIT SUB Response.Write(HttpL4(Title , "")) %> <% = HtmlFooter %> <% End Sub %>