October 2024

Error in uploaded excel file into internal table through FM ‘ALSM_EXCEL_TO_INTERNAL_TABLE’

Hi, I have this ABAP code with me: Please help to resolve this issue, required images are provided at the end. REPORT ztest_009. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT–001.  PARAMETERS: p_radio1 RADIOBUTTON GROUP rad1 DEFAULT ‘X’ USER-COMMAND rad,              p_radio2 RADIOBUTTON GROUP rad1.SELECTION-SCREEN END OF BLOCK b1. SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT–002.  PARAMETERS: p_file TYPE localfile.  PARAMETERS: p_run AS CHECKBOX.SELECTION-SCREEN END OF BLOCK b2. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.  CALL FUNCTION ‘F4_FILENAME’    IMPORTING      file_name = p_file. AT SELECTION-SCREEN.   IF p_radio1 = ‘X’ AND  p_file IS INITIAL.    MESSAGE ‘Please upload Excel File for excecution’ TYPE ‘E’.  ENDIF. START-OF-SELECTION.   DATA: vend_data_t        TYPE TABLE OF ztmd_lve_ven_vsr,        vend_data_s        TYPE ztmd_lve_ven_vsr,        filename           TYPE rlgrap–filename,        display_errors_t   TYPE TABLE OF string,        display_errors_s   TYPE string,        excel_t            TYPE TABLE OF alsmex_tabline,        excel_s            TYPE alsmex_tabline,        lt_output          TYPE TABLE OF ztmd_lve_ven_vsr,        lt_duplicate_check TYPE TABLE OF ztmd_lve_ven_vsr.*        split_lifnr        TYPE char10.   filename = p_file.   CALL FUNCTION ‘ALSM_EXCEL_TO_INTERNAL_TABLE’    EXPORTING      filename    = filename      i_begin_col = 1      i_begin_row = 2      i_end_col   = 5      i_end_row   = 1000    TABLES      intern      = excel_t*  EXCEPTIONS*     INCONSISTENT_PARAMETERS       = 1*     UPLOAD_OLE  = 2*     OTHERS      = 3    .  IF sy–subrc <> 0.* Implement suitable error handling here     MESSAGE: ‘upload excel’ TYPE ‘E’.   ENDIF.   CLEAR: excel_s.  LOOP AT excel_t INTO excel_s.    CASE excel_s–col.      WHEN 1.        vend_data_s–lifnr = excel_s–value.      WHEN 2.        vend_data_s–ltsnr = excel_s–value.      WHEN 3.        vend_data_s–zind = excel_s–value.      WHEN 4.        IF excel_s–value IS NOT INITIAL.          SPLIT excel_s–value AT ‘.’ INTO DATA(day) DATA(month) DATA(year).          vend_data_s–zvalfrom = year && month && day. ” Convert to YYYYMMDD        ENDIF.      WHEN 5.        IF excel_s–value = ‘X’.          DELETE FROM ztmd_lve_ven_vsr WHERE lifnr = vend_data_s–lifnr AND ltsnr = vend_data_s–ltsnr.        ENDIF.     ENDCASE.    APPEND vend_data_s TO vend_data_t.     CLEAR: vend_data_s.   ENDLOOP.   Facing issues as data is mismatched in uploaded excel file and my internal table vend_data_t. Uploaded excel …

Error in uploaded excel file into internal table through FM ‘ALSM_EXCEL_TO_INTERNAL_TABLE’ Read More »

Error in uploaded excel file into internal table through FM ‘ALSM_EXCEL_TO_INTERNAL_TABLE’

Hi, I have this ABAP code with me: Please help to resolve this issue, required images are provided at the end. REPORT ztest_009. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT–001.  PARAMETERS: p_radio1 RADIOBUTTON GROUP rad1 DEFAULT ‘X’ USER-COMMAND rad,              p_radio2 RADIOBUTTON GROUP rad1.SELECTION-SCREEN END OF BLOCK b1. SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT–002.  PARAMETERS: p_file TYPE localfile.  PARAMETERS: p_run AS CHECKBOX.SELECTION-SCREEN END OF BLOCK b2. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.  CALL FUNCTION ‘F4_FILENAME’    IMPORTING      file_name = p_file. AT SELECTION-SCREEN.   IF p_radio1 = ‘X’ AND  p_file IS INITIAL.    MESSAGE ‘Please upload Excel File for excecution’ TYPE ‘E’.  ENDIF. START-OF-SELECTION.   DATA: vend_data_t        TYPE TABLE OF ztmd_lve_ven_vsr,        vend_data_s        TYPE ztmd_lve_ven_vsr,        filename           TYPE rlgrap–filename,        display_errors_t   TYPE TABLE OF string,        display_errors_s   TYPE string,        excel_t            TYPE TABLE OF alsmex_tabline,        excel_s            TYPE alsmex_tabline,        lt_output          TYPE TABLE OF ztmd_lve_ven_vsr,        lt_duplicate_check TYPE TABLE OF ztmd_lve_ven_vsr.*        split_lifnr        TYPE char10.   filename = p_file.   CALL FUNCTION ‘ALSM_EXCEL_TO_INTERNAL_TABLE’    EXPORTING      filename    = filename      i_begin_col = 1      i_begin_row = 2      i_end_col   = 5      i_end_row   = 1000    TABLES      intern      = excel_t*  EXCEPTIONS*     INCONSISTENT_PARAMETERS       = 1*     UPLOAD_OLE  = 2*     OTHERS      = 3    .  IF sy–subrc <> 0.* Implement suitable error handling here     MESSAGE: ‘upload excel’ TYPE ‘E’.   ENDIF.   CLEAR: excel_s.  LOOP AT excel_t INTO excel_s.    CASE excel_s–col.      WHEN 1.        vend_data_s–lifnr = excel_s–value.      WHEN 2.        vend_data_s–ltsnr = excel_s–value.      WHEN 3.        vend_data_s–zind = excel_s–value.      WHEN 4.        IF excel_s–value IS NOT INITIAL.          SPLIT excel_s–value AT ‘.’ INTO DATA(day) DATA(month) DATA(year).          vend_data_s–zvalfrom = year && month && day. ” Convert to YYYYMMDD        ENDIF.      WHEN 5.        IF excel_s–value = ‘X’.          DELETE FROM ztmd_lve_ven_vsr WHERE lifnr = vend_data_s–lifnr AND ltsnr = vend_data_s–ltsnr.        ENDIF.     ENDCASE.    APPEND vend_data_s TO vend_data_t.     CLEAR: vend_data_s.   ENDLOOP.   Facing issues as data is mismatched in uploaded excel file and my internal table vend_data_t. Uploaded excel …

Error in uploaded excel file into internal table through FM ‘ALSM_EXCEL_TO_INTERNAL_TABLE’ Read More »

Scroll to Top