Cxp, Cxp Detalle IE OC

2022-09-08 11:59:09 -07:00
parent 729cf17e9b
commit a2c8c8f3e1
10 changed files with 772 additions and 178 deletions
--- 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
--- 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
--- 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>
--- 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
--- 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>
--- 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
--- 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>
--- 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
--- 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>
--- 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>