Aquí te envio como podrias montarlo espero te sirva.
##################################################################
A R PANTALLA
A CA04(04 'Lista')
A RTNCSRLOC(&WPANTA &WCAMPO)
A WPANTA 10A H
A WCAMPO 10A H
A 8 2'PRIMER CAMPO. . . . . . '
A CAMPO1 R B 8 30
A 8 72'F4=Lista'
A 10 2'sEGUN CAMPO . . . . . . '
A CAMPO2 R B 10 30
A 89 10 72'F4=Lista'
##################################################################
* Campo del Registro de Pantalla
E PRO 1 2 10
* Lista
C *IN04 CASEQ*ON LISTA
C ENDCS
*******************************************************
C LISTA BEGSR
*******************************************************
C WPANTA IFEQ PANTALLA
*
C SELEC
C WCAMPO WHEQ PRO,1
C CALL 'PROGRAM1'
C WCAMPO WHEQ PRO,2
C CALL 'PROGRAM2'
C ENDSL
*
C ENDIF
*
C ENDSR
*******************************************************
** PRO
CAMPO1
CAMPO2
##################################################################
Saludos
Paco Medina
Dtor.Informatica
Exclusivas Camacho, S. L.
Av. J. Ortega y Gasset, 301 (Pol. San Luis)
29006 Málaga, España
Tel. +34 952 322 900
Fax +34 952 314 900
www.e-camacho.com
[EMAIL PROTECTED]
Este e-mail es confidencial. Si usted no es el receptor apropiado, rogamos
no use la información contenida en el mismo por ser personal e
intransferible.
Si usted lo ha recibido por equivocación o descuido, por favor, reenvíe el
e-mail inmediatamente al remitente y destruya el documento.
EXCLUSIVAS CAMACHO S.L. no se hará responsable del mal uso de la
información recibida en estas condiciones, tomando las pertinentes acciones
legales contra la persona o entidad que incumpla el siguiente clausulado.
_____
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] En nombre de
[EMAIL PROTECTED]
Enviado el: viernes, 15 de junio de 2007 8:21
Para: forum.help400
Asunto: Re: Desarrollo zonas activas en pantalla por SDA
Bueno, yo lo hago con la palabra clave RTNCSRLOC:
0005.40 A RTNCSRLOC(® &CAMP
&POS)
0005.60 A REG 10A H
0005.70 A CAM 10A H
0005.80 A POS 4S 0H
Aquí recupera el registro de pantalla, el nombre del campop y la posicion.
y luego en el programa:
If *in04;
Select;
When Camp='DPCLIE';
subrutina;
When CAMP='DPARTI';
subrutina...
Endsl;
Endif;
"VALENCIA Informatique" <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED]
14/06/2007 20:00
Por favor, responda a
"forum.help400" <[email protected]>
Para
"forum.help400" <[email protected]>
cc
Asunto
Desarrollo zonas activas en pantalla por SDA
Buenas tardes a todos los foreros.
Queríamos saber como se podían desarrollar pantallas en las que aparezcan
zonas activas, es decir que posicionandote en un lugar de la pantalla p.e
pudieras usar la función F4 para que apareciera otra pantalla de opciones,
etc., creo que me habéis cogido la idea. Cualquier información o idea en el
comienzo de desarrollos (SDA) para estas funciones serán bienvenidas.
Muchas gracias
______________________________
Rafael Gil -- Víctor Alejandre
Dto. Informatica
ID-Logistics España
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; 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
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; 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
