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)
C*=======================================================================*
 * 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*
     C                   SELECT
C**-Sale del Sistema
     C                   WHEN      *IN03
C**-Valida Acci¢n
     C                   WHEN      WCHC = 1
     C                   CALL      \'PGMEXEC1\'--> Escribir Programa a ejecutar
C**-Valida Acci¢n
     C                   WHEN      WCHC = 2
     C                   CALL      \'PGMEXEC2\'--> Escribir Programa a ejecutar 
C*
     C                   ENDSL
C*
     C                   ENDDO                                                  FIN *IN03
C*
C**-Fin del Proceso
     C                   EVAL      *INLR = *ON