diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index c311c48da..3a038344b 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2737,7 +2737,15 @@ Partial Class OC
                     Next
                 End If
 
-                Alert(Msg.ToString, TipoMensaje.MsgInformacion, $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}""")
+                ' Alert(Msg.ToString, TipoMensaje.MsgInformacion, $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}""")
+
+                'ES NUEVO
+                Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}"""
+                Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx"""
+                Alert(Msg.ToString(), TipoMensaje.MsgVentasDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
+
+
+
 
                 'GeneraPDF(CveOrdenCompra)
                 TxtDescrip.Text = ""
@@ -3103,7 +3111,13 @@ Partial Class OC
                 If Conta IsNot Nothing Then Conta.Commit()
 
                 If LigaOCs = "" Then
-                    Alert(String.Format("La {0} se guardó correctamente", TipoLargo), TipoMensaje.MsgInformacion)
+                    'Alert(String.Format("La {0} se guardó correctamente", TipoLargo), TipoMensaje.MsgInformacion)
+
+                    'Edicion
+                    Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}"""
+                    Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx"""
+                    Alert(String.Format("La {0} se guardó correctamente", TipoLargo), TipoMensaje.MsgVentasDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
+
                 Else
                     Dim ImprimirOC = ""
                     Dim Msg As New StringBuilder
@@ -3123,7 +3137,16 @@ Partial Class OC
                         Next
                     End If
 
-                    Alert(Msg.ToString, TipoMensaje.MsgInformacion, $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}""")
+                    'Alert(Msg.ToString, TipoMensaje.MsgInformacion, $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}""")
+
+
+                    'Edicion
+                    Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}"""
+                    Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx"""
+                    Alert(Msg.ToString(), TipoMensaje.MsgVentasDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
+
+
+
                 End If
 
                 DrEliminados.Clear()