Z Report of Transaction ME28.(Release Purchase Order)

Question

Dear all,
               I want to make Z Report for the Transaction ME28 (Release Purchase Order).
I am facing problem of GUI status in my Z Report. Actually Report is not displaying like ME28.
and all the menu and function keys are also not coming properly.
So, pls suggest me good solution.
Thanks & Regards,
Sandip Sonar.

Answer 1

I am attaching a copy of ME28. Please give it to your ABAP consultant.
He should be able to do the needful:
REPORT RM06EF00 NO STANDARD PAGE HEADING MESSAGE-ID ME.
       Anzeigen Einkaufsbelege zur Belegnummer                       *
Tabellen                                                            *
INCLUDE FM06LTO1.
INCLUDE FM06LCFR.
**table added t16fc  - SAPBY     6 Feb 98
TABLES: T16FG, T16FS, T16FV, T16FE, RM06B, T160B, T16FC.
DATA: BEGIN OF XEKPO OCCURS 100.
        INCLUDE STRUCTURE EKPO.
DATA: END OF XEKPO.
*- Interne Tabelle der Zustände -
DATA: BEGIN OF ZUS OCCURS 10.
        INCLUDE STRUCTURE T16FV.
DATA: END OF ZUS.
DATA: BEGIN OF ZUSKEY,
         MANDT LIKE EKKO-MANDT,
         FRGGR LIKE EKKO-FRGGR,
         FRGSX LIKE EKKO-FRGSX,
      END OF ZUSKEY.
Parameter und Select-Options                                        *
PARAMETERS:     P_FRGCO LIKE T16FC-FRGCO OBLIGATORY.
SELECT-OPTIONS: S_FRGGR FOR EKKO-FRGGR.
PARAMETERS:     P_FRGSE LIKE RM06A-P_FRGSE DEFAULT 'X',
                P_FRGRS LIKE RM06A-P_FRGRS,
                P_FRGVO LIKE RM06A-P_FRGVO DEFAULT 'X',
set default to 'X' to show items as well - SAPBY
                P_MITPOS AS CHECKBOX DEFAULT 'X',
set default to 'DEFAULT'  - SAPBY
                LISTU LIKE T160O-LISTU DEFAULT 'DEFAULT'.
SELECT-OPTIONS: S_BSTYP FOR EKKO-BSTYP,
                S_EKORG FOR EKKO-EKORG,
                S_EBELN FOR EKKO-EBELN MATCHCODE OBJECT MEKK
                                       MEMORY ID BES,
                S_BSART FOR EKKO-BSART,
                S_EKGRP FOR EKKO-EKGRP,
                S_LIFNR FOR EKKO-LIFNR MATCHCODE OBJECT KRED,
                S_RESWK FOR EKKO-RESWK,
                S_BEDAT FOR EKKO-BEDAT.
Hilfsfelder                                                         *
INCLUDE FM06LCEK.
DATA: XFRG1 LIKE EKKO-FRGZU,
      XFRG2 LIKE EKKO-FRGZU.
DATA: XSELKB LIKE EKKO-BSTYP,
      XSELKK LIKE EKKO-BSTYP,
      XSELKL LIKE EKKO-BSTYP,
      XSELKA LIKE EKKO-BSTYP.
FIELD-SYMBOLS: .
DATA: HFDPOS LIKE SY-FDPOS.
**workflow line added for workflow
DATA : LAST_USER_COMMAND  LIKE SY-UCOMM.
Intitialisierung                                                    *
INITIALIZATION.
  PERFORM ANFORDERUNGSBILD(SAPFM06L) USING XSELKB XSELKK
                                           XSELKL XSELKA.
lines 67, 70 and 73 commented out -SAPBY
**listu = t160b-listu.
  S_BSTYP-SIGN = 'I'.
  S_BSTYP-OPTION = 'EQ'.
**if xselkb ne space.
  S_BSTYP-LOW = 'F'.
  APPEND S_BSTYP.
**endif.
  IF XSELKK NE SPACE.
    S_BSTYP-LOW = 'K'.
    APPEND S_BSTYP.
  ENDIF.
  IF XSELKL NE SPACE.
    S_BSTYP-LOW = 'L'.
    APPEND S_BSTYP.
  ENDIF.
  IF XSELKA NE SPACE.
    S_BSTYP-LOW = 'A'.
    APPEND S_BSTYP.
  ENDIF.
next two lines added to default the release code
  IMPORT T16FC-FRGCO FROM MEMORY.
get parameter id 'ZRC' field t16fc-frgco.
  P_FRGCO = T16FC-FRGCO.
Seketionsbild                                                       *
AT SELECTION-SCREEN ON LISTU.
  PERFORM LISTUMFANG(SAPFM06L) USING LISTU.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FRGCO.
  CALL FUNCTION 'HELP_VALUES_FRGAB'
       EXPORTING
            I_FRGOT = '2'
       IMPORTING
            E_FRGAB = P_FRGCO
       EXCEPTIONS
            OTHERS  = 1.
AT SELECTION-SCREEN.
  CALL FUNCTION 'ME_REL_CHECK_MANY'
       EXPORTING
            I_FRGOT = '2'
            I_FRGCO = P_FRGCO
       TABLES
            T_FRGGR = S_FRGGR
            T_T16FV = ZUS.
Beginn der Selektion                                                *
START-OF-SELECTION.
  NOT_FOUND = 'X'.
  SET PF-STATUS 'FREI'.
  SET TITLEBAR '001' WITH P_FRGCO.
  PERFORM FRG_INIT(SAPFM06L) USING P_FRGCO P_MITPOS.
*- Lesen Belegköpfe -
  SELECT * FROM EKKO APPENDING TABLE XEKKO
                     FOR ALL ENTRIES IN ZUS
                     WHERE FRGRL EQ 'X'
                       AND FRGGR EQ ZUS-FRGGR
                       AND FRGSX EQ ZUS-FRGSX
                       AND EBELN IN S_EBELN
                       AND BSTYP IN S_BSTYP
                       AND EKORG IN S_EKORG
                       AND LIFNR IN S_LIFNR
                       AND RESWK IN S_RESWK
                       AND BEDAT IN S_BEDAT
                       AND BSART IN S_BSART
                       AND EKGRP IN S_EKGRP
                       AND LOEKZ EQ SPACE.
  IF P_FRGRS NE SPACE.
    SELECT * FROM EKKO APPENDING TABLE XEKKO
                       FOR ALL ENTRIES IN ZUS
                       WHERE FRGRL EQ SPACE
                         AND FRGGR EQ ZUS-FRGGR
                         AND FRGSX EQ ZUS-FRGSX
                         AND EBELN IN S_EBELN
                         AND BSTYP IN S_BSTYP
                         AND EKORG IN S_EKORG
                         AND LIFNR IN S_LIFNR
                         AND RESWK IN S_RESWK
                         AND BEDAT IN S_BEDAT
                         AND BSART IN S_BSART
                         AND EKGRP IN S_EKGRP
                         AND LOEKZ EQ SPACE.
  ENDIF.
  SORT XEKKO.
*- Prüfen Freigabevoraussetzungen -
  LOOP AT XEKKO.
    MOVE-CORRESPONDING XEKKO TO ZUSKEY.
    READ TABLE ZUS WITH KEY ZUSKEY BINARY SEARCH.
    CHECK SY-SUBRC EQ 0.
    XFRG1 = ZUS+9(8).
    XFRG2 = XEKKO-FRGZU.
    TRANSLATE XFRG2 USING 'X  +'.
    OVERLAY XFRG1 WITH XFRG2 ONLY '+'.
    SEARCH XFRG1 FOR 'X'.
*---- Keine Freigabezuständigkeit -
    IF SY-SUBRC NE 0.
      DELETE XEKKO.
    ELSE.
*---- Freigabestelle merken -
      HFDPOS = SY-FDPOS.
      ASSIGN XFRG2+SY-FDPOS(1) TO .
*---- Freigabe bereits erfolgt -
      IF P_FRGRS EQ SPACE AND
          EQ SPACE.
        DELETE XEKKO.
      ELSE.
*---- Freigabe noch nicht erfolgt -
        IF P_FRGSE EQ SPACE AND
            NE SPACE.
          DELETE XEKKO.
        ELSE.
*---- Freigabevoraussetzung fehlt -
          IF XFRG1 CA '+' AND
             P_FRGVO NE SPACE.
            DELETE XEKKO.
          ELSE.
            EKKO = XEKKO.
            PERFORM FRG_FEKKO_AUFBAUEN(SAPFM06L) USING HFDPOS.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDLOOP.
  SORT XEKKO.
*- Lesen Belegpositionen -
  IF P_MITPOS NE SPACE.
    SELECT * FROM EKPO APPENDING TABLE XEKPO
                       FOR ALL ENTRIES IN XEKKO
                       WHERE EBELN EQ XEKKO-EBELN.
  ENDIF.
*- Ausgabe -
  LOOP AT XEKKO.
    EKKO = XEKKO.
    PERFORM EKKO_ANSCHRIFT(SAPFM06L).
    PERFORM EKKO_AUSGABE(SAPFM06L).
    IF P_MITPOS NE SPACE.
      LOOP AT XEKPO WHERE EBELN EQ EKKO-EBELN.
        EKPO = XEKPO.
        PERFORM FC_ME_READ_HISTORY(SAPFM06L).
        PERFORM EKPO_AUSGABE(SAPFM06L).
      ENDLOOP.
    ENDIF.
  ENDLOOP.
Ende der Selektion                                                  *
END-OF-SELECTION.
  IF NOT_FOUND NE SPACE.
    MESSAGE S260.
    IF SY-CALLD NE SPACE.
      LEAVE.
    ELSE.
      LEAVE TO TRANSACTION SY-TCODE.
    ENDIF.
  ENDIF.
  WRITE: /(81) SY-ULINE.
OK-Code-Eingabe                                                     *
AT USER-COMMAND.
**workflow inserted 6 Feb 98 by SAPBY
    PERFORM WORKFLOW_AT_USER_COMMAND.
INS GSB 18/02/2004 - check user approving is not user that create
PO
if sy-ucomm = 'FRGU' or sy-ucomm = 'FRGS'.
loop at xekko.
  if xekko-ERNAM = sy-uname.
     CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
       EXPORTING
         TITEL              = 'Error'
TEXTLINE1 = 'As the creator of this pruchase order you cannot approve it
as well !'
    leave program.
  endif.
endloop.
endif.
  PERFORM USER_COMMAND(SAPFM06L).
Seitenueberschrift                                                  *
TOP-OF-PAGE.
  PERFORM TOP(SAPFM06L).
TOP-OF-PAGE DURING LINE-SELECTION.
  PERFORM TOP(SAPFM06L).
**& form workflow_at_user_command
TEXT
---> p1  text
<--  p2  text
FORM WORKFLOW_AT_USER_COMMAND.
  IF LAST_USER_COMMAND IS INITIAL.
    LAST_USER_COMMAND = SY-UCOMM.
  ENDIF.
  IF SY-UCOMM EQ 'ZURU'.
     PERFORM TRIGGER_WORKFLOW.
  ENDIF.
  CASE SY-UCOMM.
    WHEN 'BU'.
      IF P_MITPOS EQ 'X'.
        CHECK LAST_USER_COMMAND <> 'FRGR'.
        PERFORM TRIGGER_WORKFLOW.
      ELSE.
        CHECK LAST_USER_COMMAND = 'FRGS'.
        PERFORM TRIGGER_WORKFLOW.
      ENDIF.
    WHEN 'FRGU'.
      PERFORM TRIGGER_WORKFLOW.
  ENDCASE.
  LAST_USER_COMMAND = SY-UCOMM.
ENDFORM.
**& form TRIGGER_WORKFLOW.
TEXT
---> p1  text
<--  p2  text
FORM TRIGGER_WORKFLOW.
DATA : BEGIN OF ZEKKO OCCURS 20.
          INCLUDE STRUCTURE ZEKKO.
DATA : END OF ZEKKO.
DATA : BEGIN OF YEKKO OCCURS 20.
          INCLUDE STRUCTURE ZEKKO.
DATA : END OF YEKKO.
DATA : WFBAN LIKE EKKO-EBELN,
       WFERN LIKE EKKO-ERNAM.
CLEAR : WFBAN, WFERN.
MOVE-CORRESPONDING XEKKO TO YEKKO.
CONCATENATE YEKKO-FRGZU 'X' INTO YEKKO-FRGZU.
APPEND YEKKO.
MOVE-CORRESPONDING XEKKO TO ZEKKO.
*XEKKO-KZ = 'F'.
APPEND ZEKKO.
SELECT SINGLE KOKRS KOSTL
     INTO (EKKN-KOKRS, EKKN-KOSTL)
     FROM EKKN
     WHERE EBELN = XEKKO-EBELN
     AND EBELP   = '00010'.
if sy-subrc <> 0.                  " Cost centres not mandatory at XXX
  exit.
endif.
CALL FUNCTION 'Z_ME_REL_EVENT_EKKO'
     EXPORTING
          I_CALL_UPDKZ = 'F'
          I_WFBAN      = EKKO-EBELN
          I_FRGCO      = T16FC-FRGCO
          I_ERNAM      = SY-UNAME
          I_UCOMM      = SY-UCOMM
     TABLES
          I_EKKO_NEW   =  YEKKO
          I_EKKO_OLD   =  ZEKKO.
ENDFORM.