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