Editar uso cfdi en notas de credito, validaciones de subproyecto en PV

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