diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 8f5277347..79a6753a5 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2737,7 +2737,7 @@ Partial Class OC
                     Next
                 End If
 
-                Alert(Msg.ToString, TipoMensaje.MsgInformacion, "document.location.href=""/OC/RepOC.aspx""")
+                Alert(Msg.ToString, TipoMensaje.MsgInformacion, $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}""")
 
                 'GeneraPDF(CveOrdenCompra)
                 TxtDescrip.Text = ""
@@ -3123,7 +3123,7 @@ Partial Class OC
                         Next
                     End If
 
-                    Alert(Msg.ToString, TipoMensaje.MsgInformacion, "document.location.href=""/OC/RepOC.aspx""")
+                    Alert(Msg.ToString, TipoMensaje.MsgInformacion, $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}""")
                 End If
 
                 DrEliminados.Clear()