jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

veprmt025: Nuevo abre un grupo vacio y los botones Activar/Desactivar se ven

Browse Source 
- 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>
This commit is contained in:
jpeguero
2026-11-07 16:08:43 -04:00
co-authored by Claude Sonnet 5.5
parent 539af7f912
commit 1e64839bf2
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/vedir/vefmwd022.4fd
+2 -2
View File
@@ -34,8 +34,8 @@
<ToolBarItem image="new.png" name="nuevo" text="Nuevo"/> <ToolBarItem image="new.png" name="nuevo" text="Nuevo"/>
<ToolBarItem image="exit.png" name="cancel"/> <ToolBarItem image="exit.png" name="cancel"/>
<ToolBarSeparator name="ToolBarSeparator1"/> <ToolBarSeparator name="ToolBarSeparator1"/>
<ToolBarItem comment="Desactiva Registro" image="cancel.png" name="desactivar"/> <ToolBarItem comment="Desactiva Registro" image="cancel.png" name="desactivar" text="Desactivar"/>
<ToolBarItem comment="Activa Registro" image="accept.png" name="activar"/> <ToolBarItem comment="Activa Registro" image="accept.png" name="activar" text="Activar"/>
</ToolBar> </ToolBar>
<Folder gridHeight="20" gridWidth="125" name="folder" posX="1" posY="1"> <Folder gridHeight="20" gridWidth="125" name="folder" posX="1" posY="1">
<Page name="Page1" text="Lista Grupos Clientes"> <Page name="Page1" text="Lista Grupos Clientes">
PROYECTO/vedir/veprmt025.4gl
+2
View File
@@ -71,6 +71,7 @@ DIALOG ATTRIBUTE(UNBUFFERED)
CALL activar(arr_lista[arr_curr()].pcod_grupo) CALL activar(arr_lista[arr_curr()].pcod_grupo)
CALL lista_grupos() CALL lista_grupos()
AFTER DISPLAY AFTER DISPLAY
IF operacion <> "N" THEN
LET centra.codigo_grupo = arr_lista[arr_curr()].pcod_grupo LET centra.codigo_grupo = arr_lista[arr_curr()].pcod_grupo
LET centra.descripcion = arr_lista[arr_curr()].pdescripcion LET centra.descripcion = arr_lista[arr_curr()].pdescripcion
@@ -90,6 +91,7 @@ DIALOG ATTRIBUTE(UNBUFFERED)
LET idx = idx +1 LET idx = idx +1
END FOREACH END FOREACH
END IF -- G6: no recargar el grupo seleccionado al crear uno nuevo
END DISPLAY END DISPLAY
INPUT BY NAME centra.* ATTRIBUTE(WITHOUT DEFAULTS) INPUT BY NAME centra.* ATTRIBUTE(WITHOUT DEFAULTS)