TE CONTESTO EN EL CUERPO DE TU MENSAJE.
_____ De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Juan Ramón Garcia Enviado el: viernes, 11 de julio de 2008 11:09 Para: forum.help400 Asunto: Re: Ventanas solapadas Hola Susana: Pero.... eso es normal, es lo que tiene que hacer, el programa A llama al B (que muestra unos datos) vuelve al programa A (que sigue su proceso y llama al programa C (que muestra otros datos), evidentemente no puede solaparse sobre los datos mostrados por B, sólo puede solaparse sobre los datos mostrados por A.CLARO CLARO CLARO --- ESO ES --- PERO NO FUNCIONA ASI. BORRA TAMBIEN LA IMAGEN DEL PROGRAMA AQUE BORRE B ES LOGICO-- PRUEBALO Y LO VERAS- El hacer que no finalice el programa B y forzar a mantener sus datos en pantalla te fuerza a que los datos del programa A también se queden "congelados" y cuando C se solapa, lo hace sobre la imagen de B sobre A (que está desactualizada). SI NO FINALIZO B (NO HAGO SETON LR) OLVIDATE DE C, EL PROBLEMA ES QUE LA SEGUNDA VEZ QUE ENSEÑO B LOS DATOS DE A SON LOS DEL PRIMER CICLO (P.EJEMPL LOS DATOS DEL PRINMER CLIENTE AL QUE CONSULTE, NO DEL CLIENTE 2 QUE ES CON EL QUE ESTOY TRABAJANDO EN ESTE CICLO) Entiendo por ciclo PGM A, B, C con el cliente uno, segundo ciclo PGM A,B,C de cliente 2 Desde mi punto de vista puede tener solución (chapuceando el código) pero creo que lo que te está haciendo es lógico y es lo que debe de hacer, lo que estás intentando es buscar 3 pies al gato (al programa en este caso ;-) que no que no, programa A saca pantalla y llama a B, programa B saca ventana, finalizo programa B (con LR), programa A (Importante es el A) quien tambien llama al C) y entoncesal sacar la ventana del C) BORRA TODA LA IMAGEN DEL PROGRAMA A Insisto. Ejecutalo son 3 sentencias PROGRAMA A *************** Principio de datos *************************** FPGM01FM CF E WORKSTN C *INKC DOWEQ*OFF C EXFMTFMT01 C KE CALL 'PGM02' C KE CALL 'PGM03' C ENDDO C MOVEL*ON *INLR C RETRN ****************** Fin de datos ****************************** A************************************************************ A*%%EC PANTALLA DEL PGM01********** A DSPSIZ(24 80 *DS3) A CF03 A CF12 A CF05 A R FMT01 A*%%TS SD 20080709 191046 QPGMR REL-V4R2M0 5769-PW1 A 2 72TIME A 8 3'primer programa de la cade A e f5 para visualizar' A 9 3'el segundo y tercer progra A 11 3'pulse F3 para cancelar' ************** Fin de datos *************************************** PROGRAMA B *************** Principio de datos ******************** FPGM02FM CF E WORKSTN C EXFMTFMT01 C MOVEL*ON *INLR C RETRN ****************** Fin de datos *********************** A*%%EC PANTALLA DE PGM02 A DSPSIZ(24 80 *DS3) A R FMT01 A*%%TS SD 20080709 191359 QPGMR REL-V4R2M0 5769-PW1 A OVERLAY A WINDOW(7 23 14 50) A 2 43TIME A 6 3'Segundo programa de la cad A R NADA ASSUME A 3 70' ' *************** Fin de datos *************************************** PROGRAMA C *************** Principio de datos ***************** FPGM03FM CF E WORKSTN C EXFMTFMT01 C MOVEL*ON *INLR C RETRN ****************** Fin de datos ******************** A*%%EC A DSPSIZ(24 80 *DS3) A R FMT01 A*%%TS SD 20080710 124858 QPGMR REL-V4R2M0 5769-PW1 A WINDOW(11 10 11 50) A 1 43TIME A 6 3'Ultimo programa de la cade A 7 3'Ha borrado el primer forma A ntalla' A R NADA ASSUME A 3 70' ' ****************** Fin de datos *************************************** Un saludo. Juanra PD: Por cierto, yo también vengo de lejos, antes del S/34 trabajé con S/32 ¡con fichas perforadas! (jó cuando cuento estas cosas me siento mayor) **************************************************************************** **************************************************************************** ****************** EL PROBLEMA ES CUANDO EL PROGRAMA (A) LLAMA SECUENCIALMENTE A LOS OTROS DOS PROGRAMAS (B) Y (C) *********SIENDO (B) Y (C) PROGRAMAS DE VENTANA******** **************************************************************************** **************************************************************************** *************** --------------------- PGM A | | -------------- CALL PGMB | ---> | PGM B | | --------------- CALL PGMC | --> | PGM C | cuando muestra esta ventana BORRA LA VENTANA DE B Y LA PANTALLA DE A --------------------- --------------
__________________________________________________ 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
