When "BACK"

Question

Hi Folks,
The following report is working perfectly except that when clicking on BACK button on the toolbar it is not coming to selection-screen but leaving to Easy Access Screen.Kindly let me know.
REPORT  zdr   LINE-SIZE 1023 LINE-COUNT 58(3)
MESSAGE-ID z_ma NO STANDARD PAGE HEADING      .
TABLES : vbrk, " Billing Document: Header Data
         vbrp, " Billing Document: Item Data
         konv, " Conditions (Transaction Data)
         vbak, " Sales Document: Header Data
         usr21, " Assign user name address key
         adcp,  " Person/Address Assignment
         tvv2t,
         m_vmcfa,
         m_vmcra,
         kna1,
         tvfkt,
         vmcfao,
         adrc.
Includes
INCLUDE rvreuse_global_data.
INCLUDE rvreuse_local_data.
INCLUDE rvreuse_forms.
Type-Pools
TYPE-POOLS slis.
TYPES: BEGIN OF ty_temp,
        fidoc TYPE bkpf-belnr,              "FIDOC No
        awkey TYPE bkpf-belnr,              "Reference Key
        gjahr TYPE bkpf-gjahr,              "Fiscal Year
        budat TYPE bkpf-budat,              "Posting Date
        belnr TYPE rbkp-belnr,              "Doc No
        blart TYPE bkpf-blart,              "Document Type
        vbeln TYPE bkpf-xblnr,              "Billing Doc No
        xblnr TYPE bkpf-xblnr,
       END OF ty_temp.
TYPES: BEGIN OF ty_konv,
          knumv TYPE konv-knumv,
          kposn TYPE konv-kposn,
          kschl TYPE konv-kschl,
          kwert TYPE konv-kwert,
          kbetr TYPE konv-kbetr,
          kwert1 type konv-kwert,
       END OF ty_konv.
TYPES: BEGIN OF ty_objk,
          equnr TYPE objk-equnr,
          sernr TYPE objk-sernr,
          taser TYPE objk-taser,
       END OF ty_objk.
*& Includes                                                            *
INCLUDE <icon>.
Data Declaration
For ALV Display
DATA : gs_variant TYPE disvariant.
DATA : gs_layout TYPE lvc_s_layo.
DATA : gs_print  TYPE lvc_s_prnt.
DATA : c_stk TYPE scrfname VALUE 'CUSTOM'.
DATA:  c_stk3 TYPE scrfname VALUE 'TEST'.
DATA : custom_container TYPE REF TO cl_gui_custom_container.
DATA: custom_container3 TYPE REF TO cl_gui_custom_container.
CLASS: lcl_event_receiver DEFINITION DEFERRED.
DATA : grid1  TYPE REF TO cl_gui_alv_grid.
DATA:  grid3 TYPE REF TO cl_gui_alv_grid.
DATA : event_receiver TYPE REF TO lcl_event_receiver.
DATA : ok_code TYPE sy-ucomm.
DATA : it_fieldcatalog TYPE lvc_t_fcat.
DATA : wafieldcatlog TYPE LINE OF lvc_t_fcat.
DATA : lt_rows TYPE lvc_t_row.
DATA : wa_rows TYPE LINE OF lvc_t_row.
DATA: it_fieldcatalog1 TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      wafieldcatlog1 TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gd_layout TYPE slis_layout_alv,
      gd_prntparams TYPE slis_print_alv,
      gd_repid LIKE sy-repid.
Internal tables and work areas for ALV ouput display
DATA: is_layout        TYPE slis_layout_alv,
      i_events         TYPE slis_t_event,
      events           TYPE slis_alv_event,
      alv_top_of_page  TYPE slis_t_listheader,
      gs_line          TYPE slis_listheader,
      alv_events       TYPE slis_t_event,
      alv_variant      TYPE disvariant,
      alv_title        TYPE lvc_title,
      alv_sort         TYPE slis_t_sortinfo_alv,
      csort            TYPE slis_sortinfo_alv,
      alv_print        TYPE slis_print_alv.
Internal Table
DATA: it_objk TYPE ty_objk OCCURS 0 WITH HEADER LINE.
DATA: itab_temp TYPE ty_temp OCCURS 0 WITH HEADER LINE.
DATA: itab_konv TYPE ty_konv OCCURS 0 WITH HEADER LINE.
DATA: gt_vmcfa LIKE vmcfao OCCURS 50 WITH HEADER LINE.
*>>>
DATA : adrnr1 LIKE t001w-adrnr.
DATA: plant_name1 LIKE adrc-name1.
DATA: plant_name2 TYPE adrc-name2.
DATA: plant_name(136).
DATA: comp_name1 LIKE adrc-name1.
DATA: comp_name2 TYPE adrc-name2.
DATA: comp_name(136).
*<<<
DATA: BEGIN OF name_dazu OCCURS 10,
        kunnr LIKE kna1-kunnr     ,
        name1 LIKE kna1-name1     ,
        ort01 LIKE kna1-ort01     ,
      END   OF name_dazu.
DATA: BEGIN OF fkart_dazu OCCURS 10,
        fkart LIKE tvfkt-fkart     ,
        vtext LIKE tvfkt-vtext     ,
      END   OF fkart_dazu.
DATA: BEGIN OF hsave,
      vbeln LIKE vbuv-vbeln,
      tabix LIKE sy-tabix  ,
      text(40)             .
DATA: END   OF hsave.
DATA: BEGIN OF it_vbrk_vbrp OCCURS 0,
        vbeln TYPE vbrk-vbeln,  " Invoice Number
        posnr TYPE vbrp-posnr,  " Item number
        erdat TYPE vbrk-erdat,  " Billing Date
        fkart TYPE vbrk-fkart,  " Billing Type
        vtext TYPE tvfkt-vtext,  " Billing type Desc
        knumv TYPE vbrk-knumv,  " Number of the document condition
        netwr TYPE vbrk-netwr,  " Net value in document currency
        fkdat TYPE vbrk-fkdat,  " Invoice Date
        typbz TYPE equi-typbz,  " Model
        serge TYPE equi-serge,  " Serial No Ref
        fkimg TYPE vbrp-fkimg,  " Invoce Quantity
        kzwi1 TYPE vbrp-kzwi1,  " Base Price
        kzwi2 TYPE vbrp-kzwi2,  " Packing
        kzwi4 TYPE vbrp-kzwi4,  " Freight and Insurance
        jex2  TYPE konv-kwert,  " Exice duty
        jces  TYPE konv-kwert,  " Cess
        jecx  TYPE konv-kwert,  " Education Cess
        jin1  TYPE konv-kwert,  " CST
        jin1_per TYPE konv-kbetr, " %CST
        jin2  TYPE konv-kwert,  " LST
        jin2_per TYPE konv-kbetr, " %LST
        jin5  TYPE konv-kwert,  " Surcharge on LST
        jin5_per TYPE konv-kbetr, " %Surcharge on LST
        turn  TYPE konv-kwert,  " Turn Over
        turn_lst TYPE konv-kwert, " LST turn over
        turn_cst TYPE konv-kwert, " CST turn over
        total TYPE konv-kwert,  " Total
        zadv TYPE konv-kwert,   " Advance Recieved
        net  TYPE konv-kwert,   " Net Payable
        zcod TYPE konv-kwert,   " Dealer Fee
        zdbk TYPE konv-kwert,   " Deamed Benifit
        zopt TYPE konv-kwert,   " Optional Value
        zfoc TYPE konv-kwert,   " FOC Coupon Value
        zfcf TYPE konv-kwert,   " FOC Filter
        netreal TYPE konv-kwert, " Net Realisation
        vgbel TYPE vbrp-vgbel,  " Delivery Number
        kunag TYPE vbrk-kunag,  " Sold-to party
        name1 TYPE kna1-name1,                              " Name1
        name2 TYPE kna1-name1,  " Ship to name
        name3 TYPE kna1-name2,  " Ship to name 2nd column
        mwsbk TYPE vbrk-mwsbk,  " Tax amount in document currency
        werks TYPE vbrp-werks,  " Plant
        regio TYPE vbrk-regio,  " Region (State, Province, County)
        bezei TYPE t005u-bezei, " Region Description
        wkreg TYPE vbrp-wkreg,  " Region in which plant is located
        fksto TYPE vbrk-fksto,  " Billing document is cancelled
        bstkd TYPE vbkd-bstkd,  " Customer purchase order number
        bstdk TYPE vbkd-bstdk,  " Customer purchase order date
        exnum TYPE j_1iexcdtl-exnum, " Excise Doc Number
        matnr TYPE vbrp-matnr,   " Material number
        arktx TYPE vbrp-arktx,   " Material Desc
        mvgr5 TYPE vbap-mvgr5,   " PWC code
        bezei5 TYPE tvm5t-bezei, " PWC code Desc
        kdgrp_auft TYPE vbrp-kdgrp_auft, " Dealer
        ktext TYPE t151t-ktext, " Dealer Desc
        j_1icstno TYPE j_1imocust-j_1icstno, " CST reg number
        j_1ilstno TYPE j_1imocust-j_1ilstno, " LST reg number
        city1 TYPE adrc-city1,                              " City1
        street TYPE adrc-street,
        addr1 TYPE adrc-str_suppl1, " address
        addr2 TYPE adrc-str_suppl2,
        city2 TYPE adrc-city2,
        country TYPE adrc-country,
        landx TYPE t005t-landx,"Country
        kvgr2 TYPE vbak-kvgr2, "Sales Type
        fname TYPE kna1-name1, " Financier Name
        aubel TYPE vbrp-aubel,
        stypetext TYPE tvv2t-bezei,
        zdex  TYPE konv-kwert,
        zdec  TYPE konv-kwert,
        dif1  TYPE konv-kwert,
        dif2  TYPE konv-kwert,
        dif3  TYPE konv-kwert,
        dif4  TYPE konv-kwert,
        dif5  TYPE konv-kwert,
        dif6  TYPE konv-kwert,
        deemed_jex2 TYPE konv-kwert,
        deemed_jecs TYPE konv-kwert,
        roundoff1 TYPE konv-kwert,
        roundoff2 TYPE konv-kwert,
        roundoff3 TYPE konv-kwert,
        roundoff4 TYPE konv-kwert,
        roundoff5 TYPE konv-kwert,
        roundoff6 TYPE konv-kwert,
        zcal  TYPE konv-kwert,
        zser  TYPE konv-kwert,
        zces  TYPE konv-kwert,
        zkf0 TYPE konv-kwert,
        zins TYPE konv-kwert,
       vgpos LIKE vbrp-vgpos,
       ort01 LIKE kna1-ort01,
       belnr LIKE bseg-belnr,
       bukrs LIKE vbrk-bukrs,
       zstf LIKE konv-kwert,
       di13 LIKE konv-kwert,
        vkorg TYPE vbrk-vkorg,
        vbtyp TYPE vbrk-vbtyp,
        aupos TYPE vbrp-aupos,
        xblnr TYPE bkpf-xblnr,
        augru TYPE vbak-augru,
        reason TYPE tvaut-bezei,
        waerk type vbrk-waerk,
       END OF it_vbrk_vbrp.
DATA: BEGIN OF it_vbrk_vbrp3 OCCURS 0,
        vbeln TYPE vbrk-vbeln,  " Invoice Number
        posnr TYPE vbrp-posnr,  " Item number
        erdat TYPE vbrk-erdat,  " Billing Date
        fkart TYPE vbrk-fkart,  " Billing Type
        vtext TYPE tvfkt-vtext,  " Billing type Desc
        knumv TYPE vbrk-knumv,  " Number of the document condition
        netwr TYPE vbrk-netwr,  " Net value in document currency
        fkdat TYPE vbrk-fkdat,  " Invoice Date
        typbz TYPE equi-typbz,  " Model
        serge TYPE equi-serge,  " Serial No Ref
        fkimg TYPE vbrp-fkimg,  " Invoce Quantity
        kzwi1 TYPE vbrp-kzwi1,  " Base Price
        kzwi2 TYPE vbrp-kzwi2,  " Packing
        kzwi4 TYPE vbrp-kzwi4,  " Freight and Insurance
        jex2  TYPE konv-kwert,  " Exice duty
        jces  TYPE konv-kwert,  " Cess
        jecx  TYPE konv-kwert,  " Education Cess
        jin1  TYPE konv-kwert,  " CST
        jin1_per TYPE konv-kbetr, " %CST
        jin2  TYPE konv-kwert,  " LST
        jin2_per TYPE konv-kbetr, " %LST
        jin5  TYPE konv-kwert,  " Surcharge on LST
        jin5_per TYPE konv-kbetr, " %Surcharge on LST
        turn  TYPE konv-kwert,  " Turn Over
        turn_lst TYPE konv-kwert, " LST turn over
        turn_cst TYPE konv-kwert, " CST turn over
        total TYPE konv-kwert,  " Total
        zadv TYPE konv-kwert,   " Advance Recieved
        net  TYPE konv-kwert,   " Net Payable
        zcod TYPE konv-kwert,   " Dealer Fee
        zdbk TYPE konv-kwert,   " Deamed Benifit
        zopt TYPE konv-kwert,   " Optional Value
        zfoc TYPE konv-kwert,   " FOC Coupon Value
        zfcf TYPE konv-kwert,   " FOC Filter
        netreal TYPE konv-kwert, " Net Realisation
        vgbel TYPE vbrp-vgbel,  " Delivery Number
        kunag TYPE vbrk-kunag,  " Sold-to party
        name1 TYPE kna1-name1,                              " Name1
        name2 TYPE kna1-name1,  " Ship to name
        name3 TYPE kna1-name2,  " Ship to name 2nd column
        mwsbk TYPE vbrk-mwsbk,  " Tax amount in document currency
        werks TYPE vbrp-werks,  " Plant
        regio TYPE vbrk-regio,  " Region (State, Province, County)
        bezei TYPE t005u-bezei, " Region Description
        wkreg TYPE vbrp-wkreg,  " Region in which plant is located
        fksto TYPE vbrk-fksto,  " Billing document is cancelled
        bstkd TYPE vbkd-bstkd,  " Customer purchase order number
        bstdk TYPE vbkd-bstdk,  " Customer purchase order date
        exnum TYPE j_1iexcdtl-exnum, " Excise Doc Number
        matnr TYPE vbrp-matnr,   " Material number
        arktx TYPE vbrp-arktx,   " Material Desc
        mvgr5 TYPE vbap-mvgr5,   " PWC code
        bezei5 TYPE tvm5t-bezei, " PWC code Desc
        kdgrp_auft TYPE vbrp-kdgrp_auft, " Dealer
        ktext TYPE t151t-ktext, " Dealer Desc
        j_1icstno TYPE j_1imocust-j_1icstno, " CST reg number
        j_1ilstno TYPE j_1imocust-j_1ilstno, " LST reg number
        city1 TYPE adrc-city1,                              " City1
        street TYPE adrc-street,
        addr1 TYPE adrc-str_suppl1, " address
        addr2 TYPE adrc-str_suppl2,
        city2 TYPE adrc-city2,
        country TYPE adrc-country,
        landx TYPE t005t-landx,"Country
        kvgr2 TYPE vbak-kvgr2, "Sales Type
        fname TYPE kna1-name1, " Financier Name
        aubel TYPE vbrp-aubel,
        stypetext TYPE tvv2t-bezei,
        zdex  TYPE konv-kwert,
        zdec  TYPE konv-kwert,
        dif1  TYPE konv-kwert,
        dif2  TYPE konv-kwert,
        dif3  TYPE konv-kwert,
        dif4  TYPE konv-kwert,
        dif5  TYPE konv-kwert,
        dif6  TYPE konv-kwert,
        deemed_jex2 TYPE konv-kwert,
        deemed_jecs TYPE konv-kwert,
        roundoff1 TYPE konv-kwert,
        roundoff2 TYPE konv-kwert,
        roundoff3 TYPE konv-kwert,
        roundoff4 TYPE konv-kwert,
        roundoff5 TYPE konv-kwert,
        roundoff6 TYPE konv-kwert,
        zcal  TYPE konv-kwert,
        zser  TYPE konv-kwert,
        zces  TYPE konv-kwert,
        zkf0 TYPE konv-kwert,
        zins TYPE konv-kwert,
       vgpos LIKE vbrp-vgpos,
       ort01 LIKE kna1-ort01,
       belnr LIKE bseg-belnr,
       bukrs LIKE vbrk-bukrs,
       zstf LIKE konv-kwert,
       di13 LIKE konv-kwert,
        vkorg TYPE vbrk-vkorg,
        vbtyp TYPE vbrk-vbtyp,
        aupos TYPE vbrp-aupos,
        xblnr TYPE bkpf-xblnr,
        augru TYPE vbak-augru,
        reason TYPE tvaut-bezei,
*Variable for Summed up fields
        waerk type vbrk-waerk,
*End of changes by Kiran.K dated 27082007
        sum1 TYPE vbrp-kzwi1,                               "Base Price
        sum2 TYPE vbrp-kzwi2,                               "Packing
        sum4 TYPE vbrp-kzwi4,                               "Freight and Insurance
       sum5 TYPE konv-kwert,                               "zsdr3-jex2
       sum6 TYPE konv-kwert,                               "zsdr3-jecx
       total1 TYPE konv-kwert,                             "ZSDR3
        total2 TYPE konv-kwert,                             "Taxable LST Turnover
        total3 TYPE konv-kwert,                             "Taxable CST Turnover
        total4 TYPE konv-kwert,                             "Total
       jin6 type konv-kwert,
       lst1 type konv-kwert,
        lsum type konv-kwert,                               "LST
       END OF it_vbrk_vbrp3.
*ALV Display
*Authorization check
DATA : v_pnum  TYPE usr21-persnumber.
DATA : v_dname TYPE adcp-department.
Work Areas
DATA : wa_display LIKE it_vbrk_vbrp.
DATA : wa_alv LIKE it_vbrk_vbrp.
Data
DATA : kdauf LIKE lips-kdauf.
DATA : obknr LIKE ser01-obknr.
DATA : equnr LIKE equi-equnr.
DATA : header(60) TYPE c.
DATA : vbelv LIKE vbfa-vbelv.
DATA   vbelvp LIKE vbrp-aubel.
DATA : posnv LIKE vbfa-posnv.
DATA : kunnr LIKE kna1-kunnr.
DATA : kunnr1 LIKE kna1-kunnr.
DATA : adrnr LIKE vbpa-adrnr.
DATA : country LIKE adrc-country.
DATA : date1(10).
DATA : date2(10).
DATA : text(60).
DATA : alles(1) TYPE c.
DATA : allea(1) TYPE c.
DATA : alleb(1) TYPE c.
DATA : allef(1) TYPE c.
DATA : alleg(1) TYPE c.
DATA : allek(1) TYPE c.
DATA : allen(1) TYPE c.
DATA: xvbtyp LIKE dd07v-domvalue_l.
DATA: text1  LIKE dd07v-ddtext.
DATA: char(50).
DATA: tabix LIKE sy-tabix.
DATA: lilli LIKE sy-lilli.
FIELD-SYMBOLS: <feld>.
DATA   : trvog TYPE c.
DATA : deemed_jex2 TYPE konv-kwert,
       deemed_jecx TYPE konv-kwert,
       roundoff1 TYPE konv-kwert,
       roundoff2 TYPE konv-kwert,
       roundoff3 TYPE konv-kwert,
       roundoff4 TYPE konv-kwert,
       roundoff5 TYPE konv-kwert,
       roundoff6 TYPE konv-kwert.
Structure for IT
DATA wa_it_vbrk_vbrp LIKE it_vbrk_vbrp.
DATA wa_it_vbrk_vbrp3 LIKE it_vbrk_vbrp.
DATA:itevent3 TYPE slis_t_event.
DATA:itlistheader TYPE slis_t_listheader.
DATA:itlistheader3 TYPE slis_t_listheader.
DATA:walistheader LIKE LINE OF itlistheader.
DATA:walistheader3 LIKE LINE OF itlistheader.
DATA: string1(70).
DATA: title(100),date3(10),date4(10),name3(35),name4(35),plant3(4).
**SELECTION-SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETER     : vkorg LIKE vbrk-vkorg OBLIGATORY.
PARAMETER     : plant LIKE vbrp-werks OBLIGATORY.
PARAMETER     : p_bukrs LIKE vbrk-bukrs OBLIGATORY.
SELECT-OPTIONS: s_fkart FOR vbrk-fkart OBLIGATORY.
SELECT-OPTIONS: s_fkdat FOR vbrk-fkdat OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
SELECT-OPTIONS: s_vbtyp FOR vbrk-vbtyp NO-DISPLAY.
*>>>>>>
SELECTION-SCREEN: BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
PARAMETERS: sales RADIOBUTTON GROUP grp1,
            credit RADIOBUTTON GROUP grp1,
            debit RADIOBUTTON GROUP grp1,
            test RADIOBUTTON GROUP grp1.
SELECTION-SCREEN: END OF BLOCK block1.
*<<<<<<
START-OF-SELECTION.
To get authorisation check data
  AUTHORITY-CHECK OBJECT 'ZBUKRS'
    ID 'ACTVT' FIELD '01'.
  ID 'BUKRS' FIELD p_bukrs.
  IF sy-subrc NE 0.
    MESSAGE e034(z_apd) WITH p_bukrs.
  ENDIF.
  PERFORM get_auth.
  PERFORM getdata.
**START-OF-SELECTION
  PERFORM get_unrel_item. "fill the tb with unrel.
  PERFORM get_header_item.
  PERFORM filtering.
  PERFORM calculation.
  PERFORM credit_debit.
ALV Display
  IF sy-batch <> 'X'.
    SET SCREEN 100.
  ELSE.
    PERFORM background.
  ENDIF.
  IF test = 'X'.
    perform opt.
    PERFORM test.
    <b>set screen 0.</b>
  ENDIF.
*&      Form  getdata
      text
-->  p1        text
<--  p2        text
FORM getdata .
  SELECT belnr AS fidoc
         awkey AS vbeln
         xblnr
         budat
         gjahr
         blart
         FROM bkpf INTO CORRESPONDING FIELDS OF TABLE itab_temp
         WHERE bukrs = p_bukrs
         AND budat IN s_fkdat
         AND bstat = space.
  IF sy-subrc NE 0.
    MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
    STOP.
  ENDIF.
ENDFORM.                    " getdata
*&      Form  get_header_item
      text
-->  p1        text
<--  p2        text
FORM get_header_item .
  LOOP AT itab_temp.
    MOVE itab_temp-fidoc TO it_vbrk_vbrp-belnr.
    MOVE itab_temp-xblnr TO it_vbrk_vbrp-xblnr.
    SELECT SINGLE vbeln
                  fkart
                  knumv
                  netwr
                  waerk
                  fkdat
                  kunag
                  mwsbk
                  fksto
                  bukrs
                  vkorg
                  vbtyp
                  erdat
                  regio
                  FROM vbrk INTO CORRESPONDING FIELDS OF it_vbrk_vbrp
                  WHERE vbeln = itab_temp-vbeln.
    SELECT werks
           aubel
           mvgr5
           wkreg
           posnr
           fkimg
           kzwi1
           kzwi2
           kzwi4
           vgbel
           matnr
           arktx
           vgpos
           aupos
           kdgrp_auft
           FROM vbrp INTO CORRESPONDING FIELDS OF it_vbrk_vbrp
           WHERE vbeln = itab_temp-vbeln.
      APPEND it_vbrk_vbrp.
    ENDSELECT.
    CLEAR it_vbrk_vbrp.
    CLEAR itab_temp.
  ENDLOOP.
ENDFORM.                    " get_header_item
*& Class Definition                                                    *
CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
    METHODS:
      handle_toolbar
        FOR EVENT toolbar OF cl_gui_alv_grid
            IMPORTING e_object e_interactive,
      handle_user_command
        FOR EVENT user_command OF cl_gui_alv_grid
            IMPORTING e_ucomm,
      handle_double_click
          FOR EVENT double_click OF cl_gui_alv_grid
              IMPORTING e_row e_column,
      handle_top_of_page
        FOR EVENT print_top_of_page OF cl_gui_alv_grid.
  PRIVATE SECTION.
ENDCLASS.                    "lcl_event_receiver DEFINITION
*& Class Implementation                                                *
CLASS lcl_event_receiver IMPLEMENTATION.
  METHOD handle_toolbar.
  Local Variables
    DATA: ls_toolbar  TYPE stb_button.
    DATA : wa LIKE LINE OF e_object->mt_toolbar.
    LOOP AT e_object->mt_toolbar INTO wa.
      wa-disabled = ''.
      MODIFY  e_object->mt_toolbar FROM wa.
    ENDLOOP.
*End
  append a separator to normal toolbar
    CLEAR ls_toolbar.
    MOVE 3 TO ls_toolbar-butn_type.
    APPEND ls_toolbar TO e_object->mt_toolbar.
  append an icon to to show printing
    CLEAR ls_toolbar.
    MOVE 'PRINT' TO ls_toolbar-function.
    MOVE icon_print TO ls_toolbar-icon.
    MOVE 'Print Receipts' TO ls_toolbar-quickinfo.
    MOVE ' Print' TO ls_toolbar-text.
    MOVE ' ' TO ls_toolbar-disabled.
    APPEND ls_toolbar TO e_object->mt_toolbar.
  ENDMETHOD.                       " Handle_toolbar
  METHOD handle_user_command.
    CASE e_ucomm.
      WHEN 'PRINT'.
        REFRESH : lt_rows , it_vbrk_vbrp.
        CALL METHOD grid1->get_selected_rows
          IMPORTING
            et_index_rows = lt_rows.
        CALL METHOD cl_gui_cfw=>flush.
    ENDCASE.
  ENDMETHOD.                           "handle_user_command
  METHOD handle_double_click.
    IF e_column = 'VBELN'.
      READ TABLE it_vbrk_vbrp INDEX e_row-index INTO wa_it_vbrk_vbrp.
      IF sy-subrc = 0.
Set parameter ID for transaction screen field
        SET PARAMETER ID 'VF' FIELD wa_it_vbrk_vbrp-vbeln.
    Execute transaction VF03, and skip initial data entry screen
        CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN.
      ENDIF.
    ENDIF.
  ENDMETHOD.                           "handle_double_click
  METHOD handle_top_of_page.
    WRITE:/ comp_name,
          / plant_name ,
          /  text.
  ENDMETHOD.                           "handle_top_of_page
ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION
*&      Form  get_auth
      text
-->  p1        text
<--  p2        text
FORM get_auth .
  SELECT SINGLE persnumber FROM usr21 INTO (v_pnum)
      WHERE bname = sy-uname.
  SELECT SINGLE department FROM adcp INTO (v_dname)
      WHERE persnumber = v_pnum.
ENDFORM.                    " get_auth
*&      Form  filtering
      text
-->  p1        text
<--  p2        text
FORM filtering .
  s_vbtyp-sign = 'I'.
  s_vbtyp-option = 'EQ'.
  s_vbtyp-low = 'M'.
  APPEND s_vbtyp.
  s_vbtyp-low = 'O'.
  APPEND s_vbtyp.
  s_vbtyp-low = 'P'.
  APPEND s_vbtyp.
  SORT it_vbrk_vbrp BY vbeln posnr.
  LOOP AT it_vbrk_vbrp.
    IF sales = 'X' OR TEST = 'X'.
      IF it_vbrk_vbrp-fksto NE 'X'
           AND it_vbrk_vbrp-werks EQ plant
           AND it_vbrk_vbrp-fkdat IN s_fkdat
           AND it_vbrk_vbrp-vkorg EQ vkorg
           AND it_vbrk_vbrp-fkart IN s_fkart
           AND it_vbrk_vbrp-vbtyp EQ 'M'.
      ELSE.
        DELETE it_vbrk_vbrp.
        CONTINUE.
      ENDIF.
      CLEAR it_vbrk_vbrp.
    ENDIF.
    IF credit = 'X'.
      IF it_vbrk_vbrp-fksto NE 'X'
       AND it_vbrk_vbrp-werks EQ plant
       AND it_vbrk_vbrp-fkdat IN s_fkdat
       AND it_vbrk_vbrp-vkorg EQ vkorg
       AND it_vbrk_vbrp-fkart IN s_fkart
       AND it_vbrk_vbrp-vbtyp EQ 'O'.
      ELSE.
        DELETE it_vbrk_vbrp.
        CONTINUE.
      ENDIF.
      CLEAR it_vbrk_vbrp.
    ENDIF.
    IF debit = 'X'.
      IF it_vbrk_vbrp-fksto NE 'X'
         AND it_vbrk_vbrp-werks EQ plant
         AND it_vbrk_vbrp-fkdat IN s_fkdat
         AND it_vbrk_vbrp-vkorg EQ vkorg
         AND it_vbrk_vbrp-fkart IN s_fkart
         AND it_vbrk_vbrp-vbtyp EQ 'P'.
      ELSE.
        DELETE it_vbrk_vbrp.
        CONTINUE.
      ENDIF.
      CLEAR it_vbrk_vbrp.
    ENDIF.
*End of Insertion
*Commented For Debit and Credit Filtering Process on 19.03.07
IF it_vbrk_vbrp-fksto NE 'X'
    AND it_vbrk_vbrp-werks EQ plant
    AND it_vbrk_vbrp-fkdat IN s_fkdat
    AND it_vbrk_vbrp-vkorg EQ vkorg
    AND it_vbrk_vbrp-fkart IN s_fkart
    AND it_vbrk_vbrp-vbtyp in s_vbtyp.
**ELSE.
   DELETE it_vbrk_vbrp.
   CONTINUE.
**ENDIF.
**CLEAR it_vbrk_vbrp.
  ENDLOOP.
ENDFORM.                    " filtering
*&      Form  taxamount
      text
-->  p1        text
<--  p2        text
FORM taxamount .
  SELECT kwert
         kschl
         knumv
         kposn
         kbetr
         FROM konv INTO CORRESPONDING FIELDS OF TABLE itab_konv
         WHERE knumv = it_vbrk_vbrp-knumv
         AND kposn = it_vbrk_vbrp-posnr.
ENDFORM.                    " taxamount
*&      Form  calculation
      text
-->  p1        text
<--  p2        text
FORM calculation .
  DATA:sum LIKE konv-kwert,
       SUMM LIKE KONV-KWERT.
    sum5 like konv-kwert,           "jex2
    sum6 like konv-kwert.           "jecx
  LOOP AT it_vbrk_vbrp.
    CLEAR itab_konv.
    PERFORM taxamount.
    SORT itab_konv BY knumv kposn kschl.
*DIF1
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'DIF1' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-dif1.
    ENDIF.
*DIF2
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'DIF2' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-dif2.
    ENDIF.
*DIF3
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'DIF3' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-dif3.
    ENDIF.
*DIF4
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'DIF4' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-dif4.
    ENDIF.
*DIF5
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'DIF5' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-dif5.
    ENDIF.
*DIF6
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'DIF6' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-dif6.
    ENDIF.
*DIF13
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'DI13' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-di13.
    ENDIF.
*ZDEX
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZDEX' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zdex.
    ENDIF.
*ZDEC
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZDEC' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zdec.
    ENDIF.
*EXCISE-DUTY JEX2
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JEX2' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-jex2.
    ENDIF.
    IF it_vbrk_vbrp-fkart = 'ZWFX' OR it_vbrk_vbrp-fkart ='ZWJX' OR
       it_vbrk_vbrp-fkart ='S1' OR it_vbrk_vbrp-fkart ='S3'.
      deemed_jex2  =  it_vbrk_vbrp-jex2 + it_vbrk_vbrp-zdex.
      roundoff1 = deemed_jex2 + it_vbrk_vbrp-dif1.
      MOVE roundoff1 TO it_vbrk_vbrp-jex2.
    ENDIF.
*CESS - JCES
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JCES' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-jces.
    ENDIF.
    roundoff6 = it_vbrk_vbrp-jces + it_vbrk_vbrp-dif6.
    MOVE roundoff6 TO it_vbrk_vbrp-jces.
*EDUCATION CESS
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JECX' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-jecx.
    ENDIF.
    roundoff2 = it_vbrk_vbrp-jecx + it_vbrk_vbrp-dif2.
    MOVE roundoff2 TO it_vbrk_vbrp-jecx.
    IF it_vbrk_vbrp-fkart = 'ZWFX' OR it_vbrk_vbrp-fkart ='ZWJX' OR
       it_vbrk_vbrp-fkart ='S1' OR it_vbrk_vbrp-fkart ='S3'.
      deemed_jecx  =  it_vbrk_vbrp-jecx + it_vbrk_vbrp-zdec.
      roundoff2 = deemed_jecx + it_vbrk_vbrp-dif1.
      MOVE roundoff2 TO it_vbrk_vbrp-jecx.
    ENDIF.
*ZSTF SERVICE TAX
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZSTF' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zstf.
    ENDIF.
    it_vbrk_vbrp-zstf = it_vbrk_vbrp-zstf + it_vbrk_vbrp-di13.
*CST-CST%
    IF it_vbrk_vbrp-fkdat GE '20070101'.
      READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JIN7' BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE itab_konv-kwert TO it_vbrk_vbrp-jin1.
        MOVE itab_konv-kbetr TO it_vbrk_vbrp-jin1_per.
      ENDIF.
    ELSE.
      READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JIN1' BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE itab_konv-kwert TO it_vbrk_vbrp-jin1.
        MOVE itab_konv-kbetr TO it_vbrk_vbrp-jin1_per.
      ENDIF.
    ENDIF.
    roundoff3 = it_vbrk_vbrp-jin1 + it_vbrk_vbrp-dif3.
    MOVE roundoff3 TO it_vbrk_vbrp-jin1.
    it_vbrk_vbrp-jin1_per = it_vbrk_vbrp-jin1_per / 10.
*LST-LST%
    IF it_vbrk_vbrp-fkdat GE '20070101'.
      READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JIN6' BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE itab_konv-kwert TO it_vbrk_vbrp-jin2.
        MOVE itab_konv-kbetr TO it_vbrk_vbrp-jin2_per.
      ENDIF.
    ELSE.
      READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JIN2' BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE itab_konv-kwert TO it_vbrk_vbrp-jin2.
        MOVE itab_konv-kbetr TO it_vbrk_vbrp-jin2_per.
      ENDIF.
    ENDIF.
    roundoff4 = it_vbrk_vbrp-jin2 + it_vbrk_vbrp-dif4.
    MOVE roundoff4 TO it_vbrk_vbrp-jin2.
    it_vbrk_vbrp-jin2_per = it_vbrk_vbrp-jin2_per / 10.
Surcharge on LST
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JIN5' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-jin5.
      MOVE itab_konv-kbetr TO it_vbrk_vbrp-jin5_per.
    ENDIF.
    roundoff5 = it_vbrk_vbrp-jin5 + it_vbrk_vbrp-dif5.
    MOVE roundoff5 TO it_vbrk_vbrp-jin5.
    it_vbrk_vbrp-jin5_per = it_vbrk_vbrp-jin5_per / 10.
Taxable turn over
    it_vbrk_vbrp-turn = it_vbrk_vbrp-kzwi1 +
                        it_vbrk_vbrp-kzwi2 +
                        it_vbrk_vbrp-jex2 +
                        it_vbrk_vbrp-jces +
                        it_vbrk_vbrp-jecx.
For moving turn over to LST and CST colomns depending upon
Region.
    IF it_vbrk_vbrp-regio = '22'.
      MOVE it_vbrk_vbrp-turn TO it_vbrk_vbrp-turn_lst.
    ELSE.
      MOVE it_vbrk_vbrp-turn TO it_vbrk_vbrp-turn_cst.
    ENDIF.
*CALIBRATION COST
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZCAL' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zcal.
    ENDIF.
*SERVICE CHARGE
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZSER' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zser.
    ENDIF.
*CESS ON SERVICE CHARGE
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZCES' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zces.
    ENDIF.
    CLEAR: it_vbrk_vbrp-zins,it_vbrk_vbrp-zkf0.
*ZINS
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZINS' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zins.
    ENDIF.
*ZKF0
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZKF0' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zkf0.
    ENDIF.
*ZKFP
    IF sy-subrc <> 0.
      READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZKFP' BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE itab_konv-kwert TO it_vbrk_vbrp-zkf0.
      ENDIF.
    ENDIF.
*TOTAL
    it_vbrk_vbrp-total = it_vbrk_vbrp-turn +
                         it_vbrk_vbrp-jin1 +
                         it_vbrk_vbrp-jin2 +
                         it_vbrk_vbrp-jin5 +
                         it_vbrk_vbrp-kzwi4 +
                         it_vbrk_vbrp-zcal +
                         it_vbrk_vbrp-zser +
                         it_vbrk_vbrp-zces.
Advance Recieved (ZADV)
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZADV' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zadv.
    ENDIF.
Net Payable
    it_vbrk_vbrp-net = it_vbrk_vbrp-total - it_vbrk_vbrp-zadv.
*DEALER FEE
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZCOD' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zcod.
    ENDIF.
    IF it_vbrk_vbrp-zcod IS INITIAL.
      READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZCOA' BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE itab_konv-kwert TO it_vbrk_vbrp-zcod.
      ENDIF.
    ENDIF.
*DEEMED BENEFIT
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZDBK' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zdbk.
    ENDIF.
*OPTIONAL VALUE
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZOPT' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zopt.
    ENDIF.
*FOC COUPON VALUE
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZFOC' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zfoc.
    ENDIF.
*FOC FILTER
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZFCF' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zfcf.
    ENDIF.
Net Realisation
    it_vbrk_vbrp-netreal = it_vbrk_vbrp-kzwi1 - ( it_vbrk_vbrp-zcod +
                               it_vbrk_vbrp-zopt + it_vbrk_vbrp-zfoc
                              + it_vbrk_vbrp-zfcf ).
    CLEAR : vbelv,posnv.
    vbelvp = it_vbrk_vbrp-aubel.
    vbelv = it_vbrk_vbrp-vgbel.
    posnv = it_vbrk_vbrp-posnr.
    CLEAR kunnr.
    CLEAR adrnr.
Getting Sales type
    SELECT SINGLE kvgr2 INTO it_vbrk_vbrp-kvgr2
                        FROM vbak
                        WHERE vbeln = vbelvp.
    SELECT SINGLE bezei INTO it_vbrk_vbrp-stypetext
                        FROM tvv2t
                        WHERE spras = 'EN'
                        AND kvgr2 = it_vbrk_vbrp-kvgr2.
PWC code Desc
    SELECT SINGLE bezei INTO it_vbrk_vbrp-bezei5
                        FROM tvm5t
                        WHERE spras = 'EN'
                        AND   mvgr5 = it_vbrk_vbrp-mvgr5.
    SELECT SINGLE bstkd bstdk INTO (it_vbrk_vbrp-bstkd,
    it_vbrk_vbrp-bstdk)
                              FROM vbkd
                             WHERE vbeln = it_vbrk_vbrp-aubel
                             AND posnr EQ '0'.
    CLEAR kunnr.
    CLEAR adrnr.
    SELECT SINGLE kunnr adrnr INTO (kunnr,adrnr) FROM vbpa
                                   WHERE vbeln = vbelv
                                   AND posnr = '0'
                                   AND   parvw = 'WE'.
*ship-to city
    SELECT SINGLE name1 name2 ort01 INTO
                    (it_vbrk_vbrp-name2,it_vbrk_vbrp-name3,
                    it_vbrk_vbrp-ort01)
                    FROM kna1
                    WHERE kunnr = kunnr.
    CLEAR kunnr1.
    SELECT SINGLE kunnr INTO kunnr1 FROM vbpa
                                   WHERE vbeln = vbelvp
                                   AND posnr = '0'
                                   AND   parvw = 'ZF'.
    CLEAR it_vbrk_vbrp-fname.
    SELECT SINGLE name2 INTO
                    (it_vbrk_vbrp-fname)
                    FROM kna1
                    WHERE kunnr = kunnr1.
    CLEAR country.
    CLEAR: it_vbrk_vbrp-addr1,it_vbrk_vbrp-addr2,it_vbrk_vbrp-name3,
    it_vbrk_vbrp-city1,it_vbrk_vbrp-country.
    SELECT SINGLE name3 street str_suppl1 str_suppl2 city1 city2 country
    INTO
                         (it_vbrk_vbrp-name3,it_vbrk_vbrp-street,
                         it_vbrk_vbrp-addr1,it_vbrk_vbrp-addr2,
                         it_vbrk_vbrp-city1,it_vbrk_vbrp-city2,
                         it_vbrk_vbrp-country)
                         FROM adrc
                         WHERE addrnumber = adrnr.
    CLEAR it_vbrk_vbrp-landx.
    SELECT SINGLE landx INTO it_vbrk_vbrp-landx FROM t005t
                        WHERE spras = 'EN'
                        AND   land1 = country.
    CLEAR obknr.
    CLEAR equnr.
    CLEAR it_vbrk_vbrp-typbz.
Model and Serial No Ref
    SELECT SINGLE obknr INTO obknr FROM ser01
                                   WHERE lief_nr = it_vbrk_vbrp-vgbel
                                   AND   posnr   = it_vbrk_vbrp-vgpos.
    IF sy-subrc EQ 0.
      SELECT DISTINCT equnr sernr taser INTO TABLE it_objk
                                     FROM objk
                                     WHERE obknr = obknr.
                                    AND   taser = 'SER01'.
      LOOP AT it_objk.
        IF it_objk-taser NE 'SER01'.
          DELETE it_objk.
        ENDIF.
      ENDLOOP.
      READ TABLE it_objk INDEX 1.
      IF sy-subrc

Answer 1

Hi,
if you want to leave the program and go back to the code then use.
when 'BACK'.
set screen 0.
leave program.
or if you want to go back to selection screen
when 'BACK'.
leave to screen 0.
thanks
vivekanand