메뉴 건너뛰기

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/

 

번호 제목 글쓴이 날짜 조회 수
1224 ABAP [Dictionary] Type Definition 정리표 [14] 문바이 2011.09.28 21369
1223 ABAP [Internal Table] 기본기 [22] 문바이 2011.09.26 21055
1222 ABAP [Function] 기본정보 정리표 [45] 문바이 2011.09.20 22877
1221 추억의 베이스볼 게임을 아밥으로 짜보았습니다.. [33] 그림장이 2011.08.12 20063
1220 News in ABAP Debugger Breakpoints & Watchpoints(EHP2.0) [15] file swithom 2011.08.11 19305
1219 WEBDYN FOR ABAP 에 관한 자료입니다. [PDF . 영어] [13] file Jenny 2011.08.11 19677
1218 BAPI Step-by-Step [31] file Jenny 2011.08.10 14912
1217 dynamic SQL in SAP [13] file 엠엠공유 2011.08.10 12871
1216 ABAP_Troubleshooting [에러 처리] 에 관한 자료입니다. [10] file Jenny 2011.08.10 20180
1215 SAP Cording Style Guide(ABAP 기초수준급) [42] file swithom 2011.08.09 31596
1214 sap text edit 에 관한 자료 입니다. [pdf . 영어] [12] file Jenny 2011.08.04 20556
1213 sap tree 에 관한 자료 - [pdf . 영어] [14] file Jenny 2011.08.04 12876
1212 대량데이타 빠르게 편집하기 - Clipboard 로 다운받아 편집하기 [16] file 통하라 2011.07.20 39085
1211 ABAP [Subroutine] 명령어 정리표 [26] 문바이 2011.06.01 43865
1210 Abap OO 자료 잘되있네요 ^^ [39] file 양키 2011.05.31 35471
1209 Dynamic SQL [31] file 전군 2011.05.19 41178
1208 ABAP [Field-Symbol] 명령어 정리표 [35] 문바이 2011.05.16 59487
1207 ABAP [문자열] 명령어 정리표 [28] 문바이 2011.05.13 69318
1206 ABAP [Internal Table] 명령어 정리표 [42] 문바이 2011.05.13 54282
1205 ABAP [Selection Screen]에 대한 고찰01_Macro첨부 [6] 문바이 2011.05.13 44069