PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → INCLUIR CODIGO AL INICIO DE CADA PLANO
INCLUIR CODIGO AL INICIO DE CADA PLANO
Débuté par GARCIA SALVADOR, 19 mar. 2020 18:10 - 2 réponses
Membre enregistré
14 messages
Posté le 19 mars 2020 - 18:10
Buenas,

Quería saber si alguien tiene una solución para poder incluir código al inicio de un plano.
Pretendo usar planos para evitar hacer muchos módulos similares, pero a veces hay que incluir código de forma similar a como lo hacemos al Inicio de una ventana.

Un saludo,
Membre enregistré
21 messages
Posté le 21 mars 2020 - 00:55
Buena tarde Salvador.

Mira mi solución es mas que sencilla pero efectiva y bien organizada.

En cada ventana coloco un
Local Procedure
que contenga un selector:

// Summary: Cambia de plano y configura cada uno.
// Syntax:
//CambioPlano(1)
//
// Parameters:
// nPlane (int): CambioPlano Plano al cual se cambiara.

PROCEDURE CambioPlano(LOCAL nPlane is int)
SWITCH nPlane
CASE 1
STC_Titulo = "Seleccione bodega"
CASE 2
STC_Titulo = "Escanee el codigo"
CASE 3
STC_Titulo = "Agregue lote manual"
OTHER CASE
STC_Titulo = "Sin Titulo"

END
MyWindow..Plane = nPlane


Y cada vez que haga el cambio de plano mando a llamar esta función, si deseas que solo se ejecute una sola vez usa banderas de control respaldadas con variables globales.

Espero te sirva, Saludos.

--
__________________________
-ercnet.elias@gmail.com-
-Ing. Elias Ramos Cantù-
Membre enregistré
14 messages
Posté le 21 mars 2020 - 11:08
Gracias Elias, es la solución a la que había llegado yo.

Por cierto, sabes como crear un menú emergente, asignado a un botón, de forma dinámica, mediante programa.
Creo bien el botón, pero cuando trato de crear un menú popup para asignárselo, no me deja. Me pide un menú source.
Y me parece que me va a tocar dejar creados menús vacíos por edición, para luego asignarlos a los botones y añadirles opciones.

Gracias y un saludo,