ALV Display

[Former Member]

hi guru's,

i have been working on alv report,my problem is after executing the report ' i'm just getting the column headings, but no data coming from database'.

i debugged the program in final internal table the data everything is coming, but after executing data not display.

my code.

type-pools : slis.

data : t_FIELDCAT type slis_T_fieldcat_alv,
       wa_FIELDCAT type slis_fieldcat_alv.
DATA: GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: LS_LINE TYPE SLIS_LISTHEADER.
DATA: POS TYPE I VALUE 1.

  perform getval.

  SELECT * FROM VBAK INTO CORRESPONDING FIELDS OF TABLE
IT_VBAK
WHERE VBELN IN ORDERNO.

LOOP AT IT_VBAK.

ENDLOOP.

SELECT * FROM VBAP INTO CORRESPONDING
FIELDS OF TABLE IT_VBAP for all entries in it_vbak WHERE VBELN =
IT_VBAK-VBELN.

LOOP AT IT_VBAP.

ENDLOOP.
*KWMENG LSMENG POSNR MATNR ARKTX

SELECT * FROM VBEP INTO CORRESPONDING FIELDS OF TABLE IT_VBEP
for all entries in it_vbak WHERE
VBELN = IT_VBAK-VBELN AND POSNR = IT_VBAP-POSNR.

LOOP AT IT_VBEP.

ENDLOOP.


SELECT * FROM VBKD INTO CORRESPONDING FIELDS OF TABLE IT_VBKD
for all entries in it_vbap WHERE
VBELN = IT_VBAP-VBELN.

LOOP AT IT_VBKD.

ENDLOOP.
*
*
**
**LOOP AT IT_ANN.
**
**WRITE: / IT_ANN-VBELN, IT_ANN-KUNNR, IT_ANN-KWMENG, IT_ANN-LSMENG,
**IT_ANN-MATNR, IT_ANN-ARKTX.
**
**ENDLOOP.
*
SELECT * FROM MSEG
 INTO CORRESPONDING FIELDS
 OF TABLE IT_MSEG for all entries in it_vbap
 WHERE MAT_KDAUF = it_vbap-vbeln
  AND BWART = '501'
  AND SOBKZ = 'E'.

LOOP AT IT_MSEG.

ENDLOOP.
**ENDLOOP.
*
SELECT * FROM MKPF INTO CORRESPONDING FIELDS OF TABLE IT_MKPF
for all entries in it_mseg WHERE
MBLNR = IT_MSEG-MBLNR.

LOOP AT IT_MKPF.

ENDLOOP.
*
SELECT * FROM MAKT INTO CORRESPONDING FIELDS OF TABLE IT_MAKT
for all entries in it_vbap WHERE
MATNR = IT_VBAP-MATNR.

LOOP AT IT_MAKT.
*
ENDLOOP.
*
*
SELECT * FROM LIPS INTO CORRESPONDING FIELDS OF TABLE IT_LIPS
for all entries in it_vbap WHERE
VGBEL = IT_VBAP-VBELN AND POSNV = IT_VBAP-POSNR.

LOOP AT IT_LIPS.

ENDLOOP.

loop at it_vbap.

  read table it_vbap with key
           vbeln = it_vbak-vbeln.
      if sy-subrc = 0.
*  read table it_vbep with key
*           vbeln = it_vbap-vbeln
*           posnr = it_vbap-posnr.
*      if sy-subrc = 0.
    read table it_vbep with key
           vbeln = it_vbap-vbeln.
      if sy-subrc = 0.
    read table it_mseg with key
           mat_kdauf = it_vbap-vbeln
           BWART = '501'
           SOBKZ = 'E'.
      if sy-subrc = 0.
      read table it_mkpf with key
           mblnr = it_mseg-mblnr.
      if sy-subrc = 0.

    read table it_lips with key
           vgbel = it_vbap-vbeln
           posnv = it_vbap-posnr.
      if sy-subrc = 0.
        IT_ANN-vbeln = it_vbak-vbeln.
        IT_ANN-kunnr = it_vbak-kunnr.
        IT_ANN-kwmeng = it_vbap-kwmeng.
        IT_ANN-lsmeng = it_vbap-lsmeng.
        IT_ANN-posnr = it_vbap-posnr.
        IT_ANN-matnr = it_vbap-matnr.
        IT_ANN-arktx = it_vbap-arktx.
        IT_ANN-edatu = it_vbep-edatu.
        IT_ANN-prsdt = it_vbkd-prsdt.
        IT_ANN-mblnr = it_mseg-mblnr.
        IT_ANN-mat1 = it_mseg-matnr.
        IT_ANN-lifnr = it_mseg-lifnr.
        IT_ANN-erfmg = it_mseg-erfmg.
        IT_ANN-sgtxt = it_mseg-sgtxt.
        IT_ANN-BUDAT = it_mkpf-BUDAT.
        IT_ANN-lfimg = it_lips-lfimg.

      endif.
     endif.
     endif.
     endif.
     endif.
*     endif.
endloop.



CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                = sy-repid
*   I_CALLBACK_PF_STATUS_SET          = ' '
*   I_CALLBACK_USER_COMMAND           = ' '
*   I_CALLBACK_TOP_OF_PAGE            = ' '
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
*   I_BACKGROUND_ID                   = ' '
   I_GRID_TITLE                      = 'ANNEXURE V'
*   I_GRID_SETTINGS                   =
*   IS_LAYOUT                         =
   IT_FIELDCAT                       = t_FIELDCAT
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
*   IT_SORT                           =
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
*   I_SAVE                            = ' '
*   IS_VARIANT                        =
*   IT_EVENTS                         =
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   I_HTML_HEIGHT_TOP                 = 0
*   I_HTML_HEIGHT_END                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
  TABLES
    T_OUTTAB                          = IT_ANN
 EXCEPTIONS
   PROGRAM_ERROR                     = 1
   OTHERS                            = 2
          .
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


form getval.
  clear wa_fieldcat.
  WA_FIELDCAT-COL_POS       =  POS.
  WA_FIELDCAT-fieldname = 'VBELN'.
  WA_FIELDCAT-REF_tabname = 'VBAK'.
  WA_FIELDCAT-seltext_L = 'ORDER'.
  WA_FIELDCAT-OUTPUTLEN       =   12.

  APPEND WA_FIELDCAT TO T_FIELDCAT.

ENDFORM.

please help me.

thanks in advance.

regard

sam

Code Formatted by: Alvaro Tejada Galindo on Dec 23, 2008 11:44 AM

[Former Member]

Hi..

Remove the code "PERFORM GETVAL"...

and put it before the CALL FUNCTION REUSE ALV GRID...and check out...

[Former Member]

You forgot to append the data to the FINAL INTERNAL TABLE

Please add the append statement APPEND IT_ANN AFTER the context

IT_ANN-vbeln = it_vbak-vbeln.

IT_ANN-kunnr = it_vbak-kunnr.

IT_ANN-kwmeng = it_vbap-kwmeng.

IT_ANN-lsmeng = it_vbap-lsmeng.

IT_ANN-posnr = it_vbap-posnr.

IT_ANN-matnr = it_vbap-matnr.

IT_ANN-arktx = it_vbap-arktx.

IT_ANN-edatu = it_vbep-edatu.

IT_ANN-prsdt = it_vbkd-prsdt.

IT_ANN-mblnr = it_mseg-mblnr.

IT_ANN-mat1 = it_mseg-matnr.

IT_ANN-lifnr = it_mseg-lifnr.

IT_ANN-erfmg = it_mseg-erfmg.

IT_ANN-sgtxt = it_mseg-sgtxt.

IT_ANN-BUDAT = it_mkpf-BUDAT.

IT_ANN-lfimg = it_lips-lfimg.

APPEND IT_ANN.

Hope this will solve your problem.

[Former Member]

Thanks.

My problem is sloved.

Regard

Sam.

[Former Member]

Hi,

Ofter getting data into ur final internal table then u write

perform getval

CALL FUNCTION MODULE 'REUSE_ALV_GRID_DISPLAY'

form getval.

clear wa_fieldcat.

WA_FIELDCAT-COL_POS = POS.

WA_FIELDCAT-fieldname = 'VBELN'.

WA_FIELDCAT-REF_tabname = 'VBAK'.

WA_FIELDCAT-seltext_L = 'ORDER'.

WA_FIELDCAT-OUTPUTLEN = 12.

APPEND WA_FIELDCAT TO T_FIELDCAT.

ENDFORM.