Uso del Open Dataset

Colapsar
X
 
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
  • Yanett Ponce Seares
    Member
    • abr
    • 61

    #1

    Uso del Open Dataset

    Hola !!!!
    Estoy tratando de acceder a una carpeta y validar que exista, el problema que apesar de existir me manda error 8 .
    w_ruta = 'K:\Proveedor\12225465\485963.jpg

    OPEN DATASET w_ruta FOR INPUT IN TEXT MODE ENCODING DEFAULT .

    Sera mi problema que la extensión del archivo que necesito es jpg....
    Ojala me puedan ayudar!!!
    Gracias
    YPonce
  • Mauricio Hidalgo
    Senior Member
    • may
    • 481

    #2
    OPEN DATASET se usa en archivos que están en el servidor de aplicación. Para archivos locales deberías usar la función GUI_UPLOAD.

    saludos

    Comentario

    • Yanett Ponce Seares
      Member
      • abr
      • 61

      #3
      Si pero mi problema que el gui_upload es interactivo y dentro del programa yo armo la ruta y el nombre del archivo.
      Cuando lo probe con gui_upload me envia error de encontrar fichero... y tú sabes como deberia hacerlo???
      Muchas gracias ....
      YPonce

      Comentario

      • alvagu
        Junior Member
        • oct
        • 23

        #4
        Utiliza el método FILE_EXIST de la clase CL_GUI_FRONTEND_SERVICES para verificar si el archivo existe.

        Código:
          DATA: lw_file TYPE string,
                lw_result.
        
          lw_file = p_file.
        
          CALL METHOD cl_gui_frontend_services=>file_exist
            EXPORTING
              file                 = lw_file
            RECEIVING
              result               = lw_result
            EXCEPTIONS
              cntl_error           = 1
              error_no_gui         = 2
              wrong_parameter      = 3
              not_supported_by_gui = 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.
        
          IF lw_result IS INITIAL.
        *  Archivo no existe
            MESSAGE text-e01 TYPE 'E'.
          ENDIF.

        Comentario

        Trabajando...