Problem in the report

Former Member — Sat, 16 Dec 2006 10:30:19 GMT

HI Friends,

Its very urgent, Iam not getting the two line items, in itvbfa table.

iam sending my code pls check this.for SALES_DOC & REF_DOC there is a problem i was changed the code but it is not working.

&----

*& Report /BAJAJ/WAR_DOC_FLOW *

*& *

&----

*& PROGRAM : TO WARRANTY PROCESS DOCUMENT FLOW. *

*& WRITTEN BY : Girish *

*& DATE : 20-MAR-2006. *

*& REQUESTED BY : SHARAD OZARDE *

*& *

&----

REPORT /bajaj/war_doc_flow NO STANDARD PAGE HEADING.

**----

TABLES

**----

TYPE-POOLS : slis.

TABLES : qmel,

ycstqmel,

vbak,

vbfa.

*----

data definition

*----

DATA : gt_fieldcat TYPE slis_t_fieldcat_alv,

g_repid LIKE sy-repid,

i_layout TYPE slis_layout_alv,

i_events TYPE slis_t_event,

shed TYPE slis_listheader,

ithed TYPE slis_t_listheader.

DATA : lvd1(2) TYPE c,

lvm1(2) TYPE c,

lvy1(4) TYPE c,

v_period(30) TYPE c.

DATA : date(8) TYPE c.

DATA : BEGIN OF itycstqmel OCCURS 0,

qmnum LIKE ycstqmel-qmnum,

END OF itycstqmel.

DATA : BEGIN OF itqmel OCCURS 0,

qmnum LIKE qmel-qmnum,

erdat LIKE qmel-erdat,

vbeln LIKE qmel-vbeln,

bstnk LIKE qmel-bstnk,

kunum LIKE qmel-kunum,

END OF itqmel.

DATA : BEGIN OF itvbak OCCURS 0,

vbeln LIKE vbak-vbeln,

erdat LIKE vbak-erdat,

qmnum LIKE ycstqmel-qmnum,

END OF itvbak.

DATA : BEGIN OF itvbfa OCCURS 0,

vbeln LIKE vbfa-vbeln,

vbelv LIKE vbfa-vbelv,

vbtyp_n LIKE vbfa-vbtyp_n,

END OF itvbfa.

DATA : BEGIN OF itvbfa1 OCCURS 0,

vbeln LIKE vbfa-vbeln,

vbelv LIKE vbfa-vbelv,

vbtyp_n LIKE vbfa-vbtyp_n,

erdat LIKE vbfa-erdat,

END OF itvbfa1.

DATA : BEGIN OF itycswtitl OCCURS 0,

kunnr LIKE ycswt_wr_title-kunnr,

lrrcptdt LIKE ycswt_wr_title-lrrcptdt,

cldocrcptdt LIKE ycswt_wr_title-cldocrcptdt,

mtrlrcptdt LIKE ycswt_wr_title-mtrlrcptdt,

datauploaddt LIKE ycswt_wr_title-datauploaddt,

END OF itycswtitl.

DATA : BEGIN OF itfinal OCCURS 0,

customer LIKE qmel-kunum,

cou_batch LIKE ycstqmel-coupon_batch,

po_num LIKE vbak-vbeln,

notific LIKE vbak-bstnk,

date LIKE vbak-erdat,

sales_ord LIKE vbak-vbeln,

s_date LIKE vbak-erdat,

ref_doc LIKE vbak-vbeln,

bill_doc LIKE vbfa-vbeln,

b_date LIKE vbak-erdat,

lrrcptdt LIKE ycswt_wr_title-lrrcptdt,

cldocrcptdt LIKE ycswt_wr_title-cldocrcptdt,

mtrlrcptdt LIKE ycswt_wr_title-mtrlrcptdt,

datauploaddt LIKE ycswt_wr_title-datauploaddt,

END OF itfinal.

**----

SELECTION SCREEN

**----

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.

PARAMETER: p_dealer LIKE qmel-kunum OBLIGATORY,

p_batch LIKE ycstqmel-coupon_batch OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b1.

**----

INITIALIZATION

**----

INITIALIZATION.

g_repid = sy-repid.

PERFORM fieldcat_init USING gt_fieldcat.

**----

START-OF-SELECTION

**----

START-OF-SELECTION.

PERFORM select_data.

PERFORM final_tab.

**----

END-OF-SELECTION

**----

END-OF-SELECTION.

PERFORM display_data.

&----

*& Form FIELDCAT_INIT

&----

Form to generate & append fieldcat

----

-->P_GT_FIELDCAT[]

----

FORM fieldcat_init USING rt_fieldcat TYPE slis_t_fieldcat_alv.

DATA: ls_fieldcat TYPE slis_fieldcat_alv.

ls_fieldcat-fieldname = 'CUSTOMER'.

ls_fieldcat-tabname = 'ITFINAL'.

ls_fieldcat-seltext_s = 'CUSTOMER'.

ls_fieldcat-outputlen = 14.