diff --git a/Empresas/119/Formatos/RepIVAAcreditable.rpt b/Empresas/119/Formatos/RepIVAAcreditable.rpt
index 7ba21b50b..ce9d8faf0 100644
Binary files a/Empresas/119/Formatos/RepIVAAcreditable.rpt and b/Empresas/119/Formatos/RepIVAAcreditable.rpt differ
diff --git a/Empresas/Grales/Formatos/RepIVA.rpt b/Empresas/Grales/Formatos/RepIVA.rpt
index 1ff221782..cdd0ad6c0 100644
Binary files a/Empresas/Grales/Formatos/RepIVA.rpt and b/Empresas/Grales/Formatos/RepIVA.rpt differ
diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt
index 26546bda5..e7e29a232 100644
Binary files a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt and b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt differ
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 4d1b6a882..437cee0c5 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -159,6 +159,15 @@ Partial Class Inventarios_RecepcionUsados
             ViewState("TieneSalida") = value
         End Set
     End Property
+
+    Private Property DTBCIUsados As DataTable
+        Get
+            Return If(IsNothing(ViewState("DTBCIUsados")), Nothing, CType(ViewState("DTBCIUsados"), DataTable))
+        End Get
+        Set(value As DataTable)
+            ViewState("DTBCIUsados") = value
+        End Set
+    End Property
     Private Property DtBitacora As DataTable
         Get
             Return CType(ViewState("DtBitacora"), DataTable)
@@ -2846,6 +2855,7 @@ Partial Class Inventarios_RecepcionUsados
             Dim CveMarca As Integer = -1
             Dim CveClasificacion As Integer = -1
             Dim PrecioSugerido As Decimal = 0
+            Dim CveTamanio As Integer = -1
             Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
 
             If drPS IsNot Nothing Then
@@ -2860,6 +2870,7 @@ Partial Class Inventarios_RecepcionUsados
                 Dim PS As String = drPS("PS").ToString
                 CveMarca = drPS("CveMarca").ToString.ToEntero
                 CveClasificacion = drPS("CveClasificacion").ToString.ToEntero
+                CveTamanio = drPS("CveTamaño").ToString.ToEntero
 
                 Dim Arr = PS.Split("-"c)
                 If Arr.Count > 1 Then
@@ -2921,6 +2932,19 @@ Partial Class Inventarios_RecepcionUsados
                 'CvePrecioLista = CvePrecioListaPS
             End If
 
+            DdlBCIAjuste.Items.Clear()
+            If DTBCIUsados IsNot Nothing AndAlso CveTamanio > 0 Then
+                DdlBCIAjuste.DataSource = DTBCIUsados.FiltraParametros($"CveTamaño={CveTamanio}")
+                DdlBCIAjuste.DataBind()
+                DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
+                If CveTamanio = 16 Then 'motobaterias
+                    DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
+                End If
+                'UPPDatosUsado.Update() ''refresca el RFV
+            Else
+                DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
+            End If
+
             DdlTipoUso.Items.Clear()
             DdlTipoUso.DataSource = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca)
             DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -2964,6 +2988,7 @@ Partial Class Inventarios_RecepcionUsados
         If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
             DdlBCIAjuste.DataSource = ObjGral.DtResultados
             DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DTBCIUsados = ObjGral.DtResultados.Copy()
         End If
         ObjGral.Dispose()
         DdlBCIAjuste.DataBind()
diff --git a/Site.master b/Site.master
index 24da7ea86..4fc0a780b 100644
--- a/Site.master
+++ b/Site.master
@@ -417,8 +417,7 @@
                     </div>
                     <div class="ContentPlaceHolderc">
                         <asp:ContentPlaceHolder ID="C" runat="server">
-                        </asp:ContentPlaceHolder>
-                        <br />
+                        </asp:ContentPlaceHolder>                        
                     </div>
                 </div>
             </div>
diff --git a/Site.master.vb b/Site.master.vb
index 29ac2ad05..45e8ac292 100644
--- a/Site.master.vb
+++ b/Site.master.vb
@@ -258,7 +258,7 @@ Partial Class Site
 
         If UsuarioActual.TienePermisoPagina(392) Then tdProspectos.Visible = True : ImgProspecto.Attributes.Add("onclick", "AbrirVentana('/Prospeccion/PopUpBuscarProspectos.aspx',980,547,'popBuscarProspectos');")
 
-        If UsuarioActual.TienePermisoPagina(228) Then tdBExi.Visible = True
+        If UsuarioActual.TienePermisoPagina(228) OrElse UsuarioActual.TienePermisoPagina(6) Then tdBExi.Visible = True
 
         'Contratos
         If UsuarioActual.TienePermisoPagina(313) Then TdContratos.Visible = True
diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb
index 9d0be5465..210e11f16 100644
--- a/Ventas/CatAutorizacionLimites.aspx.vb
+++ b/Ventas/CatAutorizacionLimites.aspx.vb
@@ -180,7 +180,7 @@ Partial Class Ventas_CatAutorizacionLimites
         Dim CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero()
         Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero()
         Dim CveVendedor = gvRow.DataKey("CveVendedor").ToEntero()
-        Dim Importe = gvRow.DataKey("Importe").ToEntero()
+        Dim Importe = gvRow.DataKey("Importe").ToDecimal()
         Dim CveEstatusAutorizacion As Integer = 1
 
         Dim ObjVentas As New ClsVentas
@@ -197,7 +197,7 @@ Partial Class Ventas_CatAutorizacionLimites
         Dim CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero()
         Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero()
         Dim CveVendedor = gvRow.DataKey("CveVendedor").ToEntero()
-        Dim Importe = gvRow.DataKey("Importe").ToEntero()
+        Dim Importe = gvRow.DataKey("Importe").ToDecimal()
         Dim CveEstatusAutorizacion As Integer = 3
 
         Dim ObjVentas As New ClsVentas
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index bc905ed23..3caa48ce8 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -26998,7 +26998,10 @@ Partial Class Ventas
                     If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Egs", CveEstatus:=1) Then
                         Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion")
                         If RowAutorizacion IsNot Nothing Then
-                            Verificacion = True
+                            Dim ImporteAutorizacion As Decimal = RowAutorizacion("Importe").ToString().ToDecimal()
+                            If ImporteAutorizacion > TxtTotalGv.Text.ToDecimal Then
+                                Verificacion = True
+                            End If
                         End If
                     End If
                     ObjVentas.Dispose()