diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index 608f2bbdf..03cc2db05 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -376,8 +376,8 @@ Partial Class AF_AF
 
             InicializaValores()
 
-            CargaCombos()
-
+
+
             If Request("CveActivoFijo") IsNot Nothing AndAlso IsNumeric(Request("CveActivoFijo")) AndAlso Request("CveActivoFijo").ToEntero > 0 Then
                 ViewState("CveActivoFijo") = Request("CveActivoFijo")
                 CargaDatos()
@@ -396,7 +396,8 @@ Partial Class AF_AF
                 HlEvento.Visible = True
                 HlEvento.NavigateUrl = String.Format("/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveActivoFijo=" & CveActivoFijo & "&TB_iframe=true&height=370&width=600;")
                 LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveActivoFijo:{0}}});""> <i class=""fa fa-plus""></i> Tarea</a>", CveActivoFijo)
-            Else
+            Else
+                CargaCombos()
                 ViewState("CveActivoFijo") = -1
 
 
diff --git a/AF/CatAF.aspx b/AF/CatAF.aspx
index 2e8c340f9..a957b310d 100644
--- a/AF/CatAF.aspx
+++ b/AF/CatAF.aspx
@@ -205,10 +205,26 @@
                     </div>
                 </div>
             </div>
-            <div class="" align="right">
-                <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+            <div class="row ">
+                <div class="col-lg-6">
+                    <div>
+                        <asp:UpdatePanel ID="UpTotalRegistros" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                Encontrados:<b><asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>                            
+                     </div>
+                </div>
+                <div class="col-lg-6">
+                    <div class="" align="right">
+                        <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                    </div>
+                </div>
+
             </div>
+
+            
             <div class="">
                 <asp:GridView ID="GvCaracteristicas" runat="server" GridLines="None" AutoGenerateColumns="False" DataKeyNames="CveCaracteristicaClasificacion,CveCaracteristica,TipoCampo,Requerida" ShowHeaderWhenEmpty="true" CssClass="table table-hover table-advance Widthall ScrollAD">
                     <Columns>
@@ -251,9 +267,7 @@
 
     <asp:UpdatePanel ID="UpGV" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div>
-                Encontrados:<b><asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b>
-            </div>
+            
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se Encontró Activo Fijo Registrado" ToolTip="Listado de Activos Fijos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"  GridLines="None"
                 DataKeyNames="RutaUltimaImagen"
                 >
diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb
index 3a448d15c..e348643a4 100644
--- a/AF/CatAF.aspx.vb
+++ b/AF/CatAF.aspx.vb
@@ -56,7 +56,7 @@ Partial Class AF_CatAF
             CargaCaracteristicas()
 
             If UsuarioActual.CveEmpresa = 13 Then
-                ChkUltimaImagen.Checked = True
+                'ChkUltimaImagen.Checked = True
                 ChkMarcaActivoFijo.Checked = True
                 ChkModeloActivoFijo.Checked = True
                 ChkNoSerie.Checked = True
@@ -328,6 +328,7 @@ Partial Class AF_CatAF
         End If
 
         UpGV.Update()
+        UpTotalRegistros.Update()
         OrdenaDatos()
     End Sub
 
@@ -557,10 +558,22 @@ Partial Class AF_CatAF
             If Archivo.Exists Then
                 Ruta = UsuarioActual.Empresa.Ruta & "Formatos/CatAF.rdlc"
 
-                If Not DtActivosFijos.Columns.Contains("UltimaImagen") Then
-                    'DTAFCaracteristicas.
+                If Not DtActivosFijos.Columns.Contains("UltimaImagenByte") Then
+                    DtActivosFijos.Columns.Add("UltimaImagenByte", GetType(Byte()))
                 End If
 
+                For Each dRow As DataRow In DtActivosFijos.Rows
+                    Dim RutaUltimaImagen As String = dRow("RutaUltimaImagen").ToString()
+                    Dim bytes As Byte() = Nothing
+                    If RutaUltimaImagen.Length > 0 Then
+                        Dim rutaArchivo As System.IO.FileInfo = New IO.FileInfo($"{UsuarioActual.Empresa.Ruta}\{RutaUltimaImagen}")
+                        If rutaArchivo.Exists Then
+                            bytes = System.IO.File.ReadAllBytes(rutaArchivo.FullName)
+                        End If
+                    End If
+                    dRow("UltimaImagenByte") = bytes
+                Next
+
             Else
                 Ruta = "Empresas/Grales/Formatos/CatAF.rdlc"
             End If
@@ -689,7 +702,7 @@ Partial Class AF_CatAF
             ChkUltimaImagen.Checked = False
 
             If UsuarioActual.CveEmpresa = 13 Then
-                ChkUltimaImagen.Checked = True
+                'ChkUltimaImagen.Checked = True
                 ChkMarcaActivoFijo.Checked = True
                 ChkModeloActivoFijo.Checked = True
                 ChkNoSerie.Checked = True
diff --git a/App_Code/ClsCompProveedores.vb b/App_Code/ClsCompProveedores.vb
index 3ffbe0066..2b3e7301e 100644
--- a/App_Code/ClsCompProveedores.vb
+++ b/App_Code/ClsCompProveedores.vb
@@ -66,6 +66,7 @@ Public Class ClsCompProveedores
     Public Property DIOTNacionalidad As String
     Public Property CveRegimenFiscal As Integer = -1
     Public Property PorcentajeProntoPago As Decimal = 0D
+    Public Property AplicaProntoPago As Boolean = False
     Public Property CveTipoFechaVencimiento As Integer = 1
 
     Public ReadOnly Property DtResultados() As DataTable
@@ -303,6 +304,7 @@ Public Class ClsCompProveedores
                 Me.DIOTNacionalidad = Data.Rows(0)("DIOTNacionalidad").ToString
                 Me.CveRegimenFiscal = Data.Rows(0)("CveRegimenFiscal").ToString.ToEntero
                 Me.PorcentajeProntoPago = Data.Rows(0)("PorcentajeProntoPago").ToString.ToDecimal
+                Me.AplicaProntoPago = Data.Rows(0)("AplicaProntoPago").ToString.ToBool
                 Me.CveTipoFechaVencimiento = Data.Rows(0)("CveTipoFechaVencimiento").ToString.ToEntero
 
             End If
@@ -321,7 +323,7 @@ Public Class ClsCompProveedores
             CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveUsuario As Integer, CveEmpresa As Integer,
             Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "",
             Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
-            Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0) As Boolean
+            Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0, Optional AplicaProntoPago As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -372,6 +374,7 @@ Public Class ClsCompProveedores
             .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
             .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
             .Add("@PorcentajeProntoPago", SqlDbType.Decimal).Value = PorcentajeProntoPago
+            .Add("@AplicaProntoPago", SqlDbType.Bit).Value = AplicaProntoPago
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With
@@ -407,7 +410,7 @@ Public Class ClsCompProveedores
                                     CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer,
                                     Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1,
                                     Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
-                                    Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0) As Boolean
+                                    Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0, Optional AplicaProntoPago As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ProveedorUpdate")
@@ -457,26 +460,10 @@ Public Class ClsCompProveedores
             .Add("@FechaEvaluacion", SqlDbType.VarChar).Value = FechaEvaluacion
             .Add("@CveUsuarioEvaluador", SqlDbType.Int).Value = CveUsuarioEvaluador
 
-
             .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
             .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
             .Add("@PorcentajeProntoPago", SqlDbType.Decimal).Value = PorcentajeProntoPago
-
-            ''Proveedores
-            '.Add("@IdCtaContProveedores", SqlDbType.Int).Value = IdCtaContProveedores
-            '.Add("@CtaContProveedores", SqlDbType.VarChar).Value = CtaContProveedores
-            '.Add("@IdCtaContExtranjera", SqlDbType.Int).Value = IdCtaContExtranjera
-            '.Add("@CtaContExtranjera", SqlDbType.VarChar).Value = CtaContExtranjera
-            '.Add("@IdCtaContComplementaria", SqlDbType.Int).Value = IdCtaContComplementaria
-            '.Add("@CtaContComplementaria", SqlDbType.VarChar).Value = CtaContComplementaria
-
-            ''Anticipos
-            '.Add("@IdCtaContAnticipos", SqlDbType.Int).Value = IdCtaContAnticipos
-            '.Add("@CtaContAnticipos", SqlDbType.VarChar).Value = CtaContAnticipos
-            '.Add("@IdCtaContAnticiposExtranjera", SqlDbType.Int).Value = IdCtaContAnticiposExtranjera
-            '.Add("@CtaContAnticiposExtranjera", SqlDbType.VarChar).Value = CtaContAnticiposExtranjera
-            '.Add("@IdCtaContAnticiposComplementaria", SqlDbType.Int).Value = IdCtaContAnticiposComplementaria
-            '.Add("@CtaContAnticiposComplementaria", SqlDbType.VarChar).Value = CtaContAnticiposComplementaria
+            .Add("@AplicaProntoPago", SqlDbType.Bit).Value = AplicaProntoPago
 
         End With
 
diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index e905fcd03..438987e7e 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -776,18 +776,22 @@ Public Class ClsContPAQi
         StrSQL.Clear()
         StrSQL.Append(" BEGIN ")
         StrSQL.Append(" Declare @Tmp INT = 0, @IdPersona INT, @IdDatoExtra INT, ")
-        StrSQL.Append("  @Codigo VARCHAR(10) = '', @CodigoCuenta VARCHAR(20), @CodigoExtra VARCHAR(20)= ''; ")
+        StrSQL.Append("  @Codigo VARCHAR(10) = '',  @CodigoPersona VARCHAR(10) = '', @CodigoCuenta VARCHAR(20), @CodigoExtra VARCHAR(20)= ''; ")
         StrSQL.Append("  SELECT @Tmp = MAX(Id) FROM Proveedores P WHERE P.RFC = @RFC; ")
         StrSQL.Append("  IF ISNULL(@Tmp,0) <= 0  ")
         StrSQL.Append("  BEGIN ")
 
         StrSQL.Append("         SELECT @Codigo = MAX(CAST(Codigo AS INT)) FROM Proveedores WHERE CAST(Codigo AS INT) < 9999; ")
         StrSQL.Append("         SET @Codigo = CONCAT(replicate(' ',6-Len((@Codigo + 1))),(@Codigo + 1)); ")
+
         StrSQL.Append("         Select @CodigoCuenta = Codigo from Cuentas WHERE Id = @IdCuentaContable; ")
         StrSQL.Append("         SET @IdProveedor = dbo.FNC_GetCounter ('Id_Proveedor'); ")
 
+        StrSQL.Append("         SELECT @CodigoPersona = MAX(CAST(Codigo AS INT)) FROM Personas WHERE CAST(Codigo AS INT) < 9999; ")
+        StrSQL.Append("         SET @CodigoPersona = CONCAT(replicate(' ',6-Len((@CodigoPersona + 1))),(@CodigoPersona + 1)); ")
+
         StrSQL.Append("         INSERT INTO Proveedores (Id,RowVersion,Codigo,Nombre, RFC,CURP,TipoOperacion,IdCuenta,TimeStamp,TasaIVA15,TasaIVA10,TasaIVA0,TasaIVAExento,TasaIVAOtra1,TasaIVAOtra2,TasaOtra1,TasaOtra2,TasaAsumida,RetencionIVA,RetencionISR,TipoTercero,IdFiscal,NomExtranjero,Pais,Nacionalidad,IdConceptoIETU,TasaIVA16,TasaIVA11,CodigoPersona, CodigoCuenta,EsParaAbonoCta,CodigoCtaComplementaria,CodigoPrepoliza,IdSegNeg,ClaveBanco,Sucursal,CuentaClabe,Referencia) ")
-        StrSQL.Append("             VALUES (@IdProveedor,555555,@Codigo,@Nombre,@RFC,@CURP,85,@IdCuentaContable,'',0,0,0,0,0,0,0,0,7,0,0,4,'','','','Mexicana',1,1,0, @Codigo, @CodigoCuenta,0,'','',0,'','','',''); ")
+        StrSQL.Append("             VALUES (@IdProveedor,555555,@Codigo,@Nombre,@RFC,@CURP,85,@IdCuentaContable,'',0,0,0,0,0,0,0,0,7,0,0,4,'','','','Mexicana',1,1,0, @CodigoPersona, @CodigoCuenta,0,'','',0,'','','',''); ")
         StrSQL.Append("         EXEC PA_UpdateId 'Id_Proveedor';")
 
         StrSQL.Append("          ")
@@ -800,7 +804,7 @@ Public Class ClsContPAQi
 
         StrSQL.Append("          SET @IdPersona = dbo.FNC_GetCounter ('Id_Persona'); ")
         StrSQL.Append("          INSERT INTO Personas (Id,RowVersion,Codigo,Nombre,RFC,CURP,FechaRegistro,EsCliente,EsProveedor,EsEmpleado,EsAgente,EsPersona,EsBaja,Telefono1,Telefono2,Telefono3,Fax,eMail,PaginaWeb,IdDatoExtra,GenerarPolizaAuto,PosibilidadPago,SistOrig,CodigoAdminPAQ,EsResponsableGasto,CtaContableGasto,PagarDoctosAMismoRFC,GeneraContraCuentaDeudor,IdCategoria,IdSubCategoria) ")
-        StrSQL.Append("           VALUES (@IdPersona,555555, @Codigo,@Nombre,@RFC,@CURP,GETDATE(),0,1,0,0,0,0,'','','','','','',@IdDatoExtra,0,0,11,'',0,'',0,0,0,0); ")
+        StrSQL.Append("           VALUES (@IdPersona,555555, @CodigoPersona,@Nombre,@RFC,@CURP,GETDATE(),0,1,0,0,0,0,'','','','','','',@IdDatoExtra,0,0,11,'',0,'',0,0,0,0); ")
 
         StrSQL.Append("         EXEC PA_UpdateId 'Id_Persona';")
         StrSQL.Append("         ")
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 944f482ba..787cf4be5 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -5488,14 +5488,15 @@ Public Class ClsContabilidad
     End Function
 
 
-    Public Function GetGastosRepCC(FechaInicio As DateTime, FechaFin As DateTime, CveEmpresa As Integer) As Boolean
+    Public Function GetGastosRepCC(FechaInicio As DateTime, FechaFin As DateTime, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_ReporteGastos")
-
         With SqlAdapter.SelectCommand.Parameters
             .Add("@FechaInicio", SqlDbType.DateTime).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index 373a3253f..cdc27bcdb 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -596,7 +596,7 @@ Public Class ClsMovimientos
     Public Function GetCxPEmpresa(CveProveedor As Integer, FechaVencimientoInicio As String, FechaVencimientoFin As String, CveSubProyecto As Integer, DiasVencidos As Integer, CveUsuarioRegistro As Integer,
                                   CveUsuarioProgramo As Integer, CveUsuarioResponsable As Integer, CveClasificacion As Integer, CveMoneda As Integer, CveTipoPagoProgramo As Integer, CveEstatusFactura As Integer,
                                   CveAplicaNC As Integer, CveEmpresa As Integer, Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional CodigoProgramacion As String = "-1", Optional CveTipoProveedor As Integer = 0,
-                                  Optional AgrupadoPorSubProyecto As Boolean = False, Optional VerEnPesos As Boolean = False) As Boolean
+                                  Optional AgrupadoPorSubProyecto As Boolean = False, Optional VerEnPesos As Boolean = False, Optional AplicaProntoPago As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_Proveedores")
         With SqlAdapter.SelectCommand.Parameters
@@ -620,6 +620,7 @@ Public Class ClsMovimientos
             .Add("@CveTipoProveedor", SqlDbType.TinyInt).Value = CveTipoProveedor
             .Add("@AgrupadoPorSubProyecto", SqlDbType.Bit).Value = AgrupadoPorSubProyecto
             .Add("@VerEnPesos", SqlDbType.Bit).Value = VerEnPesos
+            .Add("@AplicaProntoPago", SqlDbType.Int).Value = AplicaProntoPago
         End With
 
         Try
@@ -662,8 +663,6 @@ Public Class ClsMovimientos
 
         End With
 
-
-
         Try
             SqlAdapter.SelectCommand.CommandTimeout = 0
 
@@ -709,7 +708,8 @@ Public Class ClsMovimientos
                                 Optional FechaVI As String = "-1", Optional FechaVF As String = "-1",
                                 Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1,
                                 Optional CveTipoProveedor As Integer = -1, Optional Comprobaciones As Integer = -1,
-                                Optional TipoDocto As String = "-1", Optional TipoAgrupacion As Integer = -1, Optional CveProyecto As Integer = -1) As Boolean
+                                Optional TipoDocto As String = "-1", Optional TipoAgrupacion As Integer = -1,
+                                Optional CveProyecto As Integer = -1, Optional AplicaProntoPago As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         If FechaCorte = Nothing Then FechaCorte = ClsPaginas.NowADS()
@@ -739,8 +739,8 @@ Public Class ClsMovimientos
             .Add("@Comprobaciones", SqlDbType.Int).Value = Comprobaciones
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
             .Add("@TipoAgrupacion", SqlDbType.Int).Value = TipoAgrupacion
-            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
-
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
+            .Add("@AplicaProntoPago", SqlDbType.Int).Value = AplicaProntoPago
         End With
 
         Try
@@ -1338,7 +1338,8 @@ Public Class ClsMovimientos
                                   CveEstatusFactura As Integer, Fecha As String, Agrupador As Integer, Opcion As String, CveEmpresa As Integer, CveSucursal As Integer,
                                   TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional FechaVI As String = "-1", Optional FechaVF As String = "1",
                                   Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, Optional CveTipoProveedor As Integer = -1,
-                                  Optional Comprobaciones As Integer = -1, Optional AplicaNC As Integer = -1, Optional TipoDocto As String = "-1", Optional CveProyecto As Integer = -1) As Boolean
+                                  Optional Comprobaciones As Integer = -1, Optional AplicaNC As Integer = -1, Optional TipoDocto As String = "-1",
+                                  Optional CveProyecto As Integer = -1, Optional AplicaProntoPago As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         If FechaCorte = Nothing Then FechaCorte = ClsPaginas.NowADS()
@@ -1373,7 +1374,8 @@ Public Class ClsMovimientos
             .Add("@Comprobaciones", SqlDbType.Int).Value = Comprobaciones
             .Add("@AplicaNC", SqlDbType.Int).Value = AplicaNC
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
-            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
+            .Add("@AplicaProntoPago", SqlDbType.Int).Value = AplicaProntoPago
         End With
 
         Try
diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 4fd113f60..6130f4ab2 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -125,11 +125,11 @@ Partial Class Bancos_PopIEVentas
         End Set
     End Property
 
-    Private Property SaldoVenta As Double
+    Private Property SaldoVenta As Decimal
         Get
-            Return ViewState("SaldoVenta").ToString.ToDouble
+            Return ViewState("SaldoVenta").ToString.ToDecimal
         End Get
-        Set(value As Double)
+        Set(value As Decimal)
             ViewState("SaldoVenta") = value
         End Set
     End Property
@@ -543,27 +543,29 @@ Partial Class Bancos_PopIEVentas
                 TxtImporte.Text = dr("Saldo").ToString.ToDouble.FormatoNumero
 
                 FechaVenta = dr("Fecha").ToString.ToDate
-                SaldoVenta = dr("Saldo").ToString.ToDouble
+                SaldoVenta = dr("Saldo").ToString.ToDecimal
 
-                Me.CveCorte = CargaCorteCaja(pCveVenta, UsuarioActual)
+                'si ya está pagada, bloquear.
+                If SaldoVenta <= 0 Then Validada = False
 
-                If RFCCliente.ToUpper <> "XAXX010101000" Then
-                    Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero
+                If Validada Then
+                    Me.CveCorte = CargaCorteCaja(pCveVenta, UsuarioActual)
 
-                    If CveProveedor > 0 Then
-                        Dim Mov As New ClsMovimientos
-                        If Mov.GetCxPProveedor(CveProveedor, MinFecha.ToShortDateString, MaxFecha.ToShortDateString, -1, -1, -1, -1, -1, 1, -1, -1, "-1", "-1", "-1") Then
-                            If Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio").Rows.Count > 0 Then
-                                RBLContado.Items(4).Enabled = True
+                    If RFCCliente.ToUpper <> "XAXX010101000" Then
+                        Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero
+
+                        If CveProveedor > 0 Then
+                            Dim Mov As New ClsMovimientos
+                            If Mov.GetCxPProveedor(CveProveedor, MinFecha.ToShortDateString, MaxFecha.ToShortDateString, -1, -1, -1, -1, -1, 1, -1, -1, "-1", "-1", "-1") Then
+                                If Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio").Rows.Count > 0 Then
+                                    RBLContado.Items(4).Enabled = True
+                                End If
                             End If
+
+                            Mov.Dispose()
                         End If
-
-                        Mov.Dispose()
                     End If
-
-                End If
-
-                If Not Validada Then
+                Else
                     BtnGuardar.Visible = False
                 End If
             End If
diff --git a/Bancos/RepProveedoresPagos.aspx b/Bancos/RepProveedoresPagos.aspx
index 3708e6830..0b4b52bbb 100644
--- a/Bancos/RepProveedoresPagos.aspx
+++ b/Bancos/RepProveedoresPagos.aspx
@@ -139,7 +139,7 @@
                         </div>
                         <div class="col-md-1" data-toggle="tooltip" data-placement="left" title="Aplica Nota de Crédito">Aplica NC/Dev:</div>
                         <div class="col-md-2">
-                            <asp:DropDownList CssClass="form-control input-sm" ID="AplicaNC" runat="server" AppendDataBoundItems="true" Style="height: 30px;">
+                            <asp:DropDownList CssClass="form-control input-sm select2me"  ID="AplicaNC" runat="server" AppendDataBoundItems="true" Style="height: 30px;">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                 <asp:ListItem Text="Si" Value="1"></asp:ListItem>
                                 <asp:ListItem Text="No" Value="0"></asp:ListItem>
@@ -200,6 +200,14 @@
                                  <asp:CheckBox ID="ChkVerEnPesos" data-size="small" CssClass="chksino" Style="margin-top: -2px; background-color: #fff;" runat="server" Text=" " AutoPostBack="False" />&nbsp;
                             </div>
                         </div>
+                        <div class="col-md-1" data-toggle="tooltip" data-placement="left" title="">Pronto Pago:</div>
+                        <div class="col-md-2">
+                            <asp:DropDownList CssClass="form-control input-sm select2me" ID="DdlProntoPago" runat="server" AppendDataBoundItems="true" Style="height: 30px;">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Solo Pronto Pago" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Sin ProntoPago" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>
diff --git a/Bancos/RepProveedoresPagos.aspx.vb b/Bancos/RepProveedoresPagos.aspx.vb
index f6b4d7def..4de2beada 100644
--- a/Bancos/RepProveedoresPagos.aspx.vb
+++ b/Bancos/RepProveedoresPagos.aspx.vb
@@ -23,8 +23,6 @@ Partial Class Bancos_RepProveedoresPagos
             'DdlUsuarioProgramo.DataBind()
             CargaUsuariosProgramaron()
 
-
-
             CargaDatos()
 
             If UsuarioActual.TienePermisoProceso(84) Then
@@ -108,7 +106,9 @@ Partial Class Bancos_RepProveedoresPagos
         GvCxP.Columns(7).Visible = ChkProgramadas.Checked 'AndAlso DdlUsuarioProgramo.SelectedValue.ToEntero > 0
 
 
-        If Mov.GetCxPEmpresa(DdlProveedores.SelectedValue.ToEntero, FechaI, FechaF, DdlSubProyecto.SelectedValue.ToEntero, -1, DdlUsuarioRegistro.SelectedValue.ToEntero, CveUsuarioProgramo, DdlUsuarioResponsable.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, -1, DdlEstatusCompra.SelectedValue.ToEntero, AplicaNC.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaVI, FechaVF, CodigoProgramacion, DdlTipoProveedor.SelectedValue.ToEntero, VerEnPesos:=ChkVerEnPesos.Checked) Then
+        If Mov.GetCxPEmpresa(DdlProveedores.SelectedValue.ToEntero, FechaI, FechaF, DdlSubProyecto.SelectedValue.ToEntero, -1, DdlUsuarioRegistro.SelectedValue.ToEntero, CveUsuarioProgramo, DdlUsuarioResponsable.SelectedValue.ToEntero,
+                             DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, -1, DdlEstatusCompra.SelectedValue.ToEntero, AplicaNC.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaVI, FechaVF,
+                             CodigoProgramacion, DdlTipoProveedor.SelectedValue.ToEntero, VerEnPesos:=ChkVerEnPesos.Checked, AplicaProntoPago:=DdlProntoPago.SelectedValue.ToEntero) Then
 
             GvCxP.DataSource = Mov.DtResultados
             If Mov.DtResultados IsNot Nothing AndAlso Mov.DtResultados.Rows.Count > 0 Then
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 97a59218f..505f8942e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2972,11 +2972,11 @@ Partial Class Compras_Compras
                 CvePrePoliza = dr("CvePrePoliza").ToString.ToEntero
                 EstatusAlmacen = dr("EstatusAlmacen").ToString.ToEntero
                 DdlTipoCompra.SelectedValueExist(dr("CveTipoCompra"))
-                If DdlTipoCompra.SelectedValue = "16" Then
+                TipoCompraOriginal = dr("CveTipoCompra").ToString.ToEntero
+                If TipoCompraOriginal = 16 Then
                     DdlTipoCompra.Items.Add(New ListItem("Apoyo sin virtual", "16"))
                     DdlTipoCompra.SelectedValue = dr("CveTipoCompra").ToString
                 End If
-                TipoCompraOriginal = dr("CveTipoCompra").ToString.ToEntero
                 CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero
                 ChkEsNoDeducible.Checked = dr("NoDeducible").ToString.ToEntero > 0
                 If ChkEsNoDeducible.Checked Then AplicarNoDeducible()
diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx
index 4c7dd8fa6..d22f12fb4 100644
--- a/Compras/Proveedores.aspx
+++ b/Compras/Proveedores.aspx
@@ -358,10 +358,17 @@
                                                     </div>
                                                 </div>
 
-                                                <div class="col-md-6" runat="server" visible="false" id="DVPorcentajeProntoPago">
+                                                <div class="col-md-2" runat="server" visible="false" id="DVAplicaProntoPago">
+                                                    <div class="form-group form-md-line-input">
+                                                        <asp:CheckBox ID="chkAplicaProntoPago" runat="server" Text="" AutoPostBack="true"  CssClass="form-control "  OnCheckedChanged="chkAplicaProntoPago_CheckedChanged"></asp:CheckBox>
+                                                        <label for="<%= chkAplicaProntoPago.ClientID%>">Pronto Pago:</label>                                                        
+                                                    </div>
+                                                    
+                                                </div>
+                                                <div class="col-md-2" runat="server" visible="false" id="DVPorcentajeProntoPago">
                                                     <div class="form-group form-md-line-input">
                                                         <asp:TextBox ID="TxtPorcentajeProntoPago" CssClass="form-control " runat="server" MaxLength="50" Width="206px"></asp:TextBox>
-                                                        <label for="<%= TxtPorcentajeProntoPago.ClientID%>">% Pronto Pago:</label>
+                                                        <label for="<%= TxtPorcentajeProntoPago.ClientID%>">% Pronto Pago:</label>                                                        
                                                     </div>
                                                     
                                                 </div>
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index cc1892977..a3e2ddbda 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -641,7 +641,7 @@ Partial Class Compras_Proveedores
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
-                DVPorcentajeProntoPago.Visible = True
+                DVAplicaProntoPago.Visible = True
             End If
 
         End If
@@ -967,10 +967,17 @@ Partial Class Compras_Proveedores
                 Retorno = True
 
                 TxtPorcentajeProntoPago.Text = (100 * ObjProveedor.PorcentajeProntoPago).ToString("###.00")
+                chkAplicaProntoPago.Checked = ObjProveedor.AplicaProntoPago
 
+                If ObjProveedor.PorcentajeProntoPago > 0 Or chkAplicaProntoPago.Checked Then
+                    chkAplicaProntoPago.Checked = True
+                    DVPorcentajeProntoPago.Visible = True
+                End If
                 ' enviaractivacion()
                 CargaEventoBitacora()
 
+
+
             Else
                 Alert("El Proveedor Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
                 BtnGuardar.Enabled = False
@@ -1437,7 +1444,7 @@ Partial Class Compras_Proveedores
                 DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                 DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text,
                 AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
-                CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago) Then
+                CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago, AplicaProntoPago:=chkAplicaProntoPago.Checked) Then
 
                 Dim NuevoCveProveedor As Integer = ObjProveedores.CveProveedor
 
@@ -1548,7 +1555,7 @@ Partial Class Compras_Proveedores
                         DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor,
                         DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario,
                         DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
-                        CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago) Then
+                        CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago, AplicaProntoPago:=chkAplicaProntoPago.Checked) Then
 
                 GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
 
@@ -5897,6 +5904,17 @@ Partial Class Compras_Proveedores
         DdlDIOTTipoOperacion.DataBind()
     End Sub
 
+
+    Protected Sub chkAplicaProntoPago_CheckedChanged(sender As Object, e As EventArgs)
+
+        If chkAplicaProntoPago.Checked Then
+            DVPorcentajeProntoPago.Visible = True
+        Else
+            DVPorcentajeProntoPago.Visible = False
+            TxtPorcentajeProntoPago.Text = ""
+        End If
+        UpDatos.Update()
+    End Sub
 End Class
 
 
diff --git a/Compras/RepCxP.aspx b/Compras/RepCxP.aspx
index c9371d679..61c22d71f 100644
--- a/Compras/RepCxP.aspx
+++ b/Compras/RepCxP.aspx
@@ -307,6 +307,15 @@
                                 <asp:ListItem Text="No" Value="0"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+
+                        <div class="col-md-1" data-toggle="tooltip" data-placement="left" title="">Pronto Pago:</div>
+                        <div class="col-md-2">
+                            <asp:DropDownList CssClass="form-control input-sm select2me" ID="DdlProntoPago" runat="server" AppendDataBoundItems="true" Style="height: 30px;">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Solo Pronto Pago" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Sin ProntoPago" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>
diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb
index aeb8fdc41..b7c4d2ef7 100644
--- a/Compras/RepCxP.aspx.vb
+++ b/Compras/RepCxP.aspx.vb
@@ -219,7 +219,7 @@ Partial Class Compras_RepCxP
         Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM)
         If Mov.GetCxP(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero(), DdlUsuarioResponsable.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero,
                       DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=If(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero,
-                      TipoDocto:=TipoDocto, TipoAgrupacion:=TipoAgrupacion, CveProyecto:=CveProyecto) Then
+                      TipoDocto:=TipoDocto, TipoAgrupacion:=TipoAgrupacion, CveProyecto:=CveProyecto, AplicaProntoPago:=DdlProntoPago.SelectedValue.ToEntero) Then
             GvCxP.DataSource = Mov.DtResultados
             DtDatos = Mov.DtResultados
             DtGrafica = Mov.DtResultados
@@ -593,50 +593,50 @@ Partial Class Compras_RepCxP
                     CveProyecto = DdlProyecto.SelectedValue.ToEntero()
                 End If
 
-                Dim Liga1 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}&CveProyecto={23}",
-                                              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, CveProyecto)
+                Dim Liga1 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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
                 e.Row.FCHyperLink($"HplColumna1").NavigateUrl = Liga1
-                Liga1 = 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}&CveProyecto={23}",
-                                              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, CveProyecto)
+                Liga1 = 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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
                 e.Row.FCHyperLink($"HplColumna2").NavigateUrl = Liga1
-                Liga1 = 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}&CveProyecto={23}",
-                                              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, e.Row.DBCampo("NomMes1"), e.Row.DBCampo("NomMesF1"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Liga1 = 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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, e.Row.DBCampo("NomMes1"), e.Row.DBCampo("NomMesF1"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
                 e.Row.FCHyperLink($"HplColumna3").NavigateUrl = Liga1
-                Liga1 = 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}&CveProyecto={23}",
-                                              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, e.Row.DBCampo("NomMes2"), e.Row.DBCampo("NomMesF2"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Liga1 = 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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, e.Row.DBCampo("NomMes2"), e.Row.DBCampo("NomMesF2"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
                 e.Row.FCHyperLink($"HplColumna4").NavigateUrl = Liga1
-                Liga1 = 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}&CveProyecto={23}",
-                                              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, e.Row.DBCampo("NomMes3"), e.Row.DBCampo("NomMesF3"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Liga1 = 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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, e.Row.DBCampo("NomMes3"), e.Row.DBCampo("NomMesF3"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
                 e.Row.FCHyperLink($"HplColumna5").NavigateUrl = Liga1
-                Liga1 = 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}&CveProyecto={23}",
-                                              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, e.Row.DBCampo("NomMes4"), e.Row.DBCampo("NomMesF4"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Liga1 = 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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, e.Row.DBCampo("NomMes4"), e.Row.DBCampo("NomMesF4"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
                 e.Row.FCHyperLink($"HplColumna6").NavigateUrl = Liga1
-                Liga1 = 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}&CveProyecto={23}",
-                                              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, e.Row.DBCampo("NomMes5"), e.Row.DBCampo("NomMesF5"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Liga1 = 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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, e.Row.DBCampo("NomMes5"), e.Row.DBCampo("NomMesF5"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
                 e.Row.FCHyperLink($"HplColumna7").NavigateUrl = Liga1
-                Liga1 = 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}&CveProyecto={23}",
-                                              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, e.Row.DBCampo("NomMes6"), e.Row.DBCampo("NomMesF6"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Liga1 = 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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, e.Row.DBCampo("NomMes6"), e.Row.DBCampo("NomMesF6"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
                 e.Row.FCHyperLink($"HplColumna8").NavigateUrl = Liga1
-                Liga1 = 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}&CveProyecto={23}",
-                                              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, e.Row.DBCampo("NomMes7"), e.Row.DBCampo("NomMesF7"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Liga1 = 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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, e.Row.DBCampo("NomMes7"), e.Row.DBCampo("NomMesF7"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
                 e.Row.FCHyperLink($"HplColumna9").NavigateUrl = Liga1
-                Liga1 = 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}&CveProyecto={23}",
-                                              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, e.Row.DBCampo("NomMes8"), e.Row.DBCampo("NomMesF8"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Liga1 = 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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, e.Row.DBCampo("NomMes8"), e.Row.DBCampo("NomMesF8"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
                 e.Row.FCHyperLink($"HplColumna10").NavigateUrl = Liga1
-                Liga1 = 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}&CveProyecto={23}",
-                                              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, e.Row.DBCampo("NomMes9"), e.Row.DBCampo("NomMesF9"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Liga1 = 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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, e.Row.DBCampo("NomMes9"), e.Row.DBCampo("NomMesF9"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
                 e.Row.FCHyperLink($"HplColumna11").NavigateUrl = Liga1
-                Liga1 = 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}&CveProyecto={23}",
-                                              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, e.Row.DBCampo("NomMes10"), e.Row.DBCampo("NomMesF10"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Liga1 = 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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, e.Row.DBCampo("NomMes10"), e.Row.DBCampo("NomMesF10"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
                 e.Row.FCHyperLink($"HplColumna12").NavigateUrl = Liga1
-                Liga1 = 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}&CveProyecto={23}",
-                                              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, e.Row.DBCampo("NomMes11"), e.Row.DBCampo("NomMesF11"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Liga1 = 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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, e.Row.DBCampo("NomMes11"), e.Row.DBCampo("NomMesF11"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
                 e.Row.FCHyperLink($"HplColumna13").NavigateUrl = Liga1
-                Liga1 = 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}&CveProyecto={23}",
-                                              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, e.Row.DBCampo("NomMes12"), e.Row.DBCampo("NomMesF12"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Liga1 = 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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, e.Row.DBCampo("NomMes12"), e.Row.DBCampo("NomMesF12"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
                 e.Row.FCHyperLink($"HplColumna14").NavigateUrl = Liga1
-                Liga1 = 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}&CveProyecto={23}",
-                                              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, e.Row.DBCampo("NomMes13"), "31/12/9999", TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Liga1 = 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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, e.Row.DBCampo("NomMes13"), "31/12/9999", TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
                 e.Row.FCHyperLink($"HplColumna15").NavigateUrl = Liga1
 
                 If e.Row.FCHyperLink("HplSaldo").Text = "0.00" Then e.Row.FCHyperLink("HplSaldo").Text = "-"
@@ -703,52 +703,52 @@ Partial Class Compras_RepCxP
                     CveProyecto = DdlProyecto.SelectedValue.ToEntero()
                 End If
 
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
 
 
-                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}&CveProyecto={23}",
-                                              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, CveProyecto)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                              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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
 
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
 
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
 
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
 
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
 
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
 
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
 
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
 
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
 
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
 
-                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}&CveProyecto={23}",
-                                               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, CveProyecto)
+                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}&CveProyecto={23}&AplicaProntoPago={24}",
+                                               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, CveProyecto, DdlProntoPago.SelectedValue.ToEntero)
 
 
 
diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx
index 29b0aec1b..b992d5424 100644
--- a/Compras/RepCxPDetalle.aspx
+++ b/Compras/RepCxPDetalle.aspx
@@ -251,6 +251,14 @@
                                 <asp:ListItem Text="No" Value="0"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                          <div class="col-md-1" data-toggle="tooltip" data-placement="left" title="">Pronto Pago:</div>
+                              <div class="col-md-2">
+                                  <asp:DropDownList CssClass="form-control input-sm select2me" ID="DdlProntoPago" runat="server" AppendDataBoundItems="true" Style="height: 30px;">
+                                      <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                      <asp:ListItem Text="Solo Pronto Pago" Value="1"></asp:ListItem>
+                                      <asp:ListItem Text="Sin ProntoPago" Value="0"></asp:ListItem>
+                                  </asp:DropDownList>
+                              </div>
                     </div>
                 </div>
             </div>
diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb
index f7927f7b0..49d7a1537 100644
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -297,6 +297,7 @@ Partial Class RepCxPDetalle
         DdlUsuarioRegistro.DataBind()
         DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlUsuarioRegistro.SelectedValueExist(UsuarioRegistro)
+        DdlProntoPago.SelectedValueExist(IfNull(Request("AplicaProntoPago"), -1).ToString)
 
         Dim CveSucursal As Integer = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
 
@@ -411,7 +412,8 @@ Partial Class RepCxPDetalle
                                        DdlUsuarioResponsable.SelectedValue.ToEntero, Anio, Mes, AnioMes, Ddlmoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero(), 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:=If(CveTipoProveedor = 3, -1, CveTipoProveedor),
-                                       Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero(), TipoDocto:=TipoDocto, CveProyecto:=DdlProyecto.SelectedValue.ToEntero()) Then
+                                       Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero(), TipoDocto:=TipoDocto, CveProyecto:=DdlProyecto.SelectedValue.ToEntero(),
+                                       AplicaProntoPago:=DdlProntoPago.SelectedValue.ToEntero) Then
 
 
                 Dim TMP_DTDatos As New DataTable
diff --git a/Contabilidad/RepGastosCC.aspx b/Contabilidad/RepGastosCC.aspx
index 9f918e6a6..05c33dbc7 100644
--- a/Contabilidad/RepGastosCC.aspx
+++ b/Contabilidad/RepGastosCC.aspx
@@ -206,6 +206,16 @@ table.adssigscroll {
                             <asp:ListItem Text="Con Importes" Value="2" Selected="True"></asp:ListItem>                                         
                         </asp:DropDownList>
                     </div>
+                   <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
+                    <div runat="server" id="DivProyecto" class="col-md-2">
+                        <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%;"></asp:DropDownList>
+                    </div>
+                    <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
+                    <div runat="server" id="DivSubProyecto" class="col-md-2">                        
+                        <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                            <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                        </asp:DropDownList> 
+                    </div>                     
                 </div>
             </div>
         </div>
diff --git a/Contabilidad/RepGastosCC.aspx.vb b/Contabilidad/RepGastosCC.aspx.vb
index 90d6291b3..75d8893d6 100644
--- a/Contabilidad/RepGastosCC.aspx.vb
+++ b/Contabilidad/RepGastosCC.aspx.vb
@@ -21,20 +21,23 @@ Partial Class RepGastosCC
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-
-
             txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString()
             txtFechaF.Text = NowADS().ToShortDateString
             OrdenaDatos()
-
+            CargaCombos()
         End If
     End Sub
 
+    Private Sub CargaCombos()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
+
+    End Sub
+
 #Region " C A R G A - D A T O S "
     Public Sub CargaDatos()
         Dim Obj As New ClsContabilidad
 
-        If Obj.GetGastosRepCC(txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim().ToDate, UsuarioActual.CveEmpresa) Then
+        If Obj.GetGastosRepCC(txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim().ToDate, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             Dim dt As DataTable = Obj.DtResultados
             If DdlOpcionCuenta.SelectedValue = "2" Then
                 dt = dt.FiltraParametros("Total > 0")
diff --git a/Empresas/153/Formatos/Factura.rdlc b/Empresas/153/Formatos/Factura.rdlc
index 55e1051f3..985845267 100644
--- a/Empresas/153/Formatos/Factura.rdlc
+++ b/Empresas/153/Formatos/Factura.rdlc
@@ -1482,6 +1482,18 @@ CP: 83180, Hermosillo,Sonora, México</Value>
                 </TextRuns>
                 <Style />
               </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>Régimen: 626 - Régimen Simplificado de Confianza</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontSize>8pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
               <Paragraph>
                 <TextRuns>
                   <TextRun>
@@ -2306,18 +2318,6 @@ CP: 83180, Hermosillo,Sonora, México</Value>
                 </TextRuns>
                 <Style />
               </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Régimen: 626 - Régimen Simplificado de Confianza</Value>
-                    <Style>
-                      <FontFamily>calibri</FontFamily>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style />
-              </Paragraph>
               <Paragraph>
                 <TextRuns>
                   <TextRun>
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index b18897be0..570085ae2 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -8,7 +8,7 @@ Imports ADSNetLibrary.SIGAPI.Services.CRM
 Partial Class Inicio
     Inherits ClsPaginas
 
-    Private Dias() As String = {"Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado"}
+    'Private Dias() As String = {"Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado"}
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
@@ -142,25 +142,18 @@ Partial Class Inicio
             If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer()
             If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
 
-            If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso (UsuarioActual.CveUsuario = 3964 OrElse UsuarioActual.CveRol = 1639) Then 'AndAlso UsuarioActual.CveRol.Contiene(1577, 1639, 1573) Then
-                'Dim Opcion As Integer = 1
-                'Dim CveVendedor As Integer = -1
-                'Dim CveUsuarioTecnico As Integer = -1
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso
+                     (UsuarioActual.CveUsuario.Contiene(3964, 3984) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then
 
-                'If UsuarioActual.CveRol = 1577 Then 'vendedor
-                '    Opcion = 1
-                '    CveVendedor = UsuarioActual.CveVendedor
-                '    CveUsuarioTecnico = UsuarioActual.CveUsuario 'GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUsuarioTecnico", $"CveVendedor = {CveVendedor}").ToEntero
-                'ElseIf UsuarioActual.CveRol.Contiene(1639, 1573) Then ' rol admin. 1573
-                '    Opcion = 2 'gerente ventas 
-                'End If
                 divsms1.Visible = True
                 txtFechaInicioSMS.Text = Now.FirstDayOfMonth.ToString
                 txtFechaFinSMS.Text = Now.LastDayOfMonth.ToString
-                If UsuarioActual.CveUsuario = 3964 Then
+                If UsuarioActual.CveUsuario = 3964 Then 'diego de la concha
                     DdlSMSOpciones.SelectedValue = "2"
                     DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 ")
                     DdlSMSVendedores.DataBind()
+                    DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582")
+                    DdlSMSTecnico.DataBind()
                 End If
                 If UsuarioActual.CveRol.Contiene(1639) Then 'gerente ventas 
                     DdlSMSOpciones.SelectedValue = "2"
@@ -173,7 +166,33 @@ Partial Class Inicio
 
                     DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 and CveSuperior = {CveGerenteVendedor} ")
                     DdlSMSVendedores.DataBind()
+                    DdlSMSTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
                 End If
+                If UsuarioActual.CveRol = 1577 Then 'vendedores
+                    DdlSMSOpciones.SelectedValue = "1"
+                    DdlSMSVendedores.Items.Add(New ListItem(UsuarioActual.Nombre, UsuarioActual.CveVendedor.ToString))
+                    DdlSMSVendedores.SelectedValue = UsuarioActual.CveVendedor.ToString
+                    DdlSMSVendedores.Enabled = False
+                    DdlSMSOpciones.Enabled = False
+                End If
+                If UsuarioActual.CveRol = 1578 Then 'almacenista
+                    DdlSMSOpciones.SelectedValue = "3"
+                    DdlSMSOpciones.Enabled = False
+                End If
+                If UsuarioActual.CveUsuario = 3984 Then 'Erick, modalidad de gerente de técnicos
+                    DdlSMSOpciones.SelectedValue = "5"
+                    DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582")
+                    DdlSMSTecnico.DataBind()
+                    DdlSMSOpciones.Items.RemoveAt(2) : DdlSMSOpciones.Items.RemoveAt(1) : DdlSMSOpciones.Items.RemoveAt(0)
+
+                ElseIf UsuarioActual.CveRol = 1582 Then 'tecnicos
+                    DdlSMSOpciones.SelectedValue = "4"
+                    DdlSMSOpciones.Enabled = False
+                    DdlSMSTecnico.Items.Add(New ListItem(UsuarioActual.Nombre, UsuarioActual.CveUsuario.ToString))
+                    DdlSMSTecnico.SelectedValue = UsuarioActual.CveUsuario.ToString
+                    DdlSMSTecnico.Enabled = False
+                End If
+
                 CargaSMSKPI()
 
             End If
@@ -2551,9 +2570,6 @@ Partial Class Inicio
             CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, CveGerenteVendedor:=CveGerenteVendedor)
 
         ElseIf DdlSMSOpciones.SelectedValue = "4" Then
-            DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582")
-            DdlSMSTecnico.DataBind()
-            DdlSMSTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
             DdlSMSTecnico.Visible = True
             DdlSMSVendedores.Visible = False
             CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, -1, DdlSMSTecnico.SelectedValue.ToEntero)
diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx
index b2023d369..8b7549e3f 100644
--- a/Nomina/Nomina.aspx
+++ b/Nomina/Nomina.aspx
@@ -1445,6 +1445,18 @@
                                                     </div>
 
                                                     <div class="actions">
+
+                                                            <div style="display:inline-block;width:296px">
+                                                                <div style="display:inline-block;width:186px">
+                                                                    <asp:DropDownList ID="ddlmvtoperfiltroestatus" runat="server"  Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
+                                                                        <asp:ListItem Value="-1" Text="Todos"></asp:ListItem>
+                                                                        <asp:ListItem Value="1" Text="Activo"></asp:ListItem>
+                                                                        <asp:ListItem Value="0" Text="Inactivo"></asp:ListItem>
+                                                                    </asp:DropDownList>
+
+                                                                </div>
+                                                                <asp:LinkButton ID="LnkFiltro" OnClick="LnkFiltro_Click" CssClass="btn btn-primary" runat="server">Filtrar</asp:LinkButton>
+                                                            </div>
                                                         <div class="btn-group">
                                                             <asp:LinkButton ID="LnkAddMovtoPermanente" OnClick="LnkAddMovtoPermanente_Click" CssClass="btn yellow-gold" runat="server">Agregar</asp:LinkButton>
                                                         </div>
@@ -1498,6 +1510,12 @@
                                                                         CssClass="lnkMovotPermanente" runat="server" Text='<%# Eval("FechaInicioAplicacion", "{0:dd/MM/yyyy}")%>'></asp:LinkButton>
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
+                                                            <asp:TemplateField HeaderText="Activo">
+                                                                <ItemTemplate>
+                                                                    <asp:LinkButton data-toggle="tooltip" title="Editar" OnClick="LnkEditarMovtoPermanente_Click"
+                                                                        CssClass="lnkMovotPermanente" runat="server" Text='<%# (Eval("Estatus").ToString()=="1" ? "Si" : "No")  %>'></asp:LinkButton>
+                                                                </ItemTemplate>
+                                                            </asp:TemplateField>
                                                             <%--<asp:HyperLinkField HeaderText="Movto. Bancario" DataNavigateUrlFields="CveIE" DataTextField="FolioIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" Target="_blank" />--%>
                                                             <asp:TemplateField ItemStyle-Width="38">
                                                                 <ItemTemplate>
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index ba4669fca..07a5da3e7 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -451,7 +451,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             DdlBanco.DataSource = GlobalDTNomSatBancos;
             DdlBanco.DataBind();
 
-            if(UsuarioActual.CveEmpresa == 119) DdlRegimenContratacion.SelectedValue = "1";
+            if (UsuarioActual.CveEmpresa == 119) DdlRegimenContratacion.SelectedValue = "1";
 
             //Permisos
             if (UsuarioActual.TienePermisoProceso(82))
@@ -588,7 +588,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             DdlTipoPeriodo.SelectedIndex = 0;
         }
     }
-    private void cargaPeriodos()
+    private void cargaPeriodos(int tipo =0)
     {
         int tipoPeriodo = DdlTipoPeriodo.SelectedValue.ToEntero();
         int ejercicio = DdlEjercicios.SelectedValue.ToEntero();
@@ -611,6 +611,10 @@ public partial class Nomina_Nomina2 : ClsPaginas
         DdlPeriodo.DataSource = dtPeriodos;
         DdlPeriodo.DataBind();
         DdlPeriodo.Items.Insert(0, new ListItem("Seleccione", "-1"));
+        if(tipo==1 && dtPeriodos.Rows.Count > 0)
+        {
+            DdlPeriodo.SelectedValue = dtPeriodos.Rows[0]["CvePeriodo"].ToString();
+        }
         muestraPeriodo();
     }
 
@@ -621,7 +625,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
     protected void DdlTipoPeriodo_SelectedIndexChanged(object sender, EventArgs e)
     {
-        cargaPeriodos();
+        cargaPeriodos(1);
     }
 
     protected void DdlPeriodo_SelectedIndexChanged(object sender, EventArgs e)
@@ -4961,7 +4965,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             addcoltopersonalizar("Dias Pen Pago", "0", "", "");
 
             int pos = 4;
-            foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' AND EsPadre = 1 AND EsFormula =0").Rows)
+            foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' ").Rows)
             {
                 if (!(dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
                 {
@@ -5123,17 +5127,28 @@ public partial class Nomina_Nomina2 : ClsPaginas
             ClosedXML.Excel.XLColor colororange = ClosedXML.Excel.XLColor.FromArgb(247, 150, 70);
             ClosedXML.Excel.XLColor colororangeblue = ClosedXML.Excel.XLColor.FromArgb(79, 129, 189);
             ClosedXML.Excel.IXLCell celda;
-            DataTable dtConceptos =  this.dtConceptos.FiltraParametros("");
+            DataTable dtConceptos = this.dtConceptos.FiltraParametros("");
             DataTable dtFiltrado = dtConceptos.Clone(); // Clonar la estructura del DataTable
+            bool colSueldoMensual = false;
+            bool colSueldoDiario = false;
+            bool coDiasPenPagol = false;
 
             foreach (GridViewRow row in GvPersonalizarExcel.Rows)
             {
-                string columnaDB = row.DataKey("ColumnaDB").Replace("[","").Replace("]",""); // Suponiendo que la columna "ColumnaDB" está en la segunda celda (index 1)
+                string columna = row.DataKey("Columna").Replace("[", "").Replace("]", "");
+                string columnaDB = row.DataKey("ColumnaDB").Replace("[", "").Replace("]", ""); // Suponiendo que la columna "ColumnaDB" está en la segunda celda (index 1)
+                if (columnaDB == "0")
+                {
+                    if (columna == "Sueldo Mensual") { colSueldoMensual = true; }
+                    if (columna == "Sueldo diario") { colSueldoDiario = true; }
+                    if (columna == "Dias Pen Pago") { coDiasPenPagol = true; }
+                }
+
                 string tipoDB = row.DataKey("TipoDB"); // Suponiendo que la columna "TipoDB" está en la cuarta celda (index 3)
                 //string tipo = tipoDB == "P" ? "1" : (tipoDB == "D" ? "2" : (tipoDB == "O" ? "3" : "5"));
                 // Filtrar dtConceptos basado en los valores del GridView
                 var filasFiltradas = dtConceptos.AsEnumerable()
-                    .Where(r => string.Format("V_{0}" , r["CveConcepto"]) == columnaDB //&& r["Tipo"].ToString() == tipoDB
+                    .Where(r => string.Format("V_{0}", r["CveConcepto"]) == columnaDB //&& r["Tipo"].ToString() == tipoDB
                                 );
 
                 if (filasFiltradas.Any())
@@ -5162,23 +5177,31 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
             int iniciotipe = column;
             int incioConceptos = iniciotipe + 1;
-            column++;
-            Titlecell(libro, "Mensual", filainicio + 2, column, true, false, PercborderColor);
-            Titlecell(libro, "Sueldo", filainicio + 3, column, false, true, PercborderColor);
-            Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
-            libro.Column(column).Width = 15;
+            if (colSueldoMensual)
+            {
 
-            column++;
-            Titlecell(libro, "Sueldo", filainicio + 2, column, true, false, PercborderColor);
-            Titlecell(libro, "diario", filainicio + 3, column, false, true, PercborderColor);
-            Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
-            libro.Column(column).Width = 15;
-
-            column++;
-            Titlecell(libro, "dias Pen", filainicio + 2, column, true, false, PercborderColor);
-            Titlecell(libro, "Pago", filainicio + 3, column, false, true, PercborderColor);
-            Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
-            libro.Column(column).Width = 15;
+                column++;
+                Titlecell(libro, "Sueldo", filainicio + 2, column, false, true, PercborderColor);
+                Titlecell(libro, "Mensual", filainicio + 3, column, true, false, PercborderColor);
+                Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
+                libro.Column(column).Width = 15;
+            }
+            if (colSueldoDiario)
+            {
+                column++;
+                Titlecell(libro, "Sueldo", filainicio + 2, column, true, false, PercborderColor);
+                Titlecell(libro, "diario", filainicio + 3, column, false, true, PercborderColor);
+                Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
+                libro.Column(column).Width = 15;
+            }
+            if (colSueldoDiario)
+            {
+                column++;
+                Titlecell(libro, "dias Pen", filainicio + 2, column, true, false, PercborderColor);
+                Titlecell(libro, "Pago", filainicio + 3, column, false, true, PercborderColor);
+                Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
+                libro.Column(column).Width = 15;
+            }
             if (dtConceptos.FiltraParametros("Tipo ='P'").Rows.Count > 0)
             {
 
@@ -5369,23 +5392,31 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 }
                 oldsubproyecto = subproyecto;
                 libro.Cell(Fila, column).Value = erow["Nombre"];
-
-
+ 
+            if (colSueldoMensual)
+            {
                 column++;
                 libro.Cell(Fila, column).Value = "";
-                try{libro.Cell(Fila, column).Value = erow[string.Format("V_{0}", 6817)];
+                try
+                {
+                    libro.Cell(Fila, column).Value = erow[string.Format("V_{0}", 6817)];
                     libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\"";
                 }
-                catch (Exception) {  }
+                catch (Exception) { }
+            }
+            if (colSueldoDiario)
+            {
 
                 column++;
                 libro.Cell(Fila, column).Value = erow["SalarioDiario"];
                 libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\"";
-
-                column++;
+                }
+                if (coDiasPenPagol)
+                {
+                    column++;
                 libro.Cell(Fila, column).Value = "";
-
-                if (dtConceptos.FiltraParametros("Tipo ='P'").Rows.Count > 0)
+                } 
+                    if (dtConceptos.FiltraParametros("Tipo ='P'").Rows.Count > 0)
                 {
                     foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' ").Rows)
                     {
@@ -7799,9 +7830,29 @@ public partial class Nomina_Nomina2 : ClsPaginas
         DdlConcepto.DataBind();
         //DdlConcepto.Items.Insert(0, new ListItem("Seleccione", "-1"));
     }
+
+    protected void LnkFiltro_Click(object sender, EventArgs e)
+    {
+        int estatus = ddlmvtoperfiltroestatus.SelectedValue.ToEntero();
+        using (ClsNominas ObjMovt = new ClsNominas())
+        {
+            ObjMovt.GetMovtoPermanente(UsuarioActual.CveEmpresa, SRCvePersonal);
+            DataTable dt = ObjMovt.DtResultados;
+            if(estatus >= 0)
+            {
+                dt = dt.FiltraParametros(string.Format("Estatus ={0}", estatus));
+            }
+            GVMovtoPermanente.DataSource = dt;
+
+        }
+        GVMovtoPermanente.DataBind();
+        UpMovtosPermanentes.Update();
+
+
+    }
     private void CargaMovtoPermanente()
     {
-
+        ddlmvtoperfiltroestatus.SelectedValue = "-1";
         using (ClsNominas ObjMovt = new ClsNominas())
         {
             ObjMovt.GetMovtoPermanente(UsuarioActual.CveEmpresa, SRCvePersonal);
@@ -9804,7 +9855,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                                 FileInfo file = new FileInfo(PathXML);
                                 if (!descargaZIP.Any(x => x.FileName.Contains(file.Name)))
                                 {
-                                    descargaZIP.AddFile(PathXML,"");
+                                    descargaZIP.AddFile(PathXML, "");
                                 }
 
                             }
@@ -12430,4 +12481,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
     {
 
     }
+
+
 }
\ No newline at end of file
diff --git a/Nomina/RepMovtosPermanentes.aspx b/Nomina/RepMovtosPermanentes.aspx
index c7bbd6231..16ea51b0a 100644
--- a/Nomina/RepMovtosPermanentes.aspx
+++ b/Nomina/RepMovtosPermanentes.aspx
@@ -62,6 +62,18 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+
+    
+    <asp:UpdatePanel ID="UpAccciones" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="LnkFormatoxls"  OnClick="LnkFormatoxls_Click" CssClass="" runat="server"><i class="fa fa-file-excel"></i> Formato Excel</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers> 
+            <asp:PostBackTrigger ControlID="LnkFormatoxls" /> 
+        </Triggers>
+    </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
@@ -183,7 +195,11 @@
                             <asp:Label ID="lblconcepto"  CssClass="lblconcepto" runat="server" Text='<%# Eval("Concepto")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    
+                     <asp:TemplateField HeaderText="Fecha">
+                         <ItemTemplate>
+                             <asp:Label ID="lblFecha" runat="server" Text='<%# Eval("FechaInicioAplicacion","{0:d}")%>'> </asp:Label>
+                         </ItemTemplate>
+                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Descuento Acordado">
                         <ItemTemplate>
                             <asp:Label ID="lblAcordado" runat="server" Text='<%# Eval("Valor","{0:N2}")%>'> </asp:Label>
diff --git a/Nomina/RepMovtosPermanentes.aspx.cs b/Nomina/RepMovtosPermanentes.aspx.cs
index b38be5aa2..07040324f 100644
--- a/Nomina/RepMovtosPermanentes.aspx.cs
+++ b/Nomina/RepMovtosPermanentes.aspx.cs
@@ -168,4 +168,10 @@ public partial class Nomina_RepMovtosPermanentes : ClsPaginas
             Alert("Se ha eliminadó el movimiento permanente");
         }
     }
+
+    protected void LnkFormatoxls_Click(object sender, EventArgs e)
+    {
+        GVGetMovtoPermanenteRep.ExportToExcelX("Movimientos Permanente");
+
+    }
 }
\ No newline at end of file
diff --git a/Nomina/ReportePTU.aspx b/Nomina/ReportePTU.aspx
index c48800e94..406e065fa 100644
--- a/Nomina/ReportePTU.aspx
+++ b/Nomina/ReportePTU.aspx
@@ -12,12 +12,11 @@
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
     <script>$('body').removeClass('rhumanosbody').addClass('rhumanosbody')</script>
-    PTU
+    Reparto de Utilidades
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    Reparto de Utilidades
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 6cc73ef11..89e45b992 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -6,10 +6,6 @@ Imports System.IO
 Imports System.Data
 Imports Microsoft.Reporting.WebForms
 Imports System.Globalization
-
-
-
-
 Partial Class RH_Personal
     Inherits ClsPaginas
 
@@ -2137,7 +2133,7 @@ Partial Class RH_Personal
                                     If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(),
                                                                                   row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), row("RefCrediProveedor").ToString(), UsuarioActual.CveUsuario,
                                                                                   row("CveMoneda").ToString().ToEntero(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario,
-                                                                                  BBVAAlias:=row("BBVAAlias").ToString(), EstatusPagoElectronico:=Boolean.Parse(row("EstatusPagoElectronico").ToString),
+                                                                                  CveSATBanco:=row("CveSATBanco").ToString.ToEntero, BBVAAlias:=row("BBVAAlias").ToString(), EstatusPagoElectronico:=Boolean.Parse(row("EstatusPagoElectronico").ToString),
                                                                                   EstatusPagoElectronicoGrupos:=Boolean.Parse(row("EstatusPagoElectronicoGrupos").ToString), Correo:=row("Correo").ToString(),
                                                                                   ConceptoCIE:=row("ConceptoCIE").ToString(), Estatus:=If(row("EstatusTexto").ToString = "Activo", True, False)) Then
                                         TieneError = True
@@ -3095,8 +3091,6 @@ Partial Class RH_Personal
         End If
     End Sub
 #End Region
-
-
     Protected Sub DdlEstatusPersonal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusPersonal.SelectedIndexChanged
 
         MostrarOcultarFechasEstatus()
@@ -3133,8 +3127,6 @@ Partial Class RH_Personal
 
             End If
 
-
-
             e.Row.FCLinkButton("LBCancelar").Visible = True
             e.Row.FCLinkButton("LBCancelar").CommandArgument = e.Row.DBCampo("FolioFiscal")
 
@@ -3153,7 +3145,6 @@ Partial Class RH_Personal
                 e.Row.FCLinkButton("LBCancelar").Visible = True
                 e.Row.FCLinkButton("LBCancelar").CommandArgument = e.Row.DBCampo("FolioFiscal")
             End If
-
         End If
     End Sub
 
@@ -3354,11 +3345,8 @@ Partial Class RH_Personal
                 e.Row.FCLabel("LtlC").CssClass = "label label-sm label-warning"
                 e.Row.FCLabel("LtlC").ForeColor = Drawing.Color.White
             End If
-
         End If
-
     End Sub
-
     Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
         If DtCuentasContables Is Nothing Then
             CargaCuentasContables()
@@ -3377,10 +3365,6 @@ Partial Class RH_Personal
                 DdlPrestamos.DataSource = DtCuentasContables : DdlPrestamos.DataBind() : DdlPrestamos.SelectedValueExist(SeleccionadoContPrestamos)
                 DdlPrestamos.AutoPostBack = False : DdlPrestamos.Attributes.Remove("onclick") : DdlPrestamos.CssClass &= " select2me"
         End Select
-
-
-
-
     End Sub
 #Region "TAB BANCOS"
     Private Sub CargaMonedas()
@@ -3417,10 +3401,6 @@ Partial Class RH_Personal
         TxtCorreoCuenta.Text = ""
         TxtBBVAAlias.Text = ""
         ChkPagoElectronicoGrupos.Checked = False
-
-
-
-
         UpAddBancos.Update()
     End Sub
 
@@ -3441,6 +3421,7 @@ Partial Class RH_Personal
         Else
             If IndexCuentaDepostito > -1 Then
                 Dim Row As DataRow = TempDTCuentasBancos.Rows(IndexCuentaDepostito)
+                Row("CveSATBanco") = DdlBancoSat.SelectedValue.ToEntero()
                 Row("BancoNombre") = nombrebanco
                 Row("Cuenta") = TxtNumeroCuenta.Text.Trim
                 Row("Sucursal") = TxtNumeroSucursal.Text
@@ -3460,7 +3441,6 @@ Partial Class RH_Personal
                 Row("Correo") = TxtCorreoCuenta.Text.Trim
                 Row("ConceptoCIE") = TxtConceptoCIE.Text
                 Row("EstatusTexto") = If(ChkEstatuscuenta.Checked, "Activo", "Inactivo")
-
             End If
         End If
 
@@ -3504,7 +3484,6 @@ Partial Class RH_Personal
             Exit Sub
         End If
 
-
         If ChkPagoElectronicoGrupos.Checked Then
 
             If TxtConvenioCIE.Text.Trim.Length > 0 Then
@@ -3518,15 +3497,8 @@ Partial Class RH_Personal
                     Alert("Se debe de especificar el banco.")
                     Exit Sub
                 End If
-
-
-
             End If
-
         End If
-
-
-
         ''CUANDO SEA "BBVA" O "BANCOMER" DEBE TENER "CIE" O "CUENTA"
         'If EsBancomer AndAlso Not (TxtNumeroCuenta.Text.Trim.Length = 10 Or TxtConvenioCIE.Text.Trim.Length = 6) Then
         '    Alert("Para cuentas BBVA BANCOMER es obligatorio el Número de Cuenta o CIE.", TipoMensaje.MsgAdvertencia)
@@ -3562,8 +3534,6 @@ Partial Class RH_Personal
     Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, CveMoneda As Integer,
                                    Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, CveSATBanco As Integer, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, ConceptoCIE As String)
 
-
-
         If CvePersonal > 0 Then
             Using ObjCuentasBancos As New ClsGenerales()
 
@@ -3582,6 +3552,7 @@ Partial Class RH_Personal
 
             If IndexCuentaDepostito > -1 Then
                 Dim Row As DataRow = TempDTCuentasBancos.Rows(IndexCuentaDepostito)
+                Row("CveSATBanco") = CveSATBanco
                 Row("BancoNombre") = NombreBanco
                 Row("Sucursal") = NumeroSucursal
                 Row("CLABE") = CLABE
@@ -3594,7 +3565,6 @@ Partial Class RH_Personal
                 Row("CveMoneda") = CveMoneda
                 Row("Moneda") = Moneda
                 Row("BBVAAlias") = BBVAAlias
-                Row("CveSATBanco") = CveSATBanco
                 Row("EstatusPagoElectronico") = EstatusPagoElectronico
                 Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
                 Row("Correo") = Correo
@@ -3603,6 +3573,7 @@ Partial Class RH_Personal
 
             Else
                 Dim Row As DataRow = TempDTCuentasBancos.NewRow
+                Row("CveSATBanco") = CveSATBanco
                 Row("BancoNombre") = NombreBanco
                 Row("Sucursal") = NumeroSucursal
                 Row("CLABE") = CLABE
@@ -3615,18 +3586,13 @@ Partial Class RH_Personal
                 Row("CveMoneda") = CveMoneda
                 Row("Moneda") = Moneda
                 Row("BBVAAlias") = BBVAAlias
-                Row("CveSATBanco") = CveSATBanco
                 Row("EstatusPagoElectronico") = EstatusPagoElectronico
                 Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
                 Row("Correo") = Correo
                 Row("ConceptoCIE") = ConceptoCIE
                 TempDTCuentasBancos.Rows.Add(Row)
                 Row("EstatusTexto") = If(ChkEstatuscuenta.Checked, "Activo", "Inactivo")
-
             End If
-
-
-
         End If
 
         LimpiaCuentasBancarias()
@@ -3712,9 +3678,7 @@ Partial Class RH_Personal
         TxtCLABECB.Text = gvrow.DataKey("CLABE")
         ChkEstatusPagoE.Checked = gvrow.DataKey("EstatusPagoElectronico").ToUpper().Contiene("TRUE", "1")
         ChkEstatuscuenta.Checked = gvrow.DataKey("EstatusTexto").ToUpper().Contiene("TRUE", "1", "ACTIVO")
-
         'CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE
-        'DdlBancoSat
         TxtNombreBanco.Text = gvrow.DataKey("BancoNombre")
         TxtNumeroSucursal.Text = gvrow.DataKey("Sucursal")
         TxtSWIFT.Text = gvrow.DataKey("SWIFT")
@@ -3728,18 +3692,10 @@ Partial Class RH_Personal
         ChkPagoElectronicoGrupos.Checked = Boolean.Parse(gvrow.DataKey("EstatusPagoElectronicoGrupos").ToString)
         ChkEstatuscuenta.Checked = If(gvrow.DataKey("EstatusTexto").ToString = "Activo", True, False)
 
-
-
-        'CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE,EstatusTexto
-
-        'asdasd
-
         UpAddBancos.Update()
         RegistraScript("$('#DivAddCuentasBancarias').modal();")
     End Sub
     Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing
-
-
         GvBancosCuentas.EditIndex = e.NewEditIndex
         CargaGridCuentasBancos("")
     End Sub
@@ -3747,97 +3703,7 @@ Partial Class RH_Personal
         GvBancosCuentas.EditIndex = -1
         CargaGridCuentasBancos("")
     End Sub
-    Protected Sub GvBancosCuentas_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvBancosCuentas.RowUpdating
-        Dim NombreBanco As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNombreBanco").Text.Trim
-        Dim NumeroSucursal As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroSucursal").Text.Trim
-        Dim CLABE As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtCLABE").Text.Trim
-        Dim SWIFT As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtSWIFT").Text.Trim
-        Dim Plaza As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtPlaza").Text.Trim
-        Dim NumeroCuenta As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroCuenta").Text.Trim
-        Dim ConvenioCIE As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtConvenioCIE").Text.Trim
-        Dim Referencia As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtReferencia").Text.Trim
-        Dim CveMoneda As Integer = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedValue.ToString().ToEntero()
-        Dim Estatus As Boolean = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
-        Dim EstatusPagoElectronico As Boolean = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatusPagoE").Checked
 
-        Dim Moneda As String = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedItem.Text
-        Dim BBVAAlias As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtBBVAAlias").Text
-        Dim RefCrediProveedor As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtRefCrediProveedor").Text.Trim
-        Dim EsBancomer As Boolean = False
-
-        If NombreBanco.ToUpper.Contains("BBVA") Or NombreBanco.ToUpper.Contains("BANCOMER") Or (CLABE.Length = 18 AndAlso CLABE.Substring(0, 3) = "012") Then
-            EsBancomer = True
-        End If
-
-        If EsBancomer AndAlso (CLABE.Length = 18 AndAlso Not CLABE.Substring(0, 3) = "012") Then
-            Alert("La CLABE ingresada no pertenece a BANCOMER.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        ''CLABE SIEMPRE OBLIGATORIA CUANDO NO ES BANCOMER CON CIE
-        'If (CLABE.Trim.Length <> 18 And Not EsBancomer) Or (EsBancomer And ConvenioCIE.Trim.Length <> 6 And CLABE.Trim.Length <> 18) Then
-        '    Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-        '    Exit Sub
-        'End If
-
-        'CLABE SIEMPRE OBLIGATORIA SI NO ES BANCOMER
-        If CLABE.Trim.Length <> 18 And CLABE.Trim.Length = 0 And Not EsBancomer Then
-            Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        'SI CUENTA TIENE ALGO Y BANCO BANCOMER DEBE TENER UNA LOGITUD EXACTA DE 10
-        If NumeroCuenta.Trim.Length <> 0 AndAlso NumeroCuenta.Trim.Length <> 10 AndAlso EsBancomer Then
-            Alert("El número de cuenta debe tener una longitud de 10 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        'SI CLABE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 18
-        If CLABE.Trim.Length <> 0 AndAlso CLABE.Trim.Length <> 18 Then
-            Alert("La CLABE debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        'SI CIE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 6 Y REFERENCIA OBLIGATORIA
-        If (ConvenioCIE.Trim.Length <> 0 And ConvenioCIE.Trim.Length <> 6) Or (ConvenioCIE.Trim.Length = 6 And Referencia.Trim.Length < 3) Then
-            Alert("El Convenio CIE debe tener una longitud de 6 dígitos y se debe especificar una referencia. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        'CUANDO SEA "BBVA" O "BANCOMER" DEBE TENER "CIE" O "CUENTA"
-        If EsBancomer AndAlso Not (NumeroCuenta.Trim.Length = 10 Or ConvenioCIE.Trim.Length = 6) Then
-            Alert("Para cuentas BBVA BANCOMER es obligatorio el Número de Cuenta o CIE.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-        Dim ObjCuentasBancos As New ClsGenerales
-        If CvePersonal > 0 Then
-            If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, UsuarioActual.CveEmpresa, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico) Then
-                DTCuentasBancos.Clear()
-                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
-                Alert("Cuenta actualizada con exito.", TipoMensaje.MsgInformacion)
-
-            End If
-        Else
-            Dim index As Integer = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString().ToEntero() - 1
-            Dim Row As DataRow = TempDTCuentasBancos.Rows(index)
-            Row("BancoNombre") = NombreBanco
-            Row("Sucursal") = NumeroSucursal
-            Row("CLABE") = CLABE
-            Row("SWIFT") = SWIFT
-            Row("Plaza") = Plaza
-            Row("Cuenta") = NumeroCuenta
-            Row("CIE") = ConvenioCIE
-            Row("Referencia") = Referencia
-            Row("CveMoneda") = CveMoneda
-            Row("Moneda") = Moneda
-            TempDTCuentasBancos.AcceptChanges()
-        End If
-        ObjCuentasBancos.Dispose()
-
-        GvBancosCuentas.EditIndex = -1
-        CargaGridCuentasBancos("")
-        CargaGvBitacora()
-    End Sub
     Protected Sub GvBancosCuentas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvBancosCuentas.RowDeleting
         Dim ObjCuentasBancos As New ClsGenerales
 
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index ad0243b62..0c058efca 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -667,9 +667,7 @@ Partial Class RepContratosCalendario
                     resp = ObjFacturaCancelacion.CancelarFactura(0, CancelacionPagos:=CancelacionPagos, ValidarSAT:=False)
                     If resp.HuboError Then
                         TieneError = True
-                    Else
-                        RegistraScript("$('#ModalActualizar').modal('hide');")
-                        Alert("Actualizado Correctamente.")
+                        Alert("Se presento un error al Actualizar el contrato (Cancelación de factura).")
                     End If
                 End If
             End If
@@ -679,9 +677,13 @@ Partial Class RepContratosCalendario
 
         If TieneError Then
             ObjContratos.RollBack()
+            Alert("Se Presento un Error al Actualizar el Contrato.", TipoMensaje.MsgError)
         Else
             ObjContratos.Commit()
+            RegistraScript("$('#ModalActualizar').modal('hide');")
+            Alert("Contrato Actualizado Correctamente.")
         End If
+
         ObjContratos.Dispose()
         objGenerales.Dispose()
         ObjVentas.Dispose()
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index a16479691..c96b48497 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -845,6 +845,7 @@ Partial Class Ventas_ClientesAbonar
             If DtSaldo IsNot Nothing AndAlso DtSaldo.Rows.Count = 1 Then
                 Dim ImporteRef As Decimal = DtSaldo.SUM("Saldo", $"CveIE={DdlIngreso.SelectedValue.ToEntero()}")
                 Dim tCveMonedaIE As Integer = DtSaldo.FiltroPrimeroValor("CveMoneda", "").ToEntero
+                CveMoneda = tCveMonedaIE
                 Dim ImporteAbonar As Decimal = 0
                 Dim TC As Decimal = 1
                 'comparativo. 
@@ -895,18 +896,15 @@ Partial Class Ventas_ClientesAbonar
         Dim CveIE As Integer = -1
         Dim CveVentasPago As New List(Of Integer)
         Dim SeriesPago As New List(Of String)
-
         Dim MsgError As String = ""
         Dim NCGeneradas As New List(Of RespuestaNotaCredrito)
         Dim ListaFacturasGenerarNC As New List(Of Modelos.Factura)
         Dim ObjFacturaAnt As Modelos.Factura = Nothing
         Dim RespAnt As Modelos.Factura.MMensajeFactura = Nothing
         Dim ImporteSeleccionado As Decimal = 0
-
         '02-05-2018 MANDAMOS CANCELAR EL COMPLEMENTO A SUSTITUIR
         Dim ErrorCancelarIE As Boolean = False
 
-
         Dim ObjIE As New ClsBancos()
         Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
         Dim ObjVentasSaldos As New ClsVentas(ObjIE.IniciaTransacSQL)
@@ -927,9 +925,7 @@ Partial Class Ventas_ClientesAbonar
             Dim ConceptoPoliza As String = String.Format("{0} {1}", TxtAboneA.Text, TxtObservaciones.Text)
 
             If DdlCuenta.SelectedValue.ToEntero > 0 Then
-                CveMoneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
-            Else
-                CveMoneda = IfNull(Request("CveMoneda"), "1").ToString.ToEntero
+                CveMoneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $" CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
             End If
 
             CvePrePoliza = ObjMov.AddPrePolizas("Ventas/ClientesAbonar", 11, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -938,9 +934,7 @@ Partial Class Ventas_ClientesAbonar
                 Dim CveCuentaDeposito As Integer = 0
                 Dim TipoCambio As Decimal = 0
 
-                If DdlCuentaDeposito.Items.Count > 0 Then
-                    CveCuentaDeposito = DdlCuentaDeposito.SelectedValue.ToEntero
-                End If
+                If DdlCuentaDeposito.Items.Count > 0 Then CveCuentaDeposito = DdlCuentaDeposito.SelectedValue.ToEntero
 
                 If CveMoneda = 2 Then
                     If TxtTCDolares.Visible Then
@@ -1040,7 +1034,6 @@ Partial Class Ventas_ClientesAbonar
                                 MsgError = "No se pudo insertar la póliza"
                             End If
                         End If
-
                     End If
 
                     If TxtPrestamoIntereses.Text.ToDecimal <> 0 AndAlso MsgError = "" Then