Re: Menu Popup (consulta )

Wed, 08 Oct 2008 00:40:49 -0700

Te adjunto el fuente de una pantalla de prueba que tengo con todas las posibilidades que conozco. Compílala y prueba con el SDA los distintos formatos a ver si encuentras algo que te sirva.

Por cierto, la pantalla del menú desplegable no me funciona al probarla con el SDA (mensaje CPF5051.) ¿Alguien me sabría decir que le falta o le sobra para que funcione?

     A*%%TS  SD  20020305  175651  FERNANDO    REL-V4R4M0  5769-PW1
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A          R FMT01
     A*%%TS  SD  20020305  175651  FERNANDO    REL-V4R4M0  5769-PW1
     A                                      CA03
     A                                  1  3'HOLA'
     A            F1             2Y 0B  3 42SNGCHCFLD(*SLTIND (*NUMCOL 1))
     A                                      DSPATR(HI)
     A                                      CHOICE(1 '>UNO')
     A                                      CHOICE(2 '>DOS')
     A                                      CHOICE(3 'T>RES')
     A            F2             2Y 0B  8 42MLTCHCFLD(*SLTIND (*NUMCOL 3))
     A                                      DSPATR(HI)
     A                                      CHOICE(1 '>UNO')
     A                                      CHCCTL(1 &CTL12)
     A                                      CHOICE(2 '>DOS')
     A                                      CHCCTL(2 &CTL22)
     A                                      CHOICE(3 'T>RES')
     A                                      CHCCTL(3 &CTL32)
     A            CTL12          1Y 0H
     A            CTL22          1Y 0H
     A            CTL32          1Y 0H
     A            FLD002         2A  B  9  9DSPATR(HI)
     A            PSHFL1         2Y 0B 23  4PSHBTNFLD(*RSTCSR (*NUMCOL 3))
     A                                      PSHBTNCHC(1 'F1=>HELP')
     A                                      PSHBTNCHC(2 'F3=>FORA.......')
     A                                      CHCCTL(2 &CTL)
     A            CTL            1Y 0H
     A            FLD003         2S 0B  9 16
     A            FLD001       320   B 12  1
     A          R FMT02
     A*%%TS  SD  19990628  135237  FERNANDO    REL-V4R2M0  5769-PW1
     A            FN            90A  B  3  4CNTFLD(030)
     A          R PULL01
     A*%%TS  SD  19990628  171115  FERNANDO    REL-V4R2M0  5769-PW1
     A                                      PULLDOWN(*NOSLTIND)
     A            FP1            2Y 0B  1  1SNGCHCFLD(*NOSLTIND)
     A                                      CHOICE(1 '>UNDO       ')
     A                                      CHOICE(2 'C>H2')
     A                                      CHOICE(3 '>COPY       ')
     A          R MNBAR1
     A*%%TS  SD  19990628  171545  FERNANDO    REL-V4R2M0  5769-PW1
     A                                      MNUBAR(*NOSEPARATOR)
     A                                      MNUCNL(CA12)
     A            MNB001         2Y 0B  1  2MNUBARCHC(1 PULL01 'Archivo')
Saludos.

Fernando Pérez 

Cerámica Saloni. Dpto. Auditoría y Organización


Carlos Pedrozo escribió:
 
Hola foreros;
Una consulta, si algunos de Uds tienen una experiencia.
Estoy tratando de hacer un utilitario para desplazar entre tres campos (en la misma pantalla) con la tecla TAB (tipo popup).
 
Campo1              Campo2         Campo3
 
De acuerdo con la selecccion de un operador ejecuto un evento, me explico?
 
Alguien de Uds ya desarrollo algo parecido? estoy tratando de hacer algo sencillo; no se si debo definir en la DDS para que el cursor se desplace de izquierda a dereccha y con un Intro ejecutar el evento.
 
Gracias y saludos
 
Carlos Pedrozo




Explore the seven wonders of the world Learn more! 

__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
begin:vcard
fn;quoted-printable:Fernando P=C3=A9rez
n;quoted-printable:P=C3=A9rez;Fernando
org;quoted-printable:;Auditor=C3=ADa y Organizaci=C3=B3n
email;internet:[EMAIL PROTECTED]
tel;work:Ext. 627
x-mozilla-html:TRUE
version:2.1
end:vcard


__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400

Responder a