diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 78d02e430..2baabb88f 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1514,8 +1514,7 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer,
-             Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
+    Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenGet")
@@ -1528,8 +1527,6 @@ Public Class ClsInventarios
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
             .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
-            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
         End With
 
         Try
@@ -1549,7 +1546,7 @@ Public Class ClsInventarios
     Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer,
                                                IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0,
                                                Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1",
-                                               Optional GPO As Integer = 1, Optional CodigoPS As String = "-1", Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
+                                               Optional GPO As Integer = 1, Optional CodigoPS As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1573,10 +1570,6 @@ Public Class ClsInventarios
             .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes
             .Add("@GPO", SqlDbType.Int).Value = GPO
             .Add("@CodigoPS", SqlDbType.VarChar).Value = CodigoPS
-            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
-            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
-
-
         End With
 
         Try
@@ -1839,7 +1832,7 @@ Public Class ClsInventarios
 
     Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, Almacenes As String,
                                    CveCategoria As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer, Optional CveMarca As String = "-1", Optional CvePersonal As Integer = -1,
-                                   Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1, Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
+                                   Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_ReporteMovimientos")
@@ -1862,8 +1855,6 @@ Public Class ClsInventarios
             .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
             .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen
             .Add("@Modalidad", SqlDbType.Int).Value = Modalidad
-            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
-            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
         End With
 
         Try
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 5dbbcc341..dac906bd5 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -8863,7 +8863,7 @@ Public Class ClsPaginas
 
         Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(1, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor)
         'cuando el Pago viene por NC, se utiliza un concepto
-        If Pago.TipoPago.Contiene("NC", "DEV") Then If CompraActual.CveMoneda = 2 Then ConPreP.CveConcepto = 304 Else ConPreP.CveConcepto = 272 'pago nota de crédito ME
+        If Pago.TipoPago.Contiene("NC", "DEV", "RNC") Then If CompraActual.CveMoneda = 2 Then ConPreP.CveConcepto = 304 Else ConPreP.CveConcepto = 272 'pago nota de crédito ME
         'cuando el Pago viene por Venta, se utiliza un concepto
         'If Pago.TipoPago.Contiene("Venta") Then If CompraActual.CveMoneda = 2 Then ConPreP.CveConcepto = 275 Else ConPreP.CveConcepto = 275 'Pago Compra con Venta
 
@@ -9163,24 +9163,6 @@ Public Class ClsPaginas
                     Ret.CveConceptoAcreditable = 333
                     Ret.CveConceptoxAcreditar = 334
                 End If
-                'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                '    Dim ObjConta As New ClsContabilidad
-                '    If UsuarioActual.Empresa.Funcionalidad(FuncionalidadxAcred).ToEntero > 0 Then
-                '        Ret.IdCtaContablexAcreditar = UsuarioActual.Empresa.Funcionalidad(FuncionalidadxAcred).ToEntero
-                '    Else
-                '        If ObjConta.GetRetCuenta(Ret.CveConceptoxAcreditar, UsuarioActual.CveEmpresa) Then
-                '            If ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                '        End If
-                '    End If
-                '    If UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
-                '        Ret.IdCtaContableAcreditable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
-                '    Else
-                '        If ObjConta.GetRetCuenta(Ret.CveConceptoAcreditable, UsuarioActual.CveEmpresa) Then
-                '            If ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                '        End If
-                '    End If
-                '    ObjConta.Dispose()
-                'End If
                 Return Ret
             End Get
         End Property
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 6dc7cc9bd..28c10e7e6 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -2428,30 +2428,30 @@ Public Class Timbrado
                 Next
             End If
 
-            'If Ventas.CveComplementoTimbrado > 0 Then
+            If Ventas.CveComplementoTimbrado > 0 Then
 
-            '    Select Case Ventas.CveComplementoTimbrado
-            '        Case 5 'INE Proceso Ordinario  Directivo Estatal"
-            '            cfdi.Ine11("Ordinario", "Directivo Estatal", "0")
+                Select Case Ventas.CveComplementoTimbrado
+                    Case 5 'INE Proceso Ordinario  Directivo Estatal"
+                        cfdi.Ine11("Ordinario", "Directivo Estatal", "0")
 
-            '            cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
-            '            cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
-            '        Case 6 'INE Proceso Ordinario  Ejecutivo Estatal"
-            '            cfdi.Ine11("Ordinario", "Ejecutivo Estatal", "0")
+                        cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
+                        If Ventas.ComplementoINE.INEIdContabilidad > 0 Then cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
+                    Case 6 'INE Proceso Ordinario  Ejecutivo Estatal"
+                        cfdi.Ine11("Ordinario", "Ejecutivo Estatal", "0")
 
-            '            cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
-            '            cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
-            '        Case 7   'INE Proceso Ordinario  Ejecutivo Nacional"
+                        cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
+                        If Ventas.ComplementoINE.INEIdContabilidad > 0 Then cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
+                    Case 7   'INE Proceso Ordinario  Ejecutivo Nacional"
 
-            '            cfdi.Ine11("Ordinario", "Ejecutivo Nacional", Ventas.ComplementoINE.INEIdContabilidad.ToString)
-            '        Case 8 'INE PreCampaña
-            '            cfdi.Ine11(Ventas.ComplementoINE.INETipoProceso, "", "0")
+                        cfdi.Ine11("Ordinario", "Ejecutivo Nacional", Ventas.ComplementoINE.INEIdContabilidad.ToString)
+                    Case 8 'INE PreCampaña
+                        cfdi.Ine11(Ventas.ComplementoINE.INETipoProceso, "", "")
 
-            '            cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, Ventas.ComplementoINE.INETipoComite)
-            '            cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
-            '    End Select
+                        cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, Ventas.ComplementoINE.INETipoComite)
+                        'If Ventas.ComplementoINE.INEIdContabilidad > 0 Then cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
+                End Select
 
-            'End If
+            End If
 
 
 
diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index d687afed7..45747d1ea 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -287,13 +287,9 @@
             <div class="row rowcheck truncate" id="DivRowCuenta" style="margin-top: -15px;" runat="server" visible="false" >
 
                 <div class="col-md-1" runat="server" id="Div3" style="width: 155px">
-                    <asp:CheckBox ID="ChkCuentaRetorno" runat="server" Text="Cuenta" CssClass="checkbox" />
+                    <asp:CheckBox ID="ChkCuentaRetorno" runat="server" Text="Caja" CssClass="checkbox" />
                 </div>
-                <div class="col-md-10 rowcheckCampos" id="DivRowCuenta2" style="display: none">
-                    <div class="col-md-3" id="ddd" style="padding-right: 150px;">
-                        <label>Cuenta:</label>
-                        <asp:DropDownList ID="DdlCajaChicaRetorno" CssClassDdl="select2me" Width="150px" CssStyle="100%" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" runat="server"></asp:DropDownList> 
-                    </div>
+                <div class="col-md-10 rowcheckCampos" id="DivRowCuenta2" style="display: none">                    
                     <div class="col-md-2" style="width: 205px;">
                         <div class="col-md-6" id="DivCuentaImporte" style="padding-left: 0px; padding-right: 0px;">
                             <label>Importe:</label>
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index 471cde81e..ca047fa89 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -57,9 +57,6 @@ Partial Class Bancos_DepositosCaja
             divFolio.Visible = True
         End If
 
-        DdlCajaChicaRetorno.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
-        DdlCajaChicaRetorno.DataBind()
-
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             DivRowCuenta.Visible = True
         End If
@@ -350,8 +347,8 @@ Partial Class Bancos_DepositosCaja
 
             If Not OcurrioError AndAlso ChkCuentaRetorno.Checked Then
                 CveTransaccionBanco = 13
-                FolioIE = ObjBancos.GetNextFolio(DdlCajaChicaRetorno.SelectedValue.ToEntero, CveTransaccionBanco)
-                CveIEOrigen = ObjBancos.AddBancos_IE(DdlCajaChicaRetorno.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Retorno Depósito Bancario", CuentaRetorno, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, CveTransaccionBanco)
+                CveIEOrigen = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Retorno Depósito Bancario", CuentaRetorno, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                 If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, CuentaRetorno, CuentaRetorno * TipoCambio, 30, "", "Retorno", CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen) Then
                     OcurrioError = True
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 2effb9bda..21147d7f7 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1689,12 +1689,6 @@ Partial Class Compras_Compras
                 DdlTipoComprobante.Items.Add(New ListItem("Devolución", "DEV"))
                 DdlTipoComprobante.SelectedValueExist("DEV")
             End If
-
-            If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
-                DdlTipoCompra.Items.Add(New ListItem("Remision Nota De Crédito", "15"))
-            End If
-
-
         End If
 
         'SE OCUPAN AFUERA DEL POSTBACK ??
@@ -7013,56 +7007,31 @@ Partial Class Compras_Compras
                                                                 End If
                                                             End If
                                                         Next
+                                                        If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then
 
+                                                            If DdlRemisionNotaCredito.SelectedValue.ToEntero > 0 AndAlso ImporteRNCSaldar > 0 Then
 
-                                                        If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso DdlRemisionNotaCredito.SelectedValue.ToEntero > 0 AndAlso ImporteRNCSaldar > 0 Then
+                                                                If Not ErrorPrepoliza Then
+                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteRNCSaldar, ImporteRNCSaldar, 373, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio,
+                                                                                                        CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then
+                                                                        ErrorPrepoliza = True
+                                                                    End If
 
-                                                            'Dim importeMovimientoNC As Decimal = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
+                                                                    If Not ErrorPrepoliza Then
+                                                                        Dim ConPrePNC As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(15, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor)
 
-                                                            Dim Pago As New CompraPago
-                                                            Pago.ImportePago = ImporteRNCSaldar
-                                                            Pago.CveMonedaPago = CompraActual.CveMoneda
-                                                            Pago.CveCompraAmortizacion = CompraActual.CveCompra
-                                                            Pago.Referencia = CompraActual.SerieFolio
-                                                            Pago.TCPago = CompraActual.TC
-                                                            Pago.AplicaAcreditable = False
-                                                            Pago.TipoPago = "RNC"
-                                                            Pago.Fecha = CompraActual.Fecha 'toma la misma fecha de la provisión en el pago de NC
+                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteRNCSaldar, ImporteRNCSaldar, ConPrePNC.CveConcepto, Referencia, Concepto, CveCompra:=CompraActual.CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio,
+                                                                                                                CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then
+                                                                            ErrorPrepoliza = True
+                                                                        End If
+                                                                    End If
+                                                                End If
+                                                            End If
 
-                                                            Dim CompraPago As New Compra
-                                                            ''datos de la compra tipodocto:Fac, para sobreescribirlos
-                                                            CompraPago.CveCompra = DdlRemisionNotaCredito.SelectedValue.ToEntero
-                                                            CompraPago.CveProveedor = DdlProveedor.SelectedValue.ToEntero
-                                                            CompraPago.SerieFolio = SerieFolioProntoPago
-                                                            CompraPago.TC = TipoCambioProntoPago
-                                                            CompraPago.Fecha = FechaProntoPago
-                                                            CompraPago.CveMoneda = CveMonedaProntoPago
-                                                            CompraPago.Total = ImporteRNCSaldar
-                                                            CompraPago.CveTipoConceptoProveedor = CveTipoConcepto
-                                                            CompraPago.CveSubProyecto = CompraActual.CveSubProyecto
-
-                                                            ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraPago, Pago, CvePrePoliza, ObjConta)
-
-                                                            'If Not ErrorPrepoliza Then
-                                                            '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteRNCSaldar, ImporteRNCSaldar, 371, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio,
-                                                            '                                        CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then
-                                                            '        ErrorPrepoliza = True
-                                                            '    End If
-
-                                                            '    If Not ErrorPrepoliza Then
-                                                            '        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteRNCSaldar, ImporteRNCSaldar, 372, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio,
-                                                            '                                                CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then
-                                                            '            ErrorPrepoliza = True
-                                                            '        End If
-                                                            '    End If
-                                                            'End If
-
-
-                                                        End If
-
-                                                        If ErrorPrepoliza Then
-                                                            ErrorMovtosCxP = True
-                                                            Exit Select
+                                                            If ErrorPrepoliza Then
+                                                                ErrorMovtosCxP = True
+                                                                Exit Select
+                                                            End If
                                                         End If
 
                                                         importeMovimiento = 0
@@ -7627,8 +7596,8 @@ Partial Class Compras_Compras
                                     End If
 
 
-                                    If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso (ImporteRNC > 0 Or ImporteRNCProntoPago > 0) Then
-                                        If Not GeneraRemisionsNotadeCredito(ObjCompras.IniciaTransacSQL, CveCompra) Then
+                                    If UsuarioActual.Empresa.Funcionalidad(574) = "1" AndAlso (ImporteRNC > 0 Or ImporteRNCProntoPago > 0) Then
+                                        If Not GeneraRNC(ObjCompras.IniciaTransacSQL, CveCompra, CompraActual, ObjConta, CvePrePoliza) Then
                                             TieneError = True
                                         End If
                                     End If
@@ -14738,10 +14707,6 @@ Partial Class Compras_Compras
             IndexTmpOriginal += 1
         Next
 
-
-
-
-
         If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso (AjusteProntoPagoConIVA > 0 Or AjusteProntoPagoSinIVA > 0) Then
 
             Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero
@@ -15680,6 +15645,13 @@ Partial Class Compras_Compras
             If DdlTipoComprobante.SelectedValue = "NC" Then
                 DivReembolso.Visible = False
                 RBLPago.Items(2).Enabled = False
+                If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then
+                    If DdlTipoCompra.Items.FindByValue("15") Is Nothing Then
+                        DdlTipoCompra.Items.Add(New ListItem("Remision Nota De Crédito", "15"))
+                        UpEstatus.Update()
+                    End If
+
+                End If
             Else
                 DivReembolso.Visible = True
                 RBLPago.Items(2).Enabled = True
@@ -19540,20 +19512,18 @@ Partial Class Compras_Compras
 
             If DdlTipoComprobante.SelectedValue = "NC" Then
                 CargaDdlRemisionNotaCredito()
+                'bloquear la vinculación a la compra
+                HLAplicaNCFact.Visible = False
             Else
                 Alert("Para elegir Remisión de Nota de Crédito el tipo de documento debe de ser Nota de Crédito.", TipoMensaje.MsgAdvertencia)
                 DdlRemisionNotaCredito.SelectedValueExist(-1)
                 DdlTipoCompra.SelectedValueExist(-1)
             End If
-
-
         End If
 
-
     End Sub
 
 
-
 #End Region
 
 #Region "GARANTÍAS"
@@ -20875,7 +20845,7 @@ Partial Class Compras_Compras
 
 #Region "PRONTO PAGO"
 
-    Public Function GeneraRemisionsNotadeCredito(ByRef trasaccion As SqlTransaction, CveCompraRegistrada As Integer) As Boolean
+    Public Function GeneraRNC(ByRef sqltransaccion As SqlTransaction, CveCompraRegistrada As Integer, ByRef CompraActual As Compra, ByRef ObjConta As ClsContabilidad, CvePrePoliza As Integer) As Boolean
         Dim respuesta As Boolean = True
         Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
 
@@ -20898,20 +20868,20 @@ Partial Class Compras_Compras
 
         If PSRow IsNot Nothing Then
 
-            Dim CompraRNC As New ClsCompraManagerCompras("", ClsCompraManagerCompras.EnumCargaCompra.SinXML, GlobalDTTiposGastos(UsuarioActual.CveEmpresa), UsuarioActual)
-            CompraRNC.CveFactura = -1
-            CompraRNC.CveProveedor = DdlProveedor.SelectedValue.ToEntero
-            CompraRNC.CveTipoProveedor = CveTipoProveedor
-            CompraRNC.CveTipoConceptoProveedor = CveTipoConcepto
-            CompraRNC.TipoCompra = ClsCompraManagerCompras.EnumTipoCompra.Sin_definir
-            CompraRNC.IEPSGasto = False
-            CompraRNC.Descripcion = $"Remisión Nota de Crédito {TxtDescripcion.Text}"
-            CompraRNC.NombreProveedor = DdlProveedor.SelectedItem.Text
-            CompraRNC.Fecha = TxtFecha.Text.ToDate
-            CompraRNC.CveMoneda = DdlMoneda.SelectedValue.ToEntero
-            CompraRNC.Serie = TxtSerie.Text
-            CompraRNC.Folio = TxtFolio.Text
-            CompraRNC.CveCompraAmortizacion = CveCompraRegistrada
+            Dim CompraRNC As New ClsCompraManagerCompras(UsuarioActual) With {
+                .CveFactura = -1,
+                .TipoDocto = "RNC",
+                .CveProveedor = DdlProveedor.SelectedValue.ToEntero,
+                .CveTipoProveedor = CveTipoProveedor,
+                .CveTipoConceptoProveedor = CveTipoConcepto,
+                .Descripcion = $"Remisión Nota de Crédito {TxtDescripcion.Text}",
+                .NombreProveedor = DdlProveedor.SelectedItem.Text,
+                .Fecha = TxtFecha.Text.ToDate,
+                .CveMoneda = DdlMoneda.SelectedValue.ToEntero,
+                .Serie = TxtSerie.Text,
+                .Folio = TxtFolio.Text,
+                .CveCompraAmortizacion = CveCompraRegistrada
+            }
 
             Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
             If PSRow("CvePSCargo").ToString <> "" Then
@@ -20925,42 +20895,62 @@ Partial Class Compras_Compras
             Dim UM As String = PSRow("UnidadMedida").ToString
             Dim IVARNC As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)
 
-
-            CompraRNC.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC, (ImporteRNC + IVARNC), IVARNC)
-            If Not CompraRNC.AddCompraRNC(trasaccion) Then
+            CompraRNC.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC, IVARNC, (ImporteRNC + IVARNC), PorcentajeIVA)
+            If CompraRNC.AddCompra(sqltransaccion) Then
+                Dim tImporteRNC = ImporteRNC + IVARNC ' le agrego el importe del iva
+                Dim Pago As New CompraPago
+                Pago.ImportePago = tImporteRNC
+                Pago.CveMonedaPago = CompraActual.CveMoneda
+                Pago.CveCompraAmortizacion = CompraRNC.CveCompra
+                Pago.Referencia = CompraRNC.SerieFolio
+                Pago.TCPago = CompraActual.TC
+                Pago.AplicaAcreditable = False
+                Pago.TipoPago = "RNC"
+                Pago.Fecha = CompraActual.Fecha 'toma la misma fecha de la provisión en el pago de NC
+                respuesta = Not AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
+            Else
                 respuesta = False
             End If
 
-            If respuesta Then
+            If respuesta AndAlso ImporteRNCProntoPago > 0 Then
 
-                Dim CompraRNCProntoPAgo As New ClsCompraManagerCompras("", ClsCompraManagerCompras.EnumCargaCompra.SinXML, GlobalDTTiposGastos(UsuarioActual.CveEmpresa), UsuarioActual)
-                CompraRNCProntoPAgo.CveFactura = -1
-                CompraRNCProntoPAgo.CveProveedor = DdlProveedor.SelectedValue.ToEntero
-                CompraRNCProntoPAgo.CveTipoProveedor = CveTipoProveedor
-                CompraRNCProntoPAgo.CveTipoConceptoProveedor = CveTipoConcepto
-                CompraRNCProntoPAgo.TipoCompra = ClsCompraManagerCompras.EnumTipoCompra.Sin_definir
-                CompraRNCProntoPAgo.IEPSGasto = False
-                CompraRNCProntoPAgo.Descripcion = $"Remisión Nota de Crédito {TxtDescripcion.Text}"
-                CompraRNCProntoPAgo.NombreProveedor = DdlProveedor.SelectedItem.Text
-                CompraRNCProntoPAgo.Fecha = TxtFecha.Text.ToDate
-                CompraRNCProntoPAgo.CveMoneda = DdlMoneda.SelectedValue.ToEntero
-                CompraRNCProntoPAgo.Serie = $"PP-{TxtSerie.Text}"
-                CompraRNCProntoPAgo.Folio = $"{TxtFolio.Text}"
-                CompraRNCProntoPAgo.CveCompraAmortizacion = CveCompraRegistrada
-                Dim IVARNCProntoPago As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)
+                Dim CompraRNCProntoPago As New ClsCompraManagerCompras(UsuarioActual) With {
+                    .TipoDocto = "RNC",
+                    .CveProveedor = DdlProveedor.SelectedValue.ToEntero,
+                    .CveTipoProveedor = CveTipoProveedor,
+                    .CveTipoConceptoProveedor = CveTipoConcepto,
+                    .Descripcion = $"Remisión Nota de Crédito {TxtDescripcion.Text}",
+                    .NombreProveedor = DdlProveedor.SelectedItem.Text,
+                    .Fecha = TxtFecha.Text.ToDate,
+                    .CveMoneda = DdlMoneda.SelectedValue.ToEntero,
+                    .Serie = $"PP-{TxtSerie.Text}",
+                    .Folio = $"{TxtFolio.Text}",
+                    .CveCompraAmortizacion = CveCompraRegistrada
+                }
+                Dim IVARNCProntoPago As Decimal = (ImporteRNCProntoPago * PorcentajeIVA).RoundSQL(2)
 
-                CompraRNCProntoPAgo.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, (ImporteRNCProntoPago + IVARNCProntoPago), IVARNCProntoPago)
-                If Not CompraRNCProntoPAgo.AddCompraRNC(trasaccion) Then
+                CompraRNCProntoPago.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, (ImporteRNCProntoPago + IVARNCProntoPago), IVARNCProntoPago, PorcentajeIVA)
+                If CompraRNCProntoPago.AddCompra(sqltransaccion) Then
+                    Dim tImporteRNCProntoPago = ImporteRNCProntoPago + IVARNC ' le agrego el importe del iva
+                    Dim Pago As New CompraPago
+                    Pago.ImportePago = tImporteRNCProntoPago
+                    Pago.CveMonedaPago = CompraActual.CveMoneda
+                    Pago.CveCompraAmortizacion = CompraRNCProntoPago.CveCompra
+                    Pago.Referencia = CompraRNCProntoPago.SerieFolio
+                    Pago.TCPago = CompraActual.TC
+                    Pago.AplicaAcreditable = False
+                    Pago.TipoPago = "RNC"
+                    Pago.Fecha = CompraActual.Fecha 'toma la misma fecha de la provisión en el pago de NC
+                    respuesta = Not AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
+                Else
                     respuesta = False
                 End If
-
             End If
         End If
 
         Return respuesta
     End Function
 
-
     Public Property VincularOcProntoPago As Boolean
         Get
             If ViewState("VincularOcProntoPago") Is Nothing Then
@@ -20978,12 +20968,11 @@ Partial Class Compras_Compras
         If VincularOcProntoPago Then
             Return True
         Else
-
+            Dim StrMsg As String = $"Existe una diferencia de ${(ImporteRNC + ImporteRNCProntoPago).ToString("###,###,###.00")} entre la compra y la Orden de Compra. <br/> Se generaran Remisiones de Nota de Crédito. <br/> - Descuento de ${ImporteRNC.ToString("###,###,###.00")}.<br/>"
             If ImporteRNCProntoPago > 0 Then
-                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC + ImporteRNCProntoPago).ToString("###,###,###.00")} entre la compra y la Orden de Compra. <br/> Se generaran las siguientes Remisiones de Nota de Crédito. <br/> - Descuento de ${ImporteRNC.ToString("###,###,###.00")}.<br/> - Pronto pago de ${ImporteRNCProntoPago.ToString("###,###,###.00")}"
-            Else
-                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generara una Remision de Nota de Crédito por descuento de ${ImporteRNC.ToString("###,###,###.00")}"
+                StrMsg = StrMsg & $"- Pronto pago de ${ImporteRNCProntoPago.ToString("###,###,###.00")}"
             End If
+            LblModalConfirmaVinculacionProntoPago.Text = StrMsg
 
             RegistraScript("$('#DVModalConfirmaVinculacionProntoPago').modal('show');")
             UpModalConfirmaVinculacionProntoPago.Update()
@@ -21010,15 +20999,12 @@ Partial Class Compras_Compras
         If ObjCompras.GetNotasCreditoRep(DdlProveedor.SelectedValue.ToEntero, 0, "-1", "-1", UsuarioActual.CveEmpresa, 2) Then
             DdlRemisionNotaCredito.DataSource = ObjCompras.DtResultados
             DTRemisionesNotaDeCredito = ObjCompras.DtResultados
-        Else
-            Alert("Ocurrió un error al obtener el catálogo de Notas de Crédito", Extensiones.TipoMensaje.MsgError)
         End If
 
         ObjCompras.Dispose()
 
         DdlRemisionNotaCredito.DataBind()
         DdlRemisionNotaCredito.Items.Insert(0, New ListItem("-", "-1"))
-
         UpEstatus.Update()
 
     End Sub
@@ -21077,11 +21063,11 @@ Public Class ClsCompraManagerCompras
     End Enum
     Public Enum EnumCFDIVersion
         v32
-        V33
-        V40
+        v33
+        v40
     End Enum
     Public Enum EnumTipoCompra
-        Sin_definir = -1
+        SinDefinir = -1
         Gasto_con_almacen = 10
         Activo_Fijo = 1
         'Costo_Indirecto = 2
@@ -21120,7 +21106,7 @@ Public Class ClsCompraManagerCompras
     Public Property Folio As String = ""
     Public Property FolioSecundario As String = ""
     Public Property Descripcion As String = ""
-    Public Property CFDIVersion As EnumCFDIVersion = EnumCFDIVersion.V40
+    Public Property CFDIVersion As EnumCFDIVersion = EnumCFDIVersion.v40
     Public Property ProveedorNombre As String = ""
     Public Property EsImportacion As Boolean = False
     Public Property TC As Decimal = 1
@@ -21130,6 +21116,7 @@ Public Class ClsCompraManagerCompras
     Public Property Total As Decimal = 0D
     Public Property Moneda As String = ""
     Public Property TipoComprobante As String
+    Public Property TipoDocto As String = "Fac"
     Public Property TipoCambio As Decimal = 1
     Public Property CompraNoDeducible As Integer = 0
     Public Property IVA As Decimal = 0D
@@ -21277,7 +21264,7 @@ Public Class ClsCompraManagerCompras
     Public Property Proyecto As String = ""
     Public Property CveProyecto As Integer = -1
     Public Property SubProyecto As String = ""
-    Public Property TipoCompra As EnumTipoCompra = EnumTipoCompra.Sin_definir
+    Public Property TipoCompra As EnumTipoCompra = EnumTipoCompra.SinDefinir
     Private Property DTTiposGastos() As DataTable
     Public Property CveTipoProveedor As Integer = -1
     Public Property IEPSGasto As Boolean = False
@@ -21290,14 +21277,19 @@ Public Class ClsCompraManagerCompras
     Public Property CveIE As Integer = -1
     Public Property CveCompraAmortizacion As Integer = -1
 
-    Public Sub New(XmlFuente As String, OpcionCarga As EnumCargaCompra, DTTiposGastos As DataTable, UsuarioActual As Usuario)
+    Public Sub New(UsuarioActual As Usuario)
 
         Errores = New StringBuilder
 
-        Me.DTTiposGastos = DTTiposGastos
         Me.UsuarioActual = UsuarioActual
 
+    End Sub
 
+    Public Sub New(XmlFuente As String, OpcionCarga As EnumCargaCompra, DTTiposGastos As DataTable, UsuarioActual As Usuario)
+
+        Errores = New StringBuilder
+        Me.DTTiposGastos = DTTiposGastos
+        Me.UsuarioActual = UsuarioActual
 
         If OpcionCarga = EnumCargaCompra.SinXML Then
 
@@ -21308,11 +21300,10 @@ Public Class ClsCompraManagerCompras
                 CargaDesdeString(XmlFuente)
             End If
         End If
-
-
-
     End Sub
 
+#Region "C  A  R  G  A  S    D E    F U E N T E S  "
+
     Private Sub CargaDesdeArchivo(XmlFuenteRuta As String)
 
         Dim XMLDoc As New XmlDocument
@@ -21358,7 +21349,6 @@ Public Class ClsCompraManagerCompras
         End If
 
     End Sub
-
     Private Sub CargaComprobanteXML(XMLDoc As XmlDocument)
         Dim nodo As XmlNode = XMLDoc.DocumentElement
 
@@ -21369,9 +21359,9 @@ Public Class ClsCompraManagerCompras
         If StrCFDIVerion = "3.2" Then
             CFDIVersion = EnumCFDIVersion.v32
         ElseIf StrCFDIVerion = "3.3" Then
-            CFDIVersion = EnumCFDIVersion.V33
+            CFDIVersion = EnumCFDIVersion.v33
         ElseIf StrCFDIVerion = "4.0" Then
-            CFDIVersion = EnumCFDIVersion.V40
+            CFDIVersion = EnumCFDIVersion.v40
         Else
             GuardaLog($"CFDI Versión {StrCFDIVerion} no soportada")
             Errores.AppendLine($"CFDI Versión {StrCFDIVerion} no soportada")
@@ -21397,7 +21387,7 @@ Public Class ClsCompraManagerCompras
         TipoComprobante = ValorXML(nodo, "tipoDeComprobante")
         TipoCambio = ValorXML(nodo, "TipoCambio", "1").ToDecimal
 
-        If CFDIVersion = EnumCFDIVersion.V33 Or CFDIVersion = EnumCFDIVersion.V40 Then
+        If CFDIVersion = EnumCFDIVersion.v33 Or CFDIVersion = EnumCFDIVersion.v40 Then
             Dim drm As DataRow = GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago")))
             If drm IsNot Nothing Then
                 CveMetodoPago = drm("CveMetodoPago").ToString.ToEntero
@@ -21412,7 +21402,7 @@ Public Class ClsCompraManagerCompras
         If CFDIVersion = EnumCFDIVersion.v32 Then
             Prefijo = "cfd"
             cfdVer = "http://www.sat.gob.mx/cfd/2"
-        ElseIf CFDIVersion = EnumCFDIVersion.V33 Then
+        ElseIf CFDIVersion = EnumCFDIVersion.v33 Then
             cfdVer = "http://www.sat.gob.mx/cfd/3"
         Else ' se considera que es la version 4.0
             cfdVer = "http://www.sat.gob.mx/cfd/4"
@@ -21423,7 +21413,7 @@ Public Class ClsCompraManagerCompras
         namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
         namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
 
-        If TipoComprobante.ToUpper = "E" AndAlso (CFDIVersion = EnumCFDIVersion.V33 OrElse CFDIVersion = EnumCFDIVersion.V40) Then
+        If TipoComprobante.ToUpper = "E" AndAlso (CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40) Then
             Dim UUIDS As String = ""
 
             Dim UUIDSLista As New List(Of String)
@@ -21473,7 +21463,7 @@ Public Class ClsCompraManagerCompras
 
             TotalRetenciones = ValorXML(node, "totalImpuestosRetenidos", "0").ToDecimal
 
-            If CFDIVersion = EnumCFDIVersion.V33 OrElse CFDIVersion = EnumCFDIVersion.V40 Then
+            If CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40 Then
 
                 For Each retencion As XmlNode In nodeRetenciones
                     If retencion.Attributes("Impuesto").Value = "002" Then RetencionIVA += retencion.Attributes("Importe").Value.ToDecimal
@@ -21493,7 +21483,7 @@ Public Class ClsCompraManagerCompras
             TotalTraslados = ValorXML(node, "totalImpuestosTrasladados", "0").ToDecimal
             Dim nodeTraslados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Impuestos/{0}:Traslados/{0}:Traslado", Prefijo), namespaces)
 
-            If CFDIVersion = EnumCFDIVersion.V33 OrElse CFDIVersion = EnumCFDIVersion.V40 Then
+            If CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40 Then
 
                 For Each traslado As XmlNode In nodeTraslados
 
@@ -21594,7 +21584,7 @@ Public Class ClsCompraManagerCompras
 
         ObjeFacturas.Dispose()
 
-        If CFDIVersion = EnumCFDIVersion.V33 OrElse CFDIVersion = EnumCFDIVersion.V40 Then
+        If CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40 Then
             If Not TmpDT.Columns.Contains("Amortizacion") Then
                 TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
             End If
@@ -21607,6 +21597,8 @@ Public Class ClsCompraManagerCompras
 #End Region
     End Sub
 
+#End Region
+
     Public Function ConfiguraRegistroRapidoReembolso(CvePS As Integer, CveSubProyecto As Integer, CveCajaChica As Integer, CvePersonal As Integer, CveRetIVAConcepto As Integer, CveRetISRConcepto As Integer, NumeroReembolso As String) As Boolean
 
         Dim respuesta As Boolean = True
@@ -21653,8 +21645,8 @@ Public Class ClsCompraManagerCompras
         Return respuesta
 
     End Function
-    Public Function ConfiguraRegistroRapidoRNC(CvePS As Integer, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, PS As String, CveSubProyecto As Integer, SubProyecto As String,
-                                               SubTotal As Decimal, Total As Decimal, IVA As Decimal) As Boolean
+    Public Function ConfiguraRegistroRapido(CvePS As Integer, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, PS As String, CveSubProyecto As Integer, SubProyecto As String,
+                                               SubTotal As Decimal, IVA As Decimal, Total As Decimal, PorcentajeIVA As Decimal) As Boolean
 
         Dim respuesta As Boolean = True
         Me.CveSubProyecto = CveSubProyecto
@@ -21668,7 +21660,7 @@ Public Class ClsCompraManagerCompras
         Me.SubTotal = SubTotal
         Me.IVA = IVA
         Me.Total = Total
-
+        Me.PorcentajeIVA = PorcentajeIVA
 
         Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
 
@@ -21681,9 +21673,8 @@ Public Class ClsCompraManagerCompras
             Return False
         End If
 
-
         CreaDTCompras()
-        AddPS(1, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, 1, CveSubProyecto.ToString, SubProyecto, "", "-1", "", SubTotal, SubTotal, 0, 0, 0, 0, 0, 0)
+        AddPS(1, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, 1, CveSubProyecto.ToString, SubProyecto, "", "-1", "", SubTotal, Total, 0, 0, 0, 0, 0, 0, PorcentajeIVA:=PorcentajeIVA)
 
         'If respuesta AndAlso IEPS > 0 Then
         '    If Not AgregaIEPSReembolso(CvePS:=CvePS) Then
@@ -22551,16 +22542,16 @@ Public Class ClsCompraManagerCompras
                 Row("IVA") = 0
                 Row("IVAPorcentaje") = 0
             Else
-                Row("IVA") = (IVA * Total).RoundSQL
-                Row("IVAPorcentaje") = IVA
+                Row("IVA") = (PorcentajeIVA * Total).RoundSQL
+                Row("IVAPorcentaje") = PorcentajeIVA
             End If
 
-            Row("RetIVA") = (RetIVA * Total).RoundSQL
-            Row("RetIVAPorcentaje") = RetIVA
-            Row("RetISR") = (RetISR * Total).RoundSQL
-            Row("RetISRPorcentaje") = RetISR
-            Row("IEPSPS") = (IEPSPS * Total).RoundSQL
-            Row("IEPSPSPorcentaje") = IEPSPS
+            Row("RetIVA") = (PorcentajeRetIVA * Total).RoundSQL
+            Row("RetIVAPorcentaje") = PorcentajeRetIVA
+            Row("RetISR") = (PorcentajeRetISR * Total).RoundSQL
+            Row("RetISRPorcentaje") = PorcentajeRetISR
+            Row("IEPSPS") = (PorcentajeIEPS * Total).RoundSQL
+            Row("IEPSPSPorcentaje") = PorcentajeIEPS
         End If
 
         Row("ImporteConImpuestos") = (Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal) + Row("IVA").ToString.ToDecimal + Row("IEPSPS").ToString.ToDecimal - (Row("RetIVA").ToString.ToDecimal + Row("RetISR").ToString.ToDecimal)
@@ -22885,19 +22876,25 @@ Public Class ClsCompraManagerCompras
         End If
     End Function
 
-    Public Function AddCompra() As Boolean
+    Public Function AddCompra(Optional ByRef transacccion As SqlTransaction = Nothing) As Boolean
 
         If Not AjustesValidacion() Then Return False
 
         Dim respuesta As Boolean = True
-        Dim ObjCompras As New ClsCompras
+        Dim ObjCompras As ClsCompras
+
+        If transacccion IsNot Nothing Then
+            ObjCompras = New ClsCompras(transacccion)
+        Else
+            ObjCompras = New ClsCompras
+        End If
         Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
 
         If Not AddPrepolizaCabecera(ObjConta) Then
             respuesta = False
         End If
 
-        If respuesta AndAlso ObjCompras.AddCompra(If(Me.TipoComprobante = "I", "Fac", "NC"), Me.Descripcion, Me.Serie, Me.Folio, Me.FolioSecundario, Me.CveProveedor, Me.SubTotal, Me.Descuento,
+        If respuesta AndAlso ObjCompras.AddCompra(Me.TipoDocto, Me.Descripcion, Me.Serie, Me.Folio, Me.FolioSecundario, Me.CveProveedor, Me.SubTotal, Me.Descuento,
                           Me.Amortizacion, Me.IVA, Me.RetIVA, Me.RetISR, Me.IEPS, Me.OtrosImpuestos,
                           Me.Redondeo, Me.Total, Me.Fecha, Me.CveMoneda, Me.TipoCambio, If(Me.FechaPago = Nothing, Me.Fecha, Me.FechaPago), Me.AplicaNotaCredito, Me.Observaciones, Me.CveEstatusFactura,
                           Me.CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.IdPoliza, CveCajaChica:=Me.CveCajaChica, CvePersonal:=Me.CvePersonal, NumeroReembolso:=Me.NumeroReembolso, CveProveedorSucursal:=Me.CveProveedorSucursal,
@@ -22948,111 +22945,31 @@ Public Class ClsCompraManagerCompras
             End If
         End If
 
-        If respuesta Then
+        If respuesta AndAlso Me.CveFactura > 0 Then
             If Not ObjCompras.UpdateCompraFactura(Me.CveCompra, Me.CveFactura, Me.Serie, Me.Folio) Then respuesta = False
         End If
 
-        If respuesta Then
-            ObjCompras.Commit()
-        Else
-            ObjCompras.RollBack()
-        End If
-
-        ObjCompras.Dispose()
-        ObjConta.Dispose()
-
-        Return respuesta
-    End Function
-
-
-    Public Function AddCompraRNC(ByRef transacccion As SqlTransaction) As Boolean
-
-        If Not AjustesValidacion() Then Return False
-
-        Dim respuesta As Boolean = True
-        Dim ObjCompras As New ClsCompras(transacccion)
-        Dim ObjConta As New ClsContabilidad(transacccion)
-
-        If Not AddPrepolizaCabecera(ObjConta) Then
-            respuesta = False
-        End If
-
-        If respuesta AndAlso ObjCompras.AddCompra("RNC", Me.Descripcion, Me.Serie, Me.Folio, Me.FolioSecundario, Me.CveProveedor, Me.SubTotal, Me.Descuento,
-                          Me.Amortizacion, Me.IVA, Me.RetIVA, Me.RetISR, Me.IEPS, Me.OtrosImpuestos,
-                          Me.Redondeo, Me.Total, Me.Fecha, Me.CveMoneda, Me.TipoCambio, If(Me.FechaPago = Nothing, Me.Fecha, Me.FechaPago), Me.AplicaNotaCredito, Me.Observaciones, Me.CveEstatusFactura,
-                          Me.CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.IdPoliza, CveCajaChica:=Me.CveCajaChica, CvePersonal:=Me.CvePersonal, NumeroReembolso:=Me.NumeroReembolso, CveProveedorSucursal:=Me.CveProveedorSucursal,
-                          AplicoPromocion:=Me.AplicoPromocion, PorcentajeIVA:=Me.PorcentajeIVA, CveMetodoPago:=Me.CveMetodoPago, CveRetIVAConcepto:=Me.CveRetIVAConcepto,
-                          CveConceptoContableAlmacen:=Me.CveConceptoContableAlmacen,
-                          CveRetISRConcepto:=Me.CveRetISRConcepto, NoDeducible:=Me.NoDeducible, CveTipoCompra:=Me.CveTipoCompra, TotalOriginal:=Me.TotalOriginal, CveTipoConcepto:=Me.CveTipoConcepto,
-                          EsImportacion:=Me.EsImportacion, CveFactura:=Me.CveFactura, CveSubProyecto:=Me.CveSubProyectoPrincipal, DoctosRelacionados:=Me.DocumentosRelacionadosUUIDSString, CveFolioGarantia:=Me.CveFolioGarantia) Then
-            Me.CveCompra = ObjCompras.CveCompra
-        Else
-            respuesta = False
-        End If
-
-        If respuesta AndAlso Me.CveCompra > 0 Then
-
-            For Each Row As DataRow In Me.TmpDT.Rows
-
-                Dim TipoRecepcion As Integer = -1
-                Dim Referencia As String = ""
-                Dim EsNoDeducible As Boolean = False
-                Dim CveAF As Integer = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 1, Row("CveActivoFijo").ToString.ToEntero, -1)
-                Dim CveAFC As Integer = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1)
-
-                If Not ObjCompras.AddCompraDetalle(Me.CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF,
-                                                                    Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal, Row("IVA").ToString.ToDecimal, Row("Total").ToString.ToDecimal, Row("Descuento").ToString.ToDecimal,
-                                                                    Row("Obs").ToString, Row("CveOrdenCompraDetalle").ToString.ToEntero, TipoRecepcion, Row("CveContrato").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero,
-                                                                    AplicaCostoIndirecto:=Row("AplicaCostoIndirecto").ToString.ToEntero, EstatusAlmacen:=Row("EntregaDirecta").ToString.ToEntero, CvePersonal:=CvePersonal,
-                                                                    CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, OtrosGastos:=Row("OtrosGastos").ToString.ToDecimal,
-                                                                    RetIVA:=Row("RetIVA").ToString.ToDecimal, RetISR:=Row("RetISR").ToString.ToDecimal, IEPSPS:=Row("IEPSPS").ToString.ToDecimal.RoundSQL, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDecimal,
-                                                                    IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDecimal,
-                                                                    IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False),
-                                                                    CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CveCultivoCuadroDetalle:=Row("CveCultivoCuadroDetalle").ToString.ToEntero, CveActivoFijoCompra:=CveAFC) Then
-
-                    respuesta = False
-                    Exit For
-                End If
-            Next
-        End If
-
-        If respuesta Then
-            If Not AddPrePolizaDetalles(ObjConta, True) Then respuesta = False
-        End If
-
-        If respuesta AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, 4) Then
-            If ObjConta.ValorPolizaDescuadre > 0 Then
-                Errores.AppendLine($"Compras/RNC | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}.")
-                GuardaLogAD($"Compras/RNC | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                respuesta = False
+        If transacccion Is Nothing Then 'SINO VIENE DE UNA TRANSACCIÓN
+            If respuesta Then
+                ObjCompras.Commit()
+            Else
+                ObjCompras.RollBack()
             End If
+            ObjCompras.Dispose()
+            ObjConta.Dispose()
         End If
 
-        'If respuesta Then
-        '    If Not ObjCompras.UpdateCompraFactura(Me.CveCompra, Me.CveFactura, Me.Serie, Me.Folio) Then respuesta = False
-        'End If
-
-        'If respuesta Then
-        '    ObjCompras.Commit()
-        'Else
-        '    ObjCompras.RollBack()
-        'End If
-
-        'ObjCompras.Dispose()
-        'ObjConta.Dispose()
-
         Return respuesta
     End Function
 
-
-    Private Function AddPrepolizaCabecera(ByRef ObjConta As ClsContabilidad, Optional ES_RNC As Boolean = False) As Boolean
+    Private Function AddPrePolizaCabecera(ByRef ObjConta As ClsContabilidad) As Boolean
 
         Dim respuesta As Boolean = False
 
         Dim ConceptoPoliza As String = String.Format("{0} - {1} - {2}", NombreProveedor, SerieFolio, "")
         Dim Modulo As String = "eFacturas/Registrar"
 
-        If ES_RNC Then
+        If Me.TipoDocto = "RNC" Then
             ConceptoPoliza = String.Format("{0} - {1} - {2}", NombreProveedor, SerieFolio, "")
             Modulo = "Compras/RNC"
         End If
@@ -23068,7 +22985,7 @@ Public Class ClsCompraManagerCompras
         Dim Concepto As String = $"{Me.NombreProveedor} {Me.SerieFolio}"
         Dim Referencia As String = Me.SerieFolio
 
-        If ES_RNC Then
+        If TipoDocto = "RNC" Then
 
             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Me.Total, Me.Total, 370, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Me.CveCompraAmortizacion, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
                                                         CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=True) Then
@@ -23116,7 +23033,7 @@ Public Class ClsCompraManagerCompras
             If respuesta AndAlso Me.IEPS > 0 Then
                 importeMovimiento = Me.IEPS
                 importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, 25, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMN, 25, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
                     respuesta = False
                 End If
             End If
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index a915f096b..427b1e733 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -5746,11 +5746,12 @@ Partial Class PopUpVerFactura
                 If ObjIE.DtResultados.Rows.Count > 0 Then
 
                     Dim reportDataSetsList As New List(Of ReportDataSource)
-
+                    Dim CvePrePoliza As Integer = 0
                     Dim dtMovs As New DataTable
                     If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then
 
                         dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
+                        CvePrePoliza = dtMovs.Rows(0)("CVePrePoliza").ToString.ToEntero
 
                         If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                             'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
@@ -5792,7 +5793,25 @@ Partial Class PopUpVerFactura
                         .Add(New ReportParameter("LogoPath", RutaImagenLogo))
                     End With
                     dtMovs.Dispose()
-                    ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
+
+                    If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+
+                        Dim ObjContabilidad As New ClsContabilidad
+
+                        ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
+                        Dim dtPrePoliza As DataTable = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+                        ObjContabilidad.Dispose()
+
+                        Dim rdsPrePoliza As New ReportDataSource("DSPrePoliza", dtPrePoliza)
+                        reportDataSetsList.Add(rdsPrePoliza)
+
+                        ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientosPrePoliza.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
+                    Else
+                        ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
+                    End If
+
+
+
                 End If
             End If
         End If
diff --git a/Compras/RepNotasCredito.aspx.vb b/Compras/RepNotasCredito.aspx.vb
index 286f7dc18..ed89558d0 100644
--- a/Compras/RepNotasCredito.aspx.vb
+++ b/Compras/RepNotasCredito.aspx.vb
@@ -58,7 +58,7 @@ Partial Class Compras_RepNotasCredito
         If Tab.ActiveTabIndex = 0 Then
             CargaDatos()
         Else
-            CargaDatosRemisiones()
+            CargaDatosRNC()
         End If
 
     End Sub
@@ -142,7 +142,7 @@ Partial Class Compras_RepNotasCredito
 
 
 #Region "REMISIONES"
-    Private Sub CargaDatosRemisiones()
+    Private Sub CargaDatosRNC()
         DtDatosRemisiones = New DataTable
         GvRemisiones.DataSource = Nothing
         Dim ObjCompras As New ClsCompras
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index a78088c73..d3f7770d9 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -554,7 +554,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero
 
             If CveConceptoContable.Contiene(1, 2, 12, 91, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
-            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 323, 324, 341, 342, 343, 344, 304, 272, 259, 287, 288, 370, 371, 372) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
+            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 323, 324, 341, 342, 343, 344, 304, 272, 259, 287, 288, 370, 371, 372, 373) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
             If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
             If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 
diff --git a/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc b/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc
new file mode 100644
index 000000000..22ac7bbe0
--- /dev/null
+++ b/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc
@@ -0,0 +1,1980 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+  <Body>
+    <ReportItems>
+      <Textbox Name="Cuenta">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!Cuenta.Value</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Cuenta</rd:DefaultName>
+        <Left>0.74936in</Left>
+        <Height>0.23622in</Height>
+        <Width>1in</Width>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Paguese">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!Paguese.Value</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Paguese</rd:DefaultName>
+        <Top>0.25011in</Top>
+        <Left>0.73547in</Left>
+        <Height>0.22233in</Height>
+        <Width>4.91481in</Width>
+        <ZIndex>1</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Importe">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>="&lt;b&gt;Importe: &lt;/b&gt;" &amp; FormatCurrency(Parameters!Importe.Value, 2) &amp; " " &amp;  Parameters!MonedaAbreviatura.Value</Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <Format>#,0.00;(#,0.00);'-'</Format>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Importe</rd:DefaultName>
+        <Top>0.264in</Top>
+        <Left>5.71972in</Left>
+        <Height>0.20844in</Height>
+        <Width>1.9609in</Width>
+        <ZIndex>2</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Observaciones">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!Observaciones.Value</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Observaciones</rd:DefaultName>
+        <Top>0.48633in</Top>
+        <Left>0.73547in</Left>
+        <Height>0.23622in</Height>
+        <Width>6.8993in</Width>
+        <ZIndex>3</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Tablix Name="Tablix2">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>2.57974cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>6.32386cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.08353cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.00257cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.29951cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>1.79499cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.18122cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.4677cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox19">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Factura</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox19</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox21">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Descripción</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox21</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox23">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>F. Factura</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox23</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox25">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Original</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox25</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox27">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Abonado</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox27</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox2">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>N.C</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox2</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox3">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Saldo</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox3</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SerieFolio">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SerieFolio.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SerieFolio</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Descripcion">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Descripcion.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Descripcion</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Fecha">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!FechaCompra.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>dd/MM/yyyy</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>FechaCompra</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Total">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Total.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>N2</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Total</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Importe1">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Importe.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>N2</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Importe1</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="ImporteNC">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Sum(Fields!ImporteNC.Value)</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>N2</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>ImporteNC</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Saldo">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Saldo.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>N2</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Saldo</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox30">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Total</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                            <TextRun>
+                              <Value>:</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox30</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                    <ColSpan>4</ColSpan>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell />
+                <TablixCell />
+                <TablixCell />
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Importe2">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=IiF(SUM(Fields!Importe.Value) &gt; 0, SUM(Fields!Importe.Value),0.00)</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>N2</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Importe2</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox5">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Sum(Fields!ImporteNC.Value)</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>N2</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox5</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox6">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Sum(Fields!Saldo.Value)</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>N2</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox6</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <KeepWithGroup>After</KeepWithGroup>
+            </TablixMember>
+            <TablixMember>
+              <Group Name="Details">
+                <GroupExpressions>
+                  <GroupExpression>=Fields!SerieFolio.Value</GroupExpression>
+                  <GroupExpression>=Fields!Descripcion.Value</GroupExpression>
+                  <GroupExpression>=Fields!FechaCompra.Value</GroupExpression>
+                  <GroupExpression>=Fields!Total.Value</GroupExpression>
+                  <GroupExpression>=Fields!Importe.Value</GroupExpression>
+                  <GroupExpression>=Fields!Saldo.Value</GroupExpression>
+                </GroupExpressions>
+              </Group>
+            </TablixMember>
+            <TablixMember>
+              <KeepWithGroup>Before</KeepWithGroup>
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <RepeatColumnHeaders>true</RepeatColumnHeaders>
+        <DataSetName>DataSet1</DataSetName>
+        <Top>2.18687cm</Top>
+        <Left>0.25413cm</Left>
+        <Height>1.6677cm</Height>
+        <Width>19.26542cm</Width>
+        <ZIndex>4</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Tablix>
+      <Textbox Name="Textbox36">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Cuenta:</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox36</rd:DefaultName>
+        <Left>0.22238cm</Left>
+        <Height>0.6cm</Height>
+        <Width>1.64572cm</Width>
+        <ZIndex>5</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox37">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Paguese:</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox36</rd:DefaultName>
+        <Top>0.6cm</Top>
+        <Left>0.22238cm</Left>
+        <Height>0.6cm</Height>
+        <Width>1.64572cm</Width>
+        <ZIndex>6</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox40">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Obs:</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox36</rd:DefaultName>
+        <Top>1.23528cm</Top>
+        <Left>0.22238cm</Left>
+        <Height>0.6cm</Height>
+        <Width>1.64572cm</Width>
+        <ZIndex>7</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Line Name="Line1">
+        <Top>2.03432cm</Top>
+        <Left>19.51955cm</Left>
+        <Height>0cm</Height>
+        <Width>-19.47588cm</Width>
+        <ZIndex>8</ZIndex>
+        <Style>
+          <Border>
+            <Color>Gray</Color>
+            <Style>Solid</Style>
+          </Border>
+        </Style>
+      </Line>
+      <Textbox Name="Textbox43">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>="&lt;b&gt; Folio: &lt;/b&gt;" &amp; Parameters!Folio.Value</Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox43</rd:DefaultName>
+        <Left>7.55254cm</Left>
+        <Height>0.6cm</Height>
+        <Width>5.23812cm</Width>
+        <ZIndex>9</ZIndex>
+        <ToolTip>="&lt;b&gt; Folio: &lt;/b&gt;" &amp; Parameters!Folio.Value</ToolTip>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Tablix Name="Tablix1">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>2.5cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.95074cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.5cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.52063cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox7">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Resumen Notas de Crédito</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox7</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                    <ColSpan>3</ColSpan>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell />
+                <TablixCell />
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox4">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Factura</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox4</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox8">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Nota de Crédito</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox8</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox10">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Importe</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                                <Format>#,0.00</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox10</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SerieFolio1">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SerieFolio.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SerieFolio1</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SerieFolioNC">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SerieFolioNC.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SerieFolioNC</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Importe3">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Importe.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>#,0.00;(#,0.00)</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Importe3</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox13">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Total:</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox13</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                    <ColSpan>2</ColSpan>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell />
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox15">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=SUM(Fields!Importe.Value)</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>#,0.00;(#,0.00)</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox15</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <KeepWithGroup>After</KeepWithGroup>
+            </TablixMember>
+            <TablixMember>
+              <KeepWithGroup>After</KeepWithGroup>
+            </TablixMember>
+            <TablixMember>
+              <Group Name="Details1" />
+              <SortExpressions>
+                <SortExpression>
+                  <Value>=Fields!SerieFolio.Value</Value>
+                </SortExpression>
+              </SortExpressions>
+              <TablixMembers>
+                <TablixMember />
+              </TablixMembers>
+            </TablixMember>
+            <TablixMember>
+              <KeepWithGroup>Before</KeepWithGroup>
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <RepeatColumnHeaders>true</RepeatColumnHeaders>
+        <DataSetName>DataSet2</DataSetName>
+        <Top>4.20735cm</Top>
+        <Left>0.25413cm</Left>
+        <Height>2.32063cm</Height>
+        <Width>7.95074cm</Width>
+        <ZIndex>10</ZIndex>
+        <Visibility>
+          <Hidden>=iif(Sum(Fields!Importe.Value)&gt;0,false, true)</Hidden>
+        </Visibility>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Tablix>
+      <Line Name="Line2">
+        <Top>6.70437cm</Top>
+        <Left>19.51955cm</Left>
+        <Height>0cm</Height>
+        <Width>-19.51955cm</Width>
+        <ZIndex>11</ZIndex>
+        <Style>
+          <Border>
+            <Color>Gray</Color>
+            <Style>Solid</Style>
+          </Border>
+        </Style>
+      </Line>
+      <Textbox Name="Textbox39">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Fecha:</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox36</rd:DefaultName>
+        <Top>0.0635cm</Top>
+        <Left>14.52104cm</Left>
+        <Height>0.6cm</Height>
+        <Width>1.30176cm</Width>
+        <ZIndex>12</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Cuenta2">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!Fecha.Value</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <Format>dd/MM/yyyy</Format>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Cuenta</rd:DefaultName>
+        <Top>0.0635cm</Top>
+        <Left>6.22945in</Left>
+        <Height>0.23622in</Height>
+        <Width>1.40532in</Width>
+        <ZIndex>13</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+    </ReportItems>
+    <Height>7.24235cm</Height>
+    <Style />
+  </Body>
+  <Width>19.51955cm</Width>
+  <Page>
+    <PageHeader>
+      <Height>2.46175cm</Height>
+      <PrintOnFirstPage>true</PrintOnFirstPage>
+      <PrintOnLastPage>true</PrintOnLastPage>
+      <ReportItems>
+        <Textbox Name="Textbox9">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!NombreEmpresa.Value</Value>
+                  <Style>
+                    <FontSize>12pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox1</rd:DefaultName>
+          <Top>0.3175cm</Top>
+          <Left>2.52765cm</Left>
+          <Height>0.6cm</Height>
+          <Width>14.40301cm</Width>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox11">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>REPORTE DE PAGO DE MOVIMIENTOS</Value>
+                  <Style>
+                    <FontSize>10.5pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value />
+                  <Style>
+                    <FontSize>10.5pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox2</rd:DefaultName>
+          <Top>0.95278cm</Top>
+          <Left>2.52765cm</Left>
+          <Height>0.55591cm</Height>
+          <Width>14.40301cm</Width>
+          <ZIndex>1</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Image Name="Logo">
+          <Source>External</Source>
+          <Value>=Parameters!LogoPath.Value</Value>
+          <Sizing>FitProportional</Sizing>
+          <Left>0.15522cm</Left>
+          <Height>2.22362cm</Height>
+          <Width>2.33715cm</Width>
+          <ZIndex>2</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+          </Style>
+        </Image>
+      </ReportItems>
+      <Style>
+        <Border>
+          <Style>None</Style>
+        </Border>
+      </Style>
+    </PageHeader>
+    <PageFooter>
+      <Height>0.52063cm</Height>
+      <PrintOnFirstPage>true</PrintOnFirstPage>
+      <PrintOnLastPage>true</PrintOnLastPage>
+      <ReportItems>
+        <Textbox Name="Textbox41">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>="Página " &amp; Globals.PageNumber &amp; " de " &amp; Globals.TotalPages</Value>
+                  <Style>
+                    <FontStyle>Italic</FontStyle>
+                    <FontFamily>verdana</FontFamily>
+                    <FontSize>7pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Right</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox41</rd:DefaultName>
+          <Top>0.01764cm</Top>
+          <Left>16.41607cm</Left>
+          <Height>0.48535cm</Height>
+          <Width>2.97625cm</Width>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox12">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Usuario:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox8</rd:DefaultName>
+          <Top>0.01764cm</Top>
+          <Left>0.15522cm</Left>
+          <Height>0.50299cm</Height>
+          <Width>1.60042cm</Width>
+          <ZIndex>1</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox14">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!UsuarioImprimio.Value</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox9</rd:DefaultName>
+          <Top>0.01764cm</Top>
+          <Left>1.75564cm</Left>
+          <Height>0.48535cm</Height>
+          <Width>5.14936cm</Width>
+          <ZIndex>2</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox16">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Fecha Impresión:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox10</rd:DefaultName>
+          <Top>0cm</Top>
+          <Left>7.44414cm</Left>
+          <Height>0.50299cm</Height>
+          <Width>2.87394cm</Width>
+          <ZIndex>3</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox17">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!FechaImpresion.Value</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox11</rd:DefaultName>
+          <Top>0cm</Top>
+          <Left>10.31808cm</Left>
+          <Height>0.50299cm</Height>
+          <Width>4.58986cm</Width>
+          <ZIndex>4</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+      </ReportItems>
+      <Style>
+        <Border>
+          <Style>None</Style>
+        </Border>
+      </Style>
+    </PageFooter>
+    <PageHeight>27.94cm</PageHeight>
+    <PageWidth>21.59cm</PageWidth>
+    <LeftMargin>1cm</LeftMargin>
+    <RightMargin>1cm</RightMargin>
+    <TopMargin>1.5cm</TopMargin>
+    <BottomMargin>1.5cm</BottomMargin>
+    <ColumnSpacing>0.13cm</ColumnSpacing>
+    <Style />
+  </Page>
+  <AutoRefresh>0</AutoRefresh>
+  <DataSources>
+    <DataSource Name="DsBancos">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>c18b6686-bd84-460b-985a-bb3859af70bf</rd:DataSourceID>
+    </DataSource>
+  </DataSources>
+  <DataSets>
+    <DataSet Name="DataSet1">
+      <Query>
+        <DataSourceName>DsBancos</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="Folio">
+          <DataField>Folio</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Descripcion">
+          <DataField>Descripcion</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="FechaCompra">
+          <DataField>FechaCompra</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Total">
+          <DataField>Total</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="ImporteNC">
+          <DataField>ImporteNC</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="SerieFolio">
+          <DataField>SerieFolio</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Saldo">
+          <DataField>Saldo</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsBancos</rd:DataSetName>
+        <rd:SchemaPath>C:\inetpub\wwwVentas\App_Code\DsBancos.xsd</rd:SchemaPath>
+        <rd:TableName>DsCheque</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+    <DataSet Name="DataSet2">
+      <Query>
+        <DataSourceName>DsBancos</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="SerieFolio">
+          <DataField>SerieFolio</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SerieFolioNC">
+          <DataField>SerieFolioNC</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Fecha">
+          <DataField>Fecha</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Total">
+          <DataField>Total</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsBancos</rd:DataSetName>
+        <rd:SchemaPath>C:\inetpub\wwwVentas\App_Code\DsBancos.xsd</rd:SchemaPath>
+        <rd:TableName>DsCheque</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+  </DataSets>
+  <ReportParameters>
+    <ReportParameter Name="UsuarioImprimio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaImpresion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NombreEmpresa">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Cuenta">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Fecha">
+      <DataType>DateTime</DataType>
+      <Nullable>true</Nullable>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Paguese">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Importe">
+      <DataType>Float</DataType>
+      <Nullable>true</Nullable>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Observaciones">
+      <DataType>String</DataType>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Folio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="MonedaAbreviatura">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="LogoPath">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+  </ReportParameters>
+  <Variables>
+    <Variable Name="SumNC">
+      <Value>=5</Value>
+    </Variable>
+  </Variables>
+  <rd:ReportUnitType>Cm</rd:ReportUnitType>
+  <rd:ReportID>806b374c-24e0-40bb-a805-d2a7038259c9</rd:ReportID>
+</Report>
\ No newline at end of file
diff --git a/Inventarios/KardexAlmacen.aspx b/Inventarios/KardexAlmacen.aspx
index 2970592c7..3c9358519 100644
--- a/Inventarios/KardexAlmacen.aspx
+++ b/Inventarios/KardexAlmacen.aspx
@@ -66,11 +66,11 @@
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <li>
-        <asp:LinkButton ID="ImgImprimir" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
+        <asp:LinkButton ID="ImgImprimir" runat="server"><i class="fa fa-file-pdf-o"></i> Generar PDF</asp:LinkButton>
     </li>
 
       <li>
-        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o"></i> Generar Excel</asp:LinkButton>
     </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
diff --git a/Inventarios/KardexAlmacen.aspx.vb b/Inventarios/KardexAlmacen.aspx.vb
index db9026bd0..f95e5c3b4 100644
--- a/Inventarios/KardexAlmacen.aspx.vb
+++ b/Inventarios/KardexAlmacen.aspx.vb
@@ -1,5 +1,4 @@
 Imports System.Data
-Imports ADSNetLibrary.SIGAPI.Models.CGame
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
@@ -113,10 +112,7 @@ Partial Class Inventarios_KardexAlmacen
         Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
         Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
 
-        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
-        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
-        If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+        If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             dt = ObjMovimientos.DtResultados
             GvDatos.DataSource = ObjMovimientos.DtResultados
         End If
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index 08e57cd0d..770f57010 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -96,18 +96,17 @@
 
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <li>
-        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o"></i> Generar Excel</asp:LinkButton>
     </li>
     <asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
-            <ContentTemplate>
-    <li>        
-                <asp:LinkButton runat="server" ID="LnkProyectado" OnClick="LnkProyectado_Click" Text="Cargar Proyecciones" />            
-    </li>
-    
-                </ContentTemplate>
-        </asp:UpdatePanel>
-        <li>        
-                <asp:LinkButton runat="server" ID="LnkPOG" OnClick="LnkProyectado_Click" Visible="false"><i class="fa fa-ad-excel"></i> POG</asp:LinkButton>            
+        <ContentTemplate>
+            <li>                
+                <asp:LinkButton ID="LnkProyectado" runat="server" OnClick="LnkProyectado_Click"><i class="fa fa-upload"></i> Cargar Proyecciones</asp:LinkButton>                
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <li>
+        <asp:LinkButton runat="server" ID="LnkPOG" OnClick="LnkProyectado_Click" Visible="false"><i class="fa fa-file-excel-o"></i> POG</asp:LinkButton>
     </li>
 </asp:Content>
 
@@ -237,29 +236,8 @@
                             </asp:DropDownList>
                         </div>
                     </asp:Panel>
+           
 
-                         <div class="row" runat="server" visible="false" id="DVFiltroCodigo">
-                          <div class="col-md-1">Código Inicio:</div>
-                          <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
-                          <div class="col-md-1">Código Fin:</div>
-                          <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>                       
-
-                          <div class="col-md-1" runat="server" id="DVNavegar"  >
-                         <div class="row">
-                             <div class="col-md-5">
-                                 <asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary">Anterior</asp:LinkButton>
-                             </div>
-                             <div class="col-md-2">
-                             </div>
-                             <div class="col-md-5">
-                                 <asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary">Siguiente</asp:LinkButton>
-                             </div>
-                         </div>
-
-
-    </div>
-    
- </div>
                 </div>
 
                
@@ -329,7 +307,7 @@
                                 <asp:ListItem Text="Entrada" Value="1" Selected="True" />
                                 <asp:ListItem Text="Salida" Value="2" />
                             </asp:RadioButtonList>
-                            <asp:Button runat="server" ID="BtnDescargarFormato" OnClick="BtnDescargarFormato_Click" Text="Descargar formato" CssClass="btn btn-warning" />
+                            <asp:LinkButton runat="server" ID="BtnDescargarFormato" OnClick="BtnDescargarFormato_Click" CssClass="btn btn-warning" ><i class='fa fa-download' aria-hidden='true'></i> Descargar formato</asp:LinkButton>
                         </div>
                         <asp:Label runat="server" ID="Label1" Text="Subir Proyección:" Style="font-size: 15px" />
                         <br />
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 27bbfe0af..61a191dec 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -38,10 +38,6 @@ Partial Class Inventarios_KardexAlmacenHorizontal
             If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
             ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
 
-            If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
-                DVFiltroCodigo.Visible = True
-            End If
-
         End If
     End Sub
     Private Sub CargaCombos()
@@ -159,14 +155,10 @@ Partial Class Inventarios_KardexAlmacenHorizontal
         Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero
         Dim IncluyeTransitorios As Integer = DdlIncluyeTransitorios.SelectedValue.ToEntero
 
-
-        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
-        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
         If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), IncluyeTransitorios,
                                                      DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue.ToEntero,
-                                                     Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text,
-                                                     CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+                                                     Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text) Then
+
             If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                 dt = ObjMovimientos.DtResultados
                 Dim ListaBorrar As New List(Of DataColumn)
@@ -538,65 +530,4 @@ Partial Class Inventarios_KardexAlmacenHorizontal
     End Sub
 
 
-
-
-    Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs)
-        NavegacionPS(Siguiente:=False)
-    End Sub
-
-    Protected Sub LnkPSSiguiente_Click(sender As Object, e As EventArgs)
-        NavegacionPS(Siguiente:=True)
-    End Sub
-    Private Sub NavegacionPS(Siguiente As Boolean)
-        Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
-
-        If Not CvePS > 0 Then
-            Exit Sub
-        End If
-        Dim dt As DataTable = New DataTable
-
-        Dim Entrada As Boolean = True
-        Dim Salida As Boolean = True
-
-        Dim FechaI As String = "-1"
-        Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
-        Dim CveAlmacen As Integer = If(ddlAlmacen.SelectedValue.ToEntero = 0, -1, ddlAlmacen.SelectedValue.ToEntero)
-        Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
-        If CveAlmacenes.Contains(",") Then
-            CveAlmacen = -1
-        End If
-        If CvePS > 0 Then
-            Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
-            If dr IsNot Nothing Then
-                ddlProducto2.SelectedText = dr("PSCodigo").ToString
-                ddlProducto2.SelectedValue = CvePS.ToString
-            End If
-
-        End If
-
-        Dim CveTiposAlmacen As String = "-1"
-
-
-        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
-        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
-        Dim ObjInventarios As New ClsInventarios
-        If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-                                                CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
-            dt = ObjInventarios.DtResultados.Copy
-        End If
-        ObjInventarios.Dispose()
-
-        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-            ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString
-            ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString
-            ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString
-            ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString
-            CargarKardex(dt.Rows(0)("CvePS").ToString.ToEntero)
-            UPFiltros.Update()
-
-        End If
-
-    End Sub
-
 End Class
diff --git a/Inventarios/RepEntradasSalidas.aspx b/Inventarios/RepEntradasSalidas.aspx
index 170435582..bcba0f2df 100644
--- a/Inventarios/RepEntradasSalidas.aspx
+++ b/Inventarios/RepEntradasSalidas.aspx
@@ -11,11 +11,11 @@
         </li>
 
         <li>
-            <asp:LinkButton ID="LnkExcelPersonalizado" runat="server" Visible="false"><i class="fa fa-ad-excel"></i> Excel Personalizado</asp:LinkButton>
+            <asp:LinkButton ID="LnkExcelPersonalizado" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Excel Personalizado</asp:LinkButton>
         </li>
 
         <li>
-            <asp:LinkButton ID="LnkFormatoInventario" runat="server" Visible="false"><i class="fa fa-ad-excel"></i> Generar Formato Inventario</asp:LinkButton>
+            <asp:LinkButton ID="LnkFormatoInventario" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Generar Formato Inventario</asp:LinkButton>
         </li>
 
         <li>
diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb
index 2d6816414..586d6d878 100644
--- a/Inventarios/RepEntradasSalidas.aspx.vb
+++ b/Inventarios/RepEntradasSalidas.aspx.vb
@@ -256,13 +256,10 @@ Partial Class Inventarios_ReporteEntradasSalidas
             CveMarca = DdlMarca.SelectedValue.ToEntero
         End If
 
-        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
-        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
         If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero,
                                   Almacenes, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero,
                                   DdlMovs.SelectedValue.ToEntero, CveMarca:=Marcas, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen,
-                                  Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+                                  Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then
             dt = Reporte.DtResultados
 
 
diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index 87debcbce..29b871eef 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -109,19 +109,19 @@ Partial Class RepVentaDetalle
         Set(value As Boolean)
             ViewState("Primeracontsulta") = value
         End Set
-    End Property
-    Private Property ConsultaAlCargar As Boolean
-        Get
-            Return CBool((IfNull(ViewState("ConsultaAlCargar"), False, ViewState("ConsultaAlCargar"))))
-        End Get
-        Set(value As Boolean)
-            ViewState("ConsultaAlCargar") = value
-        End Set
-    End Property
-
-
+    End Property
+    Private Property ConsultaAlCargar As Boolean
+        Get
+            Return CBool((IfNull(ViewState("ConsultaAlCargar"), False, ViewState("ConsultaAlCargar"))))
+        End Get
+        Set(value As Boolean)
+            ViewState("ConsultaAlCargar") = value
+        End Set
+    End Property
+
+
 #End Region
-    'pRivate ReadOnly Property ColumnasVisibles As 
+    'pRivate ReadOnly Property ColumnasVisibles As 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
@@ -130,10 +130,10 @@ Partial Class RepVentaDetalle
             InicializaValores()
             ConfiguraEmpresa()
 
-            If ConsultaAlCargar Then
-                CargaDatos()
-            End If
-
+            If ConsultaAlCargar Then
+                CargaDatos()
+            End If
+
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                 LblServicioDomicilioFiltro.Visible = True
                 DVServicioDomicilio.Visible = True
@@ -288,12 +288,12 @@ Partial Class RepVentaDetalle
             DdlVendedor.Enabled = False
         End If
 
-        If Request("Menu") IsNot Nothing AndAlso Request("Menu").ToString() = "1" Then
-            ConsultaAlCargar = False
+        If Request("Menu") IsNot Nothing AndAlso Request("Menu").ToString() = "1" Then
+            ConsultaAlCargar = False
         End If
 
-    End Sub
-
+    End Sub
+
 #Region "CARGA COMBOS"
     Private Sub CargaGrupo()
         DdlGrupo.Items.Insert(0, New ListItem("Año", "1"))
@@ -553,10 +553,10 @@ Partial Class RepVentaDetalle
             If e.Row.DBCampo("RetISR").ToDouble < 0 Then e.Row.Cells(10).ForeColor = Drawing.Color.Red
             If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(11).ForeColor = Drawing.Color.Red
             If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(12).ForeColor = Drawing.Color.Red
-            If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(13).ForeColor = Drawing.Color.Red
-
-            Dim Ruta As String = UsuarioActual.Empresa.Ruta
-
+            If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(13).ForeColor = Drawing.Color.Red
+
+            Dim Ruta As String = UsuarioActual.Empresa.Ruta
+
             If IO.File.Exists($"{Ruta}XML\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.xml") Then
                 e.Row.FCLiteral("LtlXML").Text = String.Format("<div class='truncate' style='width:40px;'><a class=""Texto"" target=""_blank""  href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.xml&TipoArchivo=XML"">XML</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio"))
             Else
@@ -744,10 +744,10 @@ Partial Class RepVentaDetalle
 
         If ChkTC.Checked Then ListPersonalizada.Add("TC")
 
-        If ChkDescripcionVenta.Checked Then ListPersonalizada.Add("DescripcionVenta")
-
-        If ChkDescargarPDF.Checked Then ListPersonalizada.Add("PDF")
-
+        If ChkDescripcionVenta.Checked Then ListPersonalizada.Add("DescripcionVenta")
+
+        If ChkDescargarPDF.Checked Then ListPersonalizada.Add("PDF")
+
         If ChkDescargarXML.Checked Then ListPersonalizada.Add("XML")
 
         If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then
@@ -939,10 +939,10 @@ Partial Class RepVentaDetalle
                         Exit Select
                     Case "DescripcionVenta"
                         ChkDescripcionVenta.Checked = True
-                        Exit Select
+                        Exit Select
                     Case "XML"
                         ChkDescargarXML.Checked = True
-                        Exit Select
+                        Exit Select
                     Case "PDF"
                         ChkDescargarPDF.Checked = True
                         Exit Select
@@ -1004,8 +1004,8 @@ Partial Class RepVentaDetalle
         GvDatos.Columns(38).Visible = ChkUsoCFDI.Checked
         GvDatos.Columns(39).Visible = ChkKilometraje.Checked
         GvDatos.Columns(40).Visible = ChkTC.Checked
-        GvDatos.Columns(41).Visible = ChkDescripcionVenta.Checked
-        GvDatos.Columns(42).Visible = ChkDescargarXML.Checked
+        GvDatos.Columns(41).Visible = ChkDescripcionVenta.Checked
+        GvDatos.Columns(42).Visible = ChkDescargarXML.Checked
         GvDatos.Columns(43).Visible = ChkDescargarPDF.Checked
 
         Personalizo = 1