ALV grid to ABAP list

Hi ,
I am displaying data in ALV grid, using a button I am updating Production orders, if the order is successfully updated, i need to write the text" Order updated" to list.
I am using statement leave to list processing .
the text is dislayed in list but i am not able to go BACK to ALV grid or selection screen.
How to navigate to list from ALV and from list to ALV.

My gut tells me you won't be going for BAL_DSP_LOG_DISPLAY and stick to list.
In which case check if you also use
LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.
LEAVE SCREEN.
and to get back to your screen:
LEAVE LIST-PROCESSING
edit.
And do you have a PF-status when you're in the list? One with a back button?

Similar Messages

List header for alv grid using abap objects

Hai all,
I have displayed alv grid in container control using abap objects i.e. using method set_table_for_first_display.
now i need to display list header for this alv grid.
please help me how to create with a sample coding.
Thanks and regards,
Prabu S.

Create a splitter using CL_GUI_EASY_SPLITTER_CONTAINER with a top and bottom half. Put the alv grid in the bottom half. Use cl_dd_document (documented in help.sap.com ) to build the header in the top half. Use events on CL_GUI_ALV_GRID to handle the top-of-list printing.
Or, if available, use CL_SALV_TABLE, and read the documentation on that. When I needed a header for my report, that's what I did. There's plenty of good documentation about if you'll search for it.
matt

Calling smartform and displaying ALV grid in ABAP WEBDYNPRO

Hi all,
I am new to ABAP web dynpro.I ahve few custom reports which are simple ALV list reports which I now need to convert to ABAP web dynpro application .
For one particular report,based on the selection screen input,I need to display the ALV list and when I select the records from the ALV list,I need to call a smartform on clik of a push button.
My questions:
1. Im using 'REUSE_ALV_GRID_DISPLAY' FM to display the o/p in my report.Is there any similar FM in webdynpro ABAP which will display my list in ALV GRID in my web dynpro application??/
2. How to call a smartfrm in ALV grid in web dynpro??
Edited by: abap_1000 on Jan 9, 2011 6:09 PM

Hi,
You can search SDN, there are several posts available. Just to get some idea, you can check --
[Beginneru00B4s questions on WDA ALV;
[Reg ALV Display;
For clicking event on ALV --
[Reg Row Data fetching on click in ALV;
For ALV display on WDA --
[http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/101df93f-4b5c-2910-14aa-9eb0338c2110?quicklink=index&overridelayout=true]
Thanks.
Kumar Saurav.

How to append ALV grid output to LIST output

Hi,
I am working with Basis AUDIT MANUAL report for which i have to integrate around 50 standard transactions (SM37,SM35...etc) output and make it into one single report.
On execution of my report i have to get all the 50 transaction outputs sequentially.
Some standard transactions have ALV list display output and some have GRID display.I can able to append only list outputs by submit program and exporting list to memory.
Please suggest me how to get Alv grid output in midst of list output.
Regards
Kalpana.

You should post your question to the ABAP forum:
ABAP Development

First try with ALV Grid and Abap Objects

Hi,
this is my first try to write a simple report which just reads a textfile and display it in an ALV Grid. As a basis, I used some examples from SDN, but it did not work as expected
I would like just to use a docking container. I do not need a separate area for the ALV Grid. The report gives no syntax errors, but it just display the report title, nothing else. SAP R/3 Release is 4.7. Below is the source code of the report. Any idea what is missing?
*& Report Z_PLAN_TEXT_UPLOAD                                          *
REPORT z_plan_text_upload.
INCLUDE <icon>.
* Data Declaration
DATA:
gf_dynnr TYPE sy-dynnr,
gf_repid TYPE sy-repid.
DATA:
go_docking_container TYPE REF TO cl_gui_docking_container,
go_alv_grid TYPE REF TO cl_gui_alv_grid.
DATA:
gt_fieldcat TYPE lvc_t_fcat,
gs_fieldcat LIKE LINE OF gt_fieldcat.
TYPES:
BEGIN OF gy_text_input,
    firma(20)           TYPE c,
    kostenstelle(20)    TYPE c,
    datenart1(10)       TYPE c,
    planjahr(10)        TYPE c,
*    planperiode         TYPE co_perio,
    planperiode(5)      TYPE c,
    datenart2(10)       TYPE c,
    planungposition(10) TYPE c,
*    kostenart           TYPE koart,
    kostenart(10)       TYPE c,
*    planbetrag          TYPE bapicurr_d,
    planbetrag(20)      TYPE c,
END OF gy_text_input.
DATA:
gt_text_input TYPE TABLE OF gy_text_input,
gs_text_input LIKE LINE OF gt_text_input.
* Local Class Definition
* Local Class Implementation
* Selection-Screen
SELECTION-SCREEN BEGIN OF BLOCK b1
WITH FRAME TITLE text-001.
SKIP.
PARAMETERS:
gp_file TYPE localfile,
gp_head TYPE checkbox DEFAULT 'X'.
SKIP.
PARAMETERS:
gp_gjahr LIKE coep-gjahr,
gp_versn LIKE coep-versn.
SELECTION-SCREEN END OF BLOCK b1.
* Initialization
INITIALIZATION.
DATA:
    lf_sapworkdir TYPE string.
CALL METHOD cl_gui_frontend_services=>get_sapgui_workdir
    CHANGING
      sapworkdir            = lf_sapworkdir
    EXCEPTIONS
      get_sapworkdir_failed = 1
      cntl_error            = 2
      error_no_gui          = 3
      not_supported_by_gui = 4
      OTHERS                = 5.
IF sy-subrc <> 0 OR lf_sapworkdir = ''.
    CALL METHOD cl_gui_frontend_services=>directory_get_current
      CHANGING
        current_directory            = lf_sapworkdir
      EXCEPTIONS
        directory_get_current_failed = 1
        cntl_error                   = 2
        error_no_gui                 = 3
        not_supported_by_gui         = 4
        OTHERS                       = 5.
    CALL METHOD cl_gui_cfw=>flush.
ENDIF."sy-subrc <> 0 OR sapworkdir = ''
gp_file = lf_sapworkdir.
gf_dynnr = sy-dynnr.
gf_repid = sy-repid.
* At Selection-Screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR gp_file.
DATA:
    lt_filetable TYPE filetable,
    ls_filetable LIKE LINE OF lt_filetable,
    lt_rc TYPE i.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
* EXPORTING
*    WINDOW_TITLE            =
*    DEFAULT_EXTENSION       =
*    DEFAULT_FILENAME        =
*    FILE_FILTER             =
*    INITIAL_DIRECTORY       =
*    MULTISELECTION          =
*    WITH_ENCODING           =
    CHANGING
      file_table              = lt_filetable
      rc                      = lt_rc
*    USER_ACTION             =
*    FILE_ENCODING           =
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TABLE lt_filetable INDEX 1
    INTO
      ls_filetable.
gp_file = ls_filetable-filename.
CALL METHOD cl_gui_cfw=>flush.
* Start-Of-Selection
START-OF-SELECTION.
DATA:
    lf_filename LIKE filename-fileintern.
lf_filename = gp_file.
CALL FUNCTION 'FILE_READ_AND_CONVERT_SAP_DATA'
    EXPORTING
      i_filename                 = lf_filename
      i_servertyp                = 'PRS '
      i_fileformat               = 'TXT'
*     I_FIELD_SEPERATOR          =
      i_line_header              = gp_head
*   IMPORTING
*     E_BIN_FILELENGTH           =
   TABLES
     i_tab_receiver             = gt_text_input
   EXCEPTIONS
     file_not_found             = 1
     close_failed               = 2
     authorization_failed       = 3
     open_failed                = 4
     conversion_failed          = 5
     OTHERS                     = 6.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*------ Build the Field Catalog ---------------------------------------*
PERFORM build_fieldcatalog
    CHANGING gt_fieldcat.
*------ Create the docking container ----------------------------------*
IF go_docking_container IS INITIAL.
    CREATE OBJECT go_docking_container
      EXPORTING
*      PARENT                      =
        repid                       = gf_repid
        dynnr                       = gf_dynnr
*     SIDE                        = go_docking_container->DOCK_AT_bottom
*      EXTENSION                   = 200
*      STYLE                       =
*      LIFETIME                    = lifetime_default
*      CAPTION                     =
*      METRIC                      = 0
*      RATIO                       =
*      NO_AUTODEF_PROGID_DYNNR     =
*      NAME                        =
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5
        OTHERS                      = 6.
    IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
ENDIF."go_docking_container IS INITIAL
*------ Create the ALV Grid -------------------------------------------*
IF go_alv_grid IS INITIAL.
    CREATE OBJECT go_alv_grid
      EXPORTING
*      I_SHELLSTYLE      = 0
*      I_LIFETIME        =
        i_parent          = go_docking_container
*      I_APPL_EVENTS     = space
*      I_PARENTDBG       =
*      I_APPLOGPARENT    =
*      I_GRAPHICSPARENT =
*      I_NAME            =
      EXCEPTIONS
        error_cntl_create = 1
        error_cntl_init   = 2
        error_cntl_link   = 3
        error_dp_create   = 4
        OTHERS            = 5.
    IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
ENDIF."go_alv_grid is initial
*------ Call ALV Grid -------------------------------------------------*
CALL METHOD go_alv_grid->set_table_for_first_display
*     EXPORTING
*      I_BUFFER_ACTIVE               =
*      I_BYPASSING_BUFFER            =
*      I_CONSISTENCY_CHECK           =
*      I_STRUCTURE_NAME              =
*      IS_VARIANT                    =
*      I_SAVE                        =
*      I_DEFAULT                     = 'X'
*      IS_LAYOUT                     =
*      IS_PRINT                      =
*      IT_SPECIAL_GROUPS             =
*      IT_TOOLBAR_EXCLUDING          =
*      IT_HYPERLINK                  =
*      IT_ALV_GRAPHICS               =
*      IT_EXCEPT_QINFO               =
    CHANGING
      it_outtab                     = gt_text_input
      it_fieldcatalog               = gt_fieldcat
*      IT_SORT                       =
*      IT_FILTER                     =
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4.
IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*&      Form build_fieldcatalog
*       text
*      <--P_GT_FIELDCAT text
FORM build_fieldcatalog
CHANGING
    pt_fieldcat TYPE lvc_t_fcat.
DATA ls_fcat TYPE lvc_s_fcat.
ls_fcat-fieldname = 'FIRMA' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '20' .
ls_fcat-coltext = 'Firma' .
ls_fcat-seltext = 'Firma' .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'KOSTENSTELLE' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '20' .
ls_fcat-coltext = 'Kostenstelle' .
ls_fcat-seltext = 'Kostenstelle' .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'DATENART1' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '10' .
ls_fcat-coltext = 'Datenart1' .
ls_fcat-seltext = 'Datenart1' .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'PLANJAHR' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '10' .
ls_fcat-coltext = 'Planjahr' .
ls_fcat-seltext = 'Planjahr' .
APPEND ls_fcat TO pt_fieldcat .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'PLANPERIODE' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '5' .
ls_fcat-coltext = 'Planperiode' .
ls_fcat-seltext = 'Planperiode' .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'DATENART2' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '10' .
ls_fcat-coltext = 'Datenart2' .
ls_fcat-seltext = 'Datenart2' .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'PLANUNGSPOSITION' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '10' .
ls_fcat-coltext = 'Planungsposition' .
ls_fcat-seltext = 'Planungsposition' .
APPEND ls_fcat TO pt_fieldcat .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'KOSTENART' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '10' .
ls_fcat-coltext = 'Kostenart' .
ls_fcat-seltext = 'Kostenart' .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'PLANBETRAG' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '20' .
ls_fcat-coltext = 'Planbetrag' .
ls_fcat-seltext = 'Planbetrag' .
APPEND ls_fcat TO pt_fieldcat .
ENDFORM.                    "build_fieldcatalog

I have added some more functionality to my report. The good thing is, the report works as it should.
BUT, I'm not really sure, whether this is a good (correct) design. The report works the following way:
1. Read planning data form text file into internal table
2. Display the internal table
3. Convert the data and display the converted result
4. Post the converted data to the system
5. Display log with messages
The main thing is, I would like to know, do i really need two dynros, to display the two different internal tables or is it possible just to use one ALV-Grid? I was not able to find another solution. Any comment or help to the report is appreciated.
*& Report Z_PLAN_TEXT_UPLOAD_TEST                                     *
REPORT z_plan_text_upload_test.
INCLUDE <icon>.
* Data Declaration
DATA:
gf_okcode TYPE ui_func,
gf_balloghndl TYPE balloghndl.
DATA:
go_docking_container TYPE REF TO cl_gui_docking_container,
go_alv_grid_0100 TYPE REF TO cl_gui_alv_grid,
go_alv_grid_0200 TYPE REF TO cl_gui_alv_grid.
DATA:
gt_fieldcat TYPE lvc_t_fcat,
gs_fieldcat LIKE LINE OF gt_fieldcat.
TYPES:
BEGIN OF gy_text_input,
    firma(20)            TYPE c,
    kostenstelle(20)     TYPE c,
    datenart1(10)        TYPE c,
    planjahr(10)         TYPE c,
*    planperiode         TYPE co_perio,
    planperiode(5)       TYPE c,
    datenart2(10)        TYPE c,
    planungsposition(10) TYPE c,
*    kostenart           TYPE koart,
    kostenart(10)        TYPE c,
*    planbetrag          TYPE bapicurr_d,
    planbetrag(20)       TYPE c,
END OF gy_text_input.
DATA:
gt_text_input TYPE TABLE OF gy_text_input,
gs_text_input LIKE LINE OF gt_text_input.
* Bapi Strukturen
DATA:
gs_headerinfo TYPE bapiplnhdr,
gt_indexstructure TYPE TABLE OF bapiacpstru,
gs_indexstructure LIKE LINE OF gt_indexstructure,
gt_coobject TYPE TABLE OF bapipcpobj,
gs_coobject LIKE LINE OF gt_coobject,
gt_pervalue TYPE TABLE OF bapipcpval,
gs_pervalue LIKE LINE OF gt_pervalue,
gt_return TYPE TABLE OF bapiret2,
gs_return LIKE LINE OF gt_return,
gt_control TYPE TABLE OF bapipcpctrl,
gt_totvalue TYPE TABLE OF bapipcptot.
TYPES:
BEGIN OF gy_bapi_input,
    version      TYPE versn,
*    perio       TYPE co_perio,
    fisc_year    TYPE gjahr,
    coobject(10) TYPE c,
    cost_elem    TYPE kstar,
    wkgbtr01     TYPE wkgxxx,
    wkgbtr02     TYPE wkgxxx,
    wkgbtr03     TYPE wkgxxx,
    wkgbtr04     TYPE wkgxxx,
    wkgbtr05     TYPE wkgxxx,
    wkgbtr06     TYPE wkgxxx,
    wkgbtr07     TYPE wkgxxx,
    wkgbtr08     TYPE wkgxxx,
    wkgbtr09     TYPE wkgxxx,
    wkgbtr10     TYPE wkgxxx,
    wkgbtr11     TYPE wkgxxx,
    wkgbtr12     TYPE wkgxxx,
END OF gy_bapi_input.
DATA:
gt_bapi_input TYPE TABLE OF gy_bapi_input,
gs_bapi_input LIKE LINE OF gt_bapi_input.
* Anwendungs-Log
DATA: gs_balsmsg TYPE bal_s_msg.
* Selection-Screen
SELECTION-SCREEN BEGIN OF BLOCK b1
WITH FRAME TITLE text-001.
PARAMETERS:
gp_file TYPE localfile,
gp_head TYPE checkbox DEFAULT 'X'.
SELECTION-SCREEN SKIP.
PARAMETERS:
gp_kokrs LIKE coep-kokrs,
gp_gjahr LIKE coep-gjahr,
gp_versn LIKE coep-versn,
gp_test AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK b1.
* Local Class Definition
CLASS lcl_event_handler DEFINITION.
PUBLIC SECTION.
    METHODS:
    handle_toolbar_0100 FOR EVENT toolbar OF cl_gui_alv_grid
      IMPORTING
        e_object
        e_interactive,
    handle_user_command_0100 FOR EVENT user_command OF cl_gui_alv_grid
      IMPORTING
        e_ucomm,
    handle_toolbar_0200 FOR EVENT toolbar OF cl_gui_alv_grid
      IMPORTING
        e_object
        e_interactive,
    handle_user_command_0200 FOR EVENT user_command OF cl_gui_alv_grid
      IMPORTING
        e_ucomm.
PRIVATE SECTION.
ENDCLASS.                    "lcl_event_handler DEFINITION
* Local Class Implementation
CLASS lcl_event_handler IMPLEMENTATION.
METHOD handle_toolbar_0100.
    PERFORM handle_toolbar_0100
      USING
        e_object.
*        e_interactive.
ENDMETHOD.                    "handle_toolbar_0100
METHOD handle_user_command_0100.
    PERFORM handle_user_command_0100
      USING
        e_ucomm.
ENDMETHOD.                    "handle_user_command_0100
METHOD handle_toolbar_0200.
    PERFORM handle_toolbar_0200
      USING
        e_object.
*        e_interactive.
ENDMETHOD.                    "handle_toolbar_0100
METHOD handle_user_command_0200.
    PERFORM handle_user_command_0200
      USING
        e_ucomm.
ENDMETHOD.                    "handle_user_command_0100
ENDCLASS.                    "lcl_event_handler IMPLEMENTATION
* Initialization
INITIALIZATION.
DATA:
    lf_sapworkdir TYPE string.
CALL METHOD cl_gui_frontend_services=>get_sapgui_workdir
    CHANGING
      sapworkdir            = lf_sapworkdir
    EXCEPTIONS
      get_sapworkdir_failed = 1
      cntl_error            = 2
      error_no_gui          = 3
      not_supported_by_gui = 4
      OTHERS                = 5.
IF sy-subrc <> 0 OR lf_sapworkdir = ''.
    CALL METHOD cl_gui_frontend_services=>directory_get_current
      CHANGING
        current_directory            = lf_sapworkdir
      EXCEPTIONS
        directory_get_current_failed = 1
        cntl_error                   = 2
        error_no_gui                 = 3
        not_supported_by_gui         = 4
        OTHERS                       = 5.
    CALL METHOD cl_gui_cfw=>flush.
ENDIF."sy-subrc <> 0 OR sapworkdir = ''
gp_file = lf_sapworkdir.
* At Selection-Screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR gp_file.
DATA:
    lt_filetable TYPE filetable,
    ls_filetable LIKE LINE OF lt_filetable,
    lt_rc TYPE i.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
* EXPORTING
*    WINDOW_TITLE            =
*    DEFAULT_EXTENSION       =
*    DEFAULT_FILENAME        =
*    FILE_FILTER             =
*    INITIAL_DIRECTORY       =
*    MULTISELECTION          =
*    WITH_ENCODING           =
    CHANGING
      file_table              = lt_filetable
      rc                      = lt_rc
*    USER_ACTION             =
*    FILE_ENCODING           =
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
READ TABLE lt_filetable INDEX 1
    INTO
      ls_filetable.
gp_file = ls_filetable-filename.
CALL METHOD cl_gui_cfw=>flush.
* Start-Of-Selection
START-OF-SELECTION.
DATA:
    lf_filename LIKE filename-fileintern.
PERFORM create_log.
gs_return-type = 'I'.
IF gp_test = 'X'.
    gs_return-message = text-010.
ELSE.
    gs_return-message = text-020.
ENDIF.
PERFORM add_log_message_free_text
    USING
       gs_return-type
       gs_return-message.
lf_filename = gp_file.
CALL FUNCTION 'FILE_READ_AND_CONVERT_SAP_DATA'
    EXPORTING
      i_filename                 = lf_filename
      i_servertyp                = 'PRS '
      i_fileformat               = 'TXT'
*     I_FIELD_SEPERATOR          =
      i_line_header              = gp_head
*   IMPORTING
*     E_BIN_FILELENGTH           =
   TABLES
     i_tab_receiver             = gt_text_input
   EXCEPTIONS
     file_not_found             = 1
     close_failed               = 2
     authorization_failed       = 3
     open_failed                = 4
     conversion_failed          = 5
     OTHERS                     = 6.
IF sy-subrc <> 0.
    gs_balsmsg-msgty = sy-msgty.
    gs_balsmsg-msgid = sy-msgid.
    gs_balsmsg-msgno = sy-msgno.
    gs_balsmsg-msgv1 = sy-msgv1.
    gs_balsmsg-msgv2 = sy-msgv2.
    gs_balsmsg-msgv3 = sy-msgv3.
    gs_balsmsg-msgv4 = sy-msgv4.
    PERFORM add_log_message
      USING
        gs_balsmsg.
ENDIF.
CALL SCREEN '0100'.
*&      Module status_0100 OUTPUT
*       text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATUS_0100'.
*------ Create the docking container ----------------------------------*
IF go_docking_container IS INITIAL.
    CREATE OBJECT go_docking_container
      EXPORTING
        parent                      = cl_gui_container=>screen0
*        repid                       = gf_repid
*        dynnr                       = gf_dynnr
*     SIDE                        = go_docking_container->DOCK_AT_bottom
*       EXTENSION                   = 200
*      STYLE                       =
*      LIFETIME                    = lifetime_default
*      CAPTION                     =
*      METRIC                      = 0
        ratio                       = 95
*      NO_AUTODEF_PROGID_DYNNR     =
*      NAME                        =
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5
        OTHERS                      = 6.
    IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
*------ Expand docking container to full screen    -------------------*
    CALL METHOD go_docking_container->set_extension
      EXPORTING
        extension = 99999 "full-screen size !!!
      EXCEPTIONS
        cntl_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.
ENDIF."go_docking_container IS INITIAL
*------ Link docking container to screen ------------------------------*
CALL METHOD go_docking_container->link
    EXPORTING
      repid                       = sy-repid
      dynnr                       = '0100'
*      CONTAINER                   =
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      lifetime_dynpro_dynpro_link = 3
      OTHERS                      = 4
IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*------ Build the Field Catalog ---------------------------------------*
PERFORM build_fieldcatalog_input
    CHANGING gt_fieldcat.
*------ Create the ALV Grid -------------------------------------------*
IF go_alv_grid_0100 IS INITIAL.
    CREATE OBJECT go_alv_grid_0100
      EXPORTING
*      I_SHELLSTYLE      = 0
*      I_LIFETIME        =
        i_parent          = go_docking_container
*      I_APPL_EVENTS     = space
*      I_PARENTDBG       =
*      I_APPLOGPARENT    =
*      I_GRAPHICSPARENT =
*      I_NAME            =
      EXCEPTIONS
        error_cntl_create = 1
        error_cntl_init   = 2
        error_cntl_link   = 3
        error_dp_create   = 4
        OTHERS            = 5.
    IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
ENDIF."go_alv_grid_0100 is initial
*------ Create instance for event handler -----------------------------*
DATA: go_event_handler_0100 TYPE REF TO lcl_event_handler.
CREATE OBJECT go_event_handler_0100.
*------ Register event handler ----------------------------------------*
SET HANDLER go_event_handler_0100->handle_toolbar_0100
    FOR go_alv_grid_0100.
SET HANDLER go_event_handler_0100->handle_user_command_0100
    FOR go_alv_grid_0100.
*------ Call ALV Grid -------------------------------------------------*
CALL METHOD go_alv_grid_0100->set_table_for_first_display
*     EXPORTING
*      I_BUFFER_ACTIVE               =
*      I_BYPASSING_BUFFER            =
*      I_CONSISTENCY_CHECK           =
*      I_STRUCTURE_NAME              =
*      IS_VARIANT                    =
*      I_SAVE                        =
*      I_DEFAULT                     = 'X'
*      IS_LAYOUT                     =
*      IS_PRINT                      =
*      IT_SPECIAL_GROUPS             =
*      IT_TOOLBAR_EXCLUDING          =
*      IT_HYPERLINK                  =
*      IT_ALV_GRAPHICS               =
*      IT_EXCEPT_QINFO               =
    CHANGING
      it_outtab                     = gt_text_input
      it_fieldcatalog               = gt_fieldcat
*      IT_SORT                       =
*      IT_FILTER                     =
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4.
IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*---- Call method 'set_toolbar_interactive' to raise event TOOLBAR.
CALL METHOD go_alv_grid_0100->set_toolbar_interactive.
ENDMODULE.                 " status_0100 OUTPUT
*&      Module status_0200 OUTPUT
*       text
MODULE status_0200 OUTPUT.
SET PF-STATUS 'STATUS_0100'.
*------ Create the docking container ----------------------------------*
IF go_docking_container IS INITIAL.
    CREATE OBJECT go_docking_container
      EXPORTING
        parent                      = cl_gui_container=>screen0
*        repid                       = gf_repid
*        dynnr                       = gf_dynnr
*     SIDE                        = go_docking_container->DOCK_AT_bottom
*       EXTENSION                   = 200
*      STYLE                       =
*      LIFETIME                    = lifetime_default
*      CAPTION                     =
*      METRIC                      = 0
        ratio                       = 95
*      NO_AUTODEF_PROGID_DYNNR     =
*      NAME                        =
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5
        OTHERS                      = 6.
    IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
*------ Expand docking container to full screen    -------------------*
    CALL METHOD go_docking_container->set_extension
      EXPORTING
        extension = 99999
      EXCEPTIONS
        cntl_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.
ENDIF."go_docking_container IS INITIAL
*------ Link docking container to screen ------------------------------*
CALL METHOD go_docking_container->link
    EXPORTING
      repid                       = sy-repid
      dynnr                       = '0200'
*      CONTAINER                   =
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      lifetime_dynpro_dynpro_link = 3
      OTHERS                      = 4
IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*------ Build the Field Catalog---------------------------------------*
PERFORM build_fieldcatalog_bapi_input
    CHANGING
      gt_fieldcat.
*------ Create the ALV Grid -------------------------------------------*
IF go_alv_grid_0200 IS INITIAL.
    CREATE OBJECT go_alv_grid_0200
      EXPORTING
*      I_SHELLSTYLE      = 0
*      I_LIFETIME        =
       i_parent          = go_docking_container
*      I_APPL_EVENTS     = space
*      I_PARENTDBG       =
*      I_APPLOGPARENT    =
*      I_GRAPHICSPARENT =
*      I_NAME            =
      EXCEPTIONS
        error_cntl_create = 1
        error_cntl_init   = 2
        error_cntl_link   = 3
        error_dp_create   = 4
        OTHERS            = 5.
    IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
ENDIF."go_alv_grid_0200 is initial
*------ Create instance for event handler -----------------------------*
DATA: go_event_handler_0200 TYPE REF TO lcl_event_handler.
CREATE OBJECT go_event_handler_0200.
*------ Register event handler ----------------------------------------*
SET HANDLER go_event_handler_0200->handle_toolbar_0200
    FOR go_alv_grid_0200.
SET HANDLER go_event_handler_0200->handle_user_command_0200
    FOR go_alv_grid_0200.
*------ Call ALV Grid -------------------------------------------------*
CALL METHOD go_alv_grid_0200->set_table_for_first_display
*     EXPORTING
*      I_BUFFER_ACTIVE               =
*      I_BYPASSING_BUFFER            =
*      I_CONSISTENCY_CHECK           =
*      I_STRUCTURE_NAME              =
*      IS_VARIANT                    =
*      I_SAVE                        =
*      I_DEFAULT                     = 'X'
*      IS_LAYOUT                     =
*      IS_PRINT                      =
*      IT_SPECIAL_GROUPS             =
*      IT_TOOLBAR_EXCLUDING          =
*      IT_HYPERLINK                  =
*      IT_ALV_GRAPHICS               =
*      IT_EXCEPT_QINFO               =
    CHANGING
      it_outtab                     = gt_bapi_input
      it_fieldcatalog               = gt_fieldcat
*      IT_SORT                       =
*      IT_FILTER                     =
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4.
IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*---- Call method 'set_toolbar_interactive' to raise event TOOLBAR.
CALL METHOD go_alv_grid_0200->set_toolbar_interactive.
CALL METHOD go_alv_grid_0200->refresh_table_display
* EXPORTING
*    IS_STABLE      =
*    I_SOFT_REFRESH =
    EXCEPTIONS
      finished       = 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.
CALL METHOD cl_gui_control=>set_focus
    EXPORTING
      control = go_alv_grid_0200.
ENDMODULE.                 " status_0200 OUTPUT
*&      Module user_command_0100 INPUT
*       text
MODULE user_command_0100 INPUT.
CASE gf_okcode.
    WHEN 'BACK' OR 'END' OR 'CANC'.
      PERFORM exit_program.
    WHEN OTHERS.
ENDCASE.
CLEAR gf_okcode.
ENDMODULE.                 " user_command_0100 INPUT
*&      Module user_command_0200 INPUT
*       text
MODULE user_command_0200 INPUT.
CASE gf_okcode.
    WHEN 'BACK' OR 'END' OR 'CANC'.
      PERFORM exit_program.
    WHEN OTHERS.
ENDCASE.
CLEAR gf_okcode.
ENDMODULE.                 " user_command_0200 INPUT
*&      Form build_fieldcatalog
*       text
*      <--P_GT_FIELDCAT text
FORM build_fieldcatalog_input
CHANGING
    pt_fieldcat TYPE lvc_t_fcat.
DATA ls_fcat TYPE lvc_s_fcat.
CLEAR pt_fieldcat.
ls_fcat-fieldname = 'FIRMA' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '20' .
ls_fcat-coltext = 'Firma' .
ls_fcat-seltext = 'Firma' .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'KOSTENSTELLE' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '20' .
ls_fcat-coltext = 'CO-Objekt' .
ls_fcat-seltext = 'CO-Objekt' .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'DATENART1' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '10' .
ls_fcat-coltext = 'Datenart1' .
ls_fcat-seltext = 'Datenart1' .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'PLANJAHR' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '10' .
ls_fcat-coltext = 'Planjahr' .
ls_fcat-seltext = 'Planjahr' .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'PLANPERIODE' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '5' .
ls_fcat-coltext = 'Planperiode' .
ls_fcat-seltext = 'Planperiode' .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'DATENART2' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '10' .
ls_fcat-coltext = 'Datenart2' .
ls_fcat-seltext = 'Datenart2' .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'PLANUNGSPOSITION' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '10' .
ls_fcat-coltext = 'Planungsposition' .
ls_fcat-seltext = 'Planungsposition' .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'KOSTENART' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '10' .
ls_fcat-coltext = 'Kostenart' .
ls_fcat-seltext = 'Kostenart' .
APPEND ls_fcat TO pt_fieldcat .
ls_fcat-fieldname = 'PLANBETRAG' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '20' .
ls_fcat-coltext = 'Planbetrag' .
ls_fcat-seltext = 'Planbetrag' .
APPEND ls_fcat TO pt_fieldcat .
ENDFORM.                    "build_fieldcatalog
*&      Form handle_toolbar_0100
*       text
*      -->P_E_OBJECT text
*      -->P_E_INTERACTIVE text
FORM handle_toolbar_0100
USING
    po_object TYPE REF TO cl_alv_event_toolbar_set.
DATA: ls_toolbar TYPE stb_button.
CLEAR ls_toolbar.
ls_toolbar-butn_type = 0.
ls_toolbar-function   = 'KONV'.
ls_toolbar-quickinfo = 'Konvertieren'.
ls_toolbar-text       = 'Konvertieren'.
ls_toolbar-disabled   = ' '.
APPEND ls_toolbar TO po_object->mt_toolbar.
ENDFORM.                    " handle_toolbar_0100
*&      Form handle_user_command_0100
*       text
*      -->P_E_UCOMM text
FORM handle_user_command_0100
USING
    pf_ucomm TYPE syucomm.
CASE pf_ucomm.
    WHEN 'KONV'.
      PERFORM convert_data.
ENDCASE.
ENDFORM.                    " handle_user_command_0100
*&      Form exit_program
*       text
* --> p1        text
* <-- p2        text
FORM exit_program.
CALL METHOD go_alv_grid_0100->free.
IF NOT go_alv_grid_0200 IS INITIAL.
    CALL METHOD go_alv_grid_0200->free.
ENDIF.
CALL METHOD go_docking_container->free.
CALL METHOD cl_gui_cfw=>flush.
IF sy-subrc NE 0.
* add your handling, for example
    CALL FUNCTION 'POPUP_TO_INFORM'
      EXPORTING
        titel = sy-repid
        txt2 = sy-subrc
        txt1 = 'Error in Flush'(500).
ENDIF.
LEAVE PROGRAM.
ENDFORM.                    " exit_program
*&      Form handle_toolbar_0200
*       text
*      -->P_E_OBJECT text
*      -->P_E_INTERACTIVE text
FORM handle_toolbar_0200
USING
    po_object TYPE REF TO cl_alv_event_toolbar_set.
DATA: ls_toolbar TYPE stb_button.
CLEAR ls_toolbar.
ls_toolbar-butn_type = 0.
ls_toolbar-function   = 'POST'.
ls_toolbar-quickinfo = 'Buchen'.
ls_toolbar-text       = 'Buchen'.
ls_toolbar-disabled   = ' '.
APPEND ls_toolbar TO po_object->mt_toolbar.
ENDFORM.                    " handle_toolbar_0200
*&      Form handle_user_command_0200
*       text
*      -->P_E_UCOMM text
FORM handle_user_command_0200
USING
    pf_ucomm TYPE syucomm.
CASE pf_ucomm.
    WHEN 'POST'.
      PERFORM post.
ENDCASE.
ENDFORM.                    " handle_user_command_0200
*&      Form convert_data
*       text
* --> p1        text
* <-- p2        text
FORM convert_data.
DATA: lf_perio(3) TYPE n.
LOOP AT gt_text_input INTO gs_text_input.
    TRANSLATE gs_text_input-planbetrag USING '. '.
    TRANSLATE gs_text_input-planbetrag USING ',.'.
    CONDENSE gs_text_input-planbetrag.
    gs_bapi_input-version   = gp_versn.
    gs_bapi_input-fisc_year = gp_gjahr.
    gs_bapi_input-coobject = gs_text_input-kostenstelle.
    gs_bapi_input-cost_elem = gs_text_input-kostenart.
    lf_perio = gs_text_input-planperiode.
    CASE lf_perio.
      WHEN '001'.
        gs_bapi_input-wkgbtr01 = gs_text_input-planbetrag.
      WHEN '002'.
        gs_bapi_input-wkgbtr02 = gs_text_input-planbetrag.
      WHEN '003'.
        gs_bapi_input-wkgbtr03 = gs_text_input-planbetrag.
      WHEN '004'.
        gs_bapi_input-wkgbtr04 = gs_text_input-planbetrag.
      WHEN '005'.
        gs_bapi_input-wkgbtr05 = gs_text_input-planbetrag.
      WHEN '006'.
        gs_bapi_input-wkgbtr06 = gs_text_input-planbetrag.
      WHEN '007'.
        gs_bapi_input-wkgbtr07 = gs_text_input-planbetrag.
      WHEN '008'.
        gs_bapi_input-wkgbtr08 = gs_text_input-planbetrag.
      WHEN '009'.
        gs_bapi_input-wkgbtr09 = gs_text_input-planbetrag.
      WHEN '010'.
        gs_bapi_input-wkgbtr10 = gs_text_input-planbetrag.
      WHEN '011'.
        gs_bapi_input-wkgbtr11 = gs_text_input-planbetrag.
      WHEN '012'.
        gs_bapi_input-wkgbtr12 = gs_text_input-planbetrag.
    ENDCASE.
    COLLECT gs_bapi_input INTO gt_bapi_input.
    CLEAR gs_bapi_input.
ENDLOOP. "at gt_text_input
CALL SCREEN 0200.
ENDFORM.                    " convert_data
*&      Form build_fieldcatalog_bapi_input
*       text
*      <--P_GT_FIELDCAT text
FORM build_fieldcatalog_bapi_input
CHANGING
    pt_fieldcat TYPE lvc_t_fcat.
DATA ls_fcat TYPE lvc_s_fcat.
CLEAR pt_fieldcat.
CLEAR ls_fcat.
ls_fcat-fieldname = 'VERSION' .
ls_fcat-ref_table = 'BAPIPLNHDR' .
APPEND ls_fcat TO pt_fieldcat .
CLEAR ls_fcat.
ls_fcat-fieldname = 'FISC_YEAR' .
ls_fcat-ref_table = 'BAPIPLNHDR' .
APPEND ls_fcat TO pt_fieldcat .
CLEAR ls_fcat.
ls_fcat-fieldname = 'COOBJECT' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '20' .
ls_fcat-coltext = 'CO-Objekt' .
ls_fcat-seltext = 'CO-Objekt' .
APPEND ls_fcat TO pt_fieldcat .
CLEAR ls_fcat.
ls_fcat-fieldname = 'COST_ELEM' .
ls_fcat-ref_table = 'BAPIPCPVAL' .
APPEND ls_fcat TO pt_fieldcat .
CLEAR ls_fcat.
ls_fcat-fieldname = 'WKGBTR01'.
ls_fcat-ref_table = 'COEP' .
ls_fcat-ref_field = 'WKGBTR'.
APPEND ls_fcat TO pt_fieldcat .
CLEAR ls_fcat.
ls_fcat-fieldname = 'WKGBTR02'.
ls_fcat-ref_table = 'COEP' .
ls_fcat-ref_field = 'WKGBTR'.
APPEND ls_fcat TO pt_fieldcat .
CLEAR ls_fcat.
ls_fcat-fieldname = 'WKGBTR03'.
ls_fcat-ref_table = 'COEP' .
ls_fcat-ref_field = 'WKGBTR'.
APPEND ls_fcat TO pt_fieldcat .
CLEAR ls_fcat.
ls_fcat-fieldname = 'WKGBTR04'.
ls_fcat-ref_table = 'COEP' .
ls_fcat-ref_field = 'WKGBTR'.
APPEND ls_fcat TO pt_fieldcat .
CLEAR ls_fcat.
ls_fcat-fieldname = 'WKGBTR05'.
ls_fcat-ref_table = 'COEP' .
ls_fcat-ref_field = 'WKGBTR'.
APPEND ls_fcat TO pt_fieldcat .
CLEAR ls_fcat.
ls_fcat-fieldname = 'WKGBTR06'.
ls_fcat-ref_table = 'COEP' .
ls_fcat-ref_field = 'WKGBTR'.
APPEND ls_fcat TO pt_fieldcat .
CLEAR ls_fcat.
ls_fcat-fieldname = 'WKGBTR07'.
ls_fcat-ref_table = 'COEP' .
ls_fcat-ref_field = 'WKGBTR'.
APPEND ls_fcat TO pt_fieldcat .
CLEAR ls_fcat.
ls_fcat-fieldname = 'WKGBTR08'.
ls_fcat-ref_table = 'COEP' .
ls_fcat-ref_field = 'WKGBTR'.
APPEND ls_fcat TO pt_fieldcat .
CLEAR ls_fcat.
ls_fcat-fieldname = 'WKGBTR09'.
ls_fcat-ref_table = 'COEP' .
ls_fcat-ref_field = 'WKGBTR'.
APPEND ls_fcat TO pt_fieldcat .
CLEAR ls_fcat.
ls_fcat-fieldname = 'WKGBTR10'.
ls_fcat-ref_table = 'COEP' .
ls_fcat-ref_field = 'WKGBTR'.
APPEND ls_fcat TO pt_fieldcat .
CLEAR ls_fcat.
ls_fcat-fieldname = 'WKGBTR11'.
ls_fcat-ref_table = 'COEP' .
ls_fcat-ref_field = 'WKGBTR'.
APPEND ls_fcat TO pt_fieldcat .
CLEAR ls_fcat.
ls_fcat-fieldname = 'WKGBTR12'.
ls_fcat-ref_table = 'COEP' .
ls_fcat-ref_field = 'WKGBTR'.
APPEND ls_fcat TO pt_fieldcat .
ENDFORM.                    " build_fieldcatalog_bapi_input
*&      Form post
*       text
* --> p1        text
* <-- p2        text
FORM post.
DATA:
    lf_index(6) TYPE n,
    lf_kostl    LIKE csks-kostl,
    lf_aufnr    LIKE aufk-aufnr,
    lf_kstar    LIKE cska-kstar.
DATA:
    lt_csks TYPE TABLE OF csks.
break c5085345.
* Header
gs_headerinfo-co_area       = gp_kokrs.
gs_headerinfo-fisc_year     = gp_gjahr.
gs_headerinfo-period_from   = '001'.
gs_headerinfo-period_to     = '012'.
gs_headerinfo-version       = gp_versn.
gs_headerinfo-plan_currtype = 'C'.
LOOP AT gt_bapi_input INTO gs_bapi_input.
*   Fill index structure
    CLEAR gs_indexstructure.
    lf_index = sy-tabix.
    gs_indexstructure-object_index = lf_index.
    gs_indexstructure-value_index = lf_index.
    gs_indexstructure-attrib_index = '000000'.
    INSERT gs_indexstructure INTO TABLE gt_indexstructure.
*   Fill coobject
    CLEAR gs_coobject.
    gs_coobject-object_index = lf_index.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input = gs_bapi_input-coobject
      IMPORTING
        output = lf_kostl.
    SELECT * FROM csks INTO TABLE lt_csks
      WHERE
        kokrs = gp_kokrs AND
        kostl = lf_kostl.
    IF sy-subrc = 0.
      gs_coobject-costcenter = lf_kostl.
    ELSE.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input = gs_bapi_input-coobject
        IMPORTING
          output = lf_aufnr.
      CALL FUNCTION 'K_ORDER_READ'
        EXPORTING
          aufnr     = lf_aufnr
        EXCEPTIONS
          not_found = 1.
      IF NOT sy-subrc = 0.
        gs_return-type = 'E'.
        gs_return-message+0(10) = 'CO-Objekt '.
        gs_return-message+10(10) = gs_bapi_input-coobject.
        gs_return-message+20(20) = ' existiert nicht.'.
        CONDENSE gs_return-message.
        PERFORM add_log_message_free_text
          USING
            gs_return-type
            gs_return-message.
        EXIT.
      ENDIF. "IF NOT sy-subrc = 0
      gs_coobject-orderid = lf_aufnr.
    ENDIF. "sy-subrc = 0
    INSERT gs_coobject INTO TABLE gt_coobject.
*   Period value
    gs_pervalue-value_index = lf_index.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input = gs_bapi_input-cost_elem
      IMPORTING
        output = lf_kstar.
    gs_pervalue-cost_elem = lf_kstar.
    gs_pervalue-fix_val_per01 = gs_bapi_input-wkgbtr01.
    gs_pervalue-fix_val_per02 = gs_bapi_input-wkgbtr02.
    gs_pervalue-fix_val_per03 = gs_bapi_input-wkgbtr03.
    gs_pervalue-fix_val_per04 = gs_bapi_input-wkgbtr04.
    gs_pervalue-fix_val_per05 = gs_bapi_input-wkgbtr05.
    gs_pervalue-fix_val_per06 = gs_bapi_input-wkgbtr06.
    gs_pervalue-fix_val_per07 = gs_bapi_input-wkgbtr07.
    gs_pervalue-fix_val_per08 = gs_bapi_input-wkgbtr08.
    gs_pervalue-fix_val_per09 = gs_bapi_input-wkgbtr09.
    gs_pervalue-fix_val_per10 = gs_bapi_input-wkgbtr10.
    gs_pervalue-fix_val_per11 = gs_bapi_input-wkgbtr11.
    gs_pervalue-fix_val_per12 = gs_bapi_input-wkgbtr12.
    INSERT gs_pervalue INTO TABLE gt_pervalue.
ENDLOOP. "at gt_bapi_input
* Buchungsbaustein
CALL FUNCTION 'BAPI_PRIM_COST_CHECK_AND_POST'
    EXPORTING
      header_info         = gs_headerinfo
      testrun             = gp_test
*   DELTA               = ' '
    TABLES
      idx_structure       = gt_indexstructure
      object              = gt_coobject
      per_value           = gt_pervalue
      tot_value           = gt_totvalue
      contrl              = gt_control
      return              = gt_return.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
*   EXPORTING
*     WAIT          =
*   IMPORTING
*     RETURN        =
LOOP AT gt_return INTO gs_return.
    gs_balsmsg-msgty = gs_return-type.
    gs_balsmsg-msgid = gs_return-id.
    gs_balsmsg-msgno = gs_return-number.
    gs_balsmsg-msgv1 = gs_return-message_v1.
    gs_balsmsg-msgv2 = gs_return-message_v2.
    gs_balsmsg-msgv3 = gs_return-message_v3.
    gs_balsmsg-msgv4 = gs_return-message_v4.
    PERFORM add_log_message
      USING
        gs_balsmsg.
ENDLOOP. "AT gt_return
PERFORM show_log.
ENDFORM.                    " post
*&      Form create_log
*       text
* --> p1        text
* <-- p2        text
FORM create_log .
DATA: ls_balslog TYPE bal_s_log.
* Einige Verwaltungsdaten
ls_balslog-extnumber = 'ZPLAN010'.
ls_balslog-aluser    = sy-uname.
ls_balslog-alprog    = sy-repid.
* Create
CALL FUNCTION 'BAL_LOG_CREATE'
    EXPORTING
      i_s_log                 = ls_balslog
*    IMPORTING
*      e_log_handle            = gf_balloghndl
    EXCEPTIONS
      log_header_inconsistent = 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.                    " create_log
*&      Form add_log_message
*       text
*      -->P_GS_BALSMSG text
FORM add_log_message
USING
    ps_balsmsg TYPE bal_s_msg.
break c5085345.
CALL FUNCTION 'BAL_LOG_MSG_ADD'
    EXPORTING
*       I_LOG_HANDLE              =
      i_s_msg                   = ps_balsmsg
*     IMPORTING
*       E_S_MSG_HANDLE            =
*       E_MSG_WAS_LOGGED          =
*       E_MSG_WAS_DISPLAYED       =
   EXCEPTIONS
     log_not_found             = 1
     msg_inconsistent          = 2
     log_is_full               = 3
     OTHERS                    = 4.
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.                    " add_log_messa
*&      Form add_log_message_free_text
*       text
*      -->P_GS_RETURN_TYPE text
*      -->P_GS_RETURN_MESSAGE text
FORM add_log_message_free_text
USING
    ps_type
    ps_message.
CALL FUNCTION 'BAL_LOG_MSG_ADD_FREE_TEXT'
    EXPORTING
*       I_LOG_HANDLE              =
      i_msgty                   = ps_type
*       I_PROBCLASS               = '4'
      i_text                    = ps_message
*       I_S_CONTEXT               =
*       I_S_PARAMS                =
*     IMPORTING
*       E_S_MSG_HANDLE            =
*       E_MSG_WAS_LOGGED          =
*       E_MSG_WAS_DISPLAYED       =
   EXCEPTIONS
     log_not_found             = 1
     msg_inconsistent          = 2
     log_is_full               = 3
     OTHERS                    = 4.
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.                    " add_log_message_free_text
*&      Form show_log
*       text
* --> p1        text
* <-- p2        text
FORM show_log .
DATA:
    l_s_display_profile TYPE bal_s_prof.
* get display profile
CALL FUNCTION 'BAL_DSP_PROFILE_NO_TREE_GET'
    IMPORTING
      e_s_display_profile = l_s_display_profile
    EXCEPTIONS
      OTHERS              = 1.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
* use grid for display if wanted
l_s_display_profile-use_grid = 'X'.
* set report to allow saving of variants
l_s_display_profile-disvariant-report = sy-repid.
* when you use also other ALV lists in your report,
* please specify a handle to distinguish between the display
* variants of these different lists, e.g:
l_s_display_profile-disvariant-handle = 'LOG'.
* call display function module
* We do not specify any filter (like I_S_LOG_FILTER, ...,
* I_T_MSG_HANDLE) since we want to display all logs available
CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'
    EXPORTING
      i_s_display_profile = l_s_display_profile
    EXCEPTIONS
      OTHERS              = 1.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

How to set variant for ALV grid from ABAP

Hello,
I have a program which displays some data with ALV grid. Then after some operation I would like to set different layout for the grid, but not by choosing it manually but by the program. I thought that it would be enough to use the method SET_VARIANT, so I'm setting DISVARIANT structure properly, using SET_VARIANT method and after that I'm calling REFRESH_TABLE_DISPLAY but layout is not changed. What else should I do? Is that possible?
Best regards,
Marcin

Hi,
Check this
* While declaring select-options
parameters: p_vari        like ltdx-variant. " Layout
* then add the following code in
at selection-screen on value-request for p_vari.
perform f_variant_f4 using p_vari.
* Code for f_variant_f4
form f_variant_f4 using p_vari.
* private variables
data : v_exit    type c.
clear gs_variantt.
v_variant_save = 'U'.
call function 'LVC_VARIANT_F4'
    exporting
      is_variant    = gs_variant
      i_save        = v_variant_save
    importing
      e_exit        = v_exit
      es_variant    = gs_variantt
    exceptions
      not_found     = 1
      program_error = 2
      others        = 3.
if sy-subrc ne c_0.
    message i999(yscc) with text-064.    " No Layout Available for F4
endif.
if v_exit is initial.
    gs_variant-variant = gs_variantt-variant.
    p_vari             = gs_variantt-variant.
endif.
endform.                                 " F_variant_f4
* In PBO
    call method grid1->set_table_for_first_display
      exporting
        is_layout                     = gs_layout
        is_variant                    = gs_variant
        i_save                        = 'A'
        it_toolbar_excluding          = i_exclude[]
      changing
        it_outtab                     = i_output[]
        it_fieldcatalog               = i_fieldcat[]
      exceptions
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        others                        = 4.
a®

Error while downloading ALV grid o/p list into local file

Hello friends,
   I have developed an ALV report and desplaying it using
'REUSE_ALV_GRID_DISPLAY, function module .While downloading the output list into excel format I am geeting an error "The current statement only supports character-type data objects.
Error Analysis-
In statement
   "STRLEN( obj )..."
the argument "obj" can only take a character-type data object.
In this case, the operand "obj" has the non-character type "P".
I have set the import parameter i_save values as 'A'
But still not able to download and facing the same error.
Please help me out ....
Thanking you....
Regards,
Rajesh Akarte
Message was edited by:
        Rajesh Akarte

Hi,
following is the dump code..Is there any problem due to date and currency fields..?
Error in ABAP application program.
The current ABAP program "SAPLKKBL " had to be terminated because one of the
statements could not be executed.
038350       endif.
038360       gs_out-hlplen = strlen( gs_out-hlpchar ).
038370     elseif gs_fc-tech_form = 11.                              "INS TECH
038380   *   Min. Ausgabelänge für ein Datum ist immer 8
038390       if gs_fc-datatype = 'DATS'.                             "INS TECH
038400         gs_out-hlplen = 8.                                    "INS TECH
038410   *    Min. Ausgabelänge für eine Uhrzeit ist immer 6
038420       elseif gs_fc-datatype = 'TIMS'.                         "INS TECH
038430         gs_out-hlplen = 6.                                    "INS TECH
038440       endif.                                                  "INS TECH
038450     elseif gs_fc-tech_form = 1 or gs_fc-tech_form = 90.
038460   *   Überführung int. in ext. Format via Konvertierungsexit
038470       if not gs_fc-convexit is initial or                     "INS TECH
038480          not gs_fc-inttype ca 'CN'.
038490   *   elseif not gs_fc-convexit is initial.            "DEL TECH11
038500         write Y9CK034230

ALV GRID-Abap Objects

I am using ALV grid in ABAP objects. I have to sort ascending and descending. I saw the program BCALV_TEST_GRID. I copied the function code for ascending and descending from the program. But it is not working. what is the problem?

You need to fill up the table
it_sort = gt_sort
in the method
call method gr_grid_d0100->set_table_for_first_display
a®

ALV-Grid list box in Cell Event when a value is selected

Hello to all,
I've got a editable alv grid with a list box in one cell.
Is there any event fired after user selection in order to update other cells?
A workaround may be to use event "data_changed" but I think this isn't a smart way.
Any ideas?
Best regards
Christian

Hi Christian,
I think data_changed is right one here, as this one has is recording couple "states":
METHODS: handle_data_changed FOR EVENT data_changed OF cl_gui_alv_grid
                              IMPORTING er_data_changed e_onf4 e_onf4_before e_onf4_after,
"these are fired up in different "state" of control during selection itself
"e_onF4
"e_onf4_before
"e_onf4_after
You can. however, try with handle_on_f4 . This works fine for input help, I didn't test it for listbox but should work as well. First you need to register this event with:
DATA: lt_fields_f4 TYPE lvc_t_f4,
        ls_fields_f4 TYPE lvc_s_f4.
"activate event F4 only for particular fields
ls_fields_f4-fieldname = 'SEATSMAX_F'.
ls_fields_f4-register = 'X'.
ls_fields_f4-getbefore = 'X'.
ls_fields_f4-chngeafter = 'X'.
APPEND ls_fields_f4 TO lt_fields_f4.
CALL METHOD g_alv_grid_ref->register_f4_for_fields
    EXPORTING
      it_f4 = lt_fields_f4[].
...and then just method handler
METHODS: handle_on_f4 FOR EVENT onf4 OF cl_gui_alv_grid
                           IMPORTING e_fieldname e_fieldvalue er_event_data,
SET HANDLER ...
Regards
Marcin

DropDown List in ALV Grid

Hii,
I am showing one of my Column Cells of ALV grid as DropDown List.
I have developed this Code for that.
DATA : ls_drpdwn TYPE lvc_s_drop,
         lwa_holders LIKE LINE OF gt_holders,
        gt_drpdwn1 TYPE lvc_t_drop.
FIELD-SYMBOLS : <lwa_fcat> TYPE lvc_s_fcat.
LOOP AT lt_fcat ASSIGNING <lwa_fcat>.
IF <lwa_fcat>-fieldname EQ 'SHNAME'.
    <lwa_fcat>-edit = 'X'.
    <lwa_fcat>-drdn_hndl = 1.
ENDIF.
ENDLOOP.
LOOP AT gt_holders INTO lwa_holders.
    ls_drpdwn-handle = 1.
    ls_drpdwn-value = lwa_holders-shname.
    APPEND ls_drpdwn TO gt_drpdwn1.
     CALL METHOD ref_grid->set_drop_down_table
    EXPORTING
      it_drop_down = gt_drpdwn1.
My Issue is How can I make my column's SHNAME cells to show Different Share Name List for different Holder's Id i.e Cell's should display dynamic List for Different Primary Keys.
Thanks and Regards,
Dhiraj B.

Hi Dhiraj,
Check this report which does exactly to your requirement : BCALV_EDIT_07.
Thanks & Regards,
Faheem.

Require some tutorials to use ALV grids to access database

I am new to ALV grids
I want step by step method to use ALV grids in ABAP reports to access database.

Hi,
pls go throgugh this link.
http://www.erpgenie.com/abap/controls/alvgrid.htm
sample program
Sample programs on ALV Grid
report zbnstest.
TABLES AND DATA DECLARATION.
*TABLES: mara,makt.",marc.
data syrepid like sy-repid.
data sydatum(10). " LIKE sy-datum.
data sypagno(3) type n.
WHEN USING MORE THAN ONE TABLE IN ALV WE NEEED TO DECLARE THE TYPE
GROUP (TYPE-POOLS--------->SLIS)
type-pools : slis.
INTERNAL TABLE DECLARATION.
INTERNAL TABLE TO HOLD THE VALUES FROM THE MARA TABLE
data: begin of t_mara occurs 0,
matnr like mara-matnr,
meins like mara-meins,
mtart like mara-mtart,
matkl like mara-matkl,
end of t_mara.
INTERNAL TABLE TO HOLD THE CONTENTS FROM THE EKKO TABLE
data : begin of t_marc occurs 0,
matnr like mara-matnr,
werks like marc-werks,
minbe like marc-minbe.
data: end of t_marc.
INTERNAL TABLE TO HOLD THE VALUES FROM MAKT TABLE.
data : begin of t_makt occurs 0,
matnr like mara-matnr,
maktx like makt-maktx,
spras like makt-spras,
end of t_makt.
INTERNAL TABLE WHICH ACTUALLY MERGES ALL THE OTHER INTERNAL TABLES.
data: begin of itab1 occurs 0,
matnr like mara-matnr,
meins like mara-meins,
maktx like makt-maktx,
spras like makt-spras,
werks like marc-werks,
minbe like marc-minbe,
end of itab1.
THE FOLLOWING DECLARATION IS USED FOR DEFINING THE FIELDCAT
AND THE LAYOUT FOR THE ALV.
HERE AS slis_t_fieldcat_alv IS A INTERNAL TABLE WITHOUT A HEADER LINE
WE EXPLICITELY DEFINE AN INTERNAL TABLE OF THE SAME STRUCTURE AS THAT
OF slis_t_fieldcat_alv BUT WITH A HEADER LINE IN THE DEFINITION.
THIS IS DONE TO MAKE THE CODE SIMPLER.
OTHERWISE WE MAY HAVE TO DEFINE THE STRUCTURE AS IN THE NORMAL SAP
PROGRAMS.
IN THE FIELDCATALOG TABLE WE ACTUALLY PASS THE FIELDS FROM ONE OR
MORE TABLES AND CREATE A STRUCTURE
IN THE LAYOUT STRUCTURE WE BASICALLY DEFINE THE FORMATTING OPTIONS
LIKE DISPLAY IN THE ZEBRA PATTERN ,THE HOTSPOT OPTIONS ETC.
data: fieldcatalog type slis_t_fieldcat_alv with header line,
fieldlayout type slis_layout_alv.
DECLARING THE EVENTTABLE INTERNL TABLE FOR USING EVENTS LIKE
TOP-OF-PAGE ETC.
data : eventstab type slis_t_event with header line.
DECLARING AN INTERNAL TABLE TO HOLD THE DATA FOR THE TOP-OF-PAGE
data : heading type slis_t_listheader with header line.
data : heading1 type slis_t_listheader with header line.
data : heading2 type slis_t_listheader with header line.
data : heading3 type slis_t_listheader with header line.
data : heading4 type slis_t_listheader with header line.
data : heading5 type slis_t_listheader with header line.
data : heading6 type slis_t_listheader with header line.
data : heading7 type slis_t_listheader with header line.
data : heading8 type slis_t_listheader with header line.
STRUCTURE TO PASS THE COLOR ATTRIBUTES FOR DISPLAY.
data : colorstruct type slis_coltypes.
INITIALIZATION. *
initialization.
syrepid = sy-repid.
sypagno = sy-pagno.
clear fieldcatalog.
START-OF-SELECTION. *
start-of-selection.
SUBROUTINE TO POPULATE THE COLORSTRUCT
perform fill_colorstruct using colorstruct.
SUBROUTINE TO POPULATE THE FIELDS OF THE FIELD CATALOGUE
perform populate_fieldcatalog.
SUBROUTINE TO SELECT DATA FROM VARIOUS TABLES AND POPULATE IT IN THE
INTERNAL TABLE.
perform selectdata_and_sort.
SUBROUTINE TO POPULATE THE LAYOUT STRUCTURE.
perform populate_layout using fieldlayout.
SUBROUTINE TO CALL THE FUNCTION MERGE TO ENSURE PROPER DISPLAY.
perform merge_fieldcatalog.
SUBROUTINE TO POPULATE THE EVENTSTAB.
perform fill_eventstab tables eventstab.
SUBROUTINE TO POPULATE THE HEADING TABLES.
perform fill_headingtable tables heading using 'HEADING'.
perform fill_headingtable tables heading1 using 'HEADING1'.
perform fill_headingtable tables heading2 using 'HEADING2'.
perform fill_headingtable tables heading3 using 'HEADING3'.
perform fill_headingtable tables heading4 using 'HEADING4'.
perform fill_headingtable tables heading5 using 'HEADING5'.
perform fill_headingtable tables heading6 using 'HEADING6'.
perform fill_headingtable tables heading7 using 'HEADING7'.
perform fill_headingtable tables heading8 using 'HEADING8'.
SUBROUTINE TO DISPLAY THE LIST.
perform display_alv_list.
FORMS
IN THIS SUBROUTINE WE POPULATE THE FIELDCATALOG TABLE WITH THE NAMES
OF THE TABLE,FIELDNAME,WHETHER IT IS KEY FIELD OR NOT,HEADING AND
COLUMN JUSTIFICATION.
form populate_fieldcatalog.
perform fill_fields_of_fieldcatalog tables fieldcatalog
using 'ITAB1' 'MATNR' 'X' .
perform fill_fields_of_fieldcatalog tables fieldcatalog
using 'ITAB1' 'MEINS' ' '.
perform fill_fields_of_fieldcatalog tables fieldcatalog
using 'ITAB1' 'MAKTX' ' ' .
perform fill_fields_of_fieldcatalog tables fieldcatalog
using 'ITAB1' 'MTART' ' ' .
perform fill_fields_of_fieldcatalog tables fieldcatalog
using 'ITAB1' 'MATKL' ' ' .
perform fill_fields_of_fieldcatalog tables fieldcatalog
using 'ITAB1' 'SPRAS' ' ' .
perform fill_fields_of_fieldcatalog tables fieldcatalog
using 'ITAB1' 'WERKS' ' ' .
perform fill_fields_of_fieldcatalog tables fieldcatalog
using 'ITAB1' 'MINBE' ' ' .
endform. " POPULATE_FIELDCATALOG
FORM FILL_FIELDS_OF_FIELDCATALOG *
--> FIELDCATALOG *
--> P_TABNAME *
--> P_FIELDNAME *
--> P_KEY *
--> P_KEY *
form fill_fields_of_fieldcatalog tables fieldcatalog
structure fieldcatalog
using p_tabname
p_fieldname
p_key.
p_no_out.
fieldcatalog-tabname = p_tabname.
fieldcatalog-fieldname = p_fieldname.
fieldcatalog-key = p_key.
fieldcatalog-emphasize = '1234'.
*fieldcatalog-no_out = p_no_out.
append fieldcatalog.
endform. " FILL_FIELDSOFFIELDCATALOG
FORM POPULATE_LAYOUT *
--> FIELDLAYOUT *
form populate_layout using fieldlayout type slis_layout_alv.
fieldlayout-f2code = '&ETA' .
fieldlayout-zebra = 'X'.
FOR THE WINDOW TITLE.
fieldlayout-window_titlebar = 'ALV with Events'.
fieldlayout-colwidth_optimize = 'X'.
fieldlayout-no_vline = ' '.
*fieldlayout-no_input = 'X'.
fieldlayout-confirmation_prompt = ''.
fieldlayout-key_hotspot = 'X'.
This removes the column headings if the flag is set to 'X'
fieldlayout-no_colhead = ' '.
*fieldlayout-hotspot_fieldname = 'MAKTX'.
fieldlayout-detail_popup = 'X'.
fieldlayout-coltab_fieldname = 'X'.
endform. " POPULATE_LAYOUT
FORM SELECTDATA_AND_SORT *
form selectdata_and_sort.
select matnr meins mtart matkl from mara
into corresponding fields of t_mara
up to 500 rows .
select matnr maktx spras from makt
into corresponding fields of t_makt
where matnr = t_mara-matnr and
spras = sy-langu.
select matnr werks minbe from marc
into corresponding fields of t_marc
where matnr = t_mara-matnr.
append t_marc.
endselect.
append t_makt.
endselect.
append t_mara.
endselect.
perform populate_itab1.
sort itab1 by matnr.
endform. " SELECTDATA_AND_SORT
FORM MERGE_FIELDCATALOG *
form merge_fieldcatalog.
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
exporting
i_program_name = syrepid
i_internal_tabname = 'ITAB1'
i_structure_name = 'COLORSTRUCT'
I_CLIENT_NEVER_DISPLAY = 'X'
i_inclname = syrepid
changing
ct_fieldcat = fieldcatalog[]
exceptions
inconsistent_interface = 1
program_error = 2
others = 3.
endform. " MERGE_FIELDCATALOG
IN THIS FUNCTION THE MINIMUM PARAMETERS THAT WE NEED TO PASS IS AS
FOLLOWS:-
i_callback_program --> CALLING PROGRAM NAME
i_structure_name --> STRUCTURE NAME.
is_layout --> LAYOUT NAME.
it_fieldcat ---> BODY OF THE FIELD CATALOGUE INTERNAL TABLE
form display_alv_list.
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
I_INTERFACE_CHECK = ' '
i_callback_program = syrepid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
i_structure_name = 'ITAB1'
is_layout = fieldlayout
it_fieldcat = fieldcatalog[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
THE FOLLOWING PARAMETER IS SET AS 'A' INORDER TO DISPLAY THE STANDARD
TOOL BAR
i_save = 'A'
IS_VARIANT = ' '
it_events = eventstab[]
IT_EVENT_EXIT =
IS_PRINT =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
tables
t_outtab = itab1
exceptions
program_error = 1
others = 2.
endform. " DISPLAY_ALV_LIST
*& Form POPULATE_ITAB1
text
--> p1 text
<-- p2 text
form populate_itab1.
loop at t_mara.
loop at t_makt where matnr = t_mara-matnr.
loop at t_marc where matnr = t_mara-matnr.
move-corresponding t_mara to itab1.
move-corresponding t_makt to itab1.
move-corresponding t_marc to itab1.
append itab1.
endloop.
endloop.
endloop.
endform. " POPULATE_ITAB1
*& Form FILL_EVENTSTAB
text
-->P_EVENTSTAB text *
form fill_eventstab tables p_eventstab structure eventstab.
WHEN THE FOLLOWING FUNCTION IS CALLED THE SYSTEM POPULATES THE
INTERNAL TABLE EVENTSTAB WITH A LIST OF EVENTS NAME.
AS SHOWN BELOW WHEN USING I_LIST_TYPE = 0 THE FUNCTION RETURNS 14
EVENTS NAME.
call function 'REUSE_ALV_EVENTS_GET'
exporting
i_list_type = 0
importing
et_events = p_eventstab[]
exceptions
list_type_wrong = 1
others = 2.
BY CALLING THE ABOVE FUNCTION WE FIRST POPULATE THE EVENTSTAB WITH
THE PREDEFINED EVENTS AND THEN WE MOVE THE FORM NAME AS SHOWN BELOW.
WE ASSIGN A FORM NAME TO THE EVENT AS REQUIRED BY THE USER.
FORM NAME CAN BE ANYTHING.THE PERFORM STATEMENT FOR THIS FORM
IS DYNAMICALY CALLED.
read table p_eventstab with key name = slis_ev_top_of_page.
if sy-subrc = 0 .
move 'TOP_OF_PAGE' to p_eventstab-form.
append p_eventstab.
endif.
read table p_eventstab with key name = slis_ev_top_of_coverpage.
if sy-subrc = 0 .
move 'TOP_OF_COVERPAGE' to p_eventstab-form.
append p_eventstab.
endif.
read table p_eventstab with key name = slis_ev_end_of_coverpage .
if sy-subrc = 0 .
move 'END_OF_COVERPAGE' to p_eventstab-form.
append p_eventstab.
endif.
read table p_eventstab with key name = slis_ev_foreign_top_of_page.
if sy-subrc = 0 .
move 'FOREIGN_TOP_OF_PAGE' to p_eventstab-form.
append p_eventstab.
endif.
read table p_eventstab with key name = slis_ev_foreign_end_of_page.
if sy-subrc = 0 .
move 'FOREIGN_END_OF_PAGE' to p_eventstab-form.
append p_eventstab.
endif.
read table p_eventstab with key name = slis_ev_list_modify.
if sy-subrc = 0 .
move 'LIST_MODIFY' to p_eventstab-form.
append p_eventstab.
endif.
read table p_eventstab with key name = slis_ev_top_of_list.
if sy-subrc = 0 .
move 'TOP_OF_LIST' to p_eventstab-form.
append p_eventstab.
endif.
read table p_eventstab with key name = slis_ev_end_of_page.
if sy-subrc = 0 .
move 'END_OF_PAGE' to p_eventstab-form.
append p_eventstab.
endif.
read table p_eventstab with key name = slis_ev_end_of_list .
if sy-subrc = 0 .
move 'END_OF_LIST' to p_eventstab-form.
append p_eventstab.
endif.
endform. " FILL_EVENTSTAB
*& Form FILL_HEADINGTABLE
text
-->P_HEADING text *
form fill_headingtable tables p_heading structure heading
using tablename.
case tablename.
when 'HEADING'.
p_heading-typ = 'H'.
concatenate
' REPORT NAME:-' syrepid
' ABB Industry Pte Ltd' into p_heading-info.
append p_heading.
write sy-datum using edit mask '__/__/____' to sydatum.
concatenate
' DATE:-' sydatum ' USER: ' sy-uname 'PAGE NO:' sypagno
into p_heading-info.
append p_heading.
when 'HEADING1'.
p_heading-typ = 'H'.
p_heading-info = 'TOP-OF-COVER-PAGE'.
append p_heading.
when 'HEADING2'.
p_heading-typ = 'H'.
p_heading-info = 'END-OF-COVER-PAGE'.
append p_heading.
when 'HEADING3'.
p_heading-typ = 'H'.
p_heading-info = 'FOREIGN-TOP-OF-PAGE'.
append p_heading.
when 'HEADING4'.
p_heading-typ = 'H'.
p_heading-info = 'FOREIGN-END-OF-PAGE'.
append p_heading.
WHEN 'HEADING5'.
P_HEADING-TYP = 'H'.
P_HEADING-INFO = 'LIST-MODIFY'.
APPEND P_HEADING.
when 'HEADING6'.
p_heading-typ = 'H'.
p_heading-info = 'END-OF-PAGE'.
append p_heading.
when 'HEADING7'.
p_heading-typ = 'H'.
p_heading-info = 'END-OF-LIST'.
append p_heading.
when 'HEADING8'.
p_heading-typ = 'H'.
p_heading-info = 'TOP-OF-LIST'.
append p_heading.
endcase.
endform. " FILL_HEADINGTABLE
FORM TOP_OF_PAGE *
form top_of_page.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = heading[]
exceptions
others = 1.
endform.
*& Form FILL_COLORSTRUCT
text
-->P_COLORSTRUCT text *
form fill_colorstruct using p_colorstruct type slis_coltypes .
p_colorstruct-heacolfir-col = 6.
p_colorstruct-heacolfir-int = 1.
p_colorstruct-heacolfir-inv = 1.
endform. " FILL_COLORSTRUCT
FORM TOP_OF_COVERPAGE *
form top_of_coverpage.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = heading1[]
exceptions
others = 1.
endform.
FORM END_OF_COVERPAGE *
form end_of_coverpage.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = heading2[]
exceptions
others = 1.
endform.
FORM FOREIGN_TOP_OF_PAGE *
form foreign_top_of_page.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = heading3[]
exceptions
others = 1.
endform.
FORM FOREIGN_END_OF_PAGE *
form foreign_end_of_page.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = heading4[]
exceptions
others = 1.
endform.
FORM LIST_MODIFY *
*FORM LIST_MODIFY.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = HEADING5[]
EXCEPTIONS
OTHERS = 1.
*ENDFORM.
FORM END_OF_PAGE *
form end_of_page.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = heading6[]
exceptions
others = 1.
endform.
FORM END_OF_LIST *
form end_of_list.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = heading7[]
exceptions
others = 1.
endform.
FORM TOP_OF_LIST *
form top_of_list.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = heading8[]
exceptions
others = 1.
endform.
*--- End of Program
Thanks,
Shankar

Simple tutorial for using alv-grid for data entry into table, please!

Hi friends,
I urgently need a basic, simple tutorial or step-by-step or sample code on the following:
I want to have a alv-grid like entry list where i can add/remove additional lines/entries that then are saved into an internal table. Please help me with that, as i studied already some documents but do not really get the idea of how to do - <REMOVED BY MODERATOR>
Thanks in advance,
Edited by: Alvaro Tejada Galindo on Jan 11, 2008 6:18 PM

hi clemens,
follow this link it may be useful to u
http://www.sap-basis-abap.com/sapab033.htm
http://www.abapprogramming.blogspot.com/2007/04/alv-details.html
for tutorial on alv:
http://www.sapbrainsonline.com/TUTORIALS/TECHNICAL/ALV_tutorial.html
i have pdf material also ican give it to you if u give your email id.
hope this helps you
regards,
sravanthi

Faxing an ALV Grid

Hi experts,
I need to run one of my zprograms as a batch job (ie in background) and have it fax the report - which is an ALV grid - to a list of fax numbers. I can do this in foreground using standard ALV Grid function button 'Mail Recipient' so I debugged and found function module SO_DYNP_OBJECT_SEND but I don't think I can use this. I have set up email functionality using SO_NEW_DOCUMENT_ATT_SEND_API1 and I know I can use this for faxing a "written" report but can I use it for an ALV Grid?
Could anybody please steer me in the right direction of which function module to use and how to populate the parameters?
Thanks
Brigitte

Hi Buddy ! clue for you -
1 .Firstly run the report & take list in memory (Submit <reportname>) using selection-set <variant> exporting list to memory and return
2. Then Import the list from memory & store in table (FM: List_From_Memory)
3. FM: List_To_Txt (result in listtxt)
4. Compress data (FM:Table_Compress)
5. itab_output <= listtxt
6. itab_packing-objtp = TXT
    itab_packing-file_ext = TXT
    itab_packing-transf_bin = 'X'
    "wihtout header
     itab_packing-head_start = 1.
     itab_packing-head_num = 0.
     "Mail Contents
    itab_packing-body_start = 1.
    itab_packing-body_num = No. of lines in report
    itab_packing-objdes = subject
    itab_packing-objlen = lines * 255.
7. FM : SO_OBJECT_SEND
      exporting
            object_hd_change = E ABAP Reports <subject>
            object_type      = obj_typ
            OUTBOX_FLAG   = 'X'
            originator       = <sy-uname>
            originator_type = U
       importing
            sent_to_all      =
       tables
            objcont          = <mail content>
            receivers        = itab_recievers
            packing_list     = itab_packing
            att_cont         = itab_output
Commit Work
OR one worth link you can also surf :
http://www.sap-img.com/abap/sending-mail-with-attachment-report-in-background.htm
Warm Regards,
N. Singh

Can information system(MC.9) be possible to display in ALV grid?

Hello experts.
Is it possible to display MC.9 in ALV grid without ABAP programing?
For example I hope to use user parameter or SPRO setting.
Regards

No.
SAP strategy is to use business warehouse system, dont expect any deveoplement on these old info system programs

How to call a function zin_spell_amount in alv grid?

Plese help expertise
I want to call a ZIN _SPELL AMOUNT in alv GRID OR IN LIST what is the procedure to call the function or any other function will be there for passing the amount in words.

hi sudarshan,
chk this sample.
data: words(50) type c.
call function 'HR_IN_CHG_INR_WRDS'
     exporting
          amt_in_num   = '1000'
     importing
          amt_in_words = words.
now store this 'words' in an internal table field,
and pass it to the ALV GRID.
u can use the FM - > spell_amount for the above purpose.
hope this will solve ur issue.
rgds
anver
if helped mark points

ALV grid to ABAP list

Similar Messages

Maybe you are looking for