¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas
Selección de Opciones por Mouse

Categoría :Programación
Autor : Ramón Retana Hernández
Título : Selección de Opciones por Mouse


Descripción del truco:
Presenta una Ventana donde podemos Selecionar algunos Procesos de ejecución , Presentando la Opción con Botones de Selección (Radio) y este Puede ser Seleccionado con el Mouse.

A*%%TS SD 20060427 105545 RETANA REL-V5R1M0 5722-WDS A*%%EC A DSPSIZ(24 80 *DS3) A PRINT A ENTFLDATR((*COLOR YLW) (*DSPATR RI)) A CF03(03 \'Salir del Sistema\') A R W1 A*%%TS SD 20060410 130537 RETANA REL-V5R1M0 5722-WDS A WINDOW(*DFT 5 27 *NOMSGLIN) A KEEP A OVERLAY A WDWTITLE((*TEXT \'* Importes X Pront- A o Pago *\') - A (*COLOR WHT) (*DSPATR RI)) A WPRO 1Y 0H A WCHC 2Y 0B 2 3SNGCHCFLD(*AUTOSLT *RSTCSR) A CHCAVAIL((*COLOR PNK)) A CHOICE(1 \'>Interfazados\') A CHCCTL(1 &WPRO) A CHOICE(2 \'>Por Interfazar\') A CHCCTL(2 &WPRO) A FUN2 2Y 0B 5 2PSHBTNFLD(*RSTCSR) A PSHBTNCHC(1 \'F3=>Salir\' CF03) A 4 2\' \' A DSPATR(UL) A DSPATR(HI) A* A R R0 A*%%TS SD 20060410 094736 RETANA REL-V5R2M0 5722-WDS A ASSUME A WCAMP1 1A O 24 4 RPGLE .......Botonrpgle Codigo .......Abajo Especificado ´ HDatEdit(*YMD) À *=======================================================================* Î * Programa. . . .: botonrpgles * Î * Modulo. . . . .: * Î * Sistema . . . .: * Î * Descripci¢n . .: Selecci•n de Importes X Pronto Pago * Î * Propiedad . . .: * Î * Fecha Creaci¢n.: 2006/ABR/27/Jueves * Î * Autor . . . . .: Ramo Retana Hdez. * À * HISTORIAL DE MANTENIMIENTOS * À * --------------------------- * À * FECHA AUTOR DESCRIPCIàN CLAVE * Î * * Î * * À *=======================================================================* Î * Declaraci¢n de Archivos À * Pantalla de Selecci¢n FCRCOIPP1D CF E WORKSTN À *-----------------------------------------------------------------------* À **----------------------------------------------* Î **-- Proceso Principal --** À **---------------------------------------------** C DOW *IN03 = *OFF C EXFMT W1 À * C SELECT À **-Sale del Sistema C WHEN *IN03 À **-Valida Acci¢n C WHEN WCHC = 1 C CALL \'PGMEXEC1\'--> Escribir Programa a ejecutar À **-Valida Acci¢n C WHEN WCHC = 2 C CALL \'PGMEXEC2\'--> Escribir Programa a ejecutar À * C ENDSL À * C ENDDO FIN *IN03 À * À **-Fin del Proceso C EVAL *INLR = *ON

Código en formato texto
Fecha Mayo 2006

Tienes algún truco que quieras compartir con todos los profesionales de Recursos iSeries AS400?.Envianoslo y si resulta seleccionado te enviaremos un vale de Amazon por valor de 50$

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

Dossiers técnicos iSeries y AS400
- Dossier de seguridad
- Alta disponibilidad.
¿Buscas trabajo ?
Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico.
Nuestros links preferidos
- Tendencias tecnologías de la información
Expertos en materías relacionadas con las tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware. Software gratuito para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Manuales. Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049