| 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$
|
