Change the PO amount to PO value

[former_member229716]

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 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

[Former Member]

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 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