diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb
index cf58bbabe..48624b2ab 100644
--- a/Acarreos/CatChoferes.aspx.vb
+++ b/Acarreos/CatChoferes.aspx.vb
@@ -47,12 +47,12 @@ Partial Class Acarreos_CatChoferes
             Dim Estatus = 0
             If ChkEstatus.Checked Then Estatus = 1
             If HdnModalidad.Value = "A" Then
-                If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumInt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Ciudad:=TxtCiudad.Text.Trim, Estado:=TxtEstado.Text.Trim(), CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim) Then
+                If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Ciudad:=TxtCiudad.Text.Trim, Estado:=TxtEstado.Text.Trim(), CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim) Then
                     CargaDatos()
                     Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
                 End If
             ElseIf HdnModalidad.Value = "U" Then
-                If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Ciudad:=TxtCiudad.Text.Trim, Estado:=TxtEstado.Text.Trim(), CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim) Then
+                If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Ciudad:=TxtCiudad.Text.Trim, Estado:=TxtEstado.Text.Trim(), CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim) Then
                     CargaDatos()
                     Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
                 End If
@@ -107,6 +107,20 @@ Partial Class Acarreos_CatChoferes
         TxtTelefono.Text = ""
         TxtCiudad.Text = ""
         TxtLicencia.Text = ""
+
+
+        DdlTransportista.SelectedValueExist(-1)
+        TxtRFC.Text = ""
+        TxtNumInt.Text = ""
+        TxtNumExt.Text = ""
+        TxtEstado.Text = ""
+        TxtCP.Text = ""
+        TxtColonia.Text = ""
+
+        TxtNumRegidTribOperador.Text = ""
+        TxtResidenciaFiscalOperador.Text = ""
+
+
         ChkEstatus.Checked = True
         divEstatus.Visible = False
         UpAddChofer.Update()
diff --git a/Contabilidad/RepEstadoResultadosPorSegmento.aspx b/Contabilidad/RepEstadoResultadosPorSegmento.aspx
index 68af0a39a..715b62571 100644
--- a/Contabilidad/RepEstadoResultadosPorSegmento.aspx
+++ b/Contabilidad/RepEstadoResultadosPorSegmento.aspx
@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEstadoResultadosPorSegmento.aspx.vb" Inherits="Contabilidad_RepEstadoResultadosPorSegmento" ValidateRequest="false" %>
+<%@ Page Title="Estado Resultados X Segmento" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEstadoResultadosPorSegmento.aspx.vb" Inherits="Contabilidad_RepEstadoResultadosPorSegmento" ValidateRequest="false" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
 <%--        <li>
@@ -53,6 +53,7 @@
 </style>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="E" runat="Server">
+    Estado Resultados X Segmento
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="JS" runat="Server">
 
diff --git a/Contabilidad/RepEstadoResultadosPorSegmento.aspx.vb b/Contabilidad/RepEstadoResultadosPorSegmento.aspx.vb
index 427d60a3c..a62d5c72a 100644
--- a/Contabilidad/RepEstadoResultadosPorSegmento.aspx.vb
+++ b/Contabilidad/RepEstadoResultadosPorSegmento.aspx.vb
@@ -266,7 +266,7 @@ Partial Class Contabilidad_RepEstadoResultadosPorSegmento
             DSDatos = ObjConta.DSResultados
 
 
-            If DSDatos IsNot Nothing AndAlso DSDatos.Tables.Count = 3 Then
+            If DSDatos IsNot Nothing AndAlso DSDatos.Tables.Count = 2 Then
                 Try
 
 
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()
diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx
index 70bd0c4a2..8d58760cb 100644
--- a/RH/CatPersonal.aspx
+++ b/RH/CatPersonal.aspx
@@ -109,8 +109,7 @@
                                 <ContentTemplate>
                                     <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                                     <div class="col-md-2">
-                                        <asp:DropDownList ID="DdlSubProyectoAsignado" runat="server" CssClass="select2me" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" ValidationGroup="GrpGuardar" Width="100%">
-                                            <asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>
+                                        <asp:DropDownList ID="DdlSubProyectoAsignado" runat="server" CssClass="select2me" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" ValidationGroup="GrpGuardar" Width="100%">                                            
                                         </asp:DropDownList>
                                     </div>
                                 </ContentTemplate>
@@ -178,7 +177,7 @@
                         <label class="col-md-1 truncate">Ruta:</label>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlRuta" runat="server" CssClass="select2me" Width="100%" AppendDataBoundItems="true" DataTextField="Ruta" DataValueField="CveRuta" ValidationGroup="GrpGuardar">
-                                <asp:ListItem Selected="True" Text="Sin asignar Ruta" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
                         <label class="col-md-1 truncate">Escolaridad:</label>
@@ -211,7 +210,7 @@
                         <label class="col-md-1 truncate">Motivo Baja:</label>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlMotivoBaja" runat="server" Width="100%" CssClass="select2me" AppendDataBoundItems="true" DataTextField="MotivoBaja" DataValueField="CveMotivoBaja" ValidationGroup="GrpGuardar">
-                                <asp:ListItem Selected="True" Text="Sin asignar Motivo de Baja" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
 
@@ -237,7 +236,7 @@
                         <label class="col-md-1 truncate">Supervisor:</label>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlSupervisor" runat="server" Width="100%" CssClass="select2me" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveUsuario" ValidationGroup="GrpGuardar">
-                                <asp:ListItem Selected="True" Text="Sin Supervisor Asignado" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
                         <div class="row">