topic Re: report in Application Development and Automation Discussions

report

Former Member — Mon, 16 Jul 2007 09:33:48 GMT

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

Re: report

Former Member — Mon, 16 Jul 2007 09:36:22 GMT

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 LINE-COUNT 65(3)

this 3 was taken as default footer space and accordingly so much space at the end of page was left

Reward points for useful Answers

Regards

Anji

Re: report

Former Member — Mon, 16 Jul 2007 09:36:27 GMT

Hello,

In the following code please check the END-OF-PAGE event.

Regards,

Rakesh

Reward all usefull answers


*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.

Re: report

Former Member — Mon, 16 Jul 2007 09:37:49 GMT

footer:

generally we use this for displaying page numbers,date and time.

for leaving lines use skip 3.

Re: report

Former Member — Mon, 16 Jul 2007 09:37:51 GMT

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 .

Re: report

Former Member — Mon, 16 Jul 2007 09:53:04 GMT

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

Re: report

Former Member — Mon, 16 Jul 2007 11:40:24 GMT

REPORT ZREPORT NO STANDARD PAGE HEADING LINE-COUNT 45(3) LINE- SIZE 100) 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