SAP ABAP Tutorials

ALV IN POPUP & DIALOG BOX

2011-02-08T18:06:00.002+05:30

FOLLOWING CODE HELP YOU TO GET ALV REPORT IN POPUP & DIALOG WINDOW

*Type pools for ALV declarations
TYPE-POOLS : slis.

*Internal table and wa declarations for T582A.

DATA : it_t582a TYPE STANDARD TABLE OF t582a INITIAL SIZE 0,
       wa_t582a TYPE t582a.

*Internal table and wa declarations for T582S.

DATA : it_text TYPE STANDARD TABLE OF t582s,
       wa_text TYPE t582s.

*Structure declaration for output
TYPES : BEGIN OF ty_output,
        infty TYPE infty,
        zeitb TYPE dzeitb,
        itext TYPE intxt,
        pnnnn TYPE pnnnn_d,
        dname TYPE dianm,
        namst TYPE namst,
        edynr TYPE edynp,
        ldynr TYPE ldynp,
        stypt TYPE stypt,
        sytxt TYPE sytxt,
        zbtab TYPE dzbtab,
        checkbox(1),
        END OF ty_output.

*Internal table and work area declaration for output in pop up
DATA : it_output TYPE STANDARD TABLE OF ty_output INITIAL SIZE 0,
       wa_output TYPE ty_output.

*Internal table and workarea declaration for alv dialog display
DATA : it_display TYPE STANDARD TABLE OF ty_output INITIAL SIZE 0,
       wa_display TYPE ty_output.

*data declarations for ALV

DATA:ls_fieldcat TYPE slis_fieldcat_alv,
    lt_fieldcat TYPE slis_t_fieldcat_alv,
    ls_fieldcatlog TYPE slis_fieldcat_alv,
    lt_fieldcatlog TYPE slis_t_fieldcat_alv,
    lt_layout TYPE slis_layout_alv.

*Initialization event

INITIALIZATION.

*Start of selection event

START-OF-SELECTION.

*Select to fetch all the infotypes and details in sap system
  SELECT *
         FROM t582a
         INTO CORRESPONDING FIELDS OF TABLE it_t582a.

*Select to fetch the infotypes text

  IF it_t582a[] IS NOT INITIAL.

    SELECT * FROM t582s INTO CORRESPONDING FIELDS OF TABLE it_text
    FOR ALL ENTRIES IN it_t582a WHERE infty = it_t582a-infty
    AND sprsl = 'E'.

  ENDIF.

*Appending the selected values to the output table

  LOOP AT it_t582a INTO wa_t582a.

    wa_output-infty = wa_t582a-infty.
    wa_output-zeitb = wa_t582a-zeitb.
    wa_output-pnnnn = wa_t582a-pnnnn.
    wa_output-dname = wa_t582a-dname.
    wa_output-namst = wa_t582a-namst.
    wa_output-edynr = wa_t582a-edynr.
    wa_output-ldynr = wa_t582a-ldynr.
    wa_output-stypt = wa_t582a-stypt.
    wa_output-sytxt = wa_t582a-sytxt.
    wa_output-zbtab = wa_t582a-zbtab.

    READ TABLE it_text INTO wa_text WITH KEY infty = wa_t582a-infty.

    wa_output-itext = wa_text-itext.

    APPEND wa_output TO it_output.
    CLEAR wa_output.

  ENDLOOP.

*Subroutine to display the pop up values.

  PERFORM popup_display.

*Subroutine to display the ALV dialog display
  PERFORM alv_output.
*----------------------------------------------------------------*
*      Form  popup_display
*------------------------------------------------------------*
FORM popup_display.

*field catalogue for pop up
  CLEAR ls_fieldcat.

  ls_fieldcat-row_pos   = '1'.
  ls_fieldcat-col_pos   = '1'.
  ls_fieldcat-fieldname = 'CHECKBOX'.
  ls_fieldcat-tabname   = 'IT_OUTPUT'.
  ls_fieldcat-seltext_m = 'SELECT'.
  APPEND ls_fieldcat TO lt_fieldcat.

  CLEAR ls_fieldcat.

  ls_fieldcat-row_pos   = '1'.
  ls_fieldcat-col_pos   = '2'.
  ls_fieldcat-fieldname = 'ITEXT'.
  ls_fieldcat-tabname   = 'IT_OUTPUT'.
  ls_fieldcat-seltext_m = 'DESCRIPTION'.
  ls_fieldcat-outputlen = 50.
  APPEND ls_fieldcat TO lt_fieldcat.

* Display data in a POPUP
  CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
    EXPORTING
      i_zebra              = 'X'
      it_fieldcat          = lt_fieldcat
      i_tabname            = 'IT_OUTPUT'
      i_checkbox_fieldname = 'CHECKBOX'
    TABLES
      t_outtab             = it_output.

*Appending the selected infotypes only to internal table

  LOOP AT it_output INTO wa_output WHERE checkbox = 'X'.

    wa_display-itext = wa_output-itext.
    wa_display-infty = wa_output-infty.
    wa_display-zeitb = wa_output-zeitb.
    wa_display-pnnnn = wa_output-pnnnn.
    wa_display-dname = wa_output-dname.
    wa_display-namst = wa_output-namst.
    wa_display-edynr = wa_output-edynr.
    wa_display-ldynr = wa_output-ldynr.
    wa_display-sytxt = wa_output-sytxt.
    wa_display-stypt = wa_output-stypt.
    wa_display-zbtab = wa_output-zbtab.

    APPEND wa_display TO it_display.
    CLEAR wa_display.

  ENDLOOP.

ENDFORM.                               " popup_display
*&-------------------------------------------------------------*
*&      Form  alv_output
*&-------------------------------------------------------------*

FORM alv_output .

*fieldcatalogue for ALV dialog
  PERFORM build_fieldcat.

*Layout for ALV dialog
  PERFORM build_layout.

**ALV dialog output
  PERFORM alv.

ENDFORM.                    " alv_output
*&------------------------------------------------------------*
*&      Form  build_fieldcat
*&------------------------------------------------------------*

FORM build_fieldcat .
*fieldcatalogue for alv dialog
  CLEAR ls_fieldcatlog.

  ls_fieldcatlog-row_pos   = '1'.
  ls_fieldcatlog-col_pos   = '1'.
  ls_fieldcatlog-fieldname = 'INFTY'.
  ls_fieldcatlog-tabname   = 'IT_DISPLAY'.
  ls_fieldcatlog-seltext_m = 'Infotype'.
  APPEND ls_fieldcatlog TO lt_fieldcatlog.

  CLEAR ls_fieldcatlog.

  ls_fieldcatlog-row_pos   = '1'.
  ls_fieldcatlog-col_pos   = '2'.
  ls_fieldcatlog-fieldname = 'ITEXT'.
  ls_fieldcatlog-tabname   = 'IT_DISPLAY'.
  ls_fieldcatlog-seltext_m = 'Description'.
  APPEND ls_fieldcatlog TO lt_fieldcatlog.

  CLEAR ls_fieldcatlog.

  ls_fieldcatlog-row_pos   = '1'.
  ls_fieldcatlog-col_pos   = '3'.
  ls_fieldcatlog-fieldname = 'ZEITB'.
  ls_fieldcatlog-tabname   = 'IT_DISPLAY'.
  ls_fieldcatlog-seltext_m = 'TimeConstraint'.
  APPEND ls_fieldcatlog TO lt_fieldcatlog.

  CLEAR ls_fieldcatlog.

  ls_fieldcatlog-row_pos   = '1'.
  ls_fieldcatlog-col_pos   = '4'.
  ls_fieldcatlog-fieldname = 'PNNNN'.
  ls_fieldcatlog-tabname   = 'IT_DISPLAY'.
  ls_fieldcatlog-seltext_m = 'Structure'.
  APPEND ls_fieldcatlog TO lt_fieldcatlog.

  CLEAR ls_fieldcatlog.

  ls_fieldcatlog-row_pos   = '1'.
  ls_fieldcatlog-col_pos   = '5'.
  ls_fieldcatlog-fieldname = 'DNAME'.
  ls_fieldcatlog-tabname   = 'IT_DISPLAY'.
  ls_fieldcatlog-seltext_m = 'DialogModule'.
  APPEND ls_fieldcatlog TO lt_fieldcatlog.

  CLEAR ls_fieldcatlog.

  ls_fieldcatlog-row_pos   = '1'.
  ls_fieldcatlog-col_pos   = '6'.
  ls_fieldcatlog-fieldname = 'NAMST'.
  ls_fieldcatlog-tabname   = 'IT_DISPLAY'.
  ls_fieldcatlog-seltext_m = 'Subtypefield'.
  APPEND ls_fieldcatlog TO lt_fieldcatlog.

  CLEAR ls_fieldcatlog.

  ls_fieldcatlog-row_pos   = '1'.
  ls_fieldcatlog-col_pos   = '7'.
  ls_fieldcatlog-fieldname = 'EDYNR'.
  ls_fieldcatlog-tabname   = 'IT_DISPLAY'.
  ls_fieldcatlog-seltext_m = 'Singlescreenno'.
  APPEND ls_fieldcatlog TO lt_fieldcatlog.

  CLEAR ls_fieldcatlog.

  ls_fieldcatlog-row_pos   = '1'.
  ls_fieldcatlog-col_pos   = '8'.
  ls_fieldcatlog-fieldname = 'LDYNR'.
  ls_fieldcatlog-tabname   = 'IT_DISPLAY'.
  ls_fieldcatlog-seltext_m = 'Listscreenno'.
  APPEND ls_fieldcatlog TO lt_fieldcatlog.

  CLEAR ls_fieldcatlog.

  ls_fieldcatlog-row_pos   = '1'.
  ls_fieldcatlog-col_pos   = '9'.
  ls_fieldcatlog-fieldname = 'STYPT'.
  ls_fieldcatlog-tabname   = 'IT_DISPLAY'.
  ls_fieldcatlog-seltext_m = 'SubtypTable'.
  APPEND ls_fieldcatlog TO lt_fieldcatlog.

  CLEAR ls_fieldcatlog.

  ls_fieldcatlog-row_pos   = '1'.
  ls_fieldcatlog-col_pos   = '10'.
  ls_fieldcatlog-fieldname = 'SYTXT'.
  ls_fieldcatlog-tabname   = 'IT_DISPLAY'.
  ls_fieldcatlog-seltext_m = 'Subtyptexttable'.
  APPEND ls_fieldcatlog TO lt_fieldcatlog.

  CLEAR ls_fieldcatlog.

  ls_fieldcatlog-row_pos   = '1'.
  ls_fieldcatlog-col_pos   = '11'.
  ls_fieldcatlog-fieldname = 'ZBTAB'.
  ls_fieldcatlog-tabname   = 'IT_DISPLAY'.
  ls_fieldcatlog-seltext_m = 'SubtypeTCTable'.
  APPEND ls_fieldcatlog TO lt_fieldcatlog.

ENDFORM.                    " build_fieldcat

*&----------------------------------------------------------*
*&      Form  build_layout
*&----------------------------------------------------------*

*Layout for ALV dialog
FORM build_layout .

  lt_layout-zebra = 'X'.

  lt_layout-colwidth_optimize = 'X'.

ENDFORM.                    " build_layout

*&---------------------------------------------------------------*
*&      Form  alv
*&---------------------------------------------------------------*

*Alv dialog output.
FORM alv .

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program    = sy-repid
      i_grid_title          = 'INFOTYPE DETAILS'
      is_layout             = lt_layout
      it_fieldcat           = lt_fieldcatlog
      i_screen_start_column = 10
      i_screen_start_line   = 20
      i_screen_end_column   = 100
      i_screen_end_line     = 40
    TABLES
      t_outtab              = it_display
    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.

ENDFORM.                    " alv

CHECK BOX IN ALV

2011-02-08T17:59:00.000+05:30

PASTE THIS CODE IN THE Z PROGRAM OF TYPE M

THIS CODE REQUIRE BASIC KNOWLEDGE OF SCREEN PROGRAMMING.

NO NEED TO BOTHER FRIEND WAIT FOR MY NEXT POST RELATED TO SCREEN PROGRAMMING IN REPORT

CODE :

CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED.  "for event handling
DATA: OK_CODE LIKE SY-UCOMM,
      SAVE_OK LIKE SY-UCOMM,
      G_CONTAINER TYPE SCRFNAME VALUE 'BCALV_GRID_DEMO_0100_CONT1',
      G_GRID  TYPE REF TO CL_GUI_ALV_GRID,
      G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      G_EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER,
      GT_FIELDCAT TYPE LVC_T_FCAT,
      GS_LAYOUT TYPE LVC_S_LAYO,
      G_MAX TYPE I VALUE 100.

TYPES: BEGIN OF GS_OUTTAB.
TYPES: CHECKBOX TYPE C.                "field for checkbox
TYPES: CELLTAB TYPE LVC_T_STYL.        "field to switch editability
        INCLUDE STRUCTURE SFLIGHT.
TYPES: END OF GS_OUTTAB.

DATA: GT_OUTTAB TYPE GS_OUTTAB OCCURS 0 WITH HEADER LINE.

***********************************************************************
* LOCAL CLASSES
***********************************************************************
*
* This local class only handles event DOUBLE_CLICK.
* WHen the user double clicks on a checkbox cell the status of
* this cell is switched from editable to not editable and vice versa.
*
CLASS LCL_EVENT_RECEIVER DEFINITION.

PUBLIC SECTION.
METHODS: CATCH_DOUBLECLICK
         FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
         IMPORTING
            E_COLUMN
            ES_ROW_NO
            SENDER.
ENDCLASS.

CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.

METHOD CATCH_DOUBLECLICK.
  DATA: LS_OUTTAB TYPE GS_OUTTAB,
        LS_CELLTAB TYPE LVC_S_STYL.
*--
* Function:
*  Switch between 'editable' and 'not editable' checkbox.
*--

* If the user clicked on another column there is
* nothing to do.
  IF E_COLUMN-FIELDNAME NE 'CHECKBOX'.
    EXIT.
  ENDIF.

  READ TABLE GT_OUTTAB INTO LS_OUTTAB INDEX ES_ROW_NO-ROW_ID.

* The loop is only needed if there are other columns that
* use checkboxes. At this point the loop could be
* replaced by a READ of the first line of CELLTAB.
      LOOP AT LS_OUTTAB-CELLTAB INTO LS_CELLTAB.
        IF LS_CELLTAB-FIELDNAME EQ 'CHECKBOX'.
* §B4.Switch the style to dis- or enable a cell for input
         IF LS_CELLTAB-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_ENABLED.
          LS_CELLTAB-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
         ELSE.
          LS_CELLTAB-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_ENABLED.
         ENDIF.
         MODIFY LS_OUTTAB-CELLTAB FROM LS_CELLTAB.
        ENDIF.
      ENDLOOP.
      MODIFY GT_OUTTAB FROM LS_OUTTAB INDEX ES_ROW_NO-ROW_ID.

    CALL METHOD SENDER->REFRESH_TABLE_DISPLAY.
ENDMETHOD.
ENDCLASS.
*
********************************************************************

*---------------------------------------------------------------------*
*       MAIN                                                          *
*---------------------------------------------------------------------*
END-OF-SELECTION.
  CALL SCREEN 100.

*---------------------------------------------------------------------*
*       MODULE PBO OUTPUT                                             *
*---------------------------------------------------------------------*
MODULE PBO OUTPUT.
  SET PF-STATUS 'MAIN100'.
  SET TITLEBAR 'MAIN100'.
  IF G_CUSTOM_CONTAINER IS INITIAL.
    PERFORM CREATE_AND_INIT_ALV.
  ENDIF.

ENDMODULE.
*---------------------------------------------------------------------*
*       MODULE PAI INPUT                                              *
*---------------------------------------------------------------------*
MODULE PAI INPUT.
  SAVE_OK = OK_CODE.
  CLEAR OK_CODE.
  CASE SAVE_OK.
    WHEN 'EXIT'.
      PERFORM EXIT_PROGRAM.
    WHEN 'SELECT'.
      PERFORM SELECT_ALL_ENTRIES CHANGING GT_OUTTAB[].
    WHEN 'DESELECT'.
      PERFORM DESELECT_ALL_ENTRIES CHANGING GT_OUTTAB[].
    WHEN 'RESET'.
      PERFORM RESET_SELECTED_ENTRIES CHANGING GT_OUTTAB[].
    WHEN 'SWITCH'.
      PERFORM SWITCH_ACTIVATION CHANGING GT_OUTTAB[].
  ENDCASE.
ENDMODULE.

*&---------------------------------------------------------------------*
*&      Form  CREATE_AND_INIT_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_GT_OUTTAB  text
*      <--P_GT_FIELDCAT  text
*      <--P_GS_LAYOUT  text
*----------------------------------------------------------------------*
FORM CREATE_AND_INIT_ALV.

  DATA: LT_EXCLUDE TYPE UI_FUNCTIONS.

  CREATE OBJECT G_CUSTOM_CONTAINER
         EXPORTING CONTAINER_NAME = G_CONTAINER.
  CREATE OBJECT G_GRID
         EXPORTING I_PARENT = G_CUSTOM_CONTAINER.

  PERFORM BUILD_FIELDCAT CHANGING GT_FIELDCAT.

* Exclude all edit functions in this example since we do not need them:
  PERFORM EXCLUDE_TB_FUNCTIONS CHANGING LT_EXCLUDE.

  PERFORM BUILD_DATA.

*§ B3.Use the layout structure to aquaint additional field to ALV.

  GS_LAYOUT-STYLEFNAME = 'CELLTAB'.

  CALL METHOD G_GRID->SET_TABLE_FOR_FIRST_DISPLAY
       EXPORTING IS_LAYOUT             = GS_LAYOUT
                 IT_TOOLBAR_EXCLUDING  = LT_EXCLUDE
       CHANGING  IT_FIELDCATALOG       = GT_FIELDCAT
                 IT_OUTTAB             = GT_OUTTAB[].

  CREATE OBJECT G_EVENT_RECEIVER.
  SET HANDLER G_EVENT_RECEIVER->CATCH_DOUBLECLICK FOR G_GRID.

* Set editable cells to ready for input initially
  CALL METHOD G_GRID->SET_READY_FOR_INPUT
   EXPORTING
    I_READY_FOR_INPUT = 1.

ENDFORM.                               "CREATE_AND_INIT_ALV

*&---------------------------------------------------------------------*
*&      Form  BUILD_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_GT_FIELDCAT  text
*----------------------------------------------------------------------*
FORM BUILD_FIELDCAT CHANGING PT_FIELDCAT TYPE LVC_T_FCAT.

  DATA LS_FCAT TYPE LVC_S_FCAT.

  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
       EXPORTING
            I_STRUCTURE_NAME = 'SFLIGHT'
       CHANGING
            CT_FIELDCAT      = PT_FIELDCAT.

*§A2.Add an entry for the checkbox in the fieldcatalog
  CLEAR LS_FCAT.
  LS_FCAT-FIELDNAME = 'CHECKBOX'.
* Essential: declare field as checkbox and
*            mark it as editable field:
  LS_FCAT-CHECKBOX = 'X'.
  LS_FCAT-EDIT = 'X'.

* do not forget to provide texts for this extra field
  LS_FCAT-COLTEXT = TEXT-F01.
  LS_FCAT-TOOLTIP = TEXT-F02.
  LS_FCAT-SELTEXT = TEXT-F03.

* optional: set column width
  LS_FCAT-OUTPUTLEN = 10.
*
  APPEND LS_FCAT TO PT_FIELDCAT.

ENDFORM.


*&---------------------------------------------------------------------*
*&      Form  EXCLUDE_TB_FUNCTIONS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_LT_EXCLUDE  text
*----------------------------------------------------------------------*
FORM EXCLUDE_TB_FUNCTIONS CHANGING PT_EXCLUDE TYPE UI_FUNCTIONS.

  DATA LS_EXCLUDE TYPE UI_FUNC.

  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY_ROW.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_DELETE_ROW.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_APPEND_ROW.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_INSERT_ROW.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_MOVE_ROW.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_CUT.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE_NEW_ROW.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_UNDO.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.

ENDFORM.                               " EXCLUDE_TB_FUNCTIONS
*&---------------------------------------------------------------------*
*&      Form  build_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM BUILD_DATA.

  DATA: LT_SFLIGHT TYPE TABLE OF SFLIGHT,
        LS_SFLIGHT TYPE SFLIGHT,
        LS_CELLTAB TYPE LVC_S_STYL,
        LT_CELLTAB TYPE LVC_T_STYL,
        L_INDEX TYPE I.

  SELECT * FROM SFLIGHT INTO TABLE LT_SFLIGHT UP TO G_MAX ROWS.
  IF SY-SUBRC NE 0.
* generate own entries if db-table is empty so that this example
* still works
    PERFORM GENERATE_ENTRIES CHANGING LT_SFLIGHT.
  ENDIF.

*§A3.Optionally, check checkboxes initially after selecting data.
* (Omitted in this example)
  LOOP AT LT_SFLIGHT INTO LS_SFLIGHT.
    MOVE-CORRESPONDING LS_SFLIGHT TO GT_OUTTAB.
*   if gt_outtab-connid eq '400'.
*     gt_outtab-checkbox = 'X'.
*   endif.
    APPEND GT_OUTTAB.
  ENDLOOP.

* §B2.After selecting data,
*    assign a style for each row of your checkbox column.
*
* Initially, set all checkbox cells editable.
  LS_CELLTAB-FIELDNAME = 'CHECKBOX'.
  LS_CELLTAB-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_ENABLED.

  LOOP AT GT_OUTTAB.
    L_INDEX = SY-TABIX.
    REFRESH LT_CELLTAB.

    LS_CELLTAB-FIELDNAME = 'CHECKBOX'.
    LS_CELLTAB-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_ENABLED.
    INSERT LS_CELLTAB INTO TABLE LT_CELLTAB.

    INSERT LINES OF LT_CELLTAB INTO TABLE GT_OUTTAB-CELLTAB.
    MODIFY GT_OUTTAB INDEX L_INDEX.
  ENDLOOP.

ENDFORM.                               " build_data

*---------------------------------------------------------------------*
*       FORM EXIT_PROGRAM                                             *
*---------------------------------------------------------------------*
FORM EXIT_PROGRAM.
  LEAVE PROGRAM.
ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  generate_entries
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_LT_SLFIGHT  text
*----------------------------------------------------------------------*
FORM GENERATE_ENTRIES CHANGING PT_SLFIGHT TYPE STANDARD TABLE.
*
* This form is only needed for the case that there is no
* data in database table SFLIGHT.
*
  DATA: LS_SFLIGHT TYPE SFLIGHT,
        L_MONTH(2) TYPE C,
        L_DAY(2) TYPE C,
        L_DATE(8) TYPE C.

  LS_SFLIGHT-CARRID = 'LH'.
  LS_SFLIGHT-CONNID = '0400'.
  LS_SFLIGHT-CURRENCY = 'DEM'.
  LS_SFLIGHT-PLANETYPE = '747-400'.
  LS_SFLIGHT-SEATSMAX = 660.

  DO 110 TIMES.
    LS_SFLIGHT-PRICE = SY-INDEX * 100.
    LS_SFLIGHT-SEATSOCC = 660 - SY-INDEX * 6.
    LS_SFLIGHT-PAYMENTSUM = LS_SFLIGHT-SEATSOCC * LS_SFLIGHT-PRICE.

    L_MONTH = SY-INDEX / 10 + 1.
    DO 2 TIMES.
      L_DAY = L_MONTH + SY-INDEX * 2.
      L_DATE+0(4) = '2000'.
      L_DATE+4(2) = L_MONTH+0(2).
      L_DATE+6(2) = L_DAY+0(2).
      LS_SFLIGHT-FLDATE = L_DATE.
      APPEND LS_SFLIGHT TO PT_SLFIGHT.
    ENDDO.
  ENDDO.
ENDFORM.                               " generate_entries
*&---------------------------------------------------------------------*
*&      Form  select_all_entries
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_GT_OUTTAB  text
*----------------------------------------------------------------------*
FORM SELECT_ALL_ENTRIES CHANGING PT_OUTTAB TYPE STANDARD TABLE.
  DATA: LS_OUTTAB TYPE GS_OUTTAB.
  DATA: L_VALID TYPE C,
        L_LOCKED TYPE C.

*§A4ad. Before you (a)set, reset or (d)evaluate checkboxes,
*       you must check the input cells.
*
* If all entries are ok, ALV transferes new values to the output
* table which you then can modify.

  CALL METHOD G_GRID->CHECK_CHANGED_DATA
              IMPORTING
                 E_VALID = L_VALID.

  IF L_VALID EQ 'X'.

    LOOP AT PT_OUTTAB INTO LS_OUTTAB.
      PERFORM CHECK_LOCK USING    LS_OUTTAB
                         CHANGING L_LOCKED.
      IF L_LOCKED IS INITIAL
         AND NOT LS_OUTTAB-CHECKBOX EQ '-'.
        LS_OUTTAB-CHECKBOX = 'X'.
      ENDIF.
      MODIFY PT_OUTTAB FROM LS_OUTTAB.
    ENDLOOP.

    CALL METHOD G_GRID->REFRESH_TABLE_DISPLAY.

  ENDIF.

ENDFORM.                               " select_all_entries
*&---------------------------------------------------------------------*
*&      Form  deselect_all_entries
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_GT_OUTTAB[]  text
*----------------------------------------------------------------------*
FORM DESELECT_ALL_ENTRIES CHANGING PT_OUTTAB TYPE STANDARD TABLE.
  DATA: LS_OUTTAB TYPE GS_OUTTAB.
  DATA: L_VALID TYPE C,
        L_LOCKED TYPE C.

*§A4ad. Before you (a)set, reset or (d)evaluate checkboxes,
*       you must check the input cells.
*
* If all entries are ok, ALV transferes new values to the output
* table which you then can modify.

  CALL METHOD G_GRID->CHECK_CHANGED_DATA
              IMPORTING
                 E_VALID = L_VALID.

  IF L_VALID EQ 'X'.

    LOOP AT PT_OUTTAB INTO LS_OUTTAB.
      PERFORM CHECK_LOCK USING    LS_OUTTAB
                       CHANGING L_LOCKED.
      IF L_LOCKED IS INITIAL
         AND NOT LS_OUTTAB-CHECKBOX EQ '-'.
        LS_OUTTAB-CHECKBOX = ' '.
      ENDIF.

      MODIFY PT_OUTTAB FROM LS_OUTTAB.
    ENDLOOP.

    CALL METHOD G_GRID->REFRESH_TABLE_DISPLAY.

  ENDIF.

ENDFORM.                               " deselect_all_entries
*&---------------------------------------------------------------------*
*&      Form  reset_selected_entries
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_GT_OUTTAB[]  text
*----------------------------------------------------------------------*
FORM RESET_SELECTED_ENTRIES CHANGING PT_OUTTAB TYPE STANDARD TABLE.
  DATA: LS_OUTTAB TYPE GS_OUTTAB.
  DATA: L_VALID TYPE C.

*§A4b. Before you set, (b)reset or evaluate checkboxes,
*      you must check the input cells.
*
* If all entries are ok, ALV transferes new values to the output
* table which you then can modify.

  CALL METHOD G_GRID->CHECK_CHANGED_DATA
              IMPORTING
                 E_VALID = L_VALID.

  IF L_VALID EQ 'X'.

    LOOP AT PT_OUTTAB INTO LS_OUTTAB.
      IF     NOT LS_OUTTAB-CHECKBOX IS INITIAL
         AND NOT LS_OUTTAB-CHECKBOX EQ '-'.
        CLEAR LS_OUTTAB.
        MODIFY PT_OUTTAB FROM LS_OUTTAB.
      ENDIF.
    ENDLOOP.

    CALL METHOD G_GRID->REFRESH_TABLE_DISPLAY.

  ENDIF.

ENDFORM.                               " reset_selected_entries

*-----------------------------

FORM SWITCH_ACTIVATION CHANGING PT_OUTTAB TYPE STANDARD TABLE.
  DATA: LS_OUTTAB TYPE GS_OUTTAB.
  DATA: L_VALID TYPE C,
        LT_ROW_NO TYPE LVC_T_ROID WITH HEADER LINE.

*§A4c. Before you set, reset, (c)(de)activate

*      or evaluate checkboxes, you must check the input cells.
*
* If all entries are ok, ALV transferes new values to the output
* table which you then can modify.

  CALL METHOD G_GRID->CHECK_CHANGED_DATA
              IMPORTING
                 E_VALID = L_VALID.

  IF L_VALID EQ 'X'.
    CALL METHOD G_GRID->GET_SELECTED_ROWS
      IMPORTING
         ET_ROW_NO     = LT_ROW_NO[].

    LOOP AT LT_ROW_NO.
       READ TABLE PT_OUTTAB INTO LS_OUTTAB INDEX LT_ROW_NO-ROW_ID.
       IF LS_OUTTAB-CHECKBOX NE '-'.
         LS_OUTTAB-CHECKBOX = '-'.
       ELSE.
         LS_OUTTAB-CHECKBOX = ' '.
       ENDIF.
       MODIFY PT_OUTTAB FROM LS_OUTTAB INDEX LT_ROW_NO-ROW_ID.

    ENDLOOP.

    CALL METHOD G_GRID->REFRESH_TABLE_DISPLAY.

  ENDIF.

ENDFORM.                               " switch_activation

*&---------------------------------------------------------------------*
*&      Form  check_lock
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LS_OUTTAB  text
*      <--P_L_LOCKED  text
*----------------------------------------------------------------------*
FORM CHECK_LOCK USING    PS_OUTTAB TYPE GS_OUTTAB
                CHANGING P_LOCKED.
  DATA LS_CELLTAB TYPE LVC_S_STYL.

  LOOP AT PS_OUTTAB-CELLTAB INTO LS_CELLTAB.
    IF LS_CELLTAB-FIELDNAME = 'CHECKBOX'.
      IF LS_CELLTAB-STYLE EQ CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
        P_LOCKED = 'X'.
      ELSE.
        P_LOCKED = SPACE.
      ENDIF.
    ENDIF.
  ENDLOOP.

ENDFORM.                               " check_lock

BDC for MB1B

2011-02-08T17:53:00.000+05:30

Hi Just copy the required Program to own Z Program
TYPE-POOLS: truxs.
DATA: zmode TYPE  c.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS : mode_a      RADIOBUTTON    GROUP  r1,
             mode_n      RADIOBUTTON    GROUP  r1.

PARAMETERS: p_ifile TYPE rlgrap-filename.
PARAMETERS: p_ofile TYPE string.

SELECTION-SCREEN END OF BLOCK b1.

INCLUDE zbdcrec.

DATA: BEGIN OF it_src_upload OCCURS 0,
        rectyp(1)  TYPE c,      " Header / Item Indicator
        bldat(10)  TYPE c,      " Document Date
        budat(10)   TYPE c,      " Posting Date
        bktxt(25)  TYPE c,      " Doc. Header Text
        bwartwa(3) TYPE c,      " Movement Type
        werks(4)   TYPE c,      " Plant
        lgort(4)   TYPE c,      " Storage Location
        sobkz(1)   TYPE c,      " Special Stock
        matnr(18)  TYPE c,      " Material
        erfmg(13)  TYPE c,      " Quantity
        ERFME(3)   TYPE c,      "Unit of Entry
        charg(10)  TYPE c,      " Batch
        exbwr(13)  TYPE c,      " Amount
        lifnr(10)  TYPE c,      " Vendor
        kunnr(10)  TYPE c,      " Customer
        UMMAT(18)  TYPE C,      "MATERIAL (RECEIVINF/ISSUING)
        UMLGO(4)   TYPE C,      "ISSUING/RECEIVING STOR LOC
      END OF it_src_upload.

DATA: BEGIN OF it_header OCCURS 0,
        rectyp(1)  TYPE c,      " Header / Item Indicator
        hcount(5)  TYPE c,      " Counter
        bldat(10)   TYPE c,      " Document Date
        budat(10)   TYPE c,      " Posting Date
        bktxt(25)  TYPE c,      " Doc. Header Text
        bwartwa(3) TYPE c,      " Movement Type
        werks(4)   TYPE c,      " Plant
        lgort(4)   TYPE c,      " Storage Location
        sobkz(1)   TYPE c,      " Special Stock
      END OF it_header.

DATA: BEGIN OF it_item OCCURS 0,
        rectyp(1)  TYPE c,      " Header / Item Indicator
        hcount(5)  TYPE c,      " Counter
        matnr(18)  TYPE c,      " Material
        erfmg(13)  TYPE c,      " Quantity
        ERFME(3)   TYPE c,      " Unit of Entry
        charg(10)  TYPE c,      " Batch
        exbwr(13)  TYPE c,      " Amount
        lifnr(10)  TYPE c,      " Vendor
        kunnr(10)  TYPE c,      " Customer
        UMMAT(18)  TYPE C,      "MATERIAL (RECEIVINF/ISSUING)
        UMLGO(4)   TYPE C,      "ISSUING/RECEIVING STOR LOC
        UMCHA(10)  TYPE C,      " issueing receiving valuation
        END OF it_item.

DATA: it_item_nex LIKE it_item.

DATA: BEGIN OF it_err OCCURS 0,
        rectyp(1)  TYPE c,      " Header / Item Indicator
        bldat(10)   TYPE c,      " Document Date
        budat(10)   TYPE c,      " Posting Date
        bktxt(25)  TYPE c,      " Doc. Header Text
        bwartwa(3) TYPE c,      " Movement Type
        werks(4)   TYPE c,      " Plant
        lgort(4)   TYPE c,      " Storage Location
        matnr(18)  TYPE c,      " Material
        erfmg(13)  TYPE c,      " Quantity
        ERFME(3)   TYPE c,      " Unit of Entry
        charg(10)  TYPE c,      " Batch
        exbwr(13)  TYPE c,      " Amount
        error(255) TYPE c,     " Error Message Text
      END OF it_err.

DATA: it_raw TYPE truxs_t_text_data.
DATA: messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.

DATA: v_total    TYPE i.
DATA: v_txt  TYPE char80.
DATA: v_correct  TYPE i.
DATA: v_error    TYPE i.
DATA: v_cnt TYPE i.

CONSTANTS: c_headertype(1) TYPE c VALUE 'H',
           c_itemtype(1)   TYPE c VALUE 'I'.

*---------------------------------------------------------------------*
*-- At Selection Screen
*---------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_ifile.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      mode     = 'O'
    IMPORTING
      filename = p_ifile
    EXCEPTIONS
      OTHERS   = 1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_ofile.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      mode     = 'O'
    IMPORTING
      filename = p_ofile
    EXCEPTIONS
      OTHERS   = 1.

START-OF-SELECTION.
  IF p_ofile IS INITIAL.
    CONCATENATE p_ifile '_err' sy-datum sy-uzeit '.xls' INTO p_ofile.
  ENDIF.
  PERFORM data_upload.

  IF mode_a EQ 'X'.
    zmode = 'A'.
  ELSEIF mode_n EQ 'X'.
    zmode = 'N'.
  ENDIF.

  PERFORM filter_data.
  PERFORM populate_data.
  PERFORM write_status.

*&---------------------------------------------------------------------*
*&      Form  DATA_UPLOAD
*&---------------------------------------------------------------------*
FORM data_upload.

  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
      i_field_seperator    = 'X'
      i_line_header        = 'X'
      i_tab_raw_data       = it_raw
      i_filename           = p_ifile
    TABLES
      i_tab_converted_data = it_src_upload
    EXCEPTIONS
      conversion_failed    = 1
      OTHERS               = 2.

  IF sy-subrc <> 0.
    MESSAGE 'Error while uploading file' TYPE 'E'.
  ENDIF.

ENDFORM.                               " DATA_UPLOAD

*&---------------------------------------------------------------------*
*&      Form  FILTER_DATA
*&---------------------------------------------------------------------*
FORM filter_data.

* Filtering the Header and Item data
  DATA: c_hcount TYPE i.
*BREAK-POINT.
  LOOP AT it_src_upload.
    TRANSLATE it_src_upload TO UPPER CASE.
    MODIFY it_src_upload.
    IF it_src_upload-rectyp = c_headertype.
      c_hcount = c_hcount + 1.
      it_header-hcount = c_hcount.
      MOVE-CORRESPONDING it_src_upload TO it_header.
      APPEND it_header.
    ELSEIF it_src_upload-rectyp = c_itemtype .
      it_item-hcount = c_hcount.
      MOVE-CORRESPONDING it_src_upload TO it_item.
      APPEND it_item.
    ENDIF.
  ENDLOOP.
ENDFORM.                    "filter_data

*&---------------------------------------------------------------------*
*&      Form  POPULATE_DATA
*&---------------------------------------------------------------------*
FORM populate_data.
*BREAK-POINT.
  LOOP AT it_header.
    PERFORM bdc_dynpro      USING 'SAPMM07M'
                                  '0400'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=NPE'.

* Document Date
    PERFORM bdc_field       USING 'MKPF-BLDAT'
                                  it_header-bldat.
* Posting Date
    PERFORM bdc_field       USING 'MKPF-BUDAT'
                                  it_header-budat.
* Document Header Text
    PERFORM bdc_field       USING 'MKPF-BKTXT'
                                  it_header-bktxt.
* Movement Type
    PERFORM bdc_field       USING 'RM07M-BWARTWA'
                                  it_header-bwartwa.
* Plant
    PERFORM bdc_field       USING 'RM07M-WERKS'
                                  it_header-werks.
* Storage Location
    PERFORM bdc_field       USING 'RM07M-LGORT'
                                  it_header-lgort.
* Special Stock
    PERFORM bdc_field       USING 'RM07M-SOBKZ'
                                  it_header-sobkz.

    PERFORM bdc_field       USING 'XFULL'
                                  'X'.

    PERFORM bdc_field       USING 'RM07M-WVERS2'
                                   'X'.

    LOOP AT it_item WHERE hcount = it_header-hcount.

      v_cnt = sy-tabix + 1.

      PERFORM bdc_dynpro      USING 'SAPMM07M'
                                    '0410'.

* Set the OK Code according to the number of records
      CLEAR it_item_nex.
      READ TABLE it_item INDEX v_cnt INTO it_item_nex.
      IF sy-subrc = 0.
        IF it_item_nex-hcount = it_header-hcount.
* If not the last record then OK Code has to be to go to New Item
          PERFORM bdc_field       USING 'BDC_OKCODE'
                                        '=NPE'.
        ELSE.
* If last record of the document then OK Code has to be to SAVE
          PERFORM bdc_field       USING 'BDC_OKCODE'
                                        '=BU'.
        ENDIF.
      ELSE.
* If last record then OK Code has to be to SAVE
        PERFORM bdc_field       USING 'BDC_OKCODE'
                                      '=BU'.
      ENDIF.

* Material
      PERFORM bdc_field       USING 'MSEG-MATNR'
                                    it_item-matnr.
* Quantity
      PERFORM bdc_field       USING 'MSEG-ERFMG'
                                    it_item-erfmg.
* Unit Of Entry
      PERFORM bdc_field       USING 'MSEG-ERFME'
                                    it_item-ERFME.
* Batch
      PERFORM bdc_field       USING 'MSEG-CHARG'
                                    it_item-charg.

*      IF it_header-sobkz = ' '.
* Amount
        PERFORM bdc_field       USING 'MSEG-EXBWR'
                                      it_item-exbwr.
*      ENDIF.

        PERFORM bdc_field       USING 'MSEG-UMMAT'
                                      it_item-UMMAT.

        PERFORM bdc_field       USING 'MSEG-UMWRK'
                                      it_header-WERKS.

        PERFORM bdc_field       USING 'MSEG-UMLGO'
                                      it_item-UMLGO.

        PERFORM bdc_field       USING 'MSEG-UMCHA'
                                      it_item-UMCHA.

      CASE it_header-sobkz.
        WHEN 'O'.
* Vendor
          PERFORM bdc_field       USING 'MSEG-LIFNR'
                                        it_item-lifnr.
        WHEN 'W'.
* Customer
          PERFORM bdc_field       USING 'MSEGK-KUNNR'
                                        it_item-kunnr.
      ENDCASE.

      PERFORM bdc_dynpro      USING 'SAPLKACB'
                                    '0002'.
      PERFORM bdc_field       USING 'BDC_OKCODE'
                                    '=ENTE'.
    ENDLOOP.

    CALL TRANSACTION 'MB1B' USING bdcdata MODE zmode UPDATE 'S'.

    IF sy-subrc <> 0.
      CALL FUNCTION 'TB_MESSAGE_BUILD_TEXT'
        EXPORTING
          langu = sy-langu
          msgid = sy-msgid
          msgno = sy-msgno
          msgv1 = sy-msgv1
          msgv2 = sy-msgv2
          msgv3 = sy-msgv3
          msgv4 = sy-msgv4
        IMPORTING
          text  = v_txt.

      MOVE-CORRESPONDING it_header TO it_err.
      v_error = v_error + 1.
      it_err-error = v_txt.
      APPEND it_err.
      CLEAR it_err.
      CLEAR v_txt.

      LOOP AT it_item WHERE hcount = it_item-hcount.
        MOVE-CORRESPONDING it_item TO it_err.
        APPEND it_err.
        CLEAR: it_err.
      ENDLOOP.
    ELSE.
      v_correct = v_correct + 1.
    ENDIF.

    CLEAR: bdcdata.
    REFRESH: bdcdata.

  ENDLOOP.

ENDFORM.                    "

*&---------------------------------------------------------------------*
*&      Form  WRITE_STATUS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM write_status .

  v_total = v_error + v_correct.
  SKIP 2.
  WRITE:/ '-----------Status Log-----------' COLOR 6.
  SKIP 2.
  WRITE:/ 'Total Number of Records   :', v_total COLOR 1.
  WRITE:/ 'Total Updated Records     :', v_correct COLOR 3.
  WRITE:/ 'Total Not Updated Records :', v_error COLOR 6.

  IF NOT it_err[] IS INITIAL.
    WRITE:/ 'Error Log file', p_ofile, 'saved.'.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename              = p_ofile
        filetype              = 'ASC'
        append                = 'X'
        write_field_separator = 'X'
      TABLES
        data_tab              = it_err.

    IF sy-subrc <> 0.
      WRITE:/ 'Error creating log file'.
    ENDIF.
  ENDIF.
ENDFORM.                    " WRITE_STATUS

USE EXCEL FILE TO UPLOAD DATA.
HEADER MARKED WITH H
ITEM MARKED WITH I
IN THE VERY FIRST COLUMN OF EXCEL

Read Different Worksheets of Excel

2011-02-08T14:05:00.001+05:30

HI this is function Module.

FUNCTION zexcel_lectura_libro .
*"----------------------------------------------------------------------
*"*"Interfase local
*" IMPORTING
*" VALUE(FILENAME) LIKE RLGRAP-FILENAME
*" VALUE(I_BEGIN_COL) TYPE I
*" VALUE(I_BEGIN_ROW) TYPE I
*" VALUE(I_END_COL) TYPE I
*" VALUE(I_END_ROW) TYPE I
*" TABLES
*" INTERN_SALIDA STRUCTURE ZALSMEX_TABLINE
*" EXCEPTIONS
*" INCONSISTENT_PARAMETERS
*" UPLOAD_OLE
*"----------------------------------------------------------------------

* Variables Locales
DATA: l_excel TYPE ole2_object,
l_libro TYPE ole2_object,
l_hoja TYPE ole2_object,
l_cont TYPE i,
l_celli TYPE ole2_object,
l_cellf TYPE ole2_object,
l_cell TYPE ole2_object,
lt_tabla TYPE TABLE OF ty_s_senderline.

DATA: ld_separator TYPE c.

DATA: ld_rc TYPE i.

DATA: intern LIKE alsmex_tabline OCCURS 0
WITH HEADER LINE.

DATA: lf_pestania(50).

* Se verifica que las filas y columnas sean coherentes
IF i_begin_row > i_end_row.
RAISE inconsistent_parameters.
ENDIF.
IF i_begin_col > i_end_col.
RAISE inconsistent_parameters.
ENDIF.

* Abrimos el Excel
IF l_excel-header = space OR l_excel-handle = -1.
CREATE OBJECT l_excel 'Excel.Application'.
ENDIF.
CALL METHOD OF l_excel 'Workbooks' = l_libro.
CALL METHOD OF l_libro 'Open'
EXPORTING
#1 = filename.

* Se identifica el separador de campos
CLASS cl_abap_char_utilities DEFINITION LOAD.
ld_separator = cl_abap_char_utilities=>horizontal_tab.

* Recorremos las Hojas del Excel
DO.

*-- Incrementamos el Contador para ir de hoja en hoja
ADD 1 TO l_cont.

*-- Limpiamos los objetos
FREE OBJECT: l_cell, l_celli, l_cellf, l_hoja.
CLEAR lt_tabla[].

*-- Leemos la Hoja
CALL METHOD OF l_excel 'Worksheets' = l_hoja
EXPORTING
#1 = l_cont.

*-- Si no existe la hoja Salimos del Bucle
IF NOT sy-subrc IS INITIAL.
EXIT.
ENDIF.

* Tomamos el nombre de la pestaсa
GET PROPERTY OF l_hoja 'NAME' = lf_pestania.
COMMIT WORK AND WAIT.

*-- Recogemos la Primera Celda
CALL METHOD OF l_hoja 'Cells' = l_celli
EXPORTING
#1 = i_begin_row
#2 = i_begin_col.
COMMIT WORK AND WAIT.

*-- Recogemos la Ultima Celda
CALL METHOD OF l_hoja 'Cells' = l_cellf
EXPORTING
#1 = i_end_row
#2 = i_end_col.
COMMIT WORK AND WAIT.

*-- Recogemos las celdas comprendidas entre la Primera y la Ultima
*-- y lo copiamos a la memoria intermedia
CALL METHOD OF l_hoja 'RANGE' = l_cell
EXPORTING

Call Transaction in ALV LIST/GRID

2011-02-08T10:52:00.000+05:30

TYPE-POOLS: slis.
tables: rseg.

DATA: begin of TAB_ARSEG occurs 0.
INCLUDE STRUCTURE RSEG.
DATA: END OF TAB_ARSEG.
DATA: T_FIELDCAT TYPE slis_t_fieldcat_alv.
DATA: c_user_command TYPE slis_formname VALUE 'USER_COMMAND'.

START-OF-SELECTION.
select * from rseg into table tab_arseg .

END-OF-SELECTION.
perform build_fieldcat.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_buffer_active = space
i_callback_program = sy-repid
I_CALLBACK_USER_COMMAND = c_user_command
IT_FIELDCAT = T_FIELDCAT[]
TABLES
T_OUTTAB = TAB_ARSEG .

**&------------------------------------------------------------------
**& Form USER_COMMAND
**&------------------------------------------------------------------
FORM USER_COMMAND USING F_UCOMM LIKE SY-UCOMM
I_SELFIELD TYPE SLIS_SELFIELD.

DATA: F_SUBRC LIKE SY-SUBRC,
s_arseg like tab_arseg.
READ TABLE tab_arseg INDEX i_selfield-tabindex INTO s_arseg.

CASE F_UCOMM.
WHEN '&IC1'.
CASE i_SELFIELD-SEL_TAB_FIELD.
WHEN 'TAB_ARSEG-BELNR'.
CHECK NOT S_ARSEG-BELNR IS INITIAL.
SET PARAMETER ID 'RBN' FIELD S_ARSEG-BELNR.
SET PARAMETER ID 'GJR' FIELD S_ARSEG-GJAHR.
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
ENDCASE.
ENDCASE.
ENDFORM.

**&------------------------------------------------------------------
**& Form build_fieldcat
**&------------------------------------------------------------------
FORM build_fieldcat .
DATA: FIELDCAT TYPE SLIS_FIELDCAT_ALV.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BELNR'.
FIELDCAT-TABNAME = 'TAB_ARSEG'.
FIELDCAT-REF_TABNAME = 'RSEG'.
FIELDCAT-REF_FIELDNAME = 'BELNR'.
fieldcat-hotspot = 'X'.
FIELDCAT-COL_POS = 1.
APPEND FIELDCAT TO t_fieldcat.

CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'GJAHR'.
FIELDCAT-TABNAME = 'TAB_ARSEG'.
FIELDCAT-REF_TABNAME = 'RSEG'.
FIELDCAT-REF_FIELDNAME = 'GJAHR'.
FIELDCAT-COL_POS = 2.
APPEND FIELDCAT TO t_fieldcat.

ENDFORM. " build_fieldcat

Adding of Adding Of Date, Week, Month & Year To A Date

2011-02-08T10:48:00.000+05:30

*Please create 1 Z Program and paste the below Code.

DATA :I_DATE LIKE SY-DATUM,
DATE LIKE SY-DATUM .
*--here if I_IPRKZ = space it is in days
* if I_IPRKZ = 1 it is in weeks
* if I_IPRKZ = 2 it is in months
* if I_IPRKZ = 3 it is in years
*--here i_ time will display the no of weeks or months or yeas
CALL FUNCTION 'ADD_TIME_TO_DATE'
EXPORTING
I_IDATE = SY-DATUM "Original date
I_TIME = '4'
I_IPRKZ = ' '
IMPORTING
O_IDATE = date ."new date

WRITE:/ DATE .

Download Data Into Excel using OLE Automation

2011-02-08T10:41:00.000+05:30

Please create 1 Z Program with any name and paste the code below....

* this report demonstrates how to send some ABAP data to an
* EXCEL sheet using OLE automation.
INCLUDE OLE2INCL.
* handles for OLE objects
DATA: H_EXCEL TYPE OLE2_OBJECT, " Excel object
   H_MAPL TYPE OLE2_OBJECT, " list of workbooks
   H_MAP TYPE OLE2_OBJECT, " workbook
   H_ZL TYPE OLE2_OBJECT, " cell
   H_F TYPE OLE2_OBJECT. " font
TABLES: SPFLI.
DATA H TYPE I.
* table of flights
DATA: IT_SPFLI LIKE SPFLI OCCURS 10 WITH HEADER LINE.

*&---------------------------------------------------------------------*
*& Event START-OF-SELECTION
*&---------------------------------------------------------------------*
START-OF-SELECTION.
* read flights
  SELECT * FROM SPFLI INTO TABLE IT_SPFLI UP TO 10 ROWS.
* display header
  ULINE (61).
  WRITE: / SY-VLINE NO-GAP,
   (3) 'Flg'(001) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
   (4) 'Nr'(002) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
   (20) 'Von'(003) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
   (20) 'Nach'(004) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
   (8) 'Zeit'(005) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP.
  ULINE /(61).
* display flights
  LOOP AT IT_SPFLI.
  WRITE: / SY-VLINE NO-GAP,
   IT_SPFLI-CARRID COLOR COL_KEY NO-GAP, SY-VLINE NO-GAP,
   IT_SPFLI-CONNID COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
   IT_SPFLI-CITYFROM COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
   IT_SPFLI-CITYTO COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
   IT_SPFLI-DEPTIME COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP.
  ENDLOOP.
  ULINE /(61).
* tell user what is going on
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
   EXPORTING
* PERCENTAGE = 0
   TEXT = TEXT-007
   EXCEPTIONS
   OTHERS = 1.
* start Excel
  CREATE OBJECT H_EXCEL 'EXCEL.APPLICATION'.
* PERFORM ERR_HDL.

  SET PROPERTY OF H_EXCEL 'Visible' = 1.
* CALL METHOD OF H_EXCEL 'FILESAVEAS' EXPORTING #1 = 'c:\kis_excel.xls'
.

* PERFORM ERR_HDL.
* tell user what is going on
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
   EXPORTING
* PERCENTAGE = 0
   TEXT = TEXT-008
   EXCEPTIONS
   OTHERS = 1.
* get list of workbooks, initially empty
  CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
  PERFORM ERR_HDL.
* add a new workbook
  CALL METHOD OF H_MAPL 'Add' = H_MAP.
  PERFORM ERR_HDL.
* tell user what is going on
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
   EXPORTING
* PERCENTAGE = 0
   TEXT = TEXT-009
   EXCEPTIONS
   OTHERS = 1.
* output column headings to active Excel sheet
  PERFORM FILL_CELL USING 1 1 1 'Carrier Id'(001).
  PERFORM FILL_CELL USING 1 2 0 'Connect Id'(002).
  PERFORM FILL_CELL USING 1 3 1 'City From'(003).
  PERFORM FILL_CELL USING 1 4 1 'City To'(004).
  PERFORM FILL_CELL USING 1 5 1 'Dept Time'(005).
  LOOP AT IT_SPFLI.
* copy flights to active EXCEL sheet
   H = SY-TABIX + 1.
   PERFORM FILL_CELL USING H 1 0 IT_SPFLI-CARRID.
   PERFORM FILL_CELL USING H 2 0 IT_SPFLI-CONNID.
   PERFORM FILL_CELL USING H 3 0 IT_SPFLI-CITYFROM.
   PERFORM FILL_CELL USING H 4 0 IT_SPFLI-CITYTO.
   PERFORM FILL_CELL USING H 5 0 IT_SPFLI-DEPTIME.
  ENDLOOP.

* changes by Kishore - start
* CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
  CALL METHOD OF H_EXCEL 'Worksheets' = H_MAPL." EXPORTING #1 = 2.

  PERFORM ERR_HDL.
* add a new workbook
  CALL METHOD OF H_MAPL 'Add' = H_MAP EXPORTING #1 = 2.
  PERFORM ERR_HDL.
* tell user what is going on
  SET PROPERTY OF H_MAP 'NAME' = 'COPY'.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
   EXPORTING
* PERCENTAGE = 0
   TEXT = TEXT-009
   EXCEPTIONS
   OTHERS = 1.
* output column headings to active Excel sheet
  PERFORM FILL_CELL USING 1 1 1 'Carrier ID'(001).
  PERFORM FILL_CELL USING 1 2 0 'Connection ID'(002).
  PERFORM FILL_CELL USING 1 3 1 'City From'(003).
  PERFORM FILL_CELL USING 1 4 1 'City To'(004).
  PERFORM FILL_CELL USING 1 5 1 'Dept Time'(005).
  LOOP AT IT_SPFLI.
* copy flights to active EXCEL sheet
   H = SY-TABIX + 1.
   PERFORM FILL_CELL USING H 1 0 IT_SPFLI-CARRID.
   PERFORM FILL_CELL USING H 2 0 IT_SPFLI-CONNID.
   PERFORM FILL_CELL USING H 3 0 IT_SPFLI-CITYFROM.
   PERFORM FILL_CELL USING H 4 0 IT_SPFLI-CITYTO.
   PERFORM FILL_CELL USING H 5 0 IT_SPFLI-DEPTIME.
  ENDLOOP.
* changes by Kishore - end
* disconnect from Excel
* CALL METHOD OF H_EXCEL 'FILESAVEAS' EXPORTING #1 = 'C:\SKV.XLS'.

  FREE OBJECT H_EXCEL.
  PERFORM ERR_HDL.
*---------------------------------------------------------------------*
* FORM FILL_CELL *
*---------------------------------------------------------------------*
* sets cell at coordinates i,j to value val boldtype bold *
*---------------------------------------------------------------------*
FORM FILL_CELL USING I J BOLD VAL.
  CALL METHOD OF H_EXCEL 'Cells' = H_ZL EXPORTING #1 = I #2 = J.
  PERFORM ERR_HDL.
  SET PROPERTY OF H_ZL 'Value' = VAL .
  PERFORM ERR_HDL.
  GET PROPERTY OF H_ZL 'Font' = H_F.
  PERFORM ERR_HDL.
  SET PROPERTY OF H_F 'Bold' = BOLD .
  PERFORM ERR_HDL.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form ERR_HDL
*&---------------------------------------------------------------------*
* outputs OLE error if any *
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM ERR_HDL.
IF SY-SUBRC <> 0.
  WRITE: / 'Fehler bei OLE-Automation:'(010), SY-SUBRC.
  STOP.
ENDIF.
ENDFORM. " ERR_HDL

Hi All

2011-02-08T10:15:00.000+05:30

Welcome to new SAP TUTORIAL site