Finding problem when displaying a Interative list report

Hi All,
    I have a req where i have to display some records in my detail list after clicking on the primary list.
    On th basis list i have a user command 'A' and some of records are being displayed on my screen.
    Here i have to click on any one of the available checkbox and press the user command A.
    Then some details are displayed in secondary list when i click back on the BACK button the checkbox which i have checked must be cleared.
  But that is not happening in my program.
  I tried using clear and refresh statements but it is not clearing my checkbox.
  Kindly let me know how to clear the checkbox .
Thanks and Regards,
Yamini.A

Hi Yamini,
1. I understood ur problem and i could do at my end.
By simple means, we cannot achive that :
We have to use our own PF Status
In this pf-status, do not use std code BACK
2. Try what i have done :
   a) new z program (code as given below)
   b) in this program, create new pf-status ABCD
   c) Add Two Buttons/Icon in this PF Status
      (In App Toolbar)
   d) SHOWDE , GOBACK.
   e) Activate GUI Status, and the program
   f) Now run  the program (it will do what u want)
3.
REPORT abc.
DATA : ck TYPE c.
DATA : flag TYPE c.
PARAMETERS : a TYPE c.
START-OF-SELECTION.
  SET PF-STATUS 'ABCD'.
  PERFORM basiclist.
FORM basiclist.
  sy-lsind = 0.
  flag = ''.
  WRITE :/ ck AS CHECKBOX , 'Basic List'.
ENDFORM.                    "basiclist
FORM detaillist.
  flag = 'X'.
  WRITE :/  'Detail List'.
  WRITE :/  'Detail List'.
ENDFORM.                    "detaillist
AT USER-COMMAND.
  IF sy-ucomm = 'SHOWDE'.
    PERFORM detaillist.
  ENDIF.
  IF sy-ucomm = 'GOBACK'.
    IF flag = ''. "BASIC LIST
      LEAVE LIST-PROCESSING.
    ENDIF.
    IF flag = 'X'. "DETAIL LIST
      PERFORM basiclist.
    ENDIF.
  ENDIF.

Similar Messages

  • Authorization problem when displaying icons in BW Report

    Hi All
    I have the following problem when display BW Report as iView: The report data itself is displayed perfectly but to display the icons (like DrillDown arrows, Hierarhy level open arrows) the Windows login message "Connect to <my BW server.com>:8000" appears and I have to enter BW user name and password explicitly. The system for BW is defined, the user is mapped, UIDPW method is used. Again, the report data itself is displayed, the problem is only with icons. I can see that the path to icons is like:
    http://<my BW server>.com:8000/sap/bw/Mime/BEx/Icons/s_b_up.gif
    How could I rid of this authorization request?

    Thanks! I already did this and it helped for most of icons. But for five remaining icons i still get authorization request althoug these icons are in the same path. The icons are:
    http://<server>.com/sap/bw/Mime/BEx/Icons/cascading.gif
    http://<server>.com/sap/bw/Mime/BEx/Icons/checked.gif
    http://<server>.com/sap/bw/Mime/BEx/Icons/separator.gif
    http://<server>.com/sap/bw/Mime/BEx/Icons/marked_right_35.gif
    http://<server>.com/sap/bw/Mime/BEx/Icons/loading.gif

  • Problem when down loading a simple report to Excel sheet

    HI Frenz,
    When I download a Simple report to excel , The Excel shows a blank column in between two column, which should not be the case.
    Kindly let me know ASAP
    Regards
    Irfan

    Hi,
    Check out the below samle code
    Download a report to excel with format (border, color cell, etc) 
    REPORT ZSIRI NO STANDARD PAGE HEADING.
    * this report demonstrates how to send some ABAP data to an
    * EXCEL sheet using OLE automation.
    INCLUDE OLE2INCL.
    * handles for OLE objects
    DATA: H_EXCEL TYPE OLE2_OBJECT,        " Excel object
          H_MAPL TYPE OLE2_OBJECT,         " list of workbooks
          H_MAP TYPE OLE2_OBJECT,          " workbook
          H_ZL TYPE OLE2_OBJECT,           " cell
          H_F TYPE OLE2_OBJECT.            " font
    TABLES: SPFLI.
    DATA  H TYPE I.
    * table of flights
    DATA: IT_SPFLI LIKE SPFLI OCCURS 10 WITH HEADER LINE.
    *&   Event START-OF-SELECTION
    START-OF-SELECTION.
    * read flights
      SELECT * FROM SPFLI INTO TABLE IT_SPFLI UP TO 10 ROWS.
    * display header
      ULINE (61).
      WRITE: /     SY-VLINE NO-GAP,
              (3)  'Flg'(001) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
              (4)  'Nr'(002) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
              (20) 'Von'(003) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
              (20) 'Nach'(004) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
              (8)  'Zeit'(005) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP.
      ULINE /(61).
    * display flights
      LOOP AT IT_SPFLI.
      WRITE: / SY-VLINE NO-GAP,
               IT_SPFLI-CARRID COLOR COL_KEY NO-GAP, SY-VLINE NO-GAP,
               IT_SPFLI-CONNID COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
               IT_SPFLI-CITYFROM COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
               IT_SPFLI-CITYTO COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
               IT_SPFLI-DEPTIME COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP.
      ENDLOOP.
      ULINE /(61).
    * tell user what is going on
      CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
         EXPORTING
    *           PERCENTAGE = 0
               TEXT       = TEXT-007
           EXCEPTIONS
                OTHERS     = 1.
    * start Excel
      CREATE OBJECT H_EXCEL 'EXCEL.APPLICATION'.
    *  PERFORM ERR_HDL.
      SET PROPERTY OF H_EXCEL  'Visible' = 1.
    *  CALL METHOD OF H_EXCEL 'FILESAVEAS' EXPORTING #1 = 'c:\kis_excel.xls'
    *  PERFORM ERR_HDL.
    * tell user what is going on
      CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
         EXPORTING
    *           PERCENTAGE = 0
               TEXT       = TEXT-008
           EXCEPTIONS
                OTHERS     = 1.
    * get list of workbooks, initially empty
      CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
      PERFORM ERR_HDL.
    * add a new workbook
      CALL METHOD OF H_MAPL 'Add' = H_MAP.
      PERFORM ERR_HDL.
    * tell user what is going on
      CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
         EXPORTING
    *           PERCENTAGE = 0
               TEXT       = TEXT-009
           EXCEPTIONS
                OTHERS     = 1.
    * output column headings to active Excel sheet
      PERFORM FILL_CELL USING 1 1 1 'Flug'(001).
      PERFORM FILL_CELL USING 1 2 0 'Nr'(002).
      PERFORM FILL_CELL USING 1 3 1 'Von'(003).
      PERFORM FILL_CELL USING 1 4 1 'Nach'(004).
      PERFORM FILL_CELL USING 1 5 1 'Zeit'(005).
      LOOP AT IT_SPFLI.
    * copy flights to active EXCEL sheet
        H = SY-TABIX + 1.
        PERFORM FILL_CELL USING H 1 0 IT_SPFLI-CARRID.
        PERFORM FILL_CELL USING H 2 0 IT_SPFLI-CONNID.
        PERFORM FILL_CELL USING H 3 0 IT_SPFLI-CITYFROM.
        PERFORM FILL_CELL USING H 4 0 IT_SPFLI-CITYTO.
        PERFORM FILL_CELL USING H 5 0 IT_SPFLI-DEPTIME.
      ENDLOOP.
    * changes by Kishore  - start
    *  CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
      CALL METHOD OF H_EXCEL 'Worksheets' = H_MAPL." EXPORTING #1 = 2.
      PERFORM ERR_HDL.
    * add a new workbook
      CALL METHOD OF H_MAPL 'Add' = H_MAP  EXPORTING #1 = 2.
      PERFORM ERR_HDL.
    * tell user what is going on
      SET PROPERTY OF H_MAP 'NAME' = 'COPY'.
      CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
         EXPORTING
    *           PERCENTAGE = 0
               TEXT       = TEXT-009
           EXCEPTIONS
                OTHERS     = 1.
    * output column headings to active Excel sheet
      PERFORM FILL_CELL USING 1 1 1 'Flug'(001).
      PERFORM FILL_CELL USING 1 2 0 'Nr'(002).
      PERFORM FILL_CELL USING 1 3 1 'Von'(003).
      PERFORM FILL_CELL USING 1 4 1 'Nach'(004).
      PERFORM FILL_CELL USING 1 5 1 'Zeit'(005).
      LOOP AT IT_SPFLI.
    * copy flights to active EXCEL sheet
        H = SY-TABIX + 1.
        PERFORM FILL_CELL USING H 1 0 IT_SPFLI-CARRID.
        PERFORM FILL_CELL USING H 2 0 IT_SPFLI-CONNID.
        PERFORM FILL_CELL USING H 3 0 IT_SPFLI-CITYFROM.
        PERFORM FILL_CELL USING H 4 0 IT_SPFLI-CITYTO.
        PERFORM FILL_CELL USING H 5 0 IT_SPFLI-DEPTIME.
      ENDLOOP.
    * changes by Kishore  - end
    * disconnect from Excel
    *      CALL METHOD OF H_EXCEL 'FILESAVEAS' EXPORTING  #1 = 'C:\SKV.XLS'.
      FREE OBJECT H_EXCEL.
      PERFORM ERR_HDL.
    *       FORM FILL_CELL                                                *
    *       sets cell at coordinates i,j to value val boldtype bold       *
    FORM FILL_CELL USING I J BOLD VAL.
      CALL METHOD OF H_EXCEL 'Cells' = H_ZL EXPORTING #1 = I #2 = J.
      PERFORM ERR_HDL.
      SET PROPERTY OF H_ZL 'Value' = VAL .
      PERFORM ERR_HDL.
      GET PROPERTY OF H_ZL 'Font' = H_F.
      PERFORM ERR_HDL.
      SET PROPERTY OF H_F 'Bold' = BOLD .
      PERFORM ERR_HDL.
    ENDFORM.
    *&      Form  ERR_HDL
    *       outputs OLE error if any                                       *
    *  -->  p1        text
    *  <--  p2        text
    FORM ERR_HDL.
    IF SY-SUBRC <> 0.
      WRITE: / 'Fehler bei OLE-Automation:'(010), SY-SUBRC.
      STOP.
    ENDIF.
    ENDFORM.                    " ERR_HDL
    Cheers,
    Chandru

  • How can I find out WHEN a specific iPhone was reported stolen?

    I bought a storage unit at auction.  There was a brand new iphone 4S, among other items, in the locker.  Many had receipts with the owner's name so I know it wasn't a storage unit full of stolen merchandise.  I ran a check of the iphone through a website, imei.info, and it seemed to come up clean (Verizon locked).  The Ebay buyer backed out of the auction and now, days later, is claiming the phone is stolen.  I'm thinking the buyer for some unknown reason, is the one who reported it stolen, just recently, and is trying to scam me.  When I called Verizon, they confirmed that this phone was either lost or stolen but could not tell me when it was reported.
    DOES ANYONE KNOW HOW I CAN FIND OUT THE DATE THE PHONE WAS REPORTED STOLEN, AND POSSIBLY WHO REPORTED IT STOLEN?
    Many Thanks!!!
    Anthony

    Buyer fraud has become a problem on eBay.
    I ran a check of the iphone through a website, imei.info, and it seemed to come up clean (Verizon locked). 
    It probably would have been better to contact Verizon directly, but if you kept records of that research, use it to dispute the buyer's subsequent claim. Unfortunately, eBay buyers hold all the cards these days, and eBay's robots will simply order you to accept a return or face suspension of your account and seizure of your PayPal assets.
    To dispute a SNAD may require that you obtain a court order to subpoena Verizon's record of the theft, which will entail an expense that will almost certainly exceed absorbing the loss.
    Ebay is a buyer's paradise. For sellers, not so much.

  • Time Out error when running Service Confirmation List Report

    Hi All,
    I am using CRM 7.0 version and some users (not all) when try to run a report in Service Confirmation List Report in WebUI Client, TIME OUT error comes up.Some times the timeout happens when the data is being extracted, but most often the timeout is when I try to download to Excel.
    I checkedin ST22 and the problems seems to be in program CL_CRM_BOL_ABSTR_BO===========C in this method IF_BOL_BO_PROPERTY_ACCESS~GET_PROPERTY_AS_VALUE ... There is a restriction, that a dialog-process can run a maximum of 600 sec- after this, the process is stopped.
    Does anyone has the similar problem. I don´t know if increasing the  maximum time for the time out; should be a good solution OR run the report via Background. However I don´t know How to run it in Background.. Does anyone has any idea?
    Any information is much appreciated!
    Thanks!

    Parameer max/wp_eun_time is set to 1800 sec
    By increasing the above value to higher, you can get the result.
    But 1800 sec runtime for a transaction code is not a good one, check the time entities by tracing the execution(ST05) and tune if required.
    Regards,
    Nick Loy

  • Problem when editting a row in report

    Hello,
    I have a problem when I want to edit a row in a report.
    I have created a form with report, and now whe I click on the edit icon on the report page, it navigates me to the form page but wothout the row data, so it let me create a new row..
    What should I do??

    Hi,
    After editing the row go to session vales in the form page and see if the hidden primary key column has a value set ?
    Did you do any changes to the form or report after creating "From on a table with report" ?
    If you can recreate the issue in http://apex.oracle.com i can look into it.
    Edited by: Apex-Ape on Jun 17, 2012 7:10 AM

  • Problem in displaying 2nd secondary list

    Hi ABAP Gurus,
    Here i got an assignment to develope interactive report (basic list, 1st secondary, 2nd secondary list)
    according to my report i am able to get 1st secondary list perfectly but i am not able to get 2nd secondary list .pls solve my problem
    below is my code.
    *& Report  ZCRPT_MM_MRP
    REPORT  zcrpt_mm_mrp .
    *& Report       : ZRPT_MM_PR_HISTORY                               *
    Dev. Class   : ZCVS                                             *
    Program Name : ZRPT_MM_PR_HISTORY                               *
    Description  : PO History Details List                          *
    Author       : Sujit   Created on : 12.11.2007          *
    SAP Release  : SAP ERP Central Component 5.0                    *
    Tcode        : Req DKIK905199  N-160                            *
                  :     DKIK905248  N-160 For Deletion indicator     *
    S O U R C E   C O D E   C H A N G E   H I S T O R Y             *
    CODE     | AUTHOR     | DATE     |   Description                *
              |            |          |                              *
          TABLE  DECLARATIONS                                        *
    TABLES: ekko,ekpo,mara, makt,ekes,eban,mard,s994.
    Internal tables decleration
    TYPE-POOLS: slis.
    DATA: BEGIN OF it_vbrkvbrp OCCURS 0,
            vbeln TYPE vbrk-vbeln,
            fktyp TYPE vbrk-fktyp,
            matnr TYPE vbrp-matnr,
            fkimg TYPE vbrp-fkimg,
            fklmg TYPE vbrp-fklmg,
            vrkme TYPE vbrp-vrkme,
            meins TYPE vbrp-meins,
            shkzg TYPE vbrp-shkzg,
          END OF it_vbrkvbrp.
    DATA: BEGIN OF it_vbrk OCCURS 0,
            matnr TYPE vbrp-matnr,
            fkimg TYPE vbrp-fkimg,
            meins TYPE vbrp-meins,
          END OF it_vbrk.
    DATA: BEGIN OF it_ekko OCCURS 0,
            ebeln TYPE ekko-ebeln,
            bukrs TYPE ekko-bukrs,
            frggr TYPE ekko-frggr,
            frgsx TYPE ekko-frgsx,
            frgke TYPE ekko-frgke,
            frgzu TYPE ekko-frgzu,
          END OF it_ekko.
    DATA: BEGIN OF it_ekbe OCCURS 0,
          ebeln type ekbe-ebeln,
          ebelp type ekbe-ebelp,
          belnr type ekbe-belnr,
          buzei type ekbe-buzei,
          xblnr type ekbe-xblnr,
          END OF it_ekbe.
    DATA: BEGIN OF it_lips OCCURS 0,
          vbeln type lips-vbeln,
          posnr type lips-posnr,
          matnr type lips-matnr,
          vgbel type lips-vgbel,
          lfimg type lips-lfimg,
          meins type lips-meins,
          END OF it_lips.
    data : it1_lips like it_lips occurs 0 with header line.
    DATA: BEGIN OF itab OCCURS 1 ,
          banfn     LIKE eban-banfn,    " Purchase requisition number
          bnfpo     LIKE eban-bnfpo,    " PR Item Number
          werks     LIKE ekpo-werks,    " Plant
          matnr     LIKE ekpo-matnr,    " Material
          maktx     LIKE makt-maktx,    " Name of Material
          pr_menge  LIKE eban-menge,    " PR Quantity
          meins     LIKE ekpo-meins,    " Unit
          ebeln     LIKE ekpo-ebeln,    " PO No
          bsart     LIKE ekko-bsart,    " Purchasing Document Type
          ebelp     LIKE ekpo-ebelp,    " Item
          menge     LIKE ekpo-menge,    " PO Qty
          grn_menge LIKE ekpo-menge,    " GRN Qty
          trn_menge LIKE ekpo-menge,    " Transit Qty
          bal_menge LIKE ekpo-menge,    " Balance PO Qty
          labst     LIKE mard-labst,    " Valuated stock with unrestricted
          fkimg     LIKE vbrp-fkimg,    " Actual billed quantity
          minbe TYPE marc-minbe,
          mabst TYPE marc-mabst,
          fixkz TYPE eban-fixkz,
          zfixkz(7) TYPE c,
          matkl TYPE mara-matkl,
          mvgr1 TYPE mvke-mvgr1,
          bezei TYPE tvm1t-bezei,
          zconfirm1(3) TYPE c,
          zconfirm2(3) TYPE c,
          zconfirm3(3) TYPE c,
        END OF itab.
    DATA: BEGIN OF itab_sale OCCURS 1 ,
          matnr     LIKE ekpo-matnr,    " Material
          werks     LIKE ekpo-werks,    " Plant
          maktx     LIKE makt-maktx,    " Name of Material
          labst     LIKE mard-labst,    " Valuated stock with unrestricted
        END OF itab_sale.
    DATA : i_eban LIKE eban OCCURS 0 WITH HEADER LINE.
    DATA : del_menge LIKE ekes-menge,
           grn_dabmg LIKE ekes-dabmg.
    DATA: BEGIN OF it_marc OCCURS 0,
            matnr TYPE marc-matnr,
            werks TYPE marc-werks,
            minbe TYPE marc-minbe,
            mabst TYPE marc-mabst,
          END OF it_marc.
    DATA: BEGIN OF it_eban OCCURS 0,
            banfn TYPE eban-banfn,
            bnfpo TYPE eban-bnfpo,
            fixkz TYPE eban-fixkz,
            ebeln type eban-ebeln,
          END OF it_eban.
    DATA: BEGIN OF it_mara OCCURS 0,
            matnr TYPE mara-matnr,
            matkl TYPE mara-matkl,
          END OF it_mara.
    DATA: BEGIN OF it_mvke OCCURS 0,
            matnr TYPE mvke-matnr,
            mvgr1 TYPE mvke-mvgr1,
            mvgr2 TYPE mvke-mvgr2,
            mvgr3 TYPE mvke-mvgr3,
            mvgr4 TYPE mvke-mvgr4,
          END OF it_mvke.
    DATA: BEGIN OF it_tvm1t OCCURS 0,
            mvgr1 TYPE tvm1t-mvgr1,
            bezei TYPE tvm1t-bezei,
          END OF it_tvm1t.
    DATA:  fcat TYPE slis_t_fieldcat_alv,
           fcat1 TYPE slis_t_fieldcat_alv,
           fcat2 TYPE slis_t_fieldcat_alv,
           heading  TYPE slis_t_listheader,
           heading1  TYPE slis_t_listheader,
           heading2  TYPE slis_t_listheader,
           events   TYPE slis_t_event,
           events1   TYPE slis_t_event,
           events2   TYPE slis_t_event,
           repname  LIKE sy-repid.
    DATA: keyinfo  TYPE slis_keyinfo_alv.
    CONSTANTS: formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
    CONSTANTS: formname_top_of_page1 TYPE slis_formname VALUE 'TOP_OF_PAGE1'
    CONSTANTS: formname_top_of_page2 TYPE slis_formname VALUE 'TOP_OF_PAGE2'
    RANGES : s_erdat FOR vbrk-erdat.
    DATA: ss_date TYPE mkpf-budat.
    DATA: ss_period(3) TYPE n.
    Screen Selection
    SELECTION-SCREEN BEGIN OF BLOCK  s1 WITH FRAME TITLE text-001.
    *SELECT-OPTIONS : s_ebeln FOR ekpo-ebeln,
                    s_werks FOR ekpo-werks.
    SELECT-OPTIONS : s_banfn FOR eban-banfn,  "Purchase requisition number
                     s_badat FOR eban-badat,  "Requisition (request) date
                     s_matnr FOR eban-matnr,  "Material Number
                     s_werks FOR eban-werks,  "Plant
                     s_lgort FOR eban-lgort,  "Storage Location
                     s_matkl FOR eban-matkl,  "Material group
                     s_flief FOR eban-flief,  "Fixed Vendor
                     s_bsart FOR ekko-bsart NO INTERVALS.   " Purchasing
    SELECTION-SCREEN  END    OF BLOCK  s1 .
    SELECTION-SCREEN BEGIN OF BLOCK  s2 WITH FRAME TITLE text-002.
    PARAMETERS: s_period(3) TYPE n .
    SELECTION-SCREEN  END    OF BLOCK  s2 .
    initialization.
    repname = sy-repid.
      PERFORM build_eventtab  USING events[].
      PERFORM build_eventtab1  USING events1[].
      PERFORM build_eventtab2  USING events2[].
      PERFORM build_comment USING heading[].
      PERFORM build_comment1 USING heading1[].
      PERFORM build_comment2 USING heading2[].
    Strat-of-Selection
    START-OF-SELECTION.
      PERFORM getdata.
      PERFORM getfieldcatalog USING fcat[].
      PERFORM getfieldcatalog1 USING fcat1[].
      PERFORM getfieldcatalog2 USING fcat2[].
      PERFORM alvdisplaydata.
    END-OF-SELECTION.
    *&      Form  getdata
          text
    -->  p1        text
    <--  p2        text
    FORM getdata.
      SELECT * FROM eban INTO CORRESPONDING FIELDS OF TABLE i_eban
               WHERE banfn IN s_banfn      "Purchase requisition number
               AND   badat IN s_badat      "Requisition (request) date
               AND   matnr IN s_matnr      "Material Number
               AND   werks IN s_werks      "Plant
               AND   lgort IN s_lgort      "Storage Location
               AND   matkl IN s_matkl      "Material group
               AND   flief IN s_flief      "Fixed Vendor
               AND   loekz NE 'X'          "Deletion Pocument
               AND   afnam EQ 'MRP'.       "Name of requisitioner/requester
      IF NOT i_eban[] IS INITIAL.
        LOOP AT i_eban.
          CLEAR itab.
          itab-banfn     =  i_eban-banfn.
          itab-bnfpo     =  i_eban-bnfpo.
          itab-pr_menge  =  i_eban-menge.
          itab-meins     =  i_eban-meins.
          itab-ebeln     =  i_eban-ebeln.
          itab-ebelp     =  i_eban-ebelp.
          itab-matnr     =  i_eban-matnr.
          itab-werks     =  i_eban-werks.
    **----Get Material Description
          IF NOT i_eban-matnr IS INITIAL.
            SELECT SINGLE * FROM  makt
                            WHERE matnr EQ i_eban-matnr.
            IF sy-subrc EQ 0.
              itab-maktx = makt-maktx.
            ENDIF.
          ELSE.
            itab-maktx = i_eban-txz01.
          ENDIF.
    *----Get PO & GRN Quantity
          IF i_eban-ebeln GT 0 AND i_eban-ebelp GT 0.
            SELECT SINGLE * FROM ekpo
                            WHERE ebeln = i_eban-ebeln
                            AND   ebelp = i_eban-ebelp.
            IF sy-subrc EQ 0.
              itab-menge     = ekpo-menge.
            ENDIF.
            SELECT SINGLE * FROM ekko
                            WHERE ebeln = i_eban-ebeln.
            IF sy-subrc EQ 0.
              itab-bsart     = ekko-bsart.
            ENDIF.
    *-------Get GRN Quantity
            CLEAR : del_menge,grn_dabmg.
            IF  ekpo-bstae = '0004'.  " GRN Against InbondDelivery
              SELECT SUM( menge ) SUM( dabmg )
                      FROM ekes
                      INTO (del_menge,grn_dabmg)
                      WHERE ebeln =  i_eban-ebeln
                      AND   ebelp =  i_eban-ebelp
                      AND   ebtyp = 'LA'.
              IF sy-subrc EQ 0.
                itab-grn_menge = grn_dabmg.
                itab-trn_menge = del_menge - grn_dabmg.
              itab-bal_menge = ekpo-menge - del_menge.
                IF itab-bal_menge < 0.
                 itab-bal_menge = 0.
                ENDIF.
              ELSE.
               itab-bal_menge = itab-menge.
              ENDIF.
            ELSE.          " Regular GRN
              SELECT SUM( menge )
                      FROM ekbe
                      INTO (grn_dabmg)
                      WHERE ebeln =  i_eban-ebeln
                      AND   ebelp =  i_eban-ebelp
                      AND   bewtp = 'E'
                      AND   bwart = '101'.
              IF sy-subrc EQ 0.
                itab-grn_menge = grn_dabmg.
              itab-trn_menge = del_menge - grn_dabmg.
              ENDIF.
    For Cancelled GRN
              SELECT SUM( menge )
                      FROM ekbe
                      INTO (grn_dabmg)
                      WHERE ebeln =  i_eban-ebeln
                      AND   ebelp =  i_eban-ebelp
                      AND   bewtp = 'E'
                      AND   bwart = '102'.
              IF sy-subrc EQ 0.
                itab-grn_menge = itab-grn_menge - grn_dabmg.
              itab-trn_menge = del_menge - grn_dabmg.
              ENDIF.
              IF itab-bsart = 'UB'.
                CLEAR : grn_dabmg,grn_dabmg.
                SELECT SUM( menge )
                        FROM ekbe
                        INTO (grn_dabmg)
                        WHERE ebeln =  i_eban-ebeln
                        AND   ebelp =  i_eban-ebelp
                        AND   bewtp = 'U'
                        AND   bwart = '641'.
                IF sy-subrc EQ 0.
                  itab-trn_menge  = grn_dabmg.
                ENDIF.
    For Reversal of Issue Document
                SELECT SUM( menge )
                        FROM ekbe
                        INTO (grn_dabmg)
                        WHERE ebeln =  i_eban-ebeln
                        AND   ebelp =  i_eban-ebelp
                        AND   bewtp = 'U'
                        AND   bwart = '642'.
                IF sy-subrc EQ 0.
                  itab-trn_menge  = itab-trn_menge  - grn_dabmg.
                ENDIF.
                IF itab-grn_menge <> 0.
                  itab-trn_menge = 0.
                ENDIF.
              ENDIF.
    End
            ENDIF.
    *-------End
          ENDIF.
          itab-bal_menge = itab-menge - ( itab-grn_menge + itab-trn_menge ).
          CALL FUNCTION 'CONVERSION_EXIT_CCMAT_OUTPUT'
            EXPORTING
              input  = itab-matnr
            IMPORTING
              output = itab-matnr.
          itab_sale-matnr = itab-matnr.
          itab_sale-werks = itab-werks.
          itab_sale-maktx = itab-maktx.
          COLLECT itab_sale.
          APPEND itab.
        ENDLOOP.
      ENDIF.
      IF NOT s_bsart[] IS INITIAL.
        DELETE itab WHERE bsart NOT IN s_bsart.
      ENDIF.
      IF NOT itab_sale IS INITIAL.
        LOOP AT itab_sale.
    *-----Get Sales Quantity
          CALL FUNCTION 'CONVERSION_EXIT_CCMAT_INPUT'
            EXPORTING
              input  = itab_sale-matnr
            IMPORTING
              output = itab_sale-matnr.
    *-----Change as on 08.12.2007
          SELECT SUM( clabs ) INTO  itab_sale-labst
                              FROM  mchb
                              WHERE matnr = itab_sale-matnr
                              AND   werks = itab_sale-werks.
    *-----End
          MODIFY itab_sale TRANSPORTING labst matnr.
        ENDLOOP.
        LOOP AT itab.
          READ TABLE itab_sale WITH KEY matnr = itab-matnr
                               werks = itab-werks.
          IF sy-subrc = 0.
            CALL FUNCTION 'CONVERSION_EXIT_CCMAT_OUTPUT'
              EXPORTING
                input  = itab_sale-matnr
              IMPORTING
                output = itab_sale-matnr.
            MOVE itab_sale-labst TO itab-labst.
          ENDIF.
          MODIFY itab TRANSPORTING labst.
          CLEAR itab.
        ENDLOOP.
      ENDIF.
      CHECK itab[] IS NOT INITIAL.
      SELECT * FROM marc CLIENT SPECIFIED
                              INTO CORRESPONDING FIELDS OF TABLE it_marc
                              FOR ALL ENTRIES IN itab
                              WHERE mandt = sy-mandt
                              AND matnr EQ itab-matnr
                              AND werks EQ itab-werks.
      SELECT * FROM eban CLIENT SPECIFIED
                             INTO CORRESPONDING FIELDS OF TABLE it_eban
                             FOR ALL ENTRIES IN itab
                             WHERE mandt = sy-mandt
                             AND banfn EQ itab-banfn
                             AND bnfpo EQ itab-bnfpo.
      SELECT * FROM mara CLIENT SPECIFIED
                            INTO CORRESPONDING FIELDS OF TABLE it_mara
                            FOR ALL ENTRIES IN itab
                            WHERE mandt = sy-mandt
                            AND matnr EQ itab-matnr.
      SELECT * FROM mvke CLIENT SPECIFIED
                           INTO CORRESPONDING FIELDS OF TABLE it_mvke
                           FOR ALL ENTRIES IN itab
                           WHERE mandt = sy-mandt
                           AND matnr EQ itab-matnr.
      IF sy-subrc = 0.
        SELECT * FROM tvm1t CLIENT SPECIFIED
                       INTO CORRESPONDING FIELDS OF TABLE it_tvm1t
                       FOR ALL ENTRIES IN it_mvke
                       WHERE mandt = sy-mandt
                       AND mvgr1 EQ it_mvke-mvgr1.
      ENDIF.
      IF s_period IS NOT INITIAL.
        ss_period = s_period.
        ss_period = ss_period + 1.
        s_erdat-sign = 'I'.
        s_erdat-option = 'BT'.
        s_erdat-high = sy-datum.
        ss_date = sy-datum - ss_period.
        s_erdat-low = ss_date.
        APPEND s_erdat.
        CLEAR s_erdat.
        SELECT * FROM zcvi_vbrk_vbrp CLIENT SPECIFIED
                             INTO CORRESPONDING FIELDS OF TABLE it_vbrkvbrp
                                     FOR ALL ENTRIES IN itab
                                     WHERE mandt = sy-mandt
                                     AND matnr = itab-matnr
                                     AND   fkart IN ('Z3PS','ZVIT',
                                           'ZVDT','ZFRV',
                                           'ZDRV','ZCMR')
                                     AND fkdat IN s_erdat
                                     AND fksto EQ space
                                     AND sfakn EQ space
                                     AND rfbsk NE 'E'
                                     AND fkimg NE 0.
        LOOP AT it_vbrkvbrp.
          IF it_vbrkvbrp-fktyp NE 'L'.
            DELETE it_vbrkvbrp.
            CONTINUE.
          ENDIF.
          IF it_vbrkvbrp-vrkme NE it_vbrkvbrp-meins.
            it_vbrkvbrp-fkimg = it_vbrkvbrp-fklmg.
            it_vbrkvbrp-meins = it_vbrkvbrp-vrkme.
          ENDIF.
          IF it_vbrkvbrp-shkzg = 'X'.
            it_vbrkvbrp-fkimg = it_vbrkvbrp-fkimg * -1.
          ENDIF.
          it_vbrk-matnr = it_vbrkvbrp-matnr.
          it_vbrk-fkimg = it_vbrkvbrp-fkimg.
          it_vbrk-meins = it_vbrkvbrp-meins.
          IF it_vbrk[] IS INITIAL.
            APPEND it_vbrk.
            CLEAR it_vbrk.
          ELSE.
            COLLECT it_vbrk.
            CLEAR it_vbrk.
          ENDIF.
        ENDLOOP.
      ENDIF.
      SORT it_vbrkvbrp BY matnr.
      SELECT * FROM ekko CLIENT SPECIFIED
                                 INTO CORRESPONDING FIELDS OF TABLE it_ekko
                                  FOR ALL ENTRIES IN itab
                                  WHERE mandt = sy-mandt
                                  AND ebeln = itab-ebeln.
      SORT it_ekko BY ebeln.
      LOOP AT itab.
        READ TABLE it_ekko BINARY SEARCH WITH KEY
                                                ebeln = itab-ebeln.
        IF sy-subrc = 0.
          IF it_ekko-frgke = 'R'.
            itab-zconfirm1 = 'YES'.
            itab-zconfirm2 = 'YES'.
            itab-zconfirm3 = 'YES'.
          ELSEIF it_ekko-frgzu = 'X'.
            itab-zconfirm1 = 'YES'.
          ELSEIF it_ekko-frgzu = 'XX'.
            itab-zconfirm1 = 'YES'.
            itab-zconfirm2 = 'YES'.
          ENDIF.
        ENDIF.
        IF s_period IS NOT INITIAL.
          READ TABLE it_vbrk BINARY SEARCH
                                           WITH KEY matnr = itab-matnr.
          IF sy-subrc = 0.
            itab-fkimg = it_vbrk-fkimg.
          ENDIF.
        ENDIF.
        READ TABLE it_marc WITH KEY matnr = itab-matnr
                                    werks = itab-werks.
        IF sy-subrc = 0.
          MOVE it_marc-minbe TO itab-minbe.
          MOVE it_marc-mabst TO itab-mabst.
        ENDIF.
        READ TABLE it_eban WITH KEY banfn = itab-banfn
                                    bnfpo = itab-bnfpo.
        IF sy-subrc = 0.
          IF it_eban-fixkz EQ 'X'.
            itab-zfixkz = 'Firmed'.
          ENDIF.
        ENDIF.
        READ TABLE it_mara WITH KEY matnr = itab-matnr.
        IF sy-subrc = 0.
          MOVE it_mara-matkl TO itab-matkl.
        ENDIF.
        READ TABLE it_mvke WITH KEY matnr = itab-matnr.
        IF sy-subrc = 0.
          MOVE it_mvke-mvgr1 TO itab-mvgr1.
          READ TABLE it_tvm1t WITH KEY mvgr1 = itab-mvgr1.
          IF sy-subrc = 0.
            MOVE it_tvm1t-bezei TO itab-bezei.
          ENDIF.
        ENDIF.
        MODIFY itab.
        CLEAR itab.
      ENDLOOP.
    ENDFORM.                    " getdata
    *&      Form  build_eventtab
          text
         -->P_EVENTS[]  text
    FORM build_eventtab  USING   p_events TYPE slis_t_event.
      DATA: ls_event TYPE slis_alv_event.
      CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
        EXPORTING
          i_list_type = 0
        IMPORTING
          et_events   = p_events.
      READ TABLE p_events WITH KEY name = slis_ev_top_of_page
                               INTO ls_event.
      IF sy-subrc = 0.
        MOVE formname_top_of_page TO ls_event-form.
        APPEND ls_event TO p_events.
      ENDIF.
    ENDFORM.                    " build_eventtab
    *&      Form  build_comment
          text
         -->P_HEADING[]  text
    FORM build_comment  USING    p_heading TYPE slis_t_listheader.
      DATA: hline TYPE slis_listheader.
      CLEAR: hline.
      hline-info = 'Purchase Requision History'.
      hline-typ  = 'H'.
      APPEND hline TO p_heading.
      CLEAR hline.
    ENDFORM.                    " build_comment
    *&      Form  getfieldcatalog
          text
    -->  p1        text
    <--  p2        text
    FORM getfieldcatalog USING  p_fcat TYPE slis_t_fieldcat_alv.
      DATA : w_fcat TYPE slis_fieldcat_alv.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'BANFN'.
      w_fcat-seltext_l    = 'PR No '.
      w_fcat-key          = 'X'.
      w_fcat-col_pos      = 1.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'BNFPO'.
      w_fcat-seltext_l    = 'PR Item '.
      w_fcat-key          = 'X'.
      w_fcat-col_pos      = 2.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'MATNR'.
      w_fcat-seltext_l    = 'Material '.
      w_fcat-col_pos      = 3.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'MAKTX'.
      w_fcat-seltext_l    = 'Name of the Mateiral '.
      w_fcat-col_pos      = 4.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'WERKS'.
      w_fcat-seltext_l    = 'Plant '.
      w_fcat-col_pos      = 5.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'EBELN'.
      w_fcat-seltext_l    = 'PO No '.
      w_fcat-hotspot        = 'X'.
      w_fcat-col_pos      = 6.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'EBELP'.
      w_fcat-seltext_l    = 'PO Item '.
      w_fcat-col_pos      = 7.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'PR_MENGE'.
      w_fcat-seltext_l    = 'PR Qty '.
      w_fcat-col_pos      = 8.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'MEINS'.
      w_fcat-seltext_l    = 'Unit'.
      w_fcat-col_pos      = 9.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'MENGE'.
      w_fcat-seltext_l    = 'PO Quantity '.
      w_fcat-col_pos      = 10.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'GRN_MENGE'.
      w_fcat-seltext_l    = 'GRN Qty '.
      w_fcat-col_pos      = 11.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'TRN_MENGE'.
      w_fcat-seltext_l    = 'Transit Qty '.
      w_fcat-col_pos      = 12.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'BAL_MENGE'.
      w_fcat-seltext_l    = 'Balance PO Qty '.
      w_fcat-col_pos      = 13.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'LABST'.
      w_fcat-seltext_l    = 'Current Stock'.
      w_fcat-col_pos      = 14.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'FKIMG'.
      w_fcat-seltext_l    = 'Sales Qty '.
      w_fcat-col_pos      = 15.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'MINBE'.
      w_fcat-seltext_l    = 'Reorder Point'.
      w_fcat-col_pos      = 16.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'MABST'.
      w_fcat-seltext_l    = 'Maximum stock level'.
      w_fcat-col_pos      = 17.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'ZFIXKZ'.
      w_fcat-seltext_l    = 'Fixed Indicator'.
      w_fcat-col_pos      = 18.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'MATKL'.
      w_fcat-seltext_l    = 'Design'.
      w_fcat-col_pos      = 19.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'MVGR1'.
      w_fcat-seltext_l    = 'Size'.
      w_fcat-col_pos      = 20.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'BEZEI'.
      w_fcat-seltext_l    = 'Size Desc.'.
      w_fcat-col_pos      = 21.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'FKIMG'.
      w_fcat-seltext_l    = 'Sales Qty '.
      w_fcat-col_pos      = 22.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'ZCONFIRM1'.
      w_fcat-seltext_l    = 'Release1'.
      w_fcat-col_pos      = 23.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'ZCONFIRM2'.
      w_fcat-seltext_l    = 'Release2'.
      w_fcat-col_pos      = 24.
      APPEND w_fcat TO fcat.
      CLEAR w_fcat.
      w_fcat-tabname      = 'ITAB'.
      w_fcat-fieldname    = 'ZCONFIRM3'.
      w_fcat-seltext_l    = 'Release3'.
      w_fcat-col_pos      = 25.
      APPEND w_fcat TO fcat.
    ENDFORM.                    " getfieldcatalog
    *&      Form  alvdisplaydata
          text
    -->  p1        text
    <--  p2        text
    FORM alvdisplaydata .
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
          i_callback_program      = repname
          i_callback_user_command = 'USER_COMMAND'
          it_fieldcat             = fcat
          it_events               = events[]
        TABLES
          t_outtab                = itab.
      IF sy-subrc <> 0.
        WRITE: 'SY-SUBRC: ', sy-subrc, 'REUSE_ALV_LIST_DISPLAY'.
      ENDIF.
    ENDFORM.                    " alvdisplaydata
          FORM TOP_OF_PAGE                                              *
    FORM top_of_page.
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
        EXPORTING
          it_list_commentary = heading.
    ENDFORM.                    "TOP_OF_PAGE
    *&      Form  build_eventtab1
          text
         -->P_EVENTS[]  text
    FORM build_eventtab1  USING   p_events1 TYPE slis_t_event.
      DATA: ls_event1 TYPE slis_alv_event.
      CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
        EXPORTING
          i_list_type = 0
        IMPORTING
          et_events   = p_events1.
      READ TABLE p_events1 WITH KEY name = slis_ev_top_of_page
                               INTO ls_event1.
      IF sy-subrc = 0.
        MOVE formname_top_of_page1 TO ls_event1-form.
        APPEND ls_event1 TO p_events1.
      ENDIF.
    endform.
    *&      Form  build_comment
          text
         -->P_HEADING[]  text
    FORM build_comment1  USING    p_heading1 TYPE slis_t_listheader.
      DATA: hline1 TYPE slis_listheader.
      hline1-info = '1 Secondary List'.
      hline1-typ  = 'H'.
      APPEND hline1 TO p_heading1.
      CLEAR hline1.
    ENDFORM.                    " build_comment
    *&      Form  getfieldcatalog1
          text
         -->P_FCAT1[]  text
    form getfieldcatalog1  using    p_fcat1 TYPE slis_t_fieldcat_alv.
    DATA : w_fcat1 TYPE slis_fieldcat_alv.
      CLEAR w_fcat1.
      w_fcat1-tabname      = 'IT_LIPS'.
      w_fcat1-fieldname    = 'VBELN'.
      w_fcat1-seltext_l    = 'Pr.No'.
      w_fcat1-hotspot   = 'X'.
      w_fcat1-col_pos      = 1.
      APPEND w_fcat1 to fcat1.
      CLEAR w_fcat1.
      w_fcat1-tabname      = 'IT_LIPS'.
      w_fcat1-fieldname    = 'POSNR'.
      w_fcat1-seltext_l    = 'PR Item'.
      w_fcat1-col_pos      = 2.
      APPEND w_fcat1 to fcat1.
      CLEAR w_fcat1.
      w_fcat1-tabname      = 'IT_LIPS'.
      w_fcat1-fieldname    = 'MATNR'.
      w_fcat1-seltext_l    = 'Material'.
      w_fcat1-col_pos      = 3.
      APPEND w_fcat1 to fcat1.
      CLEAR w_fcat1.
      w_fcat1-tabname      = 'IT_LIPS'.
      w_fcat1-fieldname    = 'LFIMG'.
      w_fcat1-seltext_l    = 'Actual quantity delivered'.
      w_fcat1-col_pos      = 4.
      APPEND w_fcat1 to fcat1.
      CLEAR w_fcat1.
      w_fcat1-tabname      = 'IT_LIPS'.
      w_fcat1-fieldname    = 'MEINS'.
      w_fcat1-seltext_l    = 'Base Unit of Measure'.
      w_fcat1-col_pos      = 5.
      APPEND w_fcat1 to fcat1.
    endform.                    " getfieldcatalog1
    *&      Form  USER_COMMAND
          text
         -->R_UCOMM      text
         -->RS_SELFIELD  text
    FORM user_command  USING r_ucomm LIKE sy-ucomm
          rs_selfield TYPE slis_selfield.
    READ TABLE itab INDEX rs_selfield-tabindex.
      IF sy-subrc EQ 0.
      select vbeln
             posnr
             matnr
             vgbel
             lfimg
             meins from lips into table it_lips
             where vgbel = itab-ebeln.
      ENDIF.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
          i_callback_program      = repname
          i_callback_user_command = 'USER_COMMAND'
          it_fieldcat             = fcat1
          it_events               = events1[]
        TABLES
          t_outtab                = it_lips.
      IF sy-subrc <> 0.
        WRITE: 'SY-SUBRC: ', sy-subrc, 'REUSE_ALV_LIST_DISPLAY'.
      ENDIF.
    ENDFORM.                    "USER_COMMAND
          FORM TOP_OF_PAGE1                                              *
    FORM top_of_page1.
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
        EXPORTING
          it_list_commentary = heading1.
    ENDFORM.                    "TOP_OF_PAGE1
    *&      Form  build_eventtab1
          text
         -->P_EVENTS[]  text
    FORM build_eventtab2  USING   p_events2 TYPE slis_t_event.
      DATA: ls_event2 TYPE slis_alv_event.
      CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
        EXPORTING
          i_list_type = 0
        IMPORTING
          et_events   = p_events2.
      READ TABLE p_events2 WITH KEY name = slis_ev_top_of_page
                               INTO ls_event2.
      IF sy-subrc = 0.
        MOVE formname_top_of_page2 TO ls_event2-form.
        APPEND ls_event2 TO p_events2.
      ENDIF.
    endform.
    *&      Form  build_comment
          text
         -->P_HEADING[]  text
    FORM build_comment2  USING    p_heading2 TYPE slis_t_listheader.
      DATA: hline2 TYPE slis_listheader.
      hline2-info = '2 Secondary List'.
      hline2-typ  = 'H'.
      APPEND hline2 TO p_heading2.
      CLEAR hline2.
    ENDFORM.                    " build_comment
    *&      Form  getfieldcatalog1
          text
         -->P_FCAT1[]  text
    form getfieldcatalog2  using    p_fcat2 TYPE slis_t_fieldcat_alv.
    DATA : w_fcat2 TYPE slis_fieldcat_alv.
      CLEAR w_fcat2.
      w_fcat2-tabname      = 'IT_EKBE'.
      w_fcat2-fieldname    = 'EBELN'.
      w_fcat2-seltext_l    = 'Pr.Doc No'.
      w_fcat2-col_pos      = 1.
      APPEND w_fcat2 to fcat2.
      CLEAR w_fcat2.
      w_fcat2-tabname      = 'IT_EKBE'.
      w_fcat2-fieldname    = 'EBELP'.
      w_fcat2-seltext_l    = 'PR Doc Item'.
      w_fcat2-col_pos      = 2.
      APPEND w_fcat2 to fcat2.
      CLEAR w_fcat2.
      w_fcat2-tabname      = 'IT_EKBE'.
      w_fcat2-fieldname    = 'BELNR'.
      w_fcat2-seltext_l    = 'No.Mat Doc'.
      w_fcat2-col_pos      = 3.
      APPEND w_fcat2 to fcat2.
      CLEAR w_fcat2.
      w_fcat2-tabname      = 'IT_EKBE'.
      w_fcat2-fieldname    = 'BUZEI'.
      w_fcat2-seltext_l    = 'Item in Mat Doc'.

    Hi,
    You did mistakes hear.
    check for >>>>
    *& Report ZCRPT_MM_MRP
    REPORT zcrpt_mm_mrp .
    *& Report : ZRPT_MM_PR_HISTORY *
    Dev. Class : ZCVS *
    Program Name : ZRPT_MM_PR_HISTORY *
    Description : PO History Details List *
    Author : Sujit Created on : 12.11.2007 *
    SAP Release : SAP ERP Central Component 5.0 *
    Tcode : Req DKIK905199 N-160 *
    : DKIK905248 N-160 For Deletion indicator *
    S O U R C E C O D E C H A N G E H I S T O R Y *
    CODE | AUTHOR | DATE | Description *
    | | | *
    TABLE DECLARATIONS *
    TABLES: ekko,ekpo,mara, makt,ekes,eban,mard,s994.
    Internal tables decleration
    TYPE-POOLS: slis.
    DATA: BEGIN OF it_vbrkvbrp OCCURS 0,
    vbeln TYPE vbrk-vbeln,
    fktyp TYPE vbrk-fktyp,
    matnr TYPE vbrp-matnr,
    fkimg TYPE vbrp-fkimg,
    fklmg TYPE vbrp-fklmg,
    vrkme TYPE vbrp-vrkme,
    meins TYPE vbrp-meins,
    shkzg TYPE vbrp-shkzg,
    END OF it_vbrkvbrp.
    DATA: BEGIN OF it_vbrk OCCURS 0,
    matnr TYPE vbrp-matnr,
    fkimg TYPE vbrp-fkimg,
    meins TYPE vbrp-meins,
    END OF it_vbrk.
    DATA: BEGIN OF it_ekko OCCURS 0,
    ebeln TYPE ekko-ebeln,
    bukrs TYPE ekko-bukrs,
    frggr TYPE ekko-frggr,
    frgsx TYPE ekko-frgsx,
    frgke TYPE ekko-frgke,
    frgzu TYPE ekko-frgzu,
    END OF it_ekko.
    DATA: BEGIN OF it_ekbe OCCURS 0,
    ebeln type ekbe-ebeln,
    ebelp type ekbe-ebelp,
    belnr type ekbe-belnr,
    buzei type ekbe-buzei,
    xblnr type ekbe-xblnr,
    END OF it_ekbe.
    DATA: BEGIN OF it_lips OCCURS 0,
    vbeln type lips-vbeln,
    posnr type lips-posnr,
    matnr type lips-matnr,
    vgbel type lips-vgbel,
    lfimg type lips-lfimg,
    meins type lips-meins,
    END OF it_lips.
    data : it1_lips like it_lips occurs 0 with header line.
    DATA: BEGIN OF itab OCCURS 1 ,
    banfn LIKE eban-banfn, " Purchase requisition number
    bnfpo LIKE eban-bnfpo, " PR Item Number
    werks LIKE ekpo-werks, " Plant
    matnr LIKE ekpo-matnr, " Material
    maktx LIKE makt-maktx, " Name of Material
    pr_menge LIKE eban-menge, " PR Quantity
    meins LIKE ekpo-meins, " Unit
    ebeln LIKE ekpo-ebeln, " PO No
    bsart LIKE ekko-bsart, " Purchasing Document Type
    ebelp LIKE ekpo-ebelp, " Item
    menge LIKE ekpo-menge, " PO Qty
    grn_menge LIKE ekpo-menge, " GRN Qty
    trn_menge LIKE ekpo-menge, " Transit Qty
    bal_menge LIKE ekpo-menge, " Balance PO Qty
    labst LIKE mard-labst, " Valuated stock with unrestricted
    fkimg LIKE vbrp-fkimg, " Actual billed quantity
    minbe TYPE marc-minbe,
    mabst TYPE marc-mabst,
    fixkz TYPE eban-fixkz,
    zfixkz(7) TYPE c,
    matkl TYPE mara-matkl,
    mvgr1 TYPE mvke-mvgr1,
    bezei TYPE tvm1t-bezei,
    zconfirm1(3) TYPE c,
    zconfirm2(3) TYPE c,
    zconfirm3(3) TYPE c,
    END OF itab.
    DATA: BEGIN OF itab_sale OCCURS 1 ,
    matnr LIKE ekpo-matnr, " Material
    werks LIKE ekpo-werks, " Plant
    maktx LIKE makt-maktx, " Name of Material
    labst LIKE mard-labst, " Valuated stock with unrestricted
    END OF itab_sale.
    DATA : i_eban LIKE eban OCCURS 0 WITH HEADER LINE.
    DATA : del_menge LIKE ekes-menge,
    grn_dabmg LIKE ekes-dabmg.
    DATA: BEGIN OF it_marc OCCURS 0,
    matnr TYPE marc-matnr,
    werks TYPE marc-werks,
    minbe TYPE marc-minbe,
    mabst TYPE marc-mabst,
    END OF it_marc.
    DATA: BEGIN OF it_eban OCCURS 0,
    banfn TYPE eban-banfn,
    bnfpo TYPE eban-bnfpo,
    fixkz TYPE eban-fixkz,
    ebeln type eban-ebeln,
    END OF it_eban.
    DATA: BEGIN OF it_mara OCCURS 0,
    matnr TYPE mara-matnr,
    matkl TYPE mara-matkl,
    END OF it_mara.
    DATA: BEGIN OF it_mvke OCCURS 0,
    matnr TYPE mvke-matnr,
    mvgr1 TYPE mvke-mvgr1,
    mvgr2 TYPE mvke-mvgr2,
    mvgr3 TYPE mvke-mvgr3,
    mvgr4 TYPE mvke-mvgr4,
    END OF it_mvke.
    DATA: BEGIN OF it_tvm1t OCCURS 0,
    mvgr1 TYPE tvm1t-mvgr1,
    bezei TYPE tvm1t-bezei,
    END OF it_tvm1t.
    DATA: fcat TYPE slis_t_fieldcat_alv,
    fcat1 TYPE slis_t_fieldcat_alv,
    fcat2 TYPE slis_t_fieldcat_alv,
    heading TYPE slis_t_listheader,
    heading1 TYPE slis_t_listheader,
    heading2 TYPE slis_t_listheader,
    events TYPE slis_t_event,
    events1 TYPE slis_t_event,
    events2 TYPE slis_t_event,
    repname LIKE sy-repid.
    DATA: keyinfo TYPE slis_keyinfo_alv.
    CONSTANTS: formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
    CONSTANTS: formname_top_of_page1 TYPE slis_formname VALUE 'TOP_OF_PAGE1'
    CONSTANTS: formname_top_of_page2 TYPE slis_formname VALUE 'TOP_OF_PAGE2'
    RANGES : s_erdat FOR vbrk-erdat.
    DATA: ss_date TYPE mkpf-budat.
    DATA: ss_period(3) TYPE n.
    Screen Selection
    SELECTION-SCREEN BEGIN OF BLOCK s1 WITH FRAME TITLE text-001.
    *SELECT-OPTIONS : s_ebeln FOR ekpo-ebeln,
    s_werks FOR ekpo-werks.
    SELECT-OPTIONS : s_banfn FOR eban-banfn, "Purchase requisition number
    s_badat FOR eban-badat, "Requisition (request) date
    s_matnr FOR eban-matnr, "Material Number
    s_werks FOR eban-werks, "Plant
    s_lgort FOR eban-lgort, "Storage Location
    s_matkl FOR eban-matkl, "Material group
    s_flief FOR eban-flief, "Fixed Vendor
    s_bsart FOR ekko-bsart NO INTERVALS. " Purchasing
    SELECTION-SCREEN END OF BLOCK s1 .
    SELECTION-SCREEN BEGIN OF BLOCK s2 WITH FRAME TITLE text-002.
    PARAMETERS: s_period(3) TYPE n .
    SELECTION-SCREEN END OF BLOCK s2 .
    initialization.
    repname = sy-repid.
    PERFORM build_eventtab USING events[].
    PERFORM build_eventtab1 USING events1[].
    PERFORM build_eventtab2 USING events2[].
    PERFORM build_comment USING heading[].
    PERFORM build_comment1 USING heading1[].
    PERFORM build_comment2 USING heading2[].
    Strat-of-Selection
    START-OF-SELECTION.
    PERFORM getdata.
    PERFORM getfieldcatalog USING fcat[].
    PERFORM getfieldcatalog1 USING fcat1[].
    PERFORM getfieldcatalog2 USING fcat2[].
    PERFORM alvdisplaydata.
    END-OF-SELECTION.
    *& Form getdata
    text
    --> p1 text
    <-- p2 text
    FORM getdata.
    SELECT * FROM eban INTO CORRESPONDING FIELDS OF TABLE i_eban
    WHERE banfn IN s_banfn "Purchase requisition number
    AND badat IN s_badat "Requisition (request) date
    AND matnr IN s_matnr "Material Number
    AND werks IN s_werks "Plant
    AND lgort IN s_lgort "Storage Location
    AND matkl IN s_matkl "Material group
    AND flief IN s_flief "Fixed Vendor
    AND loekz NE 'X' "Deletion Pocument
    AND afnam EQ 'MRP'. "Name of requisitioner/requester
    IF NOT i_eban[] IS INITIAL.
    LOOP AT i_eban.
    CLEAR itab.
    itab-banfn = i_eban-banfn.
    itab-bnfpo = i_eban-bnfpo.
    itab-pr_menge = i_eban-menge.
    itab-meins = i_eban-meins.
    itab-ebeln = i_eban-ebeln.
    itab-ebelp = i_eban-ebelp.
    itab-matnr = i_eban-matnr.
    itab-werks = i_eban-werks.
    **----Get Material Description
    IF NOT i_eban-matnr IS INITIAL.
    SELECT SINGLE * FROM makt
    WHERE matnr EQ i_eban-matnr.
    IF sy-subrc EQ 0.
    itab-maktx = makt-maktx.
    ENDIF.
    ELSE.
    itab-maktx = i_eban-txz01.
    ENDIF.
    *----Get PO & GRN Quantity
    IF i_eban-ebeln GT 0 AND i_eban-ebelp GT 0.
    SELECT SINGLE * FROM ekpo
    WHERE ebeln = i_eban-ebeln
    AND ebelp = i_eban-ebelp.
    IF sy-subrc EQ 0.
    itab-menge = ekpo-menge.
    ENDIF.
    SELECT SINGLE * FROM ekko
    WHERE ebeln = i_eban-ebeln.
    IF sy-subrc EQ 0.
    itab-bsart = ekko-bsart.
    ENDIF.
    *-------Get GRN Quantity
    CLEAR : del_menge,grn_dabmg.
    IF ekpo-bstae = '0004'. " GRN Against InbondDelivery
    SELECT SUM( menge ) SUM( dabmg )
    FROM ekes
    INTO (del_menge,grn_dabmg)
    WHERE ebeln = i_eban-ebeln
    AND ebelp = i_eban-ebelp
    AND ebtyp = 'LA'.
    IF sy-subrc EQ 0.
    itab-grn_menge = grn_dabmg.
    itab-trn_menge = del_menge - grn_dabmg.
    itab-bal_menge = ekpo-menge - del_menge.
    IF itab-bal_menge < 0.
    itab-bal_menge = 0.
    ENDIF.
    ELSE.
    itab-bal_menge = itab-menge.
    ENDIF.
    ELSE. " Regular GRN
    SELECT SUM( menge )
    FROM ekbe
    INTO (grn_dabmg)
    WHERE ebeln = i_eban-ebeln
    AND ebelp = i_eban-ebelp
    AND bewtp = 'E'
    AND bwart = '101'.
    IF sy-subrc EQ 0.
    itab-grn_menge = grn_dabmg.
    itab-trn_menge = del_menge - grn_dabmg.
    ENDIF.
    For Cancelled GRN
    SELECT SUM( menge )
    FROM ekbe
    INTO (grn_dabmg)
    WHERE ebeln = i_eban-ebeln
    AND ebelp = i_eban-ebelp
    AND bewtp = 'E'
    AND bwart = '102'.
    IF sy-subrc EQ 0.
    itab-grn_menge = itab-grn_menge - grn_dabmg.
    itab-trn_menge = del_menge - grn_dabmg.
    ENDIF.
    IF itab-bsart = 'UB'.
    CLEAR : grn_dabmg,grn_dabmg.
    SELECT SUM( menge )
    FROM ekbe
    INTO (grn_dabmg)
    WHERE ebeln = i_eban-ebeln
    AND ebelp = i_eban-ebelp
    AND bewtp = 'U'
    AND bwart = '641'.
    IF sy-subrc EQ 0.
    itab-trn_menge = grn_dabmg.
    ENDIF.
    For Reversal of Issue Document
    SELECT SUM( menge )
    FROM ekbe
    INTO (grn_dabmg)
    WHERE ebeln = i_eban-ebeln
    AND ebelp = i_eban-ebelp
    AND bewtp = 'U'
    AND bwart = '642'.
    IF sy-subrc EQ 0.
    itab-trn_menge = itab-trn_menge - grn_dabmg.
    ENDIF.
    IF itab-grn_menge <> 0.
    itab-trn_menge = 0.
    ENDIF.
    ENDIF.
    End
    ENDIF.
    *-------End
    ENDIF.
    itab-bal_menge = itab-menge - ( itab-grn_menge + itab-trn_menge ).
    CALL FUNCTION 'CONVERSION_EXIT_CCMAT_OUTPUT'
    EXPORTING
    input = itab-matnr
    IMPORTING
    output = itab-matnr.
    itab_sale-matnr = itab-matnr.
    itab_sale-werks = itab-werks.
    itab_sale-maktx = itab-maktx.
    COLLECT itab_sale.
    APPEND itab.
    ENDLOOP.
    ENDIF.
    IF NOT s_bsart[] IS INITIAL.
    DELETE itab WHERE bsart NOT IN s_bsart.
    ENDIF.
    IF NOT itab_sale IS INITIAL.
    LOOP AT itab_sale.
    *-----Get Sales Quantity
    CALL FUNCTION 'CONVERSION_EXIT_CCMAT_INPUT'
    EXPORTING
    input = itab_sale-matnr
    IMPORTING
    output = itab_sale-matnr.
    *-----Change as on 08.12.2007
    SELECT SUM( clabs ) INTO itab_sale-labst
    FROM mchb
    WHERE matnr = itab_sale-matnr
    AND werks = itab_sale-werks.
    *-----End
    MODIFY itab_sale TRANSPORTING labst matnr.
    ENDLOOP.
    LOOP AT itab.
    READ TABLE itab_sale WITH KEY matnr = itab-matnr
    werks = itab-werks.
    IF sy-subrc = 0.
    CALL FUNCTION 'CONVERSION_EXIT_CCMAT_OUTPUT'
    EXPORTING
    input = itab_sale-matnr
    IMPORTING
    output = itab_sale-matnr.
    MOVE itab_sale-labst TO itab-labst.
    ENDIF.
    MODIFY itab TRANSPORTING labst.
    CLEAR itab.
    ENDLOOP.
    ENDIF.
    CHECK itab[] IS NOT INITIAL.
    SELECT * FROM marc CLIENT SPECIFIED
    INTO CORRESPONDING FIELDS OF TABLE it_marc
    FOR ALL ENTRIES IN itab
    WHERE mandt = sy-mandt
    AND matnr EQ itab-matnr
    AND werks EQ itab-werks.
    SELECT * FROM eban CLIENT SPECIFIED
    INTO CORRESPONDING FIELDS OF TABLE it_eban
    FOR ALL ENTRIES IN itab
    WHERE mandt = sy-mandt
    AND banfn EQ itab-banfn
    AND bnfpo EQ itab-bnfpo.
    SELECT * FROM mara CLIENT SPECIFIED
    INTO CORRESPONDING FIELDS OF TABLE it_mara
    FOR ALL ENTRIES IN itab
    WHERE mandt = sy-mandt
    AND matnr EQ itab-matnr.
    SELECT * FROM mvke CLIENT SPECIFIED
    INTO CORRESPONDING FIELDS OF TABLE it_mvke
    FOR ALL ENTRIES IN itab
    WHERE mandt = sy-mandt
    AND matnr EQ itab-matnr.
    IF sy-subrc = 0.
    SELECT * FROM tvm1t CLIENT SPECIFIED
    INTO CORRESPONDING FIELDS OF TABLE it_tvm1t
    FOR ALL ENTRIES IN it_mvke
    WHERE mandt = sy-mandt
    AND mvgr1 EQ it_mvke-mvgr1.
    ENDIF.
    IF s_period IS NOT INITIAL.
    ss_period = s_period.
    ss_period = ss_period + 1.
    s_erdat-sign = 'I'.
    s_erdat-option = 'BT'.
    s_erdat-high = sy-datum.
    ss_date = sy-datum - ss_period.
    s_erdat-low = ss_date.
    APPEND s_erdat.
    CLEAR s_erdat.
    SELECT * FROM zcvi_vbrk_vbrp CLIENT SPECIFIED
    INTO CORRESPONDING FIELDS OF TABLE it_vbrkvbrp
    FOR ALL ENTRIES IN itab
    WHERE mandt = sy-mandt
    AND matnr = itab-matnr
    AND fkart IN ('Z3PS','ZVIT',
    'ZVDT','ZFRV',
    'ZDRV','ZCMR')
    AND fkdat IN s_erdat
    AND fksto EQ space
    AND sfakn EQ space
    AND rfbsk NE 'E'
    AND fkimg NE 0.
    LOOP AT it_vbrkvbrp.
    IF it_vbrkvbrp-fktyp NE 'L'.
    DELETE it_vbrkvbrp.
    CONTINUE.
    ENDIF.
    IF it_vbrkvbrp-vrkme NE it_vbrkvbrp-meins.
    it_vbrkvbrp-fkimg = it_vbrkvbrp-fklmg.
    it_vbrkvbrp-meins = it_vbrkvbrp-vrkme.
    ENDIF.
    IF it_vbrkvbrp-shkzg = 'X'.
    it_vbrkvbrp-fkimg = it_vbrkvbrp-fkimg * -1.
    ENDIF.
    it_vbrk-matnr = it_vbrkvbrp-matnr.
    it_vbrk-fkimg = it_vbrkvbrp-fkimg.
    it_vbrk-meins = it_vbrkvbrp-meins.
    IF it_vbrk[] IS INITIAL.
    APPEND it_vbrk.
    CLEAR it_vbrk.
    ELSE.
    COLLECT it_vbrk.
    CLEAR it_vbrk.
    ENDIF.
    ENDLOOP.
    ENDIF.
    SORT it_vbrkvbrp BY matnr.
    SELECT * FROM ekko CLIENT SPECIFIED
    INTO CORRESPONDING FIELDS OF TABLE it_ekko
    FOR ALL ENTRIES IN itab
    WHERE mandt = sy-mandt
    AND ebeln = itab-ebeln.
    SORT it_ekko BY ebeln.
    LOOP AT itab.
    READ TABLE it_ekko BINARY SEARCH WITH KEY
    ebeln = itab-ebeln.
    IF sy-subrc = 0.
    IF it_ekko-frgke = 'R'.
    itab-zconfirm1 = 'YES'.
    itab-zconfirm2 = 'YES'.
    itab-zconfirm3 = 'YES'.
    ELSEIF it_ekko-frgzu = 'X'.
    itab-zconfirm1 = 'YES'.
    ELSEIF it_ekko-frgzu = 'XX'.
    itab-zconfirm1 = 'YES'.
    itab-zconfirm2 = 'YES'.
    ENDIF.
    ENDIF.
    IF s_period IS NOT INITIAL.
    READ TABLE it_vbrk BINARY SEARCH
    WITH KEY matnr = itab-matnr.
    IF sy-subrc = 0.
    itab-fkimg = it_vbrk-fkimg.
    ENDIF.
    ENDIF.
    READ TABLE it_marc WITH KEY matnr = itab-matnr
    werks = itab-werks.
    IF sy-subrc = 0.
    MOVE it_marc-minbe TO itab-minbe.
    MOVE it_marc-mabst TO itab-mabst.
    ENDIF.
    READ TABLE it_eban WITH KEY banfn = itab-banfn
    bnfpo = itab-bnfpo.
    IF sy-subrc = 0.
    IF it_eban-fixkz EQ 'X'.
    itab-zfixkz = 'Firmed'.
    ENDIF.
    ENDIF.
    READ TABLE it_mara WITH KEY matnr = itab-matnr.
    IF sy-subrc = 0.
    MOVE it_mara-matkl TO itab-matkl.
    ENDIF.
    READ TABLE it_mvke WITH KEY matnr = itab-matnr.
    IF sy-subrc = 0.
    MOVE it_mvke-mvgr1 TO itab-mvgr1.
    READ TABLE it_tvm1t WITH KEY mvgr1 = itab-mvgr1.
    IF sy-subrc = 0.
    MOVE it_tvm1t-bezei TO itab-bezei.
    ENDIF.
    ENDIF.
    MODIFY itab.
    CLEAR itab.
    ENDLOOP.
    ENDFORM. " getdata
    *& Form build_eventtab
    text
    -->P_EVENTS[] text
    FORM build_eventtab USING p_events TYPE slis_t_event.
    DATA: ls_event TYPE slis_alv_event.
    CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
    i_list_type = 0
    IMPORTING
    et_events = p_events.
    READ TABLE p_events WITH KEY name = slis_ev_top_of_page
    INTO ls_event.
    IF sy-subrc = 0.
    MOVE formname_top_of_page TO ls_event-form.
    APPEND ls_event TO p_events.
    ENDIF.
    ENDFORM. " build_eventtab
    *& Form build_comment
    text
    -->P_HEADING[] text
    FORM build_comment USING p_heading TYPE slis_t_listheader.
    DATA: hline TYPE slis_listheader.
    CLEAR: hline.
    hline-info = 'Purchase Requision History'.
    hline-typ = 'H'.
    APPEND hline TO p_heading.
    CLEAR hline.
    ENDFORM. " build_comment
    *& Form getfieldcatalog
    text
    --> p1 text
    <-- p2 text
    FORM getfieldcatalog USING p_fcat TYPE slis_t_fieldcat_alv.
    DATA : w_fcat TYPE slis_fieldcat_alv.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'BANFN'.
    w_fcat-seltext_l = 'PR No '.
    w_fcat-key = 'X'.
    w_fcat-col_pos = 1.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'BNFPO'.
    w_fcat-seltext_l = 'PR Item '.
    w_fcat-key = 'X'.
    w_fcat-col_pos = 2.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'MATNR'.
    w_fcat-seltext_l = 'Material '.
    w_fcat-col_pos = 3.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'MAKTX'.
    w_fcat-seltext_l = 'Name of the Mateiral '.
    w_fcat-col_pos = 4.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'WERKS'.
    w_fcat-seltext_l = 'Plant '.
    w_fcat-col_pos = 5.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'EBELN'.
    w_fcat-seltext_l = 'PO No '.
    w_fcat-hotspot = 'X'.
    w_fcat-col_pos = 6.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'EBELP'.
    w_fcat-seltext_l = 'PO Item '.
    w_fcat-col_pos = 7.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'PR_MENGE'.
    w_fcat-seltext_l = 'PR Qty '.
    w_fcat-col_pos = 8.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'MEINS'.
    w_fcat-seltext_l = 'Unit'.
    w_fcat-col_pos = 9.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'MENGE'.
    w_fcat-seltext_l = 'PO Quantity '.
    w_fcat-col_pos = 10.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'GRN_MENGE'.
    w_fcat-seltext_l = 'GRN Qty '.
    w_fcat-col_pos = 11.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'TRN_MENGE'.
    w_fcat-seltext_l = 'Transit Qty '.
    w_fcat-col_pos = 12.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'BAL_MENGE'.
    w_fcat-seltext_l = 'Balance PO Qty '.
    w_fcat-col_pos = 13.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'LABST'.
    w_fcat-seltext_l = 'Current Stock'.
    w_fcat-col_pos = 14.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'FKIMG'.
    w_fcat-seltext_l = 'Sales Qty '.
    w_fcat-col_pos = 15.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'MINBE'.
    w_fcat-seltext_l = 'Reorder Point'.
    w_fcat-col_pos = 16.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'MABST'.
    w_fcat-seltext_l = 'Maximum stock level'.
    w_fcat-col_pos = 17.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'ZFIXKZ'.
    w_fcat-seltext_l = 'Fixed Indicator'.
    w_fcat-col_pos = 18.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'MATKL'.
    w_fcat-seltext_l = 'Design'.
    w_fcat-col_pos = 19.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'MVGR1'.
    w_fcat-seltext_l = 'Size'.
    w_fcat-col_pos = 20.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'BEZEI'.
    w_fcat-seltext_l = 'Size Desc.'.
    w_fcat-col_pos = 21.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'FKIMG'.
    w_fcat-seltext_l = 'Sales Qty '.
    w_fcat-col_pos = 22.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'ZCONFIRM1'.
    w_fcat-seltext_l = 'Release1'.
    w_fcat-col_pos = 23.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'ZCONFIRM2'.
    w_fcat-seltext_l = 'Release2'.
    w_fcat-col_pos = 24.
    APPEND w_fcat TO fcat.
    CLEAR w_fcat.
    w_fcat-tabname = 'ITAB'.
    w_fcat-fieldname = 'ZCONFIRM3'.
    w_fcat-seltext_l = 'Release3'.
    w_fcat-col_pos = 25.
    APPEND w_fcat TO fcat.
    ENDFORM. " getfieldcatalog
    *& Form alvdisplaydata
    text
    --> p1 text
    <-- p2 text
    FORM alvdisplaydata .
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
    i_callback_program = repname
    i_callback_user_command = 'USER_COMMAND'
    it_fieldcat = fcat
    it_events = events[]
    TABLES
    t_outtab = itab.
    IF sy-subrc <> 0.
    WRITE: 'SY-SUBRC: ', sy-subrc, 'REUSE_ALV_LIST_DISPLAY'.
    ENDIF.
    ENDFORM. " alvdisplaydata
    FORM TOP_OF_PAGE *
    FORM top_of_page.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
    it_list_commentary = heading.
    ENDFORM. "TOP_OF_PAGE
    *& Form build_eventtab1
    text
    -->P_EVENTS[] text
    FORM build_eventtab1 USING p_events1 TYPE slis_t_event.
    DATA: ls_event1 TYPE slis_alv_event.
    CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
    i_list_type = 0
    IMPORTING
    et_events = p_events1.
    READ TABLE p_events1 WITH KEY name = slis_ev_top_of_page
    INTO ls_event1.
    IF sy-subrc = 0.
    MOVE formname_top_of_page1 TO ls_event1-form.
    APPEND ls_event1 TO p_events1.
    ENDIF.
    endform.
    *& Form build_comment
    text
    -->P_HEADING[] text
    FORM build_comment1 USING p_heading1 TYPE slis_t_listheader.
    DATA: hline1 TYPE slis_listheader.
    hline1-info = '1 Secondary List'.
    hline1-typ = 'H'.
    APPEND hline1 TO p_heading1.
    CLEAR hline1.
    ENDFORM. " build_comment
    *& Form getfieldcatalog1
    text
    -->P_FCAT1[] text
    form getfieldcatalog1 using p_fcat1 TYPE slis_t_fieldcat_alv.
    DATA : w_fcat1 TYPE slis_fieldcat_alv.
    CLEAR w_fcat1.
    w_fcat1-tabname = 'IT_LIPS'.
    w_fcat1-fieldname = 'VBELN'.
    w_fcat1-seltext_l = 'Pr.No'.
    w_fcat1-hotspot = 'X'.
    w_fcat1-col_pos = 1.
    APPEND w_fcat1 to fcat1.
    CLEAR w_fcat1.
    w_fcat1-tabname = 'IT_LIPS'.
    w_fcat1-fieldname = 'POSNR'.
    w_fcat1-seltext_l = 'PR Item'.
    w_fcat1-col_pos = 2.
    APPEND w_fcat1 to fcat1.
    CLEAR w_fcat1.
    w_fcat1-tabname = 'IT_LIPS'.
    w_fcat1-fieldname = 'MATNR'.
    w_fcat1-seltext_l = 'Material'.
    w_fcat1-col_pos = 3.
    APPEND w_fcat1 to fcat1.
    CLEAR w_fcat1.
    w_fcat1-tabname = 'IT_LIPS'.
    w_fcat1-fieldname = 'LFIMG'.
    w_fcat1-seltext_l = 'Actual quantity delivered'.
    w_fcat1-col_pos = 4.
    APPEND w_fcat1 to fcat1.
    CLEAR w_fcat1.
    w_fcat1-tabname = 'IT_LIPS'.
    w_fcat1-fieldname = 'MEINS'.
    w_fcat1-seltext_l = 'Base Unit of Measure'.
    w_fcat1-col_pos = 5.
    APPEND w_fcat1 to fcat1.
    endform. " getfieldcatalog1
    *& Form USER_COMMAND
    text
    -->R_UCOMM text
    -->RS_SELFIELD text
    FORM user_command USING r_ucomm LIKE sy-ucomm
    rs_selfield TYPE slis_selfield.
    READ TABLE itab INDEX rs_selfield-tabindex.
    IF sy-subrc EQ 0.
    select vbeln
    posnr
    matnr
    vgbel
    lfimg
    meins from lips into table it_lips
    where vgbel = itab-ebeln.
    ENDIF.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
    i_callback_program = repname
    >>>> i_callback_user_command = 'USER_COMMAND1'
    it_fieldcat = fcat1
    it_events = events1[]
    TABLES
    t_outtab = it_lips.
    IF sy-subrc 0.
    WRITE: 'SY-SUBRC: ', sy-subrc, 'REUSE_ALV_LIST_DISPLAY'.
    ENDIF.
    ENDFORM. "USER_COMMAND
    FORM TOP_OF_PAGE1 *
    FORM top_of_page1.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
    it_list_commentary = heading1.
    ENDFORM. "TOP_OF_PAGE1
    *& Form build_eventtab1
    text
    -->P_EVENTS[] text
    FORM build_eventtab2 USING p_events2 TYPE slis_t_event.
    DATA: ls_event2 TYPE slis_alv_event.
    CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
    i_list_type = 0
    IMPORTING
    et_events = p_events2.
    READ TABLE p_events2 WITH KEY name = slis_ev_top_of_page
    INTO ls_event2.
    IF sy-subrc = 0.
    MOVE formname_top_of_page2 TO ls_event2-form.
    APPEND ls_event2 TO p_events2.
    ENDIF.
    endform.
    *& Form build_comment
    text
    -->P_HEADING[] text
    FORM build_comment2 USING p_heading2 TYPE slis_t_listheader.
    DATA: hline2 TYPE slis_listheader.
    hline2-info = '2 Secondary List'.
    hline2-typ = 'H'.
    APPEND hline2 TO p_heading2.
    CLEAR hline2.
    ENDFORM. " build_comment
    *& Form getfieldcatalog1
    text
    -->P_FCAT1[] text
    form getfieldcatalog2 using p_fcat2 TYPE slis_t_fieldcat_alv.
    DATA : w_fcat2 TYPE slis_fieldcat_alv.
    CLEAR w_fcat2.
    w_fcat2-tabname = 'IT_EKBE'.
    w_fcat2-fieldname = 'EBELN'.
    w_fcat2-seltext_l = 'Pr.Doc No'.
    w_fcat2-col_pos = 1.
    APPEND w_fcat2 to fcat2.
    CLEAR w_fcat2.
    w_fcat2-tabname = 'IT_EKBE'.
    w_fcat2-fieldname = 'EBELP'.
    w_fcat2-seltext_l = 'PR Doc Item'.
    w_fcat2-col_pos = 2.
    APPEND w_fcat2 to fcat2.
    CLEAR w_fcat2.
    w_fcat2-tabname = 'IT_EKBE'.
    w_fcat2-fieldname = 'BELNR'.
    w_fcat2-seltext_l = 'No.Mat Doc'.
    w_fcat2-col_pos = 3.
    APPEND w_fcat2 to fcat2.
    CLEAR w_fcat2.
    w_fcat2-tabname = 'IT_EKBE'.
    w_fcat2-fieldname = 'BUZEI'.
    w_fcat2-seltext_l = 'Item in Mat Doc'.
    w_fcat2-col_pos = 4.
    APPEND w_fcat2 to fcat2.
    CLEAR w_fcat2.
    w_fcat2-tabname = 'IT_EKBE'.
    w_fcat2-fieldname = 'MENGE'.
    w_fcat2-seltext_l = 'Quantity'.
    w_fcat2-col_pos = 5.
    APPEND w_fcat2 to fcat2.
    CLEAR w_fcat2.
    w_fcat2-tabname = 'IT_EKBE'.
    w_fcat2-fieldname = 'XBLNR'.
    w_fcat2-seltext_l = 'Ref Doc Num'.
    w_fcat2-col_pos = 5.
    APPEND w_fcat2 to fcat2.
    endform. " getfieldcatalog2
    *& Form USER_COMMAND1
    text
    -->R_UCOMM text
    -->RS_SELFIELD text
    FORM user_command1 USING r_ucomm LIKE sy-ucomm
    rs_selfield TYPE slis_selfield.
    READ TABLE it_lips INDEX rs_selfield-tabindex.
    IF sy-subrc EQ 0.
    select ebeln
    ebelp
    belnr
    buzei
    menge
    xblnr from ekbe into table it_ekbe
    where xblnr = it_lips-vbeln.
    endif.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
    i_callback_program = repname
    i_callback_user_command = 'USER_COMMAND1'
    it_fieldcat = fcat2
    it_events = events2[]
    TABLES
    t_outtab = it_ekbe.
    IF sy-subrc 0.
    WRITE: 'SY-SUBRC: ', sy-subrc, 'REUSE_ALV_LIST_DISPLAY'.
    ENDIF.
    ENDFORM. "USER_COMMAND
    FORM TOP_OF_PAGE1
    FORM top_of_page2.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
    it_list_commentary = heading2.
    ENDFORM. "TOP_OF_PAGE2

  • Error when opening open item list report

    Hi Experts,
    I was trying to open inventory open item list but I'm getting error. The user is a "super user".
    Thanks,
    Janice

    Hi,
    It is an application error. Check SAP note:
    2008925 - You cannot run the Open Item List report for Purchase
    Requests
    Thanks & Regards,
    Nagarajan

  • Problem when displaying a Information Box  in a report

    Hi Guys,
                  I have used a concatenate statement as below
    Concatenate 'Total Records:' some field value   'Correct Records:' some field value  'Error Records:'some field value  into one FINAL.
    MESSAGE i398(00) WITH FINAL..
    I defined FINAL as FINAL(200).
    In debugging i am getting complete value .But while displaying i am getting only
    'Total Records:'              5   'Corre   "something like this.
    Is there any limitation I am getting for concatenate statement.Let me know.
    How to display the full record in output.
    Thanks,
    Prasad.

    Guys, I got it resolved.

  • Problem with display of ampersand in reports

    I enter the following text into a "notes" item on a page:
    Send request to AT&T.
    When I use this notes item in a report the following is displayed:
    Send request to AT
    Note the ampersand and the T are missing.
    If I remove the period at the end of the note:
    Send request to AT&T
    The report displays properly:
    Send request to AT&T
    If I append text to the original note like this:
    Send request to AT&T for test.
    The report note will display properly:
    Send request to AT&T for test.
    The issue seems caused by the period following AT&T. This is APEX 3.2.1.00.12.
    Besides the work around of editing the text, does anyone know what else might fix the problem?

    Doesn't appear to be anything out of the ordinary there.
    The obvious solution is to escape the ampersand, which will stop it being specially treated by either APEX or HTML:
    SELECT n.note_id, l.lce_type, htf.escape_sc(n.note) note, n.created_by, n.created_date, n.last_updated_by, n.last_updated
    FROM ticket_lces l, lce_notes n
    WHERE l.ticket_id = :P33_TICKET_ID
    AND l.lce_id = n.lce_idAlthough I'm not sure why this is necessary. Can't say I've come across a report column doing this before...
    Standard or interactive report?
    If it's a standard report: What is the Display As property of the <tt>note</tt> column? Is there any post-query manipulation of the <tt>note</tt> column in the report: HTML Expression, Link etc?

  • Problem  to display multiple images in report!

    Hi,
    I have 3 tables, in each table i have a column with an image "blob"!
    I have creat a view with this 3 tables and a report of this view.
    My problem is that when i try to show one image column in report, "there is no problem", but when i try to show two or tree column´s with images, it display's only the last image that i call in report!
    select     "V_VIEW"."ID_STATE" as "ID_STATE",
         "V_VIEW"."STATE" as "STATE",
         "V_VIEW"."ID_TABLE" as "ID_TABLE",
         "V_VIEW"."NAME" as "NAME",
         "V_VIEW"."ID_PRIORI" as "ID_PRIORI",
         "V_VIEW"."PRIORI" as "PRIORI",
         "V_VIEW"."ID_PRODUCT" as "ID_PRODUCT",
         "V_VIEW"."PRODUCT" as "PRODUCT" ,
    dbms_lob.getlength("V_VIEW"."IMAGE") IMAGEPRODUCT,
    dbms_lob.getlength("V_VIEW"."IMAGEPRIORI") IMAGEPRIORI,
    dbms_lob.getlength("V_VIEW"."IMAGESTATE") IMAGESTATE
    from     "V_VIEW" "V_VIEW"
    Using normal standart report with in report atributes column:
    IMAGE:T_STATES:IMAGESTATE:ID_STATE::::::inline:
    What are i making wrong, in this case he does only make the last dbms_lob.getlength and shows only dbms_lob.getlength(IMAGESTATE) IMAGESTATE;
    If i change the order of the report and put in the end of the code:
    dbms_lob.getlength(IMAGETYPE) IMAGETYPE, the he shows this last image!
    I have try to make a demonstration of my problem on this forum, so i have creat an example on apex.oracle.com and there it works just fine, showing all the images of report.
    i am using apex 3.1.0.00.32
    Why doesn't the same example work in my aplication.
    If someone can have a look at working example:
    http://apex.oracle.com/pls/otn/f?p=53120:1:1299118515377853:::::
    pepe
    pepe
    pepe25
    Thank's in advance;
    Pepe

    Pepe,
    Is the first report on the page working correctly? I think so. So I don't see an example of what you described.
    I do see that there are no images in the second report, but that's not the same as the first problem you described, is it?
    Scott

  • Error when Display/Print my expense report,travel request and travel plan

    Hello experts,
    I had configurated the ADS and ESS successfully.We are using ESS and interactive form now.
    And we had developed some interactive form and they work fine .
    In page "My Trips and Expenses   " , there are 4 tabs " All My Trips","  My Travel Requests","  My Travel Plans " and " My Expense Reports " .
    When I selected one row of table and click button " Display/Print" , I got the error :
    com.sap.tc.webdynpro.clientserver.adobe.pdfdocument.base.core.PDFDocumentRuntimeException: Failed to  USEPDF
         at com.sap.tc.webdynpro.clientserver.adobe.pdfdocument.base.core.PDFDocumentRuntimeException.<init>(PDFDocumentRuntimeException.java:25)
         at com.sap.tc.webdynpro.clientserver.uielib.adobe.impl.InteractiveForm.afterHandleActionEvent(InteractiveForm.java:419)
         at com.sap.tc.webdynpro.clientserver.cal.ClientApplication.afterApplicationModification(ClientApplication.java:1132)
         at com.sap.tc.webdynpro.clientserver.cal.ClientComponent.afterApplicationModification(ClientComponent.java:895)
    Caused by: com.sap.tc.webdynpro.services.exceptions.WDRuntimeException: pdfSource of InteractiveForm UI element should be populated with pdf binary content in USE_PDF mode
         at com.sap.tc.webdynpro.clientserver.uielib.adobe.impl.InteractiveForm.afterHandleActionEvent(InteractiveForm.java:351)
         ... 48 more
    Is there any guys had met the problem ? Please give me some suggestions .
    Thank you !
    Best Regards,
    Louis

    Louis,
    can yo make sure that you are doing this "pdfSource of InteractiveForm UI element should be populated with pdf binary content in USE_PDF mode"
    check these links
    https://forums.sdn.sap.com/click.jspa?searchID=18701125&messageID=6070514
    https://forums.sdn.sap.com/click.jspa?searchID=18701125&messageID=6426445
    https://forums.sdn.sap.com/click.jspa?searchID=18701125&messageID=6323600
    Thanks
    Bala Duvvuri

  • Problem with displaying key figures in report

    Does anyone have experience with SAP Report Designer for Release 7.0. I want to display key figures in the following manner: 1'500 (Which means 1.500.000) For a billion the value displaye should be 1''000 (1.000.000.000).
    1000 =     1.000
    0'010 =     10.000
    0'100 =     100.000
    1'000 =     1.000.000
    0''010 =     10.000.000
    0''100 =     100.000.000
    1''000 =     1.000.000.000
    Thus the report always shows 4 digit figures. The problem is that I don't know how to include the apostophe as a separator for the million.
    Additionaly to that I want to have the font changed to a smaller number, if the figure is to large for the column. Is there a possibity to change the display of the figure with the scaling? And is there a possibility to change the font? These two parameters have to be decided when running the report. (The scale of the numbers can differ within one column.)

    there is two way to display the values , one is globally, where u do it the keyfigure and another way is on the query designer level
    in keyfigure go to aggregation , there u will get the number display format , u can change there and another way is in the query designer right click on the key figure and select properties and select display format

  • Problem when we dowload spool list into excel.

    Hello Gurus,
    I have developed an custom report, The output contains 15 columns. When i run the report in foreground the output will be displayed in correct format also when i download the report list into excel(List->Save/Send->File) then the records will be downloaded in proper format(Each record under respective column heading).
    But when the report is scheduled in background the spool list(SP01) is displayed in the proper format. But when I download this into excel(SppolRequest->Forward->SaveToLocal) . The excel data will be in improper format and all record value are not under respective column heading.
    Can anyone advice me.
    Thanks and regards,
    Vinod

    Hi,
      Use the FM 'EXCEL_OLE_STANDARD_DAT'.
    In this FM populate the tables parameter 'fieldnames' to get each cloumn below the heading correctly.

  • Problem when displaying smartform in chinese language

    Hi ,
    I have copied a standard smart form into Z smartform and added few fields in it  as per the requirement .
    When I display form in english or german it prints correctly .
    when I print it in Chinese it prints the workarea name which I am using to print the values of the fileds .
    it prints as below
    &wa_vbak-budat&
    please help , I tried changing the font type and size but it still shows the same.
    Regards,
    Gayatri Hemnur

    Hi Gouri,
    The first step for translation is that u have to change the regional settings in your computer. Or You should logon with Chinese language.
    If you have done that already, i think the problem may be that in the reoport the length of the field is smaller than the space required for the chinese characters.
    Even if it is done i think you can try doing this, go to se63 translate the field once again and save it. I think this should solve your problem.
    BR
    Dep

Maybe you are looking for