Solved: ALV GRID Display

Former Member · ‎2007 Oct 12

Hi SAP Guru's,

In my Below code upto Final Internal table i am getting data. But where in Fun Mod. Its going to Dump and showing an error as Field symbo is Missing. So, can u plz help me on this.

If helpfull points will be rewarded.

REPORT ZREPORT_SORDER_ENQUIRY NO STANDARD PAGE HEADING LINE-COUNT 30(2) LINE-SIZE 136.

TYPE-POOLS : SLIS.

TABLES : VAPMA, VBAK, VBAP, VBFA, LIPS.

TYPES : BEGIN OF T_OUTPUT,

FKDAT LIKE VBAK-fmbdat,

AGE(4),

VBELN LIKE VBAK-VBELN,

NAME1 LIKE KNA1-NAME1,

MATNR LIKE VBAP-MATNR,

KWMENG LIKE VBAP-KWMENG,

ERDAT LIKE LIPS-ERDAT,

pgage(4),

crvbe LIKE vbrk-vbeln,

crdat LIKE vbrk-erdat,

crage(4),

END OF t_output.

TYPES : BEGIN OF t_vbak,

vbeln LIKE vbak-vbeln,

fkdat LIKE vbak-fmbdat,

kunnr LIKE vbak-kunnr,

END OF t_vbak.

TYPES : BEGIN OF t_kna1,

kunnr LIKE kna1-kunnr,

name1 LIKE kna1-name1,

END OF t_kna1.

TYPES : BEGIN OF t_vbap,

vbeln LIKE vbap-vbeln,

posnr LIKE vbap-posnr,

matnr LIKE vbap-matnr,

kwmeng LIKE vbap-kwmeng,

END OF t_vbap.

TYPES : BEGIN OF t_vbfa,

vbelv LIKE vbfa-vbelv,

posnv LIKE vbfa-posnv,

vbeln LIKE vbfa-vbeln,

posnn LIKE vbfa-posnn,

END OF t_vbfa.

TYPES : BEGIN OF t_lips,

vbeln LIKE lips-vbeln,

posnr LIKE lips-posnr,

erdat LIKE lips-erdat,

END OF t_lips.

TYPES : BEGIN OF t_vbrk,

vbeln LIKE vbrk-vbeln,

erdat LIKE vbrk-erdat,

END OF t_vbrk.

DATA : i_output TYPE STANDARD TABLE OF t_output with header line,

wa_output TYPE t_output.

DATA : i_vbak TYPE STANDARD TABLE OF t_vbak,

wa_vbak TYPE t_vbak.

DATA : i_kna1 TYPE STANDARD TABLE OF t_kna1,

wa_kna1 TYPE t_kna1.

DATA : i_vbap TYPE STANDARD TABLE OF t_vbap,

wa_vbap TYPE t_vbap.

DATA : i_lvbfa TYPE STANDARD TABLE OF t_vbfa,

wa_lvbfa TYPE t_vbfa.

DATA : i_rvbfa TYPE STANDARD TABLE OF t_vbfa,

wa_rvbfa TYPE t_vbfa.

DATA : i_lips TYPE STANDARD TABLE OF t_lips,

wa_lips TYPE t_lips.

DATA : i_vbrk TYPE STANDARD TABLE OF t_vbrk,

wa_vbrk TYPE t_vbrk.

DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

WK_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

DATA : GV_REPID TYPE SY-REPID.

************************************************************

SELECTION-SCREEN *

************************************************************

SELECT-OPTIONS : s_vkorg FOR vbak-vkorg,

s_kunnr FOR vbak-kunnr,

s_matnr FOR vbap-matnr,

s_fkdat FOR vbak-fmbdat.

*************************************************************

INITIALIZATION *

*************************************************************

INITIALIZATION.

GV_REPID = SY-REPID.

PERFORM BUILD_FIELDCAT_T_OUTPUT.

*************************************************************

START-OF-SELECTION *

*************************************************************

START-OF-SELECTION.

PERFORM GETDATA.

PERFORM DISPLAYDATA_IN_ALV.

&----

*& Form GETDATA

&----

FORM FOR GETTING DATA

----

--> p1 text
<-- p2 text

----

FORM GETDATA .

SELECT vbeln fmbdat kunnr FROM vbak INTO TABLE i_vbak

WHERE fmbdat IN s_fkdat

AND kunnr IN s_kunnr

AND vkorg IN s_vkorg.

IF NOT i_vbak IS INITIAL.

SELECT kunnr name1 FROM kna1 INTO TABLE i_kna1

FOR ALL ENTRIES IN i_vbak

WHERE kunnr = i_vbak-kunnr.

IF sy-subrc = 0.

SORT i_kna1 BY kunnr.

ENDIF.

SELECT vbeln posnr matnr kwmeng FROM vbap INTO TABLE i_vbap

FOR ALL ENTRIES IN i_vbak

WHERE vbeln = i_vbak-vbeln

AND matnr IN s_matnr.

IF sy-subrc = 0.

SORT i_vbap BY vbeln posnr.

ENDIF.

SELECT vbelv posnv vbeln posnn FROM vbfa INTO TABLE i_lvbfa

FOR ALL ENTRIES IN i_vbap

WHERE vbelv = i_vbap-vbeln

AND posnv = i_vbap-posnr

AND vbtyp_n = 'J'.

IF sy-subrc = 0.

SORT i_lvbfa BY vbelv posnv.

SELECT vbeln posnr erdat FROM lips INTO TABLE i_lips

FOR ALL ENTRIES IN i_lvbfa

WHERE vbeln = i_lvbfa-vbeln

AND posnr = i_lvbfa-posnn.

ENDIF.

SELECT vbelv posnv vbeln posnn FROM vbfa INTO TABLE i_rvbfa

FOR ALL ENTRIES IN i_vbak

WHERE vbelv = i_vbak-vbeln

AND vbtyp_n = 'O'.

IF sy-subrc = 0.

SELECT vbeln erdat FROM vbrk INTO TABLE i_vbrk

FOR ALL ENTRIES IN i_rvbfa

WHERE vbeln = i_rvbfa-vbeln.

SORT i_rvbfa BY vbelv.

ENDIF.

LOOP AT i_vbap INTO wa_vbap.

READ TABLE i_vbak INTO wa_vbak WITH KEY vbeln = wa_vbap-vbeln

BINARY SEARCH.

IF sy-subrc = 0.

wa_output-fkdat = wa_vbak-fkdat.

wa_output-age = sy-datum - wa_vbak-fkdat.

READ TABLE i_kna1 INTO wa_kna1 WITH KEY kunnr = wa_vbak-kunnr

BINARY SEARCH.

IF sy-subrc = 0.

wa_output-name1 = wa_kna1-name1.

ENDIF.

wa_output-vbeln = wa_vbap-vbeln.

wa_output-matnr = wa_vbap-matnr.

wa_output-kwmeng = wa_vbap-kwmeng.

READ TABLE i_lvbfa INTO wa_lvbfa WITH KEY vbelv = wa_vbap-vbeln

posnn = wa_vbap-posnr.

if sy-subrc = 0.

READ TABLE i_lips INTO wa_lips WITH KEY vbeln = wa_lvbfa-vbeln

posnr = wa_vbap-posnr

BINARY SEARCH.

IF sy-subrc = 0.

wa_output-erdat = wa_lips-erdat.

wa_output-pgage = sy-datum - wa_lips-erdat.

ENDIF.

endif.

READ TABLE i_rvbfa INTO wa_rvbfa WITH KEY vbelv = wa_vbap-vbeln.

if sy-subrc = 0.

READ TABLE i_vbrk INTO wa_vbrk WITH KEY vbeln = wa_rvbfa-vbeln

BINARY SEARCH.

IF sy-subrc = 0.

wa_output-crvbe = wa_vbrk-vbeln.

wa_output-crdat = wa_vbrk-erdat.

wa_output-crage = sy-datum - wa_vbrk-erdat.

ENDIF.

endif.

move-corresponding wa_output to i_output.

append i_output.

ENDLOOP.

ENDFORM. " GETDATA

&----

*& Form BUILD_FIELDCAT_T_OUTPUT

&----

FORM FOR DISPLAY DATA IN FIELD CATALOG

----

--> p1 text
<-- p2 text

----

FORM BUILD_FIELDCAT_T_OUTPUT .