¿ 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

Esta es una Utilidad Calendario que realice y consiste en pintar un calendario de sistema que retorna como parámetro la fecha seleccionada .
La utilización es muy simple nos sirve para pantallas donde capturemos fechas como parámetros.

Ej: Eval Fecha8Amd=FnRtvFec (en la variable Fecha8Amd me retornaria la fecha
seleccionada)
Así invocaríamos la función, esto me evita hacer validaciones de fecha y hace mas amigable la interfase con el usuario.

Esta Utilidad es útil en pantallas de captura de fechas en as400

Implementación

1. Copiar los Archivos en la Qrpglesrc de su librería de trabajo
PsdFechas
PshFechas
PsmFechas

2. Compilar el archivo de Pantalla PsdFechas (Opción 14)
Compilar el Modulo (Opción 15) de Funciones PsmFechas

3. En el Programa que se baya a incluir se debe adicionar el Modulo Ej. PRFECHAS Fuente Tipo RPGLE:

// Definición de Estructuras y Variables

D Ds DFecha 8 /Copy *Libl/QRpglesrc,PShFechas // Llamado de la Función Calendario C Eval Fecha=FnRtvFec C Seton Lr


4. Este fuente RPGLE se debe compilar como Modulo (Opción 15)

5. Se debe crear el Programa
CRTPGM PGM(PABLIBPR/PRFECHAS) M ODULE(PRFECHAS PSMFECHAS)

6. Llamar al Programa PRFECHAS (Call PrFechas)


Tienes los fuentes de la utilidad aquí (73Kb) Puedes bajarte la utilidad aquí (10 Kb)

El autor es Carlos Andres Garcia

Septiembre 2003

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en 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 y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- 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