| Pregunta: | 8703 - ACTIVAR POPUP EN PROMPT POR DEFECTO |
| Autor: | Juan Manuel Bernardi |
| No puedo conseguir hacer lo que voy a comentar. Necesito hacer una popup en foxpro, que le permita elegir al usuario el grupo sanguineo de la persona. El problema esta en el proceso de MODIFICACION, yo necesito activar la popup justo en el prompt que corresponda al grupo sanguineo que ya tiene guardado el usuario en la base de datos como campo gsno_chf. La popup posee en la ALTA la siguiente estructura: set color of scheme 4 to ,w/n,w+/n, ,g+/n,w+/bg define popup sanguineo from 15,21 to 22,29 message "Seleccione el grupo sangu¡neo del chofer del movil" color scheme 4 define bar 1 of sanguineo prompt 'A Rh +' define bar 2 of sanguineo prompt 'A Rh -' define bar 3 of sanguineo prompt 'B Rh +' define bar 4 of sanguineo prompt 'B Rh -' define bar 5 of sanguineo prompt '0 Rh +' define bar 6 of sanguineo prompt '0 Rh -' define bar 7 of sanguineo prompt 'AB Rh +' define bar 8 of sanguineo prompt 'AB Rh -' on selection popup sanguineo do elige activate popup sanguineo ***************** procedure elige ***************** gsno_chf1 = alltrim(prompt()) deactivate popup sanguineo Este el procediemiento que genere para selecionar el grupo sanguineo en la ALTA, ahora necesitaria saber, si es que se pude hacer, como activar la misma popup pero que quede seleccionado por defecto el prompt que corresponde al grupo sanguineo que tiene guardado esa persona en la base de datos. Desde ya un millon de gracias. Ojala puedan responderme. | |
| Respuesta: | Omar Holguin Rascon |
| Oye afuerzas debe desplegar un popup. set color of scheme 4 to ,w/n,w+/n, ,g+/n,w+/bg define popup sanguineo from 15,21 to 22,29 message "Seleccione el grupo sangu¡neo del chofer del movil" color scheme 4 define bar 1 of sanguineo prompt 'A Rh +' define bar 2 of sanguineo prompt 'A Rh -' define bar 3 of sanguineo prompt 'B Rh +' define bar 4 of sanguineo prompt 'B Rh -' define bar 5 of sanguineo prompt '0 Rh +' define bar 6 of sanguineo prompt '0 Rh -' define bar 7 of sanguineo prompt 'AB Rh +' define bar 8 of sanguineo prompt 'AB Rh -' on selection popup sanguineo do elige activate popup sanguineo ***************** procedure elige ***************** gsno_chf1 = alltrim(prompt()) deactivate popup sanguineo yo le haria de esta manera: VARIABLE = 0 DIME MINETRAS(8) MUESTRA(1) = 'A Rh +' MUESTRA(2) = 'A Rh -' MUESTRA(3) = 'B Rh +' MUESTRA(4) = 'B Rh -' MUESTRA(5) = '0 Rh +' MUESTRA(6) = '0 Rh -' MUESTRA(7) = 'AB Rh +' MUESTRA(8) = 'AB Rh -' @ 1,1 MENU MUESTRA,8 TITLE 'GRUPOS SANGUINEOS' READ MENU VARIABLE Esta variable te daria el numero del grupo sanguineo en el arreglo, o sea de un 1 a un 8. | |