diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx
index 34fdee2b6..fc05ef3e2 100644
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -69,9 +69,9 @@
             <li>                
                  <asp:LinkButton ID="LnkShowSolicitudes" OnClick="LnkShowSolicitudes_Click" runat="server"> <i class="fa fa-external-link"></i> Solicitudes SAT</asp:LinkButton>
             </li>
-            <li>
+            <%--<li>
                 <asp:LinkButton ID="LnkBitacoraFacturas" runat="server" OnClick="LnkBitacoraFacturas_Click"><i class="fa fa-book" ></i> Bitácora Facturas</asp:LinkButton>
-            </li>
+            </li>--%>
             <li>
                 <asp:LinkButton ID="LnkVinculacionMasivaComplementos" runat="server" OnClick="LnkVinculacionMasivaComplementos_Click" Visible ="false" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea realizar la vinculación masiva de complementos?" data-btn-ok-label="si"><i class="fa fa-tasks" ></i> Vinculación Masiva Complementos</asp:LinkButton>
             </li>
@@ -1360,7 +1360,7 @@
 
                                     <div class="row">
                                         <div class="col-md-12">
-                                            <asp:GridView ID="GVSolicitudesNominas" runat="server" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" AutoGenerateColumns="False" OnRowDataBound="GVSolicitudesNominas_RowDataBound"
+                                            <asp:GridView ID="GVSolicitudesHistorial" runat="server" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" AutoGenerateColumns="False" OnRowDataBound="GVSolicitudesHistorial_RowDataBound"
                                                 ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron registros"
                                                 DataKeyNames="CveSolicitudDetalle,CveSolicitud,idSolicitudCFDI,idSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa,ArchivoXML,Folio,CveTipoSolicitud,TipoDescargaStr">
                                                 <Columns>
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 3405f0e7e..40a6e46cc 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -982,7 +982,7 @@ Partial Class Compras_eFacturas
     End Sub
 
 
-    Protected Sub LnkBitacotaFacturas_Click(sender As Object, e As EventArgs)
+    Protected Sub LnkBitacoraFacturas_Click(sender As Object, e As EventArgs)
 
         RegistraScript("$('#ModalBitacoraEfacturas').modal()")
         CargaDatosBitacora()
@@ -2709,33 +2709,20 @@ Partial Class Compras_eFacturas
 
         Using nom As ClsNominas = New ClsNominas()
 
-            'PRUEBAS
-            If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 119 Then
-                If nom.SolicitudesGet(1589, UsuarioActual.CveEmpresa, CveTipoSolicitud:=2, Estatus:=-1, Top:=1) Then
-                    GVSolicitudesPendientes.DataSource = nom.DtResultados
+            If nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud:=2, Estatus:=0, Top:=50) Then
+                GVSolicitudesPendientes.DataSource = nom.DtResultados
 
-                    If nom.DtResultados.Rows.Count > 0 Then
-                        LnkverificarSolicitudes.Visible = True
-                    End If
-
-                    GVSolicitudesPendientes.DataBind()
+                If nom.DtResultados.Rows.Count > 0 Then
+                    LnkverificarSolicitudes.Visible = True
                 End If
-            Else
-                If nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud:=2, Estatus:=0, Top:=50) Then
-                    GVSolicitudesPendientes.DataSource = nom.DtResultados
 
-                    If nom.DtResultados.Rows.Count > 0 Then
-                        LnkverificarSolicitudes.Visible = True
-                    End If
-
-                    GVSolicitudesPendientes.DataBind()
-                End If
+                GVSolicitudesPendientes.DataBind()
             End If
 
 
-            If nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud:=2, Estatus:=1, Top:=1) Then
-                GVSolicitudesNominas.DataSource = nom.DtResultados
-                GVSolicitudesNominas.DataBind()
+            If nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud:=2, Estatus:=1, Top:=50) Then
+                GVSolicitudesHistorial.DataSource = nom.DtResultados
+                GVSolicitudesHistorial.DataBind()
             End If
         End Using
 
@@ -3028,7 +3015,7 @@ Partial Class Compras_eFacturas
                 Dim SeVerifico As Boolean = False
 
                 Dim ResultadoSolicitudOK As Boolean = False
-                Dim api As New GeneralesAPIeFacturas()
+                Dim api As New GeneralesAPIeFacturas(If(EsProduccion, "http://localhost:4001/", "http://localhost:60281/"))
 
                 Dim Verificar As Boolean = True
 
@@ -3068,40 +3055,28 @@ Partial Class Compras_eFacturas
 
                 If ResultadoSolicitudOK And Verificar Then
 
-                    'Dim ObjApiVerificacion As JToken = CType(api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual), JToken)
+                    Dim ObjApiVerificacion As JToken = CType(api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual), JToken)
 
-                    'If Not (ObjApiVerificacion Is Nothing) Then
-                    '    resultVerificacion = ObjApiVerificacion.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList()
+                    If Not (ObjApiVerificacion Is Nothing) Then
+                        resultVerificacion = ObjApiVerificacion.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList()
 
-                    '    If UsuarioActual.CveRol = 1 Then
-                    '        Dim respesta = New StringBuilder
-                    '        For Each s As String In resultVerificacion
-                    '            respesta.AppendLine($"{s} - ")
-                    '        Next
+                        ResultadoVerificaionOK = Boolean.Parse(resultVerificacion(0))
+                        SeVerifico = True
+                    Else
+                        TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+                    End If
 
-                    '        Alert(respesta.ToString)
-                    '    End If
-
-                    '    ResultadoVerificaionOK = Boolean.Parse(resultVerificacion(0))
-                    '    SeVerifico = True
-                    'Else
-                    '    TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
-                    'End If
-
-                    Dim Archivo = New FileInfo(String.Format("{0}DescargasSATXML\Compras\{1}.gzip", UsuarioActual.Empresa.Ruta, CveSolicitudDetalle))
+                    Dim Archivo = New FileInfo(String.Format("{0}DescargasSATXML\Compras\{1}.zip", UsuarioActual.Empresa.Ruta, CveSolicitudDetalle))
                     Dim fileName = Archivo.Name
                     Dim filemove = Archivo.FullName
 
-                    If Archivo.Exists Then
+                    If ResultadoVerificaionOK AndAlso Archivo.Exists Then
                         Try
                             'COPIAR ARCHIVO A LA CARPETA DE PROCESAMIENTO DE FACTURAS, SE ELIMINARAN ESOS ARCHIVOS TEMPORALES
                             Dim destFile = String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, fileName)
                             File.Copy(filemove, destFile, overwrite:=True)
                             ListComprimidos.Add(destFile)
 
-                            ResultadoVerificaionOK = True
-                            SeVerifico = True
-
                         Catch ex As Exception
                             ex.ToString().GuardaLog()
                         End Try
@@ -3119,7 +3094,7 @@ Partial Class Compras_eFacturas
                     TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
                 End If
 
-                If SeVerifico AndAlso UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 119 Then
+                If SeVerifico Then
                     SubirFacturas(ListComprimidos, ListXML, ListPDF)
                 End If
 
@@ -3161,17 +3136,24 @@ Partial Class Compras_eFacturas
         RegistraScript("$('#ModalAgregarSolicitud').modal('show');")
     End Sub
 
-    Protected Sub GVSolicitudesNominas_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
+    Protected Sub GVSolicitudesHistorial_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
 
 
             If e.Row.DataKey("ArchivoXML").Length > 0 Then
-                Dim UrlDescarga As String = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{e.Row.DataKey("ArchivoXML")}"
+                Dim UrlDescarga As String = $"{UsuarioActual.Empresa.Ruta}DescargasSATXML\\Compras\\{e.Row.DataKey("CveSolicitudDetalle")}.zip"
 
                 If System.IO.File.Exists(UrlDescarga) Then
                     Dim LnkDescargaXML As LinkButton = e.Row.FCLinkButton("LnkDescargaXML")
                     ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDescargaXML)
                     LnkDescargaXML.Visible = True
+                Else
+                    Dim UrlDescarga2 As String = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{e.Row.DataKey("ArchivoXML")}"
+                    If System.IO.File.Exists(UrlDescarga2) Then
+                        Dim LnkDescargaXML As LinkButton = e.Row.FCLinkButton("LnkDescargaXML")
+                        ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDescargaXML)
+                        LnkDescargaXML.Visible = True
+                    End If
                 End If
             End If
 
@@ -3193,9 +3175,14 @@ Partial Class Compras_eFacturas
 
     Protected Sub LnkDescargaXML_Click(ByVal sender As Object, ByVal e As EventArgs)
         Dim GvRow As GridViewRow = CType((CType(sender, LinkButton)).NamingContainer, GridViewRow)
-        Dim UrlDescarga As String = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{GvRow.DataKey("ArchivoXML")}"
+        Dim UrlDescarga As String = $"{UsuarioActual.Empresa.Ruta}DescargasSATXML\\Compras\\{GvRow.DataKey("CveSolicitudDetalle")}.zip"
         Dim Archivo As New System.IO.FileInfo(UrlDescarga)
 
+        If Not Archivo.Exists Then
+            Dim UrlDescarga2 As String = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{GvRow.DataKey("ArchivoXML")}"
+            Archivo = New System.IO.FileInfo(UrlDescarga2)
+        End If
+
         If Archivo.Exists Then
             Response.Clear()
             Response.AddHeader("Content-Disposition", "attachment; filename=" & Archivo.Name)
@@ -3205,6 +3192,7 @@ Partial Class Compras_eFacturas
             Response.TransmitFile(Archivo.FullName)
             Response.[End]()
         End If
+
     End Sub
 
     Private Sub MostrarSolcitudesSAT()