Program to upload data from excel into any table in SAP


File structure should be same as table structure including client field


REPORT ZTABLE_LOAD.


*— Selection Screen
PARAMETERS: p_table TYPE dd02l-tabname OBLIGATORY.
PARAMETERS: p_file LIKE rlgrap-filename OBLIGATORY MEMORY ID ysm.



*— Declarations for dynamic data
DATA gt_data TYPE REF TO data.
DATA GS_DATA TYPE REF TO data.

FIELD-SYMBOLS: <ft_data> TYPE STANDARD TABLE,
<FS_DATA> TYPE ANY.



*— Declarations for Result Count
DATA: GV_SUCCESS TYPE I,
GV_ERROR   TYPE I.



*— Declaration for factory ALV
data: gr_table type ref to cl_salv_table.

*— File Open Dialog
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
PERFORM f4_file_name.



*— Validate table name
AT SELECTION-SCREEN ON p_table.

PERFORM f_validate_table.



START-OF-SELECTION.



*— Create dynamic internal table
CREATE DATA gt_data TYPE TABLE OF (p_table).
ASSIGN gt_data->* TO <ft_data>.



*— Create dynamic work area
CREATE DATA gs_data TYPE (p_table).
ASSIGN gs_data->* TO <fs_data>.



*— Get Excel data in internal table
PERFORM f_convert_excel.



*— Upload data to database table
PERFORM f_upload_table.



END-OF-SELECTION.

*— Create Factory ALV and display result
PERFORM f_show_result.





*&———————————————————————*
*&      Form  F4_FILE_NAME
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM f4_file_name .
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
* EXPORTING
*   PROGRAM_NAME        = SYST-REPID
*   DYNPRO_NUMBER       = SYST-DYNNR
*   FIELD_NAME          = ‘ ‘
*   STATIC              = ‘ ‘
*   MASK                = ‘ ‘
*   FILEOPERATION       = ‘R’
*   PATH                =
CHANGING
file_name           = p_file
*   LOCATION_FLAG       = ‘P’
* EXCEPTIONS
*   MASK_TOO_LONG       = 1
*   OTHERS              = 2
.
IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

ENDFORM.                    "F4_FILE_NAME

*&———————————————————————*
*&      Form  F_VALIDATE_TABLE
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM F_VALIDATE_TABLE .
DATA LV_TABNAME TYPE DD02L-TABNAME.



*— Upload only Tables in customer namespace
IF p_table+0(1) NE 'Z' AND p_table+0(1) NE 'Y'.
MESSAGE 'Only tables in customer namespace can be uploaded' TYPE 'E'.
ENDIF.



*— Only transparent tables can be uploaded
SELECT SINGLE tabname
FROM DD02L
INTO lv_tabname
where tabname = p_table and
tabclass = 'TRANSP'.
IF sy-subrc NE 0.
MESSAGE 'Only transparent tables can be uploaded' TYPE 'E'.
ENDIF.
ENDFORM.                    " F_VALIDATE_TABLE

*&———————————————————————*
*&      Form  F_CONVERT_EXCEL
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM f_convert_excel .
DATA lt_raw_data  TYPE truxs_t_text_data.

CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
*     I_FIELD_SEPERATOR    =
i_line_header        = 'X'
i_tab_raw_data       = lt_raw_data
i_filename           = P_file
TABLES
i_tab_converted_data = <FT_DATA>

EXCEPTIONS
conversion_failed    = 1
OTHERS               = 2.



IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.



ENDFORM.                    " F_CONVERT_EXCEL

*&———————————————————————*
*&      Form  upload_data
*&———————————————————————*
*       text
*———————————————————————-*
FORM f_upload_table.

SET UPDATE TASK LOCAL.   " Switch to local update



LOOP AT <ft_data> ASSIGNING <fs_data>.

MODIFY (P_TABLE) FROM <FS_DATA>.

IF SY-SUBRC = 0.

GV_SUCCESS = GV_SUCCESS + 1.

ELSE.

delete <ft_data> index sy-tabix.

GV_ERROR = GV_ERROR + 1.

ENDIF.

ENDLOOP.



ENDFORM.                    "upload_data

*&———————————————————————*
*&      Form  f_show_result
*&———————————————————————*
*       text
*———————————————————————-*
FORM f_show_result.
*— Create Instance

CALL METHOD CL_SALV_TABLE=>FACTORY

IMPORTING

R_SALV_TABLE = GR_TABLE

CHANGING

T_TABLE      = <FT_DATA>. " Only entries which are updated successfully



*— Display ALV \Output
gr_table->display( ).



write: 'No. of records successfully uploaded',GV_SUCCESS.

write: 'No. of records unable to upload', GV_ERROR.

ENDFORM.                    "f_show_result

Comments

Post a Comment

Popular posts from this blog

Add additional fields in VA05 report

Example: Add RAN number in VA05 report Adding fields in Selection screen:  Use enhancement spot in program "SD_SALES_DOCUMENT_VIEW". enhancement - point sd_sales_document_view_ep_int1  spots  es_sd_sales_document_view  . *$*$-Start: SD_SALES_DOCUMENT_VIEW_EP_INT1---------------$*$* ENHANCEMENT  1   ZENH .     "active version selection-screen  begin  of  block  sch1  with  frame  title  text - SCH . select-options :   skannr  for  vbap - kannr . selection-screen  end  of  block  sch1 . ENDENHANCEMENT . Selection parameter into select list    enhancement - point sd_sales_document_view_ep_int2  spots  es_sd_sales_document_view  . *$*$-Start: SD_SALES_DOCUMENT_VIEW_EP_INT2--------------$*$* ENHANCEMENT  2   ZENH .     "active version *INSERT LINES OF skannr INTO TABLE gs_selcrit-kannr.   transfer_select_option  'VBAP'  'KANNR'  SKANNR . ENDENHANCEMENT . Adding field in the output list.  Implement BADI: "BADI_SDOC_WRAPPER" Use method "ADAPT
Read more

Totals table for ACDOCA in S/4 HANA - ACDOCT

In old classical legder SAP provided GLT0 table for totals. In new GL SAP provided FAGLFLEXT table for totals. In S/4 HANA SAP has provided ACDOCT view for totals. (ACDOCT_BCK is a table). ACDOCT is a CDS view not a table. This view will be useful to find out totals per period and with some standard fields. This can be used in Report writer/painter also. But in S/4 Hana SAP not suggesting to use Report Writer/Painter tool. Most of the times SAP customers enhance Accounting document with custom fields. So custom fields can be added into ACDOCA table but it will not added to ACDOCT (Since it is view). what if customer needs total values including custom fields what to do then ? For this purpose either extend ACDOCT view or write sum logic using ACDOCA table. Writing logic with ACDOCA in each program means need to repeat same code many programs and also it is not code-pushdown approach. So better solution is either extend ACDOCT CDS view or create custom CDS view like ACDOCT.
Read more

FAGLL03 / FBL1N / FBL3N / FBL5N not showing custom fields

For T-code: FBL1N/FBL3N/FBL5N Execute the report RFPOSXEXTEND with T-code: SE38 in your system. Table T021S and structure RFPOSXEXT are able to synchronize. For T-code: FAGLL03Call T-code: SE37, enter the function module ITEM_STRUC_EXTENSION and execute it with the following parameters: BASIC_STRUCNAME FAGLPOSY EXT_STRUCNAME FAGLPOSYEXT EXT_FIELDS_TABNAME T021S I_LSTCL D X_TRANSPORT ' ' After you have executed the function module, the related structure FAGLPOSYEXT should be regenerated correctly. In addition, start the BALVBUFDEL report when you enhance the special fields
Read more