BDC

[Former Member]

Hi guys,

in BDC how to transfer legacy data to SAP system. I know transfer from notepad. but i want how to transfer data from EXCEL and from INTERNAL TABLE. guide me guys.

[Former Member]

Hi,

Use fucntion module

*-----Uploading excel file into internal table

CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'

Thanks,

Anitha

[Former Member]

Hi

i am sending a sample code which is developed by me

in this i am transforing data from excel sheet to internal table

see this program you can understand very easyly

reward if usefull

TYPE-POOLS : SLIS.

DATA : BEGIN OF IT_FIN OCCURS 1,
        F1(20),
        F2(30),
        F3(20),
        F4 TYPE I,
       END OF IT_FIN.

DATA : INTERN1 TYPE TABLE OF ALSMEX_TABLINE WITH HEADER LINE.

refresh it_fin[].clear it_fin.
clear intern1.

PARAMETERS FL_NAME TYPE RLGRAP-FILENAME.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR FL_NAME.

  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
   EXPORTING
*   PROGRAM_NAME        = SYST-REPID
*   DYNPRO_NUMBER       = SYST-DYNNR
*   FIELD_NAME          =
   STATIC              = 'X'
*   MASK                = ' '
    CHANGING
      FILE_NAME           = FL_NAME
* 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.


START-OF-SELECTION.

  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      FILENAME                = FL_NAME
      I_BEGIN_COL             = '1'
      I_BEGIN_ROW             = '1'
      I_END_COL               = '4'
      I_END_ROW               = '35'
    TABLES
      INTERN                  = INTERN1
    EXCEPTIONS
      INCONSISTENT_PARAMETERS = 1
      UPLOAD_OLE              = 2
      OTHERS                  = 3.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

clear fl_name.

  LOOP AT INTERN1.


    CASE INTERN1-COL.

      WHEN '001'.

        IT_FIN-F1 = INTERN1-VALUE.

      WHEN '002'.

        IT_FIN-F2 = INTERN1-VALUE.

      WHEN '003'.

        IT_FIN-F3 = INTERN1-VALUE.

      WHEN '004'.

        IT_FIN-F4 = INTERN1-VALUE.



    ENDCASE.

    AT END OF ROW.

      APPEND IT_FIN.

    ENDAT.

  ENDLOOP.


data : v_prgname type sy-repid value sy-repid,
       it_fldcat type SLIS_FIELDCAT_ALV OCCURS 1,
       wa_fldcat type SLIs_FIELDCAT_ALV,
       it_sort type slis_sortinfo_alv occurs 1,
       wa_sort type slis_sortinfo_alv.



WA_FLDCAT-FIELDNAME = 'F1'.
WA_FLDCAT-COL_POS   = 1.
wa_fldcat-tabname  = 'IT_FIN'.
WA_FLDCAT-SELTEXT_M = 'VENDOR NO'.
APPEND WA_FLDCAT TO iT_FLDCAT.
CLEAR WA_FLDCAT.

WA_FLDCAT-FIELDNAME = 'F2'.
WA_FLDCAT-COL_POS   = 2.
wa_fldcat-tabname  = 'IT_FIN'.
WA_FLDCAT-SELTEXT_M = 'VENDOR NAME'.
APPEND WA_FLDCAT TO iT_FLDCAT.
CLEAR WA_FLDCAT.

WA_FLDCAT-FIELDNAME = 'F3'.
WA_FLDCAT-COL_POS   = 3.
wa_fldcat-tabname  = 'IT_FIN'.
WA_FLDCAT-SELTEXT_M = 'VENDOR CITY'.
APPEND WA_FLDCAT TO iT_FLDCAT.
CLEAR WA_FLDCAT.

WA_FLDCAT-FIELDNAME = 'F4'.
WA_FLDCAT-COL_POS   = 4.
wa_fldcat-tabname  = 'IT_FIN'.
WA_FLDCAT-SELTEXT_M = 'AMOUNT'.
*wa_fldcat-do_sum = 'X'.
APPEND WA_FLDCAT TO iT_FLDCAT.
CLEAR WA_FLDCAT.
*
*wa_sort-fieldname = 'F3'.
*wa_sort-tabname = 'IT_FIN'.
*wa_sort-up = 'X'.
*wa_sort-subtot = 'X'.
*append wa_sort to it_sort.
*clear wa_sort.
*
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                =  v_prgname
*   I_CALLBACK_PF_STATUS_SET          = ' '
*   I_CALLBACK_USER_COMMAND           = ' '
*   I_CALLBACK_TOP_OF_PAGE            = ' '
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
*   I_BACKGROUND_ID                   = ' '
*   I_GRID_TITLE                      =
*   I_GRID_SETTINGS                   =
*   IS_LAYOUT                         =
   IT_FIELDCAT                       = IT_FLDCAT[]
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
  IT_SORT                           =  it_sort[]
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
*   I_SAVE                            = ' '
*   IS_VARIANT                        =
*   IT_EVENTS                         =
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   I_HTML_HEIGHT_TOP                 = 0
*   I_HTML_HEIGHT_END                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
  TABLES
    T_OUTTAB                          = IT_FIN
 EXCEPTIONS
   PROGRAM_ERROR                     = 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.

[Former Member]

Use FM Gui_Upload, and give the file type as xls.

<b>Hope this is helpful.</b>