From 9b872fb15d6043efa5eead0eddf6f3e0d480da14 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 5 Jul 2023 10:10:43 -0700
Subject: [PATCH] -- activar cambiar datos de usocfdi, en Anticipos no
 timbrados

---
 Ventas/Ventas.aspx.vb | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 575f4b57f..9c4fb6c73 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2820,24 +2820,16 @@ Partial Class Ventas
                         CargaRelacionadasPendientes()
                     End If
 
-                    'DdlSucursal.Enabled = False
                     DdlSubProyectoDatos.Enabled = False
                     BtnEmitirImprimir.Visible = False
                     BtnCrearApartirDe.Visible = True
-                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                        BtnCrearApartirDe.Visible = False
-                    End If
-                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then BtnEditar.Visible = True
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then BtnCrearApartirDe.Visible = False
 
-                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue = "Egs" AndAlso LblSeTimbro.Text = "No" Then
-                        BtnEditar.Visible = True
-                    End If
-                    'DdlEstatus.Enabled = True
+                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") AndAlso LblSeTimbro.Text = "No" Then BtnEditar.Visible = True
 
                     DivFechaAnticipoCliente.Visible = True
                     TxtFechaAnticipoCliente.Text = Now.ToShortDateString
 
-
                     ImgAddObs.Visible = True
                     CargaEventoBitacora()