From 1e64839bf2e8b37152e84e1e6cef774db5d49415 Mon Sep 17 00:00:00 2001
From: Jeilyn Peguero <jpeguero@marmotech.com.do>
Date: Sat, 7 Nov 2026 16:08:43 -0400
Subject: [PATCH] veprmt025: Nuevo abre un grupo vacio y los botones
 Activar/Desactivar se ven

- El bloque AFTER DISPLAY de la lista recargaba el grupo seleccionado (y sus
  clientes) al pulsar Nuevo; ahora solo lo hace si operacion <> "N".
- vefmwd022.4fd: los botones Desactivar y Activar solo tenian icono y quedaban
  invisibles cuando el icono no carga; se les agrega texto.

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
---
 PROYECTO/vedir/vefmwd022.4fd | 4 ++--
 PROYECTO/vedir/veprmt025.4gl | 2 ++
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/PROYECTO/vedir/vefmwd022.4fd b/PROYECTO/vedir/vefmwd022.4fd
index 2db20d6..9cc84a2 100644
--- a/PROYECTO/vedir/vefmwd022.4fd
+++ b/PROYECTO/vedir/vefmwd022.4fd
@@ -34,8 +34,8 @@
       <ToolBarItem image="new.png" name="nuevo" text="Nuevo"/>
       <ToolBarItem image="exit.png" name="cancel"/>
       <ToolBarSeparator name="ToolBarSeparator1"/>
-      <ToolBarItem comment="Desactiva Registro" image="cancel.png" name="desactivar"/>
-      <ToolBarItem comment="Activa Registro" image="accept.png" name="activar"/>
+      <ToolBarItem comment="Desactiva Registro" image="cancel.png" name="desactivar" text="Desactivar"/>
+      <ToolBarItem comment="Activa Registro" image="accept.png" name="activar" text="Activar"/>
     </ToolBar>
     <Folder gridHeight="20" gridWidth="125" name="folder" posX="1" posY="1">
       <Page name="Page1" text="Lista Grupos Clientes">
diff --git a/PROYECTO/vedir/veprmt025.4gl b/PROYECTO/vedir/veprmt025.4gl
index a8cad45..78b2de2 100644
--- a/PROYECTO/vedir/veprmt025.4gl
+++ b/PROYECTO/vedir/veprmt025.4gl
@@ -71,6 +71,7 @@ DIALOG ATTRIBUTE(UNBUFFERED)
            CALL activar(arr_lista[arr_curr()].pcod_grupo)
            CALL lista_grupos()
         AFTER DISPLAY
+        IF operacion <> "N" THEN
 
         LET centra.codigo_grupo = arr_lista[arr_curr()].pcod_grupo
         LET centra.descripcion = arr_lista[arr_curr()].pdescripcion  
@@ -90,6 +91,7 @@ DIALOG ATTRIBUTE(UNBUFFERED)
             LET idx = idx +1
           END FOREACH
           
+        END IF   -- G6: no recargar el grupo seleccionado al crear uno nuevo
   END DISPLAY
  
  INPUT BY NAME centra.* ATTRIBUTE(WITHOUT DEFAULTS)