Retrieving Selection-Screen Button Variables

Hello,
Im currently doing a modification to a custom HR/Payroll report. I changed the report type to 1_MHR001 because I wanted the selections screen to include the 'Org. Structure' button, in order to allow easier hierarchical selection. The problem is that I need to make a comparison between the selected Organizational Units and a custom field, but I am not able to retrieve the values entered by the user. If you take a look at the image bellow, you'll see a blue square (covering the Organizational Unit field in the 'get PERNR' selection fields) and a red square (covering the top 'Org. Structure' button).
<a href="http://img442.imageshack.us/my.php?image=selscreenil8.png">Image of the selection screen...</a>
I can get the Organizational Unit values (pnporgeh) but I can't get to the values that are input by the user after pressing the 'Org. Structure' button. I thought they'd be placed in the same variable, but they are not.
How do I access those values? In what variable are they stored? How can I get that information (for future reference) ?
Thanks in advance,
Robert

Did you try something like below
data: l_selvalues type table of rsselread with header line,
      l_program   type sy-repid,
      l_workspace type wsid.
l_selvalues-name = 'P_WSID'.
l_selvalues-kind = 'P'.
append l_selvalues.
l_program = sy-repid.
call function 'RS_SELECTIONSCREEN_READ'
    exporting program     = l_program
    tables    fieldvalues = l_selvalues.

Similar Messages

How to create a variant for a selection screen button

hi ,
      i have created a selection screen for a normal report .
In the selection screen there is one button after the selct option for company code. when user enters some company code and presses the button the user i call a able contraol in which user gives some additional values for the comapny code.
how do i create variant. when i create varaint for the slection screen it does not take into account the other screen i called .
so every time user has to click that button and enter some values and execute. please suggest some way.
THANKX IN ADAVANCE:)

Hi,
      Inorder to create a variant for selection screen report, you need to enter valid data on the screen and click on the SAVE button which is available in the Menu.
      And regarding the button you were asking about after select option, it is not created manually it comes automatically,, you can remove this by mentioning no-extension after the select-option. You can get clear information of this if you do F1 help on select-option.
My advice to you, make effect use of F1 help.
Edited by: Madhuri on Sep 23, 2008 4:46 PM

Tool-tip text for Selection screen buttons.

Hi all,
Got another requirement and need your help.
I have a user-defined selection screen in my program. I would like to know if it is possible to have a tool-tip text ( quick info ) for the Pushbuttons on this selection screen.
Any help is appreciated.
Regards,
Anand Mandalika.

Function Buttons.
For report programs you declare the selection screen appearence with select-options, parameters and selection-screen commands, function key is one of them.
So a quick example
REPORT ZYX.
TYPE-POOLS: ICON.
TABLES: SSCRFIELDS.
DATA: WA_FNTXT TYPE SMP_DYNTXT.
SELECTION-SCREEN FUNCTION KEY 1.
INITIALIZATION.
WA_FNTXT-ICON_ID = ICON_GREEN_LIGHT.
WA_FNTXT-TEXT = 'Go Faster'.
WA_FNTXT-QUICKINFO = 'NO Speed Cameras'.
SSCRFIELDS-FUNCTXT_01 = WA_FNTXT.
AT SELECTION-SCREEN.
CASE SSCRFIELDS-UCOMM.
WHEN 'FC01'.
etc.

Filter value for variable selection screen

Hi & help !,
This could be a tricky or an easy question, but it seems too hard for me !
I'm storing version in my cube, and have a report which shows informations for the version you select (with a variable = ZVERSION01).
ex : Version :
V01
V02
V03
V04
When report is executed i have my variable selection screen (for variable ZVERSION01) which give all version [V01 -> V04]. But i want users have no access to version V01 & V02.
Variable ZVERSION01 is "single selection", i tried to filter with Default Values screen or Characteristic Restriction screen but it doesn't work.
ex : caracterisitic restriction screen : VERSION = !V01 / !V02
default value screen : variable VERSION = ZVERSION01
Any idea?
Thx

Hi,
In BI 7.0 there is Anaylysis authorisation RSECADMIN transaction. That you can use here or normal role concept will also do.
What you need to do is grant authorisation to the users for V03 and 04 version only and create 'Authorisation' type variable on version in the query. (type of variable - it asks while creating the variable). This way users will only be able to see authorised versions only.
Note you have to make version infoobject as Authorisation relevent infoobject. ( in infoobject properties).
Let me knw if you have any doubt.
Regards,
Viren

Set query selections in selection screen

Hi,
I have to do a query on which I need to have in the selection screen a variable that allows user to choose the selections he wants to see in the query. Have you done something similar?
I don't know how to do this or if this is feasible so any help would be very usefull.
Please try to help me because this is quite urgent.
Thanks in advance.
Regards,
Ana

Hi,
Try with below navigation
Run the report and go to the menu settings->Layout->Choose
and also go through this link
http://wiki.sdn.sap.com/wiki/display/ERPFI/Howtochange-setdefaultlayoutintransactionFBL1N%2CFBL3NandFBL5N
regards
kk

SELECTION-SCREEN with defined search help

Dear all,
I'd like to specify in my selection screen a variable that will contain the value to display when search help triggered.
DATA: w_lgort LIKE mard-lgort.
DATA: storage(4) TYPE c.
SELECT lgort INTO w_lgort FROM mard WHERE werks = 'p_plant'.
ENDSELECT.
storage = 'w_lgort'.
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-204.
PARAMETERS : p_plant LIKE zmm13jpn-mag_emetteur DEFAULT 'C300',
p_store LIKE (storage).
SELECTION-SCREEN END OF BLOCK bl1.
My idea would be that storage contains only result of above select while using LGORT data element.
Any idea?
Regards.

Hi cany,
report zabc.
parameters: p_bukrs type t001-bukrs,
p_butxt type t001-butxt,
p_ort01 type t001-ort01,
p_land1 type t001-land1.
data: dynfields type table of dynpread with header line.
data: return type table of ddshretval with header line.
at selection-screen on value-request for p_bukrs.
call function 'F4IF_FIELD_VALUE_REQUEST'
exporting
tabname = 'T001'
fieldname = 'BUKRS'
dynpprog = sy-cprog
dynpnr = sy-dynnr
dynprofield = 'P_BUKRS'
tables
return_tab = return
exceptions
field_not_found = 1
no_help_for_field = 2
inconsistent_help = 3
no_values_found = 4
others = 5.
break-point.
refresh dynfields.
read table return with key fieldname = 'P_BUKRS'.
Add it back to the dynpro.
dynfields-fieldname = return-retfield.
dynfields-fieldvalue = return-fieldval.
append dynfields.
Get the company code from db and add to dynpro
data: xt001 type t001.
clear xt001.
select single * into xt001
from t001
where bukrs = return-fieldval.
dynfields-fieldname = 'P_BUTXT'.
dynfields-fieldvalue = xt001-butxt.
append dynfields.
dynfields-fieldname = 'P_ORT01'.
dynfields-fieldvalue = xt001-ort01.
append dynfields.
dynfields-fieldname = 'P_LAND1'.
dynfields-fieldvalue = xt001-land1.
append dynfields.
Update the dynpro values.
call function 'DYNP_VALUES_UPDATE'
exporting
dyname = sy-cprog
dynumb = sy-dynnr
tables
dynpfields = dynfields
exceptions
others = 8.
start-of-selection.

Clear the selection screen cached values

Hello BW gurus,
Is there a way to clear the contents of the selection screen(cached variable values) whenever it is refreshed?
Thanks,
madhuri

Hi Madhuri,
Please check this link if any use let me know
http://help.sap.com/saphelp_crm50/helpdata/en/6e/798e07b33b11d5993800508b6b8b11/frameset.htm
thanks
Ranganath

How to clear parameters defined in selection screen on back button

Hi,
I have a report with parameters, few being input fields, and check boxes. After report is executed when user selects the back button, the selection screen is displayed again but with the old selection values. I want to clear them.
So in the Initialization even I added the code to clear all these parameters;
CLEAR: p_aaa, p_bbb, p_ccc.
I debugged and control passes through this code but still the fields are not cleared and they retain the old input values.
How to clear them ?
thnks

>
Rob Burbank wrote:
> Yes he did. My mistake.
>
> But isn't this what he wants? To clear the Selection screen so that something has to be entered?
>
> Rob
IMO, he only wants to clear the selection screen parameters on the click of 'BACK' button
in the list screen. If the OP clears the selection screen variables in AT SELECTION-SCREEN OUTPUT
even, the values assinged to the selection parameters in the INITIALIZATION and with the DEFAULT addition of the PARAMETERS and SELECTION-OPTIONS statements will also be overwritten even when the report is executed for the
first time.
-Rajesh.

How to add customize message on the variable selection screen in the query

Hi all,
Can we add an customise message on the variable selection screen in the query? If yes please let me know how it can be achevied?
Thanks,
Rani

Hi Rani,
I faced a similar issue (for what I understand your request is).
My requirement for the Variable Screen was to do:
1) place a link to a ppt file
2) remove buttons "Save", "Save As...), "Delete"... the standard buttons come when running the Query or WebTempl
We were using a Web Templ for BI7.0
I struggled trying to find out how to do it. My conclusions are:
- WAD, not sure we can accomplish it using a Web Template but i did not "play" a lot with the Web_Template Properties in order to know
- XHTML, I was told in my post HTML modification was the way, but I have close to nil background in HTML and couold not find the way of accessing the Variable Entry screen
For instance, I had to remove similar buttons and change some font size from a link on the Web Template (WAD), which was pretty straight forward. In WAD the buttons come with its own icon and to increase the Font size for that link we used XHTML (). But the heck of the variable screen...well, i just did not get trhough to it to modify it in any way.
Good luck,
Definetly in a Query I would say that no.
alex
PS: If anyone had a better insight, please feel free to share it.

Problem with variable in the woorkbook selection screen.

Hi All,
I have Problem with Variable in the selection screen. I have four variable in the report in this sequence
Plant (optional), calendar month (mandatory), material (optional), Customer (mandatory). 
In Development system, I changed the query to fix the problem for a formula. saved and executed the query. In the selection screen appeared four variables and executed. after executing the query and I saved the work book also. I logged out of the Bex Analyzer. In the RSRT I generated the report by clicking the Generated Report push button. and again logged into the Bex analyzer and ran the work book, now in the selection screen, appeared three Variables only, I am missing the variable Customer.
The old report which is already in the Production system is working fine. What could be the mistake I did in the development system.
It is very urgent, I need to deliver this object as soon as possible.
Can I anybody help on the same.
Thanks in advance
Narendra

Yunus,
I did what you said. I removed the variable from characteristic restrictions, saved the query and executed the query, appeared three variables Plant, Calender month and material. executed and saved the work book. disconeted from Bex analyzer, in RSRT Generated Report and logged into Bex analyzer ran the work book for selection Plant, calender month and material and went into change query definition and added the variable for customer which was removed earlier and and ran the query for selections Plant, Calender monmth, Material and customer. saved the work book. disconnected from Bex analyzer and closed all excel sheets and work books. In RSRT Generated Report and again connected to Bex analyzer and ran the work book, now appeared only three variables again missed variable customer.
Yunus does any missed n the procedure what i did.
It is helped what Chris was answered.
Many Many Thaks for your time and replies.
Thaks in advance
Narendra

Limit list of values in variable selection screen

Hi
Apologies if this has been asked / answered elsewhere, but I thought I would put it out there, at least while I continue trying to find a solution.
We have a requirement to limit the data from which a user is allowed to select values in the variable selection screen. I know how to write the ABAP code that will return the list of data from which the user can choose, but not sure how to implement that in the query variable.
Essentially, the BEx query needs an input on username, and the current user should be able to choose from a list of usernames. That list of usernames should only be usernames to which the current user has access.
Don't worry about the linking of current user to user names, that is taken care of in our DSO.
What I am after, is limiting the data that comes back when the "F4 Help" type button is pressed on the variable screen.
I can default a value in the customer exit variable using ABAP code in the i_step = 1 loop, but that doesn't seem to effect the list of data available for selection.
Any decent ideas?
Cheers,
Andrew

Hi Andrew,
As charlie suggested go for Analysis authorization that is the simplest approach to restrict values for any object, in another way you can use following BADI for value restriction using ABAP code, refer the below link.
[http://www.consolut.com/en/s/sap-ides-access/d/s/doc/YY-BW_BADI_F4]
By using customer exit you can only populate default values but you will not be able to restrict F4 help values.
Regards,
Durgesh.

0ORGUNIT short text displayed in variable selection screen

Hello experts,
I use the 0ORGUNIT as variable in the selection screen, when i use the selection button, the 0ORGUNIT is displayed as a hierarchy but the text are in short text.
In the query, the text are well displayed in Medium-Lenght text.
Where can i defined the parameter to obtain the same lenght for the selection screen?
Thanks,
Regards.

Hello GALVAGNI,
Go to the administrator of your InfoProvider and go to the dimension of your InfoObject 0ORGUNIT, right-click over 0ORGUNIT there and select "Provider-Specific Properties" then change the option Display to "5 Medium-Length Text".
Assign points if helpfull.
Diogo.

I want to execute selection screen by pressing enter button

Hi,
I have a requirement like after giveing values in selection screen I want to execute it by pressing enter button not by pressing execute button.
Please give some sample code if u have any solution.
Thanks & Regards
Venkatrami Reddy B

Hi,
You can achive this.
You just need to do all your coding under even AT SELECTION-SCREEN OUTPUT.
But you have to put a check also say counter.
Define a variable of type integer and then put the check on the mail block of code (whole program eccept selection screen) as mentioned below.
IF lv_count > 1.
program lines..
ENDIF.
lv_count = lv_count + 1.
Regards,
Raj Gupta

Report should executed based on the radio buttons on the selection screen

Hi everyone,
Greets....................
My scenario is I have 2 selection screen blocks on same screen..
One selection screen block contains input parameters as follows
Company Code - S_BUKRS
Business Area - S_GSBER
Customer Code - S_KUNNR
Fiscal Area - S_GJAHR
GL Account - S_HKONT
Posting Date -S_ZFBDT
Ledger Type -P_RLDNR
Open Item Key Date - P_ZFBDT
Another selection screen block contains 2 radio buttons with the option as follows
Collection Plan
*Credit days summary.
If i click Collection plan the report output should come based on the input parameters in first selection-screen block.
If i click Credit days summary the report output should come based on the input parameters in first selection-screen block.
Pls send me the sample code for this.
Thanks in Advance
Regards
Raj kumar

See the below folling example : it will have radio buttons and depends on radio button it will show output.
REPORT ZPPR_BOM_INFOL_REPORT no standard page heading
 line-size 160
 line-count 60.
======================================================================
Program Name : ZPPR_BOM_INFOL_REPORT
Description : This Program would be used for BOM List for a material*
 and the component's where used list *
Author : Seshu *
Date : 07/24/2006 *
MODIFICATION HISTORY *
DATE | AUTHOR | CHANGE # | DESCRIPTION OF MODIFICATION *
|----
|----
|----
*12/04/06 | Seshu | DEVK921821 | Removed new page for each material *
======================================================================
Table definition *
TABLES: mast,
 stko,
 stpo,
 T418,
 makt.
TYPE - POOLS
TYPE-POOLS: slis.
Constants
constants : c_tcode(4) type c value 'CS03',
 gc_formname_top_of_page TYPE slis_formname
 VALUE 'TOP_OF_PAGE'.
Variables
data : v_maktx like makt-maktx,
 wa_stko like stko.
DATA:
Objekttyp 'Material'
 otyp_mat(1) TYPE c VALUE '1',
 ootyp_mat(1) TYPE c VALUE 'M',
Objekttyp 'kein Objekt'
 otyp_noo(1) TYPE c VALUE '2',
Objekttyp 'Dokument'
 otyp_doc(1) TYPE c VALUE '3',
Objekttyp 'Klasse'
 otyp_kla(1) TYPE c VALUE '4',
Objekttyp 'Intramaterial'
 otyp_ntm(1) TYPE c VALUE '5'.
maximal anzeigbare Menge
data: max_num(7) TYPE p DECIMALS 3 VALUE '9999999999.999',
 ueberl_kz(1) TYPE c VALUE '*',
 min_num(7) TYPE p DECIMALS 3 VALUE '9999999999.999-',
 b_flag(1) TYPE c VALUE 'X',
 ecfld(250) TYPE c,
 v_flag type c.
ALV Variables
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
 gs_layout TYPE slis_layout_alv,
 gs_keyinfo TYPE slis_keyinfo_alv,
 gt_sp_group TYPE slis_t_sp_group_alv,
 gt_events TYPE slis_t_event.
DATA: g_repid LIKE sy-repid.
DATA: gt_list_top_of_page TYPE slis_t_listheader,
 g_tabname_header TYPE slis_tabname,
 g_tabname_item TYPE slis_tabname,
 g_save(1) TYPE c,
 gx_variant LIKE disvariant,
 g_variant LIKE disvariant,
 g_default(1) TYPE c,
 g_exit(1) TYPE c.
Includes *
INCLUDE .
Internal Table Declaration *
DATA: t_mast LIKE STANDARD TABLE OF mast WITH HEADER LINE.
*DATA: t_makt LIKE STANDARD TABLE OF makt WITH HEADER LINE.
BOM Function module Related
DATA: t_matcat LIKE cscmat OCCURS 0 WITH HEADER LINE.
Internal Table for Level by Level Function module
DATA: t_stb LIKE stpox OCCURS 0 WITH HEADER LINE.
Get the Relevant data from FM
DATA: BEGIN OF hd_tab OCCURS 0,
 stufe LIKE stpox-stufe,
 vwegx LIKE stpox-vwegx,
 END OF hd_tab.
Final Output
DATA: BEGIN OF alv_stb OCCURS 0.
 INCLUDE STRUCTURE stpox_alv.
DATA: info(3) TYPE c,
 END OF alv_stb.
DATA: BEGIN OF stb_orig.
 INCLUDE STRUCTURE stpox.
DATA: END OF stb_orig.
DATA: BEGIN OF stb_add.
 INCLUDE STRUCTURE stpol_add.
DATA: END OF stb_add.
Internal Table for STPO
*-- BOM Line item
TYPES: BEGIN OF ty_stpo,
 stlty TYPE stpo-stlty,
 stlnr TYPE stpo-stlnr,
 stlkn TYPE stpo-stlkn,
 stpoz TYPE stpo-stpoz,
 idnrk TYPE stpo-idnrk,
 meins TYPE stpo-meins,
 menge TYPE stpo-menge, "Component Qty
 END OF ty_stpo.
DATA: t_stpo TYPE STANDARD TABLE OF ty_stpo WITH HEADER LINE.
*-- BOM Header
TYPES: BEGIN OF ty_stko,
 stlty TYPE stko-stlty,
 stlnr TYPE stko-stlnr,
 stlal TYPE stko-stlal,
 stkoz TYPE stko-stkoz,
 bmein TYPE stko-bmein,
 bmeng TYPE stko-bmeng,
 END OF ty_stko.
DATA: t_stko TYPE STANDARD TABLE OF ty_stko WITH HEADER LINE .
data : t_makt like makt occurs 0 with header line.
DATA: BEGIN OF cl_clstab OCCURS 0, "YHG079407
 class LIKE klah-class, "YHG079407
 klart LIKE klah-klart, "YHG079407
 chked LIKE csdata-xfeld, "YHG079407
 noobj LIKE csdata-xfeld, "YHG079407
 dsply LIKE csdata-xfeld, "YHG079407
 END OF cl_clstab.
*-- Header table
TYPES: BEGIN OF ty_main_material,
 matnr TYPE mast-matnr, "Material
 werks TYPE mast-werks, "Plant
 maktx TYPE makt-maktx, "Description
 stlal TYPE mast-stlal, "Alternative BOM
 stlnr TYPE stko-stlnr, "BOM Number
 bmein TYPE stko-bmein, "UOM
 bmeng TYPE stko-bmeng, "Base Qty
 expand(1) TYPE c, "Expanding Field
 END OF ty_main_material.
DATA: t_main_material TYPE STANDARD TABLE OF ty_main_material WITH
 HEADER LINE.
*-- Item (Component) Table
TYPES: BEGIN OF ty_item_material,
 matnr TYPE mast-matnr, "Material
 werks TYPE mast-werks, "Plant
 idnrk TYPE stpo-idnrk, "Component (Material)
 maktx TYPE makt-maktx, "Description
 stlal TYPE mast-stlal, "Alternative BOM
 stlnr TYPE stpo-stlnr, "BOM Number
 meins TYPE stpo-meins, "UOM
 menge TYPE stpo-menge, "Base Qty
 END OF ty_item_material.
DATA: t_item_material TYPE STANDARD TABLE OF ty_item_material WITH
 HEADER LINE.
Selection Screen *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_werks LIKE marc-werks DEFAULT '1000' OBLIGATORY.
SELECT-OPTIONS s_stlal FOR mast-stlal .
SELECT-OPTIONS s_stlan FOR mast-stlan DEFAULT '1'.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECTION-SCREEN SKIP.
PARAMETERS: p_bomlst RADIOBUTTON GROUP g1 DEFAULT 'X'.
SELECT-OPTIONS s_matnr FOR mast-matnr.
SELECTION-SCREEN SKIP.
PARAMETERS: p_compon RADIOBUTTON GROUP g1.
SELECT-OPTIONS: s_idnrk FOR stpo-idnrk.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF BLOCK b1.
selection-screen begin of block b03 with frame title text-b03.
selection-screen begin of line.
selection-screen comment 1(40) text-005.
parameters: p_all radiobutton group r1 default 'X'.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(40) text-006.
parameters: p_one radiobutton group r1 .
selection-screen end of line.
selection-screen end of block b03.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS: p_vari LIKE disvariant-variant.
SELECTION-SCREEN END OF BLOCK b3.
At slection screen events *
*-- Process on value request
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
PERFORM f4_for_variant.
Intitialisation
INITIALIZATION.
g_repid = sy-repid.
g_tabname_header = 'T_MAIN_MATERIAL'.
g_tabname_item = 'T_ITEM_MATERIAL'.
*-- define keyinformation
CLEAR gs_keyinfo.
gs_keyinfo-header01 = 'MATNR'.
gs_keyinfo-item01 = 'MATNR'.
PERFORM e03_eventtab_build USING gt_events[].
PERFORM e04_comment_build USING gt_list_top_of_page[].
PERFORM e07_sp_group_build USING gt_sp_group[].
PERFORM e08_layout_build USING gs_layout.
Set Options: save variants userspecific or general
g_save = 'A'.
PERFORM variant_init.
Get default variant
gx_variant = g_variant.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
 EXPORTING
 i_save = g_save
 CHANGING
 cs_variant = gx_variant
 EXCEPTIONS
 not_found = 2.
IF sy-subrc = 0.
 p_vari = gx_variant-variant.
ENDIF.
S T A R T - O F - S E L E C T I O N *******************
start-of-selection.
if p_all = 'X'.
Get the data from MAST and MAKT Table
 if p_bomlst = 'X'.
Get the data Based On Material #
 perform get_data.
 else.
Get the data Based On Component
 perform get_data_component.
 endif.
else.
Get the Single Level Report
*-- Moved the fiedl catalog here inorder to change the layout based on
*-- Selection
 PERFORM e01_fieldcat_init USING gt_fieldcat[].
 PERFORM select_data.
endif.
E N D - O F - S E L E C T I O N *******************
end-of-selection.
if p_one = 'X'.
 perform alv.
endif.
User Command
at line-selection.
Interactive to CS03 Transaction
case sy-ucomm.
 when 'PICK' or 'F2'.
 if not alv_stb-idnrk is initial .
 if not alv_stb-werks is initial.
 if not alv_stb-objty is initial.
 SET PARAMETER ID 'MAT' FIELD alv_stb-idnrk.
 SET PARAMETER ID 'WRK' FIELD alv_stb-werks.
 SET PARAMETER ID 'CSV' FIELD alv_stb-OBJTY.
 call transaction c_tcode and skip first screen.
 endif.
 endif.
 endif.
 clear alv_stb.
endcase.
*& Form get_data
 Get data from MAST and MAKT Table
FORM get_data.
data : wa_lines type sy-index.
REFRESH : T_MAST,
 t_STB,
 t_MATCAT,
 alv_STB.
CLEAR : T_MAST,
 t_STB,
 t_MATCAT,
 alv_STB.
Get the data from MAST Table
Get all the information from MAST - BOM Table
SELECT * FROM mast INTO TABLE t_mast WHERE matnr IN s_matnr AND
 werks = p_werks AND
 stlan IN s_stlan AND
 stlal IN s_stlal.
describe table t_mast lines wa_lines.
if wa_lines is initial.
 Write:/2 'List contains no data'.
 stop.
endif.
loop at t_mast.
 clear : v_maktx.
Start of change Seshu
Reason - Remove the new page option
 if sy-tabix ne 1.
 skip 1.
 endif.
End of Change Seshu
Get the material Description
 select single maktx from makt into v_maktx
 where matnr = t_mast-matnr
 and spras = 'E'.
Get the material details from STKO Table
 select single * from stko into wa_stko
 where STLTY = 'M'
 and STLNR = t_mast-stlnr
 and STLAL = t_mast-stlal.
Main Header for Each Material
 format color 5 on.
 write:/2 'Material',20 'Material Description',65 'Alternative BOM',
 90 'Base Qty', 115 'Base Unit'.
 format color 5 off.
 format color 1 on.
 write:/2 t_mast-matnr,20 v_maktx,65 wa_stko-STLAL, 85 wa_stko-BMENG,
 115 wa_stko-BMEIN.
 format color 1 off.
Use the Function Module and get the format level by level
 perform get_level_level.
endloop.
ENDFORM. " get_data
Top of page *
top-of-page.
perform report_header .
*& Form report_header
 text
--> p1 text
<-- p2 text
FORM report_header.
new-page line-size 160 .
format color col_heading intensified on.
write:/ sy-uline(160) .
*--- Write Company Name.
perform calc_col_and_write using text-h00
 sy-linsz.
*--- Write Report Title.
perform calc_col_and_write using sy-title
 sy-linsz.
*--- Write User Id, Date / Time, Program Id, Page etc.
perform write_other_hdr_details.
write:/ sy-uline(160) .
ENDFORM. " report_header
*& Form calc_col_and_write
 text
 -->P_TEXT_H00 text
 -->P_SY_LINSZ text
FORM calc_col_and_write USING P_TEXT
 P_LINSZ.
data: col1 type i,
 col2 type i,
 len type i,
 str type i.
str = strlen( p_text ).
col1 = ( p_linsz / 2 ) - ( str / 2 ) .
len = p_linsz - col1 - 2.
write: at /1 '|'.
write: at col1 p_text,
 at sy-colno(len) space.
write at 160 '|'.
ENDFORM. " calc_col_and_write
*& Form write_other_hdr_details
 text
--> p1 text
<-- p2 text
FORM write_other_hdr_details.
data: col1 type i,
 col2 type i,
 len type i.
col1 = 3.
write:/1 '|'.
write: at col1 'UserId : ',
 sy-uname.
len = sy-linsz - 1.
write at sy-colno(len) space.
col2 = sy-linsz - 18.
write: at col2 'Date: ',
 sy-datum mm/dd/yyyy.
write: at sy-linsz '|'.
write:/1 '|'.
write: at col1 'ReportId: ',
 sy-repid.
write at sy-colno(len) space.
col2 = sy-linsz - 18.
write: at col2 'Page: ',
 sy-pagno.
write: at sy-linsz '|'.
ENDFORM. " write_other_hdr_details
*& Form get_data_component
 Get the data based on Component level
FORM get_data_component.
data wa_lines type i.
*-- Get the BOM item details
SELECT stlty stlnr stlkn stpoz idnrk meins menge
 FROM stpo
 INTO TABLE t_stpo
WHERE idnrk IN s_idnrk.
IF sy-subrc = 0.
 CLEAR wa_lines.
 DESCRIBE TABLE t_stpo LINES wa_lines.
 IF wa_lines > 0.
 SELECT stlty stlnr stlal stkoz bmein bmeng
 FROM stko
 INTO TABLE t_stko
 FOR ALL ENTRIES IN t_stpo
 WHERE stlnr = t_stpo-stlnr.
 CLEAR wa_lines.
 DELETE ADJACENT DUPLICATES FROM t_stko COMPARING ALL FIELDS.
 DESCRIBE TABLE t_stko LINES wa_lines.
 IF wa_lines > 0.
*-- Get the BOM item details
 SELECT * FROM mast INTO TABLE t_mast FOR ALL ENTRIES IN t_stko
 WHERE werks = p_werks AND
 stlnr = t_stko-stlnr
 and stlal in s_stlal.
 ENDIF.
 ENDIF.
else.
 Write:/2 'List contains no data'.
 stop.
endif.
loop at t_mast.
 clear : v_maktx.
Start of change Seshu
Reason - Remove the new page option
 if sy-tabix ne 1.
 skip 1.
 endif.
End of change Seshu
Get the material Description
 select single maktx from makt into v_maktx
 where matnr = t_mast-matnr
 and spras = 'E'.
Get the material details from STKO Table
 select single * from stko into wa_stko
 where STLTY = 'M'
 and STLNR = t_mast-stlnr
 and STLAL = t_mast-stlal.
Main Header for Each Material
 format color 5 on.
 write:/2 'Material',20 'Material Description',65 'Alternative BOM',
 90 'Base Qty', 115 'Base Unit'.
 format color 5 off.
 format color 1 on.
 write:/2 t_mast-matnr,20 v_maktx,65 wa_stko-STLAL, 85 wa_stko-BMENG,
 115 wa_stko-BMEIN.
 format color 1 off.
Use the Function Module and get the format level by level
 perform get_level_level.
 clear : t_mast.
endloop.
ENDFORM. " get_data_component
*& Form obj_ident
 text
FORM obj_ident.
weder Mat noch Doc
CHECK: T_stb-objty NE otyp_mat,
 T_stb-objty NE ootyp_mat,
 T_stb-objty NE otyp_doc,
 T_stb-objty NE otyp_ntm.
?T418-WA schon ok
nein
IF T_stb-postp NE t418-postp.
 T418 einlesen
 PERFORM t418_lesen USING T_stb-postp.
ENDIF.
PERFORM cl_clstab_maint.
?MatNr-Eingabe bei diesem PosTyp moeglich
und keine Textposition
trifft zu
IF t418-matin NE '-'
 AND t418-txpos IS INITIAL.
 aktuelles Objekt ist Material NLAG
 T_stb-objty = '1'.
 PosKurztext in ObjKurztext uebernehmen.
 T_stb-ojtxp = T_stb-potx1.
 MODIFY T_stb.
ELSE.
 IF T_stb-objty IS INITIAL.
 T_stb-objty = '2'.
 MODIFY T_stb.
 ENDIF.
ENDIF.
ENDFORM. " obj_ident
*& Form t418_lesen
 text
 -->P_T_STB_POSTP text
FORM t418_lesen USING lkl_postp LIKE stpo-postp.
T418-WA initialisieren
CLEAR:
 t418.
Key angeben
t418-postp = lkl_postp.
PosTypDefinition lesen
READ TABLE t418.
ENDFORM. " t418_lesen
*& Form cl_clstab_maint
 text
FORM cl_clstab_maint.
nur fuer Klassenpositionen
CHECK t_STB-OBJTY EQ OTYP_KLA.
Teilkey der Klassenpositionentabelle
CL_CLSTAB-CLASS = t_STB-CLASS.
CL_CLSTAB-KLART = t_STB-KLART.
Klassenpositionentabelle lesen
READ TABLE CL_CLSTAB
 WITH KEY CL_CLSTAB(21)
 BINARY SEARCH.
aktuelle Klassenposition bereits in Klassenpositionentabelle
nein
IF SY-SUBRC <> 0.
 Klassenposition in Klassenpositionentabelle hinzufuegen
 INSERT CL_CLSTAB INDEX SY-TABIX.
ENDIF.
ENDFORM. " cl_clstab_maint
*& Form alv_stb_prep
 Printing the data as LEVEL BY LEVEL
FORM alv_stb_prep.
CLEAR:
 alv_stb,
 stb_orig,
 stb_add.
IF t_stb-hdnfo IS INITIAL.
 stb_orig = t_stb.
 IF t_stb-mngko >= max_num.
 stb_add-ovfls = ueberl_kz.
 ELSE.
 IF t_stb-mngko <= min_num.
 stb_add-ovfls = ueberl_kz.
 ELSE.
 CLEAR: stb_add-ovfls.
 ENDIF.
 ENDIF.
 IF NOT t_stb-xtlnr IS INITIAL.
 stb_add-bomfl = b_flag.
 ENDIF.
 IF NOT t_stb-knobj IS INITIAL
 OR NOT t_stb-class IS INITIAL
 OR NOT t_stb-kzclb IS INITIAL.
 stb_add-knofl = 'X'.
 ENDIF.
ELSE.
 CHECK t_stb-stufe > 1.
 alv_stb-info = 'C30'.
 IF t_stb-ttidx <> t_matcat-index.
 READ TABLE t_matcat INDEX t_stb-ttidx.
 ENDIF.
 stb_orig-hdnfo = t_stb-hdnfo.
 stb_orig-stufe = t_stb-stufe - 1 .
 stb_orig-ojtxp = t_stb-ojtxb.
 IF NOT t_stb-altst IS INITIAL.
 stb_orig-stlal = t_stb-stlal.
 IF stb_orig-stlal(1) EQ '0'.
 stb_orig-stlal(1) = ' '.
 ENDIF.
 ENDIF.
 stb_orig-idnrk = t_matcat-matnr.
ENDIF.
CLEAR:
 stb_add-dobjt,
 stb_add-objic.
CASE t_stb-objty.
 WHEN otyp_mat.
 WRITE: stb_orig-idnrk TO ecfld.
 stb_add-objic = '@A6@'.
 WHEN 'M'.
 WRITE: stb_orig-idnrk TO ecfld.
 stb_add-objic = '@A6@'.
 WHEN otyp_noo.
 WRITE: stb_orig-potx1 TO ecfld.
 stb_add-objic = '@0Q@'.
 WHEN otyp_doc.
 write stb_orig-doknr to ecfld. "note 489354
 IF ecfld CP '*# '. ENDIF. "note 489354
 sy-fdpos = sy-fdpos + 1. "note 489354
 CONCATENATE
*d stb_orig-doknr "note 489354
 stb_orig-dokar
 stb_orig-doktl
 stb_orig-dokvr
*d INTO ecfld "note 489354
 INTO ecfld+sy-fdpos "note 489354
 SEPARATED BY space.
 stb_add-objic = '@AR@'.
 WHEN otyp_kla.
 CONCATENATE
 stb_orig-class
 stb_orig-klart
 INTO ecfld
 SEPARATED BY space.
 stb_add-objic = '@7C@'.
 WHEN otyp_ntm.
 WRITE: stb_orig-intrm TO ecfld.
 WHEN OTHERS.
ENDCASE.
*d CONDENSE ecfld. "note 515408
stb_add-dobjt = ecfld(40).
CLEAR: ecfld.
WRITE stb_orig-stufe TO stb_add-dstuf NO-SIGN.
*d MOVE-CORRESPONDING stb_orig TO alv_stb. "note 331962
MOVE-CORRESPONDING stb_add TO alv_stb.
MOVE-CORRESPONDING stb_orig TO alv_stb. "note 331962
APPEND alv_stb.
ENDFORM. " alv_stb_prep
*& Form get_level_level
 text
FORM get_level_level.
REFRESH : T_STB,
 T_MATCAT,
 ALV_STB.
CLEAR : T_STB,
 T_MATCAT,
 ALV_STB.
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
 EXPORTING
 capid = 'PP01'
 datuv = sy-datum
 mktls = 'X'
 mehrs = 'X'
 mtnrv = t_mast-matnr
 stlal = '01'
 stlan = '1'
 stpst = 0
 svwvo = 'X'
 werks = p_werks
 vrsvo = 'X'
 TABLES
 stb = t_stb
 matcat = t_matcat
 EXCEPTIONS
 alt_not_found = 1
 call_invalid = 2
 material_not_found = 3
 missing_authorization = 4
 no_bom_found = 5
 no_plant_data = 6
 no_suitable_bom_found = 7
 conversion_error = 8
 OTHERS = 9.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CLEAR: hd_tab.
 Entry der KlassenstatusTab. initialisieren
 cl_clstab,
 Entry 'Objekte von Klassen' initialisieren
 cl_objmemo.
REFRESH: hd_tab.
SORT t_matcat BY index ASCENDING.
Get the All levels
loop at t_stb.
 IF NOT t_stb-hdnfo IS INITIAL.
 EXIT.
 ENDIF.
Object Identification
 PERFORM obj_ident.
 READ TABLE hd_tab
 WITH KEY stufe = t_stb-stufe
 vwegx = t_stb-vwegx
 BINARY SEARCH
 TRANSPORTING NO FIELDS.
 ?gibt es diesen Satz schon
 nein
 IF sy-subrc <> 0.
 dann in SFP-Infosatzverweistab. aufnehmen
*d APPEND HD_TAB. "HGH054648
 hd_tab-stufe = t_stb-stufe.
 "HGH054648
 hd_tab-vwegx = t_stb-vwegx.
 "HGH054648
 INSERT hd_tab "HGH054648
 INTO hd_tab "HGH054648
 INDEX sy-tabix. "HGH054648
 PosNr initialisieren
 CLEAR: t_stb-posnr.
 SFP-InfosatzKz setzen
 t_stb-hdnfo = 'X'.
 stb-objty = otyp_mat.
 "HGE246532
 als SFP-Infosatz in die STB aufnehmen
 append t_stb.
 ENDIF.
*del ENDIF.
 clear t_stb.
endloop.
SORT t_stb ASCENDING BY stufe
 index ASCENDING
*del POSNR ASCENDING. "HGC062735
 posnr ASCENDING "HGC062735
 hdnfo DESCENDING.
LOOP AT t_stb.
 T_stb-index = sy-tabix.
 MODIFY T_stb.
 PERFORM alv_stb_prep.
ENDLOOP.
Displays the Value as Level by Level
loop at ALV_stb.
 if sy-tabix = 1.
 format color 3 on.
 write:/2 'Level',12 'Item',22 'Component',
 42 'Material Description',82 'Base Qty',
 107 'Base Unit',120 'Assembly Indicator'.
 format color 3 on.
 endif.
 if alv_stb-MEINs is initial.
 v_flag = 'X'.
 endif.
 if v_flag = 'X'.
 format color 5 on.
 write:/2 ALV_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP.
 format color 1 off.
 else.
 if alv_stb-STUFE = '1'.
 format color 1 on.
 write:/2 ALV_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs, 120 alv_stb-bomfl .
 format color 1 off.
 elseif alv_stb-STUFE = '2'.
 format color 2 on.
 write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs,120 alv_stb-bomfl.
 format color 2 off.
 elseif alv_stb-STUFE = '3'.
 format color 3 on.
 write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs,120 alv_stb-bomfl .
 format color 3 off.
 elseif alv_stb-STUFE = '4'.
 format color 4 on.
 write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs,120 alv_stb-bomfl .
 format color 4 off.
 elseif alv_stb-STUFE = '5'.
 format color 5 on.
 write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs,120 alv_stb-bomfl .
 format color 5 off.
 elseif alv_stb-STUFE = '6'.
 format color 7 on.
 write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs,120 alv_stb-bomfl.
 format color 6 off.
 elseif alv_stb-STUFE = '7'.
 format color 7 on.
 write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs,120 alv_stb-bomfl .
 format color 7 off.
 else.
 format color 1 on.
 write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs,120 alv_stb-bomfl .
 format color 1 off.
 endif.
 endif.
 hide: alv_stb.
 clear : alv_stb.
 clear v_flag.
endloop.
ENDFORM. " get_level_level
*& Form f4_for_variant
 text
FORM f4_for_variant.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
 EXPORTING
 is_variant = g_variant
 i_save = g_save
 i_tabname_header = g_tabname_header
 i_tabname_item = g_tabname_item
 it_default_fieldcat =
 IMPORTING
 e_exit = g_exit
 es_variant = gx_variant
 EXCEPTIONS
 not_found = 2.
IF sy-subrc = 2.
 MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
 IF g_exit = space.
 p_vari = gx_variant-variant.
 ENDIF.
ENDIF.
ENDFORM. " f4_for_variant
 FORM E03_EVENTTAB_BUILD *
--> E03_LT_EVENTS *
FORM e03_eventtab_build USING e03_lt_events TYPE slis_t_event.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = e03_lt_events.
READ TABLE e03_lt_events WITH KEY name = slis_ev_top_of_page
 INTO ls_event.
IF sy-subrc = 0.
 MOVE gc_formname_top_of_page TO ls_event-form.
 APPEND ls_event TO e03_lt_events.
ENDIF.
ENDFORM.
 FORM E04_COMMENT_BUILD *
--> E04_LT_TOP_OF_PAGE

Selection screen issue with hierarchy variable, due to compounding

Hello people,
I'm having this odd effect with a Hierarchy variable in the selection screen of a query, the IObject is 0PROFIT_CTR.
When I display the hierarchy values and pick up one of them, it returns ok to the sel.screen in this format: CO_AREA + "/" + ProfitCtr Value, example: "CANI/AR03". (CO_AREA is compounding of 0PROFIT_CTR).
Now, if I hit the "check" button in the selection screen, the system converts the value to an different one, by repeating twice the compounding (CO Area) value, therefore creating an incorrect value like this: "CANI/CANIAR03". Note the string after the "/" is supposed to have only the profit center value, however now has also CO Area value (repeated).
This value goes effectively to the query execution, but because this value does not exist, I get a message "SID value not found" and the effect is that the query does not get filtered by the value I picked up.
Note, the same happens if I go directly to the query execution without hitting the check button, as it seems internally the system its doing the same conversion before sending the value to the query.
I can't figure out if this is a problem of the variable, the hierarchy or the selection screen mechanism.... but I cannot find an explanation/solution.
I trust someone has already facing this!!
cheers and happy August to everyone.
Fernando

Sorry, but actually its the parent that needs tagging with "Never Share", not the level 0 member, so Alt_Entity1 and Alt_Entity2 etc, see Essbase DBA guide
understanding Implied
Sharing
The shared member property defines a shared data relationship explicitly. Some
members are shared even if you do not explicitly set them as shared. These
members are said to be implied shared members.
If you do not want a member to be shared implicitly, mark the parent as Never Share so
that the data is duplicated, and is not shared. See Understanding Shared Members for an
explanation of how shared members work.
So in the example above
Entity Dimension:
E1 (user has access)
E2
E3(user has access)
E4
Alt_Entity
Alt_Entity1 - Set to "Never Share"E1 (sharedmember)
Alt_Entity2E2 (sharedmember)
Alt_Entity3 - Set to "Never Share"E3 (sharedmember)
Alt_Entity4E4 (sharedmember
Thanks
Anthony

Retrieving Selection-Screen Button Variables

Similar Messages

Maybe you are looking for