- Code: Select all Expand view RUN
@ 10, 10 FOLDER oFolder ;
PROMPTS "tab1", "tab2"
En caso de que en determinada condicion quiera añadir tab3 habra de hacerse asi:
- Code: Select all Expand view RUN
IF lCondicionParaTab3
@ 10, 10 FOLDER oFolder ;
PROMPTS "tab1", "tab2", "tab3"
ELSE
@ 10, 10 FOLDER oFolder ;
PROMPTS "tab1", "tab2"
ENDIF
Con lo facil que habria sido poner en la definicion del comando que lo que se pasa es un array y NO una lista de literales separados por comas... si ya se que es molesto poner { y } pero luego las posibilidades son INMENSAS.
- Code: Select all Expand view RUN
- aPrompts:= {"tab1", "tab2"}
IF lCondicionParaTab3
Aadd(aPrompts, "tab3")
ENDIF
@ 10, 10 FOLDER oFolder ;
PROMPTS aPrompts
Y sÍ ya sé que se puede usar la TFolder() directamente...
Y ya metidos en harina de comandos mal diseñados
Supongamos:
- Code: Select all Expand view RUN
- ACTIVATE WINDOW CENTER MAXIMIZED
¿ Qué pasa si la ventana será centrada a veces si o a veces no ? ¿ O maximizada si o maximizada no ?
Con lo facil que habria sido poner:
- Code: Select all Expand view RUN
- ACTIVATE WINDOW ;
CENTER lConCenter ;
MAXIMIZED lConMaximized
Por no hacerlo asi... cuando se juntan un par de condiciones los comandos se hacen INSERVIBLES: hay que usar directamente las clases.
Saludos.