Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

Change the PO amount to PO value

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

Tags:
Former Member
replied

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

0 View this answer in context
Not what you were looking for? View more on this topic or Ask a question