diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 2a7068f4b..4ba9f331e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -23661,7 +23661,7 @@ Partial Class Ventas
 
 #Region " INVENTARIO POR ENTREGA"
     Private Sub InventarioMov(Optional CveVentaPadre As Integer = -1)
-        If CveVentaPadre > 0 Then
+        If CveVentaPadre > 0 AndAlso DdlTipoComprobante.SelectedValue <> "Dev" Then
             Dim RowVentas As DataRow = Nothing
             Using ObjVentas As New ClsVentas
                 If ObjVentas.GetVenta(CveVentaPadre, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
@@ -34657,6 +34657,10 @@ Partial Class Ventas
         CalculaLineasAdicionales()
         DdlLineaAdicional.Enabled = True
 
+        If UsuarioActual.TienePermisoProceso(357) AndAlso LblSeTimbro.Text = "No" Then
+            DdlUsoCFDI.Enabled = True
+        End If
+
         UpParametros.Update()
         UPObservaciones.Update()
         UpFacturar.Update()