Mi ventana de LaunchWin consta de cuadros de botones interactivos. Sin embargo, cuando presiono el botón, la ventana no se cierra. No estoy seguro de por qué. Pensé que se supone que el botón se cerraría automáticamente después de hacer clic en él.
Tengo el siguiente código:
//Establece la mesa de trabajo como la tabla actual, presta atención a qué tabla está en la parte superior
dt = tabla de datos actual();
//Crear un resumen del total de alícuotas en cada casilla por ID de CAJA
sumadt = dt << Resumen(
Grupo( :ID DE CAJA ),
Suma( :Nombre( "# de alícuotas") ),
Frecuencia( "Ninguna"),
Peso( "Ninguno")
);
//Calcular el espacio libre en cada cuadro y asignarlo a una nueva columna
col5 = sumdt << Nueva columna("FreeSpace", Tipo de datos (Numérico),
Fórmula(
96 - :Nombre("Suma(# de alícuotas)")
)
);
//ordenar nueva tabla por nueva columna
sumdt << Ordenar(Por(:Espacio libre), Orden(Descendente), Reemplazar tabla);
cuadro10 = suma[índice(1,10), 1];
fila10 = suma[índice(1,10), 4];
cerrar(sumdt, nosave);
launchWin = Nueva ventana( "Lanzador",
< V Cuadro de lista(
Cuadro de alineación( N Col( 4 ), Espaciado( 20 ),
//Buscar espacio libre
Cuadro de botones( "Verificar espacio",
Nueva Ventana ("Espacios Disponibles",
Caja de mesa (
Número Col Cuadro("ID de cuadro", cuadro10),
Número de casilla de columna ("Ranura disponible", fila 10)
)
)
),
//Cancelar
Cuadro de botón( "Cancelar", Lanzar( 1 ) )
),
)
);
Si el cuadro de botones tuviera el nombre "OK", se cerraría automáticamente. Pero ha creado su propio botón con su propio nombre, lo cual está perfectamente bien, pero el botón personalizado solo hará lo que usted le indique.
Hay dos formas de agregar la capacidad de cerrar la ventana de un botón. Una es asignar el cuadro de botón a una variable y luego enviarle el mensaje Cerrar ventana dentro del script del botón:
b=Button Box( "Check Space",
New Window( "Available Spaces",
Table Box( Number Col Box( "Box ID", box10 ), Number Col Box( "Available Slot", row10 ) )
);
b<<CLOSE window=""></CLOSE>
O puedes asignar una función al botón y evitar agregar una variable al espacio de nombres global:
Button Box( "Check Space",
<<SET function=""></SET>
HTH,
melanie