From 004a70641380358635518260daf54438253b68ae Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 11 Apr 2023 16:25:41 -0700
Subject: [PATCH] Editar uso cfdi en notas de credito, validaciones de
 subproyecto en PV

---
 Ventas/PV.aspx.vb     | 5 +++++
 Ventas/Ventas.aspx.vb | 4 ++++
 2 files changed, 9 insertions(+)

diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index fb2eae807..8beaa4a38 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -4521,6 +4521,11 @@ Partial Class PV
         CargaClienteSucursal(DdlSucursalCliente.SelectedValue.ToEntero)
     End Sub
     Private Sub DdlSubProyectoDatos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyectoDatos.SelectedIndexChanged
+        If CveVenta <= 0 AndAlso (TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0) Then
+            Alert("No se puede cambiar el subproyecto si ya se agregaron productos y/o servicios.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         CambiaSucursalGeneral()
         CargaFoliosGarantia()
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 4ba9f331e..0faf67148 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2784,6 +2784,10 @@ Partial Class Ventas
                         BtnCrearApartirDe.Visible = False
                     End If
                     If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then BtnEditar.Visible = True
+
+                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue = "Egs" AndAlso LblSeTimbro.Text = "No" Then
+                        BtnEditar.Visible = True
+                    End If
                     'DdlEstatus.Enabled = True
 
                     DivFechaAnticipoCliente.Visible = True