diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx
index 5e0ac6e38..1a81be565 100644
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -410,7 +410,7 @@
             </ContentTemplate>
         </ajax:TabPanel>
 
-         <ajax:TabPanel ID="TabTraslados" runat="server" HeaderText="Traslados">
+         <ajax:TabPanel ID="TabTraslados" runat="server" HeaderText="Traslados" Visible="false" >
              <ContentTemplate>
                  <asp:UpdatePanel runat="server" ID="UpTraslados"  UpdateMode="Conditional">
                       <ContentTemplate>
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 8ce5406bd..f3e2ed114 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -805,18 +805,20 @@ Partial Class Compras_eFacturas
 
             End If
         End If
-
-        If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa, Opcion:=2) Then
-
-            If ObjDatos.DtResultados.Rows.Count > 0 Then
-
-                DTTrasaldos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
-
-            End If
-        End If
-
         LblRegistros.Text = String.Format("{0} Registros", ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P' and TipoComprobante <> 'T' ").Rows.Count.ToString("N0"))
         LblTotalPagos.Text = String.Format("{0} Pagos", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'").Rows.Count.ToString("N0"))
+
+        If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
+            TabTraslados.Visible = True
+            If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa, Opcion:=2) Then
+
+                If ObjDatos.DtResultados.Rows.Count > 0 Then
+
+                    DTTrasaldos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
+
+                End If
+            End If
+        End If
         LblTotalTraslados.Text = String.Format("{0} Traslados", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'").Rows.Count.ToString("N0"))
 
         If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then
@@ -988,13 +990,14 @@ Partial Class Compras_eFacturas
                 Case "E"
                     e.Row.FCLabel("LtTipoComprobante").Text = "Egreso"
                     e.Row.FCLabel("LtTipoComprobante").CssClass = "label label-sm label-warning"
-                    e.Row.FCLabel("LtTipoComprobante").Attributes.Add("data-toggle", "tooltip")
+                    e.Row.FCLabel("LtTipoComprobante").Attributes.Add("data-toggle", "tooltip") '
                     e.Row.FCLabel("LtTipoComprobante").Attributes.Add("title", "Egreso")
                 Case "P"
                     e.Row.FCLabel("LtTipoComprobante").Text = "Pago"
                     e.Row.FCLabel("LtTipoComprobante").CssClass = "label label-sm label-primary"
                     e.Row.FCLabel("LtTipoComprobante").Attributes.Add("data-toggle", "tooltip")
                     e.Row.FCLabel("LtTipoComprobante").Attributes.Add("title", "Complemento Pago")
+
             End Select
 
             e.Row.Cells(2).Attributes.Add("data-order", e.Row.DBCampo("FechaFactura").ToDate.Ticks.ToString)