REUSE_ALV_HIERSEQ_LIST_DISPLAY and new Page

Hi all,
I am using FM REUSE_ALV_HIERSEQ_LIST_DISPLAY to display ALV List. Now, i want to print a New page on every Header record , is it possible?if Yes, then how?
thanks in advance.

Hi VIpin,
Please find the code and function module ..
*& Report Z8AS_PROGRAM_ALV
REPORT Z8AS_PROGRAM_ALV.
TABLES : STKO,STPO,MAKT,MAST.
TYPE-POOLS : SLIS.
DATA : BEGIN OF ISTKO OCCURS 0,
 STLNR LIKE STKO-STLNR,
 DATUV LIKE STKO-DATUV,
 MATNR LIKE MAST-MATNR,
 BMENG LIKE STKO-BMENG,
 BMEIN LIKE STKO-BMEIN,
 END OF ISTKO.
DATA : BEGIN OF ISTPO OCCURS 0,
 STLNR LIKE STPO-STLNR,
 IDNRK LIKE STPO-IDNRK,
 MENGE LIKE STPO-MENGE,
 MEINS LIKE STPO-MEINS,
 MAKTX LIKE MAKT-MAKTX,
 END OF ISTPO.
DATA : BEGIN OF IMAKT OCCURS 0,
 MATNR LIKE MAKT-MATNR,
 MAKTX LIKE MAKT-MAKTX,
 END OF IMAKT.
DATA : BEGIN OF IMAST OCCURS 0,
 MATNR LIKE MAST-MATNR,
 STLNR LIKE MAST-STLNR,
 END OF IMAST.
DATA : IFIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 WFIELDCAT TYPE SLIS_FIELDCAT_ALV,
 ILAYOUT TYPE SLIS_LAYOUT_ALV,
 IKEYINFO TYPE SLIS_KEYINFO_ALV,
 IEVENT TYPE SLIS_T_EVENT,
 WEVENT TYPE SLIS_ALV_EVENT.
PARAMETERS : P_NUM TYPE I .
START-OF-SELECTION.
PERFORM GETDATA.
PERFORM GETHEADERMAT.
PERFORM GET_MAT_DESC.
PERFORM BUILD_FCAT_HEAD.
PERFORM BUILD_FCAT_ITEM.
PERFORM BUILD_KEYINFO.
PERFORM BUILD_EVENT_TAB.
PERFORM BUILD_LAYOUT.
PERFORM DISPLAY_DATA.
*& Form GETDATA
 text
--> p1 text
<-- p2 text
FORM GETDATA .
SELECT STLNR DATUV BMENG BMEIN INTO CORRESPONDING FIELDS OF TABLE ISTKO
 FROM STKO UP TO P_NUM ROWS.
IF NOT ISTKO[] IS INITIAL.
 SELECT STLNR IDNRK MENGE MEINS INTO TABLE ISTPO FROM STPO FOR ALL ENTRIES IN ISTKO
 WHERE STLNR = ISTKO-STLNR AND POSTP = 'L'.
ENDIF.
ENDFORM. " GETDATA
*& Form BUILD_FCAT_HEAD
 text
--> p1 text
<-- p2 text
FORM BUILD_FCAT_HEAD .
WFIELDCAT-TABNAME = 'ISTKO'.
WFIELDCAT-FIELDNAME = 'STLNR'.
WFIELDCAT-SELTEXT_L = 'BOM no'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-TABNAME = 'ISTKO'.
WFIELDCAT-FIELDNAME = 'DATUV'.
WFIELDCAT-SELTEXT_L = 'BOM date'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-TABNAME = 'ISTKO'.
WFIELDCAT-FIELDNAME = 'MATNR'.
WFIELDCAT-SELTEXT_L = 'Header mat no'.
WFIELDCAT-OUTPUTLEN = 18.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-TABNAME = 'ISTKO'.
WFIELDCAT-FIELDNAME = 'BMENG'.
WFIELDCAT-SELTEXT_L = 'Base qty'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-TABNAME = 'ISTKO'.
WFIELDCAT-FIELDNAME = 'BMEIN'.
WFIELDCAT-SELTEXT_L = 'UOM'.
WFIELDCAT-OUTPUTLEN = 3.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
ENDFORM. " BUILD_FCAT_HEAD
*& Form BUILD_FCAT_ITEM
 text
--> p1 text
<-- p2 text
FORM BUILD_FCAT_ITEM .
WFIELDCAT-TABNAME = 'ISTPO'.
WFIELDCAT-FIELDNAME = 'IDNRK'.
WFIELDCAT-SELTEXT_L = 'Material no'.
*WFIELDCAT-HOTSPOT = 'X'.
WFIELDCAT-OUTPUTLEN = 18.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-TABNAME = 'ISTPO'.
WFIELDCAT-FIELDNAME = 'MAKTX'.
WFIELDCAT-SELTEXT_L = 'Material desc'.
WFIELDCAT-JUST = 'C'.
WFIELDCAT-OUTPUTLEN = 30.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-TABNAME = 'ISTPO'.
WFIELDCAT-FIELDNAME = 'MENGE'.
WFIELDCAT-SELTEXT_L = 'Item qty'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-TABNAME = 'ISTPO'.
WFIELDCAT-FIELDNAME = 'MEINS'.
WFIELDCAT-SELTEXT_L = 'UOM'.
WFIELDCAT-OUTPUTLEN = 3.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
ENDFORM. " BUILD_FCAT_ITEM
*& Form BUILD_KEYINFO
 text
--> p1 text
<-- p2 text
FORM BUILD_KEYINFO .
IKEYINFO-HEADER01 = 'STLNR'.
IKEYINFO-ITEM01 = 'STLNR'.
ENDFORM. " BUILD_KEYINFO
*& Form DISPLAY_DATA
 text
--> p1 text
<-- p2 text
FORM DISPLAY_DATA .
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
 I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'USER_COM'
 IS_LAYOUT = ILAYOUT
 IT_FIELDCAT = IFIELDCAT[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
 IT_EVENTS = IEVENT[]
IT_EVENT_EXIT =
 I_TABNAME_HEADER = 'ISTKO'
 I_TABNAME_ITEM = 'ISTPO'
I_STRUCTURE_NAME_HEADER =
I_STRUCTURE_NAME_ITEM =
 IS_KEYINFO = IKEYINFO
IS_PRINT =
IS_REPREP_ID =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
 TABLES
 T_OUTTAB_HEADER = ISTKO
 T_OUTTAB_ITEM = ISTPO
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_DATA
*& Form GET_MAT_DESC
 text
--> p1 text
<-- p2 text
FORM GET_MAT_DESC .
IF NOT ISTPO[] IS INITIAL.
 SELECT MATNR MAKTX INTO TABLE IMAKT FROM MAKT FOR ALL ENTRIES IN ISTPO
 WHERE MATNR = ISTPO-IDNRK.
ENDIF.
LOOP AT ISTPO.
 READ TABLE IMAKT WITH KEY MATNR = ISTPO-IDNRK.
 IF SY-SUBRC = 0.
 ISTPO-MAKTX = IMAKT-MAKTX.
 ENDIF.
 MODIFY ISTPO.
ENDLOOP.
ENDFORM. " GET_MAT_DESC
*& Form BUILD_LAYOUT
 text
--> p1 text
<-- p2 text
FORM BUILD_LAYOUT .
ILAYOUT-ZEBRA = 'X'.
ILAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM. " BUILD_LAYOUT
*FORM USER_COM USING PUCOM LIKE SY-UCOMM PSELFIELD TYPE SLIS_SELFIELD.
*CASE PUCOM.
*WHEN '&IC1'.
SET PARAMETER ID 'MAT' FIELD PSELFIELD-VALUE.
CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
*ENDCASE.
*ENDFORM.
*& Form BUILD_EVENT_TAB
 text
--> p1 text
<-- p2 text
FORM BUILD_EVENT_TAB .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = IEVENT
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.
READ TABLE IEVENT INTO WEVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC = 0.
 WEVENT-FORM = 'TOPOFPAGE'.
 MODIFY IEVENT FROM WEVENT INDEX SY-TABIX.
ENDIF.
ENDFORM. " BUILD_EVENT_TAB
*& Form TOPOFPAGE
 text
FORM TOPOFPAGE.
DATA : ILISTHEAD TYPE SLIS_T_LISTHEADER,
 WLISTHEAD TYPE SLIS_LISTHEADER.
WLISTHEAD-INFO = 'Its a test hierarchical sequential alv dispaly'.
WLISTHEAD-TYP = 'H'.
APPEND WLISTHEAD TO ILISTHEAD.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = ILISTHEAD
 I_LOGO = ''
 I_END_OF_LIST_GRID =
ENDFORM.
*& Form GETHEADERMAT
 text
--> p1 text
<-- p2 text
FORM GETHEADERMAT .
IF NOT ISTKO[] IS INITIAL.
SELECT MATNR STLNR INTO TABLE IMAST FROM MAST FOR ALL ENTRIES IN ISTKO
 WHERE STLNR = ISTKO-STLNR.
ENDIF.
LOOP AT ISTKO.
READ TABLE IMAST WITH KEY STLNR = ISTKO-STLNR.
IF SY-SUBRC = 0.
ISTKO-MATNR = IMAST-MATNR.
ENDIF.
MODIFY ISTKO.
ENDLOOP.
ENDFORM. " GETHEADERMAT
What more you can do is go to that function module in se37 , and inside that function module you can use At New
command , like at new matnr or ebeln .
Reward points if helpful
Regards,
Amber S
Message was edited by:
 Amber Soni

Similar Messages

Since upgrading to Mavericks and new Pages, I can't print. Anyone have a solution?

Since I loaded Mavericks and new Pages, I get an unending spinning rainbow wheel when I try to print. Is anyone else having this problem? Does anyone have a solution?

I just updated my print drivers. I changed my default printer away from our office Toshiba e-Studio 233 and I can print to my other printers. So, it seems to be a problem with the Toshiba printer...which does not have an updated driver. Hmm...

Form Before_line and New Page

Hi all,
Implementing ALV LIST where alv table contains cost center as one of the fields. For every new cost center i want to call a new page. I did it but the page-size is equal to the no of record a particular cost center has.
I want a fixed page-sixe of 30lines. For that i will have to introduce blank lines? Where do i code for this? Because the no of records in the table is equal to the no of times before_line is performed. Then how do i introduce blank lines? Please help!

Hi,
I think you r using REUSE_ALV_HIERSEQ_LIST_DISPLAY function module. In this function module there is export parameter IS_PRINT, in this there is field called reserve_lines you can fill the number of lines that u want at the end of page . This u should calculate each time depending on the no .of filled lines and get that into a variable and send it.
Regards

Regarding subtotals and new page in ALV Grid

Hi All,
I have 5 employees in my internal table and each employee having five records.
Now iam displaying total employees in ALV grid and calculating their totals at the end of the hole records.
But i need to display the sub totals for each employee and i need new page for each employee.
means 1) New page for each employye
2) sub totals for each employee
3) grand total for all employees
How can i proceed for this requirement in ALV grid?

For subtotals first you need to set the do_sum = 'X' in the fieldcatalog for the columns you want totals.
fieldcat-fieldname = 'ABC'.
fieldcat-do_sum = 'X'.
Append fieldcat to it_fieldcat,
for subtotals you need to populate the SORT table.
sort-fieldname = 'EMPLOYEE'.
sort-up = 'X'.
sort-group = '*'. "<----- this is for new page
"you can view new page in preview / print /
"if you are using the list function
sort-subtot = 'X'.
append sort to it_sort.
pass this it_sort to it_sort of the alv function.

Submit Button and New Pages

Hello all~
The questions i have may be too complicated for this forum,
but as I'm struggling desperately, I thought I'd give it a try.
I bought a premade site almost a year ago, and I managed to
update it myself, but I've never been able to get the submit button
on the contact form to work. The reset button works - without any
help from me, but nothing happens when the submit button is
clicked. I'm trying to rekindle my business and so am in need to
update the site, but I can't seem to figure these things out.
Second problem, I need to rearrange some of the pages and
also add new ones, but I tried adding a new page, and can't figure
out how to find the number of the pages that I add. The
actionscript looks like this:
on (rollOver) {
if (_root.link != 7)
gotoAndPlay(2);
on (releaseOutside, rollOut) {
if (_root.link != 7)
gotoAndPlay(11);
on (release) {
if (_root.link<>7) {
_root.robot.play();
_parent["b"+_root.link].play();
_root.link = 7;
_root.play();
How do I know what the root.link is for any given movie clip?
If any of that makes sense to anyone, please email me or
reply. I am frustrated beyond belief!!
L. Monique

the movieclips are name b1, b2,... etc and, if your buttons
are movieclips, they are on the timeline that contains your
movieclip buttons and, if your buttons are true buttons, they are
on the parent timeline of the timeline that contains your
buttons.

Write and New page

Dear all,
I work with a report. This report has a button. When I click this buton, I want to rewrite a column data, but it always write the data on new page.
I want to write the data in current page.
the code for your reference :
 back.
 do 100 times.
 write:/20 ICON_CHECKED AS ICON.
 enddo.
Thanks you
John

Hi,
If you want to refresh you existing list then you need to make SY-LSIND =0
ie
AT USER-COMMAND.
IF SY-UCOMM = 'REFR'. "<< I think this will be your FCODE
for button
SY-LSIND = 0 "<<<<<<
do 100 times.
write:/20 ICON_CHECKED AS ICON.
enddo.
aRs
Points always welcome

Pages & AppleScript - adding content and new pages

I build iOS apps for a living and I am taking a stab at making a developer's guide for each app I create (classes and methods used, some terminology, etc.). I'm able to get a list of all my class files and methods of each class from XCode using AppleScript. What I would like to do now is bring them into a Pages document and add some styling to the text. I can get Pages to make a new document from a template but I can't seem to do anything after that - adding a page or text to the template - the template is one page with some styles and a text box placed on page 1. Here's my code for Pages:
tell application "Pages"
   make new document with properties {template name:"DeveloperGuide"}
   tell front document
       set bodyText to body text
       return bodyText
   end tell
end tell
It's been a while since I've used AppleScript and I've never scripted pages so I'm not sure if this is the right approach. It's nice to see that after two years the notoriously ill documented AppleScript dictionaries still exist. Anyway, my return from the code above is "missing value".
Any help would be appreciated.

Are you aware there are two types of templates in Pages? Word processing and pages layout?

Can´t see Aperture Library in new Keynote and new Pages but yes in old Numbers

I update to Mavericks. Then the same for Aperture, Keynote and Pages. In the iWork programs, when i try to open media i can not see my Aperture Library. But in the old version of Numbers yes, i can see de Aperture Library.
Of course yes, I repared permisions, update previews for photos and also change to other Aperture libraries. But nothing works yet.
Any one whith the same problem?

So basically here's what I did:
Created a new library. Let iphoto name it. (it was named Photo Library).
Openned iWork (I don't care which app...they all do the same **** thing)
Click on Media, and voila. There is my library, with the photos in it.
NOW.....I changed the name of the new library to something else. Open it in iphoto or aperture. I see the photos in the app. When I open it with iWork, now it's empty and says that there is NO media.
I work with multiple libraries, and there are all named according to subject (Work, Family, etc.).
Apple has screwed the pooch with this abysmal version of the software.
If you are happy putting ALL your photos in 1 library, good for you. If not, your screwed.

How do I change my tab and new page opening settings?

Every time I click on a link of any kind, it opens a new tab. This includes things like clicking a youtube video after finishing a different one, which should just go to the video in the same tab, not open a new one. How do I get it to stop opening new tabs every time I try to click something? It even opens new tabs each step of making this question. It's slowing down my computer because it's making tons of new tabs for no reason.

This issue can be caused by an extension that isn't working properly.
Start Firefox in [[Safe Mode|Safe Mode]] to check if one of the extensions (Firefox/Tools > Add-ons > Extensions) or if hardware acceleration is causing the problem (switch to the DEFAULT theme: Firefox/Tools > Add-ons > Appearance).
*Do not click the Reset button on the Safe mode start window or otherwise make changes.
*https://support.mozilla.org/kb/Safe+Mode
*https://support.mozilla.org/kb/Troubleshooting+extensions+and+themes
There are other things that need your attention.
Your plugins list in the system details list shows two Flash plugins. 
# Shockwave Flash 11.5 r502
# Shockwave Flash 11.4 r402
You should remove the older 11.4 version.
*http://kb.mozillazine.org/Issues_related_to_plugins#Identifying_installed_plugins

Have IOS5 and new Pages version. Spell check in French does not work

Pages works fine on my IPadI, but how can I get it to spell check in French, used to work fine with other version.
Checked my preferences on my IPad, they are french. What to do?
Thanks for any help you can provide.

Checked and yes I did have Pages in French and had the French keyboard checked on my IPad preferences. Your suggestion reminded me of that "world key". Read something about it, long time ago. Never used it before but when I taped it, it brought me a choice of keyboards, so now I can go back and forth from English to French on my Pages texts, and all that without going back to my system preferences!
Thank you for the comment, helped jog my memory.
Regards

I get connection errors since I updated to Mavericks and new pages, keynote, iPhoto.

connection errors and Maverick!

I just updated my print drivers. I changed my default printer away from our office Toshiba e-Studio 233 and I can print to my other printers. So, it seems to be a problem with the Toshiba printer...which does not have an updated driver. Hmm...

Firefox updated and my new page tiles are now gone how do I get them back?

I update Firefox, and in the process Norton became my automatic search engine and new page. I have tried everything but have not be able to revert back to the new page tiles. Can you help me resolve this problem? I have attached a photo of what my new page looks like.

This is likely because norton automatically changed your new tab page in an update to its software. To change this, do the following:
1. Open a new tab, and go to about:config
2. In the search box, type in "browser.newtab.url"
3. Double-click on the entry that appears, and in the text box that appears enter "about:newtab", and then click okay.

New Page Format implentation in Sap Scripts and Reports

Hi,
   I want to print Report details and also some of the SAP Script details on the paper size of 350MM width and 310MM Height in the PORTRAIT format.
   So i created new page format with these dimensions.
   How i can use this for reports. So i can set these parameters while taking output from Report.
   Pls specify if any configuration required for this.
Thanks in Advance,
Regards,
Pavan.

In SAPscript, you set the Page Format for the document in the "Page Format" field of the "Basic Settings" page of the documents "Header" information. The popup list of this field will show all available formats in your system, so this is a ggod way to make sure your new format is set up properly.
For reports, page format is set either with the LINE-SIZE addition to the REPORT and NEW-PAGE commands, or through the PARAMETERS addition to the NEW-PAGE command. When you use LINE-SIZE the print system picks the format for you, based on the available formats in the systems.
I don't remember if there is an activation step for Page Formats, or if saving is all you have to do.

Forcing a new page and using CAN GROW in a group header section??

Two Questions:
1) Is it possible to force a new page at any given position of the report?
I have a summary report with drill downs. My problem is that the vendor name and address (group 3 which is split into 3 subgroups GH3a GH3Bb GH3c) is sometimes at the end the page and the rest of the information (detaila and detail b with GFs) continue on the next page.
Can I specify a specific time or position when to page so that if this happens I can make the vendor name print on the next page?
I know of the keep group together option in the section expert but that keeps the detail together with the group heading - which is not the problem I am trying to resolve.
2) Can the group header and group footer sections be set to CAN GROW?
Thank you,
JS

If a field exists in a section and the field is set to can grow, the section will grow with the field.
CR2008 allows you to page after X number of records in the details section. See section expert, paging tab (Details Section)
If you are not using CR2008 you could calculate the number of records per group and new page after this based on the number of records.

Sum of LineCount Including Groups and Detail Data On Each Page Used To Generate New Page If TotalPageLineCount 28

Post Author: tadj188#
CA Forum: Formula
Needed: Sum of LineCount Including Groups and Detail Data On Each Page Used To Generate New Page If TotalPageLineCount > 28
Background:
1) Report SQL is created with unions to have detail lines continue on a page, until it reaches page footer or report footer, rather than using subreports.    A subreport report is now essentially a group1a, group1b, etc. (containing column headers and other data within the the report    with their respective detail lines). I had multiple subreports and each subreport became one union.
Created and tested, already:
1) I have calculated @TotalLineForEachOfTheSameGroup, now I need to sum of the individual same group totals to get the total line count on a page.
Issue:
1) I need this to create break on a certain line before, it dribbles in to a pre-printed area.
Other Ideas Appreciated:
1) Groups/detail lines break inconveniently(dribble) into the pre-printed area, looking for alternatives for above situation.
Thank you.
Tadj

export all image of each page try like this
var myDoc = app.activeDocument;
var myFolder = myDoc.filePath;
var myImage = myDoc.allGraphics;
for (var i=0; myImage.length>i; i++){
    app.select(myImage[i]);
    var MyImageNmae = myImage[i].itemLink.name;
    app.jpegExportPreferences.jpegQuality = JPEGOptionsQuality.high;
    app.jpegExportPreferences.exportResolution = 300;
       app.selection[0].exportFile(ExportFormat.JPG, File(myFolder+"/"+MyImageNmae+".JPEG"), false);
    alert(myImage[i].itemLink.name)

REUSE_ALV_HIERSEQ_LIST_DISPLAY and new Page

Similar Messages

Maybe you are looking for