Report: YPROD001

For a given plant name it first display the material names available in the plant.you can click any material,you will be displayed the list of production order details(as secondary list) for the selected material with the push buttons where you can see the related purchase order or material document or details of production order or status of production
order by clicking any one the push button.

Parameters:
SELECT-OPTIONS:PLANT FOR MARD-WERKS OBLIGATORY DEFAULT 'PL10'.

Output:
Drilled down list gives the detail of production order or purchase order or material
document for a selected material

[for Download or 'cut and paste']

REPORT YPROD001 LINE-SIZE 250.          "20010411, Release 1.0

*
**********************         HEADER                    **************
*
* Copyright (c) 2000 by xxxx xxx, 44318 Anywhere, http://xxxxx
* or: Copyright (c) 2000 X.X. from X.
*
*     You can use or modify this report for your own work as long
*               as you don't try to sell or republish it.
*      In no event will the author be liable for indirect, special,
*        Incidental, or consequental damages (if any) arising out of
*                       the use of this report.
*//////////////////////////////////////////////////////////////////////*
* Append your coding here ...

*-----------------------------------------------------------------------
* PROGRAM SPECIFICATION
*----------------------------------------------------------------------
* Programsr Name        : Kannan K                                    *
*
* Report Title           : Drilled down report for a selected material
*
*
* Description            : for a given plant name it first display the
*                          material names available in the plant.you
*                          can
*                          click(hotspot) any material,you will be
*                          displayed the list of production order
*                          details(as secondary list) for the selected
*                          material, with the push buttons where you
*                          can
*                          see the related purchase order or material
*                          document or details of production order or
*                          status of production order by clicking any
*                          one of the push button.
*
*-----------------------------------------------------------------------

INCLUDE .

TABLES:MSEG,MARD,AUFK,AFKO,AFPO,EKKO,EKPO,JEST,TJ02T.

DATA F(30) TYPE C.
SELECT-OPTIONS:PLANT FOR MARD-WERKS OBLIGATORY DEFAULT 'PL10'.

START-OF-SELECTION.

  SET PF-STATUS 'BASIC'.
*SET TITLEBAR 'BASIC'.
  FORMAT COLOR 6 INVERSE ON.
  WRITE: /3 'PLANT', 15 'MATERIAL'.
  FORMAT COLOR OFF INVERSE OFF.
  ULINE.

  SELECT * FROM MARD WHERE WERKS IN PLANT.
    FORMAT HOTSPOT ON.
    WRITE: /3 MARD-WERKS, 15 MARD-MATNR.
    HIDE:MARD-WERKS,MARD-MATNR.
    FORMAT HOTSPOT OFF.
  ENDSELECT.
  ULINE.

END-OF-SELECTION.

TOP-OF-PAGE.
  WRITE: 'LIST of MATERIAL IN PLANT: ',MARD-WERKS.
*HIDE:MARD-WERKS.
  ULINE.

TOP-OF-PAGE DURING LINE-SELECTION.
  CASE SY-PFKEY.
    WHEN  'SCREEN1'.
      WRITE: 'DETAILS of PRODUCTION ORDER FOR :',MARD-MATNR.
*HIDE:MARD-MATNR.
      ULINE.
      FORMAT COLOR 6 INVERSE ON.
      WRITE: /1'ORD.NO', 20 'ORD.TYPE',40 'QUANTITY'.ULINE.
      FORMAT COLOR OFF INVERSE OFF.

    WHEN 'STATUS'.
      WRITE: 'STATUS OF PROD.ORD.NO : ',AFKO-AUFNR.
      ULINE.
      FORMAT COLOR 5 INVERSE ON.
      WRITE: /3 'STATUS',20 'DESCRIPTION'.
      FORMAT COLOR OFF INVERSE OFF.ULINE.

    WHEN 'SCREEN2'.
      WRITE:'DETAILS OF PRODUCTION ORDER:  ',AFKO-AUFNR.
      ULINE.
    WHEN 'SCREEN3'.
      FORMAT COLOR 5 INVERSE ON.
      WRITE: 'DETAILS OF MATERIAL DOCUMENT FOR :',MARD-MATNR.
      ULINE.FORMAT COLOR OFF INVERSE OFF.
    WHEN 'SCREEN4'.
      WRITE: 'DETAILS of MATERIAL DOCUMENT : ',MSEG-MBLNR.
      ULINE.
    WHEN 'NIT 5'.
      WRITE: 'DETAILS of PURCHASE ORDER FOR : ',MARD-MATNR.

      ULINE.
    WHEN 'SCREEN 6'.
      WRITE: 'DETAILS of PURCHASE ORDER : ',EKKO-EBELN.
      HIDE:EKKO-EBELN.
      ULINE.
  ENDCASE.


AT USER-COMMAND.
  CASE SY-UCOMM.
    WHEN 'SEL1'.
      SET PF-STATUS 'SCREEN1'.
*SET TITLEBAR 'SCREEN1'.
      SY-LSIND = 1.
      WINDOW STARTING AT 15 2 ENDING AT 80 15.

     SELECT * FROM AFPO WHERE DWERK = MARD-WERKS AND MATNR = MARD-MATNR.
        SELECT * FROM AFKO WHERE AUFNR = AFPO-AUFNR.
*         FORMAT HOTSPOT ON.
          WRITE: 1 AFKO-AUFNR COLOR 5 HOTSPOT ON.
*        FORMAT HOTSPOT OFF.
          WRITE: 20 AFPO-DAUAT, 40 AFKO-GAMNG LEFT-JUSTIFIED.
          HIDE: AFKO-AUFNR,AFPO-AUFNR,AFPO-DAUAT,AFKO-GAMNG.
          HIDE:AFPO-DWERK,AFPO-MATNR, MARD-WERKS,MARD-MATNR.

          SKIP.
        ENDSELECT.
      ENDSELECT.
*IF SY-SUBRC NE 0.MESSAGE A235.ENDIF.
      IF SY-SUBRC NE 0.
        SKIP 3.
        FORMAT COLOR 5 INVERSE ON.
        ULINE AT /13(35).
        WRITE:/13 SY-VLINE,15 'PRODUCTION ORDER DOES NOT EXIST.',
        47 SY-VLINE.
        ULINE AT /13(35).
        FORMAT COLOR OFF INVERSE OFF.

      ENDIF.

    WHEN 'DTLS'.
      SET PF-STATUS 'SCREEN2'.
      WINDOW STARTING AT 15 2 ENDING AT 80 15.

      GET CURSOR FIELD F.

      IF F = 'AFKO-AUFNR'.
        SELECT * FROM AFKO WHERE AUFNR = AFPO-AUFNR.
          FORMAT COLOR 5 INVERSE ON.
          WRITE: /1 'MATERIAL', 20 AFKO-PLNBEZ COLOR COL_TOTAL.SKIP.
     WRITE: /1 'QUANTITY', 20 AFKO-GAMNG LEFT-JUSTIFIED COLOR COL_TOTAL.
          SKIP.
          WRITE: /1 'MRP CONT', 20 AFKO-DISPO COLOR COL_TOTAL.SKIP.
          WRITE: /1 'PLANNER GRP',20 AFKO-PLGRP COLOR COL_TOTAL.SKIP.
          WRITE: /1 'ORD.START DT', 20 AFKO-GSTRP COLOR COL_TOTAL.SKIP.
          WRITE: /1 'ORD.FIN.DT',20 AFKO-GLTRP COLOR COL_TOTAL.SKIP.
          WRITE:/1 'INSP.LOT.NO',20 AFKO-PRUEFLOS COLOR COL_TOTAL.SKIP.
          WRITE: /1 'RESERVATION',20 AFKO-RSNUM COLOR COL_TOTAL.SKIP.
          WRITE: /1 'BOM STATUS',20 AFKO-STLST COLOR COL_TOTAL.
          FORMAT COLOR OFF INVERSE OFF.
*HIDE:AFPO-AUFNR,AFKO-PLNBEZ,AFKO-GAMNG,AFKO-GSTRP,AFKO-AUFNR.
        ENDSELECT.
      ENDIF.

    WHEN 'STAT'.
      SET PF-STATUS 'STATUS'.
      WINDOW STARTING AT 15 2 ENDING AT 80 15.

      SELECT * FROM AUFK WHERE AUFNR = AFKO-AUFNR.
        SELECT * FROM JEST WHERE OBJNR = AUFK-OBJNR.
          SELECT * FROM TJ02T WHERE ISTAT = JEST-STAT AND SPRAS = 'E'.
            WRITE: /3 TJ02T-TXT04,20 TJ02T-TXT30.
            HIDE:TJ02T-TXT04,TJ02T-TXT30,AUFK-AUFNR,AFKO-AUFNR.
          ENDSELECT.
        ENDSELECT.
      ENDSELECT.
      ULINE.

    WHEN 'TRAN'.
      CALL TRANSACTION 'ZK44'.

    WHEN 'SEL2'.
      SET PF-STATUS 'SCREEN3'.
      WINDOW STARTING AT 15 2 ENDING AT 80 15.
      SY-LSIND = 1.
      FORMAT COLOR 5 INVERSE ON.
      WRITE: /1 'PLANT', 10 'PROD.ORD.NO',25 'MAT.DOC.NO'.ULINE.
      FORMAT COLOR OFF INVERSE OFF.

     SELECT * FROM MSEG WHERE WERKS = MARD-WERKS AND MATNR = MARD-MATNR.
        WRITE: /1 MSEG-WERKS,10 MSEG-AUFNR,40 MSEG-EBELN.
        FORMAT HOTSPOT ON.
        WRITE: 25 MSEG-MBLNR.
        FORMAT HOTSPOT OFF.
        HIDE:MSEG-WERKS,MSEG-AUFNR,MSEG-MBLNR,MSEG-EBELN.

        SKIP.
      ENDSELECT.
      IF SY-SUBRC NE 0.
        SKIP 3.
        FORMAT COLOR 6 INVERSE ON.
        ULINE AT /13(35).
       WRITE: /13 SY-VLINE,15'MATERIAL DOC. DOES NOT EXIST',47 SY-VLINE.
        ULINE AT /13(35).
        FORMAT COLOR OFF INVERSE OFF.
      ENDIF.

    WHEN 'DET'.
      SET PF-STATUS 'SCREEN4'.
      WINDOW STARTING AT 15 2 ENDING AT 80 15 .
      GET CURSOR FIELD F.
      IF F = 'MSEG-MBLNR'.

        FORMAT COLOR 5 INVERSE ON.
        WRITE: /1 'MATERIAL',15 'PUR.ORD.NO',30 'PROD.ORD.NO',
              45 'MOV.TYPE',55 'QUANTITY'.
        FORMAT COLOR OFF INVERSE OFF.
        ULINE.
        SELECT * FROM MSEG WHERE MBLNR = MSEG-MBLNR.
          WRITE: /1 MSEG-MATNR,15 MSEG-EBELN,30 MSEG-AUFNR,
                       45 MSEG-BWART ,55 MSEG-MENGE LEFT-JUSTIFIED.
          SKIP.
        ENDSELECT.

        ULINE.
        WRITE:/1 'STOR.LOC ', 20 MSEG-LGORT COLOR COL_TOTAL.SKIP.
        WRITE:/1 'RESERVATION', 20 MSEG-RSNUM COLOR COL_TOTAL.SKIP.
        WRITE: /1 'G/L ACCOUNT',20 MSEG-SAKTO COLOR COL_TOTAL.
        SKIP.
      ENDIF.

    WHEN 'TR2'.
      CALL TRANSACTION 'MB02'.

    WHEN 'SEL3'.
      SET PF-STATUS 'NIT 5'.
*SET TITLEBAR 'NIT5'.
      WINDOW STARTING AT 15 2 ENDING AT 80 15.
      SY-LSIND = 1.
   WRITE: /5 'PUR.ORD.NO',20 'DOC.TYPE',35 'CREATED ON',48 'CREATED BY'.
      ULINE.

     SELECT * FROM EKPO WHERE WERKS = MARD-WERKS AND MATNR = MARD-MATNR.
        SELECT * FROM EKKO WHERE EBELN = EKPO-EBELN.
          FORMAT COLOR 5 INVERSE ON.
          FORMAT HOTSPOT ON.
          WRITE: 5 EKKO-EBELN.
          FORMAT HOTSPOT OFF.
          WRITE: 20 EKKO-BSART,35 EKKO-AEDAT,48 EKKO-ERNAM.
          HIDE: EKPO-MENGE,EKKO-EBELN,EKKO-BSART,EKPO-MATNR,
                            EKPO-WERKS,MARD-WERKS,MARD-MATNR.
          FORMAT COLOR OFF INVERSE OFF.
          SKIP.
        ENDSELECT.
      ENDSELECT.


      IF SY-SUBRC NE 0.
        SKIP 3.
        ULINE AT /13(35).
        FORMAT COLOR 6 INVERSE ON.
        WRITE: /13 SY-VLINE,15 'PURCHASE ORDER DOES NOT EXIST',
        47 SY-VLINE.
        FORMAT COLOR OFF INVERSE OFF.
        ULINE AT /13(35).
      ENDIF.

    WHEN 'DE'.
      SET PF-STATUS 'SCREEN 6'.
      WINDOW STARTING AT 15 2 ENDING AT 80 15.

      GET CURSOR FIELD F.

      IF F = 'EKKO-EBELN'.

        FORMAT COLOR 6 INVERSE ON.
        WRITE: /1 'ITEM',15 'MATERIAL',25 'QUANTITY',40 'STO.LOC',
        50 'MAT.TYPE'.
        FORMAT COLOR OFF INVERSE OFF.
        ULINE.

        SELECT * FROM EKPO WHERE EBELN = EKKO-EBELN.
        WRITE: /1 EKPO-EBELP,15 EKPO-MATNR,25 EKPO-MENGE LEFT-JUSTIFIED,
                                  40 EKPO-LGORT,50 EKPO-MTART.
          HIDE:EKPO-EBELN,EKPO-EBELP,EKPO-MATNR,EKPO-MENGE,EKPO-LGORT,
          MARD-MATNR,MARD-WERKS.

          SKIP.
        ENDSELECT.

        ULINE.
        WRITE: /1 'PURCH.ORGANISATION',25 EKKO-EKORG COLOR COL_TOTAL.
        SKIP.
        WRITE: /1 'PURCHASING GROUP',25 EKKO-EKGRP COLOR COL_TOTAL.
        SKIP.
        WRITE: /1 'QUOTATION NO', 25 EKKO-ANGNR COLOR COL_TOTAL.SKIP.
        WRITE: /1 'CUSTOMER', 25 EKKO-KUNNR COLOR COL_TOTAL.SKIP.
   WRITE: /1 'ORDER VALUE',25 EKPO-NETWR LEFT-JUSTIFIED COLOR COL_TOTAL.
        SKIP.
        WRITE: /1 'P.R.NUMBER',25 EKPO-BANFN COLOR COL_TOTAL.
        SKIP.
      ENDIF.

    WHEN 'TR1'.
      CALL TRANSACTION 'ME22'.

  ENDCASE.