Yo con los indicadores en COBOL no tengo ningun problema en pintar un color a cada campo determinado de un subfichero, dependiendo de programa,, no se cual sera vuestro problema en RPG porque yo lo unico que tengo que hacer es activar un indicador en las dds en palabra clave color.


[EMAIL PROTECTED]
Dpto.Informático
www.foisa.com
----- Original Message ----- From: "RGB" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Tuesday, March 28, 2006 4:00 PM
Subject: RE: SFLCHCCTL Y EL COLOR


Gracias Jordi

Incluso quitando la palabra clave CHCAVAIL, sigue sin funcionar. Pues aparece en verde.

El SFl lo unico que hace es mostrar una serie de Equipos(Baterias) para una maquina en concreto, y el usuario
selecciona una Bateria.

Queria simplemente mostrar en Rojo aquella bateria que es standar de la maquina. Y solamente puede haber una

Gracias por todo, seguire investigando

Rafael Garcia


-----Mensaje original-----
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] nombre de
[EMAIL PROTECTED]
Enviado el: martes, 28 de marzo de 2006 15:13
Para: [email protected]
Asunto: Re: SFLCHCCTL Y EL COLOR






Rafael,

Fíjate que tienes definido en el registro de control la palabra clave
CHCAVAIL(*COLOR WHT), ésto es lo que te está forzando que cuando visualizas
el campo del sfl, siempre lo veas en alta intensidad (color blanco).

Dependiendo del valor que tenga el campo SCONTROL, (creo recordar que los
valores posibles iban del 0 a 3, dependiendo de si estaba disponible,
seleccionado, no disponible, etc.), podrías llegar a condicionar los
atributos del campo SNOMEQU.

Lo que no recuerdo es si puedes llegar a condicionar la propia palabra
clave CHCAVAIL... pero mucho me temo que no :-(

Espero haberte ayudado.

Jordi.





                     "RGB"
<[EMAIL PROTECTED] Para: <[email protected]>
                     s>                       cc:
Enviado por: Asunto: SFLCHCCTL Y EL COLOR
                     forum.help400-admin
                     @combios.es


                     28/03/2006 09:08
                     Por favor, responda
                     a forum.help400






Hola

Tengo el siguiente archivo de pantalla

Deseo que en determinadas circustancias el campo SNOMEQU del subficheo
FSM01 se ponga en Rojo
Para eso activo el indicador 89
Pues no hay forma siempre sale en alta intensidad

Alguna sugerencia

Gracias


A                                      DSPSIZ(24 80 *DS3)
A                                      INDARA

A          R FMT01
A                                      OVERLAY
A WINDOW(2 12 20 27 *NOMSGLIN *NORSTC-
A                                      SR)
A WDWTITLE((*TEXT &MTITULO) (*COLOR R-

A                                      ED) (*DSPATR UL) *CENTER)
A            MTITULO       10A  P
A            MBOTON         2Y 0B 20  1PSHBTNFLD
A                                      CHCAVAIL((*COLOR BLU))
A                                      PSHBTNCHC(1 'Pantalla anterior')
A                                      WINDOW(2 12 20 27 *NOMSGLIN
A                                      SR)
A WDWTITLE((*TEXT &MTITULO) (*COLOR R-

A                                      ED) (*DSPATR UL) *CENTER)
A          R FMS01                     SFL
A            SCONTROL       1Y 0H      SFLCHCCTL
A            SCODEQU        6S 0H
A            SNOMEQU       22   O  1  1
A  89                                  COLOR(RED)
A          R FMC01                     SFLCTL(FMS01)
A                                      CF12(12 'Pantalla Anterior')
A                                      OVERLAY
A  40                                  SFLDSP
A N70                                  SFLDSPCTL
A  70                                  SFLCLR
A  60                                  SFLEND(*SCRBAR *SCRBAR)
A                                      SFLSIZ(9999)
A                                      SFLPAG(0018)
A                                      WINDOW(FMT01)
A                                      SFLSNGCHC(*SLTIND *AUTOSLT)
A                                      CHCAVAIL((*COLOR WHT))
A          R FMT02
A                                      WINDOW(FMT01)
A                                      OVERLAY
A                                 10  1'No hay Equipos'
A                                      DSPATR(HI)
A                                 11  1'para Mostrar'
A                                      DSPATR(HI)
A          R FMT03
A                                      ASSUME
A                                      OVERLAY
A                                  2  4' '



Rafael Garcia


__________________________________________________
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://coyote.combios.es/mailman/listinfo/forum.help400




__________________________________________________
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://coyote.combios.es/mailman/listinfo/forum.help400

__________________________________________________
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://coyote.combios.es/mailman/listinfo/forum.help400

__________________________________________________
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://coyote.combios.es/mailman/listinfo/forum.help400

Responder a