Hola de nuevo,
Acaba de encontrar un poco más de detalle:
Para cambiar la pantalla inicial de SIGNON (hace mucho tiempo que lo hicimos), creo que sólo hay que cambiar la que hay por defecto en QGPL/QDSIGNON, que es un *DSPF y el fuente está en la QDDSSRC de QGPL.
OJO!!! este archivo tiene unos campos que hay que respetar el nombre y el orden en que están. Eso sí, se pueden pasar a NO Display para que no se visualicen.
Como ya te he dicho en la pantalla de SIGNON hay el Logo de la Compañía.
Por esto se decidió (hace ya mucho tiempo) poner el diseño de la pantalla de Navidad como un archivo de pantalla que se ejecuta a partir de un programa CL que efectúa el SNDRCVF de la pantalla de Navidad.
Este programa se ejecuta siempre dentro del programa inicial que los usuarios tienen asignado en su perfil, y para no tener que modificarlo cada año, se activa en las fechas determinadas (DD-MM, sin el año). Así se visualiza siempre antes que salga en la pantalla el menú de usuario.
De esta forma cada año sólo hay que pensar en modificar la pantalla y como mucho (en casos especiales) recompilar el prog. CL.
Caso de NO cambiar el diseño de la pantalla de Navidad, el año siguiente se visualizaría la misma pantalla del año anterior.
Ejemplo del prog. CL que tenemos:
PGM
/* ================================================================= */
/* PROGRAMA DE LA FELICITACION DE NAVIDAD. */
/* NO SE PUEDE ANULAR, YA QUE ESTA INCORPORADO DENTRO DEL */
/* PROGRAMA INICIAL: LINICI00 */
/* ================================================================= */
DCL VAR(&DATA) TYPE(*CHAR) LEN(6)
DCL VAR(&MMDD) TYPE(*CHAR) LEN(4) /* Mes/dia per +
data visualitzacio. */
DCL VAR(&USRLIBL) TYPE(*CHAR) LEN(2750)
DCLF FILE(DLNADAL)
/* */
CHGJOB DATFMT(*YMD)
RTVJOBA DATE(&DATA) USRLIBL(&USRLIBL)
CHGJOB DATFMT(*SYSVAL)
CHGVAR VAR(&MMDD) VALUE(%SST(&DATA 3 4)) /* obtenir +
mes/dia. */
/* */
IF COND((&MMDD *GE '1211') *OR (&MMDD *LE +
'0107')) THEN(DO) /* Dates en que sortira +
la felicitacio.del 11/12 al 7/01 */
SNDRCVF RCDFMT(FMT10)
GOTO CMDLBL(FINAL)
ENDDO
/* */
FINAL:
ENDPGM
Espero que esto te ayude un poco más.
Saludos.
Toni Tort
Sistemes d'Informació.
Vives Vidal, Vivesa, S.A
| [EMAIL PROTECTED]
Sent by: [EMAIL PROTECTED] 21/12/2005 17:18
|
|
He creado mi pantalla navideña, la he llamado QDSIGNON_S, y realizado el siguiente mandato:
CHGSBSD SBSD(QINTER) SGNDSPF(QSYS/QDSINON_S)
¿Con esto basta?
¿Cuando tendrá efecto, cuando pare y reinicie el subsistema?
El año pasado ya lo intente y no pude cambiar la página inicial. Por cierto, la página es una de las disponibles en la web de recursos as400.
Gracias, un saludo.
Felices navidades y año 2006 a todos.
