How to add project summary programmatically to publishing page.

Let me know how to add project summary webpart to page in sharepoint 2013.

Hi,
Okay,
check those links to add web part using code, try them and change the parameter to the name of the web part
http://www.stefangordon.com/add-web-part-to-page-programmatically/
http://blogs.msdn.com/b/tconte/archive/2007/01/18/programmatically-adding-web-parts-to-a-page.aspx
http://nikpatel.net/2010/11/09/programmatically-add-the-web-part-on-the-sharepoint-web-part-page/https://manojssharepointblog.wordpress.com/2013/03/27/adding-and-removing-web-parts-programmatically-in-sharepoint/
https://social.msdn.microsoft.com/Forums/sharepoint/en-US/1bc7212c-385d-4a89-9b7e-9d37ee762017/add-webpart-on-sharepoint-page-programmatically?forum=sharepointdevelopmentlegacy
Kind Regards,
John Naguib
Technical Consultant/Architect
MCITP, MCPD, MCTS, MCT, TOGAF 9 Foundation
Please remember to mark your question as answered if this solves your problem

Similar Messages

How to add (multiple) cursors programmatically in an XY graph?

how to add (multiple) cursors programmatically in an XY graph?
I am building an XY graph. then I would like to add cursors at certain locations (positioned on x axis) I determine through a program.
How can I add cursors programatically?
Thank you.

Initialize a cluster array (CrsrList type) with as many cursors as you think you would ever need. Setup your cursors dynamically, then delete the unused cursors (array elements) and then update your CursorList property.
Message Edited by vt92 on 03-20-2009 04:04 PM
"There is a God shaped vacuum in the heart of every man which cannot be filled by any created thing, but only by God, the Creator, made known through Jesus." - Blaise Pascal
Attachments:
cursors.PNG ‏5 KB

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 ?

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 parameter fields in BI publisher fields

Hi,
I'm creating xml report for Apps standard Trial Balance Summary, here i cant able to run the .rdf locally due to SRW.UserExit .
So i got the XML file from output of the report.
Then i added the xml data in BI publisher and then i have created the .rtf for that.
Here i need to add some fields which is not available in fields list (in BI Publisher).
How to add that fields, or is possible to add fields manually.
That fields are given as parameters while running the .rdf file.
Please tell me how to solve this problem.
Is possible to add fields manually means tell me how to do that.

If those fields are input parameters to the concurrent program then you can display them in RTF by declaring and printing it as
<?param@begin:P_CONC_PARAM?>
and display it as <?$P_CONC_PARAM?> - Note P_CONC_PARAM should match your parameter token

How to add more summary data in the MIP of Compensation workbench

Hi all,
In the MIP (incentive plan) of the compensation workbench, we need to add more summary data in the summary section. I checked that all the summary data in that section are stored in the table 'ben_cwb_summary'.
Even we can change the VIEW object for that page (using extension), we can't retrieve it because the new summary data/information we need to add are not stored in the table 'ben_cwb_summary'. We need to write our query to summerize data.
How to implement it?
Thanks in advanced!
Jane

faiz2000 wrote:
> How to add more one record in the same time?
>
> Please I need your help to add more one record in the
same time, how can I do
> that?
>
> I have only one text field and the value it is linked
from other table, if
> user he bushes bottoms the all data it will copy it to
new record:
>
> Ex.: <input name="textfield" type="text"
>
value="<%=(Recordset1.Fields.Item("webgroup").Value)%>">
>
>
Use "Repeat Region"
Mick

CWB: how to add more summary data in the summary section

HI All,
We need to add more summary data in the summary section. Some summary data need to calculated dynamically like (summary data A /summary data B).
under the worksheet, there is a link:
Personalize Dynamic Columns
But this link allows to create Dynamic Columns for the worksheet, but not for summary setion.
Is any way to add more summary data in the summary section through personalization instead of customization (VO extension)?
Thanks in advanced!
Jane

faiz2000 wrote:
> How to add more one record in the same time?
>
> Please I need your help to add more one record in the
same time, how can I do
> that?
>
> I have only one text field and the value it is linked
from other table, if
> user he bushes bottoms the all data it will copy it to
new record:
>
> Ex.: <input name="textfield" type="text"
>
value="<%=(Recordset1.Fields.Item("webgroup").Value)%>">
>
>
Use "Repeat Region"
Mick

How to add project to website?

I finished my project in the Beta 2 version, but can't find any tutorials on how to actually add it to my website...?
Can someone please explain the difference between the "deploy to web" and "run-local" folders (when to use either, or), and also tell me how to add my project into my Dreamweaver site?
Thanks!

Thanks much for the responses although I'm still having a hard time understanding exactly what to do. The only instructions on these links are to "upload the entire contents of the deploy-to-web folder to your web server". If one had made their whole site or an entire page using FC, I could see how this would work, but how would I add just one FC component to my page?
My FC component is a clickable map to be inserted into one of the tabs of a Spry Accordion.
Which file(s) in the "deploy to web" folder would i insert into the Accordion Panel Content?

How to add Project 365 to existing Office 365 subscribed through GoDaddy

We subscribe to Office 365 through our GoDaddy account. Is there a way to add Project 365 to this subscription? If not (meaning we have to go through Microsoft) is there a way to merge these accounts? It appears we would need a different
sign in to access Project from Office.
Thanks,

You should be able to add this as the global administrator. If you go to the App Launcher and select Admin, under Billing, there is a subscription link. Click there. The Add new subscription option is at the top.
Treb Gatte, Project MVP |
http://www.tumbleroad.com |
@TumbleRoad

How to add buttons with links to different pages in my flash document?

Hi I created a template for my flash animation which is a simple content box and a scroll bar beside it.. Anyway at the top I also have 3 pages (they are currently just part of the png background image so they are not buttons of any sort).. My question is how can I make links to these different pages so when clicked in the flash animation they will just open normally like they would in like a website..
I am a flash beginner so I'm not too technical with it... I don't know if I would have to create 3 seperate documents for my 3 pages or something else?
Thanks!

Do you expect the loaded SWF to load "into" the SWF that contains the buttons or are you expecting it to overwrite the existing SWF you're already in (similar to a web page)?
Loading a SWF inside is pretty straight forward, as long as the SWF is on the same domain or the domain you're loading from has a crossdomain.xml policy allowing it and the SWF is set to publish with the networking sandbox:
import flash.display.Loader;
import flash.net.URLRequest;
import flash.events.Event;
var myLoader:Loader = new Loader();
// listen for completion
myLoader.contentLoaderInfo.addEventListener(Event.COMPLETE, handleCompleteF);
// usually add some IOErrorEvent or SecurityErrorEvent handlers here
// button hook here
myButtonInstanceName.addEventListener(MouseEvent.CLICK, loadPageF);
function loadPageF(e:MouseEvent):void
     // try to load
     try
          myLoader.load(new URLRequest('another.swf'));
     catch (e:*)
          // catch any error, trace it to flash IDE for debugging
          trace("Error loading SWF: " + e);
function handleCompleteF(e:Event):void
     // success, add to display list
     addChild(myLoader);
Season to taste, like moving the position of the Loader object. The Loader will contain the SWF in the .content property (e.g. myLoader.content) and is a display object so you can just add it directly to the display list.
If you add a second button you can re-use the myLoader to .load() a different SWF, just point it to a new function. You could re-use the same function but you'd need to detect the different buttons (possibly via the .name property). I presume you might want to do "different things" when different pages are loaded so I'm assuming you'd probably use a different function rather than make a huge reused branching function.
More info on Loader with sample code here:
http://help.adobe.com/en_US/FlashPlatform/reference/actionscript/3/flash/display/Loader.ht ml#includeExamplesSummary

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 a DFF to a OA page by personalization

Hi Everydody,
Can anybody please tell me how can we add a DFF to a OA page by personalization, that is what values for the parameters we have to set.
Thanks

Setting Up a Descriptive Flexfield in Oracle Applications
Before you can add a descriptive flexfield to an OA Framework page, you must first setup the descriptive
flexfield in Oracle Applications. To start, review Chapter 3 ("Planning and Defining Descriptive Flexfields") in
the Oracle Applications Flexfields Guide Release 11i.
When you have a clear plan for the descriptive flexfield you wish to set up, refer to the section titled
"Implementing Descriptive Flexfields" in Chapter 14 ("Flexfields") of the Oracle Applications Developer's Guide
Release 11i for instructions to the following general steps:
Step 1: Define descriptive flexfield columns in your database.
Step 2: Register your descriptive flexfield table with Oracle Application Object Library.
Step 3: Register your descriptive flexfield using the Descriptive Flexfields Window.
Next, refer to the Oracle Applications Flexfields Guide Release 11i for instructions to these general steps:
Step 4: Define your value sets in the Value Sets Window, as described in Chapter 5 ("Values and Value
Sets").
Step 5: Define your descriptive flexfield structure using the Descriptive Flexfield Segments Window, as
described in the "Descriptive Flexfield Segments Window" section of Chapter 3 ("Planning and Defining
Descriptive Flexfields").
Recall that the value of a descriptive flexfield context field determines the context of the descriptive flexfield
and the context-sensitive segments (if any) that are displayed. The section titled "Context Fields and
Reference Fields" in Chapter 3 ("Planning and Defining Descriptive Flexfields") discusses context fields in
more detail.
Note: Reference fields for descriptive flexfields are supported by Forms-based Oracle Applications, but not
by OA Framework. A developer mode error occurs in JDeveloper if you try to implement this feature in OA
Framework. Refer to the "Reference Fields" section of Chapter 3 ("Planning and Defining Descriptive
Flexfields") in the Oracle Applications Flexfields Guide Release 11i for additional information about
reference fields.
Step 6: When you are ready to add the descriptive flexfield to an OA Framework page, follow the steps
outlined in the Declarative Implementation and Runtime Control sections below.
Declarative Implementation
The following steps describe how to add a descriptive flexfield item to a OA Framework region:
Step 1: Define an item of the item style flex in your region.
Note: You cannot create a flex item directly under a messageComponentLayout region, but you can create a
messageLayout region under the messageComponentLayout region and add the flex item under the
messageLayout region.
Step 2: Set the Read Only property to True or False, depending on whether you want the descriptive flexfield
to be read only.
304
Step 3: Specify a View Instance for your flexfield. The view instance should be the same as the view instance
(view object) specified for your region. When the view object is defined, it should include all the database
columns necessary for this descriptive flexfield. You should not change the database column names for this
flexfield because the OADescriptiveFlexBean uses the same naming convention that the view object
generation routine uses to find the corresponding attribute names from your view object.
Note: OA Framework supports multiple descriptive flexfields on the same view object.
Note: If a flexfield's view object does not return a row, an OAException will not be thrown so that the
controller's processRequest method can still execute and render the flexfield.
Step 4: Set the Appl Short Name property to the short name of the application to which the descriptive flexfield
is registered. (Step 3 of Setting Up a Descriptive Flexfield in Oracle Applications).
Step 5: Set the Name property to the name of the descriptive flexfield as it was registered.
Note: This differs from how Key Flexfields are defined by shorthand codes.
Step 6: Set the Type property to descriptive.
Step 7: Set the Segment List property as appropriate (see Descriptive Flexfield Segment List).
Step 8: Finally, you may set the Display Context Field to True or False, depending on whether you want to
hide or show the context for the descriptive flexfield.

How to add an order number to each page of an adobe doc?

I have a customer that is requiring us to add their order number to every page of multipage documents we send them. Right now we're using typewriter and pasting the order number to each page individually. Is there an easy way to automate this process? So that for each order number, we just type in the order number once and each page subsequently has the order number stamped on it.
Thanks in advance for any and all help.
We are running both Adobe Acrobat 7.0 and 8.0.

Perfect. That's exactly what I was looking for.
Thanks a lot.

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 project summary programmatically to publishing page.

Similar Messages

Maybe you are looking for