yo tengo este codigo para controlar que al presionar F4 para mostrar una ventana de
seleccion el cursor se regrese al campo
donde se pulso la tecla, espero te sirva
este codigo en mi pantalla:
A 46 CSRLOC(ROWPOS COLPOS)
este codigo en mo programa:
If *In04=*On;
*In46=*On;
If Csrfld='W4ITEM';
Rowpos=10;
Colpos=21;
ExSr R400;
iter;
Else;
Rowpos=%div(curpos:256);
Colpos=%rem(curpos:256);
Endif;
Endif;
Saludos
Gerardo Santillana
IT Department
Delphi Mechatronic Systems
US Ph: (956) 554 5832
MX Ph: (868) 812 81 63/64/65 Ext 5832
Pager: (956) 768 1048
e-mail [EMAIL PROTECTED]
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Alfonso Quintanar
Monroy
Sent: Friday, April 02, 2004 5:13 PM
To: [EMAIL PROTECTED]
Subject: Re: Posicionar cursor...
Hola al igual que el compa�ero juan antonio, tome las instrucciones que
env�o Juan Carlos, pero mi cursos sigue sin posicionarse en el campo que
solicita la busqueda.
Pregunta me falta algo de c�digo en el RPGLE.
Saludos
Ing. Alfonso Quintanar Monroy
Analista Programador
Gcia. Soluciones Operativas
Corporativo de Inform�tica (CCIT)
Grupo A.D.O., M�xico, D.F.
Tel. 51331100 Exts. 4773, 4774 y 4796
----- Original Message -----
From: "Juan Antonio" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, April 01, 2004 8:15 AM
Subject: Re: Posicionar cursor...
> Ya est�... Que gran despiste...
> Gracias.
>
> ----- Original Message -----
> From: "Juan Carlos Paredes" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, April 01, 2004 10:13 AM
> Subject: RE: Posicionar cursor...
>
>
> Te falta lo siguiente CSRLOC(FILA COLUM)
>
> Saludos.
> Juan Carlos.
>
> > -----Mensaje original-----
> > De: Juan Antonio [SMTP:[EMAIL PROTECTED]
> > Enviado el: jueves, 01 de abril de 2004 10:05
> > Para: Forum
> > Asunto: Posicionar cursor...
> >
> > Hola compa�eros.
> > Tengo el siguiente problema:
> > Una pantalla completa (no window) con:
> > A R PANTA1
> > A*%%TS SD 20040401 093805 JPG REL-V4R4M0 5769-PW1
> > A CA03(03 'Salir')
> > A CF04(04 'Seleccionar')
> > A RTNCSRLOC(® &CAMPO &POS)
> > A RTNCSRLOC(*WINDOW &FILA &COLUM)
> > A REG 10A H
> > A CAMPO 10A H
> > A POS 4S 0H
> > A FILA 3S 0H
> > A COLUM 3S 0H
> >
> > Cuando ejecuto una F04-Buscar para un campo determinado el cursor no se
> > queda en el campo seleccionado y me vuelve al primero de la pantalla
(este
> > no tiene atributo alguno).
> > �Alguien tiene alg�n consejo? �Me falta algo?
> >
> >
> >
>
> _____________________________________________________
> 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, env�a el mensaje resultante de pulsar
> mailto:[EMAIL PROTECTED]
>
>
> _____________________________________________________
> 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, env�a el mensaje resultante de pulsar
> mailto:[EMAIL PROTECTED]
>
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
****************************************************************************************
Note: The information contained in this message may be privileged and confidential and
thus protected from disclosure. If the reader of this message is not the intended
recipient, or an employee or agent responsible for delivering this message to the
intended recipient, you are hereby notified that any dissemination, distribution or
copying of this communication is strictly prohibited. If you have received this
communication in error, please notify us immediately by replying to the message and
deleting it from your computer. Thank you.
****************************************************************************************
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
