diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 551fca6ab..7aac560f3 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -4587,7 +4587,6 @@ Public Class ClsBancos
         Return Retorno
     End Function
 
-
 #Region "N O T I F I C A C I O N E S   D E  P A G O  P R O V E E D O R E S"
 
     Public Function NotificacionPago(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActual As Usuario) As Boolean
@@ -4898,6 +4897,25 @@ Public Class ClsBancos
 
 #End Region
 
+
+    Public Function GetBancosOrdenCompra(CveIE As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Banc_BancosOrdenCompraGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveIE", SqlDbType.Int).Value = CveIE
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al consultar las ordenes de compra relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
 #Region "reportes"
     Public Function GetPagosNoBancarios(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index 4b90021f3..8d328c4bb 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -716,11 +716,12 @@ Public Class ClsMovimientos
             .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor
             .Add("@Comprobaciones", SqlDbType.Int).Value = Comprobaciones
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
-            .Add("@TipoAgrupacion", SqlDbType.Bit).Value = TipoAgrupacion
+            .Add("@TipoAgrupacion", SqlDbType.Int).Value = TipoAgrupacion
 
         End With
 
         Try
+            SqlAdapter.SelectCommand.CommandTimeout = 0
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index 0e1eb9aa6..146aac8d0 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -477,6 +477,21 @@
                                 </div>
                             </div>
 
+                             <div class="row" id="DVBancosOrdenCompra" runat="server" visible="False">
+                                 
+                                 <div class="col-md-2"></div>
+                                 <div class="col-md-5">
+
+                                     <asp:GridView ID="GvBancosOrdenCompra" runat="server" GridLines="None" CssClass="table xspadding table-striped table-advance Widthall" AutoGenerateColumns="False" Width="250px">
+                                        <Columns>                                           
+                                            <asp:HyperLinkField DataNavigateUrlFields="CveOrdenCompra" HeaderText="Folio OC" DataNavigateUrlFormatString="~/OC/OC.aspx?OC={0}" DataTextField="FolioOC" Target="_blank" />
+                                            <asp:BoundField DataField="ImporteAnticipo" HeaderText="Importe Anticipo"   DataFormatString="{0:C}" > <ItemStyle HorizontalAlign="Right" /></asp:BoundField>                                           
+                                        </Columns>
+                                    </asp:GridView>
+
+                                 </div>
+                             </div>
+
                         </div>
                     </div>
                 </div>
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 60e52e7ed..0f85a6816 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -798,6 +798,9 @@ Partial Class Bancos_IE
                 HlEvento.Visible = True
                 HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveIE=" & CveIE & "&TB_iframe=true&height=370&width=600;"
 
+                CargaOCRelacionadas()
+
+
             Else
                 'Configuración de Modalidad Insert
                 ImgAddObs.Visible = False
@@ -6798,6 +6801,30 @@ Partial Class Bancos_IE
     Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
         RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
         Calendario.EndDate = DateTime.Now
+    End Sub
+
+    Private Sub CargaOCRelacionadas()
+
+        DVBancosOrdenCompra.Visible = False
+        If CveIE > 0 Then
+            Dim objBanco As New ClsBancos
+
+            If objBanco.GetBancosOrdenCompra(CveIE, UsuarioActual.CveEmpresa) Then
+
+                If objBanco.DtResultados.Rows.Count > 0 Then
+                    GvBancosOrdenCompra.DataSource = objBanco.DtResultados
+                    DVBancosOrdenCompra.Visible = True
+                End If
+            End If
+            objBanco.Dispose()
+            GvBancosOrdenCompra.DataBind()
+        End If
+
+
+
+
+
+
     End Sub
 
 End Class
\ No newline at end of file
diff --git a/Compras/RepCxP.aspx b/Compras/RepCxP.aspx
index bb70141e5..118bd0604 100644
--- a/Compras/RepCxP.aspx
+++ b/Compras/RepCxP.aspx
@@ -226,7 +226,7 @@
                             </asp:DropDownList>
                         </div>
 
-                        <div class="col-md-1"><span>Sucursal:</span></div>
+                        <div class="col-md-1"><span><asp:Label runat="server" ID="LblSubProyectofiltro"></asp:Label>:</span></div>
                         <div class="col-md-1">
                             <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="select2me" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
                                 <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb
index 20d4ef2de..4d85db105 100644
--- a/Compras/RepCxP.aspx.vb
+++ b/Compras/RepCxP.aspx.vb
@@ -131,6 +131,7 @@ Partial Class Compras_RepCxP
 
         DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
         DdlSubProyecto.DataBind()
+        CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectofiltro)
 
         DdlProveedoresClasificaciones.DataSource = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa)
         DdlProveedoresClasificaciones.DataBind()
@@ -158,6 +159,22 @@ Partial Class Compras_RepCxP
         'End If
         'ObjSisUsuarios.Dispose()
 
+        For Each lItem As ListItem In DdlGrupo.Items
+
+
+
+            If lItem.Value.ToEntero = 9 Then
+                lItem.Text = LblSubProyectofiltro.Text & "-Sucursal"
+            End If
+
+            If lItem.Value.ToEntero = 11 Then
+                lItem.Text = LblSubProyectofiltro.Text & " Proveedor"
+            End If
+
+
+        Next
+
+
     End Sub
 
     Private Sub CargaDatos()
@@ -532,7 +549,7 @@ Partial Class Compras_RepCxP
                     e.Row.Cells(3).BackColor = Drawing.Color.LightGray
                     e.Row.Cells(17).BackColor = Drawing.Color.LightGray
                 End If
-                If DdlGrupo.SelectedValue = "10" AndAlso e.Row.RowIndex.Contiene(1, 3) Then
+                If DdlGrupo.SelectedValue = "10" AndAlso e.Row.RowIndex.Contiene(1, 3, 5) Then
                     e.Row.Visible = False
                 End If
                 e.Row.FCHyperLink($"HplColumna1").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
@@ -620,9 +637,9 @@ Partial Class Compras_RepCxP
                 If e.Row.FCHyperLink("LtlSaldo1").Text = "0.00" Then e.Row.FCHyperLink("LtlSaldo1").Text = "-"
             Else
                 If DdlGrupo.SelectedValue.ToEntero = 11 Then
-                    If e.Row.DBCampo("CveSubProyecto") = "-1" Then
+                    If e.Row.DBCampo("CveSubProyecto") = "-1" And e.Row.DBCampo("Orden") = "" Then
                         e.Row.CssClass = "Totales"
-                    ElseIf e.Row.DBCampo("Orden") = "" Then
+                    ElseIf e.Row.DBCampo("Orden") = "" And e.Row.DBCampo("CveSubProyecto") <> "0" Then
                         e.Row.CssClass = "SubTotales"
                     End If
                 Else
@@ -632,13 +649,13 @@ Partial Class Compras_RepCxP
                 End If
 
 
-                If e.Row.DBCampo("Orden") <> "" Then
+                If e.Row.DBCampo("Orden") <> "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                     e.Row.Cells(1).BackColor = Drawing.Color.LightGray
                     e.Row.Cells(17).BackColor = Drawing.Color.LightGray
                 End If
 
 
-                If DdlGrupo.SelectedValue = "10" AndAlso e.Row.RowIndex.Contiene(1, 3) Then
+                If DdlGrupo.SelectedValue = "10" AndAlso e.Row.RowIndex.Contiene(1, 3, 5) Then
                     e.Row.Visible = False
                 End If
 
@@ -658,51 +675,51 @@ Partial Class Compras_RepCxP
                 '/Bancos/RepProgramarRecursos.aspx --> Compras/RepCxPDetalle.aspx
 
                 Dim LigaTot As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
 
 
                 Dim Liga1 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
 
                 Dim Liga2 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
 
                 Dim Liga3 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
 
                 Dim Liga4 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
 
                 Dim Liga5 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
 
                 Dim Liga6 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
 
                 Dim Liga7 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
 
                 Dim Liga8 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
                 Dim Liga9 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C9&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
                 Dim Liga10 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C10&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
                 Dim Liga11 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C11&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
                 Dim Liga12 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C12&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
                 Dim Liga13 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C13&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
 
                 Dim Liga14 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
 
                 Dim Liga15 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
 
                 Dim Liga16 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
 
 
 
@@ -719,7 +736,7 @@ Partial Class Compras_RepCxP
                 End If
 
                 If e.Row.DBCampo("TC2").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
-                    If Not e.Row.DBCampo("Orden") = "" Then
+                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
@@ -737,7 +754,7 @@ Partial Class Compras_RepCxP
                 End If
 
                 If e.Row.DBCampo("TC3").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
-                    If Not e.Row.DBCampo("Orden") = "" Then
+                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
@@ -755,7 +772,7 @@ Partial Class Compras_RepCxP
                 End If
 
                 If e.Row.DBCampo("TC4").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
-                    If Not e.Row.DBCampo("Orden") = "" Then
+                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
@@ -773,7 +790,7 @@ Partial Class Compras_RepCxP
                 End If
 
                 If e.Row.DBCampo("TC5").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
-                    If Not e.Row.DBCampo("Orden") = "" Then
+                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
@@ -791,7 +808,7 @@ Partial Class Compras_RepCxP
                 End If
 
                 If e.Row.DBCampo("TC6").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
-                    If Not e.Row.DBCampo("Orden") = "" Then
+                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
@@ -809,7 +826,7 @@ Partial Class Compras_RepCxP
                 End If
 
                 If e.Row.DBCampo("TC7").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
-                    If Not e.Row.DBCampo("Orden") = "" Then
+                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
@@ -827,7 +844,7 @@ Partial Class Compras_RepCxP
                 End If
 
                 If e.Row.DBCampo("TC8").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
-                    If Not e.Row.DBCampo("Orden") = "" Then
+                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
@@ -845,7 +862,7 @@ Partial Class Compras_RepCxP
                 End If
 
                 If e.Row.DBCampo("TC9").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
-                    If Not e.Row.DBCampo("Orden") = "" Then
+                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
@@ -863,7 +880,7 @@ Partial Class Compras_RepCxP
                 End If
 
                 If e.Row.DBCampo("TC10").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
-                    If Not e.Row.DBCampo("Orden") = "" Then
+                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
@@ -881,7 +898,7 @@ Partial Class Compras_RepCxP
                 End If
 
                 If e.Row.DBCampo("TC11").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
-                    If Not e.Row.DBCampo("Orden") = "" Then
+                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
@@ -899,7 +916,7 @@ Partial Class Compras_RepCxP
                 End If
 
                 If e.Row.DBCampo("TC12").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
-                    If Not e.Row.DBCampo("Orden") = "" Then
+                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
@@ -917,7 +934,7 @@ Partial Class Compras_RepCxP
                 End If
 
                 If e.Row.DBCampo("TC13").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
-                    If Not e.Row.DBCampo("Orden") = "" Then
+                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx
index 33b22246f..19ca4835b 100644
--- a/Compras/RepCxPDetalle.aspx
+++ b/Compras/RepCxPDetalle.aspx
@@ -216,7 +216,7 @@
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <div class="col-md-1"><span>Sucursal:</span></div>
+                        <div class="col-md-1"><span><asp:Label runat="server" ID="LblSubProyectofiltro"></asp:Label>:</span></div>
                         <div class="col-md-1">
                             <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="select2me" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
                                 <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
@@ -238,6 +238,15 @@
                                 <asp:ListItem Text="No" Value="0"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        
+
+                    </div>
+                    <div class="row">
+                        <div class="col-md-1"><span>Moneda:</span></div>
+                        <div class="col-md-1">
+                           <asp:DropDownList ID="Ddlmoneda" runat="server" AppendDataBoundItems="true"   CssClass="select2me" DataTextField="Moneda" DataValueField="CveMoneda" Width="100%"  ></asp:DropDownList>                                
+                        </div>
+
                     </div>
                 </div>
             </div>
@@ -251,6 +260,27 @@
            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%"   EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" 
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"  GridLines="None">
                 <Columns>
+                    <%--0--%>
+                     <asp:TemplateField>
+                        <HeaderTemplate>
+                            Folio
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:HyperLink ID="HplFolio" runat="server" Text='<%# Eval("SerieFolio")%>' CssClass="Texto"></asp:HyperLink>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <%--1--%>
+
+                       <asp:TemplateField>
+                        <HeaderTemplate>
+                            Tipo Doc.
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Label ID="LtlTipoDocto" runat="server" Text='<%# Eval("TipoDocto")%>' ></asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    <%--2--%>
                     <asp:TemplateField>
                         <HeaderTemplate>
                             Fecha
@@ -259,14 +289,7 @@
                             <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField>
-                        <HeaderTemplate>
-                            Folio
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:HyperLink ID="HplFolio" runat="server" Text='<%# Eval("SerieFolio")%>' CssClass="Texto"></asp:HyperLink>
-                        </ItemTemplate>
-                    </asp:TemplateField>
+                 <%--3--%>
                     <asp:TemplateField>
                         <HeaderTemplate>
                             SubTotal
@@ -276,6 +299,7 @@
                         </ItemTemplate>
                         <ItemStyle HorizontalAlign="Right" />
                     </asp:TemplateField>
+                    <%--4--%>
                     <asp:TemplateField>
                         <HeaderTemplate>
                             IVA
@@ -285,6 +309,7 @@
                         </ItemTemplate>
                         <ItemStyle HorizontalAlign="Right" />
                     </asp:TemplateField>
+                    <%--5--%>
                     <asp:TemplateField>
                         <HeaderTemplate>
                             IEPS
@@ -294,6 +319,7 @@
                         </ItemTemplate>
                         <ItemStyle HorizontalAlign="Right" />
                     </asp:TemplateField>
+                    <%--6--%>
                     <asp:TemplateField>
                         <HeaderTemplate>
                             Descuento
@@ -303,6 +329,7 @@
                         </ItemTemplate>
                         <ItemStyle HorizontalAlign="Right" />
                     </asp:TemplateField>
+                    <%--7--%>
                     <asp:TemplateField>
                         <HeaderTemplate>
                             Total
@@ -312,6 +339,7 @@
                         </ItemTemplate>
                         <ItemStyle HorizontalAlign="Right" />
                     </asp:TemplateField>
+                    <%--8--%>
                     <asp:TemplateField>
                         <HeaderTemplate>
                             Saldo
@@ -321,6 +349,7 @@
                         </ItemTemplate>
                         <ItemStyle HorizontalAlign="Right" />
                     </asp:TemplateField>
+                    <%--9--%>
                     <asp:TemplateField>
                         <HeaderTemplate>
                             Fecha Venc.
@@ -329,6 +358,7 @@
                             <asp:Literal ID="LtlFechaVenc" runat="server" Text='<%# Eval("FechaVencimiento", "{0:d}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--10--%>
                     <asp:TemplateField>
                         <HeaderTemplate>
                             Días Venc.
@@ -337,6 +367,7 @@
                             <asp:Literal ID="LtlDiaVencidos" runat="server" Text='<%# Eval("DiasVencidos", "{0:N0}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--11--%>
                     <asp:TemplateField>
                         <HeaderTemplate>
                             Proveedor
@@ -345,6 +376,7 @@
                             <asp:Literal ID="LtlProveedor" runat="server" Text='<%# Eval("RazonSocial", "{0}")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--12--%>
                     <asp:TemplateField ControlStyle-Width="150px">
                         <HeaderTemplate>
                             Cuenta
@@ -353,6 +385,7 @@
                             <asp:Literal ID="LtlCuenta" runat="server" Text='<%# Eval("Cuenta")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--13--%>
                     <asp:TemplateField ControlStyle-Width="150px" Visible="false">
                         <HeaderTemplate>
                             Observaciones
@@ -361,11 +394,13 @@
                             <asp:Literal ID="LtlObservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--14--%>
                     <asp:TemplateField HeaderText="Alm." ItemStyle-Width="10%" Visible="false">
                         <ItemTemplate>
                             <asp:Label data-toggle="tooltip" data-html="true" Text='' ID="LbEstatusInv" runat="server" />
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--15--%>
                     <asp:TemplateField ControlStyle-Width="150px" Visible="false">
                         <HeaderTemplate>
                             Descripción
@@ -402,51 +437,41 @@
                     <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
                         <ContentTemplate>
                             <div id="" style="width: 100%">
-                                <table>                                    
-                                    <tr>
-                                        <td colspan="2">
-                                            <table style="width: 330px; background-color: white!important">
+                               
+
+
+                                            <table style="width: 100%; background-color: white!important">
                                                 <tr>
-                                                    <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkFolio" runat="server" Text="Folio" Checked="true" /></td>
-                                                    <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkSubTotal" runat="server" Text="SubTotal" Checked="false" /></td>
-                                                    <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkProveedor" runat="server" Text="Proveedor" Checked="true" /></td>
+                                                    <td style="text-align: left;"> <asp:CheckBox ID="ChkFolio" runat="server" Text="Folio" Checked="true" /></td>
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkTipoDocto" runat="server" Text="Tipo Documento" Checked="true" /></td>
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkSubTotal" runat="server" Text="SubTotal" Checked="false" /></td>
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkIVA" runat="server" Text="IVA" Checked="false" /></td>                                                    
+
                                                 </tr>
                                                 <tr>
-                                                    <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkSaldo" runat="server" Text="Saldo" Checked="true" /></td>
-                                                    <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkIVA" runat="server" Text="IVA" Checked="false" /></td>
-                                                    <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkObservaciones" runat="server" Text="Observaciones" Checked="false" /></td></td>
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" Checked="false" /></td>
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" Checked="false" /></td>
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkTotal" runat="server" Text="Total" Checked="true" /></td>
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkSaldo" runat="server" Text="Saldo" Checked="true" /></td>
+                                                    
+
                                                 </tr>
                                                 <tr>
-                                                    <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkDiasVencidos" runat="server" Text="Dias Vencidos" Checked="true" /></td>
-                                                    <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" Checked="false" /></td>
-                                                      <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkDescripcion" runat="server" Text="Descripción" Checked="false" /></td>
+                                                    <td style="text-align: left;"> <asp:CheckBox ID="ChkFechaVencimiento" runat="server" Text="Fecha Venc." Checked="true" /></td>                                                    
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkDiasVencidos" runat="server" Text="Dias Vencidos" Checked="true" /></td>
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkProveedor" runat="server" Text="Proveedor" Checked="true" /> </td> 
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkCuenta" runat="server" Text="Cuenta" Checked="true" /></td>                                                    
+                                                    
+                                                     
                                                 </tr>
                                                 <tr>
-                                                    <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkCuenta" runat="server" Text="Cuenta" Checked="true" /></td>
-                                                    <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" Checked="false" /></td>
-                                                </tr>
-                                                <tr>
-                                                    <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkFechaVencimiento" runat="server" Text="Fecha Venc." Checked="true" /></td>
-                                                    <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkTotal" runat="server" Text="Total" Checked="true" /></td>
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkDescripcion" runat="server" Text="Descripción" Checked="false" /></td>
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkObservaciones" runat="server" Text="Observaciones" Checked="false" /></td>                                                                                                        
                                                 </tr>
+                                              
                                             </table>
-                                        </td>
-                                    </tr>
-                                   
-                                </table>
+
+ 
                             </div>
                         </ContentTemplate>
                     </asp:UpdatePanel>
diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb
index b76ed4db7..8f8cd00fc 100644
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -272,6 +272,7 @@ Partial Class RepCxPDetalle
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(1, New ListItem("Sin Sucursal", "0"))
         DdlSubProyecto.SelectedValueExist(CveSucursal)
+        CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectofiltro)
 
         Dim TipoMoneda As Integer = IfNull(Request("TipoMoneda"), 1).ToString.ToEntero
         RblTipoCambio.SelectedValue = TipoMoneda.ToString
@@ -324,7 +325,32 @@ Partial Class RepCxPDetalle
         Dim Comprobaciones = IfNull(Request("Comprobaciones"), -1).ToString.ToEntero
         DdlComprobacion.SelectedValueExist(Comprobaciones)
 
-        GvDatos.Columns(9).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0)
+
+        Ddlmoneda.DataSource = GlobalDTMonedas
+        Ddlmoneda.DataBind()
+        Ddlmoneda.Items.Insert(0, New ListItem("Todas", "-1"))
+        Ddlmoneda.SelectedValueExist(CveMoneda)
+
+
+        GvDatos.Columns(10).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0)
+
+
+
+        For Each lItem As ListItem In DdlGrupo.Items
+
+
+
+            If lItem.Value.ToEntero = 9 Then
+                lItem.Text = LblSubProyectofiltro.Text & "-Sucursal"
+            End If
+
+            If lItem.Value.ToEntero = 11 Then
+                lItem.Text = LblSubProyectofiltro.Text & " Proveedor"
+            End If
+
+
+        Next
+
 
     End Sub
 
@@ -378,7 +404,7 @@ Partial Class RepCxPDetalle
             CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero
 
             If ObjMovtos.GetCxPDetalle(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, CveProveedorSucursal, CveUsuario,
-                                       DdlUsuarioResponsable.SelectedValue.ToEntero, Anio, Mes, AnioMes, CveMoneda, CveSubProyecto, DdlEstatusCompra.SelectedValue.ToEntero,
+                                       DdlUsuarioResponsable.SelectedValue.ToEntero, Anio, Mes, AnioMes, Ddlmoneda.SelectedValue.ToEntero, CveSubProyecto, DdlEstatusCompra.SelectedValue.ToEntero,
                                        Fecha, DdlGrupo.SelectedValue.ToEntero, Opcion, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero,
                                        TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(CveTipoProveedor = 3,
                                        -1, CveTipoProveedor), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero(), TipoDocto:=TipoDocto) Then
@@ -390,9 +416,9 @@ Partial Class RepCxPDetalle
 
                 If DdlGrupo.SelectedValue.ToEntero = 5 And UsuarioActual.Empresa.UsaContabilidad Then 'cuando es grupo por proveedor, se muestra la cuneta contable
                     TMP_DTDatos = CargaCuentasContables(TMP_DTDatos)
-                    GvDatos.Columns(11).Visible = True
+                    GvDatos.Columns(12).Visible = True
                 Else
-                    GvDatos.Columns(11).Visible = False
+                    GvDatos.Columns(12).Visible = False
                 End If
 
                 DtDatos = TMP_DTDatos
@@ -479,65 +505,80 @@ Partial Class RepCxPDetalle
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             If DdlGrupo.SelectedValue.ToEntero = 11 Then
-                If e.Row.DBCampo("CveSubProyecto") = "" Then
+                If e.Row.DBCampo("CveSubProyecto") = "" And e.Row.DBCampo("CveSubProyecto") <> "0" Then
                     e.Row.CssClass = "Totales"
                 ElseIf e.Row.DBCampo("RazonSocial") = "" Then
                     e.Row.CssClass = "SubTotales"
-                End If
+                End If
+
+
+                'If e.Row.DBCampo("CveSubProyecto") = "-1" And e.Row.DBCampo("Orden") = "" Then
+                '    e.Row.CssClass = "Totales"
+                'ElseIf e.Row.DBCampo("Orden") = "" And e.Row.DBCampo("CveSubProyecto") <> "0" Then
+                '    e.Row.CssClass = "SubTotales"
+                'End If
+
+
             Else
                 If e.Row.DBCampo("RazonSocial") = "" And e.Row.DBCampo("SerieFolio") = "" Then
                     e.Row.CssClass = "SubTotales"
                 End If
 
-                If e.Row.DBCampo("Agrupador") = "" Then
+                If e.Row.DBCampo("Agrupador") = "" And e.Row.DBCampo("TipoDocto") <> "Ant" Then
                     e.Row.CssClass = "Totales"
                     e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
-                    e.Row.FCHyperLink("HplFolio").ForeColor = Drawing.Color.White
+                    e.Row.FCLabel("LtlTipoDocto").ForeColor = Drawing.Color.White
 
                     If e.Row.DBCampo("CveMoneda") = "1" Then
-                        e.Row.FCHyperLink("HplFolio").Text = "Total Pesos"
+                        e.Row.FCLabel("LtlTipoDocto").Text = "Total Pesos"
                     ElseIf e.Row.DBCampo("CveMoneda") = "2" Then
-                        e.Row.FCHyperLink("HplFolio").Text = "Total Dólares"
+                        e.Row.FCLabel("LtlTipoDocto").Text = "Total Dólares"
                     Else
-                        e.Row.FCHyperLink("HplFolio").Text = "Total"
+                        e.Row.FCLabel("LtlTipoDocto").Text = "Total"
                     End If
+
                 End If
 
 
             End If
 
             If e.Row.DBCampo("CveCompra") = "" And e.Row.DBCampo("Agrupador") <> "" Then
-                e.Row.FCHyperLink("HplFolio").Text = e.Row.DBCampo("Agrupador")
+                e.Row.FCLabel("LtlTipoDocto").Text = e.Row.DBCampo("Agrupador")
                 e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
                 If e.Row.DBCampo("Agrupador").Length > 25 Then
-                    e.Row.FCHyperLink("HplFolio").Text = String.Format("{0}...", e.Row.DBCampo("Agrupador").Substring(0, 25))
+                    e.Row.FCLabel("LtlTipoDocto").Text = String.Format("{0}...", e.Row.DBCampo("Agrupador").Substring(0, 25))
                 End If
-            Else
-                e.Row.FCHyperLink("HplFolio").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra"))
+            Else
+
+                If (e.Row.DBCampo("TipoDocto").ToString = "Ant") Then
+                    e.Row.FCHyperLink("HplFolio").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveCompra"))
+                Else
+                    e.Row.FCHyperLink("HplFolio").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra"))
+                End If
 
                 If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
-                    Dim Str As New StringBuilder
-                    Str.AppendFormat("Importe Almacen: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje"))
-                    If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje"))
-                    If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje"))
-                    Str.AppendFormat(" <i> Importes <b> SIN</b> IVA</i>")
+                        Dim Str As New StringBuilder
+                        Str.AppendFormat("Importe Almacen: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje"))
+                        If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje"))
+                        If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje"))
+                        Str.AppendFormat(" <i> Importes <b> SIN</b> IVA</i>")
+
+                        e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString)
+                        Select Case e.Row.DBCampo("EstatusInventario").ToEntero
+                            Case 1
+                                e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-o' aria-hidden='true'></i>"
+                                e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red
+                            Case 2
+                                e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-checkered' aria-hidden='true'></i>"
+                                e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange
+                            Case 3
+                                e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag' aria-hidden='true'></i>"
+                                e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green
+                        End Select
+                    End If
+                End If
 
-                    e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString)
-                    Select Case e.Row.DBCampo("EstatusInventario").ToEntero
-                        Case 1
-                            e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-o' aria-hidden='true'></i>"
-                            e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red
-                        Case 2
-                            e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-checkered' aria-hidden='true'></i>"
-                            e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange
-                        Case 3
-                            e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag' aria-hidden='true'></i>"
-                            e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green
-                    End Select
-                End If
             End If
-
-        End If
     End Sub
 
 #End Region
@@ -546,84 +587,92 @@ Partial Class RepCxPDetalle
     Protected Sub MostrarOcultarColumnas()
 
         If ChkFolio.Checked Then
+            GvDatos.Columns(0).Visible = True
+        Else
+            GvDatos.Columns(0).Visible = False
+        End If
+
+
+
+        If ChkTipoDocto.Checked Then
             GvDatos.Columns(1).Visible = True
         Else
             GvDatos.Columns(1).Visible = False
         End If
 
         If ChkSubTotal.Checked Then
-            GvDatos.Columns(2).Visible = True
-        Else
-            GvDatos.Columns(2).Visible = False
-        End If
-
-        If ChkIVA.Checked Then
             GvDatos.Columns(3).Visible = True
         Else
             GvDatos.Columns(3).Visible = False
         End If
 
-        If ChkIEPS.Checked Then
+        If ChkIVA.Checked Then
             GvDatos.Columns(4).Visible = True
         Else
             GvDatos.Columns(4).Visible = False
         End If
 
-        If ChkDescuento.Checked Then
+        If ChkIEPS.Checked Then
             GvDatos.Columns(5).Visible = True
         Else
             GvDatos.Columns(5).Visible = False
         End If
 
-        If ChkTotal.Checked Then
+        If ChkDescuento.Checked Then
             GvDatos.Columns(6).Visible = True
         Else
             GvDatos.Columns(6).Visible = False
         End If
 
-        If ChkSaldo.Checked Then
+        If ChkTotal.Checked Then
             GvDatos.Columns(7).Visible = True
         Else
             GvDatos.Columns(7).Visible = False
         End If
 
-        If ChkFechaVencimiento.Checked Then
+        If ChkSaldo.Checked Then
             GvDatos.Columns(8).Visible = True
         Else
             GvDatos.Columns(8).Visible = False
-        End If
-
-        If ChkDiasVencidos.Checked Then
+        End If
+
+        If ChkFechaVencimiento.Checked Then
             GvDatos.Columns(9).Visible = True
         Else
             GvDatos.Columns(9).Visible = False
         End If
 
-        If ChkProveedor.Checked Then
+        If ChkDiasVencidos.Checked Then
             GvDatos.Columns(10).Visible = True
         Else
             GvDatos.Columns(10).Visible = False
         End If
 
-        If ChkCuenta.Checked Then
+        If ChkProveedor.Checked Then
             GvDatos.Columns(11).Visible = True
         Else
             GvDatos.Columns(11).Visible = False
         End If
 
-        If ChkObservaciones.Checked Then
+        If ChkCuenta.Checked Then
             GvDatos.Columns(12).Visible = True
         Else
             GvDatos.Columns(12).Visible = False
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
+        If ChkObservaciones.Checked Then
             GvDatos.Columns(13).Visible = True
         Else
-            GvDatos.Columns(13).Visible = False
+            GvDatos.Columns(13).Visible = False
         End If
 
-        GvDatos.Columns(14).Visible = ChkDescripcion.Checked
+        If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
+            GvDatos.Columns(14).Visible = True
+        Else
+            GvDatos.Columns(14).Visible = False
+        End If
+
+        GvDatos.Columns(15).Visible = ChkDescripcion.Checked
 
         Personalizo = 1
         If Personalizo = 1 Then
@@ -697,7 +746,7 @@ Partial Class RepCxPDetalle
         params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{FechaIn}{FechaFn}{FechaInV}{FechaFnV}{Responsable}{Estatus}{Registro}{Clasificacion}{Sucursal}{TipoMoneda}"))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
diff --git a/Empresas/15/Formatos/Factura.rdlc b/Empresas/15/Formatos/Factura.rdlc
index 4708f4487..82cab18f5 100644
--- a/Empresas/15/Formatos/Factura.rdlc
+++ b/Empresas/15/Formatos/Factura.rdlc
@@ -1388,7 +1388,7 @@
               </Line>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>20.85368cm</Top>
+            <Top>22.18718cm</Top>
             <Left>0.0208cm</Left>
             <Height>2.10099cm</Height>
             <Width>20.06179cm</Width>
@@ -2861,7 +2861,7 @@
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DsOC</DataSetName>
-            <Top>4.14415cm</Top>
+            <Top>5.47765cm</Top>
             <Left>0.11516cm</Left>
             <Height>2.29418cm</Height>
             <Width>19.94648cm</Width>
@@ -3286,7 +3286,7 @@
               </Textbox>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>13.45121cm</Top>
+            <Top>14.78471cm</Top>
             <Left>0.04257cm</Left>
             <Height>3.74574cm</Height>
             <Width>20.109cm</Width>
@@ -4352,7 +4352,7 @@
               </Tablix>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>6.61207cm</Top>
+            <Top>7.94557cm</Top>
             <Left>0.11516cm</Left>
             <Height>6.80033cm</Height>
             <Width>20.03641cm</Width>
@@ -4370,7 +4370,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Moneda </Value>
+                    <Value>Moneda: </Value>
                     <Style />
                   </TextRun>
                   <TextRun>
@@ -4382,7 +4382,7 @@
                     <Style />
                   </TextRun>
                   <TextRun>
-                    <Value>=Parameters!Moneda.Value</Value>
+                    <Value>= IIF(Parameters!Moneda.Value.ToString = "Pesos", "Peso Mexicano", Parameters!Moneda.Value.ToString )</Value>
                     <Style />
                   </TextRun>
                 </TextRuns>
@@ -4403,7 +4403,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox8</rd:DefaultName>
-            <Top>19.66102cm</Top>
+            <Top>20.99452cm</Top>
             <Left>0.07003cm</Left>
             <Height>1.01627cm</Height>
             <Width>9.87342cm</Width>
@@ -4864,7 +4864,7 @@
               </Tablix>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>17.21106cm</Top>
+            <Top>18.54456cm</Top>
             <Left>0.00547cm</Left>
             <Height>2.25247cm</Height>
             <Width>20.1554cm</Width>
@@ -4896,10 +4896,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>1.38294in</Top>
+            <Top>1.13294in</Top>
             <Left>0.12202cm</Left>
             <Height>0.22222in</Height>
-            <Width>0.792in</Width>
+            <Width>1.06031in</Width>
             <ZIndex>16</ZIndex>
             <Style>
               <Border>
@@ -4939,10 +4939,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>1.38294in</Top>
-            <Left>0.84004in</Left>
+            <Top>1.13294in</Top>
+            <Left>1.10835in</Left>
             <Height>0.22222in</Height>
-            <Width>4.7649in</Width>
+            <Width>4.49659in</Width>
             <ZIndex>17</ZIndex>
             <Style>
               <Border>
@@ -4993,10 +4993,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>1.38745in</Top>
-            <Left>5.61883in</Left>
+            <Top>1.88745in</Top>
+            <Left>5.68418in</Left>
             <Height>0.2092in</Height>
-            <Width>2.26391in</Width>
+            <Width>2.19856in</Width>
             <ZIndex>18</ZIndex>
             <Style>
               <Border>
@@ -5018,8 +5018,353 @@
               <PaddingBottom>2pt</PaddingBottom>
             </Style>
           </Textbox>
+          <Textbox Name="Textbox26">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>Regimen Fiscal:</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox19</rd:DefaultName>
+            <Top>1.88017in</Top>
+            <Left>0.11516cm</Left>
+            <Height>0.22222in</Height>
+            <Width>1.06031in</Width>
+            <ZIndex>19</ZIndex>
+            <Style>
+              <Border>
+                <Color>#c4d79b</Color>
+                <Style>Solid</Style>
+              </Border>
+              <TopBorder>
+                <Style>None</Style>
+              </TopBorder>
+              <LeftBorder>
+                <Style>None</Style>
+              </LeftBorder>
+              <RightBorder>
+                <Style>None</Style>
+              </RightBorder>
+              <BackgroundColor>#c4d79b</BackgroundColor>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox31">
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!RegimenFiscalCodigo.Value</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>7pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox19</rd:DefaultName>
+            <Top>1.88017in</Top>
+            <Left>1.11815in</Left>
+            <Height>0.22222in</Height>
+            <Width>4.49659in</Width>
+            <ZIndex>20</ZIndex>
+            <Style>
+              <Border>
+                <Color>#c4d79b</Color>
+                <Style>Solid</Style>
+              </Border>
+              <TopBorder>
+                <Style>None</Style>
+              </TopBorder>
+              <LeftBorder>
+                <Style>None</Style>
+              </LeftBorder>
+              <RightBorder>
+                <Style>None</Style>
+              </RightBorder>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox40">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>Dirección:</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox19</rd:DefaultName>
+            <Top>1.38067in</Top>
+            <Left>0.12202cm</Left>
+            <Height>0.22222in</Height>
+            <Width>1.06031in</Width>
+            <ZIndex>21</ZIndex>
+            <Style>
+              <Border>
+                <Color>#c4d79b</Color>
+                <Style>Solid</Style>
+              </Border>
+              <TopBorder>
+                <Style>None</Style>
+              </TopBorder>
+              <LeftBorder>
+                <Style>None</Style>
+              </LeftBorder>
+              <RightBorder>
+                <Style>None</Style>
+              </RightBorder>
+              <BackgroundColor>#c4d79b</BackgroundColor>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox44">
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!ClienteDireccion.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontSize>7pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox19</rd:DefaultName>
+            <Top>1.38067in</Top>
+            <Left>1.13065in</Left>
+            <Height>0.22222in</Height>
+            <Width>4.48409in</Width>
+            <ZIndex>22</ZIndex>
+            <Style>
+              <Border>
+                <Color>#c4d79b</Color>
+                <Style>Solid</Style>
+              </Border>
+              <TopBorder>
+                <Style>None</Style>
+              </TopBorder>
+              <LeftBorder>
+                <Style>None</Style>
+              </LeftBorder>
+              <RightBorder>
+                <Style>None</Style>
+              </RightBorder>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox46">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>Estado:</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox19</rd:DefaultName>
+            <Top>1.62928in</Top>
+            <Left>0.12202cm</Left>
+            <Height>0.22222in</Height>
+            <Width>1.06031in</Width>
+            <ZIndex>23</ZIndex>
+            <Style>
+              <Border>
+                <Color>#c4d79b</Color>
+                <Style>Solid</Style>
+              </Border>
+              <TopBorder>
+                <Style>None</Style>
+              </TopBorder>
+              <LeftBorder>
+                <Style>None</Style>
+              </LeftBorder>
+              <RightBorder>
+                <Style>None</Style>
+              </RightBorder>
+              <BackgroundColor>#c4d79b</BackgroundColor>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox53">
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!ClienteEstado.Value</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>7pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox19</rd:DefaultName>
+            <Top>1.62928in</Top>
+            <Left>1.12085in</Left>
+            <Height>0.22222in</Height>
+            <Width>1.76124in</Width>
+            <ZIndex>24</ZIndex>
+            <Style>
+              <Border>
+                <Color>#c4d79b</Color>
+                <Style>Solid</Style>
+              </Border>
+              <TopBorder>
+                <Style>None</Style>
+              </TopBorder>
+              <LeftBorder>
+                <Style>None</Style>
+              </LeftBorder>
+              <RightBorder>
+                <Style>None</Style>
+              </RightBorder>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox64">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>País:</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox19</rd:DefaultName>
+            <Top>1.61539in</Top>
+            <Left>7.30984cm</Left>
+            <Height>0.22222in</Height>
+            <Width>1.06031in</Width>
+            <ZIndex>25</ZIndex>
+            <Style>
+              <Border>
+                <Color>#c4d79b</Color>
+                <Style>Solid</Style>
+              </Border>
+              <TopBorder>
+                <Style>None</Style>
+              </TopBorder>
+              <LeftBorder>
+                <Style>None</Style>
+              </LeftBorder>
+              <RightBorder>
+                <Style>None</Style>
+              </RightBorder>
+              <BackgroundColor>#c4d79b</BackgroundColor>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox65">
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!ClientePais.Value</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>7pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox19</rd:DefaultName>
+            <Top>1.62789in</Top>
+            <Left>3.9382in</Left>
+            <Height>0.22222in</Height>
+            <Width>1.66674in</Width>
+            <ZIndex>26</ZIndex>
+            <Style>
+              <Border>
+                <Color>#c4d79b</Color>
+                <Style>Solid</Style>
+              </Border>
+              <TopBorder>
+                <Style>None</Style>
+              </TopBorder>
+              <LeftBorder>
+                <Style>None</Style>
+              </LeftBorder>
+              <RightBorder>
+                <Style>None</Style>
+              </RightBorder>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
         </ReportItems>
-        <Height>23.58967cm</Height>
+        <Height>24.28817cm</Height>
         <Style />
       </Body>
       <Width>20.16087cm</Width>
diff --git a/Empresas/Grales/Formatos/RepCxPDetalle.rdlc b/Empresas/Grales/Formatos/RepCxPDetalle.rdlc
index 4b6a43f42..b5758f5ea 100644
--- a/Empresas/Grales/Formatos/RepCxPDetalle.rdlc
+++ b/Empresas/Grales/Formatos/RepCxPDetalle.rdlc
@@ -6,25 +6,28 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.88736cm</Width>
+              <Width>2.16611cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>5.79118cm</Width>
+              <Width>5.37696cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.46126cm</Width>
+              <Width>2.31479cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.4563cm</Width>
+              <Width>2.4348cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.32401cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.09295cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.66862cm</Width>
+              <Width>1.4305cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>9.8567cm</Width>
+              <Width>8.07426cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.89369cm</Width>
@@ -36,14 +39,14 @@
               <TablixCells>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="Textbox4">
+                    <Textbox Name="Textbox12">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Fecha</Value>
+                              <Value>Folio</Value>
                               <Style>
                                 <FontSize>9pt</FontSize>
                                 <FontWeight>Bold</FontWeight>
@@ -55,7 +58,7 @@
                           </Style>
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>Textbox4</rd:DefaultName>
+                      <rd:DefaultName>Textbox12</rd:DefaultName>
                       <Style>
                         <Border>
                           <Color>LightGrey</Color>
@@ -92,14 +95,14 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="Textbox12">
+                    <Textbox Name="Textbox5">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Folio</Value>
+                              <Value>Tipo Doc.</Value>
                               <Style>
                                 <FontSize>9pt</FontSize>
                                 <FontWeight>Bold</FontWeight>
@@ -111,7 +114,63 @@
                           </Style>
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>Textbox12</rd:DefaultName>
+                      <rd:DefaultName>Textbox5</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <LeftBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </LeftBorder>
+                        <RightBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </RightBorder>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox4">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Fecha</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox4</rd:DefaultName>
                       <Style>
                         <Border>
                           <Color>LightGrey</Color>
@@ -487,18 +546,17 @@
               <TablixCells>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="Fecha1">
+                    <Textbox Name="SerieFolio">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!Fecha.Value</Value>
+                              <Value>=Fields!SerieFolio.Value</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
-                                <FontWeight>=IIF(Fields!SerieFolio.Value = "","Bold","Normal")</FontWeight>
-                                <Format>dd/MM/yyyy</Format>
+                                <FontWeight>=IIF(Fields!SerieFolio.Value = "","SemiBold","Normal")</FontWeight>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -507,7 +565,6 @@
                           </Style>
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>Fecha1</rd:DefaultName>
                       <Style>
                         <Border>
                           <Style>None</Style>
@@ -523,15 +580,15 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="SerieFolio1">
+                    <Textbox Name="TipoDocto">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=IIF(Fields!SerieFolio.Value = "",IIF(Fields!Agrupador.Value = "",
-IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupador.Value),Fields!SerieFolio.Value)</Value>
+                              <Value>=IIF(Fields!TipoDocto.Value = "",IIF(Fields!Agrupador.Value = "",
+IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupador.Value),Fields!TipoDocto.Value)</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <FontWeight>=IIF(Fields!SerieFolio.Value = "","SemiBold","Normal")</FontWeight>
@@ -543,7 +600,42 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad
                           </Style>
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>SerieFolio1</rd:DefaultName>
+                      <rd:DefaultName>TipoDocto</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BackgroundColor>=IIF(Fields!SerieFolio.Value = "",IIF(Fields!Agrupador.Value = "","#67809F", "Silver"),"Transparent")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Fecha">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Fecha.Value</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>=IIF(Fields!SerieFolio.Value = "","SemiBold","Normal")</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Fecha</rd:DefaultName>
                       <Style>
                         <Border>
                           <Style>None</Style>
@@ -781,6 +873,7 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -797,7 +890,7 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad
         <Top>0.14111cm</Top>
         <Left>0.17175cm</Left>
         <Height>0.98834cm</Height>
-        <Width>29.10806cm</Width>
+        <Width>29.10807cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1221,7 +1314,11 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad
         </Field>
         <Field Name="SerieFolio">
           <DataField>SerieFolio</DataField>
-          <rd:TypeName>System.Double</rd:TypeName>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="TipoDocto">
+          <DataField>TipoDocto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
         </Field>
         <Field Name="Total">
           <DataField>Total</DataField>