Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Basic report

Go to solution
Former Member

‎10-06-2008 12:37 PM

0 Kudos

I would like to display Sequence number, Plant, Material numbre and Quantity from 1st row.

Iam i am doing subtotal Plant wise and Grand total for all plants.

Using the following program i am getting Material number and Quantity in 2nd row. But i would like to display from first row.

Please suggest me any code.

TABLES: ekpo.

TYPES: BEGIN OF t_data,

werks TYPE matnr,

matnr TYPE werks_d,

menge TYPE bstmg,

END OF t_data.

DATA: it_data type standard table of t_data with header line.

DATA: it_final TYPE STANDARD TABLE OF t_data WITH HEADER LINE.

DATA: lv_count type i value 1.

SELECT-OPTIONS: s_matnr FOR ekpo-matnr,

s_werks FOR ekpo-werks.

START-OF-SELECTION.

SELECT werks

matnr

menge FROM ekpo INTO TABLE it_data

WHERE werks in s_werks

AND matnr in s_matnr.

IF NOT it_data[] is INITIAL.

LOOP AT it_data.

MOVE-CORRESPONDING it_data TO it_final.

COLLECT it_final.

ENDLOOP.

ENDIF.

SORT it_final by werks matnr.

LOOP AT it_final.

AT FIRST.

WRITE:/3 'Material details in Plant'.

WRITE:/ sy-uline+1(96).

WRITE:/1 sy-vline,

3(17) 'Sequence NO' COLOR 4,

21 sy-vline,

23(20) 'Plant' COLOR 3,

45 sy-vline,

50(20) 'Material Number' COLOR 5,

72 sy-vline,

75(20) 'Quantity' COLOR 7,

96 sy-vline.

WRITE:/ sy-uline+1(96).

ENDAT.

AT NEW werks.

WRITE: /1 sy-vline,

5 lv_count,

21 sy-vline,

25 it_final-werks,

45 sy-vline,

72 sy-vline,

96 sy-vline.

ENDAT.

WRITE:/1 sy-vline,

21 sy-vline.

WRITE: 45 sy-vline,

58 it_final-matnr,

72 sy-vline,

77 it_final-menge,

96 sy-vline.

AT END OF werks.

SUM.

WRITE:/1 sy-vline,

21 sy-vline,

45 sy-vline,

50 'Quantity of Plant' COLOR 4,

72 sy-vline,

77 it_final-menge COLOR 4,

96 sy-vline.

WRITE:/ sy-uline+1(96).

lv_count = lv_count + 1.

ENDAT.

AT LAST.

SUM.

WRITE:/1 sy-vline,

21 sy-vline,

45 sy-vline,

50 'Total Quantity of Plant' COLOR 4,

72 sy-vline,

77 it_final-menge COLOR 4,

96 sy-vline.

WRITE:/ sy-uline+1(96).

ENDAT.

ENDLOOP.

Thanks,

sai

1 ACCEPTED SOLUTION

Go to solution
Pawan_Kesari
Active Contributor

‎10-06-2008 12:51 PM

0 Kudos

try this code...


TABLES: ekpo.

TYPES: BEGIN OF t_data,
  werks TYPE matnr,
  matnr TYPE werks_d,
  menge TYPE bstmg,
END OF t_data.

DATA : lv_flag TYPE c .

DATA: it_data TYPE STANDARD TABLE OF t_data WITH HEADER LINE.
DATA: it_final TYPE STANDARD TABLE OF t_data WITH HEADER LINE.
DATA: lv_count TYPE i VALUE 1.
SELECT-OPTIONS: s_matnr FOR ekpo-matnr,
                s_werks FOR ekpo-werks.

START-OF-SELECTION.
  SELECT werks
  matnr
  menge FROM ekpo INTO TABLE it_data
  WHERE werks IN s_werks
  AND matnr IN s_matnr.

  IF NOT it_data[] IS INITIAL.
    LOOP AT it_data.
      MOVE-CORRESPONDING it_data TO it_final.
      COLLECT it_final.
    ENDLOOP.
  ENDIF.

  SORT it_final BY werks matnr.
  LOOP AT it_final.

    AT FIRST.
      WRITE:/3 'Material details in Plant'.
      WRITE:/ sy-uline+1(96).
      WRITE:/1 sy-vline,
      3(17) 'Sequence NO' COLOR 4,
      21 sy-vline,
      23(20) 'Plant' COLOR 3,
      45 sy-vline,
      50(20) 'Material Number' COLOR 5,
      72 sy-vline,
      75(20) 'Quantity' COLOR 7,
      96 sy-vline.
      WRITE:/ sy-uline+1(96).
    ENDAT.

    AT NEW werks.
      lv_flag = 'X' .
      WRITE: /1 sy-vline,
      5 lv_count,
      21 sy-vline,
      25 it_final-werks,
      45 sy-vline,
      72 sy-vline,
      96 sy-vline.
    ENDAT.
    IF lv_flag = 'X' .
      WRITE:1 sy-vline.
    ELSE.
      WRITE:/1 sy-vline.
    ENDIF.
    CLEAR lv_flag .

    WRITE: 21 sy-vline.
    WRITE: 45 sy-vline,
           58 it_final-matnr,
           72 sy-vline,
           77 it_final-menge,
           96 sy-vline.

    AT END OF werks.
      SUM.
      WRITE:/1 sy-vline,
      21 sy-vline,
      45 sy-vline,
      50 'Quantity of Plant' COLOR 4,
      72 sy-vline,
      77 it_final-menge COLOR 4,
      96 sy-vline.
      WRITE:/ sy-uline+1(96).
      lv_count = lv_count + 1.
    ENDAT.

    AT LAST.
      SUM.
      WRITE:/1 sy-vline,
      21 sy-vline,
      45 sy-vline,
      50 'Total Quantity of Plant' COLOR 4,
      72 sy-vline,
      77 it_final-menge COLOR 4,
      96 sy-vline.
      WRITE:/ sy-uline+1(96).
    ENDAT.
  ENDLOOP.

3 REPLIES 3

Go to solution
Pawan_Kesari
Active Contributor

‎10-06-2008 12:51 PM

0 Kudos

try this code...


TABLES: ekpo.

TYPES: BEGIN OF t_data,
  werks TYPE matnr,
  matnr TYPE werks_d,
  menge TYPE bstmg,
END OF t_data.

DATA : lv_flag TYPE c .

DATA: it_data TYPE STANDARD TABLE OF t_data WITH HEADER LINE.
DATA: it_final TYPE STANDARD TABLE OF t_data WITH HEADER LINE.
DATA: lv_count TYPE i VALUE 1.
SELECT-OPTIONS: s_matnr FOR ekpo-matnr,
                s_werks FOR ekpo-werks.

START-OF-SELECTION.
  SELECT werks
  matnr
  menge FROM ekpo INTO TABLE it_data
  WHERE werks IN s_werks
  AND matnr IN s_matnr.

  IF NOT it_data[] IS INITIAL.
    LOOP AT it_data.
      MOVE-CORRESPONDING it_data TO it_final.
      COLLECT it_final.
    ENDLOOP.
  ENDIF.

  SORT it_final BY werks matnr.
  LOOP AT it_final.

    AT FIRST.
      WRITE:/3 'Material details in Plant'.
      WRITE:/ sy-uline+1(96).
      WRITE:/1 sy-vline,
      3(17) 'Sequence NO' COLOR 4,
      21 sy-vline,
      23(20) 'Plant' COLOR 3,
      45 sy-vline,
      50(20) 'Material Number' COLOR 5,
      72 sy-vline,
      75(20) 'Quantity' COLOR 7,
      96 sy-vline.
      WRITE:/ sy-uline+1(96).
    ENDAT.

    AT NEW werks.
      lv_flag = 'X' .
      WRITE: /1 sy-vline,
      5 lv_count,
      21 sy-vline,
      25 it_final-werks,
      45 sy-vline,
      72 sy-vline,
      96 sy-vline.
    ENDAT.
    IF lv_flag = 'X' .
      WRITE:1 sy-vline.
    ELSE.
      WRITE:/1 sy-vline.
    ENDIF.
    CLEAR lv_flag .

    WRITE: 21 sy-vline.
    WRITE: 45 sy-vline,
           58 it_final-matnr,
           72 sy-vline,
           77 it_final-menge,
           96 sy-vline.

    AT END OF werks.
      SUM.
      WRITE:/1 sy-vline,
      21 sy-vline,
      45 sy-vline,
      50 'Quantity of Plant' COLOR 4,
      72 sy-vline,
      77 it_final-menge COLOR 4,
      96 sy-vline.
      WRITE:/ sy-uline+1(96).
      lv_count = lv_count + 1.
    ENDAT.

    AT LAST.
      SUM.
      WRITE:/1 sy-vline,
      21 sy-vline,
      45 sy-vline,
      50 'Total Quantity of Plant' COLOR 4,
      72 sy-vline,
      77 it_final-menge COLOR 4,
      96 sy-vline.
      WRITE:/ sy-uline+1(96).
    ENDAT.
  ENDLOOP.

Go to solution
Former Member
In response to Pawan_Kesari

‎10-06-2008 12:59 PM

0 Kudos

Thanks Pawan.. It is working fine.

Go to solution
Former Member

‎10-06-2008 12:53 PM

0 Kudos

All u need to do is remove one "/".

just change 


AT NEW werks.
WRITE: /1 sy-vline,
5 lv_count,
21 sy-vline,
25 it_final-werks,
45 sy-vline,
72 sy-vline,
96 sy-vline.
ENDAT.
WRITE:/1 sy-vline,
21 sy-vline.
WRITE: 45 sy-vline,
58 it_final-matnr,
72 sy-vline,
77 it_final-menge,
96 sy-vline.

to 


AT NEW werks.
WRITE: /1 sy-vline,
5 lv_count,
21 sy-vline,
25 it_final-werks,
45 sy-vline,
72 sy-vline,
96 sy-vline.
ENDAT.
WRITE:1 sy-vline, "<----------- here is the change 
21 sy-vline.
WRITE: 45 sy-vline,
58 it_final-matnr,
72 sy-vline,
77 it_final-menge,
96 sy-vline.