Vendor in selection screen of MB5B

Business requirement is - In transaction MB5B (Stock on posting date), when users select Special stock option, Vendor should be available in selection screen. Purpose is to know Vendor consignment stocks on posting date. Does any one have any clue about how to achieve this or any other alternative suggestion to meet this business requirement ?

Hi,
We need stock balance by Vendor as on date and not material documents posted on a date. So, MB51 and MB59 does not help. Thanks for the response.
Edited by: Tushar123 on Feb 10, 2011 6:14 AM

Similar Messages

  • How to add Material type(MTART) field on Selection screen of MB5B transaction code.

    Hi All,
        Please let me know how to add material type field on selection screen of MB5B transaction
    For that i made copy ZMB5B_COPY of original report RM07MLBD.
    Thanks in adv .
    Samadhan

    Hi,
    Once you copied the standard report to Z report, you can MTART in selection screen like below.
    and in order to inlcude the same in programming logic, we have three option.
    1) Check all related select queries, and include MTART in SELECT query using inner join with MARA.
    2) In START-OF-SELECTION event fill MATNR as shown below.
    3) If user entered any value in MTART, then before displaying the report just check material type of each material in the final internal table(which is used to display report) delete enteries from internal table accordingly.
    START-OF-SELECTION.
    IF MTART[] IS NOT INITIAL AND MATNR[] IS INITIAL.
        SELECT MATNR FROM MARA INTO MATNR-LOW WHERE MTART IN MTART.
          MATNR-OPTION = 'EQ'.
          MATNR-SIGN = 'I'.
          APPEND MATNR.
          CLEAR MATNR.
        ENDSELECT.
    ENDIF.
    The above option has one limitation: The selection screen variables has some restriction, please read the below thread.
    Facing problem in select statement dump DBIF_RSQL_INVALID_RSQL CX_SY_OPEN_S
    Getting Dump in the select query has more than 2000 entries
    Hope this will work for you .
    regards,
    Rajesh Sadula.

  • Urgent : selection screen

    Hi Experts ,
       i am passing sub screens dynamically into the selection screen . IN output i am getting vertical scroll bar in subscreen. my requirement is to avoid scroll bar to that perticular subscreen.
    pls send the code how to avoid that scroll bar , here i am sending the coed below ( for 1300 sub screen i am getting scroll bar)
    pls do needfull .
    Thanks,
    Nagendra.
    tables
    TABLES:
      sscrfields,
      draw,          "Document Info Records
      drat,          "Texts for Document Info Records
      cabn,          "Characteristic
      cawn,          "characteristic values
      cawnt,         "characteristic value text
      ausp,          "Characteristic values
      tdwa,          "Document Types
      lfa1,          "Vendors
      ekko,          "Purchasing Documents Header
      ekpo,          "Purchasing Document items
      t023t,         "Material Group Descriptions
      klah,          "Classes
      cabnt,         "Characteristic descriptions
      lfb1,          "Vendor master (company Code)
      t059t,         "texts for minority indicators
      tdws,          "Document status
      tdwst,         "Document Status Text
      sos04,         "SAPoffice: screen fields for function group SO04
      t006,          "Units of Measurement
      tcurx,         "Decimal Places in Currencies
    *+MD1K960995
      ekbe.
    Parameters
    Program Parameters
    SELECTION-SCREEN BEGIN OF SCREEN 1100 AS SUBSCREEN.
    SELECTION-SCREEN BEGIN OF BLOCK buyingguide
                              WITH FRAME TITLE text-104.
      Company Code
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-300  FOR FIELD s_bukrs.
    SELECT-OPTIONS: s_bukrs FOR ekko-bukrs MEMORY ID buk.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document Category
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-301  FOR FIELD s_bstyp.
    SELECT-OPTIONS: s_bstyp FOR ekko-bstyp DEFAULT 'K'.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document type
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-302  FOR FIELD s_bsart.
    SELECT-OPTIONS: s_bsart FOR ekko-bsart MEMORY ID bsa.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document Creation Date
    SELECTION-SCREEN BEGIN OF LINE.  "MD1K964692
    SELECTION-SCREEN COMMENT 1(28) text-303  FOR FIELD s_aedat. "MD1K964692
    SELECT-OPTIONS: s_aedat FOR ekko-aedat.   "MD1K964692
    SELECTION-SCREEN END   OF LINE.           "MD1K964692
      Purchasing Document Creator
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-304  FOR FIELD s_ernam.
    SELECT-OPTIONS: s_ernam FOR ekko-ernam.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document Vendor Account Number
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-305  FOR FIELD s_lifnr.
    SELECT-OPTIONS: s_lifnr FOR ekko-lifnr MEMORY ID lif.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Organization
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-306  FOR FIELD s_ekorg.
    SELECT-OPTIONS: s_ekorg FOR ekko-ekorg MEMORY ID eko.
    SELECTION-SCREEN END   OF LINE.
    *+G1
      Purchasing Group
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-340  FOR FIELD s_ekorg.
    SELECT-OPTIONS: s_ekgrp FOR ekko-ekgrp MEMORY ID ekg.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document date
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-341  FOR FIELD s_ekorg.
    SELECT-OPTIONS: s_bedat FOR ekko-bedat MEMORY ID bed.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document item plant
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-307  FOR FIELD s_werks.
    SELECT-OPTIONS: s_werks FOR ekpo-werks MEMORY ID wrk.
    SELECTION-SCREEN END   OF LINE.
    *+MD1K971124
    *+MD1K971479
    Number of Purchasing Info Record
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-342  FOR FIELD s_infnr.
    SELECT-OPTIONS: s_infnr FOR ekpo-infnr MEMORY ID inf.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document item  material group
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-308  FOR FIELD s_matkl.
    SELECT-OPTIONS: s_matkl FOR ekpo-matkl MEMORY ID mkl.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document item category
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-309  FOR FIELD s_pstyp.
    SELECT-OPTIONS: s_pstyp FOR ekpo-pstyp DEFAULT 8 TO 9.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document item material number
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-310  FOR FIELD s_matnr.
    SELECT-OPTIONS: s_matnr FOR ekpo-matnr MEMORY ID mat.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document item deletion indicator
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-311  FOR FIELD s_loekz.
    SELECT-OPTIONS: s_loekz FOR ekpo-loekz DEFAULT space.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-317 FOR FIELD s_ebeln.
    SELECT-OPTIONS: s_ebeln FOR ekko-ebeln MEMORY ID vrt.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document item
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-312  FOR FIELD s_ebelp.
    SELECT-OPTIONS: s_ebelp FOR ekpo-ebelp MEMORY ID bsp.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document item purchase req number
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-313  FOR FIELD s_banfn.
    SELECT-OPTIONS: s_banfn FOR ekpo-banfn MEMORY ID ban.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document item reference purchase document
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-318  FOR FIELD s_konnr.
    SELECT-OPTIONS: s_konnr FOR ekpo-konnr.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document item reference purchase document item
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-319  FOR FIELD s_ktpnr.
    SELECT-OPTIONS: s_ktpnr FOR ekpo-ktpnr.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document validity from date
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-314  FOR FIELD s_kdatb.
    SELECT-OPTIONS: s_kdatb FOR ekko-kdatb.
    SELECTION-SCREEN END   OF LINE.
      Purchasing Document validity to date
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) text-315  FOR FIELD s_kdate.
    SELECT-OPTIONS: s_kdate FOR ekko-kdate DEFAULT sy-datum
                                                TO '99991231'.
    SELECTION-SCREEN END   OF LINE.
      Vendor Rating
    SELECTION-SCREEN BEGIN OF LINE.
    *SELECTION-SCREEN COMMENT 1(28) text-316  FOR FIELD s_zmrate.
    *SELECT-OPTIONS: s_zmrate FOR ekko-zz_moc_rating.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN END OF BLOCK buyingguide.
    SELECTION-SCREEN END OF SCREEN 1100.
    SELECTION-SCREEN BEGIN OF SCREEN 1200 AS SUBSCREEN.
    SELECTION-SCREEN BEGIN OF BLOCK document
                              WITH FRAME TITLE text-024.
      Document number
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) c_dokar  FOR FIELD s_dokar.
    SELECT-OPTIONS: s_dokar FOR draw-dokar DEFAULT 'CN1'.
    SELECTION-SCREEN END   OF LINE.
      Document type
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) c_doknr  FOR FIELD s_doknr.
    SELECT-OPTIONS: s_doknr FOR draw-doknr.
    SELECTION-SCREEN END   OF LINE.
      Document part
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) c_doktl  FOR FIELD s_doktl.
    SELECT-OPTIONS: s_doktl FOR draw-doktl.
    SELECTION-SCREEN END   OF LINE.
      Document version
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) c_dokvr  FOR FIELD s_dokvr.
    SELECT-OPTIONS: s_dokvr FOR draw-dokvr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN SKIP 1.
      Document Status
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) c_dokst  FOR FIELD s_dokst.
    SELECT-OPTIONS: s_dokst FOR draw-dokst." DEFAULT 'AC'.
    SELECTION-SCREEN END   OF LINE.
      Document Creation Date
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) c_adat   FOR FIELD s_adat.
    SELECT-OPTIONS: s_adat  FOR draw-adatum.
    SELECTION-SCREEN END   OF LINE.
      Document Creator
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) c_dwnam  FOR FIELD s_dwnam.
    SELECT-OPTIONS: s_dwnam  FOR draw-dwnam.
    SELECTION-SCREEN END   OF LINE.
      Document text
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) c_dktxt  FOR FIELD s_dktxt.
    SELECT-OPTIONS: s_dktxt  FOR drat-dktxt.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN SKIP 1.
      Parent Document number
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) c_prear  FOR FIELD s_prear.
    SELECT-OPTIONS: s_prear FOR draw-prear.
    SELECTION-SCREEN END   OF LINE.
      Parent Document type
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) c_prenr  FOR FIELD s_prenr.
    SELECT-OPTIONS: s_prenr FOR draw-prenr.
    SELECTION-SCREEN END   OF LINE.
      Parent Document part
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) c_pretl  FOR FIELD s_pretl.
    SELECT-OPTIONS: s_pretl FOR draw-pretl.
    SELECTION-SCREEN END   OF LINE.
      Parent Document version
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(28) c_prevr  FOR FIELD s_prevr.
    SELECT-OPTIONS: s_prevr FOR draw-prevr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN END OF BLOCK document.
    SELECTION-SCREEN END OF SCREEN 1200.
    SELECTION-SCREEN BEGIN OF SCREEN 1300 AS SUBSCREEN.
    SELECTION-SCREEN BEGIN OF BLOCK charact
                              WITH FRAME TITLE text-025.
      Class
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(31) c_class  FOR FIELD p_class.
    PARAMETERS: p_class LIKE klah-class OBLIGATORY
                                        MATCHCODE OBJECT clas
                                        DEFAULT 'CONTRACTS'.
    SELECTION-SCREEN END   OF LINE.
      Class Type
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(31) c_klart  FOR FIELD p_klart.
    PARAMETERS: p_klart LIKE klah-klart OBLIGATORY DEFAULT '017'.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN SKIP 1.
    SELECTION-SCREEN COMMENT /1(67) text-203.
    SELECTION-SCREEN COMMENT /5(16) text-204.
    SELECTION-SCREEN SKIP 1.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_01atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_01atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_01atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_02atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_02atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_02atm  FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_03atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_03atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_03atm  FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_05atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_05atm LIKE cabn-atnam OBLIGATORY
                                   VISIBLE LENGTH 26
                                   MODIF ID chr.
    SELECT-OPTIONS: s_05atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_04atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_04atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_04atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_06atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_06atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_06atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_07atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_07atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_07atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_08atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_08atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_08atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_09atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_09atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_09atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_10atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_10atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_10atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_11atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_11atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_11atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_12atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_12atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_12atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_13atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_13atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_13atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_14atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_14atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_14atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_15atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_15atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_15atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_16atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_16atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_16atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_17atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_17atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_17atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_18atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_18atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_18atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_19atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_19atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_19atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_20atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_20atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_20atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_21atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_21atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_21atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_22atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_22atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_22atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_23atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_23atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_23atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_24atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_24atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_24atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pc_25atm AS CHECKBOX
                                  MODIF ID chr.
    PARAMETERS: pt_25atm LIKE cabn-atnam OBLIGATORY
                                  VISIBLE LENGTH 26
                                  MODIF ID chr.
    SELECT-OPTIONS: s_25atm FOR  ausp-atwrt
                                  MODIF ID chr.
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN END OF BLOCK charact.
    SELECTION-SCREEN END OF SCREEN 1300.
      Main Selection screen that will incorporate the subscreens
    SELECTION-SCREEN BEGIN OF TABBED BLOCK tabs FOR 24 LINES.
    SELECTION-SCREEN TAB (20) text-103 USER-COMMAND ucomm1
                                       DEFAULT SCREEN 1100.
    SELECTION-SCREEN TAB (20) text-100 USER-COMMAND ucomm2
                                       DEFAULT SCREEN 1200.
    SELECTION-SCREEN TAB (30) text-101 USER-COMMAND ucomm3
                                       DEFAULT SCREEN 1300.
    SELECTION-SCREEN END OF BLOCK tabs.
    SELECTION-SCREEN BEGIN OF BLOCK misc WITH FRAME TITLE text-061.
        ALV Variant
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(31) text-066 FOR FIELD p_alvvar.
    PARAMETERS: p_alvvar LIKE disvariant-variant.  "alv variant
    SELECTION-SCREEN END   OF LINE.
    SELECTION-SCREEN END   OF BLOCK misc.

    hi nagendra,
    i got ur problem. i put the subscreen in ur main screen.
    i was gone through from ur program. there is number of parameters and select-option. and ur subscreen size is small according to your taken fields.
    there is two option
    1 ) . make your subscreen size full in main screen .
    2) . Or you can put all fields in main screen . it does not matter for codding.
    rewards if helpfull.

  • Adding fields to vendor selection screen

    Hi ,
    While creating a shopping cart from SRM portal, i need to select a  vendor. For vendor selection screen, i want to add two additional fields:  1)Sort Term 1:  ADDR1_DATA-SORT1 2)Order Currency:  LFM1-WAERS
    I want to know:if this can be possible by doing any SRM config in SPRO in SRM or is it a development work in which fields would be added to structure.
    Please reply asap and also the procedure to do that.
    Regards,
    Bis

    Hi.
    Have you read SAP Note 672960? This describes how to add customer defined fields to the shopping cart, therefore also visible during the SC creation process. You would probably also need to implement the BBP_DOC_CHANGE_BADI to fill in the requested data in your new fields.
    DM

  • New development - selection screen

    Hi gurus,
    we are introducing a new functionality via devolopment transaction Z, and we need to enter a selection screen prior to the results, just to enter a kind of filter for fields such us:
    1. Purchasing document creation date.
    2. Document type.
    3. Purchasing group.
    4. Vendor.
    5. Cost Center.
    The programmers are asking us whether we want those fields to be a parameter or a range.
    Can anyone clear the difference between those two terms for us?
    Any help regarding this issue would be very appreciated.
    Thanks,
    VML

    In selection screen Parameter is Just one value For ex Cost centre A .If it is range means From Cost centre A to Cost Centre E. (A,B...E).
    If you maintain for all these filed Range then it may give dump while report execution.So you have to controle which fileds should have range and Just one parametre.

  • Custom error messages in selection-screen

    Hello All,
    I have one query. I have developed a vendor aging report. In the SELECT-OPTIONS, there are 5 fields namely company code, business area, vendor group, vendor code and cash management group. What the user wants is if he enters any invalid value in any of the 5 fields, custom error message should be displayed like 'invalid company code' etc. I think we have to write these messages in 'at-selection-screen' event. Can u help me out with a sample code snippet w.r.t the above program? I have written the code as:
    AT SELECTION-SCREEN.
      IF S_BUKRS ne BSIK-BUKRS.
      MESSAGE e000. 'invalid company code' TYPE 'E'.
      ENDIF.
    But not giving the correct output.i.e. even if I enter a valid company code, the error message is displayed. Can u help me in solving this problem?
    Thanks and Regards,
    Satvik
    Edited by: Satvikpanchal on Jul 22, 2011 9:42 AM

    Hi,
      use AT SELECTION-SCREEN on S_BUKRS-low.
    Use select query for checking the Company code in T001 table check the
    Company code already exist or not? If it is not there show the message.
    Code like
    AT SELECTION-SCREEN on S_BUKRS-low.
    select single bukrs into lv_bukrs
          from T001 where bukrs = s_bukrs-low.
    if sy-subrc NE 0.
    MESSAGE e000. 'invalid company code' TYPE 'E'.
    ENDIF.
    i think you company code is select option so you have to check S_BUKRS-high also.
    using the event AT SELECTION-SCREEN on S_BUKRS-high.
    Regards,
    DHina..

  • Add fields in KOB2 & KSB2 report in selection screen as well as output

    Dear All,
    I have an issue in which i have to add fields in KOB2 & KSB2 report.
    i need to add below fields to KSB2 report.
    1) Internal order
    2) Vendor
    3) Purchasing group
    I also need to add profit centre in selection screen for KSB2
    Similarly for KOB2 i need to add below fields
    1) Cost centre
    2) Vendor
    3) Purchasing group
    I also need to add cost centre as input for KOB2 report.
    I have gone through note 325546 "CO line item reports: Creating a user-defined field" which can be helpful.
    However i am not sure as to how do i add fields in input screen as required.
    Other alternative is to create a Z report however when i try and copy the report both KOB2 & KSB2 call same report "RKAEP000".
    I am not able to get as to how do i differentiate the call of different screens when ZKOB2 is called or when ZKSB2 is called.
    I could identify " c_item_group" field having different values however i couldnot get a proper logic as to how correct screen can be called based on input
    Please suggest .
    Thanks,
    Ronak

    Hi Raymond,
    The note 747588 is good as soon as you are adding fields from the same table only.
    When I have added additional table into KAEP_SCOVP selection view below COVP (just because the extra fields I need are not in COVP) they will show up in KOB1 as selection criteria, but not getting saved.
    Any idea if any ABAP should be regenerated or what extra steps are required when adding more tables into Selection View?
    Thank you!

  • Displaying selection screen details in Alv Report  output display as Header

    Hi all,
    May be somebody knows how I can show selected values with select-options in top_of_page using REUSE_ALV_GRID_DISPLAY.
    This shoud work for all the reports and diff selection screens .
    I need one dynamic process which will for display any report selection screen selected details.(Basically varient information of report).
    Small example if possible, please.
    Thanks in advance,
    Rimas

    Hi Thiru,
    Thanks for the input.
    This is my exact requirement.
    Hi Experts,
    I would like to Display / Print  Select-options selected details in ALV Header.
    Ex: Say suppose here i enter kunnr as 1000
                                            lifnr as    2000 to 4000
                                            p_langu as  'EN'.
                                           p_dir  as 'C:\TEMP,
                                           p_upda as 'X'
    for selection screen below.                    
    SELECTION-SCREEN :BEGIN OF BLOCK blk1 WITH FRAME TITLE text-000.
    SELECT-OPTIONS : s_kunnr FOR kna1-kunnr.
    SELECT-OPTIONS : s_lifnr FOR lfa1-lifnr.
    PARAMETER      : p_lanuge LIKE t002-spras DEFAULT sy-langu.
    PARAMETER: p_dir  LIKE rlgrap-filename
               DEFAULT text-003 LOWER CASE.
    PARAMETERS: p_upd AS CHECKBOX DEFAULT 'X'.
    I dont want to Hard code selection screen values like
    DATA: header TYPE slis_t_listheader,
    wa TYPE slis_listheader,
    wa-typ = 'S'(093).
      wa-key = s_lifnr .
      wa-info = 'Vendor no".
      APPEND wa TO header.
    I want dynamic process for all of my selection screen values selected
    hard code may be it will be fine small selection screen it will work.
    Fur that i got one process to get dynamically through fm
    Ex: DATA: irsparams TYPE rsparams OCCURS 0 WITH HEADER LINE.
    CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
    EXPORTING
    curr_report = program
    TABLES
    selection_table = irsparams
    EXCEPTIONS
    not_found = 1
    no_report = 2
    OTHERS = 3.
    loop at irsparams.
    write : / irsparams-SELNAME.
    write : / irsparams-SIGN.
    write : / irsparams-OPTION.
    write : / irsparams-LOW.
    write : / irsparams-HIGH.
    endloop.
    I have done my requirement partially but i am failed to achive my full  requirement.
    Because
    rsparams  strcture is diff from  slis_t_listheader.
    Can any one help me for further assistence to display irsparams strcture data in alv header.
    Thanks
    Nag

  • Regarding selection screen fields in Service PO Report

    Hello All,
       I have developed a Service PO Report with input parameters like Purch. Organisation, Material Group, Purchasing Group, Plant, PO No., Vendor, Activity, Entry Sheet No., GR No. I have used the tables ekko, ekpo, ekbe, essr, ml_esll, mseg and lfa1.
    When I input a particular Purch. Organisation,   I am able to get the output filtered by that Purch. Organisation. Similarly, when I input other fields individually, I get the filtered output based on the value of the fields that I inputted.
    The problem is that when I select only a particular GR No. in the selection screen, I am not able to get the filtered output for that particular GR No. Its showing all the unnecessary data for that particular GR No.
    Except this field, the report is running fine. So can anybody guide me in getting the filtered output based on GR No.?
    I have linked tables ekko, ekbe and mseg.

    I have pasted the code below for analysis.
    form fetch.
    select ek~ebeln
           ek~loekz
           ek~lifnr
           ek~ekorg
           ek~ekgrp
           ek~bedat
           ek~bukrs
           ep~ebelp
           ep~txz01
           ep~werks
           ep~matkl
           ep~mwskz
           ep~menge
           ep~meins
           ep~netpr
           ep~netwr
           ep~mwskz
           into corresponding fields of table it_ekko
           from ekko as ek join ekpo as ep
           on ek~ebeln = ep~ebeln
           and ek~loekz = ep~loekz
           and ek~bukrs = ep~bukrs
           where ek~ebeln in s_ebeln
           and ek~lifnr in s_lifnr
           and ek~ekorg in s_ekorg
           and ek~ekgrp in s_ekgrp
           and ep~werks in s_werks
           and ep~matkl in s_matkl.
    if sy-subrc = 0.
        select lifnr name1 from lfa1
           into corresponding fields of table it_lfa1
           for all entries in it_ekko
           where lifnr = it_ekko-lifnr.
    endif.
    if sy-subrc = 0.
        select lblni lzvon lwert packno txz01 ebeln loekz budat  netwr from essr
           into corresponding fields of table it_essr
           for all entries in it_ekko
           where lzvon in s_lzvon
             and lblni in s_lblni
             and ebeln = it_ekko-ebeln.
    endif.
    if sy-subrc = 0.
        select mblnr ebeln erfmg lfbnr from mseg
          into corresponding fields of table it_mseg
            for all entries in it_essr
            where mblnr in s_mblnr
              and lfbnr = it_essr-lblni
              and ebeln = it_essr-ebeln.
    endif.
    if sy-subrc = 0.
      select packno ebeln srvpos ktext1 netwr menge matkl tbtwr meins mwskz from ml_esll
           into corresponding fields of table it_ml_esll
           for all entries in it_essr
           where  srvpos in s_srvpos
            and  ebeln = it_essr-lblni.
    endif.
    if sy-subrc = 0.
      select packno srvpos menge meins netwr ebeln tbtwr from ml_esll
            into corresponding fields of table it_ml_esll1
            for all entries in it_ekko
             where ebeln = it_ekko-ebeln.
    endif.
    if sy-subrc = 0.
      select ebeln vgabe belnr lfbnr mwskz srvpos packno from ekbe
            into corresponding fields of table it_ekbe
              for all entries in it_ekko
                where ebeln = it_ekko-ebeln
                and vgabe = 1.
    endif.
    if sy-subrc = 0.
      select ebeln belnr bewtp from ekbe into corresponding fields of table it_ekbe1
            for all entries in it_ekko
              where ebeln = it_ekko-ebeln
              and   bewtp = 'Q'.
    endif.
    loop at it_ml_esll into wa_ml_esll.
        move wa_ml_esll-packno to wa_final-packno.
        move wa_ml_esll-ebeln to wa_final-ebeln1.
        move wa_ml_esll-srvpos to wa_final-srvpos.
        move wa_ml_esll-ktext1 to wa_final-ktext1.
        move wa_ml_esll-meins to wa_final-meins.
        move wa_ml_esll-menge to wa_final-menge1.
        read table it_essr into wa_essr with key lblni = wa_ml_esll-ebeln.
        if sy-subrc = 0.
          move-corresponding wa_essr to wa_final.
        endif.
        read table it_ekko into wa_ekko with key ebeln = wa_essr-ebeln.
        if sy-subrc = 0.
          move wa_ekko-werks to wa_final-werks.
          move wa_ekko-ekorg to wa_final-ekorg.
          move wa_ekko-ekgrp to wa_final-ekgrp.
          move wa_ekko-ebeln to wa_final-ebeln.
          move wa_ekko-menge to wa_final-menge.
          move wa_ekko-matkl to wa_final-matkl.
          move wa_ekko-mwskz to wa_final-mwskz.
          move wa_ekko-lifnr to wa_final-lifnr.
          move wa_ekko-bedat to wa_final-bedat.
          move wa_ekko-netpr to wa_final-netpr.
        endif.
        read table it_lfa1 into wa_lfa1 with key lifnr = wa_ekko-lifnr.
         if sy-subrc = 0.
          move wa_lfa1-lifnr to wa_final-lifnr.
          move wa_lfa1-name1 to wa_final-name1.
        endif.
        read table it_ekbe into wa_ekbe with key lfbnr = wa_ml_esll-ebeln
                                                 packno = wa_ml_esll-packno
                                                 srvpos = wa_ml_esll-srvpos.
        if sy-subrc = 0.
          move wa_ekbe-belnr to wa_final-belnr.
        endif.
        read table it_ekbe1 into wa_ekbe1 with key ebeln = wa_ekko-ebeln.
        if sy-subrc = 0.
          move wa_ekbe1-belnr to wa_final-belnr1.
        endif.
        read table it_ml_esll1 into wa_ml_esll1 with key srvpos = wa_ml_esll-srvpos.
        if sy-subrc = 0.
          move wa_ml_esll1-menge to wa_final-menge2.
          move wa_ml_esll1-netwr to wa_final-netwr.
          move wa_ml_esll1-tbtwr to wa_final-tbtwr.
        endif.
        read table it_mseg into wa_mseg with key lfbnr = wa_essr-lblni
                                                 ebeln = wa_essr-ebeln.
        if sy-subrc = 0.
            move wa_mseg-mblnr to wa_final-mblnr.
            move wa_mseg-erfmg to wa_final-erfmg.
        endif.
        append wa_final to it_final.
      endloop.
    delete it_final where srvpos is initial.
    sort it_final by srvpos lblni ebeln .
    Edited by: Satvikpanchal on Dec 6, 2011 11:01 AM

  • Problem while hide a block on selection screen on button press

    Hi,
    I have added two buttons on the application toolbar of the selection screen. I have input fields under two blocks on the selection-screen. Initially the second block is hidden. If I press the button 1 the second block should be made visible.
    For this to happen, I captured the button 1 click event using the following statement.
    IF sscrfields-ucomm = 'FC01'.
    Inside the if ... endif, I looped at the screen and made the second block visible. It was working fine.
    loop at screen.
      if screen-group4 = '013'.
         screen-invisible = 1.
         screen-active    = 0.
      endif.
    endloop.
    Later the second button was added. Now when i run the report for the first time, if button 2 is clicked the hidden block appears on the selection screen even though i have not added any code for it.
    Just to check, i commented the logic to display the hidden block on button 1 click event. Even without any code the first time i press any of the two buttons added on the application toolbar the hidden block is displayed.
    I saved a variant for the report.
    During execution of the report, if i select any variant then the hidden block is displayed.
    Can anyone please tell me how to fix this problem.
    Regards,
    T2.

    Hi All,
    The problem is solved.
    Everyone was confusing between the pushbutton on the selectio-screen and on apllication toolbar
    (where you have the execute icon).
    Please find the code below. Thanks for you time and help. I appreciate it.
    REPORT ztest.
    INCLUDE <icon>.
    *  TABLES                                                              *
    TABLES: t001,              " Company Codes
            lfa1,              " Vendor Master (General Section)
            sscrfields.        " Fields on selection screens
    * To capture button press event.
    DATA: gv_button_press       TYPE c.
    * Menu Painter: Program interface for dynamic texts
    DATA: gs_dyntxt             TYPE smp_dyntxt.
    *  SELECTION SCREEN                                                    *
    SELECTION-SCREEN FUNCTION KEY 1.
    SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-s01.
    * Company Code.
    SELECTION-SCREEN BEGIN OF BLOCK ccode WITH FRAME TITLE text-s02.
    SELECT-OPTIONS: s_bukrs FOR t001-bukrs OBLIGATORY MEMORY ID buk.
    SELECTION-SCREEN END OF BLOCK ccode.
    SELECTION-SCREEN END OF BLOCK blk1.
    SELECTION-SCREEN BEGIN OF BLOCK dsel WITH FRAME TITLE text-s04.
    * Vendor Master.
    SELECTION-SCREEN BEGIN OF BLOCK vend WITH FRAME TITLE text-s07.
    SELECT-OPTIONS: s_konzs FOR lfa1-konzs MODIF ID aw1.
    SELECT-OPTIONS: s_txcd1 FOR lfa1-stcd1 MODIF ID aw1.
    SELECT-OPTIONS: s_txcd2 FOR lfa1-stcd2 MODIF ID aw1.
    SELECTION-SCREEN END OF BLOCK vend.
    SELECTION-SCREEN END OF BLOCK dsel.
    * INITIALIZATION                                                       *
    INITIALIZATION.
    * Populate the Application toolbar button attributes.
      PERFORM populate_app_toolbar_buttons.
    * Hide the dynamic screen intially.
      PERFORM hide_screenfields.
    * AT SELECTION SCREEN                                                  *
    AT SELECTION-SCREEN.
    * Capture the button press event.
      PERFORM capture_button_press.
    * AT SELECTION-SCREEN OUTPUT.                                          *
    AT SELECTION-SCREEN OUTPUT.
    * Show/Hide the dynamic selection screen based on button press.
      PERFORM adapt_screen.
    *&  Form  populate_app_toolbar_buttons                                 *
    *   Display Icon on the application toolbar buttons. Also set the      *
    *   function codes for these buttons.                                  *
    FORM populate_app_toolbar_buttons.
      CLEAR gs_dyntxt.
      WRITE icon_fencing     TO gs_dyntxt-icon_id AS ICON.
      MOVE  text-b01         TO gs_dyntxt-quickinfo.   " Dynamic Selections
      MOVE gs_dyntxt         TO sscrfields-functxt_01.
    ENDFORM.                    " populate_app_toolbar_buttons
    *&  Form  hide_screenfields                                            *
    *   Initially hide the Dynamic selection screen.                       *
    FORM hide_screenfields.
      LOOP AT SCREEN.
        IF screen-group1 = 'AW1'.
          screen-invisible = '1'.
          screen-active    = '0'.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
    ENDFORM.                    " hide_screenfields
    *&  Form  capture_button_press                                         *
    *   Set the flag based on button press event. Appication bar button    *
    *   tcode is available only at 'At Selection-screen' event.            *
    *   Use the captured data at 'At Selection-screen Output' event.       *
    *   Screen adjustments is possible only under this event.              *
    FORM capture_button_press.
      IF sscrfields-ucomm = 'FC01'.
        IF gv_button_press IS INITIAL.
          gv_button_press = 'X'.
        ELSEIF gv_button_press EQ 'X'.
          CLEAR gv_button_press.
        ENDIF.
      ENDIF.
    ENDFORM.                    " capture_button_press
    *&  Form  adapt_screen                                                 *
    *   Show/Hide the dynamic selection screen based on button press       *
    *   captured at 'At selection-screen' event.                           *
    FORM adapt_screen.
    * If button press flag is initial hide the dynamic selection screen.
      IF gv_button_press IS INITIAL.
        LOOP AT SCREEN.
          IF screen-group1 = 'AW1'.
            screen-invisible = '1'.
            screen-active    = '0'.
          ENDIF.
          MODIFY SCREEN.
        ENDLOOP.
    * Elseif button press flag is 'X' show the dynamic selection screen.
      ELSEIF gv_button_press EQ 'X'.
        LOOP AT SCREEN.
          IF screen-group1 = 'AW1'.
            screen-invisible = '0'.
            screen-active    = '1'.
          ENDIF.
          MODIFY SCREEN.
        ENDLOOP.
      ENDIF.
    ENDFORM.                    " adapt_screen
    Regards,
    T2
    Message was edited by: Titu Joseph

  • Exclude one field from Logical Database's dynamic selection screen

    Hi Guru,
    I have a requirement to amend a program to exclude the document number field (bsik-belnr) from the dynamic selection-screen of the logical database KDF(Vendor Database) so that the program will not filter according to the document number.
    I have use the below syntax in my zprogram.
      selection-screen exclude select-options: doc-no.
    However I get syntax error "The addition EXCLUDE is only allowed in INCLUDE DBKDFSEL".
    Please advice.
    Best Regards,
    Fung

    The selection part of the logical database defines input fields for selecting data.
              The runtime environment displays these on the selection screen when you run an executable program linked to the logical database.
              Include called DB<ldbname>SEL.
            SELECTION-SCREEN BEGIN OF VERSION ver TEXT-xxx.
                                                                    SELECTION-SCREEN EXCLUDE ... .
                                                    SELECTION-SCREEN END OF VERSION ver.
    Defines a selection screen version (with a three-character name ver ). Between BEGIN OF VERSION and END OF VERSION , you can exclude selection screen objects for the version ver , i.e. remove them from the selection screen with SELECTION-SCREEN EXCLUDE.
              SELECTION-SCREEN DYNAMIC SELECTIONS FOR TABLE dbtab
    If one of these tables is active in the report (i.e. it is declared under TABLES or lies somewhere on the path from the root of the database hierarchy to a table declared with TABLES ), a pushbutton called 'Dynamic selections' appears on the selection screen.

  • Output not coming right, if we give LIFNR in selection screen

    Hi,
    i have LIFNR in selection screen, when i execute my report without inserting value in it...output is proper coming, but when i insert value in LIFNR, report doesn't display any data...
    please check my code and guide me...
    TABLES : bsik,bkpf,bseg,j_1imovend,lfa1,t001,t005u,bsak,ekko,bsis, ekkn, anla, anlc.
    TYPE-POOLS : slis.
    DATA : BEGIN OF itab OCCURS 0,
           belnr LIKE bsik-belnr, "Document number
           buzei LIKE bseg-buzei, "line item
           hkont LIKE bseg-hkont, "Gl account
           mwskz LIKE bseg-mwskz, "Tax Code
           dmbtr LIKE bseg-dmbtr, "Amount
           ebeln LIKE bseg-ebeln, "Purchasing Document
           ebelp LIKE bseg-ebelp, "line item nbr
           hwbas TYPE i,
           shkzg LIKE bseg-shkzg, "Debit/Credit code
           wrbtr LIKE bseg-wrbtr,
           gjahr LIKE bsik-gjahr, "Fiscal Year
           bldat LIKE bsik-bldat, "Document Date
           budat LIKE bsik-budat, "Posting Date
           lifnr LIKE bsik-lifnr, "Vendor number
           xblnr LIKE mkpf-xblnr, "Ven invoice nbr
           name1(25),                                           "name1
           ort01 LIKE lfa1-ort01, "City
           j_1ilstno LIKE j_1imovend-j_1ilstno,  " Vendor tin nbr
           regio LIKE lfa1-regio, "Region Code
           bezei LIKE t005u-bezei, "Region desc
           bland LIKE t005u-bland,
           tax TYPE p DECIMALS 2,
           matkl LIKE ekpo-matkl,
    END OF itab.
    DATA : x TYPE bseg-lifnr,
           y TYPE j_1imovend-j_1ilstno,
           z TYPE bseg-mwskz,
           a TYPE bseg-hwbas,
           b TYPE t005u-bezei.
    DATA:
    v_bldat TYPE bldat,
    v_budat TYPE budat,
    v_gjahr TYPE gjahr,
    v_lifnr TYPE lifnr,
    v_name1 TYPE name1,
    v_j_1ilstno TYPE j_1ilstno,
    v_bezei TYPE bezei,
    v_ebeln TYPE ebeln,
    v_mwskz TYPE mwskz,
    v_dmbtr TYPE dmbtr,
    v_hwbas TYPE hwbas,
    v_xblnr TYPE xblnr,
    v_buzei TYPE buzei,
    v_wrbtr TYPE wrbtr,
    v_matkl TYPE matkl,
    v_tax TYPE i,
    v_regio TYPE regio,
    v_hkont TYPE hkont.
    DATA : BEGIN OF itab1 OCCURS 0.
            INCLUDE STRUCTURE itab.
    DATA:END OF itab1.
    DATA : BEGIN OF itab2 OCCURS 0.
            INCLUDE STRUCTURE itab.
    DATA : END OF itab2.
    DATA : itab3 LIKE STANDARD TABLE OF itab2 WITH HEADER LINE.
    ***********************************Purchase order history
    DATA:   BEGIN OF bet OCCURS 50.
            INCLUDE STRUCTURE ekbe.
    DATA:   END OF bet.
    DATA:   BEGIN OF bzt OCCURS 50.
            INCLUDE STRUCTURE ekbz.
    DATA:   END OF bzt.
    DATA:   BEGIN OF betz OCCURS 50.
            INCLUDE STRUCTURE ekbez.
    DATA:   END OF betz.
    DATA:   BEGIN OF bets OCCURS 50.
            INCLUDE STRUCTURE ekbes.
    DATA:   END OF bets.
    DATA:   BEGIN OF xekbnk OCCURS 10.
            INCLUDE STRUCTURE ekbnk.
    DATA:   END OF xekbnk.
    DATA : w_container TYPE scrfname VALUE 'CL_GRID',
           w_cprog TYPE lvc_s_layo,
           g_repid LIKE sy-repid,
           w_save TYPE c,
           w_exit TYPE c,
           cl_grid TYPE REF TO cl_gui_alv_grid,
           cl_custom_container TYPE REF TO cl_gui_custom_container,
           it_fld_catalog TYPE slis_t_fieldcat_alv,
           wa_fld_catalog TYPE slis_t_fieldcat_alv WITH HEADER LINE ,
           layout TYPE slis_layout_alv,
           col_pos  LIKE sy-cucol ,
           alvfc TYPE slis_t_fieldcat_alv.
    SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
    SELECT-OPTIONS   : hkont FOR bsis-hkont ."OBLIGATORY.
    SELECT-OPTIONS   : lifnr FOR bsik-lifnr ."OBLIGATORY.
    *PARAMETERS       :  lifnr for bsik-lifnr.
    SELECT-OPTIONS   : belnr FOR bsik-belnr .
    SELECT-OPTIONS   : gjahr FOR bsik-gjahr .
    SELECT-OPTIONS   : bldat FOR bsik-bldat.
    SELECT-OPTIONS   : budat FOR bsik-budat.
    SELECTION-SCREEN : END OF BLOCK b1.
    PERFORM fill_catalog1 USING:
    'HKONT'    'ITAB2'    'G/L',
    'BELNR'    'ITAB2'    'Document Number',
    'BLDAT'    'ITAB2'    'Doc. date' ,
    'BUDAT'    'ITAB2'    'Posting Date',
    'LIFNR'    'ITAB2'    'Vendor',
    'NAME1'    'ITAB2'    'Name',
    'J_1ILSTNO' 'ITAB2'   'TIN No.',
    'BEZEI'     'ITAB2'   'Region',
    'MATKL'    'ITAB2'    'Material Group',
    'EBELN'    'ITAB2'    'Purchasing Document',
    'MWSKZ'    'ITAB2'    'Tax Code',
    'HWBAS'    'ITAB2'    'Base Amount',
    'DMBTR'    'ITAB2'    'Tax Amount',
    'TAX'      'ITAB2'    'Tax Rate',
    'XBLNR'    'ITAB2'    'Vendor Inv. No.'.
    SELECT DISTINCT hkont belnr gjahr bldat budat INTO CORRESPONDING FIELDS OF TABLE itab
                      FROM bsis
                      WHERE bukrs = '1000'
                      AND hkont IN hkont
                      AND belnr IN belnr
                      AND gjahr IN gjahr
                      AND bldat IN bldat
                      AND budat IN budat
                      AND blart <> 'JV'.
    SORT itab BY belnr.
    LOOP AT itab.
      SELECT * FROM bseg WHERE belnr = itab-belnr AND gjahr = itab-gjahr AND bukrs = '1000' AND ( ebeln <> ' ' OR hkont IN hkont ).
        IF sy-subrc = 0.
          itab-buzei = bseg-buzei.
          itab-mwskz = bseg-mwskz.
          IF bseg-ebeln <> ' '.
            itab-ebeln = bseg-ebeln.
            itab-ebelp = bseg-ebelp.
            MODIFY itab.
          ENDIF.
          IF bseg-hkont = itab-hkont.
            itab-shkzg = bseg-shkzg.
            itab-hwbas = bseg-hwbas.
            itab-dmbtr = bseg-dmbtr.
            IF itab-hwbas NE '0'.
              itab-tax = itab-dmbtr / itab-hwbas * 100.
              MODIFY itab INDEX sy-tabix TRANSPORTING tax.
            ENDIF.
            IF itab-shkzg = 'H'.
              itab-dmbtr = itab-dmbtr * ( -1 ).
            ENDIF.
            MOVE-CORRESPONDING itab TO itab2.
            APPEND itab2.
          ENDIF.
        ENDIF.
      ENDSELECT.
    ENDLOOP.
    LOOP AT itab2.
      SELECT SINGLE * FROM ekko WHERE ebeln = itab2-ebeln .
      IF sy-subrc = 0.
        itab2-lifnr = ekko-lifnr.
      ENDIF.
      CALL FUNCTION 'ME_READ_HISTORY'
        EXPORTING
          ebeln  = itab2-ebeln
          ebelp  = itab2-ebelp
          webre  = 'X'
        TABLES
          xekbe  = bet
          xekbz  = bzt
          xekbes = bets
          xekbez = betz
          xekbnk = xekbnk.
      itab2-xblnr = bet-xblnr.
      SELECT SINGLE * FROM lfa1 WHERE lifnr = itab2-lifnr.
      itab2-name1 = lfa1-name1.
      itab2-ort01 = lfa1-ort01.
      itab2-regio = lfa1-regio.
      SELECT SINGLE * FROM t005u WHERE bland = itab2-regio
                                  AND spras = 'EN'
                                  AND land1 = 'IN'.
      itab2-bezei = t005u-bezei.
      SELECT SINGLE * FROM  j_1imovend WHERE lifnr = itab2-lifnr.
      IF sy-subrc = 0 .
        itab2-j_1ilstno = j_1imovend-j_1ilstno.  " Vendor tin nbr
      ENDIF.
      MODIFY itab2.
    ENDLOOP.
    SORT itab2 BY belnr.
    LOOP AT itab2.
      v_dmbtr = v_dmbtr + itab2-dmbtr.
      v_hwbas = v_hwbas + itab2-hwbas.
      v_bldat = itab2-bldat.
      v_budat = itab2-budat.
      v_gjahr = itab2-gjahr.
      v_lifnr = itab2-lifnr.
      v_name1 = itab2-name1.
      v_j_1ilstno = itab2-j_1ilstno.
      v_bezei = itab2-bezei.
      v_ebeln = itab2-ebeln.
      v_mwskz = itab2-mwskz.
      v_xblnr = itab2-xblnr.
      v_buzei = itab2-buzei.
      v_wrbtr = itab2-wrbtr.
      v_matkl = itab2-matkl.
      v_tax   = itab2-tax.
      v_regio = itab2-regio.
      v_hkont = itab2-hkont.
      AT END OF belnr.
        itab2-bldat = v_bldat.
        itab2-budat = v_budat.
        itab2-gjahr = v_gjahr.
        itab2-lifnr = v_lifnr.
        itab2-name1 = v_name1.
        itab2-j_1ilstno = v_j_1ilstno.
        itab2-bezei = v_bezei.
        itab2-ebeln = v_ebeln.
        itab2-mwskz = v_mwskz.
        itab2-dmbtr = v_dmbtr.
        itab2-hwbas = v_hwbas.
        itab2-xblnr = v_xblnr.
        itab2-buzei = v_buzei.
        itab2-wrbtr = v_wrbtr.
        itab2-matkl = v_matkl.
        itab2-tax   = v_tax.
        itab2-regio = v_regio.
        itab2-hkont = v_hkont.
        APPEND itab2 TO itab3.
        CLEAR: itab2, v_dmbtr, v_hwbas, v_bldat, v_budat, v_gjahr, v_lifnr, v_name1, v_j_1ilstno, v_ebeln,
                      v_mwskz, v_xblnr, v_buzei, v_wrbtr, v_matkl, v_tax, v_regio, v_hkont.
      ENDAT.
    ENDLOOP.
    LOOP AT itab3.
      IF itab3-lifnr = ' '.
        SELECT SINGLE lifnr FROM bseg INTO x WHERE belnr = itab3-belnr AND gjahr = itab3-gjahr AND bukrs = '1000' AND koart = 'K'." AND lifnr IN lifnr.
        IF sy-subrc = 0.
          itab3-lifnr = x .
          SELECT SINGLE * FROM lfa1 WHERE lifnr = itab3-lifnr.
          itab3-name1 = lfa1-name1.
          itab3-ort01 = lfa1-ort01.
          itab3-regio = lfa1-regio.
          MODIFY itab3.
        ENDIF.
      ENDIF.
      SELECT SINGLE bezei FROM t005u INTO itab3-bezei WHERE bland = itab3-regio AND spras EQ 'EN' AND land1 EQ 'IN'.
      MODIFY itab3 INDEX sy-tabix TRANSPORTING bezei.
      SELECT j_1ilstno FROM j_1imovend INTO y WHERE lifnr = itab3-lifnr .
        itab3-j_1ilstno = y.
        MODIFY itab3 INDEX sy-tabix TRANSPORTING j_1ilstno .
      ENDSELECT.
      SELECT mwskz FROM bseg INTO z WHERE belnr = itab3-belnr AND gjahr = itab3-gjahr AND bukrs = '1000' .
        MODIFY itab3 INDEX sy-tabix TRANSPORTING mwskz .
      ENDSELECT.
      IF sy-subrc = 0.
        itab3-mwskz = z .
        MODIFY itab3.
      ENDIF.
      IF itab3-hwbas = ' '.
        SELECT wrbtr FROM bseg INTO itab3-hwbas WHERE belnr = itab3-belnr AND gjahr = itab3-gjahr AND bukrs = '1000' AND buzei = '2'.
          MODIFY itab3 INDEX sy-tabix TRANSPORTING wrbtr.
        ENDSELECT.
      ENDIF.
      SELECT matkl FROM ekpo INTO itab3-matkl WHERE ebeln = itab3-ebeln .
        MODIFY itab3 INDEX sy-tabix TRANSPORTING matkl .
      ENDSELECT.
      SHIFT itab3-lifnr LEFT DELETING LEADING '0'.                  " For Removing 0's
      SHIFT itab3-hkont LEFT DELETING LEADING '0'.                  " For Removing 0's
      MODIFY itab3.
      IF itab3-hwbas NE '0'.
        itab3-tax = itab3-dmbtr / itab3-hwbas * 100.
        MODIFY itab3 INDEX sy-tabix TRANSPORTING tax.
      ENDIF.
    ENDLOOP.
    layout-zebra = 'X' .
    layout-colwidth_optimize(1) = 'X'.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
        i_callback_program = 'ZFI_LP07'
        is_layout          = layout
        it_fieldcat        = it_fld_catalog
        i_default          = 'X'
        i_save             = 'A'
      TABLES
        t_outtab           = itab3
      EXCEPTIONS
        program_error      = 1
        OTHERS             = 2.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    *&      Form  FILL_CATALOG1
          text
         -->P_FIELDNAME  text
         -->P_REF_TABLE  text
         -->P_SCRTEXT    text
    FORM fill_catalog1  USING   p_fieldname TYPE any
                                p_ref_table TYPE any
                                p_scrtext   TYPE any.
      CLEAR : wa_fld_catalog.
      wa_fld_catalog-fieldname  = p_fieldname.
      wa_fld_catalog-tabname    = p_ref_table.
      wa_fld_catalog-seltext_s  = p_scrtext.
      wa_fld_catalog-seltext_m  = p_scrtext.
      wa_fld_catalog-seltext_l  = p_scrtext.
    wa_fld_catalog-datatype = 'CURR'.
      wa_fld_catalog-outputlen = 20.
      APPEND wa_fld_catalog TO it_fld_catalog.
    ENDFORM.                    " fill_catalog1.
    Thanks

    Hi Anil,
    check for the availability of records for values entered in selection screen lifnr..
    select single lifnr
    into wa_lifnr
    from lfa1
    where lifnr in s_lifnr.
    check sy-subrc.
    Regards,
    Mdi.Deeba

  • Selection screen value not assigning to the value when executed for the first time

    Hi ,
    Im My program at selection screen there are company code, vendor account and open items at key date(takes system date as default value).
    Facing problem at open items at key date - Open key date parameter is taken from LDB - KDF.
    First time when I am executing the program it is taking system date value in the selection screen variable even though I have given the different date.
    This problem is only when I execute for first time or press enter without giving company code.
    Can any one please help us to come out of this problem.
    Regards
    Sri Bhargavi

    HI,
         you can use the Event as AT SELECTION-SCREEN

  • User defined selection screen

    Hi, In my program i used a default seelction screen and 5 user defined selection screen. Based on the selections made in default selection screen, it should go to the corresponding user defined screen.
    and the problem iam getting if i press enter jey insted of F8.
    ""Selection screen ZP2I_MASSCHANGE_TEMP1 1000 was
    not called using CALL SELECTION-SCREEN"""
    the code is as follows.
          A T   S E L E C T I O N-S C R E E N
    *AT SELECTION-SCREEN.
    AT SELECTION-SCREEN ON RADIOBUTTON GROUP rgp1.
    CHECK SY-UCOMM EQ 'ONLI' OR SY-UCOMM EQ 'CRET' .
    Download
      IF r_dwnld = c_check.
    Material Screen Call
        IF r_matplt = c_check.
          CLEAR p_werks7.
          sree = 'A'.
          CALL SELECTION-SCREEN 170.
          ENDIF.
    Material Storage Screen Call
        IF r_matstr = c_check.
          CLEAR p_werks1.
          sree = 'B'.
          CALL SELECTION-SCREEN 110.
        ENDIF.
    Material Handling Screen Call
        IF r_mathan = c_check.
          CLEAR p_werks2.
          sree = 'C'.
          CALL SELECTION-SCREEN 120.
        ENDIF.
    Material Pick/Up Delivery Screen Call
        IF r_pcdt = c_check.
          CLEAR p_werks3.
          sree = 'D'.
          CALL SELECTION-SCREEN 130.
        ENDIF.
    Material Inboundlogistics Screen Call
        IF r_inlogs = c_check.
          CLEAR p_werks4.
          sree = 'E'.
          CALL SELECTION-SCREEN 140.
        ENDIF.
    Material Packaging Screen Call
        IF r_pkng = c_check.
          CLEAR p_werks5.
          sree = 'F'.
          CALL SELECTION-SCREEN 150.
        ENDIF.
      ENDIF.
    Upload Screen Call
      IF r_upld = c_check.
        IF ( r_matplt = c_check OR
           r_matstr = c_check OR
           r_mathan = c_check OR
           r_pcdt   = c_check OR
           r_inlogs = c_check OR
           r_pkng   = c_check  ).
          CLEAR p_uload.
          sree = 'G'.
          CALL SELECTION-SCREEN 160.
        ENDIF.
      ENDIF.
         s T A R T - O F - S E L E C T I O N
    START-OF-SELECTION.
    DOWNLOAD
      CASE sree.
        WHEN 'A'.
    Select Material Details
          PERFORM get_material_data.
          IF NOT tbl_matplt[] IS INITIAL.
            IF p_dalv7 = c_check.
    Display list in ALV
              PERFORM setup_alv_report.
            ELSE.
    Download Storage data into local file
              PERFORM download_file USING  p_matdet.
            ENDIF.
          ELSE.
            MESSAGE s020.
          ENDIF.
          CALL SELECTION-SCREEN 170.
    Select Material storage data
        WHEN 'B'.
          PERFORM get_storage_data.
          IF NOT tbl_matstr[] IS INITIAL.
            IF p_dalv1 = c_check.
    Display list in ALV
              PERFORM setup_alv_report.
            ELSE.
    Download Storage data into local file
              PERFORM download_file USING  p_matstr.
            ENDIF.
          ELSE.
            MESSAGE s020.
          ENDIF.
          CALL SELECTION-SCREEN 110.
    Select Material Handling data
        WHEN 'C'.
          PERFORM get_materialhandling.
          IF NOT tbl_mathand[] IS INITIAL.
            IF p_dalv2 = c_check.
    Display list in ALV
              PERFORM setup_alv_report.
            ELSE.
    Download Material Handling data into local file
              PERFORM download_file USING  p_mathan.
            ENDIF.
          ELSE.
            MESSAGE s020.
          ENDIF.
          CALL SELECTION-SCREEN 120.
    Select Pick/Up DayTime data
        WHEN 'D'.
          PERFORM get_pickup_delivery.
          IF NOT tbl_pcdel[] IS INITIAL.
            IF p_dalv3 = c_check.
    Display list in ALV
              PERFORM setup_alv_report.
            ELSE.
    Download Pick/Up DayTime data into local file
              PERFORM download_file USING  p_pcdt.
            ENDIF.
          ELSE.
            MESSAGE s020.
          ENDIF.
          CALL SELECTION-SCREEN 130.
    Select Inbound Logistics data
        WHEN 'E'.
          PERFORM get_inboundlogistics.
          IF NOT tbl_inlog[] IS INITIAL.
            IF p_dalv4 = c_check.
    Display list in ALV
              PERFORM setup_alv_report.
            ELSE.
    Download Inbound Logistics data into local file
              PERFORM download_file USING  p_inlogs.
            ENDIF.
          ELSE.
            MESSAGE s020.
          ENDIF.
          CALL SELECTION-SCREEN 140.
    Select Packaging data
        WHEN 'F'.
          PERFORM get_packaging.
          IF NOT tbl_pkng[] IS INITIAL.
            IF p_dalv5 = c_check.
    Display list in ALV
              PERFORM setup_alv_report.
            ELSE.
    Download Packaging data into local file
              PERFORM download_file USING  p_pkng.
            ENDIF.
          ELSE.
            MESSAGE s020.
          ENDIF.
          CALL SELECTION-SCREEN 150.
        WHEN 'G'.
    Material Details data upload
          IF r_matplt = c_check.
    Free memory IDs corresponding to upload tables
            PERFORM free_memory.
    Upload Material details from local file
            PERFORM load_file USING p_uload.
    Prepare data
            PERFORM prepare_mat_data.
    Get actual Material Details from ZP2_MATPLT
            PERFORM get_old_material_data.
    Validate new data against database entries
            PERFORM validate_material_data.
    Check Plant authorization
    Move plants to itab.
            REFRESH tbl_plts.
            LOOP AT tbl_matplt.
              tbl_plts-werks = tbl_matplt-werks.
              APPEND tbl_plts.
              CLEAR  tbl_plts.
            ENDLOOP.
            DELETE ADJACENT DUPLICATES FROM tbl_plts
            COMPARING werks.
    Check authoriztions
            PERFORM check_plant_authorization1 TABLES tbl_plts.
            REFRESH tbl_plts.
            IF p_trun IS INITIAL.
    Modify material data
              PERFORM modify_zp2_matplt.
            ENDIF.
    Material Storage data upload
            IF r_matstr = c_check.
    Free memory IDs corresponding to upload tables
              PERFORM free_memory.
    Upload material storage data from local file
       PERFORM load_matstr_data USING p_uload.
              PERFORM load_file USING p_uload.
    Get the material storage data from database
              PERFORM get_old_storage_data.
    Get material plant data for the corresponding
    Storage data.
              PERFORM get_matplt_data_storage.
    Get data from table fields
              PERFORM get_tblfld_values.
    Validate data against database entries
              PERFORM validate_storage_data.
    Check Plant authorization
    Move plants to itab.
              REFRESH tbl_plts.
              LOOP AT tbl_matstr.
                tbl_plts-werks = tbl_matstr-werks.
                APPEND tbl_plts.
                CLEAR  tbl_plts.
              ENDLOOP.
              DELETE ADJACENT DUPLICATES FROM tbl_plts
              COMPARING werks.
    Check authoriztions
              PERFORM check_plant_authorization1 TABLES tbl_plts.
              REFRESH tbl_plts.
              IF p_trun IS INITIAL.
    Modify material storage data
                PERFORM modify_zp2matstr_table.
              ENDIF.
            ENDIF.
    Material Handling data upload
            IF r_mathan = c_check.
    Free memory IDs corresponding to upload tables
              PERFORM free_memory.
    Upload material Handling data from local file
              PERFORM load_file USING p_uload.
    Get the material Handling data from database
              PERFORM get_old_materialhandling.
    Get material plant data for the corresponding
    handling data.
              PERFORM get_matplt_data_handling.
    Validate data against database entries
              PERFORM validate_handling_data.
    Check Plant authorization
    Move plants to itab.
              REFRESH tbl_plts.
              LOOP AT tbl_mathand.
                tbl_plts-werks = tbl_mathand-werks.
                APPEND tbl_plts.
                CLEAR  tbl_plts.
              ENDLOOP.
              DELETE ADJACENT DUPLICATES FROM tbl_plts
              COMPARING werks.
    Check authoriztions
              PERFORM check_plant_authorization1 TABLES tbl_plts.
              REFRESH tbl_plts.
              IF p_trun IS INITIAL.
    Modify material handling data
                PERFORM modify_zp2mathand_table.
              ENDIF.
       ELSEIF sy-ucomm = c_s.
         LEAVE SCREEN.
            ENDIF.
    Material Pick/Up DayTime data upload
            IF r_pcdt = c_check.
    Free memory IDs corresponding to upload tables
              PERFORM free_memory.
    Upload Pick/Up DayTime file data from local file
              PERFORM load_file USING p_uload.
    Get the Pick/Up DayTime data from database
              PERFORM get_old_pickup_delivery.
    Get Inbound logistics data corresponding to handling
              PERFORM get_inlogs_pcdel.
    Validate data against database entries
              PERFORM validate_pcdel_data.
    Check Plant authorization
    Move plants to itab.
              REFRESH tbl_plts.
              LOOP AT tbl_pcdel.
                tbl_plts-werks = tbl_pcdel-werks.
                APPEND tbl_plts.
                CLEAR  tbl_plts.
              ENDLOOP.
              DELETE ADJACENT DUPLICATES FROM tbl_plts
              COMPARING werks.
    Check authoriztions
              PERFORM check_plant_authorization1 TABLES tbl_plts.
              REFRESH tbl_plts.
              IF p_trun IS INITIAL.
    Modify Pick/Up DayTime table
                PERFORM modify_zp2pcdt_table.
              ENDIF.
       ELSEIF sy-ucomm = c_s.
         LEAVE SCREEN.
            ENDIF.
    Material Inbound Logistics data upload
            IF r_inlogs = c_check.
    Free memory IDs corresponding to upload tables
              PERFORM free_memory.
    Upload Inbound Logistics file data from local file
              PERFORM load_file USING p_uload.
    Get the Inbound Logistics data from database
              PERFORM get_old_inboundlogistics.
    Get data from table fields
              PERFORM get_tblfld_values.
    Get Vendor data
              PERFORM get_vendor_inlog.
    Get material plant data for the corresponding
    Inboundlogistics data.
              PERFORM get_matplt_data_inlog.
    Validate data against database entries
              PERFORM validate_inlog_data.
    Check Plant authorization
    Move plants to itab.
              REFRESH tbl_plts.
              LOOP AT tbl_inlog.
                tbl_plts-werks = tbl_inlog-werks.
                APPEND tbl_plts.
                CLEAR  tbl_plts.
              ENDLOOP.
              DELETE ADJACENT DUPLICATES FROM tbl_plts
              COMPARING werks.
    Check authoriztions
              PERFORM check_plant_authorization1 TABLES tbl_plts.
              REFRESH tbl_plts.
              IF p_trun IS INITIAL.
    Modify Inbound Logistics table
                PERFORM modify_zp2inlog_table.
              ENDIF.
            ENDIF.
    Packaging data upload
            IF r_pkng = c_check.
    Free memory IDs corresponding to upload tables
              PERFORM free_memory.
    Upload Packaging file data from local file
              PERFORM load_file USING p_uload.
    Get the Packaging data from database
              PERFORM get_old_packaging.
    Get material plant data for the corresponding
    Packaging data.
              PERFORM get_matplt_data_pkng.
    Get Vendor data
              PERFORM get_vendor_pkng.
    Get data from table fields
              PERFORM get_tblfld_values.
    Load Primary container reference data
              PERFORM primary_container_data.
    Validate data against database entries
              PERFORM validate_packaging_data.
    Check Plant authorization
    Move plants to itab.
              REFRESH tbl_plts.
              LOOP AT tbl_pkng.
                tbl_plts-werks = tbl_pkng-werks.
                APPEND tbl_plts.
                CLEAR  tbl_plts.
              ENDLOOP.
              DELETE ADJACENT DUPLICATES FROM tbl_plts
              COMPARING werks.
    Check authoriztions
              PERFORM check_plant_authorization1 TABLES tbl_plts.
              REFRESH tbl_plts.
              IF p_trun IS INITIAL.
    Modify Packaging data
                PERFORM modify_zp2pckg_table.
              ENDIF.
            ENDIF.
          ENDIF.
       IF p_trun = c_check.
    Display the Error list
        PERFORM display_result.
          CALL SELECTION-SCREEN 160.
      ENDIF.
      ENDCASE.
    Another problem is If i press BACK on the report output, it is coming to the default selection screen. and my requirement is, it should come to the corressponding user defined selection screen and not the default selection screen.
    PLz help me in this regard.. Iam breaking my heading, but could not able to solve it.
    Thanks in advance
    sree

    Hello,
    You must have defined user command for the radio button. This is not required. Just try putting it in at selection screen. AT SELECTION-SCREEN ON RADIOBUTTON GROUP rgp1.
    the moment the user clicks the radio button it will go to this event and call the screen. Just use AT SELECTION-SCREEN.
    Regards,
    Shekhar Kulkarni

  • Is it possible to change selection screen of logical database structure?

    I have to create a z report for a standard transaction FBL01N which is extracting data according to the vendor account number(LIFNR) at the selection screen. Now as per the requirement the system should extract details according to 'vendor name' keeping the same functionality.
    But the standard program is using some logical database structure KDB and the include for the selection screen is DBKDFSEL.So can I modify the selection screen of this transaction replacing Vendor No with Vendor Name.

    Hi..
    Refer this links
    http://help.sap.com/saphelp_46c/helpdata/en/9f/db9b8535c111d1829f0000e829fbfe/content.htm
    http://help.sap.com/saphelp_nw70/helpdata/en/9f/db9b8535c111d1829f0000e829fbfe/content.htm
    Hope this may b very helpful to u
    Sravani
    Plz reward points

Maybe you are looking for

  • Can't playback ProRes422 with Mac OS X 10.5.5 and QT 7.5.5

    I have a Quicktime file and the video track is ProRes422. When I try to play it I get audio only. I have Quicktime Pro so I opened the movie properties and I can see the video track but the "enabled" check box is not checked. The check box isn't gray

  • Why do Preview and other programs always open the most recently opened documents?

    This is a minor issue but it bugs me a lot because I never have more windows/documents up than necessary. Every time I open a PDF in Preview, it also opens up all the documents that were up when I quit Preview before. All the Office programs do the s

  • Ipod stopped working since downloading itunes 7

    Hi all, Downloaded itunes 7 and my ipod has stopped working. every time i connect the ipod it crashes my laptop. sometimes the laptop recovers so i restore the ipod but the music keeps skiping etc. ipod does make some strange sounds when running. has

  • Blank Projects vs. Responsive Projects

    I normally develop using the Captivate Blank Project as my customers are not normally concerned about responsiveness yet. However, I may be soon working for a new customer that may. So, I wanted to know a few things. 1. Can I make a Blank Project Res

  • ATG OBIEE 11.1.1.6.0 Integration

    I am new in ATG and tried to integrate with OBIEE 11.1.1.6.0 to get the out of box OBIEE reports. Can anyone confirm how the logs generated by ATG will be moved to the ATG loader queue. I am not able to configure it. I am not sure if the ATG Loader w