si pones esto en el registro de pantalla
0014.00 A*****************************************************************
0015.00 A R XXXXXP01
0016.00 A*****************************************************************
0017.00 A 84 PUTOVR
0018.00 A 84 OVERLAY
0019.00 A CSRLOC(LINEA COLUM)
0020.00 A LINEA 3S 0H
0021.00 A COLUM 3S 0H
en estos posxx se indica el area activa fila columna desde, columna
hasta, y fila columna donde saltar.
0186.00 A POS01 10A I 21 60DFT('2108112115')
0187.00 A DSPATR(MDT)
0188.00 A DSPATR(PR)
0189.00 A DSPATR(ND)
0190.00 A POS02 10A I 21 60DFT('2115182122')
0191.00 A DSPATR(MDT)
0192.00 A DSPATR(PR)
0193.00 A DSPATR(ND)
0194.00 A POS03 10A I 21 60DFT('2172772108')
0195.00 A DSPATR(MDT)
0196.00 A DSPATR(PR)
0197.00 A DSPATR(ND)
y en el rpg
0031.00 FXXXXXXP CF E WORKSTN
0032.00 F INFDS(CONSU)
D CONSU DS
D LINCOL 370 371B00
D*
D* ESTRUCTURA PARA TRABAJAR CON LINEA COLUMNA
D*
D DS
D LINH 1 2 00
D COLHP 3 4 0
D COLHF 5 6 0
D LINHS 7 8 00
D COLHS 9 10 0
D LICOH 1 10 0
D*
D* ESTRUCTURA DE POSICIONES DE PANTALLA
D*
D DS
D POS01 1 10
D POS02 11 20
D POS03 21 30
D POS 1 30
D DIM(3)
C*
C* MDTO-04 LISTAS
C*
C *IN04 IFEQ '1'
C EXSR VALF04
C EXSR F04
C END
*****************************************************************
* *
* VALF04: VALIDACION DE ERRORES AL SOLICITAR UNA LISTA *
* *
*****************************************************************
C VALF04 BEGSR
C*
C* PONER A CERO EL CAMPO SWREC DE CONTROL DE RECUPERACIONES
C* SWREC = '0' --> NO SE HA RECUPERADO
C* SWREC = '1' --> SE HA RECUPERADO
C*
C MOVE '0' SWREC 1
C*
C* RECUPERAR POSICION DEL CURSOR
C*
C LINCOL DIV 256 LINEA
C MVR COLUM
C*
C* COMPROBAR QUE EL CURSOR ESTA EN ALGUNA POSICION DE LAS VALIDAS
C* PARA CONSULTA
C*
C Z-ADD 0 I 2 0
C Z-ADD 1 J 2 0
C*
C*
C J DOWLE 3
C MOVE POS(J) LICOH
C*
C LINEA IFEQ LINH
C COLUM ANGE COLHP
C COLUM ANDLE COLHF
C Z-ADD J I
C MOVE *HIVAL J
C ELSE
C*
C ADD 1 J
C END
C*
C ENDDO
C*
C ENDSR
*****************************************************************
* *
* F04: ANALIZAR POSICION DE CURSOR AL PULSAR F04 *
* SI LA POSICION COINCIDE CON ALGUNA DE LAS GUARDADAS *
* EN PANTALLA, ACCEDER AL PROGRAMA CORRESPONDIENTE *
* *
*****************************************************************
C F04 BEGSR
C*
C*
C* ACCESO 1 ---> SELECCION DE PROVINCIA
C*
C I IFEQ 1
C SETOFF 84
C MOVE '0' SWREC 1
C MOVE '1' SWALT 1
C MOVE *BLANKS SWPRV 2
C CALL 'XXX55V'
C PARM SWREC
C PARM SWPRV
C PARM SWALT
C END
C*
C* ACCESO 2 ---> SELECCION DE MUNICIPIO
C*
C I IFEQ 2
C SETOFF 84
C MOVE '0' SWREC 1
C MOVE '1' SWALT 1
C MOVE VPCPRB SWPRV 2
C MOVE *BLANKS SWMUN 4
C CALL 'XXX551V'
C PARM SWREC
C PARM SWPRV
C PARM SWMUN
C PARM SWALT
C END
C*
C* ACCESO 3 ---> SELECCION DE TIPO DE VIA
C*
C I IFEQ 3
C SETOFF 84
C MOVE '0' SWREC 1
C MOVE '1' SWALT 1
C MOVE *BLANKS SWTIV 5
C CALL 'XXX50V'
C PARM SWREC
C PARM SWTIV
C PARM SWALT
C END
C*
C* ANALISIS FINAL
C*
C Z-ADD LINHS LINEA
C Z-ADD COLHS COLUM
C SWREC IFEQ '1'
C*
C I IFEQ 1
C MOVE SWPRV VPCPRB
C CLPROV CHAIN RMUNP 90
C MOVE *ZEROS VPCMUB
C END
C*
C I IFEQ 2
C MOVE SWPRV VPCPRB
C MOVE SWMUN VPCMUB
C CLMUNP CHAIN RMUNP 90
C END
C*
C I IFEQ 3
C MOVE SWTIV VPTVIB
C CLTIVI CHAIN RTIVI 90
C END
C*
C END
C*
C ENDSR
C/EJECT
Pedro Pinedo Hernandez: Analista-Programador
Grupo Amcor Flexibles Hispania S.L.
Departamento de Informática / IT Department
tfno.:+34 941 28 60 90 - 941 03 01 39
fax: +34 941 20 75 43
Avd. Burgos 67-95
26006 Logroño Spain
[EMAIL PROTECTED]
(quitar nospam del dominio, para enviar)
[EMAIL PROTECTED]
14/06/2007 19:53
Please respond to
"forum.help400" <[email protected]>
To
"forum.help400" <[email protected]>
cc
Subject
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
_______________________________________________
AMCOR FLEXIBLES - LEADING THROUGH INNOVATION
_______________________________________________
CAUTION - This message may contain privileged and confidential information
intended only for the use of the addressee named above. If you are not the
intended recipient of this message you are hereby notified that any use,
dissemination, distribution or reproduction of this message is prohibited. If
you have received this message in error please notify AMCOR FLEXIBLES
immediately. Any views expressed in this message are those of the individual
sender and may not necessarily reflect the views of AMCOR FLEXIBLES.
__________________________________________________
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
