<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If '注文請書確認要不要トグル Dim AlertFlg AlertFlg = 0 Dim UkeshoKakunin UkeshoKakunin = 1 Dim Kitakuriyou Dim SenpoHitsuyo Dim ShiireUriageJHB Dim ShiireUriageKennin Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then UkeshoKakunin = Content.Fields("注文請書確認利用") SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要") Kitakuriyou = Content.Fields("寄託倉庫利用") ShiireUriageJHB = "" & Content.Fields("仕入売上書類受発信利用") ShiireUriageKennin = "," & Content.Fields("仕入売上書類検認利用") & "," End If If "" & UkeshoKakunin = "" Then UkeshoKakunin = 1 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 ShowRet ShowRet = Request("ShowRet") Dim Title Dim SyuruiKubun Dim SenpoFlg, HenshinFlgHyoji SenpoFlg = 0 HenshinFlgHyoji = 0 If SenpoBunsyoSyuruiCD <> "" Then SenpoFlg = 1 End If If SenpoFlg = 1 And BunsyoSyuruiCD <> "KK" And (ShiireUriageJHB = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KV" Or BunsyoSyuruiCD = "KW" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY") Then HenshinFlgHyoji = 1 End If Select Case SenpoBunsyoSyuruiCD Case "KI" SenpoSyoruiMei = "先方見積依頼書" Case "KM" SenpoSyoruiMei = "先方見積書" Case "KC" SenpoSyoruiMei = "先方注文書" Case "KU" SenpoSyoruiMei = "先方注文請書" Case "KK" '注文請書確認要不要トグル(090928小野) If UkeshoKakunin = 0 Then SenpoSyoruiMei = "注文請済み先方注文書" Else SenpoSyoruiMei = "先方確認済み注文請書" End If 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 Dim SenpoTmpBunsyoSyuruiCD Select Case BunsyoSyuruiCD Case "KI" SyoruiMei = "見積依頼書" SyuruiKubun = "S" Case "KM" SyoruiMei = "見積書" SyuruiKubun = "U" SenpoTmpBunsyoSyuruiCD = "KI" Case "KC" SyoruiMei = "注文書" SyuruiKubun = "S" SenpoTmpBunsyoSyuruiCD = "KM" Case "KU" SyoruiMei = "注文請書" SyuruiKubun = "U" SenpoTmpBunsyoSyuruiCD = "KC" Case "KK" SyoruiMei = "先方注文請書確認" SyuruiKubun = "S" Case "KN" SyoruiMei = "納品請求書" SyuruiKubun = "U" SenpoTmpBunsyoSyuruiCD = "KK" Case "KB" SyoruiMei = "物品受領書" SyuruiKubun = "S" SenpoTmpBunsyoSyuruiCD = "KN" Case "KQ" SyoruiMei = "領収書" SyuruiKubun = "U" SenpoTmpBunsyoSyuruiCD = "KB" Case "KX" SyoruiMei = "管理部買入申込書" SyuruiKubun = "X" Case "KY" SyoruiMei = "管理部売渡申込書" SyuruiKubun = "1" Case "KV" SyoruiMei = "管理部納品請求書" SyuruiKubun = "V" SenpoTmpBunsyoSyuruiCD = "KX" Case "KW" SyoruiMei = "管理部売渡受付書" SyuruiKubun = "W" SenpoTmpBunsyoSyuruiCD = "KY" Case "KO" SyoruiMei = "管理部宛物品受領書" SyuruiKubun = "X" SenpoTmpBunsyoSyuruiCD = "KV" Case "KP" SyoruiMei = "管理部宛納品請求書" SyuruiKubun = "1" SenpoTmpBunsyoSyuruiCD = "KW" 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')", SyoruiMei , "", "", "", "", "")) 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, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If SenpoFlg = 0 Or BunsyoSyuruiCD = "KK" Then Response.Write(HttpL3_1("照会", "syokaibtn()", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("照会", "syokaibtn()", "削除", "sakujobtn()", "", "", "", "", "", "")) End If Dim TsuikaButton1 Dim TsuikaButton2 Dim TsuikaButton3 Dim TsuikaButton4 TsuikaButton1 = "追加" TsuikaButton2 = "tblbtn('fd_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "');" TsuikaButton3 = TsuikaButton1 TsuikaButton4 = TsuikaButton2 If SenpoHitsuyo = "1" And SenpoTmpBunsyoSyuruiCD <> "" Then TsuikaButton1 = "先方書類一覧" TsuikaButton2 = "tblbtn('fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "');" TsuikaButton3 = "一覧表示" TsuikaButton4 = "tblbtn('fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "');" End If Dim ShowDelButton Dim ShowDelValue Dim ShowRetButton Dim ShowRetValue ShowDelButton = "削除済みを表示" ShowDelValue = "&ShowDel=1" ShowRetButton = "返信済みを表示" ShowRetValue = "&ShowRet=1" If ShowDel = "1" Then ShowDelButton = "削除済みを非表示" ShowDelValue = "" End If If ShowRet = "1" Then ShowRetButton = "返信済みを非表示" ShowRetValue = "" End If If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) ElseIf SenpoFlg = 0 Then ' ElseIf SenpoFlg = 0 AND ShowDel = "1" Then Response.Write(HttpL3_2(TsuikaButton1, TsuikaButton2, ShowDelButton, "tblbtn( 'fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & ShowDelValue & "')", "", "", "", "", "", "")) ' ElseIf SenpoFlg = 0 Then ' Response.Write(HttpL3_2(TsuikaButton1, TsuikaButton2, "削除済みを表示", "tblbtn( 'fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ShowDel=1')", "", "", "", "", "", "")) ElseIf BunsyoSyuruiCD <> "KK" Then '先方書類 Response.Write(HttpL3_2(TsuikaButton3, TsuikaButton4, ShowRetButton, "tblbtn( 'fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "&ShowDel=" & ShowDel & ShowRetValue & "');", ShowDelButton, "tblbtn( 'fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "&ShowRet=" & ShowRet & ShowDelValue & "');", "", "", "", "")) 'Response.Write(HttpL3_2(TsuikaButton3, TsuikaButton4, "", "", "", "", "", "", "", "")) Else '先方注文請書確認には追加ボタンがいらない Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4(Title , "")) %> <% = HtmlFooter %> <% End Sub %>