How to add maintenance message on EBP landing page?

Folks,
I'm trying to customize the welcome/landing page ( the page that users get immediately after logging in).
I can add our company logo there. However, I'm trying to add a maintenance message.
For example, this would allow us to notify the user community about system outages or new functionalities or any other maintenance message. Ideally, the message should come from a custom table which can be maintained directly using a view. If SAP provides such table, then it is cool too!
Pls. let me know how we can accomplish this in SRM 4.0
Points would be given for helpful answers!
-Seyed

Hi
Please go through the related links, which will definitely help ->
Re: Add company logo to initial screen of EBP
Re: Change of Logo in Loginscreen
Add comany logo in SRM screen
SAP OSS Note 861246
1) You can change mime files with transaction SE80 --> internet service --> BBPGLOBAL. Please don't forget to publish your files (local with SRM 5.0 integrated ITS).
2) You need to change the template to do this. Import your Logo as MIME object and replace the present logo with your new logo. Also, You can try to change this text in service BBPGLOBAL under HTML Templates -->LOGIN page. There you have a line "<title>SRM - Enterprise Buyer Welcome!</title>".May be you can change the text form here..I dont have access to system but you can give this a try...
Add comany logo in SRM screen
Do let me know.
Regards
- Atul

Similar Messages

How to add log messages in the sever/webui objects?

Hi,
I am new to the OA Framework.
Can any one share any information in how to add log messages in the sever/webui objects?
What are the beans I need to use to show in the diagnostic page?
Can I get sample code for this log staments?
Thanks in advance,
Padma

Hello. This forum is for reporting problems with the published Oracle documentation. You have a better change of getting a reply if you post your question on the Database - General forum.
Regards,
Diana

How to add warning message while using 'print' function in Adobe LiveCycle Designer

I am trying to make pdf document for my company which requires adding a warning message while anyone use 'print' function from the page...
Does anyone know how to add warning message on LiveCycle Designer
Also my supervisor mentioned something using 'nag' if that rings any bell

No you shoudl never go into the XML source unless uinstricted to do so.
You can open the script editor (under the window menu). It will appear above the drawing area but below the toolbars. You can resize it if there is not enough room. When you click on an object in the form you can choose an event to script against in the Show dropdown. In your case you will want to choose the prePrint event. A line will show up that indicates the object that is associated with the script as well as the event and other information. Add your script below this line. Once that is done you are finished and your form is ready for testing.
Paul

How I add a LIBRARY ITEM to a page layout, top/bottom ?

how I add a LIBRARY ITEM to a page layout, top/bottom ? in
dwmr mx 2004 and cs4 ?

Have you looked at the DW help file - it will explain all
about library items :-)
Nadia
Adobe® Community Expert : Dreamweaver
Unique CSS Templates |Tutorials |SEO Articles
http://www.DreamweaverResources.com
CSS Tutorials for Dreamweaver |
http://www.adobe.com/devnet/dreamweaver/css.html
Book: Ultimate CSS Reference (aff link) |
http://www.sitepoint.com/launch/005dfd4/3/133
http://twitter.com/nadiap
"lse987" <[email protected]> wrote in
message news:gpsvtt$t5q$[email protected]..
> how I add a LIBRARY ITEM to a page layout, top/bottom ?
in dwmr mx 2004 and cs4 ?

Best Practices Question: How to send error message to SSHR web page.

Best Practices Question: How to send error message to SSHR web page from custom PL\SQL procedure called by SSHR workflow.
For the Manager Self-Service application we’ve copied various workflows which were modified to meet business needs. Part of this exercise was creating custom PL\SQL Package Procedures that would gather details on the WF using them on custom notification sent by the WF.
What I’m looking for is if/when the PL\SQL procedure errors, how does one send an failure message back and display it on the SS Page?
Writing information into a log or table at the database level works for trouble-shooting, but we’re looking for something that will provide the end-user with an intelligent message that the workflow has failed.
Thanks ahead of time for your responses.
Rich

We have implemented the same kind of requirement long back.
We have defined our PL/SQL procedures with two OUT parameters
1) Result Type (S:Success, E:Error)
2) Result Message
In the PL/SQL procedure we always use below construct when we want to raise any message
hr_utility.set_message(APPL_NO, 'FND_MESSAGE_NAME');
hr_utility.raise_error;
In Exception block we write below( in successful case we just set the p_result_flag := 'S';)
EXCEPTION
WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
p_result_flag := 'E';
p_result_message := hr_utility.get_message;
WHEN OTHERS THEN
p_result_flag := 'E';
p_result_message := hr_utility.get_message;
fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
fnd_message.set_token('2',substr(sqlerrm,1,200));
fnd_msg_pub.add;
p_result_message := fnd_msg_pub.get_detail;
After executing the PL/SQL in java
We have written some thing similar to
orclStmt.execute();
OAExceptionUtils.checkErrors (txn);
String resultFlag = orclStmt.getString(provide the resultflag bind no);
if ("E".equalsIgnoreCase(resultFlag)){
String resultMessage = orclStmt.getString(provide the resultMessage bind no);
orclStmt.close();
throw new OAException(resultMessage, OAException.ERROR);
It safely shows the message to the user with all the data in the page.
We have been using this construct for a long time for all our projects. They are all working as expected.
Regards,
Peddi.

How to add 'Confidential' watermark to all the pages in portal

Hi
How to add 'Confidential' watermark to all the pages in portal.We have ESS/MSS business packages installed 60.1, 60.2.
ECC5, EP SP16 is the environment.
Help will be appreciated
Thanks
Sharath

Hi Sharath,
What about using the theme editor to add a background to either the page or the iView tray?
Daniel

IBook Author: my pages' background are 100% boring white. How to add texture to my book's pages?

iBook Author: my pages' background are 100% boring white. How to add texture to my book's pages?

See this thread for the answer.
Cheers,
Michi.

How to add a message to a field in a dataTable row?

I have a dataTable with a var "selectedUser". Each row has a 2 fields: username & password, both editable and 2 buttons: save and delete. In the "UsersControllerBean.updateUser" method associated with the update button, I want to be able to add an error message to the field on the corresponding row where the button has been clicked. How can I retrieve the client Id of the field from the "selectedUser" var associated with the dataTable (that I get from the RequestMap) to add the message to it?
Is there an easier way of doing this? (no, thanks no link button!)
Thanks
Fred
 <h:form id="users">
 <h:dataTable border="1" width="100%" value="#{UsersControllerBean.usersList}" var="selectedUser">
 <h:column>
 <f:facet name="header">
 <h:outputText value="Id"/>
 </f:facet>
 <h:outputText value="#{selectedUser.userId}"/>
 </h:column>
 <h:column>
 <f:facet name="header">
 <h:outputText value="Name"/>
 </f:facet>
 <h:inputText id="username" required="true" value="#{selectedUser.username}"/>
 <h:message for="username" style="color: red"/>
 </h:column>
 <h:column>
 <f:facet name="header">
 <h:outputText value="Password"/>
 </f:facet>
 <h:inputText id="password" value="#{selectedUser.password}"/>
 <h:message for="password" style="color: red"/>
 </h:column>
 <h:column>
 <f:facet name="header">
 <h:outputText value="Actions"/>
 </f:facet>
 <h:commandButton value="Save" action="#{UsersControllerBean.updateUser}"/>
 <f:verbatim>��</f:verbatim>
 <h:commandButton value="Delete" action="#{UsersControllerBean.deleteUser}" immediate="true"/>
 </h:column>
 </h:dataTable>
 </h:form>

Dear Friends,
Finally, I got the answer.
I required to add the messages to error log for invoice. Error log is displayed in Tree format.
The error log getting displayed while processing invoice with help of table VBSK.
We can update the VBSK table information with required message to put in log.
Best regards,
Amol Chaudhari.

How to add custom message in place of default message for af:inputDate

Hi ,
I am using JDeveloper 11.1.1.6.0 ,
how to display the custom message <af:inputDate in place of default message "please enter valide date or Time" . i am trying through converter datepicker icon is disable .please help me how to add client side converter.
Thanks
ARm

Hi,
see the ADF Faces skin selector: http://docs.oracle.com/cd/E23943_01/apirefs.1111/e15862/toc.htm#inputDate
Its has a resources string that you can use to change the message: af_inputDate.TIP_TITLE_SELECT_DATE
For more see:
Customizing the Appearance Using Styles and Skins - 11g Release 1 (11.1.1.6.0)
Frank

How to Add error message for component from the baking bean

I am in the situation, I need to add the h:message message component for each component at the time I am looking for an easy process something like I have to add the error message at the bean side, here I am using component binding approach but I am not able to add child for input Text components at the bean side, actually my final target is to add the message for each component when ever they get error and I have to change the style also.....
So please anybody help me......

Thanks for the response but one more thing right now I can't add message tag for each component so that I can add message from the baking bean as per ur solution I tried like this
FacesMessage msg = new FacesMessage("Testing is going");
msg.setSeverity(FacesMessage.SEVERITY_ERROR);
FacesContext.getCurrentInstance().addMessage(tf_ADD1.getId(), msg);
it is working but it is showing on the top of the for even no problem but I need to change the component color based on the message but I am not able to achieve that so how can I do that from backing bean now I can't add tags for each component.
So please show me a way.

How to add error message to return structure of calling BAPI from a BADI

i have a bapi where a badi is triggered.this badi method has just importing and changing parameters.is there any way with which i can add error message to the return structure of calling bapi.please reply at the earliest.High points can be expected.

thanks got it

How To create a message Choice for a page?

Hi,
I need to create a message choice for a page and on selection of that it should navigate me to next page..like
ex:
If iam havng 10 locations like Delhi,Hyderabad,Chennai....
I need to select one of them and it should be navigated to next page based on the above selection...These values are to be retrieved from database...
Can u gimme any idea..how to proceed?

Maybe something like this will help.
On your <af:selectOneChoice/> component configure a valueChangeListener and set autosubmit to true.
In your valueChangeListener change the current view like :
public void handleValueChanged(ValueChangeEvent valueChangeEvent) {
// Add event code here...
if (!PhaseId.INVOKE_APPLICATION.equals(valueChangeEvent.getPhaseId())) {
valueChangeEvent.setPhaseId(PhaseId.INVOKE_APPLICATION);
valueChangeEvent.queue();
} else {
// add additiional app functionality here
ControllerContext controllerContext = ControllerContext.getInstance();
ViewPortContext viewPortContext = controllerContext.getCurrentViewPort();
viewPortContext.setViewId("test");
Regards,
Kenneth
The deferred execution of ValueChangeEvent is necessary as the ViewID can only be changed in INVOKE_APPLICATION phase.

How to give a message in the UI page if there is an error in AppImpl method

How to give an error message in the jsf page if the AppImpl method fails ?
Use case : I have a create form and a submit button which binds with a client interface method in Application Impl class. If the method fails due to some exception , how can I notify the users with proper error message ?
Thanks
Suneesh

Hi,
As the previous reply (casting the result) is the best solution here (separating model and view logic) but sometimes we do a shortcut.
may be it is not the best approach but it comes handy most of the time, this approach is also error-proven. we used it more than 2 years in large applications.
add the following code whenever you want to add message in UI be aware that we have add it in a jar and add that library to the model projects
FacesContext ctx = getFacesContext();
FacesMessage fm = new FacesMessage(FacesMessage.SEVERITY_ERROR, msg, "");
ctx.addMessage(null, fm);
you just need to add jsf library to the model applications and replace msg with your message.
regarding throw jboException, it seems good most of the time but sometimes when you are in middle of the transaction it somehow ruin the flow of the transactions.
Regards.

How to add a picture to the login page only

Hi,
I'd like to add a picture to my login page (without changing the standard template).
Can anyone tell me how to do this?
Thanks.

user 601980,
Please, have a look here:
http://htmldb.oracle.com/pls/otn/f?p=31517:1
Denes Kubicek
http://deneskubicek.blogspot.com/
http://www.opal-consulting.de/apex/f?p=107:7
http://htmldb.oracle.com/pls/otn/f?p=31517:1
-------------------------------------------------------------------

How to add interactive feature in top of page in ALV .

Hi All ,
There is immediate requirement , I have to add interactive feature in top of page in ALV grid .
Can anyone sort this out ?
Reward points will be given.

hi,
check this example:
REPORT ZSR_ALV_INTERACTIVE2.
TYPE-POOLS: SLIS.
*DATA DECLARATION.
TYPES: BEGIN OF I_VBAK,
VBELN TYPE VBELN_VA,
AUGRU TYPE AUGRU,
END OF I_VBAK.
TYPES: BEGIN OF I_VBAP,
VBELN TYPE VBELN_VA,
AUGRU TYPE AUGRU,
POSNR TYPE POSNR_VA,
MATNR TYPE MATNR,
ZMENG TYPE DZMENG,
END OF I_VBAP.
TYPES: BEGIN OF I_MAKT,
MATNR TYPE MATNR,
MAKTX TYPE MAKTX,
END OF I_MAKT.
TYPES: BEGIN OF I_LIPS,
POSNR TYPE POSNR_VL,
MATNR TYPE MATNR,
LFIMG TYPE LFIMG,
END OF I_LIPS.
TYPES: BEGIN OF I_REASON,
SPRAS TYPE SPRAS,
AUGRU TYPE AUGRU,
BEZEI TYPE BEZEI40,
END OF I_REASON.
TYPES: BEGIN OF I_VBPA,
VBELN TYPE VBELN,
PARVW TYPE PARVW,
KUNNR TYPE KUNNR,
END OF I_VBPA.
TYPES: BEGIN OF I_KNA1,
KUNNR TYPE KUNNR,
NAME1 TYPE NAME1_GP,
END OF I_KNA1.
TYPES: BEGIN OF I_FINAL,
VBELN TYPE VBELN_VA,
POSNR TYPE POSNR_VA,
MATNR TYPE MATNR,
ZMENG TYPE DZMENG,
MAKTX TYPE MAKTX,
LFIMG TYPE LFIMG,
SPRAS TYPE SPRAS,
AUGRU TYPE AUGRU,
BEZEI TYPE BEZEI40,
PARVW TYPE PARVW,
KUNNR TYPE KUNNR,
NAME1 TYPE NAME1_GP,
END OF I_FINAL.
*INTERNAL TABLES
DATA: IT_VBAK TYPE STANDARD TABLE OF I_VBAK.
DATA: IT_VBAP TYPE STANDARD TABLE OF I_VBAP.
DATA: IT_MAKT TYPE STANDARD TABLE OF I_MAKT.
DATA: IT_LIPS TYPE STANDARD TABLE OF I_LIPS.
DATA: IT_VBPA TYPE STANDARD TABLE OF I_VBPA.
DATA: IT_KNA1 TYPE STANDARD TABLE OF I_KNA1.
DATA: IT_FINAL TYPE STANDARD TABLE OF I_FINAL.
DATA: IT_REASON TYPE STANDARD TABLE OF I_REASON.
DATA : V_FLAG.
*WORK AREA
DATA: WA_VBAK TYPE I_VBAK.
DATA: WA_VBAP TYPE I_VBAP.
DATA: WA_MAKT TYPE I_MAKT.
DATA: WA_LIPS TYPE I_LIPS.
DATA: WA_VBPA TYPE I_VBPA.
DATA: WA_KNA1 TYPE I_KNA1.
DATA: WA_FINAL TYPE I_FINAL.
DATA: WA_REASON TYPE I_REASON.
*DATA DECLARATION.
DATA: V_PROGNAME TYPE SY-REPID.
DATA: V_VBELN TYPE VBAK-VBELN.
DATA: V_GRIDTITLE TYPE LVC_TITLE.
***PARAMETERS: D_VARI LIKE DISVARIANT-VARIANT.
*DATA: I_VARIANT LIKE DISVARIANT.
*DATA: P_VARI LIKE DISVARIANT-VARIANT.
*DATA DECLARATION FOR CATALOGS LAYOUT SORT EVENTCATALOG TOPOFPAGE.
DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: I_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: I_SORTINFO TYPE SLIS_T_SORTINFO_ALV.
DATA: I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA: I_EVENTCAT TYPE SLIS_T_EVENT.
INITIALIZATION.
V_PROGNAME = SY-REPID.
V_FLAG = SPACE.
*SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS: S_VBELN FOR V_VBELN.
SELECTION-SCREEN END OF BLOCK BLK1.
*AT SLECTION-SCREEN.
AT SELECTION-SCREEN.
PERFORM Z_VALIDATIONS.
*START OF SELECTION.
START-OF-SELECTION.
PERFORM Z_SELECT.
PERFORM CHECK_VALIDATION_FLAG.
PERFORM Z_FIELDCAT USING I_FIELDCAT.
PERFORM Z_LAYOUT.
PERFORM Z_SORTINFO USING I_SORTINFO.
PERFORM Z_EVENTCAT USING I_EVENTCAT.
PERFORM Z_GRIDTITLE.
PERFORM Z_LISTHEADER USING I_LISTHEADER.
PERFORM Z_DISPLAY.
*& Form Z_VALIDATIONS
FORM Z_VALIDATIONS .
SELECT VBELN INTO V_VBELN
UP TO 1 ROWS
FROM VBAK
WHERE VBELN IN S_VBELN.
ENDSELECT.
IF SY-SUBRC <> 0.
 MESSAGE I002(SY) WITH 'No Records'.
 V_FLAG = 'X'.
ENDIF.
ENDFORM. " Z_VALIDATIONS
*& Form Z_FIELDCAT
FORM Z_FIELDCAT USING P_I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: I_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
*VBAK-VELN
I_FIELDCAT-COL_POS = '1'. " POSITION OF THE COLUMN.
I_FIELDCAT-FIELDNAME = 'VBELN'. " FIELD FOR WHICH CATALOG ID FILLED.
I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
I_FIELDCAT-KEY = 'X'. " SO THAT THIS FIELD IS NOT SCROLLABLE AND
*HIDDABLE.
I_FIELDCAT-JUST = 'C'. " FOR JUSTIFICATION.
I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
I_FIELDCAT-SELTEXT_L = 'SALES ORDER'. " LONG TEXT FOR HEADER.
I_FIELDCAT-OUTPUTLEN = 15. " SET THE OUTPUT LENGTH.
I_FIELDCAT-REF_TABNAME = 'VBAK'. " FOR F1 & F4 HELP AS REFERNCED TO
*THE DDIC TABLE.
APPEND I_FIELDCAT TO P_I_FIELDCAT.
*VBAP-SPRAS
I_FIELDCAT-COL_POS = '2'. " POSITION OF THE COLUMN.
I_FIELDCAT-FIELDNAME = 'SPRAS'. " FIELD FOR WHICH CATALOG ID FILLED.
I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
I_FIELDCAT-SELTEXT_L = 'LANGUAGE'. " LONG TEXT FOR HEADER.
I_FIELDCAT-OUTPUTLEN = 5. " SET THE OUTPUT LENGTH.
I_FIELDCAT-REF_TABNAME = 'TVAUT'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
APPEND I_FIELDCAT TO P_I_FIELDCAT.
*VBAP-AUGRU
I_FIELDCAT-COL_POS = '3'. " POSITION OF THE COLUMN.
I_FIELDCAT-FIELDNAME = 'AUGRU'. " FIELD FOR WHICH CATALOG ID FILLED.
I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
I_FIELDCAT-SELTEXT_L = 'REASON'. " LONG TEXT FOR HEADER.
I_FIELDCAT-OUTPUTLEN = 5. " SET THE OUTPUT LENGTH.
I_FIELDCAT-REF_TABNAME = 'VBAK'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
APPEND I_FIELDCAT TO P_I_FIELDCAT.
*VBAP-bezei
I_FIELDCAT-COL_POS = '4'. " POSITION OF THE COLUMN.
I_FIELDCAT-FIELDNAME = 'BEZEI'. " FIELD FOR WHICH CATALOG ID FILLED.
I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
I_FIELDCAT-SELTEXT_L = 'DESCRIPTION'. " LONG TEXT FOR HEADER.
I_FIELDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FIELDCAT-REF_TABNAME = 'TVAUT'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
APPEND I_FIELDCAT TO P_I_FIELDCAT.
*VBAP-POSNR
I_FIELDCAT-COL_POS = '5'. " POSITION OF THE COLUMN.
I_FIELDCAT-FIELDNAME = 'POSNR'. " FIELD FOR WHICH CATALOG ID FILLED.
I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
I_FIELDCAT-SELTEXT_L = 'ITEM'. " LONG TEXT FOR HEADER.
I_FIELDCAT-OUTPUTLEN = 8. " SET THE OUTPUT LENGTH.
I_FIELDCAT-REF_TABNAME = 'VBAP'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
APPEND I_FIELDCAT TO P_I_FIELDCAT.
*VBAP-MATNR.
I_FIELDCAT-COL_POS = '6'. " POSITION OF THE COLUMN.
I_FIELDCAT-FIELDNAME = 'MATNR'. " FIELD FOR WHICH CATALOG ID FILLED.
I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
I_FIELDCAT-SELTEXT_L = 'MATERIAL'. " LONG TEXT FOR HEADER.
I_FIELDCAT-OUTPUTLEN = 10. " SET THE OUTPUT LENGTH.
I_FIELDCAT-REF_TABNAME = 'VBAP'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
APPEND I_FIELDCAT TO P_I_FIELDCAT.
*VBAP-ZMENG
I_FIELDCAT-COL_POS = '7'. " POSITION OF THE COLUMN.
I_FIELDCAT-FIELDNAME = 'ZMENG'. " FIELD FOR WHICH CATALOG ID FILLED.
I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
I_FIELDCAT-SELTEXT_L = 'QUANT'. " LONG TEXT FOR HEADER.
I_FIELDCAT-OUTPUTLEN = 10. " SET THE OUTPUT LENGTH.
I_FIELDCAT-REF_TABNAME = 'VBAP'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
APPEND I_FIELDCAT TO P_I_FIELDCAT.
*MAKT-MAKTX
I_FIELDCAT-COL_POS = '8'. " POSITION OF THE COLUMN.
I_FIELDCAT-FIELDNAME = 'MAKTX'. " FIELD FOR WHICH CATALOG ID FILLED.
I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
I_FIELDCAT-SELTEXT_L = 'DESCRIPTION'. " LONG TEXT FOR HEADER.
I_FIELDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FIELDCAT-REF_TABNAME = 'MAKT'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
APPEND I_FIELDCAT TO P_I_FIELDCAT.
*LIPS-VBELN
I_FIELDCAT-COL_POS = '9'. " POSITION OF THE COLUMN.
I_FIELDCAT-FIELDNAME = 'VBELN'. " FIELD FOR WHICH CATALOG ID FILLED.
I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
I_FIELDCAT-SELTEXT_L = 'DELIVERY'. " LONG TEXT FOR HEADER.
I_FIELDCAT-OUTPUTLEN = 15. " SET THE OUTPUT LENGTH.
I_FIELDCAT-REF_TABNAME = 'LIPS'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
APPEND I_FIELDCAT TO P_I_FIELDCAT.
*LIPS-LFIMG
I_FIELDCAT-COL_POS = '10'. " POSITION OF THE COLUMN.
I_FIELDCAT-FIELDNAME = 'LFIMG'. " FIELD FOR WHICH CATALOG ID FILLED.
I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
I_FIELDCAT-DO_SUM = 'X'.
I_FIELDCAT-SELTEXT_L = 'LFIMG'. " LONG TEXT FOR HEADER.
I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.
I_FIELDCAT-REF_TABNAME = 'LIPS'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
APPEND I_FIELDCAT TO P_I_FIELDCAT.
*parvw
I_FIELDCAT-COL_POS = '11'. " POSITION OF THE COLUMN.
I_FIELDCAT-FIELDNAME = 'PARVW'. " FIELD FOR WHICH CATALOG ID FILLED.
I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
I_FIELDCAT-SELTEXT_L = 'PARTNER FUN'. " LONG TEXT FOR HEADER.
I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.
I_FIELDCAT-REF_TABNAME = 'VBPA'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
APPEND I_FIELDCAT TO P_I_FIELDCAT.
*KUNNR
I_FIELDCAT-COL_POS = '12'. " POSITION OF THE COLUMN.
I_FIELDCAT-FIELDNAME = 'KUNNR'. " FIELD FOR WHICH CATALOG ID FILLED.
I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
I_FIELDCAT-SELTEXT_L = 'SHIP'. " LONG TEXT FOR HEADER.
I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.
I_FIELDCAT-REF_TABNAME = 'VBPA'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
APPEND I_FIELDCAT TO P_I_FIELDCAT.
*NAME1
I_FIELDCAT-COL_POS = '13'. " POSITION OF THE COLUMN.
I_FIELDCAT-FIELDNAME = 'NAME1'. " FIELD FOR WHICH CATALOG ID FILLED.
I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
I_FIELDCAT-SELTEXT_L = 'NAME'. " LONG TEXT FOR HEADER.
I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.
I_FIELDCAT-REF_TABNAME = 'KNA1'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
APPEND I_FIELDCAT TO P_I_FIELDCAT.
ENDFORM. " Z_FIELDCAT
*& Form Z_SELECT
FORM Z_SELECT .
SELECT VBELN
AUGRU INTO CORRESPONDING FIELDS OF TABLE IT_VBAK
FROM VBAK
WHERE VBELN IN S_VBELN.
IF SY-SUBRC = 0.
 SELECT VBELN
 POSNR
 MATNR
 ZMENG INTO CORRESPONDING FIELDS OF TABLE IT_VBAP
 FROM VBAP
 FOR ALL ENTRIES IN IT_VBAK
 WHERE VBELN = IT_VBAK-VBELN.
 IF SY-SUBRC = 0.
 SELECT SPRAS
 AUGRU
 BEZEI INTO CORRESPONDING FIELDS OF TABLE IT_REASON
 FROM TVAUT
 FOR ALL ENTRIES IN IT_VBAK
 WHERE AUGRU = IT_VBAK-AUGRU.
 IF SY-SUBRC = 0.
 SELECT VBELN
 PARVW
 KUNNR INTO CORRESPONDING FIELDS OF TABLE IT_VBPA
 FROM VBPA
 FOR ALL ENTRIES IN IT_VBAK
 WHERE VBELN = IT_VBAK-VBELN.
 IF SY-SUBRC = 0.
 SELECT KUNNR
 NAME1 INTO CORRESPONDING FIELDS OF TABLE IT_KNA1
 FROM KNA1
 FOR ALL ENTRIES IN IT_VBPA
 WHERE KUNNR = IT_VBPA-KUNNR.
 IF SY-SUBRC = 0.
 SELECT POSNR
 MATNR
 LFIMG INTO CORRESPONDING FIELDS OF TABLE IT_LIPS
 FROM LIPS
 FOR ALL ENTRIES IN IT_VBAP
 WHERE POSNR = IT_VBAP-POSNR.
 IF SY-SUBRC = 0.
 SELECT MATNR
 MAKTX INTO CORRESPONDING FIELDS OF TABLE IT_MAKT
 FROM MAKT
 FOR ALL ENTRIES IN IT_VBAP
 WHERE MATNR = IT_VBAP-MATNR.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDIF.
ELSE.
 MESSAGE I002(SY) WITH 'No Data found'.
 LEAVE LIST-PROCESSING.
ENDIF.
IF SY-SUBRC = 0.
 LOOP AT IT_VBAP INTO WA_VBAP.
 READ TABLE IT_VBAK INTO WA_VBAK WITH KEY VBELN = WA_VBAP-VBELN
BINARY SEARCH.
 IF SY-SUBRC = 0.
*MOVE DATA INTO IT_FINAL.
 MOVE: WA_VBAK-VBELN TO WA_FINAL-VBELN,
 WA_VBAK-AUGRU TO WA_FINAL-AUGRU,
 WA_VBAP-POSNR TO WA_FINAL-POSNR,
 WA_VBAP-MATNR TO WA_FINAL-MATNR,
 WA_VBAP-ZMENG TO WA_FINAL-ZMENG.
 ENDIF.
 READ TABLE IT_LIPS INTO WA_LIPS WITH KEY POSNR = WA_FINAL-POSNR
BINARY SEARCH.
 IF SY-SUBRC = 0.
 MOVE: WA_LIPS-LFIMG TO WA_FINAL-LFIMG.
 ENDIF.
 READ TABLE IT_REASON INTO WA_REASON WITH KEY AUGRU =
WA_FINAL-AUGRU BINARY SEARCH.
 IF SY-SUBRC = 0.
 MOVE: WA_REASON-SPRAS TO WA_FINAL-SPRAS,
 WA_REASON-BEZEI TO WA_FINAL-BEZEI.
 ENDIF.
 READ TABLE IT_MAKT INTO WA_MAKT WITH KEY MATNR = WA_FINAL-MATNR
BINARY SEARCH.
 IF SY-SUBRC = 0.
 MOVE: WA_MAKT-MAKTX TO WA_FINAL-MAKTX.
 ENDIF.
 READ TABLE IT_VBPA INTO WA_VBPA WITH KEY VBELN = WA_FINAL-VBELN
BINARY SEARCH.
 IF SY-SUBRC = 0.
 MOVE: WA_VBPA-PARVW TO WA_FINAL-PARVW,
 WA_VBPA-KUNNR TO WA_FINAL-KUNNR.
 ENDIF.
 READ TABLE IT_KNA1 INTO WA_KNA1 WITH KEY KUNNR = WA_FINAL-KUNNR
BINARY SEARCH.
 IF SY-SUBRC = 0.
 MOVE: WA_KNA1-NAME1 TO WA_FINAL-NAME1.
 ENDIF.
 APPEND WA_FINAL TO IT_FINAL.
 CLEAR WA_FINAL.
 ENDLOOP.
ENDIF.
ENDFORM. " Z_SELECT
*& Form Z_LAYOUT
FORM Z_LAYOUT .
I_LAYOUT-ZEBRA = 'X'.
I_LAYOUT-TOTALS_TEXT = 'Total'(A00).
I_LAYOUT-SUBTOTALS_TEXT = 'SubTotal'(A01).
I_LAYOUT-BOX_TABNAME = 'IT_FINAL'.
ENDFORM. " Z_LAYOUT
*& Form Z_SORTINFO
FORM Z_SORTINFO USING P_I_SORTINFO TYPE SLIS_T_SORTINFO_ALV.
DATA: I_SORTINFO TYPE SLIS_SORTINFO_ALV.
CLEAR I_SORTINFO.
I_SORTINFO-SPOS = '1'.
I_SORTINFO-FIELDNAME = 'VBELN'.
I_SORTINFO-TABNAME = 'IT_FINAL'.
I_SORTINFO-UP = 'X'.
I_SORTINFO-GROUP = 'UL'. " I.E UNDERLINE AFTER EVERY GROUP
I_SORTINFO-SUBTOT = 'X'.
APPEND I_SORTINFO TO P_I_SORTINFO.
ENDFORM. " Z_SORTINFO
*& Form Z_EVENTCAT
FORM Z_EVENTCAT USING P_I_EVENTCAT TYPE SLIS_T_EVENT.
DATA: I_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = P_I_EVENTCAT
 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.
CLEAR I_EVENT.
READ TABLE P_I_EVENTCAT WITH KEY NAME = SLIS_EV_TOP_OF_PAGE INTO
I_EVENT.
IF SY-SUBRC = 0.
 MOVE 'TOP_OF_PAGE' TO I_EVENT-FORM.
 APPEND I_EVENT TO P_I_EVENTCAT.
ENDIF.
READ TABLE P_I_EVENTCAT WITH KEY NAME = SLIS_EV_PF_STATUS_SET INTO
I_EVENT.
IF SY-SUBRC = 0.
 MOVE 'SET_PF_STATUS' TO I_EVENT-FORM.
 APPEND I_EVENT TO P_I_EVENTCAT.
ENDIF.
CLEAR I_EVENT.
READ TABLE P_I_EVENTCAT INTO I_EVENT WITH KEY NAME =
SLIS_EV_USER_COMMAND .
IF SY-SUBRC = 0.
 MOVE 'USER_COMMAND' TO I_EVENT-FORM.
 APPEND I_EVENT TO P_I_EVENTCAT.
ENDIF.
ENDFORM. " Z_EVENTCAT
*& Form Z_DISPLAY
FORM Z_DISPLAY .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = V_PROGNAME
*I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
I_GRID_TITLE = V_GRIDTITLE
I_SAVE = 'A'
IS_LAYOUT = I_LAYOUT
IT_FIELDCAT = I_FIELDCAT[]
IT_SORT = I_SORTINFO
IT_EVENTS = I_EVENTCAT
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = IT_FINAL
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. " Z_DISPLAY
*& Form Z_GRIDTITLE
FORM Z_GRIDTITLE .
V_GRIDTITLE = 'ALV FOR SALES ORDER DISPLAY'.
ENDFORM. " Z_GRIDTITLE
*TOP OF PAGE.
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = I_LISTHEADER.
ENDFORM. "TOP_OF_PAGE
*MENU SETTINGS.
FORM SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'ALV_MENU'.
ENDFORM. "SET_PF_STATUS
*USER-COMMAND
FORM USER_COMMAND USING P_UCOMM TYPE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
DATA : VBELN TYPE VBELN_VA.
CASE P_UCOMM.
 WHEN 'BACK'.
 LEAVE PROGRAM.
 WHEN '&IC1'.
 CLEAR : VBELN.
 VBELN = RS_SELFIELD-VALUE.
 SET PARAMETER ID: 'AUN' FIELD VBELN.
 CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
ENDCASE.
ENDFORM. " USER_COMMAND
*& Form Z_LISTHEADER
FORM Z_LISTHEADER USING P_I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA: L_LISTHEADER TYPE SLIS_LISTHEADER.
REFRESH P_I_LISTHEADER.
CLEAR L_LISTHEADER.
L_LISTHEADER-TYP = 'H'.
L_LISTHEADER-INFO = TEXT-001.
APPEND L_LISTHEADER TO P_I_LISTHEADER.
CLEAR L_LISTHEADER.
L_LISTHEADER-TYP = 'H'.
L_LISTHEADER-INFO = TEXT-002.
APPEND L_LISTHEADER TO P_I_LISTHEADER.
ENDFORM. " Z_LISTHEADER
*& Form check_validation_flag
text
--> p1 text
<-- p2 text
FORM CHECK_VALIDATION_FLAG .
IF NOT V_FLAG IS INITIAL.
 LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM. " check_validation_flag

How to add maintenance message on EBP landing page?

Similar Messages

Maybe you are looking for