‎2007 Jul 16 10:33 AM
what do u mean by footer of a page,suppose i have to leave 3 lines separtely in a list,then what is the process
‎2007 Jul 16 10:36 AM
Hi
If you wants to give 3 lines space in the footer in the Report attributes declare Line-count as below
REPORT ZREP NO STANDARD PAGE HEADING
LINE-SIZE 255 <b>LINE-COUNT 65(3)</b>
this 3 was taken as default footer space and accordingly so much space at the end of page was left
<b>Reward points for useful Answers</b>
Regards
Anji
‎2007 Jul 16 10:36 AM
Hi
If you wants to give 3 lines space in the footer in the Report attributes declare Line-count as below
REPORT ZREP NO STANDARD PAGE HEADING
LINE-SIZE 255 <b>LINE-COUNT 65(3)</b>
this 3 was taken as default footer space and accordingly so much space at the end of page was left
<b>Reward points for useful Answers</b>
Regards
Anji
‎2007 Jul 16 10:36 AM
Hello,
In the following code please check the <b>END-OF-PAGE</b> event.
Regards,
Rakesh
<b>Reward all usefull answers</b>
*Report program for delivery details*
*Tables used: lips,
* likp,
* kna1.
REPORT zsr_delivery_dtls NO STANDARD PAGE HEADING
MESSAGE-ID zivltcsr
LINE-SIZE 200 LINE-COUNT 35(3).
*Data declaration*
TABLES:likp,
lips.
TYPES: BEGIN OF st_del,
name1 TYPE kna1-name1, "Customer name1
docno TYPE lips-vgbel, "Document number
itmno TYPE lips-vgpos, "Item number
matxt TYPE lips-mtart, "Material text
name2 TYPE kna1-name2, "Customer name2
salor TYPE likp-vkorg, "Sales organization
qnty TYPE lips-ntgew, "Quantity
unit TYPE lips-gewei, "Unit
plant TYPE lips-werks, "Plant
inct1 TYPE likp-inco1, "Incoterms1
inct2 TYPE likp-inco2, "incoterms2
END OF st_del.
DATA:wa_del TYPE st_del,
wa_log TYPE zsr_del_login,
it_del TYPE TABLE OF st_del,
sysubrc TYPE sy-subrc.
*Selection screen for interactive input*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:so_date FOR likp-lfdat, "Delivery date
so_shppt FOR likp-vstel, "Shipping point
so_matnr FOR lips-matnr. "Material number
SELECTION-SCREEN END OF BLOCK b1.
TOP-OF-PAGE. "Header
WRITE:/,(15) text-002,(15) text-003,(15) text-004,
(25) text-005,(20) text-006,(15) text-007,
(15) text-008,(15) text-009, (15) text-010,
(15) text-011,(15) text-012.
ULINE.
END-OF-PAGE. "Footer
SKIP.
WRITE:'End of page ',sy-pagno LEFT-JUSTIFIED.
ULINE.
START-OF-SELECTION.
*Retreiving data from database*
*Join details: lips = a
* likp = b
* kna1 = c
SELECT c~name1 a~vgbel a~vgpos a~mtart c~name2
b~vkorg a~ntgew a~gewei a~werks
b~inco1 b~inco2
INTO TABLE it_del
FROM ( ( lips AS a
INNER JOIN likp AS b ON a~vbeln = b~vbeln )
INNER JOIN kna1 AS c ON c~kunnr = b~kunnr )
WHERE b~lfdat IN so_date
AND b~vstel IN so_shppt
AND a~matnr IN so_matnr.
IF sy-subrc NE 0.
sysubrc = 1.
ELSE.
sysubrc = 0.
* uploading login data to login table
wa_log-usernam = sy-uname.
wa_log-lgdate = sy-datum.
wa_log-lgtime = sy-uzeit.
wa_log-reccnt = sy-dbcnt.
wa_log-deldatelo = so_date-low.
wa_log-deldatehg = so_date-high.
wa_log-shppntlo = so_shppt-low.
wa_log-shppnthg = so_shppt-high.
wa_log-materiallo = so_matnr-low.
wa_log-materialhg = so_matnr-high.
INSERT INTO zsr_del_login VALUES wa_log.
ENDIF.
END-OF-SELECTION.
*List output logic follows*
*_________________________________________________________________________________________*
IF sysubrc NE 0. "Error message display if no match found
MESSAGE i000.
ELSE. "Display logic if match occured with input
*Sorting internal table by name*
SORT it_del BY name1.
*Displayig data from internal table*
LOOP AT it_del INTO wa_del.
WRITE:/ wa_del-docno UNDER text-002, "Document number
wa_del-itmno UNDER text-003, "Item number
wa_del-matxt UNDER text-004, "Material text
wa_del-name1 UNDER text-005, "Customer name1
wa_del-name2 UNDER text-006, "Customer name2
wa_del-salor UNDER text-007, "Sales organization
wa_del-qnty UNDER text-008 LEFT-JUSTIFIED UNIT wa_del-unit , "Quantity
wa_del-unit UNDER text-009, "Unit
wa_del-plant UNDER text-010, "Plant
wa_del-inct1 UNDER text-011, "Incoterms1
wa_del-inct2 UNDER text-012. "incoterms2
AT END OF name1. "Calculating total quantity for each customer
SUM.
SKIP.
WRITE: 'Total quantity = ',wa_del-qnty LEFT-JUSTIFIED UNIT wa_del-unit.
WRITE: wa_del-unit.
SKIP.
ENDAT.
ENDLOOP.
ULINE.
ENDIF. "End of if sy-subrc ne 0.
‎2007 Jul 16 10:37 AM
footer:
generally we use this for displaying page numbers,date and time.
for leaving lines use skip 3.
‎2007 Jul 16 10:37 AM
Hi Sandeep,
To define a page footer, use the END-OF-PAGE event. This event occurs if, while processing a list page, the system reaches the lines reserved for the page footer, or if the RESERVE statement triggers a page break. Fill the lines of the page footer in the processing block following the event keyword END-OF-PAGE:
Syntax
END-OF-PAGE.
WRITE: ....
The system only processes the processing block following END-OF-PAGE if you reserve lines for the footer in the LINE-COUNT option of the REPORTstatement .
‎2007 Jul 16 10:53 AM
hi
REPORT zxx line-count 25(3) line-size 200 .
this report will have 25 lines in a page..
22 lines - report
3 lines - reserved for footer message
reward if useful
‎2007 Jul 16 12:40 PM
HI
REPORT ZREPORT NO STANDARD PAGE HEADING <b>LINE-COUNT 45(3) LINE- SIZE 100</b>) MESSAGE-ID ZNNR.
BY USEING LINE-COUNT U CAN DESIDE HOW MANY LINES FOR FOOTER
IN THIS OUT OF 45 LINES 3 LINES ARE ALLOCATED OFR FOOTER
REWARD IF USEFUL