diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index d096c8df3..9781db9cf 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -18001,8 +18001,13 @@ Partial Class Compras_Compras
     Private Sub ReclasificaSubProyecto()
 
         If Not GvPS.Rows.Count > 0 Then
-            Alert("No hay partidas para reclasificar el SubProyecto", TipoMensaje.MsgAdvertencia)
-            Exit Sub
+
+            If CveCompra <> Nothing And CveCompra > 0 Then
+                Alert("No hay partidas para reclasificar el SubProyecto", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+
         End If
 
         If Not DdlAsignaSubProyecto.SelectedValue.ToEntero > 0 Then