regarding reports

Former Member · ‎2007 Sep 12

hi experts,

i am trying to execute one report..but it is not working properly..i dont know what the report actually is doing..someone has send this report to me..i havent made this report.. m sending u the code..plz helm me out..plz chek whether it is working properly.

report zsd_r_report.

&----

*& Type-Pools

&----

type-pools: slis.

----

Table Declaration *

----

tables : vbrk, " Billing Document Header

vbrp, "Billing Document: Item Data

qals,

qamv.

----

DECLARATION OF TYPES *

----

data : t_vbrk type vbrk,

t_vbrp type vbrp,

t_lips type lips,

t_qals type qals,

t_qamv type qamv.

types : begin of t_vbrk,

vbeln type vbrk-vbeln,

knumv type vbrk-knumv,

waerk type vbrk-waerk,

end of t_vbrk,

begin of t_vbrp,

vbeln type vbrp-vbeln,

matnr type vbrp-matnr,

posnr type vbrp-posnr,

vgbel type vbrp-vgbel,

vgpos type vbrp-vgpos,

end of t_vbrp,

begin of t_lips,

vbeln type lips-vbeln,

posnr type lips-posnr,

matnr type lips-matnr,

charg type lips-charg,

werks type lips-werks,

uecha type lips-uecha,

end of t_lips,

begin of t_qals,

prueflos type qals-prueflos,

werk type qals-werk,

matnr type qals-matnr,

charg type qals-charg,

end of t_qals,

begin of t_qamv ,

prueflos type qals-prueflos,

vorglfnr type qapp-vorglfnr,

merknr type qamv-merknr,

verwmerkm type qamv-verwmerkm,

matnr type qamv-matnr,

end of t_qamv,

begin of t_qamr,

prueflos type qamr-prueflos,

vorglfnr type qamr-prueflos,

merknr type qamr-prueflos,

original_input type qamr-original_input,

end of t_qamr.

----

DECLARATION OF INTERNAL TABLES *

----

data : i_vbrk type standard table of t_vbrk,

i_vbrp type standard table of t_vbrp,

i_lips type standard table of t_lips,

i_qals type standard table of t_qals,

i_qamv type standard table of t_qamv,

i_qamr type standard table of t_qamr.

data : begin of it_final occurs 0,

count type i,

atwrt type cawn-atwrt,

vbeln type vbrp-vbeln,

artno type vbrp-matnr,

matnr type vbrp-matnr,

posnr type vbrp-posnr,

vgbel type vbrp-vgbel,

vgpos type vbrp-vgpos,

charg type qals-charg,

uecha type lips-uecha,

werks type lips-werks,

prueflos type qals-prueflos,

vorglfnr type qapp-vorglfnr,

merknr type qamv-merknr,

verwmerkm type qamv-verwmerkm,

act_mtrs type qamr-original_input,

t_points type qamr-original_input,

t_flags type qamr-original_input,

q_weight type qamr-original_input,

throw type qamr-original_input,

yards type qamr-original_input,

end of it_final.

data : begin of shade occurs 0,

atwrt type cawn-atwrt,

end of shade.

----

DECLARATION OF WORK AREAS *

----

data : wa_vbrk type t_vbrk,

wa_vbrp type t_vbrp,

wa_lips type t_lips,

wa_qals type t_qals,

wa_qamv type t_qamv,

wa_qamr type t_qamr,

wa_shade like line of shade,

wa_final like line of it_final.

&----

*& ALV Declarations

&----

data : gs_fcat type slis_t_fieldcat_alv,

gs_layout type slis_layout_alv,

gs_events type slis_t_event,

gs_listheader type slis_t_listheader.

&----

*& Constants

&----

constants : c_x type c value 'X',

c_repid type sy-repid value 'ZROLL_PACK'.

----

DECLARATION OF SELECTION SCREEN *

----

selection-screen begin of block blk with frame title text-001.

parameters: p_vbeln like vbrk-vbeln obligatory.

selection-screen end of block blk.

----

AT SELECTION SCREEN event *

----

at selection-screen.

if p_vbeln is not initial.

perform check_vbeln.

endif.

&----

*& Start-Of-Selection

&----

start-of-selection.

*-- Perform get data

perform get_data.

*-- Process data

perform process_data.

*-- Build Fieldcatalog.

perform field_cat using gs_fcat.

*-- Layout

perform layout.

*-- List header

perform list_header using gs_listheader.

*-- ALV Events

perform alv_events using gs_events.

*-- Display Data

perform display_data.

&----

*& Form check_VBELN

&----

text

----

--> p1 text
<-- p2 text

----

form check_vbeln .

select single * from vbrk into t_vbrk

where vbeln eq p_vbeln.

if sy-subrc ne 0.

message 'No Data Found for the Selection Criteria' type 'E'.

endif. " if sy-subrc ne 0.

endform. " check_VBELN

&----

*& Form get_data

&----

text

----

--> p1 text
<-- p2 text

----

form get_data .

*For Customer Material Number

select vbeln

matnr

vgbel

posnr

vgpos

from vbrp

into corresponding fields of table i_vbrp

where vbeln eq p_vbeln.

select vbeln

posnr

matnr

charg

uecha

werks from lips into corresponding fields of table i_lips

for all entries in i_vbrp

where vbeln = i_vbrp-vgbel

and charg ne space.

*----For Inspection Lot No, Mat No,Batch and plant

select prueflos

werk

charg

matnr from qals into corresponding fields of table i_qals

for all entries in i_lips

where matnr = i_lips-matnr

and charg = i_lips-charg.

**---For Actual Meters ,Throw,point gross_wt and other details

select prueflos

vorglfnr

PROBENR

merknr

verwmerkm

from qamv

into corresponding fields of table i_qamv

for all entries in i_qals

where prueflos = i_qals-prueflos.

*----For meter values

select prueflos

vorglfnr

merknr

original_input

from qamr

into corresponding fields of table i_qamr

for all entries in i_qamv

where prueflos = i_qamv-prueflos

and vorglfnr = i_qamv-vorglfnr

and merknr = i_qamv-merknr.

read table i_lips into wa_lips index 1.

select single atwrt

from ausp

into shade "Shade Number

where objek = wa_lips-matnr

and atinn = '0000001150'.

append shade.

CLEAR shade.
endselect.
ENDLOOP.

endform. " get_data

&----

*& Form process_data

&----

text

----

--> p1 text
<-- p2 text

----

form process_data .

loop at i_lips into wa_lips.

move : wa_lips-matnr to wa_final-matnr,

wa_lips-matnr+3(4) to wa_final-artno,

wa_lips-charg to wa_final-charg,

wa_lips-uecha to wa_final-uecha,

shade-atwrt to wa_final-atwrt,

sy-tabix to wa_final-count.

read table i_qals into wa_qals with key matnr = wa_lips-matnr

charg = wa_lips-charg.

if sy-subrc is initial.

read table i_qamv into wa_qamv

with key prueflos = wa_qals-prueflos .

charg = wa_qals-charg.

loop at i_qamv into wa_qamv ."WHERE prueflos = wa_qamv-prueflos.

AND vorglfnr = wa_qamv-vorglfnr
AND merknr = wa_qamv-merknr.

case wa_qamv-verwmerkm.

when 'ACT_MTRS'.