INVOICE CODE

Question

Hi all,
I am not getting any output for the following code. While debugging it doesn't show any values in first select statement itself (it_header table), but in database it has values. Please help me out.
REPORT  ZSD_DAILY_INVOICE_REGISTER1 NO STANDARD PAGE HEADING.
TABLES: VBAK,
        VBAP,
        VBRK,
        KONV,
        VBRP,
        KNVP,
        MARA,
        J_1IEXCHDR,
        MSEG,
        ZDAILY,
        T001W.
TYPE-POOLS: SLIS.
TYPES: BEGIN OF T_VBRP,
       VBELN TYPE VBRK-VBELN,
       FKIMG TYPE VBRP-FKIMG,
       MEINS TYPE VBRP-MEINS,
       VOLUM TYPE VBRP-VOLUM,
       MATNR TYPE VBRP-MATNR,
      FKIMG TYPE VBRP-VOLUM,
       POSNR TYPE POSNR_VF,
       CHARG TYPE VBRP-CHARG,
       WERKS TYPE VBRP-WERKS,
       END OF T_VBRP.
*DATA: IT_VBRP TYPE STANDARD TABLE OF VBRP WITH HEADER LINE.
TYPES: BEGIN OF T_HEADER,
       VBELN TYPE VBRK-VBELN,
       FKIMG TYPE VBRP-FKIMG,
       FKART TYPE VBRK-FKART,
       FKDAT TYPE VBRK-FKDAT,
       KNUMV TYPE VBRK-KNUMV,
       NETWR TYPE VBRK-NETWR,
       KUNRG TYPE VBRK-KUNRG,
       MWSBK TYPE VBRK-MWSBK,
       NAME1 TYPE KNA1-NAME1,
       INV_VALUE TYPE VBRK-NETWR,
       CD TYPE NETWR,
       AREA TYPE KNVP-PERNR,
       TAXA TYPE KONV-KAWRT,
       KWERT TYPE KONV-KWERT,
       KBETR TYPE KONV-KBETR,
       PERNR LIKE KNVP-PERNR,
       PARVW LIKE KNVP-PARVW,
      PERNR TYPE KNVP-PERNR,
      MATNR LIKE MARA-MATNR,
       PRODUCTCODE LIKE ZPROD_CODE-PRODUCTCODE,
       PRODUCTDESC LIKE ZPROD_CODE-PRODUCTDESC,
       WERKS_1 TYPE STRING,
       MATNR LIKE MARA-MATNR,
      FKIMG TYPE VBRP-FKIMG,
       VOLUM TYPE VBRP-VOLUM,
       EXNUM LIKE J_1IEXCHDR-EXNUM,
       EXBED LIKE J_1IEXCHDR-EXBED,
       ECS LIKE J_1IEXCHDR-ECS,
       EXADDTAX1 LIKE J_1IEXCHDR-EXADDTAX1,
       TOTAL1 LIKE VBRK-NETWR,
       MEINS LIKE MARA-MEINS,
       ERFMG LIKE MSEG-ERFMG,
       STEUC LIKE MARC-STEUC,
       POSNR TYPE POSNR_VF,
       END OF T_HEADER.
TYPES: BEGIN OF T_CUST,
       KUNNR TYPE KNA1-KUNNR,
       NAME1 TYPE KNA1-NAME1,
      WERKS LIKE VBRP-WERKS,
      PERNR LIKE KNVP-PERNR,
       END OF T_CUST.
TYPES: BEGIN OF T_KNVP,
       PERNR TYPE KNVP-PERNR,
       PARVW TYPE KNVP-PARVW,
       KUNNR TYPE KNA1-KUNNR,
       END OF T_KNVP.
TYPES: BEGIN OF T_KONV,
       KNUMV TYPE KONV-KNUMV,
       KSCHL TYPE KONV-KSCHL,
      KBETR TYPE KONV-KWERT,
       KPOSN TYPE KPOSN,
       KAWRT TYPE KONV-KAWRT,
       KBETR TYPE KONV-KBETR,
       KWERT TYPE KONV-KWERT,
       END OF T_KONV.
TYPES: BEGIN OF T_MSEG,
      MATNR LIKE MSEG-MATNR,
      ERFMG LIKE MSEG-ERFMG,
      BWART LIKE MSEG-BWART,
      KZBEW LIKE MSEG-KZBEW,
      CHARG LIKE MSEG-CHARG,
      END OF T_MSEG.
DATA: IT_HEADER TYPE STANDARD TABLE OF T_HEADER WITH HEADER LINE,
      WA_HEADER TYPE T_HEADER,
      IT_HEADER1 TYPE STANDARD TABLE OF T_HEADER WITH HEADER LINE,
      WA_HEADER1 TYPE T_HEADER,
      IT_CUST TYPE STANDARD TABLE OF T_CUST,
      WA_CUST TYPE T_CUST,
      IT_KONV TYPE STANDARD TABLE OF T_KONV,
      WA_KONV TYPE T_KONV,
      IT_KONV1 TYPE STANDARD TABLE OF T_KONV,
      WA_KONV1 TYPE T_KONV,
      IT_VBRP TYPE STANDARD TABLE OF T_VBRP,
      WA_VBRP TYPE T_VBRP,
      IT_VBRP1 TYPE STANDARD TABLE OF T_VBRP,
      WA_VBRP1 TYPE T_VBRP,
      V_NAME1 TYPE T001W-NAME1,
      IT_JIVP TYPE STANDARD TABLE OF T_KONV,
      WA_JIVP TYPE T_KONV,
      IT_KNVP TYPE STANDARD TABLE OF T_KNVP,
      WA_KNVP TYPE T_KNVP,
      IT_MSEG TYPE STANDARD TABLE OF T_MSEG,
      WA_MSEG TYPE T_MSEG.
*DATA: IT_VBRP TYPE STANDARD TABLE OF VBRP WITH HEADER LINE.
DATA: V_REPID  LIKE SY-REPID.
DATA:IT_DESC TYPE STANDARD TABLE OF MARA WITH HEADER LINE.
DATA :ST_LAYOUT     TYPE  SLIS_LAYOUT_ALV,
      IT_FIELDCAT   TYPE  SLIS_T_FIELDCAT_ALV,
      IT_LISTHEADER TYPE  SLIS_T_LISTHEADER,
      IT_EVENT      TYPE  SLIS_T_EVENT.
TABLES  ZPROD_CODE.
DATA: BEGIN OF IT_MARA OCCURS 0,
      MATNR LIKE MARA-MATNR,
      MEINS LIKE MARA-MEINS,
      EXTWG LIKE MARA-EXTWG,
      END OF IT_MARA.
DATA: BEGIN OF IT_MARC OCCURS 0,
      MATNR LIKE MARC-MATNR,
      STEUC LIKE MARC-STEUC,
     MEINS LIKE MARA-MEINS,
      END OF IT_MARC.
DATA : BEGIN OF IT_J_1IEXCHDR OCCURS 0,
       EXNUM LIKE J_1IEXCHDR-EXNUM,
       EXGRP LIKE J_1IEXCHDR-EXGRP,
       SRGRP LIKE J_1IEXCHDR-SRGRP,
       RDOC LIKE J_1IEXCHDR-RDOC,
       EXBED LIKE J_1IEXCHDR-EXBED,
       ECS LIKE J_1IEXCHDR-ECS,
       EXADDTAX1 LIKE J_1IEXCHDR-EXADDTAX1,
       END OF IT_J_1IEXCHDR.
DATA:IT_J_1IEXCDTL TYPE STANDARD TABLE OF J_1IEXCDTL WITH HEADER LINE.
DATA : VAR TYPE VBRK-NETWR.
DATA:It_age type Standard table of Zageing with header line.
SELECTION-SCREEN BEGIN OF BLOCK B WITH FRAME TITLE TEXT-001 .
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
SELECT-OPTIONS :  S_DATE FOR VBRK-FKDAT,
                  S_WERKS FOR ZDAILY-WERKS NO-EXTENSION NO INTERVALS OBLIGATORY,
                  P_PERNR FOR KNVP-PERNR NO-EXTENSION NO INTERVALS,
                  S_GROUP FOR MARA-EXTWG, " OBLIGATORY,
                  S_EXGRP FOR J_1IEXCHDR-EXGRP  NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN END OF BLOCK B.
SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME TITLE TEXT-001 .
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN END OF BLOCK A.
     AT-Selection-Screen                                              *
AT SELECTION-SCREEN.
IF IT_AGE[] IS NOT INITIAL.
  LOOP AT S_WERKS.
   READ TABLE IT_AGE WITH KEY USERID = SY-UNAME
                              WERKS = S_WERKS-LOW.
     IF SY-SUBRC NE 0.
      MESSAGE 'You are not authorised to View the Plant' TYPE 'E'.
     ENDIF.
  ENDLOOP.
  ENDIF.
*INITIALIZATION
INITIALIZATION.
  V_REPID = SY-REPID.
  SELECT * FROM ZAGEING INTO CORRESPONDING FIELDS OF TABLE IT_AGE
                                                  WHERE USERID = SY-UNAME.
    IF SY-SUBRC = 0.
     LOOP AT IT_AGE.
      S_WERKS-SIGN  = 'I'.
      S_WERKS-OPTION  = 'BT'.
      S_WERKS-LOW = IT_AGE-WERKS.
      APPEND S_WERKS.
      CLEAR S_WERKS.
       endloop.
ENDif.
*START-OF-SELECTION
START-OF-SELECTION.
PERFORM GET_DATA USING S_DATE.
  PERFORM GET_EVENT USING IT_EVENT.
  PERFORM FILL_LISTHEADER USING IT_LISTHEADER.
  PERFORM DISPLAY.
*&      Form  GET_DATA
      text
-->  p1        text
<--  p2        text
FORM GET_DATA USING O_S_DATE.
SELECT VBELN FKART FKDAT NETWR MWSBK KUNRG KNUMV FROM VBRK INTO CORRESPONDING FIELDS OF TABLE IT_HEADER
WHERE FKDAT IN S_DATE AND
       FKART = 'JEX'.
*LOOP AT IT_HEADER.
SORT IT_HEADER BY VBELN.
SELECT VBELN FKIMG MATNR MEINS VOLUM POSNR CHARG FROM VBRP INTO CORRESPONDING FIELDS OF TABLE IT_VBRP FOR ALL ENTRIES IN IT_HEADER
                                   WHERE VBELN = IT_HEADER-VBELN
                                   AND   WERKS IN S_WERKS.
*READ TABLE IT_HEADER WITH KEY FKART = 'JEX'.
*ENDLOOP.
  SELECT AVBELN AMATNR AFKIMG AVOLUM APOSNR BFKDAT BNETWR BMWSBK BKUNRG BKNUMV             "Changed by
                              INTO CORRESPONDING FIELDS OF TABLE IT_HEADER
                              FROM VBRP AS A INNER JOIN VBRK AS B ON AVBELN = BVBELN
                              INNER JOIN MARA AS C ON CMATNR = AMATNR
                              WHERE WERKS IN S_WERKS AND EXTWG IN S_GROUP
                              AND  FKDAT IN  S_DATE AND  FKART = 'JEX'.
  DELETE IT_HEADER WHERE FKIMG = 0.
  IF IT_HEADER[] IS NOT INITIAL.
    SELECT MATNR MEINS EXTWG
              FROM MARA INTO TABLE IT_MARA
              FOR ALL ENTRIES IN IT_HEADER
              WHERE MATNR = IT_HEADER-MATNR
              AND EXTWG IN S_GROUP.
    SELECT MATNR ERFMG BWART KZBEW WERKS
                FROM MSEG
                INTO CORRESPONDING FIELDS OF TABLE IT_MSEG
                FOR ALL ENTRIES IN IT_HEADER
                WHERE MATNR = IT_HEADER-MATNR AND
                BWART = '101' AND KZBEW = 'F'
                AND WERKS IN S_WERKS.
  ENDIF.
LOOP AT IT_MARA.
   LOOP AT IT_VBRP INTO WA_VBRP WHERE MATNR = IT_MARA-MATNR.
     IF SY-SUBRC = 0.
       WA_VBRP1 = WA_VBRP.
       APPEND WA_VBRP1 TO IT_VBRP1 .
       CLEAR : WA_VBRP,WA_VBRP1.
     ENDIF.
   ENDLOOP.
ENDLOOP.
REFRESH IT_VBRP.
CLEAR  I.
IT_VBRP = IT_VBRP1.
LOOP AT IT_VBRP INTO WA_VBRP .
   READ TABLE IT_HEADER INTO WA_HEADER WITH KEY VBELN = WA_VBRP-VBELN.
   IF SY-SUBRC = 0.
     WA_HEADER-POSNR = WA_VBRP-POSNR.
     WA_HEADER1 = WA_HEADER.
     APPEND WA_HEADER1 TO IT_HEADER1.
     CLEAR WA_HEADER1.
   ENDIF.
ENDLOOP.
REFRESH IT_HEADER.
CLEAR  IT_HEADER.
SORT IT_HEADER1 BY VBELN.
DELETE ADJACENT DUPLICATES FROM IT_HEADER1 COMPARING VBELN POSNR.
IT_HEADER[] = IT_HEADER1[].
IF NOT IT_VBRP[] IS INITIAL.
ENDIF.
SELECT  KUNNR NAME1 FROM KNA1 INTO CORRESPONDING FIELDS OF TABLE IT_CUST FOR ALL ENTRIES IN IT_HEADER WHERE KUNNR = IT_HEADER-KUNRG.
SELECT PERNR KUNNR FROM KNVP INTO CORRESPONDING FIELDS OF TABLE IT_KNVP FOR ALL ENTRIES IN IT_CUST
                               WHERE KUNNR = IT_CUST-KUNNR
                               AND PARVW = 'VE'
                               AND PERNR IN P_PERNR.
  IF NOT IT_HEADER[] IS INITIAL.
    SELECT KNUMV KSCHL KBETR KPOSN KAWRT KWERT FROM KONV INTO CORRESPONDING FIELDS OF TABLE IT_KONV FOR ALL ENTRIES IN IT_HEADER WHERE KNUMV = IT_HEADER-KNUMV
                                                                                AND KSCHL IN ('ZTRA').
  ENDIF.
LOOP AT IT_VBRP INTO WA_VBRP .
   READ TABLE IT_KONV INTO WA_KONV WITH KEY KPOSN = WA_VBRP-POSNR.
   IF SY-SUBRC = 0.
     WA_KONV1 = WA_KONV.
     APPEND WA_KONV1 TO IT_KONV1.
     CLEAR WA_KONV1.
   ENDIF.
ENDLOOP.
REFRESH IT_KONV.
IT_KONV = IT_KONV1.
  IF NOT IT_header[] IS INITIAL.
    SELECT EXNUM EXGRP RDOC EXBED ECS EXADDTAX1 FROM J_1IEXCHDR INTO CORRESPONDING FIELDS OF TABLE IT_J_1IEXCHDR
                                FOR ALL ENTRIES IN IT_VBRP WHERE RDOC = IT_VBRP-VBELN AND EXGRP IN S_EXGRP.
  ENDIF.
  IF NOT IT_J_1IEXCHDR[] IS INITIAL.
    SELECT * FROM J_1IEXCDTL INTO TABLE IT_J_1IEXCDTL FOR ALL ENTRIES IN IT_J_1IEXCHDR WHERE EXNUM = IT_J_1IEXCHDR-EXNUM.
  ENDIF.
  SELECT MATNR STEUC FROM MARC INTO TABLE IT_MARC FOR ALL ENTRIES IN IT_VBRP WHERE MATNR = IT_VBRP-MATNR AND WERKS IN S_WERKS.
  SORT IT_VBRP BY VBELN POSNR.
  LOOP AT IT_HEADER INTO WA_HEADER.
   READ TABLE IT_VBRP INTO WA_VBRP WITH KEY VBELN = WA_HEADER-VBELN.
   IF SY-SUBRC = 0.
      READ TABLE IT_J_1IEXCHDR WITH KEY RDOC = wa_header-VBELN.
      IF SY-SUBRC = 0.
       WA_HEADER-MATNR = wa_header-MATNR.
       WA_HEADER-VBELN = wa_header-VBELN.
   WA_HEADER-VOLUM = WA_VBRP-VOLUM.
       WA_HEADER-MEINS = WA_VBRP-MEINS.
       WA_HEADER-VOLUM = WA_HEADER-VOLUM + WA_VBRP-FKIMG.
        READ TABLE IT_MARC WITH KEY MATNR = wa_header-MATNR.
        WA_HEADER-STEUC = IT_MARC-STEUC.
        READ TABLE IT_MSEG INTO WA_MSEG WITH KEY MATNR = WA_HEADER-MATNR.
        IF SY-SUBRC = 0.
          WA_HEADER-ERFMG = WA_MSEG-ERFMG.
        ENDIF.
        LOOP AT IT_J_1IEXCDTL WHERE EXNUM = IT_J_1IEXCHDR-EXNUM AND MATNR = WA_HEADER-MATNR. "RDOC = WA_VBRP-VBELN.
          WA_HEADER-EXNUM = IT_J_1IEXCDTL-EXNUM.
          WA_HEADER-EXBED = WA_HEADER-EXBED + IT_J_1IEXCDTL-EXBED.
          WA_HEADER-ECS   = WA_HEADER-ECS + IT_J_1IEXCDTL-ECS.
          WA_HEADER-EXADDTAX1 = WA_HEADER-EXADDTAX1 + IT_J_1IEXCDTL-EXADDTAX1.
        ENDLOOP.
        LOOP AT IT_KONV INTO WA_KONV WHERE KNUMV = WA_HEADER-KNUMV.
          WA_HEADER-PERNR = WA_KNVP-PERNR.
          WA_HEADER-NAME1 = WA_CUST-NAME1.
          IF WA_KONV-KSCHL = 'ZTRA'.
            WA_HEADER-KWERT = WA_KONV-KWERT.
          ENDIF.
        ENDLOOP.
        SELECT SINGLE * FROM ZPROD_CODE WHERE PRODUCTCODE = WA_HEADER-MATNR+6(4).
        WA_HEADER-PRODUCTDESC = ZPROD_CODE-PRODUCTDESC.
        WA_HEADER-TOTAL1 = WA_HEADER-EXBED + WA_HEADER-ECS  + WA_HEADER-EXADDTAX1.
        MODIFY IT_HEADER FROM WA_HEADER.
     ENDIF.
   ENDIF.
  ENDLOOP.
ENDLOOP.
APPEND WA_HEADER TO IT_HEADER.
  SORT IT_HEADER.
  CLEAR IT_HEADER.
  DELETE IT_HEADER WHERE PRODUCTDESC = ' '.
COLLECT WA_HEADER INTO IT_HEADER.
ENDFORM.

Answer 1

Hi ivan
thanks for your reply. sorry i don't know how to use code tags. my exact problem is, in the below code i am not getting values in the first select statement itself (IT_HEADER---Table).
REPORT  ZSD_DAILY_INVOICE_REGISTER1 NO STANDARD PAGE HEADING.
TABLES: VBAK,
        VBAP,
        VBRK,
        KONV,
        VBRP,
        KNVP,
        MARA,
        J_1IEXCHDR,
        MSEG,
        ZDAILY,
        T001W.
TYPE-POOLS: SLIS.
TYPES: BEGIN OF T_VBRP,
       VBELN TYPE VBRK-VBELN,
       MATNR TYPE VBRP-MATNR,
       FKIMG TYPE VBRP-FKIMG,
       VOLUM TYPE VBRP-VOLUM,
      FKIMG TYPE VBRP-VOLUM,
       POSNR TYPE POSNR_VF,
       WERKS TYPE VBRP-WERKS,
       MEINS TYPE VBRP-MEINS,
       CHARG TYPE VBRP-CHARG,
       END OF T_VBRP.
*DATA: IT_VBRP TYPE STANDARD TABLE OF VBRP WITH HEADER LINE.
TYPES: BEGIN OF T_HEADER,
       VBELN TYPE VBRK-VBELN,
       FKIMG TYPE VBRP-FKIMG,
       FKART TYPE VBRK-FKART,
       FKDAT TYPE VBRK-FKDAT,
       NETWR TYPE VBRK-NETWR,
       MWSBK TYPE VBRK-MWSBK,
       KUNRG TYPE VBRK-KUNRG,
       NAME1 TYPE KNA1-NAME1,
       INV_VALUE TYPE VBRK-NETWR,
       CD TYPE NETWR,
       KNUMV TYPE VBRK-KNUMV,
       AREA TYPE KNVP-PERNR,
       TAXA TYPE KONV-KAWRT,
       KWERT TYPE KONV-KWERT,
       KBETR TYPE KONV-KBETR,
       PERNR LIKE KNVP-PERNR,
       PARVW LIKE KNVP-PARVW,
      PERNR TYPE KNVP-PERNR,
      MATNR LIKE MARA-MATNR,
       PRODUCTCODE LIKE ZPROD_CODE-PRODUCTCODE,
       PRODUCTDESC LIKE ZPROD_CODE-PRODUCTDESC,
       WERKS_1 TYPE STRING,
       MATNR LIKE MARA-MATNR,
      FKIMG TYPE VBRP-FKIMG,
       VOLUM TYPE VBRP-VOLUM,
       EXNUM LIKE J_1IEXCHDR-EXNUM,
       EXBED LIKE J_1IEXCHDR-EXBED,
       ECS LIKE J_1IEXCHDR-ECS,
       EXADDTAX1 LIKE J_1IEXCHDR-EXADDTAX1,
       TOTAL1 LIKE VBRK-NETWR,
       MEINS LIKE MARA-MEINS,
       ERFMG LIKE MSEG-ERFMG,
       STEUC LIKE MARC-STEUC,
       POSNR TYPE POSNR_VF,
       END OF T_HEADER.
TYPES: BEGIN OF T_CUST,
       KUNNR TYPE KNA1-KUNNR,
       NAME1 TYPE KNA1-NAME1,
      WERKS LIKE VBRP-WERKS,
      PERNR LIKE KNVP-PERNR,
       END OF T_CUST.
TYPES: BEGIN OF T_KNVP,
       PERNR TYPE KNVP-PERNR,
       PARVW TYPE KNVP-PARVW,
       KUNNR TYPE KNA1-KUNNR,
       END OF T_KNVP.
TYPES: BEGIN OF T_KONV,
       KNUMV TYPE KONV-KNUMV,
       KSCHL TYPE KONV-KSCHL,
      KBETR TYPE KONV-KWERT,
       KPOSN TYPE KPOSN,
       KAWRT TYPE KONV-KAWRT,
       KBETR TYPE KONV-KBETR,
       KWERT TYPE KONV-KWERT,
       END OF T_KONV.
TYPES: BEGIN OF T_MSEG,
      MATNR LIKE MSEG-MATNR,
      ERFMG LIKE MSEG-ERFMG,
      BWART LIKE MSEG-BWART,
      KZBEW LIKE MSEG-KZBEW,
      CHARG LIKE MSEG-CHARG,
      END OF T_MSEG.
DATA: IT_HEADER TYPE STANDARD TABLE OF T_HEADER WITH HEADER LINE,
      WA_HEADER TYPE T_HEADER,
      IT_HEADER1 TYPE STANDARD TABLE OF T_HEADER WITH HEADER LINE,
      WA_HEADER1 TYPE T_HEADER,
      IT_CUST TYPE STANDARD TABLE OF T_CUST,
      WA_CUST TYPE T_CUST,
      IT_KONV TYPE STANDARD TABLE OF T_KONV,
      WA_KONV TYPE T_KONV,
      IT_KONV1 TYPE STANDARD TABLE OF T_KONV,
      WA_KONV1 TYPE T_KONV,
      IT_VBRP TYPE STANDARD TABLE OF T_VBRP,
      WA_VBRP TYPE T_VBRP,
      IT_VBRP1 TYPE STANDARD TABLE OF T_VBRP,
      WA_VBRP1 TYPE T_VBRP,
      V_NAME1 TYPE T001W-NAME1,
      IT_JIVP TYPE STANDARD TABLE OF T_KONV,
      WA_JIVP TYPE T_KONV,
      IT_KNVP TYPE STANDARD TABLE OF T_KNVP,
      WA_KNVP TYPE T_KNVP,
      IT_MSEG TYPE STANDARD TABLE OF T_MSEG,
      WA_MSEG TYPE T_MSEG.
*DATA: IT_VBRP TYPE STANDARD TABLE OF VBRP WITH HEADER LINE.
DATA: V_REPID  LIKE SY-REPID.
DATA:IT_DESC TYPE STANDARD TABLE OF MARA WITH HEADER LINE.
DATA :ST_LAYOUT     TYPE  SLIS_LAYOUT_ALV,
      IT_FIELDCAT   TYPE  SLIS_T_FIELDCAT_ALV,
      IT_LISTHEADER TYPE  SLIS_T_LISTHEADER,
      IT_EVENT      TYPE  SLIS_T_EVENT.
TABLES  ZPROD_CODE.
DATA: BEGIN OF IT_MARA OCCURS 0,
      MATNR LIKE MARA-MATNR,
      EXTWG LIKE MARA-EXTWG,
      MEINS LIKE MARA-MEINS,
      END OF IT_MARA.
DATA: BEGIN OF IT_MARC OCCURS 0,
      MATNR LIKE MARC-MATNR,
      STEUC LIKE MARC-STEUC,
     MEINS LIKE MARA-MEINS,
      END OF IT_MARC.
DATA : BEGIN OF IT_J_1IEXCHDR OCCURS 0,
       EXNUM LIKE J_1IEXCHDR-EXNUM,
       EXGRP LIKE J_1IEXCHDR-EXGRP,
       SRGRP LIKE J_1IEXCHDR-SRGRP,
       RDOC LIKE J_1IEXCHDR-RDOC,
       EXBED LIKE J_1IEXCHDR-EXBED,
       ECS LIKE J_1IEXCHDR-ECS,
       EXADDTAX1 LIKE J_1IEXCHDR-EXADDTAX1,
       END OF IT_J_1IEXCHDR.
DATA:IT_J_1IEXCDTL TYPE STANDARD TABLE OF J_1IEXCDTL WITH HEADER LINE.
DATA : VAR TYPE VBRK-NETWR.
DATA:It_age type Standard table of Zageing with header line.
SELECTION-SCREEN BEGIN OF BLOCK B WITH FRAME TITLE TEXT-001 .
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
SELECT-OPTIONS :  S_DATE FOR VBRK-FKDAT,
                  S_WERKS FOR ZDAILY-WERKS NO-EXTENSION NO INTERVALS OBLIGATORY,
                 P_PERNR FOR KNVP-PERNR NO-EXTENSION NO INTERVALS,
                  S_GROUP FOR MARA-EXTWG, " OBLIGATORY,
                  S_EXGRP FOR J_1IEXCHDR-EXGRP  NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN END OF BLOCK B.
SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME TITLE TEXT-001 .
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN END OF BLOCK A.
     AT-Selection-Screen                                              *
AT SELECTION-SCREEN.
  IF IT_AGE[] IS NOT INITIAL.
  LOOP AT S_WERKS.
     READ TABLE IT_AGE WITH KEY USERID = SY-UNAME
                                WERKS = S_WERKS-LOW.
     IF SY-SUBRC NE 0.
      MESSAGE 'You are not authorised to View the Plant' TYPE 'E'.
     ENDIF.
  ENDLOOP.
  ENDIF.
*INITIALIZATION
INITIALIZATION.
  V_REPID = SY-REPID.
  SELECT * FROM ZAGEING INTO CORRESPONDING FIELDS OF TABLE IT_AGE
                                                  WHERE USERID = SY-UNAME.
    IF SY-SUBRC = 0.
     LOOP AT IT_AGE.
      S_WERKS-SIGN  = 'I'.
      S_WERKS-OPTION  = 'BT'.
      S_WERKS-LOW = IT_AGE-WERKS.
      APPEND S_WERKS.
      CLEAR S_WERKS.
endloop.
     ENDif.
*START-OF-SELECTION
START-OF-SELECTION.
  PERFORM GET_DATA.
  PERFORM GET_EVENT USING IT_EVENT.
  PERFORM FILL_LISTHEADER USING IT_LISTHEADER.
  PERFORM DISPLAY.
*&      Form  GET_DATA
      text
-->  p1        text
<--  p2        text
FORM GET_DATA .
  SELECT AVBELN AMATNR AFKIMG AVOLUM APOSNR BFKDAT BNETWR BMWSBK BKUNRG BKNUMV   INTO CORRESPONDING FIELDS OF TABLE IT_HEADER
                              FROM VBRP AS A INNER JOIN VBRK AS B ON AVBELN = BVBELN
                              INNER JOIN MARA AS C ON CMATNR = AMATNR
                              WHERE WERKS IN S_WERKS AND EXTWG IN S_GROUP
                              AND  FKDAT IN  S_DATE AND  FKART = 'JEX'.
  DELETE IT_HEADER WHERE FKIMG = 0.