Change the PO amount to PO value

Question

HI ABAP expert,
Sorry because i'm not expert in ABAP. I got this ABAP program for Open PO in SDN,
can anyone help me to change the
> PO Amount change to PO Value
> GR/SE Amount Change to GR Value
> IR AMount Change to IR Value
> Outstanding change to Value Outstanding
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 aebeln bebelp aernam aekgrp abedat btxz01 b~netwr
       bafnam beffwr
    into corresponding fields of table it_po
    from ekpo as b inner join ekko as a
    on bebeln = aebeln
    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 aebeln bebelp aernam aekgrp abedat btxz01 b~netwr
       bafnam beffwr
    into corresponding fields of table it_po
    from ekpo as b inner join ekko as a
    on bebeln = aebeln
    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

Answer 1

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 value'.
it_title-h8 = 'GR/SE Amount'.
it_title-h9 = 'IR value'.
it_title-h10 = 'value 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 value'.
it_title-h8 = 'GR value'.
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 value'.
it_download_header-h9 = 'IR value'.
it_download_header-h10 = ' value 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 value '.
it_title-h9 = 'IR value'.
it_title-h10 = 'value 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 aebeln bebelp aernam aekgrp abedat btxz01 b~netwr
bafnam beffwr
into corresponding fields of table it_po
from ekpo as b inner join ekko as a
on bebeln = aebeln
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 aebeln bebelp aernam aekgrp abedat btxz01 b~netwr
bafnam beffwr
into corresponding fields of table it_po
from ekpo as b inner join ekko as a
on bebeln = aebeln
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