Compras Mensaje no hay partidas para clasificar en compra sin xml

2020-09-09 09:29:41 -07:00
parent c9c8a98ac6
commit 85a50e7f21
1 changed files with 7 additions and 2 deletions
--- 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