Selection Screen Title
how to set the title of a standard selection screen ?
Hai
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_matnr FOR mara-matnr.
SELECTION-SCREEN : SKIP.
PARAMETERS : p_mtart LIKE mara-mtart.
SELECTION-SCREEN : END OF BLOCK b1.
Double click on 'text-001'. give some meaningful Name
activate it and run thee report
Thanks & regards
Sreenivasulu P
Similar Messages
-
Default selection screen title
Hello experts,
In my report, I havent created a screen so that takes screen 1000 as default. My question here is, is there any way to use title for the screen 1000 which is default? I cannot create screen 1000 as its default.
when i run my report i want to get title with the parameters, select-options, etc...
Thanks in advance...
Regards,
Viral PatelHi Viral,
I think the screen 1000 which is coming by default is a selection screen. If my understanding is correct, then use like this:
SELECTION-SCREEN BEGIN OF BLOCK flight WITH FRAME TITLE text-001.
PARAMETERS: p_carrid TYPE sflight-carrid ,
p_connid TYPE sflight-connid .
SELECTION-SCREEN END OF BLOCK flight.
You can use 'with frame title' addition to the selection screen. and define the text 001 in GoTo -> text elements -> write number 001 and write the desciption of the title you want
Regards,
Swarna Munukoti. -
Change VA21 Screen Title from "Create Quotation" to "Create Reservation"
Hi Experts,
We are trying to change/edit the selection screen title of Transaction VA21 from "Create Quotation" to "Create Reservation".
The screen doesn't display the expected output when we changed the transaction title in SE93.
Please guide us on what to do.
I am generous enough to reward points for any contributions.
Many thanks,
Reymar EllazoYou need to change the TITLE which is used for that screen.
Go to SE41.
Put the program name SAPMV45B.
Select the "Title List"
Here You can see the A21, A22, A23 for the Quotation.
You need to change them to Reservation.
You will need the Access key to change this.
Regards,
Naimesh Patel -
How to display the sort value in the selection screen in the report title
Dear All,
How to display the sort value in the selection screen in the report title? I have selected a value in the selection screen for sorting , but i need that values by which i have sorted with in the report title. Can you please throw some light on this!!
Good day,
Thanks and regards
Arun SHi Arun,
Try this.
1, Set one dynamic parameter,
2, Drag and drop that parameter into your report title.
3, Pass the value(sort value) dynamically from your application,
4, Cheers..
Other wise Try with Dataset, create a dataset and fill thev alue into that.. Then set the data source from CR designer. and darg and drop that data column into the report.
Hope this will work,
Regards,
Salah
Edited by: salahudheen muhammed on Mar 25, 2009 11:13 AM -
How can i set a Title to Parameters(Selection-Screen)?
Hi,
i have a Selection-Screen with two Parameters. Both Parameters should be have an Title.
But how can I set a Title two this Parameters? Is there existing any options????
For example, the Parameters "I_WRBTR" and "I_NBDOCS" needs two Title´s.
Every Parameter must have a title, but how can I realize this???
*I have know only a title for "IWRBTR" but i need also a title for "I_NBDOCS"*_.
DATA: FIELD_BUKRS(10).
SELECTION-SCREEN BEGIN OF SCREEN 0100.
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
SELECT-OPTIONS SEL_BUKR FOR FIELD_BUKRS OBLIGATORY.
SELECTION-SCREEN BEGIN OF LINE, COMMENT (25) text-005 FOR FIELD IWRBTR_, POSITION 33.
PARAMETERS: I_WRBTR(10),
I_NBDOCS(3).
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN END OF SCREEN 0100.
Thanks for Helps.
ETNHi,
try this short example:
DATA: FIELD_BUKRS(10).
SELECTION-SCREEN BEGIN OF BLOCK BLOCK WITH FRAME TITLE T_BLOCK.
SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME TITLE T_BLOCK1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (29) T_SEL_BU.
SELECT-OPTIONS SEL_BUKR FOR FIELD_BUKRS OBLIGATORY.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK BLOCK1.
SELECTION-SCREEN BEGIN OF BLOCK BLOCK2 WITH FRAME TITLE T_BLOCK2.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (32) T_WRBTR.
PARAMETERS: I_WRBTR(10).
SELECTION-SCREEN COMMENT 50(15) T_NBDOCS.
PARAMETERS: I_NBDOCS(3).
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK BLOCK2.
SELECTION-SCREEN END OF BLOCK BLOCK.
INITIALIZATION.
T_BLOCK = 'parameter'.
T_BLOCK1 = '1. parameter'.
T_BLOCK2 = '2. parameter'.
T_SEL_BU = 'Buchungskreis'.
T_WRBTR = 'Parameter wrbtr'.
T_NBDOCS = 'Parameter nbdocs'.
Regards, Dieter -
How to haveour own titles/captions in selection screen & in column headings
we have SAP B1 2005 A, MS SQL 2005
though i am new to MSSQL/T-SQL programming, purely through lot of trials & errors i have learnt & managed to develop many reports/queries !
but, i am facing some problems : how to have our own captions/title for the options in selection screen & aso in reports/queries column headings.
e.g. :
for Customer Aging analysis, i would like to accept a set of 3 parameters (aging days) from the user. where the user may enter the values 30, 60 & 90 OR any other values.
i have the following codes for this purpose (considering my question's (over) size, only small portions of my program are given below)
declare @mdue1 int,
@mdue2 int,
@mdue3 int
set @mdue1 = [%1]
set @mdue2 = [%2]
set @mdue3 = [%3]
but, in the selection screen, the system displays "%1 Debit Amount Greater than" as the caption & 0.00 as the default value. the same is the case for the other two parameters [%2] & [%3] also.
i tried defining the variable @mdue1 as smallint & also tinyint, but the result is the same.
how to have our own captions/title for the options in selection screen instead of the ones displayed by t-sql based on our SELECT statement.
how to have our own column headings, dynamically defined/coined using variables instead of hard coded columns headings (within quotes).
e.g. in the select statement, instead of defining a column as '<= 30 Days' = T0.due_1
i would like to get the number of days from the user, who may enter 30 or 40 or whatever.
i would like to display the value that the user entered in the column heading using a variable say @mcol1
declare @mcol1 varchar(10)
set @mcol1 = '<= 'convert(varchar(10), @mdue1)' Days'
SELECT T0.CardCode,@mcol1 = T0.due_1 from #CustAging T0
but, this ends up in error.
i have already searched the net for ebooks, articles, etc. for a solution to this problem, but till now, i could not find any addressing these problems.
i have just registered in this forum with a hope to get a solution. thanks a lot in advance.
Thanks & Regards,
Raghu Iyer
Place : Vapi, Gujarat, Indiathanks a lot, lstvan.
i think, it i a good "trick" worth trying out.
well, i will now mark this question as answered, but still, if anyone has a direct solution "problem", please do share with us.
i am able to write queries (in fact, full fledged programs) in T-SQL & getting the desired output and for such a trivial thing i do not want to go for an add-on SDK module. but, considering the limitations of T-SQL and the complex requirements of real business world, i think, we have to go the .net way only.
regarding add-ons, i heard that add-ons will slow down SAP B1. is it true ?
Thanks & Regards,
Raghu iyer -
Hi.
How i can insert a title in this selection-screen:
SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE modifica.
PARAMETERS: manual RADIOBUTTON GROUP modf DEFAULT 'X',
fichero RADIOBUTTON GROUP modf.
SELECTION-SCREEN END OF BLOCK 2.
thanks.http://help.sap.com/saphelp_nw04/helpdata/en/e4/2adbec449911d1949c0000e8353423/content.htm
Eg.
SELECTION-SCREEN BEGIN OF BLOCK BL_1 WITH FRAME TITLE TEXT-000.
SELECTION-SCREEN BEGIN OF BLOCK BL_7.
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN END OF BLOCK BL_7.
SELECTION-SCREEN BEGIN OF BLOCK BL_2 WITH FRAME TITLE TEXT-001.
PARAMETERS: R1 RADIOBUTTON GROUP RAD1 DEFAULT 'X',
R2 RADIOBUTTON GROUP RAD1.
SELECTION-SCREEN END OF BLOCK BL_2.
SELECTION-SCREEN END OF BLOCK BL_1.
The plant selection screen.
SELECTION-SCREEN BEGIN OF SCREEN 1111.
SELECTION-SCREEN BEGIN OF BLOCK BL_4 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS S_WERKS FOR MARC-WERKS NO INTERVALS.
SELECTION-SCREEN INCLUDE : SELECT-OPTIONS S_MATNR.
SELECTION-SCREEN END OF BLOCK BL_4.
SELECTION-SCREEN END OF SCREEN 1111.
*The sales selection screen.
SELECTION-SCREEN BEGIN OF SCREEN 2222.
SELECTION-SCREEN BEGIN OF BLOCK BL_5 WITH FRAME TITLE TEXT-000.
SELECT-OPTIONS S_VKORG FOR MVKE-VKORG NO INTERVALS.
SELECTION-SCREEN INCLUDE : SELECT-OPTIONS S_MATNR.
SELECTION-SCREEN END OF BLOCK BL_5.
SELECTION-SCREEN END OF SCREEN 2222.
START-OF-SELECTION.
IF R1 = 'X'.
CALL SELECTION-SCREEN 1111.
ELSEIF R2 = 'X'.
CALL SELECTION-SCREEN 2222.
ENDIF.
http://help.sap.com/saphelp_nw2004s/helpdata/en/e7/deb237b9a9a968e10000009b38f8cf/content.htm
reward points if it is usefull ..
Girish -
Report Painter - title for selection screen
Hi
I have created a report for PCA within GRR1/2 transactions. When I run the report, at the initial screen where I select the period for example, there is no title on the screen, it just comes up as ": SelectioN". However when the report runs, I actually see the name of the report.
How do I add the name to the selection screen?Hi,
I believe, the name of selection screen comes from the name of the Report Group, but I could be wrong...
Regards,
Eli -
Title + subtitle on selection screen?
On executing the report that I am creating,
the selection screen should show a title and a subtitle below the title.
I put the title in the attributes of the report.
How should I define the subtitle to appear below this title?
ThX!Hi,
As Thomas said, it's not possible. In your "simulated screen capture", above the application toolbar (it contains the buttons execute + info), you have 2 titles, but only the title bar area is available in the SAP GUI. I think the most probable is that the person who asked you to develop that selection screen has made an error. Note: I tried to use the GOS toolbox container which is located in the left of the title bar, by inserting an HTML control with 2 lines (small title + even smaller subtitle, as the height of the title bar can't be changed), and that gives something very ugly :-D
Sandra -
IPad Netflix Title Selection Screen Freezes
(Totally tried to see if a similar issues was posted already, couldn't find one so apologizes in advance if this is redundant.)
I just recently got Netflix (A touch behind the times, I know.) and got it working on my computer right away. Next I downloaded the apps for both my iPhone 5 and my iPad 2 (Wifi-only). The issue I'm having is when I load up the Netflix selection screen and click on a title, the screen pops up with all the information about the title (how many episodes, synopsis, etc.) and the app just locks up at that point. The rest of the device is fine, I can access other apps and do other things, but the Netflix app is totally frozen until I reboot the device. I am only having this problem with my iPad, and I even tested my internet by using my iPhone - I used my data plan to launch the app (no problem, no glitches, no freezing) and then I switched it to "wireless only" and tried it again. Once again, no issues at all, so the problem only seems to be with my iPad. I can resume shows already in progress, it's just the title screen (so far - haven't gotten any further into the app yet than that) that seems to be locking it up. I spent some time working with a Netflix representative and they suggested the usual; reboot the device (check.), reboot the network and modem (check.), test with another device (check.), check with data versus wireless (Could only do this with my phone and not the iPad since it's only wireless.), call the ISP and have them do a modem reset on their end (check.) So, I've done all these things that the Netflix forum suggested and my ISP said to do... (I even did a speedtest to see what my wireless was kicking out and it was 5mbps (roughly) which is not super insane but should be enough to stream netflix... right??) So now I'm stuck. I don't know who else to ask except the Apple Community. Any thoughts? (Oh, and I made sure cookies are on. Saw some kinda-similar issues that were resolved with making sure cookies were on.)
Thanks in advance!Just an update on this - I haven't really done anything to fix it, but with time (maybe internet cycles, who knows?) it seems to be working okay most of the time. So, looks like resetting the internet and minimizing things that will eat bandwidth helps. Sorry there isn't more of a concrete resolution than this. If anyone has found anything more precise, please let me know! Thanks so much!
-
Selection Screen Bug :: Drop Down List.
Hi
I have created the following ABAP Report. I am new at this and I have just hit an issue. I have two drop down boxes linked to transactions. Now when I select a report from Drop Down 1 and click it it goes to the transaction. Now if I also have a selection in Drop Down 2 it actually runs both transactions.
How can i fix this?
Thanks
Adeel
REPORT TEST.
*TYPE POOLS DECLARATIONS
TYPE-POOLS: vrm.
TABLES: sscrfields.
*SELECTION SCREEN FIELDS
*DATA: c(20) TYPE c.
***********SELECTION-SCREENS**********************
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-tt1.
PARAMETERS: one(20) AS LISTBOX VISIBLE LENGTH 40.
PARAMETERS: two(20) AS LISTBOX VISIBLE LENGTH 40.
* ADD Afer 40 to show text "DEFAULT 'PLEASE SELECT'"
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK blk1.
*********DROP DOWN SELECTION WITH DESCP******************
AT SELECTION-SCREEN OUTPUT.
PERFORM ONE.
PERFORM TWO.
*& Form ONE
* text
FORM one.
DATA: name TYPE vrm_id,
list TYPE vrm_values,
value LIKE LINE OF list.
name = 'ONE'.
value-key = '1 ::'.
value-text = 'Stock Report'.
APPEND value TO list.
CLEAR value.
value-key = '2 ::'.
value-text = 'Open Sales Order Report'.
APPEND value TO list.
CLEAR value.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. "ONE
*& Form TWO
* text
FORM two.
DATA: name TYPE vrm_id,
list TYPE vrm_values,
value LIKE LINE OF list.
name = 'TWO'.
value-key = '1 ::'.
value-text = 'AS Stock Report'.
APPEND value TO list.
CLEAR value.
value-key = '2 ::'.
value-text = 'AS Open Sales Order Report'.
APPEND value TO list.
clear value.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. "TWO
***********LINKS TO ABOVE SELECTION**********************
START-OF-SELECTION.
IF ONE = '&IC1'.
CASE one.
WHEN '1 ::'.
CALL TRANSACTION 'MB5L' AND SKIP FIRST SCREEN.
WHEN '2 ::'.
CALL TRANSACTION 'ZSOD'.
ENDCASE.
ENDIF.
IF TWO = '&IC1'.
CASE two.
WHEN '1 ::'.
CALL TRANSACTION 'MB52' AND SKIP FIRST SCREEN.
WHEN '2 ::'.
CALL TRANSACTION 'ZSOD'.
ENDCASE.
ENDIF.Hi Now try this one,.
*TYPE POOLS DECLARATIONS
TYPE-POOLS: vrm.
TABLES: sscrfields.
*SELECTION SCREEN FIELDS *
DATA: c(20) TYPE c.
**********SELECTION-SCREENS*********************
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-tt1.
PARAMETERS: one(20) AS LISTBOX VISIBLE LENGTH 40.
PARAMETERS: two(20) AS LISTBOX VISIBLE LENGTH 40.
ADD Afer 40 to show text "DEFAULT 'PLEASE SELECT'"
SELECTION-SCREEN SKIP. SELECTION-SCREEN END OF BLOCK blk1.
********DROP DOWN SELECTION WITH DESCP*****************
AT SELECTION-SCREEN OUTPUT.
PERFORM one.
PERFORM two.
*& Form ONE
text ----------------------------------------------------------------------
FORM one.
DATA: name TYPE vrm_id,
list TYPE vrm_values,
value LIKE LINE OF list.
name = 'ONE'.
value-key = '1'.
value-text = 'Stock Report'.
APPEND value TO list.
CLEAR value.
value-key = '2'.
value-text = 'Open Sales Order Report'.
APPEND value TO list.
CLEAR value.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. "ONE
*& Form TWO
text ----------------------------------------------------------------------
FORM two.
DATA: name TYPE vrm_id,
list TYPE vrm_values,
value LIKE LINE OF list.
name = 'TWO'.
value-key = '1'.
value-text = 'AS Stock Report'.
APPEND value TO list.
CLEAR value.
value-key = '2'.
value-text = 'AS Open Sales Order Report'.
APPEND value TO list.
CLEAR value.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. "TWO
**********LINKS TO ABOVE SELECTION*********************
START-OF-SELECTION.
CASE one.
WHEN '1'.
CALL TRANSACTION 'MB5L'AND SKIP FIRST SCREEN.
WHEN '2'.
CALL TRANSACTION 'MM01'.
ENDCASE.
CASE two.
WHEN '1'.
CALL TRANSACTION 'MB52' AND SKIP FIRST SCREEN.
WHEN '2'.
CALL TRANSACTION 'MM01'.
ENDCASE.
Give the 1:: as 1 and 2:: as 2 it will work...
Regards,
Bharani
Edited by: SeethaRamaiah Bharani on Dec 18, 2009 8:10 PM -
How can I add a new field in selection screen for this report
*& Report ZGS_BARKODLA_HIZLI_GIRIS
report zgs_barkodla_hizli_giris.
tables: mara,
mseg,
mch1,
*mch1,
mkpf,
mchb ,
makt.
type-pools: esp1.
data: i_message_tab type esp1_message_tab_type,
wa_message_tab type esp1_message_wa_type ,
sc_count type i.
ALV
type-pools: slis, kkblo.
data: gs_layout type slis_layout_alv ,
gt_fldcat type slis_t_fieldcat_alv with header line,
gt_header type slis_t_listheader with header line,
gt_sortin type slis_t_sortinfo_alv with header line,
g_repid like sy-repid .
define add-fieldcat.
gt_fldcat-fieldname = &1.
gt_fldcat-ref_tabname = &2.
gt_fldcat-seltext_s = &3.
gt_fldcat-seltext_m = &3.
gt_fldcat-seltext_l = &3.
gt_fldcat-reptext_ddic = &3.
gt_fldcat-ddictxt = 'M'.
append gt_fldcat.
clear gt_fldcat.
end-of-definition.
types: begin of titab,
sel type xfeld,
matnr type matnr,
maktx type maktx,
charg type charg_d,
menge type menge_d,
erfmg type erfmg,
end of titab.
data : witab type titab.
data : itab type table of titab.
data : ok_code type sy-ucomm.
controls: tc_itab type tableview using screen 0100.
data: gv_header like bapi2017_gm_head_01,
gv_code like bapi2017_gm_code.
BAPI export parameters
data: gv_headret type bapi2017_gm_head_ret,
gv_matdoc type bapi2017_gm_head_ret-mat_doc,
gv_matyear type bapi2017_gm_head_ret-doc_year.
data : lv_objek like inob-objek .
data : ls_inob like inob .
data : imseg type ty_t_mseg.
data : wmseg type mseg.
data : answer.
data : count type i.
data : v_atinn type atinn.
BAPI movement details
data: i_goodsmvt_items type bapi2017_gm_item_create occurs 0
with header line.
data: i_return type bapiret2 occurs 0 with header line.
start-of-selection.
call function 'CONVERSION_EXIT_ATINN_INPUT'
exporting
input = 'Z_ORAN'
importing
output = v_atinn.
call screen 100.
*& Module status_0100 OUTPUT
module status_0100 output.
set pf-status '100'.
set titlebar '100'.
mseg-werks = 1000.
mseg-umwrk = 1000.
**added
sc_count = sc_count + 1.
if sc_count eq 1.
mseg-bwart = 313.
endif.
mkpf-budat = sy-datum.
**added
describe table itab lines tc_itab-lines.
endmodule. " status_0100 OUTPUT
*& Module user_command_0100 INPUT
module user_command_0100 input.
data field(20).
data: line_t like sy-index.
data: lines like sy-index.
data line_count like sy-loopc.
data: begin of cols,
screen like screen,
index type i,
selected(1) type c,
vislength like icon-oleng,
invisible(1) type c,
end of cols.
case ok_code.
when 'DELE'.
delete itab where sel eq 'X'.
when 'ENTE'.
check *mch1-charg is not initial.
read table itab into witab with key charg = *mch1-charg.
if not sy-subrc is initial.
witab-charg = *mch1-charg.
select single matnr from mch1 into witab-matnr
where charg eq witab-charg.
if not syst-subrc is initial.
set cursor field '*MCH1-CHARG'.
message e115(12) with *mch1-charg.
endif.
select single maktx from makt into witab-maktx
where matnr eq witab-matnr
and spras eq syst-langu.
witab-erfmg = 1.
concatenate witab-matnr witab-charg into lv_objek .
clear ls_inob .
select single * into ls_inob
from inob
where objek = lv_objek and
klart = '023' and
obtab = 'MCH1' .
select single atflv from ausp into witab-menge
where objek = ls_inob-cuobj and
klart = '023' .
append witab to itab.
**added
clear *mch1-charg.
**added
endif.
when 'SAVE'.
if mkpf-budat is initial.
set cursor field 'MKPF-BUDAT'.
message e055(00).
endif.
if mseg-lgort is initial.
set cursor field 'MSEG-LGORT'.
message e055(00).
endif.
if mseg-umlgo is initial.
set cursor field 'MSEG-UMLGO'.
message e055(00).
endif.
if mseg-bwart is initial.
set cursor field 'MSEG-BWART'.
message e055(00).
endif.
refresh imseg.
loop at itab into witab.
move-corresponding witab to wmseg.
append wmseg to imseg.
endloop.
call function 'ZMM_POPUP_WITH_DATA'
exporting
imseg = imseg
importing
answer = answer.
if answer eq 'Y'.
perform create_goods_movement.
endif.
when 'P--'.
clear ok_code.
perform paging using 'P--'.
set cursor field 'MARA-MATNR' line 1.
when 'P-'.
clear ok_code.
perform paging using 'P-'.
set cursor field 'MARA-MATNR' line 1.
when 'P+'.
clear ok_code.
clear lines.
perform paging using 'P+'.
set cursor field 'MARA-MATNR' line 1.
when 'P++'.
clear ok_code.
perform paging using 'P++'.
set cursor field 'MARA-MATNR' line 1.
when 'SORA'.
read table tc_itab-cols into cols with key selected = 'X'.
if sy-subrc is initial.
field = cols-screen.
field = field+5(10).
sort itab ascending by (field).
endif.
when 'SORZ'.
read table tc_itab-cols into cols with key selected = 'X'.
if sy-subrc is initial.
field = cols-screen.
field = field+5(10).
sort itab descending by (field).
endif.
when 'PRNT'.
perform write_alv.
endcase.
endmodule. " user_command_0100 INPUT
*& Module read_table OUTPUT
module read_table output.
mara-matnr = witab-matnr.
makt-maktx = witab-maktx.
mch1-charg = witab-charg.
mseg-menge = witab-menge.
mseg-erfmg = witab-erfmg.
line_count = sy-loopc.
endmodule. " read_table OUTPUT
*& Module write_table INPUT
module write_table input.
witab-matnr = mara-matnr.
witab-maktx = makt-maktx.
witab-charg = mch1-charg.
witab-menge = mseg-menge.
witab-erfmg = mseg-erfmg.
modify itab from witab index tc_itab-current_line.
endmodule. " write_table INPUT
*& Module exit INPUT
module exit input.
leave to screen 0 .
endmodule. " exit INPUT
*& Form create_goods_movement
form create_goods_movement .
clear : gv_header, i_return[], i_goodsmvt_items[].
gv_header-doc_date = gv_header-pstng_date = mkpf-budat.
gv_header-pr_uname = sy-uname.
GM with reference to reservation
loop at itab into witab.
i_goodsmvt_items-material = witab-matnr.
i_goodsmvt_items-entry_qnt = witab-erfmg.
i_goodsmvt_items-entry_uom = 'ST'.
i_goodsmvt_items-move_type = mseg-bwart.
i_goodsmvt_items-plant = mseg-werks.
i_goodsmvt_items-stge_loc = mseg-lgort.
i_goodsmvt_items-move_plant = mseg-umwrk.
i_goodsmvt_items-move_stloc = mseg-umlgo.
i_goodsmvt_items-batch = witab-charg.
append i_goodsmvt_items.
endloop.
find BAPI processing transaction
if gv_code is initial.
perform determine_bapi_code using mseg-bwart
changing gv_code.
endif.
call function 'BAPI_GOODSMVT_CREATE'
exporting
goodsmvt_header = gv_header
goodsmvt_code = gv_code
importing
goodsmvt_headret = gv_headret
materialdocument = gv_matdoc
matdocumentyear = gv_matyear
tables
goodsmvt_item = i_goodsmvt_items
return = i_return[].
cancel blocking process
loop at i_return where type eq 'E' or type eq 'A' or type eq 'X'.
exit.
endloop.
if sy-subrc ne 0.
refresh i_message_tab.
call function 'BAPI_TRANSACTION_COMMIT'
exporting
wait = 'X'.
wa_message_tab-msgid = 'M7'..
wa_message_tab-msgty = 'S'.
wa_message_tab-msgno = '060'.
wa_message_tab-msgv1 = gv_matdoc.
wa_message_tab-msgv2 = ''.
wa_message_tab-msgv3 = ''.
wa_message_tab-msgv4 = ''.
append wa_message_tab to i_message_tab.
else.
refresh i_message_tab.
call function 'BAPI_TRANSACTION_ROLLBACK'.
write a message as there is an unexpected error.
loop at i_return.
wa_message_tab-msgid = i_return-id.
wa_message_tab-msgty = i_return-type.
wa_message_tab-msgno = i_return-number.
wa_message_tab-msgv1 = i_return-message_v1.
wa_message_tab-msgv2 = i_return-message_v2.
wa_message_tab-msgv3 = i_return-message_v3.
wa_message_tab-msgv4 = i_return-message_v4.
append wa_message_tab to i_message_tab.
endloop.
endif.
call function 'C14Z_MESSAGES_SHOW_AS_POPUP'
tables
i_message_tab = i_message_tab.
endform. " create_goods_movement
*& Form determine_bapi_code
form determine_bapi_code using p_bwart type bwart
changing p_code type bapi2017_gm_code.
data: lt_t158b type table of t158b with header line.
clear p_code.
select tcode from t158b into corresponding fields of table lt_t158b
where bwart eq p_bwart.
loop at lt_t158b.
select single gmcode from t158g into p_code
where tcode eq lt_t158b-tcode.
if sy-subrc is initial.
exit.
endif.
endloop.
endform. " determine_bapi_code
*& Form paging
form paging using code.
data: i type i,
j type i.
case code.
when 'P--'. tc_itab-top_line = 1.
when 'P-'.
tc_itab-top_line = tc_itab-top_line - line_count.
if tc_itab-top_line le 0.
tc_itab-top_line = 1.
endif.
when 'P+'.
i = tc_itab-top_line + line_count.
j = tc_itab-lines - line_count + 1.
if j le 0.
j = 1.
endif.
if i le j.
tc_itab-top_line = i.
else.
tc_itab-top_line = j.
endif.
when 'P++'.
tc_itab-top_line = tc_itab-lines - line_count + 1.
if tc_itab-top_line le 0.
tc_itab-top_line = 1.
endif.
endcase.
endform. " paging
*& Form write_alv
form write_alv .
perform find_list_header.
perform fill_field_cat.
perform fill_sortinfo.
g_repid = sy-repid.
gs_layout-colwidth_optimize = 'X'.
gs_layout-zebra = 'X'.
answer = 'Y'.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_buffer_active = ''
i_callback_program = g_repid
i_save = 'A'
i_callback_top_of_page = 'TOP_OF_PAGE'
is_layout = gs_layout
it_fieldcat = gt_fldcat[]
it_sort = gt_sortin[]
tables
t_outtab = itab[].
endform. " write_alv
Form find_list_header
form find_list_header.
data : v_datum(10),
v_datlo(10),
v_dathi(10),
v_uzeit(8).
clear: gt_header, gt_header[].
gt_header-typ = 'H'.
gt_header-info = sy-title.
append gt_header.
clear gt_header.
gt_header-typ = 'S'.
gt_header-key = 'Çalıştırma Zamanı : '.
write syst-datum to v_datum.
write syst-uzeit to v_uzeit.
concatenate v_datum '/' v_uzeit into gt_header-info.
append gt_header.
endform. " find_list_header
Form fill_field_cat
form fill_field_cat.
refresh gt_fldcat.
clear gt_fldcat.
gt_fldcat-key = 'X'.
add-fieldcat 'MATNR' 'MARA' ''.
add-fieldcat 'MAKTX' 'MAKT' ''.
add-fieldcat 'CHARG' 'MSEG' ''.
gt_fldcat-do_sum = 'X'.
add-fieldcat 'MEINS' 'MARA' 'Olcu Birimi '.
gt_fldcat-do_sum = 'X'.
add-fieldcat 'ERFMG' 'MSEG' 'Adet'.
endform. " fill_field_cat
Form fill_sortinfo
form fill_sortinfo.
gt_sortin-up = 'X'.
gt_sortin-fieldname = 'MATNR'. append gt_sortin.
endform. " fill_sortinfo
Form top_of_page *
form top_of_page.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
i_logo = 'ZKUTAS'
it_list_commentary = gt_header[].
endform. " top_of_pageHI,
if it is a normal report program then you can directly create a Selection screen field.
After the Type-pool you can use Parameters or Select-options to create the selection screen field..
If it is a Modulpool program then you can create a selection scren field like
SELECTION-SCREEN BEGIN OF SCREEN 1100 AS SUBSCREEN.
PARAMETERS: p1(10) TYPE c.
SELECTION-SCREEN END OF SCREEN 1100.
defines a selection screens 1100 as subscreens.
The next screen number of screen 100 is 100 (statically-defined).
PROCESS BEFORE OUTPUT.
MODULE status_0100.
CALL SUBSCREEN area INCLUDING sy-repid number.
PROCESS AFTER INPUT.
MODULE cancel AT EXIT-COMMAND.
CALL SUBSCREEN area.
MODULE user_command_0100.
look at the below link
http://help.sap.com/saphelp_nw2004s/helpdata/en/e7/deb237b9a9a968e10000009b38f8cf/content.htm
Regards
Sudheer -
Hi,
I created a selection screen with 2 fields.
SELECTION-SCREEN begin of block selscr1 with frame title text-s01.
example-
PARAMETERS: p_ptr type BU_PARTNER,
p_typ type BU_TYPE.
SELECTION-SCREEN begin of block selscr2 with frame title text-s02
My question is -
when user selects BP value (like example 1000000005 - then i want to display corresponding values in bp type field(p_typ) ( i dont want to display all the values, i want to scrutinize the values and then display.)
can any one tell me how i can do this?
Thanks.
Sandhya.hi,
use at selection-screen output.
change the second field acording to u'r requirment.
The assignments to input fields in the event block AT SELECTION-SCREEN OUTPUT always affect the selection screen and overwrite the user inputs from previous displays of the same selection screen. .
regards,
chandu
Edited by: CHANDRASEKHAR KONDAPANENI on Mar 26, 2008 11:47 PM -
Regarding selection screen output
hi,
i have created ALV report by using selection screen.in this i have displayed kunnr field from kna1 table.
but it is showing someextra zero's and then code now i want to display only code not extra zero.here below i am giving example:----
sap code
00001562
but i want like this....
sap code
1562.
thanx/regards,
vaneet thakurTABLES : VBRK,KNA1.
TYPE-POOLS : SLIS.
DATA : T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
L_FIELDCAT TYPE SLIS_FIELDCAT_ALV, "DECLARATION OF FIELDCAT FOR OUTPUT DISPLAY
T_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA : BEGIN OF ITAB OCCURS 0,
VBELN LIKE VBRK-VBELN, "PO NUMBER
VTEG LIKE VBRK-VTWEG, "DC
SPART LIKE VBRK-SPART, "DIVISION
FKDAT LIKE VBRK-FKDAT, "DATE
KUNRG LIKE VBRK-KUNRG, "CUSTOMER PLANT
WERKS LIKE VBRK-WAERK, "SITE
VKORG LIKE VBRK-VKORG, "SALE ORGANIZATION
NAME1 LIKE KNA1-NAME1,
ORT01 LIKE KNA1-ORT01,
END OF ITAB.
SELECTION-SCREEN : BEGIN OF BLOCK VANEET WITH FRAME TITLE TEXT-001.
*SELECT-OPTIONS : SITE FOR VBRK-WAERK.
SELECT-OPTIONS : PCODE FOR VBRK-KUNRG.
*SELECT-OPTIONS : INVOICE FOR VBRK-VBELN.
SELECT-OPTIONS : S_ORG FOR VBRK-VKORG OBLIGATORY.
SELECT-OPTIONS : DC FOR VBRK-VTWEG OBLIGATORY.
SELECT-OPTIONS : DIVISION FOR VBRK-SPART obligatory.
*SELECT-OPTIONS : PO_DATE FOR VBRK-FKDAT.
SELECTION-SCREEN : END OF BLOCK VANEET.
SELECTION-SCREEN : BEGIN OF BLOCK VANEET1 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS : INVOICE FOR VBRK-VBELN.
SELECT-OPTIONS : PO_DATE FOR VBRK-FKDAT.
SELECTION-SCREEN : END OF BLOCK VANEET1.
*PERFORM TOP-OF-PAGE.
PERFORM FETCH-DATA.
*PERFORM DISP_DATA.
PERFORM T_FIELDCAT.
PERFORM REUSE_ALV.
**& Form TOP-OF-PAGE
text
--> p1 text
<-- p2 text
*FORM TOP-OF-PAGE .
*FORMAT COLOR 3 INTENSIFIED OFF.
*FORMAT COLOR 5 INTENSIFIED OFF.
*write : /48(120) 'NAHAR RETAIL LTD'.
*FORMAT COLOR 3 INTENSIFIED OFF.
*write : /48(120) 'FOCAL POINT'.
*FORMAT COLOR 6 INTENSIFIED OFF.
*write : /48(120) 'LUDHIANA'.
*write : / sy-uline.
*format color 4.
**WRITE: /1(20) 'INVOICENO',
25(15) 'SAP CODE',
55(15) 'PARTYNAME',
100(50) 'LOCATION'.
format color 7 INTENSIFIED ON.
*ENDFORM. " TOP-OF-PAGE
*& Form FETCH-DATA
text
--> p1 text
<-- p2 text
FORM FETCH-DATA .
REFRESH ITAB.
SELECT AVBELN AKUNRG AFKDAT AWAERK BNAME1 BORT01 INTO CORRESPONDING FIELDS OF TABLE ITAB
FROM VBRK AS A INNER JOIN KNA1 AS B
ON AKUNRG = BKUNNR
WHERE
A~VBELN IN INVOICE
and
A~FKDAT IN PO_DATE
and
B~KUNNR IN PCODE
GROUP BY AVBELN AKUNRG BNAME1 BORT01 AFKDAT AWAERK.
SORT ITAB ascending BY VBELN.
*ENDSELECT.
ENDFORM. " FETCH-DATA
**& Form DISP_DATA
text
--> p1 text
<-- p2 text
*FORM DISP_DATA .
*loop at itab.
*write :/1(18) itab-VBELN,
27(5) ITAB-KUNRG,
55(25) ITAB-NAME1,
100(50) ITAB-ORT01.
*endloop.
*ENDFORM. " DISP_DATA
*& Form T_FIELDCAT
text
--> p1 text
<-- p2 text
FORM T_FIELDCAT .
PERFORM fill_field USING 'VBELN' 'PO NO'.
PERFORM fill_field USING 'KUNRG' 'CUSTOMER PLANT'.
PERFORM fill_field USING 'NAME1' 'PARTY NAME'.
PERFORM fill_field USING 'ORT01' 'LOCATION'.
PERFORM fill_field USING 'BASME' 'UOM'.
PERFORM SELECTION_WIDTH.
ENDFORM. " T_FIELDCAT
*& Form fill_field
text
-->P_0267 text
-->P_0268 text
FORM fill_field USING p_fieldname
p_seltext.
L_FIELDCAT-FIELDNAME = p_fieldname.
L_FIELDCAT-TABNAME = 'ITAB'.
L_FIELDCAT-SELTEXT_M = p_seltext.
L_FIELDCAT-OUTPUTLEN = 10.
APPEND L_FIELDCAT TO T_FIELDCAT.
CLEAR L_FIELDCAT.
ENDFORM. " fill_field
*& Form REUSE_ALV
text
--> p1 text
<-- p2 text
FORM REUSE_ALV .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = ' '
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT = T_LAYOUT
IT_FIELDCAT = T_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = ITAB
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.
ENDFORM. " REUSE_ALV
*& Form SELECTION_WIDTH
text
--> p1 text
<-- p2 text
FORM SELECTION_WIDTH .
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = itab-kunrg
IMPORTING
OUTPUT = itab-kunrg -
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,
RimasHi 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
Maybe you are looking for
-
SharePoint Foundation 2010 SP2 running on Windows Server 2012 R2
Hello I have upgraded a standalone Windows Server 2008 R2 running SharePoint Foundation 2010 SP2 to Windows Server 2012 R2. The upgrade completed OK and SharePoint Foundation 2010 SP2 is running OK as before upgrade. Is anyone aware of any issues run
-
Error reporting in BAPI_BILLINGDOC_CREATEMULTIPLE
Hi there, I've adapted parameters via customizing to take an orders as reference documents when creating invoices. The thing is that when I create invoices using deliveries with VF01 I can figure out that I did it wrong cause I get an error message
-
Hi Experts, After succesful integration of SAP retail and SAP POS, i am recieving Idoc details in (from PI)file format that need to be converted in ASCII before it is send to xpress server parm folder,To obtain all detail in store manager i am facin
-
RFC function to get the WBS Element formatted string
Hi, Is there an RFC function I could use which would do what the CONVERSION_EXIT_ABPSN_OUTPUT does? We are using Project IDOC to replicate WBS element in our procurement system. The IDOC only provides the unformatted version of the WBS Element id. Th
-
TS5223 IPAD does not accept my Apple ID
I have several devices with the same Apple ID. All of them, including this site, accept my AppleID. One of the devices, an IPAD with ios 7, does not accept it. There are other wierd sympthoms, like it refuses to login to facebook suddenly. Is there a