Report displaying List of Document number whoose MIRO never done

Question

hi all,
i have to make a report which will display those document number whose  Invoice verification(MIRO) never done but it processed MIGO. so can anyone please tell me the logic or tell me from which table and on which condition can i get the respective data ?
regards saurabh.

Answer 1

hi evrybody,
thanx for reply, can u please tell me from which table shoud i take PO number? actually i taken PO number and Mat document no from MSEG...so please check my code and tell me i m going correctly or not?
codes :
REPORT  zmat_list NO STANDARD PAGE HEADING LINE-SIZE 255.
TYPE-POOLS: slis.
TABLES : mseg, makt, mkpf, ekbe, ekko.
TYPES : BEGIN OF itab1,
        matnr LIKE mseg-matnr,
        werks LIKE mseg-werks,
       bwart like mseg-bwart,
        ebeln LIKE mseg-ebeln,
        ebelp LIKE mseg-ebelp,
        erfmg LIKE mseg-erfmg,
        erfme LIKE mseg-erfme,
        dmbtr LIKE mseg-dmbtr,
        lifnr LIKE mseg-lifnr,
        mblnr LIKE mkpf-mblnr,
        budat LIKE mkpf-budat,
        maktx LIKE makt-maktx,
        aedat LIKE ekko-aedat,
    END OF itab1.
DATA : itab TYPE STANDARD TABLE OF itab1 WITH HEADER LINE.
DATA : BEGIN OF itab3 OCCURS 0,
       ebeln LIKE ekbe-ebeln,
       ebelp LIKE ekbe-ebelp,
       matnr LIKE ekbe-matnr,
    END OF itab3.
**--ALV DECLERATION--
DATA : w_container TYPE scrfname VALUE 'CL_GRID',
       w_cprog TYPE lvc_s_layo,
       g_repid LIKE sy-repid,
       w_save TYPE c,
       w_exit TYPE c,
       cl_grid TYPE REF TO cl_gui_alv_grid,
       cl_custom_container TYPE REF TO cl_gui_custom_container,
       it_fld_catalog TYPE slis_t_fieldcat_alv,
       wa_fld_catalog TYPE slis_t_fieldcat_alv WITH HEADER LINE ,
       layout TYPE slis_layout_alv,
       col_pos  LIKE sy-cucol ,
       alvfc TYPE slis_t_fieldcat_alv.
***-- SELECTION-SCREEN--
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : ebeln FOR mseg-ebeln,
                 lifnr FOR mseg-lifnr,
                 budat FOR mkpf-budat,
                 matnr FOR mseg-matnr,
                 werks FOR mseg-werks.
SELECTION-SCREEN : END OF BLOCK b1.
PERFORM fill_catalog1 USING:
'MATNR'    'ITAB'    'Material',
'MAKTX'    'ITAB'    'Description',
'WERKS'    'ITAB'    'Plant',
*'MBLNR'    'ITAB'    'Mat Document No.',
'EBELN'    'ITAB'    'Purchase Order',
*'EBELP'    'ITAB'    'Item',
'AEDAT'    'ITAB'    'P.O. Date',
*'ERFMG'    'ITAB'    'Quantity',
*'ERFME'    'ITAB'    'Unit',
'DMBTR'    'ITAB'    'Amount',
'LIFNR'    'ITAB'    'Vendor'.
SELECT m1matnr m1werks m1ebeln m1ebelp m1erfmg m1erfme m1dmbtr m1lifnr m2mblnr m2budat
                                           INTO TABLE itab FROM mseg AS m1 INNER JOIN mkpf AS m2 ON m2mblnr = m1mblnr
                                           WHERE m1~ebeln IN ebeln
                                           AND m1~lifnr IN lifnr
                                           AND m2~budat IN budat
                                           AND m1~matnr IN matnr
                                           AND m1~werks IN werks
                                           AND m1~bwart = '105'.
IF sy-subrc <> 0.
  MESSAGE 'Data Not Found' TYPE 'I'.
ENDIF.
SORT itab BY ebeln.
LOOP AT itab.
  SELECT ebeln ebelp matnr FROM ekbe INTO TABLE itab3 WHERE ebeln = itab-ebeln
                                                         AND ebelp = itab-ebelp
                                                         AND matnr = itab-matnr
                                                            and vgabe = '1'
                                                         AND vgabe EQ '2'
                                                         AND bwart EQ ''.
  IF sy-subrc EQ 0.
    DELETE itab.
    CONTINUE.
  ELSE.
    SELECT SINGLE maktx INTO itab-maktx FROM makt WHERE matnr = itab-matnr.
    select single aedat into itab-aedat from ekko where ebeln = itab-ebeln.
    MODIFY itab INDEX sy-tabix TRANSPORTING maktx aedat.
  ENDIF.
ENDLOOP.
layout-colwidth_optimize = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
   i_callback_program                = 'ZMAT_LIST'
   it_fieldcat                       = it_fld_catalog
   i_default                         = 'X'
   i_save                            = 'A'
IMPORTING
  E_EXIT_CAUSED_BY_CALLER           =
  ES_EXIT_CAUSED_BY_USER            =
  TABLES
    t_outtab                          = itab
EXCEPTIONS
  PROGRAM_ERROR                     = 1
  OTHERS                            = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*&      Form  FILL_CATALOG1
      text
FORM fill_catalog1  USING   p_fieldname TYPE any
                            p_ref_table TYPE any
                            p_scrtext   TYPE any.
  CLEAR : wa_fld_catalog.
  wa_fld_catalog-fieldname  = p_fieldname.
  wa_fld_catalog-tabname    = p_ref_table.
  wa_fld_catalog-seltext_s  = p_scrtext.
  wa_fld_catalog-seltext_m  = p_scrtext.
  wa_fld_catalog-seltext_l  = p_scrtext.
  APPEND wa_fld_catalog TO it_fld_catalog.
ENDFORM.                    " fill_catalog1
Regards.