To Find no og MIGOS pending for MIRO

Question

Hi All,
I am developing a report to find the MIGO'S pending for MIRO's.
Which table should i refer to find MIGO'S pending for MIRO's.including MSEG and MKPF.
will it be done thru EKBE fro this
can any one help........?
TIA
Basu

Answer 1

Hi,
Make the necessary changes according to your Data & Requirement.
  SELECT a~ebeln a~ebelp a~vgabe a~gjahr a~belnr a~buzei a~bewtp a~budat a~matnr a~werks a~xblnr a~menge a~dmbtr
  b~lifnr c~maktx d~name1  INTO TABLE it_final
  FROM ekbe AS a INNER JOIN ekko AS b ON b~ebeln = a~ebeln
                 INNER JOIN ekpo AS e ON e~ebeln = a~ebeln AND e~ebelp = a~ebelp
                 INNER JOIN lfa1 AS d ON d~lifnr = b~lifnr
            LEFT OUTER JOIN makt AS c ON c~matnr = a~matnr AND c~spras = 'E'
  WHERE a~ebeln IN so_ebeln
    AND a~werks IN so_werks
    AND a~matnr IN so_matnr
    AND b~lifnr IN so_lifnr
    AND b~bsart NOT IN ('A', 'B','C' )  " Here add Doc Type - if you have Stock transfer(from Plant to Plant) PO in your Data
    AND a~budat IN so_budat
    AND a~vgabe EQ '1'
    AND a~bewtp EQ 'E'
    AND a~bwart EQ '101'    " Check your MIGO IN mov. types
    AND e~loekz EQ ''
" This is for MIGO Reverse - Again check your MIGO out Mov. types
    AND NOT EXISTS ( SELECT ebeln FROM ekbe WHERE ebeln = a~ebeln AND ebelp = a~ebelp AND vgabe = '1' AND bewtp = 'E'
    AND bwart IN ('102','122') AND lfgja = a~gjahr AND lfbnr = a~belnr AND lfpos = a~buzei )
" check for Pending MIRO
    AND NOT EXISTS ( SELECT ekbe~ebeln FROM ekbe INNER JOIN rbkp ON rbkp~belnr = ekbe~belnr AND rbkp~gjahr = ekbe~gjahr
    WHERE ekbe~ebeln = a~ebeln AND ekbe~ebelp = a~ebelp AND ekbe~vgabe = '2' AND ekbe~bewtp = 'Q' AND ekbe~lfgja = a~gjahr
    AND ekbe~budat IN rg_budat AND ekbe~lfpos = a~buzei AND rbkp~tcode = 'MIRO' AND rbkp~stblg = '' )
  ORDER BY a~ebeln a~ebelp a~budat.
"Remove Cancelled MIRO from o/p
  SELECT DISTINCT a~ebeln a~ebelp a~gjahr a~belnr INTO TABLE it_ekbe
  FROM ekbe AS a INNER JOIN rbkp AS b ON b~belnr = a~belnr AND b~gjahr = a~gjahr
  FOR ALL ENTRIES IN it_final
  WHERE a~ebeln = it_final-ebeln AND a~ebelp = it_final-ebelp AND a~vgabe EQ '2' AND a~bewtp EQ 'Q' AND a~lfbnr = '' AND a~budat IN rg_budat
    AND b~tcode = 'MIRO' AND b~stblg = ''.