Monday, November 15, 2010

Cargar tabla desde archivo

FORM cargar_tabla_desde_archivo
      USING    p_ls_path TYPE string
      CHANGING p_ltd_aspirante TYPE STANDARD TABLE .
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                      = p_ls_path
      filetype                      = 'ASC'
      has_field_separator           = 'X'
    TABLES
      data_tab                      = p_ltd_aspirante
    EXCEPTIONS
      file_open_error               = 1
      file_read_error               = 2
      no_batch                      = 3
      gui_refuse_filetransfer       = 4
      invalid_type                  = 5
      no_authority                  = 6
      unknown_error                 = 7
      bad_data_format               = 8
      header_not_allowed            = 9
      separator_not_allowed         = 10
      header_too_long               = 11
      unknown_dp_error              = 12
      access_denied                 = 13
      dp_out_of_memory              = 14
      disk_full                     = 15
      dp_timeout                    = 16
      OTHERS                        = 17            .
  IF sy-subrc <> 0.
*    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    MESSAGE ID SY-MSGID TYPE 'I' NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*    RETURN.
  ENDIF.
ENDFORM. 

No comments:

Post a Comment