From 85a50e7f21b9d4a64792fc79219929dfec972c49 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 9 Sep 2020 09:29:41 -0700 Subject: [PATCH] Compras Mensaje no hay partidas para clasificar en compra sin xml --- Compras/Compras.aspx.vb | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) 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