메뉴 건너뛰기

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/

 

번호 제목 글쓴이 날짜 조회 수
184 RFC Server를 이용한 Target PC로의 file Transfer 기술 [6] file 소주와 막걸리 2007.03.31 5067
183 SAP ITS 와의 연동하는 주요 ABAP Function에 대한 설명 자료 [6] file 소주와 막걸리 2007.03.31 4647
182 SAP의 유용한 User Exit 중 Field Exit에 대하여 [15] file 소주와 막걸리 2007.03.31 7632
181 SAP BC Soap Programming Guide [7] file 소주와 막걸리 2007.03.31 3866
180 SAP BC Developer Guide [4] file 소주와 막걸리 2007.03.31 3480
179 SAP BC Coop Dev Guide [3] file 소주와 막걸리 2007.03.31 3259
178 SAP BC Cert Toolkit Guide [2] file 소주와 막걸리 2007.03.31 4725
177 SAP BC BuiltIn Services [4] file 소주와 막걸리 2007.03.31 3391
176 SAPBC AdministrationGuide [4] file 소주와 막걸리 2007.03.31 5043
175 Electronic Data Interchange in R/3 [1] file 소주와 막걸리 2007.03.31 4675
174 EDI 자료 [2] file 소주와 막걸리 2007.03.31 4943
173 Code Inspector를 이용하여 개발 프로그램의 코드를 체크하는 방법소개. [5] file Frank 2007.03.30 5107
172 ALV를 이용하여 Data의 입력/수정/삭제 기능을 구현하는 방법에 관한 소스 [30] file 아밥공주 2007.03.30 10869
171 View & SQL [6] file 나침반친구 2007.03.30 4876
170 f1_and_f4_help_in_alv [11] file sapjoy 2007.03.30 3469
169 calling_UNIX_commands_in_ABAP [5] file sapjoy 2007.03.30 3582
168 ALV EDIT CONTENTS(ALV 편집, 수정) [14] file sapjoy 2007.03.30 4422
167 ZIP and UNZIP(압축) [2] file sapjoy 2007.03.30 4207
166 file_utility_ALV_tree [3] file sapjoy 2007.03.30 3375
165 TABSTRIP IN ALV [14] file sapjoy 2007.03.30 6429