메뉴 건너뛰기

SAP 한국 커뮤니티



REPORT zr_dynamic_table_update_excel NO STANDARD PAGE HEADING.
*** --- Data Declarations
DATA:lt_excel       TYPE TABLE OF alsmex_tabline,
     lt_dref        TYPE REF TO data,
     ls_dref        TYPE REF TO data,
     lv_col         TYPE i,
     lo_alv         TYPE REF TO cl_salv_table,
     lt_table_filds TYPE TABLE OF dfies.
*** --- Field Symbols
FIELD-SYMBOLS : <fs_table> TYPE any .
FIELD-SYMBOLS : <ft_table> TYPE STANDARD TABLE.
FIELD-SYMBOLS : <dyn_field> .

*** --- Selection screen designing
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
PARAMETERS:p_file  TYPE rlgrap-filename OBLIGATORY,
           p_table TYPE dd02l-tabname OBLIGATORY,
           p_test  AS CHECKBOX DEFAULT abap_true.
SELECTION-SCREEN END OF BLOCK b1.

*** --- value request for p_file
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'F4_FILENAME'
    IMPORTING
      file_name = p_file.
*** --- START-OF-SELECTION
START-OF-SELECTION.
*create OBJECT lr_descr.
*** --- Assigning fields symbols for Tables
  CREATE DATA lt_dref TYPE TABLE OF (p_table).
  CREATE DATA ls_dref TYPE (p_table).
*** --- Assign field symbol with table type of DDIC
  ASSIGN lt_dref->* TO <ft_table>.
*** --- Assign field symbol with Structure type of DDIC
  ASSIGN ls_dref->* TO <fs_table>.
*** --- Call the Function module ALSM_EXCEL_TO_INTERNAL_TABLE
  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = p_file
      i_begin_col             = 1
      i_begin_row             = 1
      i_end_col               = 99
      i_end_row               = 999999
    TABLES
      intern                  = lt_excel
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
  IF sy-subrc EQ 0.
*** --- Sort
    SORT lt_excel BY row.

    LOOP AT lt_excel INTO DATA(ls_excel).

*** --- Adding count to skip the mapping for MANDT field
      lv_col = ls_excel-col + 1.
      ASSIGN COMPONENT lv_col OF STRUCTURE <fs_table> TO <dyn_field>.
      IF sy-subrc = 0.
***-- Compare Excel sheet column data and Dynamic table fields
            IF ls_excel-row = 1.
              CALL FUNCTION 'DDIF_FIELDINFO_GET'
                EXPORTING
                  tabname        = p_table
                TABLES
                  dfies_tab      = lt_table_filds
                EXCEPTIONS
                  not_found      = 1
                  internal_error = 2
                  OTHERS         = 3.
              READ TABLE lt_table_filds INTO DATA(ls_table_fields) INDEX lv_col.
              IF sy-subrc = 0.
                IF ls_table_fields-fieldname NE ls_excel-value.
                  WRITE: 'Excel sheet data and Dynamic table fields are not matching'.
                  EXIT.
                ENDIF.
              ENDIF.
            ELSE.
              <dyn_field> = ls_excel-value.
            ENDIF.
      ENDIF.
      IF ls_excel-row GT 1.
        AT END OF row.
          APPEND <fs_table> TO <ft_table>.
          CLEAR <fs_table>.
        ENDAT.
      ENDIF.
    ENDLOOP.

    IF <ft_table> IS NOT INITIAL.
      IF p_test IS INITIAL.
*** --- Modify
        MODIFY (p_table) FROM TABLE <ft_table>.
        IF sy-subrc EQ 0.
          COMMIT WORK.
          DATA(lv_lines) = lines( <ft_table> ).
          WRITE: TEXT-002,lv_lines.
        ELSE.
          ROLLBACK WORK.
          MESSAGE TEXT-003 TYPE 'E' DISPLAY LIKE 'I'.
        ENDIF.
      ELSE.
*** --- Factory Method
        cl_salv_table=>factory(
          IMPORTING
            r_salv_table   =  lo_alv   " Basis Class Simple ALV Tables
          CHANGING
            t_table        = <ft_table>
        ).
*** --- Display
        lo_alv->display( ).
      ENDIF.
    ENDIF.
  ENDIF.

image.png

 

 

출처 : https://blogs.sap.com/2019/09/20/dynamically-update-data-from-excel-to-database-table/

 

번호 제목 글쓴이 날짜 조회 수
144 <img src=c.gif>3D 그래픽 출력 프로그램[추천:e-abap][추천:열공아밥] [23] file 양키 2010.06.18 16324
143 Report zdynamic_itab_05 Error [3] file 청이 2011.03.31 16327
142 SAP 용어 총괄 [19] file 블루레인 2007.02.14 16349
141 abap 교육정리 [5] 열공아밥 2010.02.01 16360
140 <img src=c.gif>LSMW를 이용한 vendor master 마이그레이션[추천:e-abap][추천:유리선율] [26] file 양키 2010.06.28 16361
139 class_builder [20] file sapjoy 2007.01.29 16370
138 Interactive Programming 예제 [5] file 양키 2010.12.22 16376
137 인포타입 생성방법입니다. [8] file 녹스노바 2010.07.22 16537
136 legacy와 interface 하는 fuction예제 [3] SCPPP 2011.12.15 16542
135 ABAP [Dictionary] Other Database Object [6] 문바이 2011.10.22 16624
134 SAP Mobile 개발을 위한 java(jar) tool [13] file 양키 2011.02.07 16626
133 Excel DOI에 관한 소스 입니다. ^^ [14] file Giant 2012.01.18 16697
132 각 모듈별 테이블 목록 [12] file 재윤아빠 2010.12.05 16698
131 <img src=c.gif>대한민국우편번호 업로드하는 프로그램입니다. (현행 우편번호도 같이 묶었습니다)[추천:e-abap][추천:無念군] [6] file 칸스 2010.10.14 16749
130 SAP ICON 이미지 Gif 파일 [6] file 양키 2012.12.04 16772
129 스마트 폼 [13] file 청화산 2011.03.28 16827
128 <img src=c.gif>SAP screen에 그림파일 조회하기(7)[추천:보나][추천:유리선율] [29] file 춘풍 2011.03.11 16831
127 ALE QuickStart for Distributed HR file magenta 2007.12.28 16841
126 Authorisation creating and modifying simple profile [31] file ksj 2007.01.17 16925
125 ABAP Debug Tip & Tricks [44] file 희주2 2013.08.13 16958