topic Report Problem in Application Development and Automation Discussions

Report Problem

Former Member — Fri, 18 Apr 2008 09:44:59 GMT

hi gurus,

i have a problem in alv report where the all codes are work rightly but it not print the data in list.

plz help me in this program. plz

DATA: BEGIN OF lt_output OCCURS 0,

vbeln TYPE vbak-vbeln, "Sales Document

audat TYPE vbak-audat, "Document date

auart TYPE vbak-auart, "Sales Document Type

vkorg TYPE vbak-vkorg, "Sales Organization

vtweg TYPE vbak-vtweg, "Distribution Channel

spart TYPE vbak-spart, "Division

bstnk TYPE vbak-bstnk, "Customer purchase order number

telf1 TYPE vbak-telf1, "Telephone number

kunnr TYPE vbak-kunnr, "Sold-to party

posnr TYPE vbap-posnr, "Sales Document Item

matnr TYPE vbap-matnr, "Material Number

kwmeng TYPE vbap-kwmeng, "Cumulative order quantity in sales

lsmeng TYPE vbap-lsmeng, "Cumulative required delivery qty

werks TYPE vbap-werks, "Plant

lgort TYPE vbap-lgort, "Storage Location

END OF lt_output.

DATA: BEGIN OF lt_vbak OCCURS 0,

vbeln TYPE vbak-vbeln, "Sales Document

audat TYPE vbak-audat, "Document date

auart TYPE vbak-auart, "Sales Document Type

vkorg TYPE vbak-vkorg, "Sales Organization

vtweg TYPE vbak-vtweg, "Distribution Channel

spart TYPE vbak-spart, "Division

bstnk TYPE vbak-bstnk, "Customer purchase order number

telf1 TYPE vbak-telf1, "Telephone number

kunnr TYPE vbak-kunnr, "Sold-to party

END OF lt_vbak.

DATA: BEGIN OF lt_vbap OCCURS 0,

vbeln TYPE vbap-vbeln, "Sales Document

posnr TYPE vbap-posnr, "Sales Document Item

matnr TYPE vbap-matnr, "Material Number

kwmeng TYPE vbap-kwmeng, "Cumulative order quantity in sales

lsmeng TYPE vbap-lsmeng, "Cumulative required delivery qty

werks TYPE vbap-werks, "Plant

lgort TYPE vbap-lgort, "Storage Location

END OF lt_vbap.

SELECT-OPTIONS: s_audat FOR lt_vbak-audat, "OBLIGATORY,

s_matnr FOR lt_vbap-matnr,

s_vkorg FOR lt_vbak-vkorg,

s_vtweg FOR lt_vbak-vtweg,

s_spart FOR lt_vbak-spart,

s_werks FOR lt_vbap-werks.

INCLUDE: ZA_COMMON_ALV_FM.

START-OF-SELECTION.

PERFORM get_data.

PERFORM fieldcatlog USING gt_fieldcat[].

PERFORM print_alv_data_list.

*&----

*& Form get_data

*&----

text

*----

FORM get_data.

SELECT vbeln

audat

auart

vkorg

vtweg

spart

bstnk

telf1

kunnr

FROM vbak INTO TABLE lt_vbak

WHERE audat IN s_audat AND

( auart = 'KA' OR

auart = 'KB' OR

auart = 'KE' ) AND

vkorg IN s_vkorg AND

vtweg IN s_vtweg AND

spart IN s_spart.

IF sy-subrc = 0.

SORT lt_vbak[] BY vbeln.

DELETE ADJACENT DUPLICATES FROM lt_vbak[]

COMPARING vbeln.

IF NOT lt_vbak[] IS INITIAL.

SELECT vbeln

posnr

matnr

kwmeng

lsmeng

werks

lgort

FROM vbap

INTO TABLE LT_VBAP

FOR ALL ENTRIES IN lt_vbak

WHERE vbeln = lt_vbak-VBELN AND

matnr IN s_matnr AND

werks IN s_werks.

IF sy-subrc = 0.

SORT lt_vbap[].

DELETE ADJACENT DUPLICATES FROM lt_vbap[]

COMPARING ALL FIELDS.

APPEND lt_output.

LOOP AT lt_vbap.

lt_output-vbeln = lt_VBAP-vbeln.

lt_output-posnr = lt_VBAP-POSNR.

lt_output-matnr = lt_VBAP-MATNR.

lt_output-kwmeng = lt_VBAP-KWMENG.

lt_output-lsmeng = lt_VBAP-LSMENG.

lt_output-werks = lt_VBAP-WERKS.

lt_output-lgort = lt_VBAP-LGORT.

MODIFY LT_OUTPUT

TRANSPORTING vbeln

posnr

matnr

kwmeng

lsmeng

werks

lgort

WHERE vbeln = lt_vbap-vbeln AND

posnr = lt_vbap-posnr.

CLEAR : LT_VBAP,

lt_output.

ENDLOOP.

LOOP AT lt_vbak.

lt_output-audat = lt_vbak-audat.

lt_output-auart = lt_vbak-auart.

lt_output-vkorg = lt_vbak-vkorg.

lt_output-vtweg = lt_vbak-vtweg.

lt_output-spart = lt_vbak-spart.

lt_output-bstnk = lt_vbak-bstnk.

lt_output-telf1 = lt_vbak-telf1.

lt_output-kunnr = lt_vbak-kunnr.

MODIFY LT_OUTPUT

TRANSPORTING audat

auart

vkorg

vtweg

spart

bstnk

WHERE vbeln = lt_vbak-vbeln.

CLEAR: lt_vbak,

LT_OUTPUT.

ENDLOOP.

ENDIF.

ENDFORM.

FORM fieldcatlog USING rt_fieldcat TYPE slis_t_fieldcat_alv.

DATA: ls_fieldcat TYPE slis_fieldcat_alv.

DATA: tablename LIKE ls_fieldcat-tabname.

DATA: n TYPE sycucol VALUE 1.

REFRESH rt_fieldcat. CLEAR ls_fieldcat.

tablename = 'LT_OUTPUT'.

CLEAR ls_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'vbeln'.

ls_fieldcat-outputlen = '18'.

ls_fieldcat-tabname = tablename.

ls_fieldcat-seltext_l = 'consign fillup'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'audat'.

ls_fieldcat-outputlen = '10'.

ls_fieldcat-tabname = tablename.

ls_fieldcat-seltext_l = 'date'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'bstnk'.

ls_fieldcat-outputlen = '11'.

ls_fieldcat-tabname = tablename.

ls_fieldcat-seltext_l = 'purch. order'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'telf1'.

ls_fieldcat-outputlen = '11'.

ls_fieldcat-tabname = tablename.

ls_fieldcat-seltext_l = 'telno'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'matnr'.

ls_fieldcat-outputlen = '18'.

ls_fieldcat-tabname = tablename.

ls_fieldcat-seltext_l = 'mat nr'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'kwmeng'.

ls_fieldcat-outputlen = '15'.

ls_fieldcat-tabname = tablename.

ls_fieldcat-seltext_l = 'qty consigned'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'lsmeng'.

ls_fieldcat-outputlen = '11'.

ls_fieldcat-tabname = tablename.

ls_fieldcat-seltext_l = 'o/p qty'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'werks'.

ls_fieldcat-outputlen = '7'.

ls_fieldcat-tabname = tablename.

ls_fieldcat-seltext_l = 'plant'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'lgort'.

ls_fieldcat-outputlen = '11'.

ls_fieldcat-tabname = tablename.

ls_fieldcat-seltext_l = 'store'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'kunnr'.

ls_fieldcat-outputlen = '30'.

ls_fieldcat-tabname = tablename.

ls_fieldcat-seltext_l = 'sales emp'.

APPEND ls_fieldcat TO rt_fieldcat.

ENDFORM.

help me its urgent i am stuck in this programm.

thanks.

jayant

Re: Report Problem

Former Member — Fri, 18 Apr 2008 09:48:35 GMT

Hi,

In fieldcatalog all field names should be in CAPITALS.

e.g.

ls_fieldcat-fieldname = 'VBELN'.

& not ls_fieldcat-fieldname = 'vbeln'.

I hope this helps,

Regards

Raju Chitale

Re: Report Problem

Former Member — Fri, 18 Apr 2008 09:48:52 GMT

Please look at the bold ones ...

Fields should be in CAPITAL's only

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'vbeln'.

ls_fieldcat-outputlen = '18'.

ls_fieldcat-tabname = tablename.

ls_fieldcat-seltext_l = 'consign fillup'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'audat'.

ls_fieldcat-outputlen = '10'.

ls_fieldcat-tabname = tablename.

ls_fieldcat-seltext_l = 'date'.

APPEND ls_fieldcat TO rt_fieldcat.

Re: Report Problem

Former Member — Fri, 18 Apr 2008 09:51:54 GMT

Hi Jayant

Remove ur Fieldcatlog coding and put this coding ...this will solve ur problem.

FORM FIELDCATLOG USING RT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

DATA: TABLENAME LIKE LS_FIELDCAT-TABNAME.

DATA: N TYPE SYCUCOL VALUE 1.

REFRESH RT_FIELDCAT. CLEAR LS_FIELDCAT.

TABLENAME = 'LT_OUTPUT'.

CLEAR LS_FIELDCAT.

N = N + 1.

CLEAR LS_FIELDCAT.

LS_FIELDCAT-COL_POS = N.

LS_FIELDCAT-FIELDNAME = 'VBELN'.

LS_FIELDCAT-OUTPUTLEN = '18'.

LS_FIELDCAT-TABNAME = TABLENAME.

LS_FIELDCAT-SELTEXT_L = 'CONSIGN FILLUP'.

APPEND LS_FIELDCAT TO RT_FIELDCAT.

N = N + 1.

CLEAR LS_FIELDCAT.

LS_FIELDCAT-COL_POS = N.

LS_FIELDCAT-FIELDNAME = 'AUDAT'.

LS_FIELDCAT-OUTPUTLEN = '10'.

LS_FIELDCAT-TABNAME = TABLENAME.

LS_FIELDCAT-SELTEXT_L = 'DATE'.

APPEND LS_FIELDCAT TO RT_FIELDCAT.

N = N + 1.

CLEAR LS_FIELDCAT.

LS_FIELDCAT-COL_POS = N.

LS_FIELDCAT-FIELDNAME = 'BSTNK'.

LS_FIELDCAT-OUTPUTLEN = '11'.

LS_FIELDCAT-TABNAME = TABLENAME.

LS_FIELDCAT-SELTEXT_L = 'PURCH. ORDER'.

APPEND LS_FIELDCAT TO RT_FIELDCAT.

N = N + 1.

CLEAR LS_FIELDCAT.

LS_FIELDCAT-COL_POS = N.

LS_FIELDCAT-FIELDNAME = 'TELF1'.

LS_FIELDCAT-OUTPUTLEN = '11'.

LS_FIELDCAT-TABNAME = TABLENAME.

LS_FIELDCAT-SELTEXT_L = 'TELNO'.

APPEND LS_FIELDCAT TO RT_FIELDCAT.

N = N + 1.

CLEAR LS_FIELDCAT.

LS_FIELDCAT-COL_POS = N.

LS_FIELDCAT-FIELDNAME = 'MATNR'.

LS_FIELDCAT-OUTPUTLEN = '18'.

LS_FIELDCAT-TABNAME = TABLENAME.

LS_FIELDCAT-SELTEXT_L = 'MAT NR'.

APPEND LS_FIELDCAT TO RT_FIELDCAT.

N = N + 1.

CLEAR LS_FIELDCAT.

LS_FIELDCAT-COL_POS = N.

LS_FIELDCAT-FIELDNAME = 'KWMENG'.

LS_FIELDCAT-OUTPUTLEN = '15'.

LS_FIELDCAT-TABNAME = TABLENAME.

LS_FIELDCAT-SELTEXT_L = 'QTY CONSIGNED'.

APPEND LS_FIELDCAT TO RT_FIELDCAT.

N = N + 1.

CLEAR LS_FIELDCAT.

LS_FIELDCAT-COL_POS = N.

LS_FIELDCAT-FIELDNAME = 'LSMENG'.

LS_FIELDCAT-OUTPUTLEN = '11'.

LS_FIELDCAT-TABNAME = TABLENAME.

LS_FIELDCAT-SELTEXT_L = 'O/P QTY'.

APPEND LS_FIELDCAT TO RT_FIELDCAT.

N = N + 1.

CLEAR LS_FIELDCAT.

LS_FIELDCAT-COL_POS = N.

LS_FIELDCAT-FIELDNAME = 'WERKS'.

LS_FIELDCAT-OUTPUTLEN = '7'.

LS_FIELDCAT-TABNAME = TABLENAME.

LS_FIELDCAT-SELTEXT_L = 'PLANT'.

APPEND LS_FIELDCAT TO RT_FIELDCAT.

N = N + 1.

CLEAR LS_FIELDCAT.

LS_FIELDCAT-COL_POS = N.

LS_FIELDCAT-FIELDNAME = 'LGORT'.

LS_FIELDCAT-OUTPUTLEN = '11'.

LS_FIELDCAT-TABNAME = TABLENAME.

LS_FIELDCAT-SELTEXT_L = 'STORE'.

APPEND LS_FIELDCAT TO RT_FIELDCAT.

N = N + 1.

CLEAR LS_FIELDCAT.

LS_FIELDCAT-COL_POS = N.

LS_FIELDCAT-FIELDNAME = 'KUNNR'.

LS_FIELDCAT-OUTPUTLEN = '30'.

LS_FIELDCAT-TABNAME = TABLENAME.

LS_FIELDCAT-SELTEXT_L = 'SALES EMP'.

APPEND LS_FIELDCAT TO RT_FIELDCAT.

ENDFORM.

Reward Me Points

Pari

Re: Report Problem

Former Member — Fri, 18 Apr 2008 10:04:46 GMT

HI USE THIS AS IT IS IN YOUR PROGRAM..

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'VBELN'.

ls_fieldcat-outputlen = '18'.

ls_fieldcat-tabname = 'LT_OUTPUT'.

ls_fieldcat-seltext_l = 'consign fillup'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'AUDAT'.

ls_fieldcat-outputlen = '10'.

ls_fieldcat-tabname = 'LT_OUTPUT'

ls_fieldcat-seltext_l = 'date'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'BSTNK'.

ls_fieldcat-outputlen = '11'.

ls_fieldcat-tabname = 'LT_OUTPUT'

ls_fieldcat-seltext_l = 'purch. order'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'TELF1'.

ls_fieldcat-outputlen = '11'.

ls_fieldcat-tabname = 'LT_OUTPUT'

ls_fieldcat-seltext_l = 'telno'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'MATNR'.

ls_fieldcat-outputlen = '18'.

ls_fieldcat-tabname = 'LT_OUTPUT'

ls_fieldcat-seltext_l = 'mat nr'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'KWMENG'.

ls_fieldcat-outputlen = '15'.

ls_fieldcat-tabname = 'LT_OUTPUT'

ls_fieldcat-seltext_l = 'qty consigned'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'LSMENG'.

ls_fieldcat-outputlen = '11'.

ls_fieldcat-tabname = 'LT_OUTPUT'

ls_fieldcat-seltext_l = 'o/p qty'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'WERKS'.

ls_fieldcat-outputlen = '7'.

ls_fieldcat-tabname = 'LT_OUTPUT'

ls_fieldcat-seltext_l = 'plant'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'LGORT'.

ls_fieldcat-outputlen = '11'.

ls_fieldcat-tabname = 'LT_OUTPUT'

ls_fieldcat-seltext_l = 'store'.

APPEND ls_fieldcat TO rt_fieldcat.

n = n + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = n.

ls_fieldcat-fieldname = 'KUNNR'.

ls_fieldcat-outputlen = '30'.

ls_fieldcat-tabname = 'LT_OUTPUT'

ls_fieldcat-seltext_l = 'sales emp'.

APPEND ls_fieldcat TO rt_fieldcat.

regards,

venkat.