Autor Tema: NECESITO AYUDA!!!  (Leído 4748 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado jlpdky2

  • Novato
  • *
  • Mensajes: 8
    • Ver Perfil
NECESITO AYUDA!!!
« en: 28 de Septiembre de 2007, 01:27:12 pm »
HOLA A TODOS,
ALGUIEN ME PODRIA AYUDAR?
QUIERO HACER UN PROGRAMA EN EL QUE EL USUARIO ME INTRODUZCA UNA RUTA Y UN NOMBRE DE UN FICHERO
Q LUEGO MI PROGRAMA GENERARA. MI PREGUNTA ES: ¿COMO PUEDO PONER AL LADO DEL NOMBRE EL TIPICO
ICONO 'MI PC' PARA QUE EL USUARIO PUEDA NAVEGAR POR LAS CARPETAS DE SU PC Y ASI EL PUEDA
DECIDIR DONDE QUIERE QUE SE GRABE EL FICHERO QUE EL PROGRAMA GENERARA?
¿QUE ME FALTA?

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS fichero(50) TYPE c OBLIGATORY DEFAULT 'c:\aaa.txt'.
SELECTION-SCREEN END OF BLOCK b1.

GRACIAS POR ADELANTADO

Desconectado oscar

  • Administrador
  • Usuario Sr.
  • *****
  • Mensajes: 112
    • Ver Perfil
Re: NECESITO AYUDA!!!
« Respuesta #1 en: 28 de Septiembre de 2007, 01:37:05 pm »
Utiliza este trozo de código.

Código: [Seleccionar]
  PARAMETERS: fichero LIKE rlgrap-filename.


*Funcion que ayuda a buscar un archivo en windows
  AT SELECTION-SCREEN ON VALUE-REQUEST FOR fichero.


    CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
*   DEF_FILENAME = ' '
*   DEF_PATH = ' '
    mask = ',*.* ,*.*.'
    mode = '0'
    title = 'Datos de pedido'
    IMPORTING
    filename = fichero
*   RC =
* EXCEPTIONS
*   INV_WINSYS = 1
*   NO_BATCH = 2
*   SELECTION_CANCEL = 3
*   SELECTION_ERROR = 4
*   OTHERS = 5
    .
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.

Un saludo.