메뉴 건너뛰기

SAP 한국 커뮤니티

<b>[완료]</b>[re] gui_upload로 엑셀 upload 질문입니다.

띵호아빠 2008.08.24 12:51 조회 수 : 4399 추천:1

GUI Upload 실 사용 로직입니다.


도움이 됐으면 합니다.


- 구성은 선언부


- Upload form문


- 실 GUI Upload Function 실행해서 읽어 들이기 입니다.


 


1. data 선언







* UPLOAD FORMAT INTERNAL TABLE
DATA: BEGIN OF GT_UP OCCURS 0,
        .
        .
        .
        .
        .
        .
      END   OF GT_UP.
DATA: GV_ERROR .

PARAMETERS: P_FILE  LIKE RLGRAP-FILENAME    OBLIGATORY
                                            DEFAULT 'C:*.XLS'.

 

 


 


 


2. Upload Form문







FORM FILE_UPLOAD .

  DATA : LV_PATH(255),
         LV_PATH2(255),
         LV_FILE(255),
         LV_FILE2(255).

  CLEAR: LV_PATH, LV_PATH2, LV_FILE, LV_FILE2, GV_ERROR,
         GT_UP,  GT_UP[].

*. 엑셀파일인지 확인작업
  MOVE  P_FILE           TO  LV_FILE  .
  DO.
    SPLIT  LV_FILE AT '.' INTO LV_PATH LV_FILE .
    TRANSLATE  LV_FILE  TO UPPER CASE.

    IF   LV_FILE = 'XLS' OR LV_FILE = SPACE.
      EXIT .
    ENDIF.
  ENDDO.

  CASE LV_FILE .
    WHEN 'XLS'  .
    WHEN OTHERS .
      MESSAGE S000 WITH 'Upload 할 수 없는 파일형태입니다' .
      GV_ERROR = 'X' .
      STOP .
  ENDCASE .


  PERFORM EXCEL_FILE_UPLOAD  TABLES  GT_UP
                             USING   P_FILE.


 


3. GUI-UPLOAD 실행







FORM EXCEL_FILE_UPLOAD    TABLES PT_UP
                          USING  PV_FNAME .
*
  DATA: LV_FILENAME       TYPE STRING,
        LV_FILENAME2      LIKE RLGRAP-FILENAME,
        LT_RAW_DATA       TYPE TRUXS_T_TEXT_DATA.
  DATA: LV_TOTAL          TYPE I.
*
  CLEAR: LV_TOTAL.
*
  LV_FILENAME = PV_FNAME.
*
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILENAME                = LV_FILENAME
      FILETYPE                = 'ASC'
      HAS_FIELD_SEPARATOR     = '#'
    TABLES
      DATA_TAB                = LT_RAW_DATA
    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.
    LV_FILENAME2 = LV_FILENAME.
    CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
      EXPORTING
        I_FIELD_SEPERATOR    = '#'
        I_TAB_RAW_DATA       = LT_RAW_DATA
        I_FILENAME           = LV_FILENAME2
      TABLES
        I_TAB_CONVERTED_DATA = PT_UP.
  ENDIF.
*
  DELETE PT_UP FROM 1     TO 1.
*
  DESCRIBE TABLE PT_UP LINES LV_TOTAL.
*
  IF LV_TOTAL = 0.
    GV_ERROR = 'X' .
    MESSAGE I000 WITH 'Upload Data가 없습니다!!'.
    STOP.
  ENDIF.
*
ENDFORM.                               "WS_UPLOAD

 

이 게시물을
수정 삭제 목록
번호 제목 글쓴이 날짜 조회 수
6307 <img src=3.gif>문자형 숫자의 앞에 0 제외하여 ALV에 나타내기 [11] 모포 2010.05.28 4498
6306 initial value 관련해서 질문 입니다. [4] file 댕댕 2007.10.24 4490
6305 <img src=2.gif>유지보수 (maintenance view) 생성시 질문.... [4] SAP 사랑 2011.03.21 4471
6304 <b>[완료]</b><b>[완료]</b>[re] 넷위버 설치에 관한 질문입니다. sapjoy 2007.01.06 4468
6303 <b>[완료]</b>TABLE CONTROL 에 관한 질문(행추가, 행삭제) 드립니다. [4] file 튀밥 2008.11.26 4448
6302 <b>[완료]</b>SELECT DISTINCT 에서 DISTINCT 설명 해주세요 [2] 因緣 2008.10.28 4429
6301 [요청]단위참조가 안됩니다 왜 소수점이 나오는지 모르겟습니다 alv입력에서요 [4] 초초보보 2008.07.16 4416
6300 <img src=2.gif>인터널 테이블의 조건절 삭제 관련 질문입니다. [2] 왕초~삽질맨 2011.02.09 4410
» <b>[완료]</b>[re] gui_upload로 엑셀 upload 질문입니다. [3] 띵호아빠 2008.08.24 4399
6298 <img src=3.gif>개발서버에서 Number Ranges 생성 테스트 후 Current Number 정보 초기화하는 방법 문의 [4] 찬호사랑 2010.03.30 4384
6297 <b>[완료]</b>gui status 어플리케이션 툴바 질문이요~ㅎㅎ [6] 랑랑이 2008.05.27 4355
6296 [요청]Sqvi 에서 생성한 Quick View 에 T-code 생성 방법 [6] copine 2009.03.20 4353
6295 [요청]Runtime Errors : ASSERTION_FAILED [2] 아밥초보입니다 2009.02.03 4347
6294 [re] select 문에서 inner join , out join 관한 질문.. [1] file sapjoy 2007.03.09 4346
6293 <img src=2.gif>bdc return message 질문드립니다.. [6] 무한루프 2010.08.03 4334
6292 <b>[완료]</b>RADIO 버튼 가로 배열 가능여부 질문입니다. [4] 가오만땅 2008.01.07 4334
6291 [re] [요청]TYPE p DECIMALS 2. 에 관하여 질문드립니다 [1] 아밥퍼 2008.11.04 4333
6290 [요청]like table of, like, type table of, type 의 차이점 [3] copine 2008.06.19 4326
6289 <img src=2.gif>CONCATNATE를 이용한 공백 추가 질문입니다. [5] rudtnfkrn 2010.10.06 4312
6288 <img src=2.gif>ABAP 문법에서 (.) 소수점 계산을 어찌하나요 @@? [4] 도라에멍 2010.09.27 4305
쓰기 태그