Displaying a document in interactive list-high priority
Hi Experts,
There is already an interactive report which displays the output in classick format.Now, the requirement is ,
when they place the cursor position on a sales document and press a push button, it has to display the document in display mode ie in VA03.
Now my problem is that I am not able to find a function code which captures the sales docu number so that i can use that particular selected doc num. You know that i cannot use Function code 'PICK' since it an interactive list . Now i need another function code(like PICK which captures the dou num) so that i can use this for displaying the document.
Quick replys are appreciated.
Thanks in advance.
Regards,
Praveen.
not sure what's ur req...but the kind of displaying the order numbers in basic or sec list and then navigating to change/display tcode of the order is easy using HIDE in AT LINE-SELECTION with combination of
SET PARAMETER ID pid FIELD f. and then
CALL TRANSACTION xyz AND SKIP FIRST SCREEN .
RB.
Similar Messages
-
Listing Items based on criteria e.g. High Priority Items First.
Hi,
One of our customers have a need to List High Priority Items first on the WebTools site.
Let's take two ItemCodes for example: Printer001, and, Monitor001.
>> If these two items are included in the same category then Monitor001 will appear before Printer001 as WebTools sorts in alphabetic ascending order;
>> But, our customer wants Printer001 to appear before Monitor001 as it is an Item higher in priority that Printer001.
I can think of two possible solutions:
1/2) Prefix Items with a number or letter to have it appear first in the WebTools default sort order. E.g. Rename "Monitor001" as "AMonitor001". This will not be possible for existing Items in SAP, so it doen't solve the issue,
Or,
2/2) Customize the Default WebTools Item List block to sort Items based on a User Define field called "pririty". Which might require a lot of effort.
Please advise if anyone else has solved similar issue and how.
Thanks very much for your replies in advance.Hey Kafil ... I think you may be stuck modifying the parts list page or creating something from scratch. I'm not aware of an easy way to do this out of the box.
-
Display material document list in alternative measure of unit.
Dear all ,
I need transaction for Display material document list in alternative measure of unit.
looks like transaction MB51.
Thanks in advance,
Ilan Marom.Hello,
Try to make a query or report using the additional tables MSEGO1, MSEGO2.
I did so because could not find such a transaction.
KR,
Sergey -
Display MM03 screen with out selecting views using interactive list.
Hi Experts,
I have one query, I am displaying material data in a list. when i click on material number in the list it should show material data i.e should call MM03 with all the view data .
When i am using call transaction 'MM03' skip first screen. I am able to call MM03 screen but unable to skip the View Pop up screen it should be selected default and the veiw data should be displayed.
Ex: when i am clicking on materil number from the list it will directly take to the Basic data1 screen with out the pop up screen for selecting views.
hope this is clear...
Thanks
Sunil kairam.Hi Dzed Maroz ,
Thanks for the quick reply... its works.. !
Can you please tell me the methodology behind SET PARAMETER ID 'MXX' FIELD 'K'.
I was trying using below code earlier was showing the pop up screen.
SET PARAMETER ID 'MAT' FIELD P_MATNR. "
CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
but now it works... thanks..
kindly explain SET PARAMETER ID 'MXX' FIELD 'K'. hw it works... which filed parmeter id is MXX and y we have choosen 'K' ??
Thanks & Regards
Sunil kairam -
Hi experts,
Please tell me how to generate Interactive list from ALV.
I have already created interactive list without ALV
( using AT LINE SELECTION)Please refer to the below code.
A very good example with most of the company Standards.
*& Report zalv *
REPORT zalv .
TYPE-POOLS: kkblo,
slis.
TABLES: mara, marc, mard.
DATA: disvariant LIKE disvariant,
eventcat TYPE slis_t_event,
eventcat_ln LIKE LINE OF eventcat,
fieldcat TYPE slis_t_fieldcat_alv,
fieldcat_kkb TYPE kkblo_t_fieldcat,
fieldcat_ln LIKE LINE OF fieldcat,
keyinfo TYPE slis_keyinfo_alv,
layout TYPE slis_layout_alv,
layout_kkb TYPE kkblo_layout,
pgm LIKE sy-repid,
printcat TYPE slis_print_alv,
sortcat TYPE slis_t_sortinfo_alv,
sortcat_ln LIKE LINE OF sortcat,
BEGIN OF coltab OCCURS 50,
fieldname LIKE fieldcat_ln-fieldname,
END OF coltab.
DATA: print TYPE slis_print_alv.
DATA : v_repid TYPE sy-repid.
DATA: BEGIN OF wa OCCURS 0,
matnr TYPE mara-matnr,
ersda TYPE mara-ersda,
ernam TYPE mara-ernam,
aenam TYPE mara-aenam,
werks TYPE marc-werks,
pstat TYPE marc-pstat,
lfmon TYPE mard-lfmon,
END OF wa.
DATA: itab LIKE TABLE OF wa.
**Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001..
SELECT-OPTIONS: mat_no FOR mara-matnr.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK b1.
* Parameter for list viewer display variant
PARAMETERS: variant LIKE disvariant-variant.
AT SELECTION-SCREEN ON variant.
CHECK NOT variant IS INITIAL.
PERFORM check_variant_existence USING variant 'U'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR variant.
PERFORM f4_display_variant USING variant 'U'.
*Initialization
INITIALIZATION.
v_repid = sy-repid.
*Start of selection
PERFORM check_tcode_authority USING 'SA38'.
START-OF-SELECTION.
SELECT a~matnr a~ersda
a~ernam a~aenam
c~werks c~pstat d~lfmon
INTO TABLE itab
UP TO 10 ROWS
FROM mara AS a
INNER JOIN marc AS c ON a~matnr = c~matnr
INNER JOIN mard AS d ON c~matnr = d~matnr
WHERE a~matnr IN mat_no.
*End of Selection
END-OF-SELECTION.
PERFORM call_list_viewer.
*& Form call_list_viewer
* text
FORM call_list_viewer .
PERFORM build_fieldcat USING:
'MATNR' 'ITAB'
'Material #' 'CHAR' 18 ' ' ' ' ' ' ' ' ' ',
'ERSDA' 'ITAB'
'Date Created' 'CHAR' 10 ' ' ' ' ' ' ' ' ' ',
'ERNAM' 'ITAB'
'Created By' 'CHAR' 10 ' ' ' ' ' ' ' ' ' ',
'AENAM' 'ITAB'
'Changed By' 'CHAR' 10 ' ' ' ' ' ' ' ' ' ',
'WERKS' 'ITAB'
'Plant' 'CHAR' 4 ' ' ' ' ' ' ' ' ' ',
'PSTAT' 'ITAB'
'Status' 'CHAR' 10 ' ' ' ' ' ' ' ' ' ',
'LFMON' 'ITAB'
'Current Period' 'CHAR' 8 ' ' ' ' ' ' ' ' ' '.
PERFORM build_eventcat USING: 'TOP_OF_LIST',
'TOP_OF_PAGE'.
PERFORM list_display TABLES itab.
ENDFORM. "call_list_viewer
* build field catalog entry *
FORM build_fieldcat USING a_fieldname
a_tabname
a_heading
a_datatype
a_outputlen
a_key
a_no_out
a_no_sum
a_do_sum
a_no_zero.
CLEAR fieldcat_ln.
fieldcat_ln-fieldname = a_fieldname.
fieldcat_ln-tabname = a_tabname.
fieldcat_ln-outputlen = a_outputlen.
fieldcat_ln-datatype = a_datatype.
fieldcat_ln-reptext_ddic = a_heading.
fieldcat_ln-key = a_key.
fieldcat_ln-no_out = a_no_out.
fieldcat_ln-no_sum = a_no_sum.
fieldcat_ln-do_sum = a_do_sum.
fieldcat_ln-no_zero = a_no_zero.
APPEND fieldcat_ln TO fieldcat.
ENDFORM. "BUILD_FIELDCAT
* FORM BUILD_EVENTCAT
FORM build_eventcat USING a_event.
eventcat_ln-name = eventcat_ln-form = a_event.
APPEND eventcat_ln TO eventcat.
ENDFORM. "BUILD_EVENTCAT
* call the ABAP list viewer *
FORM list_display TABLES a_output.
pgm = disvariant-report = sy-repid.
disvariant-variant = variant.
* call list viewer
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = pgm
* i_callback_pf_status_set = 'SET_PF_STATUS'
it_fieldcat = fieldcat
is_variant = disvariant
is_layout = layout
is_print = print
i_save = 'A'
it_events = eventcat
it_sort = sortcat
* i_callback_user_command = 'USER_COMMAND'
TABLES
t_outtab = a_output
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDFORM. "LIST_DISPLAY
*& Form top_of_page
* text
FORM top_of_page.
PERFORM standard_headings.
PERFORM print_selection_screen TABLES:
mat_no USING 'Material No : ' 18 'N' 1.
ENDFORM. "top_of_page
* FORM CHECK_VARIANT_EXISTENCE
* Verify that a variant on the selection screen exists
FORM check_variant_existence USING varname LIKE disvariant-variant
save TYPE c.
DATA: xdisvar LIKE disvariant.
xdisvar-report = sy-repid.
xdisvar-variant = varname.
CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
EXPORTING
i_save = save
CHANGING
cs_variant = xdisvar
EXCEPTIONS
wrong_input = 1
not_found = 2
program_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE e256(56) WITH varname.
* Anzeigevariante &1 nicht gefunden
ENDIF.
disvariant-report = sy-repid.
disvariant-variant = varname.
ENDFORM. "check_variant_existence
* Form F4_DISPLAY_VARIANT
* F4 help to find a display variant
* varname = name of the dynpro field for which f4 is requested
* save = type of list variant saving
* ' ' = no saving allowed
* 'A' = standard & user specific variants can be saved
* 'U' = only user specific variants can be saved
* 'X' = only standard variants can be saved
FORM f4_display_variant USING varname LIKE disvariant-variant
save TYPE c.
disvariant-report = sy-repid.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
EXPORTING
is_variant = disvariant
i_save = save
IMPORTING
es_variant = disvariant
EXCEPTIONS
not_found = 1
program_error = 2
OTHERS = 3.
IF sy-subrc = 0.
varname = disvariant-variant.
ELSE.
MESSAGE s245(56).
* Keine Anzeigevariante(n) vorhanden
ENDIF.
ENDFORM. " F4_DISPLAY_VARIANT
* FORM STANDARD_HEADINGS *
* Print standard page headings for report *
FORM standard_headings.
DATA: start_column TYPE i,
title_len TYPE i,
header_for_80_col(45),
date_time_for_80_col(45),
text_h0(11) VALUE 'Report No. ',
text_h1(5) VALUE 'Date ',
text_h2(6) VALUE 'Page -',
text_h3(7) VALUE 'System ',
text_h4(5) VALUE 'Time ',
text_h5(11) VALUE 'Run By '.
FORMAT INTENSIFIED ON.
CONDENSE syst-title.
IF syst-linsz > 80.
WRITE: / text_h0, "Report No.
12 syst-repid(8),
23 text_h1, "Date
sy-datlo.
title_len = STRLEN( syst-title ) / 2.
start_column = ( syst-linsz / 2 ) - title_len.
IF start_column < 40.
start_column = 40.
ENDIF.
WRITE: AT start_column syst-title.
ELSE.
WRITE: / text_h0, "Report No.
12 syst-repid(8).
start_column = 22.
WRITE syst-title TO header_for_80_col CENTERED.
WRITE: header_for_80_col.
ENDIF.
start_column = syst-linsz - 12.
WRITE: AT start_column text_h2, syst-pagno LEFT-JUSTIFIED.
IF syst-linsz > 80.
WRITE: / text_h3, "System
12 syst-sysid(4),
syst-mandt,
23 text_h4, "Time
syst-timlo.
WRITE: / text_h5, "Run By
12 syst-uname.
ELSE.
WRITE: / text_h3, "System
12 syst-sysid(4),
syst-mandt,
23 text_h1, "Date
syst-datlo.
WRITE: / text_h5, "Run By
12 syst-uname,
23 text_h4, "Time
syst-timlo.
ENDIF.
SKIP.
ENDFORM. "STANDARD_HEADINGS
* FORM PRINT_SELECTION_SCREEN *
* --> SIGN *
* --> OPTION *
* --> LOW *
* --> HIGH *
* --> D_IND *
* --> S_STRING *
FORM print_selection_screen TABLES r_selection TYPE table
USING p_name
p_length TYPE i
p_ind
p_start_col.
DATA: year(4) TYPE c,
month(2) TYPE c,
day(2) TYPE c,
low_date(10) TYPE c,
high_date(10) TYPE c,
offset(80) TYPE c.
DATA: BEGIN OF l_selline,
sign(1) TYPE c,
option(2) TYPE c,
data(200) TYPE c,
END OF l_selline.
DATA: l_string(80) TYPE c,
l_temp(80) TYPE c,
len TYPE i,
len1 TYPE i.
DESCRIBE FIELD p_name LENGTH len IN CHARACTER MODE.
len = len + p_start_col + 2.
LOOP AT r_selection.
IF syst-tabix = 1.
WRITE AT /p_start_col p_name.
ELSE.
len1 = ( STRLEN( l_string ) ).
len = len1 + len + 2.
ENDIF.
MOVE r_selection TO l_selline.
SHIFT l_selline-data LEFT DELETING LEADING '0'.
CLEAR l_string.
CASE l_selline-option.
WHEN 'EQ'.
CONCATENATE l_string '=' INTO l_string.
WHEN 'NE'.
CONCATENATE l_string 'not =' INTO l_string.
WHEN 'LT'.
CONCATENATE l_string '<' INTO l_string.
WHEN 'GT'.
CONCATENATE l_string '>' INTO l_string.
WHEN 'LE'.
CONCATENATE l_string '<=' INTO l_string.
WHEN 'GE'.
CONCATENATE l_string '>=' INTO l_string.
WHEN 'BT'.
CONCATENATE l_string 'between' INTO l_string.
WHEN 'NB'.
CONCATENATE l_string 'not between' INTO l_string.
WHEN 'CP'.
CONCATENATE l_string 'contains pattern' INTO l_string.
WHEN 'NP'.
CONCATENATE l_string 'no pattern' INTO l_string.
ENDCASE.
IF l_selline-sign EQ 'E'.
CONCATENATE 'NOT' l_string INTO l_string SEPARATED BY ' '.
ENDIF.
IF p_ind EQ 'Y'.
MOVE l_selline-data(4) TO year.
MOVE l_selline-data+4(2) TO month.
MOVE l_selline-data+6(2) TO day.
CONCATENATE month '/' day '/' year INTO low_date.
CONCATENATE l_string low_date INTO l_string SEPARATED BY ' '.
IF l_selline-option EQ 'BT' OR l_selline-option EQ 'NB'.
MOVE l_selline-data+p_length(4) TO year.
offset = p_length + 4.
MOVE l_selline-data+offset(2) TO month.
ADD 2 TO offset.
MOVE l_selline-data+offset(2) TO day.
CONCATENATE month '/' day '/' year INTO high_date.
CONCATENATE l_string 'and' high_date INTO l_string SEPARATED
BY ' '.
ENDIF.
ELSE.
MOVE l_selline-data(p_length) TO l_temp.
CONCATENATE l_string l_temp INTO l_string SEPARATED BY ' '.
IF l_selline-option EQ 'BT' OR l_selline-option EQ 'NB'.
MOVE l_selline-data+p_length(p_length) TO l_temp.
CONCATENATE l_string 'and' l_temp INTO l_string SEPARATED
BY ' '.
ENDIF.
ENDIF.
WRITE AT len l_string.
ENDLOOP.
IF syst-subrc <> 0.
WRITE: AT /p_start_col p_name, ' *** ALL ***'.
ENDIF.
ENDFORM. "PRINT_SELECTION_SCREEN
* FORM CHECK_TCODE_AUTHORITY *
* Check User Security Against A SAP Transaction *
* --> a_tcode Transaction Code For Security *
FORM check_tcode_authority USING a_tcode.
* if tcode is not passed, then return ok.
IF NOT a_tcode IS INITIAL.
CALL FUNCTION 'AUTHORITY_CHECK_TCODE'"Only People that
EXPORTING " have access to
tcode = a_tcode " Transaction t-tcode
EXCEPTIONS " are ALLOWED to execute
ok = 1 " this Program
not_ok = 2.
IF syst-subrc NE 1.
MESSAGE a999(zz) WITH 'YOU Do Not Have Authority to Execute'.
ENDIF.
ELSE.
MOVE 1 TO syst-subrc.
ENDIF.
ENDFORM. "CHECK_TCODE_AUTHORITY
Shreekant -
Clear "high priority" status of incoming mail
Okay, I have several emails I have marked as "flagged" so I can sort by that field and they stay at the top. Problem is, those annoying people who think all of their email is high priority (and flag them as such) are immediately following the flagged emails. This pushes new email down the list even further.
I can't figure out how to clear that high priority status so they fall in chronological order with all the other email. Ideas?
Thanks!You can't. The priority is being sent via a special header in the mail. These headers are created by the senders machine upon sending. Mail.app just displays the priority given in the header information. There is no way in Mail.app to alter the messages headers.
-
How to display error documents in selection screen level
Hi,
Currently Iam doing Smartforms for journal voucher. Iam taking multiple documents as input and displaying relavent item data for each.
Now, my requirement is i want to display invalid document numbers at selection screen level. For example there are 30 invalid document number i want to display them before start-of-selection.
Thanks in advance,
Regards,
Chinna..i have a query......say i am using a selet-options s_ebeln for ekko-ebeln.
i want to display error messages for
1>lower limit cant be greater than upper limit?
2>for special cahracters given in the select-options fields.....etc...
now when i am writing the code......
if s_ebeln-low gt s_ebeln-high.
message e001.
it is showing SAP's message not mine.
but ....if my s_ebeln-high field is 0.
then my message is showing.
pls give me the codes for these? -
Display a document library view on a subsite
Hi
I have SharePoint 2013 On-Premise and I would like to display a document library from the top level site in a subsite. This subsite will then be saved as a template and used to create other subsites.
For example,
I have a site called Site 1. In Site 1 there is a document library called doclib1. Site1 also has a subsite called subsiteA.
I would like to display a view from doclib1 in subsiteA. SubsiteA will then be used as a template to create subsiteB, subsiteC etc.
I have tried a few things but these have not worked or I am not doing it correctly. Here is what I have tried
Copied doclib1 code from site1 to subsiteA using SPDesigner. I get the error "List does not exist......"
Used a Content Query Webpart. I get the error "Something went wrong"
Used a Data view web part. The complete page was displayed. I only want the view
Although it looks possible, I do not know how to take this forward. All I need is to display generic documents on each subsite that can be modified from one location.
Marc Collins www.QGate.co.ukHi,
To get the custom field in the search filter. You need to follow these steps.
Go to the Search schema from the Manage Service Applications -> Search Service Application in Central Administration
Create a Managed property for your field (Category)
Map the crawl property to the Managed property.
Once managed property created, run the full crawl.
Once full crawl executed, you are able to get your filter property in the search filter.
http://blogs.perficient.com/microsoft/2012/07/sp2013-search-quickie-createmap-a-new-managed-property-powershell/
Even though 2010 article, for 2013 steps are same.
http://johnrossjr.wordpress.com/2011/03/18/creating-custom-managed-properties/
Please mark it answered, if your problem resolved or helpful. -
Accessing display values of a select list (or LOV)
Hi all,
I was asking myself if it is possible to access the display values of a select list (to be added to a report header and to the Head section of a pdf export),
and to call them in form of the &xxxxx. notation
e.g. if &P10_REGION. return the selected value (e.g. 1), I would like to have the corresponding display value (e.g. USA) .
Kind regards,
BorisThank you Graham,
unfortunately I'm a newbie regarding Javascript. Reading the APEX help, I could understand something but not everything.
I would enter into the page html body the following script
<script type="text/javascript">
document.getElementById('P10_hiddenItem').value = document.getElementById('P10_referenceItem').text;
</script>
Is this the correct approach?
how should I then submit the page?
Thank you,
Boris -
High priority bug to be solved very urgent
Hello Experts,
I need your help and plz close this topic once its solved.
Here is the problem:
There is report called "Material Group".When its is displayed for material gorup say "GB06010000" is displayed as part of report data wheras the source system (oracle ) does not have this item any more in the catalog. This indicated that data is not refreshed for quite a long time.
This report is connected to the third party application (oracle db) not EBP system(r/3). Time to time there has been deletion or addition catalog items and in all as of today there are 815 items, whereas BIW report displays 4204 items. How can i refresh this data to display 815 items.
how to solve this issue any ideas or suggestion????
the reports is on ODS level.
I hope all of u take this problem as urs and try to give me solution as earliest possible.
<b>this is high priority issue from client side</b>.
thanks in advance . Surely il assign the points.
email id: [email protected]
Urs,
Raki.Hey Lilly,
Yep i have deleted the contents of ODS sucessfully and i have reloaded it sucesfully but from biw side there is no problem as i feel.
So i requested my onsite people to look in to the oracle db table how many records are available.Later then we will make take some decision .
So still the problem isnot solved il be updating this in another couple of days.So i request u to take care this issue and now i have assigned u points also.
Thanks for ur info.
Possible give me ur personal mail id so that i can direclty drop to ur mail.
Urs,
Raki -
Hi All,
Is there any sample program for an interactive list in ALV? I would like to try an interactive ALV list option for one of my reports
ThanksOne more example - ALV Interactive ( two times REUSE_ALV_GRID_DISPLAY )
REPORT ZZ_22038_22098_002 NO STANDARD PAGE HEADING LINE-SIZE 650
MESSAGE-ID ZZ_9838 .
TYPE-POOLS: SLIS.
*type declaration for values from ekko
TYPES: BEGIN OF I_EKKO,
EBELN LIKE EKKO-EBELN,
AEDAT LIKE EKKO-AEDAT,
BUKRS LIKE EKKO-BUKRS,
BSART LIKE EKKO-BSART,
LIFNR LIKE EKKO-LIFNR,
END OF I_EKKO.
DATA: IT_EKKO TYPE STANDARD TABLE OF I_EKKO INITIAL SIZE 0,
WA_EKKO TYPE I_EKKO.
*type declaration for values from ekpo
TYPES: BEGIN OF I_EKPO,
EBELN LIKE EKPO-EBELN,
EBELP LIKE EKPO-EBELP,
MATNR LIKE EKPO-MATNR,
MENGE LIKE EKPO-MENGE,
MEINS LIKE EKPO-MEINS,
NETPR LIKE EKPO-NETPR,
END OF I_EKPO.
DATA: IT_EKPO TYPE STANDARD TABLE OF I_EKPO INITIAL SIZE 0,
WA_EKPO TYPE I_EKPO .
*variable for Report ID
DATA: V_REPID LIKE SY-REPID .
*declaration for fieldcatalog
DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: IT_LISTHEADER TYPE SLIS_T_LISTHEADER.
declaration for events table where user comand or set PF status will
be defined
DATA: V_EVENTS TYPE SLIS_T_EVENT,
WA_EVENT TYPE SLIS_ALV_EVENT.
declartion for layout
DATA: ALV_LAYOUT TYPE SLIS_LAYOUT_ALV.
declaration for variant(type of display we want)
DATA: I_VARIANT TYPE DISVARIANT,
I_VARIANT1 TYPE DISVARIANT,
I_SAVE(1) TYPE C.
*PARAMETERS : p_var TYPE disvariant-variant.
*Title displayed when the alv list is displayed
DATA: I_TITLE_EKKO TYPE LVC_TITLE VALUE 'FIRST LIST DISPLAYED'.
DATA: I_TITLE_EKPO TYPE LVC_TITLE VALUE 'SECONDRY LIST DISPLAYED'.
INITIALIZATION.
V_REPID = SY-REPID.
PERFORM BUILD_FIELDCATLOG.
PERFORM EVENT_CALL.
PERFORM POPULATE_EVENT.
START-OF-SELECTION.
PERFORM DATA_RETRIEVAL.
PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.
PERFORM DISPLAY_ALV_REPORT.
*& Form BUILD_FIELDCATLOG
Fieldcatalog has all the field details from ekko
FORM BUILD_FIELDCATLOG.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'EBELN'.
WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'AEDAT'.
WA_FIELDCAT-SELTEXT_M = 'DATE.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_M = 'COMPANY CODE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_M = 'DOCMENT TYPE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'LIFNR'.
WA_FIELDCAT-NO_OUT = 'X'.
WA_FIELDCAT-SELTEXT_M = 'VENDOR CODE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM. "BUILD_FIELDCATLOG
*& Form EVENT_CALL
we get all events - TOP OF PAGE or USER COMMAND in table v_events
FORM EVENT_CALL.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = V_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG = 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. "EVENT_CALL
*& Form POPULATE_EVENT
Events populated for TOP OF PAGE & USER COMAND
FORM POPULATE_EVENT.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
WA_EVENT-FORM = 'TOP_OF_PAGE'.
MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.
IF SY-SUBRC EQ 0.
WA_EVENT-FORM = 'USER_COMMAND'.
MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-NAME.
ENDIF.
ENDFORM. "POPULATE_EVENT
*& Form data_retrieval
retreiving values from the database table ekko
FORM DATA_RETRIEVAL.
SELECT EBELN AEDAT BUKRS BSART LIFNR FROM EKKO INTO TABLE IT_EKKO.
ENDFORM. "data_retrieval
*& Form bUild_listheader
text
-->I_LISTHEADEtext
FORM BUILD_LISTHEADER USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA HLINE TYPE SLIS_LISTHEADER.
HLINE-INFO = 'this is my first alv pgm'.
HLINE-TYP = 'H'.
ENDFORM. "build_listheader
*& Form display_alv_report
text
FORM DISPLAY_ALV_REPORT.
V_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = V_REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
I_GRID_TITLE = I_TITLE_EKKO
I_GRID_SETTINGS =
IS_LAYOUT = ALV_LAYOUT
IT_FIELDCAT = I_FIELDCAT[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
i_default = 'ZLAY1'
I_SAVE = 'A'
is_variant = i_variant
IT_EVENTS = V_EVENTS
TABLES
T_OUTTAB = IT_EKKO
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. "display_alv_report
*& Form TOP_OF_PAGE
text
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = IT_LISTHEADER
i_logo =
I_END_OF_LIST_GRID =
ENDFORM. "TOP_OF_PAGE
*& Form USER_COMMAND
text
-->R_UCOMM text
-->, text
-->RS_SLEFIELDtext
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
WHEN '&IC1'.
READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.
PERFORM BUILD_FIELDCATLOG_EKPO.
PERFORM EVENT_CALL_EKPO.
PERFORM POPULATE_EVENT_EKPO.
PERFORM DATA_RETRIEVAL_EKPO.
PERFORM BUILD_LISTHEADER_EKPO USING IT_LISTHEADER.
PERFORM DISPLAY_ALV_EKPO.
ENDCASE.
ENDFORM. "user_command
*& Form BUILD_FIELDCATLOG_EKPO
text
FORM BUILD_FIELDCATLOG_EKPO.
WA_FIELDCAT-TABNAME = 'IT_EKPO'.
WA_FIELDCAT-FIELDNAME = 'EBELN'.
WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKPO'.
WA_FIELDCAT-FIELDNAME = 'EBELP'.
WA_FIELDCAT-SELTEXT_M = 'LINE NO'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-SELTEXT_M = 'MATERIAL NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MENGE'.
WA_FIELDCAT-SELTEXT_M = 'QUANTITY'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MEINS'.
WA_FIELDCAT-SELTEXT_M = 'UOM'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'NETPR'.
WA_FIELDCAT-SELTEXT_M = 'PRICE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM. "BUILD_FIELDCATLOG_EKPO
*& Form event_call_ekpo
we get all events - TOP OF PAGE or USER COMMAND in table v_events
FORM EVENT_CALL_EKPO.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = V_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG = 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. "event_call_ekpo
*& Form POPULATE_EVENT
Events populated for TOP OF PAGE & USER COMAND
FORM POPULATE_EVENT_EKPO.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
WA_EVENT-FORM = 'TOP_OF_PAGE'.
MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.
ENDFORM. "POPULATE_EVENT
*& Form TOP_OF_PAGE
text
FORM F_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = IT_LISTHEADER
i_logo =
I_END_OF_LIST_GRID =
ENDFORM. "TOP_OF_PAGE
*& Form USER_COMMAND
text
-->R_UCOMM text
-->, text
-->RS_SLEFIELDtext
*retreiving values from the database table ekko
FORM DATA_RETRIEVAL_EKPO.
SELECT EBELN EBELP MATNR MENGE MEINS NETPR FROM EKPO INTO TABLE IT_EKPO.
ENDFORM.
FORM BUILD_LISTHEADER_EKPO USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA: HLINE1 TYPE SLIS_LISTHEADER.
HLINE1-TYP = 'H'.
HLINE1-INFO = 'CHECKING PGM'.
ENDFORM.
FORM DISPLAY_ALV_EKPO.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = V_REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'F_USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE = '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_TITLE_EKPO
I_GRID_SETTINGS =
IS_LAYOUT =
IT_FIELDCAT = I_FIELDCAT[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT =
I_SAVE = 'A'
IS_VARIANT =
IT_EVENTS = V_EVENTS
TABLES
T_OUTTAB = IT_EKPO
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. -
RE: WUF WHY NO ENTRY IN /SAPAPO/PROD_CD_READ - Display Change Documents
G'day Team,
I am working with client data team in SCM 7.0 and wanted a confirmation please. Can you please confirm that deletion of Product / Location from the Where used List ("WUF") does NOT appear in the /SAPAPO/PROD_CD_READ - Display Change Documents? I ahve completed a test in T sys and have no change doc.
If I use Produst Master (Prod Mast) and the Flag for Deletion is set via Product > "Flag for Deletion" then the save I see the deletion flag is set.
Can you guide me to change doc where the material location is removed (ie: the Green tick to remove materialloc).
Many thanks,
Andy GozPlease make sure if you have activated the settings:
SPRO->IMG->APO-> Master Data -> Product -> Activate Change Documents
Thanks,
Sai -
Query:Pop up on login for incomplete high priority tasks in sap inbox
Hi All,
I am having requirement to display pop up for incomplete high priority in sap inbox on loging in sap.
I wil be thankful if you can guide to fulfill this requirement.
Thanks.Hi,
To get the High priority work items you can use the table SWWWIHEAD.
using this table you can get the Priority, Status, and agent of the work item. Using this you can build the logic to
display the pop up with this details.
Thanks,
Viji. -
How can I give the "user interface thread" higher priority?
We do alot of activex calls to front panels. We need to increase/decrease the priority of the user interface thread to resolve our thread problem. Anyone know how to do this?
ChuckHello,
As P.M. was saying, you can adjust the thread priorities
through the VI Properties dialogue.
Another place to modify the multithreading system in LabVIEW is a VI
located at: [LabVIEW Directory]\vi.lib\Utility\sysinfo.llb\threadconfig.vi. However I do not think this will remedy any
problems you are having.
From a Multithreading in LabVIEW tutorial (http://zone.ni.com/devzone/conceptd.nsf/webmain/d2e196c7416f373a862568690074c759)
Priorities in the User Interface and
Single-Threaded Applications
Within the User Interface execution
system, priority levels are handled in the same way for single-threaded and
multithreaded applications.
In single-threaded applications and
in the User Interface execution system of multithreaded applications, the
execution system queue has multiple entry points. The execution system places
higher priority VIs on the queue in front of lower priority VIs.
If a high-priority task is running and the queue contains only lower priority
tasks, the high-priority VI continues to run. For example, if the execution
queue contains two VIs of each priority level, the time-critical VIs share execution time exclusively until both finish.
Then, the high priority VIs share execution
time exclusively until both finish, and so on. However, if the higher priority
VIs call a function that waits, the execution system removes higher priority
VIs from the queue until the wait or I/O completes, assigning other tasks
(possibly with lower priority) to run. When the wait or I/O completes, the
execution system reinserts the pending task on the queue in front of lower
priority tasks. Refer to the Synchronous/Blocking Nodes section for a list of
asynchronous functions that wait.
Also, if a high priority VI calls a lower priority subVI,
that subVI is raised to the same priority level as the caller for the duration
of that call. Consequently, you do not need to modify the priority levels of
the subVIs that a VI calls to raise the priority level of the subVI.
Thus changing the priority of your VI will change the
priority of UI calls for that particular VI.
Again, I caution you because I suspect that if you are having problems
with your application not running correctly, I do not believe that manipulating
the thread priorities will resolve these issues.
Hope this helps,
Travis M
LabVIEW R&D
National Instruments -
Plz help interactive list issue-urgent today is the deadline
hi experts ,
i have created an interactive list report .
in which when i click on value of first coloumn it should display another list report .
in my case when i click on the spaces next to the value it should not display the value .
i want when i click on the value like 34 it should display the next list not on the spaces .
to get the value i am using
GET CURSOR FIELD fld VALUE val.
Thanx in advancehi,
check the following code
here i used hide ang get cursor statements
in my prog i will display the next list only on clicking material number
otherwise it will display a message click on material number
modify accordingly
REPORT zp_interactive5 LINE-SIZE 100 LINE-COUNT 10(2).
TABLES: mara, marc, makt.
DATA: wa_mara LIKE mara,
it_mara TYPE TABLE OF mara,
wa_marc LIKE marc,
it_marc TYPE TABLE OF marc,
wa_makt LIKE makt,
it_makt TYPE TABLE OF makt.
DATA: value(20) TYPE c.
SELECT-OPTIONS: s_matnr FOR mara-matnr.
START-OF-SELECTION.
SELECT * FROM mara INTO TABLE it_mara
WHERE matnr IN s_matnr.
LOOP AT it_mara INTO wa_mara.
WRITE: / wa_mara-matnr COLOR COL_KEY INTENSIFIED ON,
wa_mara-ersda COLOR COL_KEY INTENSIFIED ON.
HIDE: wa_mara-matnr.
ENDLOOP.
CLEAR wa_mara-matnr.
AT LINE-SELECTION.
CASE sy-lsind.
WHEN '1'.
GET CURSOR FIELD value.
IF value = 'WA_MARA-MATNR'.
SELECT * FROM marc INTO TABLE it_marc
WHERE matnr = wa_maRA-matnr.
IF it_marc IS INITIAL.
MESSAGE 'NO RECORDS FOUND' TYPE 'I'.
ELSE.
WINDOW STARTING AT 10 l1
ENDING AT 50 l2.
LOOP AT it_marc INTO wa_marc.
WRITE: / wa_marc-matnr COLOR COL_KEY INTENSIFIED ON,
wa_marc-werks COLOR COL_KEY INTENSIFIED ON.
HIDE: wa_marc-matnr.
ENDLOOP.
ENDIF.
ELSE.
MESSAGE 'CLICK ON THE MATERIAL NUMBER' TYPE 'I'.
ENDIF.
WHEN '2'.
GET CURSOR FIELD value.
IF value = 'WA_MARC-MATNR'.
SELECT * FROM makt INTO TABLE it_makt
WHERE matnr = wa_maRC-matnr.
IF it_makt IS INITIAL.
MESSAGE 'NO RECORDS FOUND' TYPE 'I'.
ELSE.
WINDOW STARTING AT 10 l1
ENDING AT 50 l2.
LOOP AT it_makt INTO wa_makt.
WRITE: / wa_makt-matnr COLOR COL_KEY INTENSIFIED ON,
wa_makt-spras COLOR COL_KEY INTENSIFIED ON,
wa_makt-maktx COLOR COL_KEY INTENSIFIED ON.
ENDLOOP.
ENDIF.
CLEAR wa_makt-matnr.
ELSE.
MESSAGE 'CLICK ON THE MATERIAL NUMBER' TYPE 'I'.
ENDIF.
ENDCASE.
TOP-OF-PAGE.
WRITE: 'MATERIAL MASTER DETAILS'.
TOP-OF-PAGE DURING LINE-SELECTION.
CASE sy-lsind.
WHEN '1'.
WRITE: 'PLANT DETIALS'.
WHEN '2'.
WRITE: 'MATERIAL DESCRIPTION'.
ENDCASE.
REWARD IF HELPFUL
PRASANTH
Maybe you are looking for
-
Safari cannot open because the iPhone is not connected to internet. I do not believe I have changed any settings. I have turned off the phone and then on, but this did not work. Help?
-
How do I get the "non HP Ink Cartridge" pop up to go away??? HP Photosmart 7520
After my trial ink ran out on the HP Photosmart 7520 I installed a non-hp ink cartridge. It prints fine but EVERY SINGLE TIME I print anything I get a pop up saying I have a non-hp cartridge installed and the quality cannot be guaranteed. It then g
-
Selecting "Display PDF in browser" option launches 8.1.2 Installer
I have seen many auto-update and installer problems in this forum, but not this one. I have Acrobat 3D 8.1.2 on Windows XP, and today the automatic check for updates box appeared. (This system was set up by someone other than me and I didn't realize
-
Internal display off when lid opened?
Hey guys! Just installed Lion and one thing I immidiately noticed is the way Lion handles internal display when external display is plugged in. I use a big 24-inch display with my early 2011 MacBook Pro. I like to open the lid for better WiFi connect
-
Client require the Downpayment adjust at MIRO to get budget availability.
Client require the Downpayment adjust at MIRO to get budget availability. During MIRO system shows the downpayment made to the vendor but it was not adjusted while creating vendor liability and extra budgets were consumed. If there is no extra budget