From 45bcfa91cbd61af2a54f4dd2ebb6ecb599ec95a0 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 29 Mar 2023 11:17:31 -0700
Subject: [PATCH] Mostrar movimientos de almacen en devoluciones, editar uso
 cfdi de ventas no timbradas

---
 Ventas/Ventas.aspx.vb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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()