How i can show the selection screen input field in the top of page in alv

hi ,
how i can show the selection screen input field in the top of page in alv grid output.
tell me the process

Hi,
excample from my program:
FORM topof_page.
DATA: l_it_header   TYPE TABLE OF slis_listheader WITH HEADER LINE,
        l_info        LIKE l_it_header-info.
DATA: l_it_textpool TYPE TABLE OF textpool WITH HEADER LINE.
DATA: l_key LIKE l_it_textpool-key.
READ TEXTPOOL c_repid INTO l_it_textpool LANGUAGE sy-langu.
DEFINE m_selinfo.
    if not &1 is initial.
      clear l_it_header.
      l_it_header-typ   = 'S'.
      l_key = '&1'.
      translate l_key to upper case.
      read table l_it_textpool with key key = l_key.
      if sy-subrc = 0.
        shift l_it_textpool-entry left deleting leading space.
        l_it_header-key = l_it_textpool-entry .
      endif.
      loop at &1.
        case &1-option.
          when 'EQ'
            or 'BT'
            or 'CP'.
            write &1-low to l_it_header-info.
          when others.
            write &1-low to l_it_header-info.
            concatenate &1-option
                        l_it_header-info
                   into l_it_header-info
                   separated by space.
        endcase.
        if not &1-high is initial.
          write &1-high to l_info left-justified.
          concatenate l_it_header-info
                      l_info
                 into l_it_header-info
                 separated by space.
        endif.
        if &1-sign = 'E'.
          concatenate ']'
                      l_it_header-info
                 into l_it_header-info.
        endif.
        append l_it_header.
        clear: l_it_header-key,
               l_it_header-info.
      endloop.
    endif.
END-OF-DEFINITION.
m_selinfo: s_trmdat,
             s_trmext,
             s_trmint,
             s_fkdat,
             s_delno,
             s_vbeln,
             s_deact,
             s_kdmat.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            it_list_commentary = l_it_header[].
ENDFORM.
I hope, this will help you.
Regards
Nicole

Similar Messages

How i can give date in each input for applying the exchange rate in Query.

Hi Gurus,
We have a requirement to create some currency conversion queries. In the selection screen user should be able to give four inputs. Like given below
Input 1.          a) key figures
                        b) Fiscal Year
                        c) Fiscal Period
                        d) Exchange Rate Type
                        e) Date (Exchange rate will be applied which is applicable on the given date)
Input 2.         a) key figures
                        b) Fiscal Year
                        c) Fiscal Period
                        d) Exchange Rate Type
                        e) Date (Exchange rate will be applied which is applicable on the given date)
Input 3.          a) key figures
                        b) Fiscal Year
                        c) Fiscal Period
                        d) Exchange Rate Type
                        e) Date (Exchange rate will be applied which is applicable on the given date)
Input 4.          a) key figures
                        b) Fiscal Year
                        c) Fiscal Period
                        d) Exchange Rate Type
                        e) Date (Exchange rate will be applied which is applicable on the given date)
So we will have 4 key figures in the query results with the exchange rate applied on the given date.
I will make four restricted key figures and make the query. I do not know how i can give date in each input for applying the exchange rate.
Please give your suggestions to resolve my problem.
Many thaks in advance.

You can not bring the key figures in the selection screen for the currency translation. Instead you can apply a currency translation type to respective key figures in the query definition.
The currency translation type can be defined in RSCUR transaction, where you can maintain the parameters like Exchange Rate Type, Exchange Rate Date etc.
You can refer one of my article on this at
http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/600157ec-44e5-2b10-abb0-dc9d06ba6c2f
Hope this helps.
Regards,
Yogesh

How to can we do selection-screen modification for LDB?

Hi All,
I have custom field in my selection-screen of LDB PNP.
Can you people please let me know how can I put the selection-screen modificaiton For ex:
i have created
parameters a as checbox.
select-options: p_btrtl for p0001-btrtl no-intervals.
now If the check box is selected then p_btrtl we can enter values or esle If check box is not selected then p_btrtl will be grayed out, ( I.e. SCREEN-INPUT = 0)
This is simple from ABAP without LDB. But with LDB can we achieve?????????????
Satish
Edited by: Satish Vasireddy on Jun 23, 2010 4:05 PM

you can use the following logic for the additional selection validation. I have done by using PNP LDB. Ex : I have done for one of the field in IT0377.
SELECT-OPTIONS: s_bplan FOR p0377-bplan.
*&      Form check_selection_0377
This subroutine is used to check the selection screen
FORM check_selection_0377.
LOOP AT p0377 WHERE pltyp IN s_bplan
                 AND levl1 IN s_lti
                 AND   begda LE pn-endda
                 AND   endda GE pn-begda.
    CALL FUNCTION 'HR_CHECK_AUTHORITY_INFTY'
      EXPORTING
        tclas            = 'A'
        pernr            = pernr-pernr
        infty            = p0377-infty
        subty            = p0377-subty
        begda            = pn-begda
        endda            = pn-endda
        level            = 'R'
      EXCEPTIONS
        no_authorization = 1
        internal_error   = 2
        OTHERS           = 3.
    IF NOT sy-subrc IS INITIAL.
      DELETE p0377.
    ENDIF.
ENDLOOP.
selection not found and no value selected
IF sy-subrc NE 0.
    READ TABLE s_bplan.
    IF sy-subrc EQ 0.
      REJECT.
    ENDIF.
    READ TABLE s_lti.
    IF sy-subrc EQ 0.
      REJECT.
    ENDIF.
ENDIF.
ENDFORM.                    " check_selection_0377
Regards,
Preetham

Splitting the date based on the selection screen input

Hi all,
In the Selection screen of my report i had maintained two fields
SELECT-OPTIONS : S_DATE    FOR TPCDATE-FROM_DATE.
PARAMETERS      : P_NUMBER TYPE ZMMAREA-NUMBER.
I need to code such that
S_DATE should be splitted into P_NUMBER times
for example if P_NUMBER is 4 i need S_DATE should be splitted into 4 equal parts or near by equal parts
                    IF P_NUMBER is 2 i need S_DATE should be splitted into 2 equal parts or near by equal parts
Please suggest me the code of if any Function module exists fot this date splitting
Thanks in advance
Ajay.D

though date question are not allowed, this requirement sounds little different.
you can take a difference between those days by: S_date-high - S_date-low.
then divide the difference by p_number. now you get the split positions.
now in a do enddo you can negate the dates by the split amount you got from the divisions.
like...
PARAMETERS: num type i.
select-OPTIONS: s_date for sy-datum.
data : gv_split type i, gv_temp type sy-datum.
gv_split = s_date-high - s_date-low.
gv_split = gv_split / num.
gv_temp = s_date-high.
do num times.
gv_temp = gv_temp - gv_split.
WRITE / gv_temp.
enddo.

Field catalog restriction with the selection screen input

Hi,
I am doing ALV grid report.In that I am facing problem,fieldcat has to display according to the input given in the selection screen.
my selection screen value is s_gstrp+4(2) that is month given inthe input.
     PERFORM FIELD_CATALOG TABLES IT_FIELDCAT
       USING: 'IT_COL_PLAF' 'PWWRK' 'X' 'Plant' ' ',
             'IT_COL_PLAF' 'MATNR' ' ' 'Material' ' ',
             'IT_COL_PLAF' 'MAKTX' ' ' 'Material description' ' ',
             'IT_COL_PLAF' 'MEINS' ' ' 'Unit' ' '.
      PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
                 'IT_COL_PLAF' 'GSMNG_01' ' ' 'Jan-Qty' ' '.
      PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
                 'IT_COL_PLAF' 'GSMNG_02' ' ' 'Feb-Qty' ' '.
        PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
                 'IT_COL_PLAF' 'GSMNG_03' ' ' 'Mar-Qty' ' '.
      PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
          'IT_COL_PLAF' 'GSMNG_04' ' ' 'Apr-Qty' ' '.
         PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
          'IT_COL_PLAF' 'GSMNG_05' ' ' 'May-Qty' ' '.
          PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
          'IT_COL_PLAF' 'GSMNG_06' ' ' 'Jun-Qty' ' '.
        PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
          'IT_COL_PLAF' 'GSMNG_07' ' ' 'Jul-Qty' ' '.
        PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
         'IT_COL_PLAF' 'GSMNG_08' ' ' 'Aug-Qty' ' '.
          PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
          'IT_COL_PLAF' 'GSMNG_09' ' ' 'Sep-Qty' ' '.
         PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
         'IT_COL_PLAF' 'GSMNG_10' ' ' 'Oct-Qty' ' '.
         PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
         'IT_COL_PLAF' 'GSMNG_11' ' ' 'Nov-Qty' ' '.
        PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
        'IT_COL_PLAF' 'GSMNG_12' ' ' 'Dec-Qty' ' '.
if month given in select-option : sep to dec ie,1.09.2009 to 31.12.2009.
then my field cat has to display,sep qty,oct,qty,nov qty,dec,qty.
Suggest some ideas.
regards,
Bathri

hi,
Use
if month ge 09 .
PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
          'IT_COL_PLAF' 'GSMNG_09' ' ' 'Sep-Qty' ' '.
endif.
if month ge 10.
         PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
         'IT_COL_PLAF' 'GSMNG_10' ' ' 'Oct-Qty' ' '.
endif.
if month ge 11.
         PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
         'IT_COL_PLAF' 'GSMNG_11' ' ' 'Nov-Qty' ' '.
endif.
if month ge 12.
        PERFORM FIELD_CATALOG TABLES IT_FIELDCAT USING:
        'IT_COL_PLAF' 'GSMNG_12' ' ' 'Dec-Qty' ' '.
endif.
if month given in select-option : sep to dec ie,1.09.2009 to 31.12.2009.
then my field cat has to display,sep qty,oct,qty,nov qty,dec,qty.
If if you give month in selection screen you will get relevant month details .
Regards
Nandan.N

How can we restrict the sub-screen input field for particluar country?

Hi all i am having infotype 21 maintained with custom fields for sub-screen 200.
Out of that custom fields(City , District) They restricted city field not to appear for australian employees.
and district is sucesfully appearing .
They have written logic in the sub-screen 200 in PBO.this is reflecting in alll sub-types of 21(alomst 20 subtypes)
module abc_output.
If T001P-MOLGA = 'australia'.
if screen name = 'city'.
screen-input = 'OFF'.
screen-invisible = 'ON'.
endif.
endif.
Now the requirement is that this logic should be modified such that this city should appear in 7 sub-type instead of district.
what should be written can any one guide please .
regards
sas

Hi we can do in this way.
If T001P-MOLGA = 'australia'
if p00021-subty ne '7'.
if screen name = 'city'.
screen-input = 'OFF'.
screen-invisible = 'ON'.
endif.
endif.
if p0021-subty = '7'.
if screen name = 'district'.
screen-input = 'OFF'.
endif.
endif.
Thanks and closing the thread
regards
sas

How to save changed data from a input field to the source structure

Hi,
I have a small problem with the onChange event with HTML input fields.
When changing a value of a input field or by creating a new value for a field the OnChange event is called by moving away the mouse pointer....
get_form_field( 'field_name' ).
But is it possible to write back the new value in the source field ls_screenstructure_field1 without using the OnInputProcessing?
I ask because my application´s structures have a lot of fields that should be filled and changed by input fields.
It´s not comfortable to request every new value with .. = request->get_form_field(... .
Thanks for helping.
Cheers,
André

you wanted a onchange for a htmlb:inputfield which would also trigger server event. try the following code.
<htmlb:inputField id            = "test"
                            alignment     = "LEFT"
                            size          = "6"
                            required      = "TRUE"
                            doValidate    = "TRUE"
                            type          = "INTEGER"
                             />
<bsp:htmlbEvent id="myid" onClick="myonclick" name="ValueChanged" />
<script for="test" event=onchange type="text/javascript">
alert(this.value);
ValueChanged();
</SCRIPT>
if the value in the inputfield is changed it would trigger a alert at the client side and also trigger a server event. now you can caputre the value in oninputprocessing.
Hope this helps.
do let us know if you need help in how to capture this value in oninputprocessing.
Regards
Raja

Compare the input filename in the selection screen

In the selection screen input field
there is an option of selecting the directory and file name and not the extension .
This is used to download the datas
Extension can be selected by using the option button
rtf
csv.
the user has to give only the filename and not the extension.
suppose if the user input is C:\temp\file1.rtf.
Either i should take only the filename
or i should display the message give only the filename and not the extension . its already been selected!!!!
I want to compare the input string contains .doc
how to do the comparison and to get the above results mentiond
Thanks in advance

Because the requirment is there are two option buttion for selecting the download file format
But unknowingly if the user gives the filename along with the extension. I need to handle that error
giving some error message or information message
By comparing the last 4 letters of the filename.. either.doc or rtf or csv or watever
so how to do that
then after comparing that i should give the user a msg doc type is already selected give only the filename
I hope u understand my req

Comapare the string value in the selection screen

In the selection screen input field
there is an option of selecting the directory and file name and not the extension .
This is used to download the datas
Extension can be selected by using the option button
rtf
csv.
the user has to give only the filename and not the extension.
suppose if the user input is C:\temp\file1.doc.
Either i should take only the filename
or i should display the message give only the filename and not the extension . its already been selected!!!!
I want to compare the input string contains .doc
how to do the comparison and to get the above results mentiond
Thanks
ABAPer

hi,
I have already done using the method given by you.
Because the requirment is there are two option buttion for selecting the download file format
But unknowingly if the user gives the filename along with the extension. I need to handle that error
giving some error message or information message
By comparing the last 4 letters of the filename.. either.doc or rtf or csv or watever
so how to do that
then after comparing that i should give the user a msg doc type is already selected give only the filename
I hope u understand my req
thanks

Retrieve input values from the selection screen

I have a requirement to retrieve the variable value or values inputed from the selection screen and label the worksheet tab to replace the tab name 'Sheet1' from the Excel. The only way to do this would be to write a macro to label the sheets but how would I retrieve the value(s) from the selection screen criteria? Is the value of the selection screen entered by the user stored in some table? How would I write the macro to retrieve this value?
For example, I want to retrieve the company code entered from the selection screen and lets say the company code entered as 10; I would want to replace the worksheet from 'Sheet1' to '10' . Texts would be more recognizable.

Use the option Layout->Display Text Elements->Variables from the BEx toolbar. This will display Variable screen user input on your workbook in a fixed location. Then you can use your macro to name the worksheet with the cell reference.
Thanks
Vineet

How to use MM/YYYY Format in the selection Screen?

There is this program RMCB0300 where the date format in the selection screen has MM/YYYY Format.
I am working on a report which requires it "Period" Field in the selection screen to be in the same format.
However, i am trying to give the select option as " SL_SPMON FOR S031-SPMON MODIF ID PER." and declaring S031 table in the declaration part.
But still, its not been able to provide me F4 help in the inpur screen.
Can someone please provide me some guidance in this regard?

Hi,
the following works for me..
*& Report ZPMONAT                                                     *
report zpmonat                                 .
tables: s031.
selection-screen begin of block abc.
select-options: sl_spmon for s031-spmon.
selection-screen end of block abc.
at selection-screen on value-request for sl_spmon-low.
perform monat_f4.
at selection-screen on value-request for sl_spmon-high.
perform monat_f4.
start-of-selection.
end-of-selection.
*&      Form monat_f4
*       text
* --> p1        text
* <-- p2        text
form monat_f4 .
data: begin of mf_dynpfields occurs 1.
          include structure dynpread.
data: end   of mf_dynpfields.
data: mf_returncode   like sy-subrc,
        mf_monat        like isellist-month,
        mf_hlp_repid    like sy-repid.
field-symbols: <mf_feld>.
* Wert von Dynpro lesen
get cursor field mf_dynpfields-fieldname.
append mf_dynpfields.
mf_hlp_repid = sy-repid.
do 2 times.
    call function 'DYNP_VALUES_READ'
      exporting
        dyname               = mf_hlp_repid
        dynumb               = sy-dynnr
      tables
        dynpfields           = mf_dynpfields
      exceptions
        invalid_abapworkarea = 01
        invalid_dynprofield = 02
        invalid_dynproname   = 03
        invalid_dynpronummer = 04
        invalid_request      = 05
        no_fielddescription = 06
        undefind_error       = 07.
    if sy-subrc = 3.
*     Aktuelles Dynpro ist Wertemengenbild
      mf_hlp_repid = 'SAPLALDB'.
    else.
      read table mf_dynpfields index 1.
*     Unterstriche durch Blanks ersetzen
      translate mf_dynpfields-fieldvalue using '_ '.
      exit.
    endif.
enddo.
if sy-subrc = 0.
*   Konvertierung ins interne Format
    call function 'CONVERSION_EXIT_PERI_INPUT'
      exporting
        input         = mf_dynpfields-fieldvalue
      importing
        output        = mf_monat
      exceptions
        error_message = 1.
    if mf_monat is initial.
*     Monat ist initial => Vorschlagswert aus akt. Datum ableiten
      mf_monat = sy-datlo(6).
    endif.
    call function 'POPUP_TO_SELECT_MONTH'
      exporting
        actual_month               = mf_monat
      importing
        selected_month             = mf_monat
        return_code                = mf_returncode
      exceptions
        factory_calendar_not_found = 01
        holiday_calendar_not_found = 02
        month_not_found            = 03.
    if sy-subrc = 0 and mf_returncode = 0.
*     ASSIGN (MF_DYNPFIELDS-FIELDNAME) TO <MF_FELD>. " ==>> note 148804
*     <MF_FELD> = MF_MONAT.
      call function 'CONVERSION_EXIT_PERI_OUTPUT'
        exporting
          input = mf_monat
        importing
          output = mf_dynpfields-fieldvalue.
      collect mf_dynpfields.
      call function 'DYNP_VALUES_UPDATE'
        exporting
          dyname               = mf_hlp_repid
          dynumb               = sy-dynnr
        tables
          dynpfields           = mf_dynpfields
        exceptions
          invalid_abapworkarea = 01
          invalid_dynprofield = 02
          invalid_dynproname   = 03
          invalid_dynpronummer = 04
          invalid_request      = 05
          no_fielddescription = 06
          undefind_error       = 07.           "<<== note 148804
    endif.
endif.
endform.                                                    " monat_f4
Regards,
Suresh Datti

To display the user login details in selection-screen( input screen )

HI Experts,
I have a requirement.
Assume there is a report on travel details. Report access has been given to all in the organization based on authorization level.
Before excecuting the report, in the selection-screen(input screen) itself I need to display the login user details.
suppose user A belongs to ITS-business unit and user B-belongs to RDS-business unit and Industry group-Multi markets.
so when User B logs into production system and try to access the report, in the selection screen, i need to display like
user-id-- XXXX          Business Unit---RDS             and IG -
Multi Markets
how to achieve this? User details will vary based on login.
Regards,
Praveen

check this
REPORT Z_demo.
*& Function Modules: HR_GET_EMPLOYEE_DATA
*&                    HR_IMAGE_EXISTS
*&                    SCMS_DOC_URL_READ
*&                    HR_IMAGE_RESET
*& Class & Methods : CL_GUI_DOCKING_CONTAINER
*&                    CL_GUI_PICTURE->SET_POSITION
*&                    CL_GUI_PICTURE->SET_DISPLAY_MODE
*&                    CL_GUI_PICTURE->DISPLAY_MODE_FIT
*&                    CL_GUI_PICTURE->LOAD_PICTURE_FROM_URL_ASYNC
*REPORT ZEMPLOYEE.
TABLES: PA0001, PERSON.
*----------------------Declaration for Image------------------------*
DATA: DOCKING_CONT TYPE REF TO CL_GUI_DOCKING_CONTAINER, " Custom Container
      PICTURE TYPE REF TO CL_GUI_PICTURE.
*--------------------Declaration of Internal table------------------*
DATA: ITAB_EMPDATA LIKE TABLE OF PERSON.
DATA: ITAB_DATA LIKE TABLE OF PERSON WITH HEADER LINE.
DATA: P_CONNECT_INFO LIKE TABLE OF TOAV0 WITH HEADER LINE.
DATA: P_DOCUMENT_TYPE LIKE TOAV0-RESERVE.
DATA: URL(255) TYPE C.
DATA: HANDLE TYPE I.
DATA: PPERNR TYPE PA0001-PERNR.
*----------------------Start of Selection Screen----------------------*
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE text-099.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN COMMENT 40(25) TEXT-010 .
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 20(15) TEXT-002 FOR FIELD PERNR.
PARAMETERS PERNR TYPE PA0001-PERNR.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 20(15) TEXT-008 FOR FIELD ENAME.
PARAMETERS ENAME TYPE PA0001-ENAME.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 20(15) TEXT-003 FOR FIELD PERSG.
PARAMETERS PERSG TYPE PA0001-PERSG.
SELECTION-SCREEN COMMENT 45(15) TEXT-009 FOR FIELD WERKS.
PARAMETERS WERKS TYPE PA0001-WERKS.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 20(15) TEXT-004 FOR FIELD PERSK.
PARAMETERS PERSK TYPE PA0001-PERSK.
SELECTION-SCREEN COMMENT 45(15) TEXT-005 FOR FIELD KOSTL.
PARAMETERS KOSTL TYPE PA0001-KOSTL.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 20(15) TEXT-006 FOR FIELD ORGEH.
PARAMETERS ORGEH TYPE PA0001-ORGEH.
PARAMETERS ORGEHTXT TYPE PERSON-ORGEH_TXT .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 20(15) TEXT-007 FOR FIELD PLANS.
PARAMETERS PLANS TYPE PA0001-PLANS.
PARAMETERS PLANSTXT TYPE PERSON-PLANS_TXT .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN END OF BLOCK B1.
*AT SELECTION-SCREEN OUTPUT.
AT SELECTION-SCREEN OUTPUT .
LOOP AT SCREEN.
    IF SCREEN-NAME = 'ENAME'
    OR SCREEN-NAME = 'PERSG'
    OR SCREEN-NAME = 'PERSK'
    OR SCREEN-NAME = 'KOSTL'
    OR SCREEN-NAME = 'WERKS'
    OR SCREEN-NAME = 'ORGEH'
    OR SCREEN-NAME = 'PLANS'
    OR SCREEN-NAME = 'ORGEHTXT'
    OR SCREEN-NAME = 'PLANSTXT'.
      SCREEN-INPUT = '0'.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
LOOP AT SCREEN.
    IF SCREEN-NAME = 'ORGEHTXT'
    OR SCREEN-NAME = 'PLANSTXT'.
      SCREEN-OUTPUT = '1'.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
PERFORM GET_PIC.
*AT SELECTION-SCREEN .
AT SELECTION-SCREEN .
PPERNR = PERNR.
CALL FUNCTION 'HR_GET_EMPLOYEE_DATA'
    EXPORTING
      PERSON_ID             = PPERNR
      SELECTION_BEGIN       = SY-DATUM
      SELECTION_END         = SY-DATUM
    IMPORTING
      PERSONAL_DATA         = ITAB_DATA
    EXCEPTIONS
      PERSON_NOT_FOUND      = 1
      NO_ACTIVE_INTEGRATION = 2
      OTHERS                = 3.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENAME = ITAB_DATA-ENAME.
PERSG = ITAB_DATA-PERSG.
PERSK = ITAB_DATA-PERSK.
ORGEH = ITAB_DATA-ORGEH.
PLANS = ITAB_DATA-PLANS.
KOSTL = ITAB_DATA-KOSTL.
WERKS = ITAB_DATA-WERKS.
ORGEHTXT = ITAB_DATA-ORGEH_TXT.
PLANSTXT = ITAB_DATA-PLANS_TXT.
*Function Module To check Existance of Image
CALL FUNCTION 'HR_IMAGE_EXISTS'
    EXPORTING
      P_PERNR        = PPERNR
    IMPORTING
      P_CONNECT_INFO = P_CONNECT_INFO
    EXCEPTIONS
      OTHERS         = 2.
     P_DOCUMENT_TYPE = P_CONNECT_INFO-RESERVE.
*Function Module To Get the URL of Image
CALL FUNCTION 'SCMS_DOC_URL_READ'
    EXPORTING
      STOR_CAT    = SPACE
      CREP_ID     = P_CONNECT_INFO-ARCHIV_ID
      DOC_ID      = P_CONNECT_INFO-ARC_DOC_ID
      COMP_ID     = 'DATA'
      DP_URL_ONLY = 'X'
    IMPORTING
      URL         = URL
    EXCEPTIONS
      OTHERS      = 10.
IF SY-SUBRC <> 0.
ENDIF.
*Method To load Image from URL
CALL METHOD PICTURE->LOAD_PICTURE_FROM_URL_ASYNC
    EXPORTING
      URL = URL.
IF SY-SUBRC NE 0.
ENDIF.
IF PPERNR NE PERNR.
*Function Module To Reset Image
    CALL FUNCTION 'HR_IMAGE_RESET'
      EXPORTING
        HANDLE         = HANDLE
      EXCEPTIONS
        INVALID_HANDLE = 1
        OTHERS         = 2.
    IF SY-SUBRC <> 0.
    ENDIF.
ENDIF.
*& Form Get_Pic
FORM GET_PIC.
DATA: REPID LIKE SY-REPID.
REPID = SY-REPID.
IF PICTURE IS INITIAL.
*Object To Create the Custom Container
    CREATE OBJECT PICTURE
      EXPORTING
        PARENT = DOCKING_CONT.
    CHECK SY-SUBRC = 0.
*Method To Set Position of Image
    CALL METHOD PICTURE->SET_POSITION
      EXPORTING
        HEIGHT = 47
        LEFT   = 610
        TOP    = 25
        WIDTH = 70.
*Method To Set Display Mode Fit to Container
    CALL METHOD PICTURE->SET_DISPLAY_MODE
      EXPORTING
        DISPLAY_MODE = CL_GUI_PICTURE=>DISPLAY_MODE_FIT.
ELSE.
*Function Module To Reset Image
    CALL FUNCTION 'HR_IMAGE_RESET'
      EXPORTING
        HANDLE         = HANDLE
      EXCEPTIONS
        INVALID_HANDLE = 1
        OTHERS         = 2.
    IF SY-SUBRC <> 0.
    ENDIF.
ENDIF.
ENDFORM. "Get_pic

How to create the selection screen dynamically

Hi,
I have a requirement to create the selection screen Dynamically. All the fields that should appear on the selection screen will be available in a custom table. So, based on the entries available in the Z tables, the selection screen should be built. Eg. If there are 10 records available in the Z table, the selection screen should consist of 10 fields. If there are 100 entries, the Selection screen should contain 100 fields. and the logic to build this selection screen should be carried out dynamically in the program.
Could anyone of you please share the valuable inputs on this. If anyone has the sample code to do this, please share.
Thanks in advance.
Regards,
Paddu.

Hi,
Kindly go through this sample program below:
DEMO_LIST_FORMAT_INPUT *and
check this function module:
FREE_SELECTIONS_DIALOG *.
Hope it helps
Regards
Mansi

How to create the list box in the selection screen.

hai friends..
i want to create the list box for the selection screen input boxes.
thanks,
velu.

hi..
1. There are two important things :
a)PARAMETERS : a(10) TYPE c AS LISTBOX VISIBLE LENGTH 10.
b) Fm VRM_SET_VALUES
2. just copy paste
3.
REPORT abc.
TYPE-POOLS : vrm.
DATA : v TYPE vrm_values.
DATA : vw LIKE LINE OF v.
PARAMETERS : a(10) TYPE c AS LISTBOX VISIBLE LENGTH 10.
INITIALIZATION.
vw-key = '1'.
vw-text = 'Jan'.
APPEND vw TO v.
vw-key = '2'.
vw-text = 'Feb'.
APPEND vw TO v.
vw-key = '3'.
vw-text = 'Mar'.
APPEND vw TO v.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'A'
values = v
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
regards,
veeresh

To display the selection screen variant name in WAD report output.

Hello experts,
I have a requirement which is to display the selection screen variant description in the output of the WAD report.
I managed halfway, by using the object "Information field", which displays all the values which are selected by the variant.
Example:I have created a cost center report created using WAD, since I need some graphical displays..
In the selection screen, I have the characteristic "cost center" as input field. I have created a variant " GM - IT" which will include few cost centers managed by GM. In the output, I want the dispaly to be "Cost center - GM IT". Currently it displays "Cost Center - a,b,c,d" as the values a,b,c,d are the values from the variant name "GM-IT"
Please let me know if this required any java script. I am not familiar with java / html codes and any help would be much appreciated (and rewarded)
Thanks in advance
KS

Hi,
Try this.
If you want to include your variables in your WAD means you have to choose "Force Variable Screen" option to be in enabled condition.
TO enable this,in WAD select your Template(New Template1) click the WEBITEM , it'll shows all generic properties , here you can enable this "Force variable screen"
Save and execute your WAD now you can get your variable screen.
Thanks,
JituK

How i can show the selection screen input field in the top of page in alv

Similar Messages

Maybe you are looking for