OUTSTANDING PO QTY AND OUTSTANDING PO VALUE

Question

Hi
    I am in need of report to print outstanding po qty and outstanding po value.
could any one please give me the source code..
Its very urgent.....
               Thanks in advance

Answer 1

Please find this report for Outstanding PO's
report zaprropo message-id zm no standard page heading line-size 212
                                                       line-count 65.
**** TABLES------------------------------------------------------------*
tables:
      ekko,                            " Purchasing Document Header
      ekpo,                            " Purchasing Document Item
      ekbe,                            " History of PurchasingDocument
      essr.                            " Service Entry Sheet HeaderData
**** DATA--------------------------------------------------------------*
data  : begin of it_ekko occurs 0,
         ebeln like ekko-ebeln,
         ernam like ekko-ernam,
         ekgrp like ekko-ekgrp,
         bedat like ekko-bedat,
       end of it_ekko.
data  : begin of it_ekbe_gr occurs 0,
          ebeln like ekbe-ebeln,
          ebelp like ekbe-ebelp,
          bewtp like ekbe-bewtp,
          dmbtr like ekbe-dmbtr,
        end of it_ekbe_gr.
data  : begin of it_ekbe_ir occurs 0,
          ebeln like ekbe-ebeln,
          ebelp like ekbe-ebelp,
*          bewtp LIKE ekbe-bewtp,
          dmbtr like ekbe-dmbtr,
        end of it_ekbe_ir.
data  : begin of it_output occurs 0,
          ekgrp like ekko-ekgrp,
          ebeln like ekko-ebeln,
          ebelp like ekpo-ebelp,
          ernam like ekko-ernam,
          afnam like ekpo-afnam,
          bedat like ekko-bedat,
          txz01 like ekpo-txz01,
*          bewtp LIKE ekbe-bewtp,
          netwr like ekpo-netwr,
          dmbtr like ekbe-dmbtr,
          iramt like ekbe-dmbtr,
          outst like ekpo-netwr,
          eindt like eket-eindt,
*          effwr LIKE ekpo-effwr,
        end of it_output.
data  :  begin of it_title occurs 0,
           h11(5),
           h0(5),
           h1(13),
           h2(7),
           h3(15),
           h4(15),
           h5(10),
           h6(40),
           h7(20),
           h8(20),
           h9(20),
           h10(20),
           h12(10),
         end of it_title.
data : flength.
data : s_no type i value 1.
* ---- Added by Gopi
* Internal table for PO / WO Delivery Date
data : begin of it_eket occurs 0,
         ebeln like eket-ebeln,
         ebelp like eket-ebelp,
         eindt like eket-eindt,
       end of it_eket.
***** selections
selection-screen : skip.
selection-screen : begin of block block1 with frame title text-001.
parameters : s_bukrs like ekko-bukrs.
select-options :  s_ebeln for ekko-ebeln,
                  s_bedat for ekko-bedat,
                  s_ekgrp for ekko-ekgrp.
*                  s_hdg   for ekko-ekgrp.
selection-screen : end of block block1.
selection-screen begin of block btch with frame title text-003.
parameters: excel as checkbox,
            file(128) type c.
selection-screen end of block btch.
selection-screen begin of block block2 with frame title text-002.
parameters: asat as checkbox,
            p_date like sy-datum.
selection-screen end of block block2.
*---------AT SELECTION-SCREEN------------------------------------------*
at selection-screen.
at selection-screen on value-request for file.
  perform get_file_name using file.
**** main program code**************************************************
start-of-selection.
  it_title-h11 = 'S.No'.
  it_title-h0  = 'Group'.
  it_title-h1  = 'PO Number'.
  it_title-h2  = 'PO Item'.
  it_title-h3  = 'PO Creator'.
  it_title-h4  = 'Requisitor'.
  it_title-h5  = 'PO Date'.
  it_title-h6  = 'PO Short Text'.
  it_title-h7  = 'PO Amount'.
  it_title-h8  = 'GR/SE Amount'.
  it_title-h9  = 'IR Amount'.
  it_title-h10 = 'Outstanding'.
  it_title-h12 = 'Del. Date'.
  append it_title.
  perform extract_po_details_new.                           "20070814
  perform extract_po_history_new.                           "20070814
  perform calculate_outstanding_new.                        "20070814
end-of-selection.
  perform display_report.
  if excel = 'X'.
    perform download.
  endif.
* ---- Added by Gopi
top-of-page.
  perform page_heading.
*************************** display_report ****************************
form display_report.
*  it_title-h11 = 'S.No'.
*  it_title-h0  = 'Group'.
*  it_title-h1  = 'PO Number'.
*  it_title-h2  = 'PO Item'.
*  it_title-h3  = 'PO Creator'.
*  it_title-h4  = 'Requisitor'.
*  it_title-h5  = 'PO Date'.
*  it_title-h6  = 'PO Short Text'.
*  it_title-h7  = 'PO Amount'.
*  it_title-h8  = 'GR/SE Amount'.
*  it_title-h9  = 'IR Amount'.
*  it_title-h10 = 'Outstanding'.
*  it_title-h12 = 'Del Date'.
*  APPEND it_title.
*  WRITE : / 'Outstanding PO Listing Report'.
*  ULINE.
*  FORMAT COLOR COL_HEADING.
*  WRITE : /1   it_title-h11,
*           7   it_title-h0,
*           14  it_title-h1,
*           29  it_title-h2,
*           38  it_title-h3,
*           53  it_title-h4,
*           68  it_title-h5,
*           79  it_title-h6,
*           122 it_title-h7,
*           142 it_title-h8,
*           162 it_title-h9,
*           182 it_title-h10,
*           202 it_title-h12.
*  FORMAT COLOR OFF.
*  ULINE.
* If Output table is not empty
  if not it_output[] is initial.
    loop at it_output.
      on change of it_output-ebeln.
        uline.
        write : /1(5)  s_no, 6 sy-vline,
                 7  it_output-ekgrp,
                14  it_output-ebeln,
                29  it_output-ebelp,
                38  it_output-ernam,
                53  it_output-afnam,
                68  it_output-bedat,
                79  it_output-txz01,
                122 it_output-netwr,
                142 it_output-dmbtr,
                162 it_output-iramt,
                182 it_output-outst,
                202 it_output-eindt.
        s_no = s_no + 1.
      else.
        write :/6 sy-vline,
                29  it_output-ebelp,
                38  it_output-ernam,
                53  it_output-afnam,
                68  it_output-bedat,
                79  it_output-txz01,
                122 it_output-netwr,
                142 it_output-dmbtr,
                162 it_output-iramt,
                182 it_output-outst,
                202 it_output-eindt.
      endon.
*      WRITE :/6 sy-vline.
      clear : it_output.
    endloop.
  else.
* If Output table is empty
    format color 5 intensified on.
   write : / 'No outstanding report generated for the purchasing group'
              ,s_ekgrp-low, 'to', s_ekgrp-high,'for the period'
              ,s_bedat-low, 'to', s_bedat-high.
    format color off.
  endif.
endform.
**************************** download*********************************
form download.
  data: begin of it_download_header occurs 1,
           h0(5),
           h1(13),
           h2(7),
           h3(15),
           h4(15),
           h5(10),
           h6(40),
           h7(20),
           h8(20),
           h9(20),
           h10(20),
           h12(10).
  data: end of it_download_header.
  it_download_header-h0  = 'Group'.
  it_download_header-h1  = 'PO Number'.
  it_download_header-h2  = 'PO Item'.
  it_download_header-h3  = 'PO Creator'.
  it_download_header-h4  = 'Requisitor'.
  it_download_header-h5  = 'PO Date'.
  it_download_header-h6  = 'PO Short Text'.
  it_download_header-h7  = 'PO Amount'.
  it_download_header-h8  = 'GR/SE Amount'.
  it_download_header-h9  = 'IR Amount'.
  it_download_header-h10 = 'Outstanding'.
  it_download_header-h12 = 'Del. Date'.
  append it_download_header.
  call function 'WS_DOWNLOAD'
       exporting
            codepage            = 'IBM'
            filename            = file
            filetype            = 'DAT'
       importing
            filelength          = flength
       tables
            data_tab            = it_download_header
       exceptions
            file_open_error     = 1
            file_write_error    = 2
            invalid_filesize    = 3
            invalid_table_width = 4
            invalid_type        = 5.
  call function 'WS_DOWNLOAD'
       exporting
            codepage            = 'IBM'
            filename            = file
            filetype            = 'DAT'
            mode                = 'A'
       importing
            filelength          = flength
       tables
            data_tab            = it_output
       exceptions
            file_open_error     = 1
            file_write_error    = 2
            invalid_filesize    = 3
            invalid_table_width = 4
            invalid_type        = 5.
  if sy-subrc ne 0.
    message e999 with 'error downloading file :' file.
  endif.
endform.
*&      Form  get_file_name
*       text
*      -->P_P_FNAME  text
form get_file_name using    p_fname.
  call function 'WS_FILENAME_GET'
       exporting
            def_filename     = p_fname
            mask             = ',*.*,*.*.'
            mode             = 'S'
       importing
            filename         = p_fname
       exceptions
            inv_winsys       = 1
            no_batch         = 2
            selection_cancel = 3
            selection_error  = 4
            others           = 5.
endform.                    " get_file_name
*&      Form  page_heading
*       text
*  -->  p1        text
*  <--  p2        text
form page_heading.
*  it_title-h11 = 'S.No'.
*  it_title-h0  = 'Group'.
*  it_title-h1  = 'PO Number'.
*  it_title-h2  = 'PO Item'.
*  it_title-h3  = 'PO Creator'.
*  it_title-h4  = 'Requisitor'.
*  it_title-h5  = 'PO Date'.
*  it_title-h6  = 'PO Short Text'.
*  it_title-h7  = 'PO Amount'.
*  it_title-h8  = 'GR/SE Amount'.
*  it_title-h9  = 'IR Amount'.
*  it_title-h10 = 'Outstanding'.
*  it_title-h12 = 'Del. Date'.
*  APPEND it_title.
  write : / 'Outstanding PO Listing Report'.
  uline.
  format color col_heading.
  write : /1   it_title-h11,
       7   it_title-h0,
       14  it_title-h1,
       29  it_title-h2,
       38  it_title-h3,
       53  it_title-h4,
       68  it_title-h5,
       79  it_title-h6,
       122 it_title-h7,
       142 it_title-h8,
       162 it_title-h9,
       182 it_title-h10,
       202 it_title-h12.
  format color off.
  uline.
endform.                    " page_heading
*&      Form  EXTRACT_PO_DETAILS_NEW
*       text
*  -->  p1        text
*  <--  p2        text
form extract_po_details_new.
  data: begin of it_po occurs 0,
    ebeln like ekko-ebeln,
    ebelp like ekpo-ebelp,
    ernam like ekko-ernam,
    ekgrp like ekko-ekgrp,
    bedat like ekko-bedat,
    txz01 like ekpo-txz01,
    netwr like ekpo-netwr,
    afnam like ekpo-afnam,
    effwr like ekpo-effwr.
  data: end of it_po.
  refresh it_output.
  if not p_date is initial.
    select a~ebeln b~ebelp a~ernam a~ekgrp a~bedat b~txz01 b~netwr
       b~afnam b~effwr
    into corresponding fields of table it_po
    from ekpo as b inner join ekko as a
    on b~ebeln = a~ebeln
    where a~bukrs = s_bukrs  and
        a~aedat le p_date  and
        a~ebeln in s_ebeln and
        a~bedat in s_bedat and
        a~ekgrp in s_ekgrp and
        a~frgke ne 'E'     and
        b~loekz not in ('L', 'S', 'X').
  else.
    select a~ebeln b~ebelp a~ernam a~ekgrp a~bedat b~txz01 b~netwr
       b~afnam b~effwr
    into corresponding fields of table it_po
    from ekpo as b inner join ekko as a
    on b~ebeln = a~ebeln
    where a~bukrs = s_bukrs  and
        a~ebeln in s_ebeln and
        a~bedat in s_bedat and
        a~ekgrp in s_ekgrp and
        a~frgke ne 'E'     and
        b~loekz not in ('L', 'S', 'X').
  endif.
  sort it_po by ebeln ebelp.
  delete adjacent duplicates from it_po.
  delete it_po where ekgrp eq 'HDB' and ebelp eq 10.    "20070814
  delete it_po where ebeln+0(1) eq '6'.
  loop at it_po.
    move-corresponding it_po to it_output.
    append it_output.
    clear it_output.
  endloop.
  refresh it_po.
  free it_po.
endform.                    " EXTRACT_PO_DETAILS_NEW
*&      Form  EXTRACT_PO_HISTORY_NEW
*       text
*  -->  p1        text
*  <--  p2        text
form extract_po_history_new.
  data: begin of it_ekbe occurs 2000,
          ebeln like ekbe-ebeln,
          ebelp like ekbe-ebelp,
          bewtp like ekbe-bewtp,
          shkzg like ekbe-shkzg,
          dmbtr like ekbe-dmbtr.
  data: end of it_ekbe.
  check not it_output[] is initial.
  select * into corresponding fields of table it_ekbe
    from ekbe for all entries in it_output
    where ebeln = it_output-ebeln and
          ebelp = it_output-ebelp and
          bewtp in ('E', 'N', 'Q', 'R', 'X').
  loop at it_ekbe.
    if it_ekbe-bewtp = 'E'.          "GET GR AMT
      move it_ekbe-ebeln to it_ekbe_gr-ebeln.
      move it_ekbe-ebelp to it_ekbe_gr-ebelp.
      move it_ekbe-bewtp to it_ekbe_gr-bewtp.
      if it_ekbe-shkzg = 'H'.
        it_ekbe_gr-dmbtr = it_ekbe-dmbtr * ( -1 ).
      else.
        it_ekbe_gr-dmbtr = it_ekbe-dmbtr.
      endif.
      collect it_ekbe_gr.
    else.                              "GET IR AMT
*    ELSEIF IT_EKBE-BEWTP = 'N' OR     "GET IR AMT
*           IT_EKBE-BEWTP = 'Q' OR
*           IT_EKBE-BEWTP = 'R' OR
*           IT_EKBE-BEWTP = 'X'.
      move it_ekbe-ebeln to it_ekbe_ir-ebeln.
      move it_ekbe-ebelp to it_ekbe_ir-ebelp.
      if it_ekbe-shkzg = 'H'.
        it_ekbe_ir-dmbtr = it_ekbe-dmbtr * ( -1 ).
      else.
        it_ekbe_ir-dmbtr = it_ekbe-dmbtr.
      endif.
      collect it_ekbe_ir.
    endif.
  endloop.
  refresh it_ekbe.
  free it_ekbe.
endform.                    " EXTRACT_PO_HISTORY_NEW
*&      Form  CALCULATE_OUTSTANDING_NEW
*       text
*  -->  p1        text
*  <--  p2        text
form calculate_outstanding_new.
*  DATA: BEGIN OF IT_EKET OCCURS 10000,
*          EBELN LIKE EKET-EBELN,
*          EBELP LIKE EKET-EBELP,
*          EINDT LIKE EKET-EINDT.
*  DATA: END OF IT_EKET.
  sort: it_ekbe_gr, it_ekbe_ir.
  sort it_output by ebeln ebelp.
  loop at it_output.
    read table it_ekbe_gr with key ebeln = it_output-ebeln
                                   ebelp = it_output-ebelp.
    if sy-subrc = 0.
      move it_ekbe_gr-dmbtr to it_output-dmbtr.
    endif.
    read table it_ekbe_ir with key ebeln = it_output-ebeln
                                   ebelp = it_output-ebelp.
    if sy-subrc = 0.
      move it_ekbe_ir-dmbtr to it_output-iramt.
    endif.
    if it_output-iramt gt it_output-netwr.
      delete it_output. " where iramt gt it_output-netwr.
      clear : it_output.
      continue.
    endif.
    if it_output-ekgrp eq 'HDB'.
      if it_output-netwr = it_output-iramt.
        delete it_output.
        clear it_output.
      else.
        it_output-outst = it_output-netwr - it_output-iramt.
        modify it_output.
      endif.
    else.
      if it_output-netwr = it_output-dmbtr.
        if it_output-dmbtr = it_output-iramt.
          delete it_output.
          clear it_output.
        else.
          it_output-outst = it_output-netwr - it_output-iramt.
          modify it_output.
        endif.
      else.
        if it_output-netwr = it_output-iramt.
          delete it_output.
          clear it_output.
        else.
          it_output-outst = it_output-netwr - it_output-iramt.
          modify it_output.
        endif.
      endif.
    endif.
  endloop.
  sort it_output by ebeln ebelp.
  check not it_output[] is initial.
  select * into corresponding fields of table it_eket
    from eket for all entries in it_output
    where ebeln = it_output-ebeln and
          ebelp = it_output-ebelp.
  sort it_eket by ebeln ebelp.
  loop at it_output.
    read table it_eket with key ebeln = it_output-ebeln
                                ebelp = it_output-ebelp.
    if sy-subrc = 0.
      it_output-eindt = it_eket-eindt.
    else.
      clear it_output-eindt.
    endif.
    modify it_output.
  endloop.
  sort it_output by ekgrp ebeln ebelp.
endform.                    " CALCULATE_OUTSTANDING_NEW
Regards
Gopi