OUTFLOW_SUMMARY

*&---------------------------------------------------------------------*
*& Report ZVVF_FIRO_OUTFLOW_SUMMARY *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

*----------------------------------------------------------*
* Program : ZMIL0FIRO_OUTFLOW_SUMMARY
* Author: Glenn F
* Date: 07-Nov-2002
*----------------------------------------------------------*
REPORT ZVVF_FIRO_OUTFLOW_SUMMARY
no standard page heading
line-size 1023
line-count 59(2).

tables: lfa1, skat, payr, bseg.

select-options: s_hkont for bseg-hkont, " GL account
s_valut for bseg-valut obligatory, " Payement Date
s_gjahr for bseg-gjahr no-extension
no intervals obligatory. " Year Code

parameters: p_bukrs like bseg-bukrs
default 'VVF' obligatory. " Comp Code

*--- Amit Gore --- Table Maintainance for Cash Mgmt Group
selection-screen: skip,
begin of block b1 with frame title text-003,
pushbutton /15(20) text-001 user-command onetime,
pushbutton 40(20) text-002 user-command glaccount,
end of block b1.

data: begin of raw_itab occurs 0,
bukrs like bseg-bukrs,
gjahr like bseg-gjahr,
belnr like bseg-belnr, " Voucher doc no.
hkont like bseg-hkont, " G/L account No.
shkzg like bseg-shkzg, " Debit Credit Flag
" dmbtr like bseg-dmbtr, " Value
dmbtr type f,
sgtxt like bseg-sgtxt, " Description (Not used)
chect like payr-chect, " Cheque No
rzawe like payr-rzawe, " Payement Mode
" rwbtr like payr-rwbtr, " Value
rwbtr type f,
znme1 like payr-znme1, " Description
lifnr like bseg-lifnr, " Vendor code
txt50 like skat-txt50, " G/L account description
b_hkont like bseg-hkont, " Base G/L account No
name1 like lfa1-name1, " Vendor Description
zlsch like bseg-zlsch, " Payment Type
kunnr like bseg-kunnr, " Customer code
c_name1 like kna1-name1, " Customer Name
fdgrv like knb1-fdgrv,
cmgt_text like t036t-ltext, " Cash management text
end of raw_itab.

data: begin of i_hkont occurs 0,
hkont like bseg-hkont,
contr type i,
end of i_hkont.

data: cntr type i value -1, " Counter
coln type i value 1, " Column variable for cross-tab
v_dmbtr type f, " Value for the document
v_toggle type i value 0,
account_total type f. " Total for the account.

data: begin of i_glname occurs 0,
txt50 like skat-txt50,
contr type i,
end of i_glname.

data: begin of i_belnr occurs 0,
bukrs like bseg-bukrs,
gjahr like bseg-gjahr,
belnr like bseg-belnr,
hkont like bseg-hkont,
end of i_belnr.

*-- Customer Cash management group
data: begin of *knb1 occurs 0,
kunnr like knb1-kunnr,
fdgrv like knb1-fdgrv,
ebene like t036t-ebene,
ltext like t036t-ltext,
end of *knb1.

data: begin of *t036t occurs 0,
ebene like t036t-ebene,
ltext like t036t-ltext,
end of *t036t.

*-- Vendor Cash management group
data: begin of *lfb1 occurs 0,
lifnr like lfb1-lifnr,
fdgrv like lfb1-fdgrv,
grupp like t035t-grupp,
textl like t035t-textl,
end of *lfb1.

data: begin of *t035t occurs 0,
grupp like t035t-grupp,
textl like t035t-textl,
end of *t035t.

data: begin of fdgrv_itab occurs 0,
fdgrv like knb1-fdgrv,
cmgt_text like t036t-ltext,
hkont like bseg-hkont,
dmbtr like bseg-dmbtr,
end of fdgrv_itab.

*--
data: begin of ifdgrv occurs 0,
fdgrv like knb1-fdgrv,
cmgt_text like t036t-ltext,
end of ifdgrv.

*--------------------------------------
* One Time Vendor Cash Management Group --- Amit Gore
*--------------------------------------
data: begin of i_one_time_vendor occurs 0,
lifnr like zfi_onetime_cash-lifnr, " One Time Vendor A/c
fdgrv like zfi_onetime_cash-fdgrv, " Planning Group
grupp like t035t-grupp, " Planning group
textl like t035t-textl, " Planning Group Texts
end of i_one_time_vendor.

*-------------------------------------------------------
* Cash Mgmt. Group Text (Used only for one time vendors) --- Amit Gore
*-------------------------------------------------------
data: begin of i_t035t occurs 0,
grupp like t035t-grupp,
textl like t035t-textl,
end of i_t035t.

*----------------------------------
* G/L Account Cash Management Group --- Amit Gore
*----------------------------------
data: begin of i_glaccount occurs 0,
saknr like zfi_gl_cashmgmt-saknr,
fdgrv like zfi_gl_cashmgmt-fdgrv, " Planning Group
grupp like t035t-grupp, " Planning group
textl like t035t-textl, " Planning Group Texts
end of i_glaccount.

*--------------------------------------------------------
* Cash Mgmt. Group Text (Used onmly for one time vendors) --- Amit Gore
*--------------------------------------------------------
data: begin of i_t035t_gl occurs 0,
grupp like t035t-grupp,
textl like t035t-textl,
end of i_t035t_gl.

*-- Glenn
data: v_text(50) type c,
v_total type f.
*---------------*
initialization.
*---------------*
data: v_gjahr like bkpf-gjahr.
if sy-datum+4(2) < '04'.
v_gjahr = sy-datum+0(4) - 1.
else.
v_gjahr = sy-datum+0(4).
endif.

s_gjahr-sign = 'I'.
s_gjahr-option = 'EQ'.
s_gjahr-low = v_gjahr.
append s_gjahr.
clear s_gjahr.


data: begin of i_temp occurs 0,
bukrs like bkpf-bukrs,
gjahr like bkpf-gjahr,
belnr like bkpf-belnr,
end of i_temp.

*-------------------
at selection-screen.
*-------------------
*--- Call transaction for table maintainance
case sy-ucomm.
when 'ONETIME'.
call transaction 'ZFI_ONETIME_CASH'.
when 'GLACCOUNT'.
call transaction 'ZFI_GL_CASH_MGMT'.
endcase.

*---------------*
start-of-selection.
*---------------*

*
*select belnr hkont into table i_belnr
* from bseg
* where valut in s_valut
* and hkont in s_hkont
* and bukrs = p_bukrs.
*
* Bijoy - 27Sep2001
* Document type condition added - Ignore F1 Documents

select
belnr
bukrs
gjahr
into
corresponding fields of
table i_temp
from bkpf
where cpudt in s_valut
and bukrs = p_bukrs
and gjahr in s_gjahr
and blart not in ('F1') .

if i_temp[] is initial.
message 'No data found for the selection' TYPE 'E'.
exit.
endif.

select bukrs gjahr
belnr hkont into
corresponding fields of table i_belnr
from bseg
for all entries in i_temp
where hkont in s_hkont
and bukrs = i_temp-bukrs
and belnr = i_temp-belnr
and gjahr = i_temp-gjahr.


sort i_belnr by bukrs gjahr belnr hkont.
delete adjacent duplicates from i_belnr
comparing bukrs gjahr belnr hkont.

loop at i_belnr.

select bukrs gjahr
belnr hkont dmbtr sgtxt shkzg lifnr zlsch kunnr
into corresponding fields of raw_itab
from bseg
where bukrs = i_belnr-bukrs
and belnr = i_belnr-belnr
and hkont ne i_belnr-hkont
and gjahr = i_belnr-gjahr.

raw_itab-b_hkont = i_belnr-hkont.

append raw_itab.

endselect.

endloop.

*--- Get Cash management group of all customers/Vendor
perform get_cash_manage.



sort raw_itab by belnr.

loop at raw_itab.

*--- Update the cash management text
if raw_itab-lifnr ne space.
read table *lfb1 with key lifnr = raw_itab-lifnr.
if sy-subrc eq 0.
raw_itab-fdgrv = *lfb1-fdgrv.
raw_itab-cmgt_text = *lfb1-textl.
endif.
*--- One Time Vendor
read table i_one_time_vendor with key lifnr = raw_itab-lifnr.
if sy-subrc = 0.
raw_itab-fdgrv = i_one_time_vendor-fdgrv.
raw_itab-cmgt_text = i_one_time_vendor-textl.
endif.
endif.

if raw_itab-kunnr ne space.
read table *knb1 with key kunnr = raw_itab-kunnr.
if sy-subrc eq 0.
raw_itab-fdgrv = *knb1-fdgrv.
raw_itab-cmgt_text = *knb1-ltext.
endif.
endif.

*--- G/L Account
if raw_itab-fdgrv = space.
read table i_glaccount with key saknr = raw_itab-hkont.
if sy-subrc = 0.
raw_itab-fdgrv = i_glaccount-fdgrv.
raw_itab-cmgt_text = i_glaccount-textl.
endif.
endif.

select chect rwbtr znme1 rzawe
into corresponding fields of raw_itab
from payr where zbukr = raw_itab-bukrs
and vblnr = raw_itab-belnr
and ubhkt = raw_itab-b_hkont
and gjahr = raw_itab-gjahr.

endselect.

select txt50 into raw_itab-txt50
from skat
where saknr = raw_itab-hkont.

endselect.

clear raw_itab-name1.

select name1 into raw_itab-name1
from lfa1
where lifnr = raw_itab-lifnr.

endselect.

clear raw_itab-c_name1.

select name1 into raw_itab-name1
from kna1
where kunnr = raw_itab-kunnr.

endselect.

modify raw_itab.

i_hkont-hkont = raw_itab-b_hkont.
append i_hkont.

endloop.

sort i_hkont by hkont.
delete adjacent duplicates from i_hkont comparing hkont.

loop at i_hkont.
i_hkont-contr = cntr + 1.
modify i_hkont.
cntr = cntr + 1.
endloop.

sort i_hkont by hkont.

*-- Summary Report
perform convert_to_summary.

*-- Displaying the totals
perform total_data.

top-of-page.
if sy-pagno = 1.
format reset.
write:/4 'User Id :'.
write:20 sy-uname.

write: 40 'Date :'.
write: 55 sy-datum .

write :/4 'From Date :'.
write :20 s_valut-low .

write :40 'To Date :'.
write :55 s_valut-high.

write :/4 'From G/L Ac:'.
write :20 s_hkont-low.

write :40 'To G/L Ac :'.
write :55 s_hkont-high.
endif.
skip 1.
perform header_data.

end-of-page.
format reset.
write:/ sy-uline.
write:/240 'Page No.:', sy-pagno.

*---------------------------------------------------------------------*
* FORM header_data *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
form header_data.

*-- Display Summary Header
format color col_heading.
write:/ sy-uline.
write:/ sy-vline.
write:2 'Cash Management Group'.
write:37 sy-vline.
write:38(20) 'Total'.
write:59 sy-vline.

loop at i_hkont.
coln = 0.
coln = ( 21 * i_hkont-contr ) + 60.
write at coln i_hkont-hkont.
coln = coln + 20.
write at coln sy-vline.

select single txt50
into i_glname-txt50
from skat where saknr = i_hkont-hkont.

i_glname-contr = i_hkont-contr.
append i_glname.


endloop.
write:/ sy-vline.
write:37 sy-vline.
write:59 sy-vline.

loop at i_glname.
coln = 0.
coln = ( 21 * i_glname-contr ) + 60.
write at coln i_glname-txt50+0(20).
coln = coln + 20.
write at coln sy-vline.
endloop.

write:/ sy-uline.
format reset.
endform.

*---------------------------------------------------------------------*
* FORM total_data *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
form total_data.
format reset.
format color col_total.
* WRITE:/.
write:/ sy-uline.
* WRITE:/.
write:/01 sy-vline.
write:02 'Total'.
write:37 sy-vline.
write:59 sy-vline.

loop at i_hkont.
account_total = 0.
loop at raw_itab where b_hkont = i_hkont-hkont.
if raw_itab-shkzg = 'H'. " Credit
* account_total = account_total + ( -1 * ( raw_itab-dmbtr / 100 )"-
*). "-
account_total = account_total + ( -1 * ( raw_itab-dmbtr ) ). "+
else.
* account_total = account_total + ( raw_itab-dmbtr / 100 ). "-
account_total = account_total + ( raw_itab-dmbtr ). "+
endif.
endloop.

coln = 0.
coln = ( 21 * i_hkont-contr ) + 60.
write at coln(20) account_total decimals 2 exponent 0
right-justified.
coln = coln + 20.
write at coln sy-vline.

v_total = v_total + account_total.
endloop.
write at 38(20) v_total decimals 2 exponent 0 right-justified.
clear v_total.
write:/ sy-uline.
format reset.
endform.

*-----Get cash management group
*-----------------------*
form get_cash_manage.
*-----------------------*
*******------------------- CUSTOMER
* Query for Cash management for each customer

select kunnr
fdgrv
fdgrv as ebene
into corresponding
fields of table *knb1
from knb1
for all entries in raw_itab
where kunnr = raw_itab-kunnr.

* Get Customer group wise description
select ebene
ltext
into corresponding fields of table *t036t
from t036t
for all entries in *knb1
where ebene = *knb1-ebene
and spras = 'EN'.

* Update the description at Customer - Cash Mgmt group level
sort *t036t by ebene.
loop at *knb1.
read table *t036t with key ebene = *knb1-ebene.
if sy-subrc eq 0.
*knb1-ltext = *t036t-ltext.
modify *knb1.
endif.

endloop.

*******------------------- VENDOR
* Query for Cash management for each vendor
select lifnr
fdgrv
fdgrv as grupp
into corresponding
fields of table *lfb1
from lfb1
for all entries in raw_itab
where lifnr = raw_itab-lifnr.

* Get Vendor group wise description
select grupp
textl
into corresponding fields of table *t035t
from t035t
for all entries in *lfb1
where grupp = *lfb1-grupp
and spras = 'EN'.

* Update the description at Vendor - Cash Mgmt group level
sort *t035t by grupp.
loop at *lfb1.
read table *t035t with key grupp = *lfb1-grupp.
if sy-subrc eq 0.
*lfb1-textl = *t035t-textl.
modify *lfb1.
endif.

endloop.

*--- One Time Vendor - Cash Mgmt. Group --- Amit Gore
select lifnr fdgrv fdgrv as grupp
into corresponding fields of table i_one_time_vendor
from zfi_onetime_cash
for all entries in raw_itab
where lifnr = raw_itab-lifnr.

*--- Get Vendor group wise description --- Amit Gore
if not i_one_time_vendor[] is initial.
select grupp textl
into corresponding fields of table i_t035t
from t035t
for all entries in i_one_time_vendor
where spras eq 'EN' and
grupp eq i_one_time_vendor-grupp.
endif.

*--- Update the description at Vendor - Cash Mgmt group level
sort i_t035t by grupp.
loop at i_one_time_vendor.
read table i_t035t with key grupp = i_one_time_vendor-grupp.
if sy-subrc eq 0.
i_one_time_vendor-textl = i_t035t-textl.
modify i_one_time_vendor.
endif.
endloop.

*--- G/L Account - Cash Mgmt. Group
select saknr fdgrv fdgrv as grupp
into corresponding fields of table i_glaccount
from zfi_gl_cashmgmt
for all entries in raw_itab
where saknr = raw_itab-hkont.
*--- Get Vendor group wise description
if not i_glaccount[] is initial.
select grupp textl
into corresponding fields of table i_t035t_gl
from t035t
for all entries in i_glaccount
where spras eq 'EN' and
grupp eq i_glaccount-grupp.
endif.
*--- Update the description at Vendor - Cash Mgmt group level
sort i_t035t_gl by grupp.
loop at i_glaccount.
read table i_t035t_gl with key grupp = i_glaccount-grupp.
if sy-subrc eq 0.
i_glaccount-textl = i_t035t_gl-textl.
modify i_glaccount.
endif.
endloop.


*---- Post fetch sor the Vendor Customer groups
sort: *knb1 by kunnr,
*lfb1 by lifnr,
i_one_time_vendor by lifnr,
i_glaccount by saknr.
endform.

*&---------------------------------------------------------------------*
*& Form CONVERT_TO_SUMMARY
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form convert_to_summary.

*--- Summarize the same
loop at raw_itab.

if raw_itab-fdgrv eq space.
fdgrv_itab-fdgrv = '0'.
ifdgrv-fdgrv = '0'.
else.
fdgrv_itab-fdgrv = raw_itab-fdgrv.
fdgrv_itab-cmgt_text = raw_itab-cmgt_text.
ifdgrv-fdgrv = raw_itab-fdgrv.
ifdgrv-cmgt_text = raw_itab-cmgt_text.
endif.
fdgrv_itab-hkont = raw_itab-b_hkont.
append fdgrv_itab.
append ifdgrv.
endloop.


sort fdgrv_itab by fdgrv hkont.
delete adjacent duplicates from fdgrv_itab comparing fdgrv hkont.

sort ifdgrv by fdgrv.
delete adjacent duplicates from ifdgrv comparing fdgrv.

*--- Cash management + gl account combinations
loop at fdgrv_itab.

*--- Total the corresponding cash management group
clear : fdgrv_itab-dmbtr.
if fdgrv_itab-fdgrv eq '0'.
clear fdgrv_itab-fdgrv.
endif.
loop at raw_itab where fdgrv = fdgrv_itab-fdgrv and
b_hkont = fdgrv_itab-hkont.

if raw_itab-shkzg = 'H'. " Credit

* fdgrv_itab-dmbtr = fdgrv_itab-dmbtr "-
* + ( -1 * ( raw_itab-dmbtr / 100 ) )."-
fdgrv_itab-dmbtr = fdgrv_itab-dmbtr "+
+ ( -1 * ( raw_itab-dmbtr ) ). "+
else.

* fdgrv_itab-dmbtr = fdgrv_itab-dmbtr "-
* + ( raw_itab-dmbtr / 100 ). "-
fdgrv_itab-dmbtr = fdgrv_itab-dmbtr "+
+ ( raw_itab-dmbtr ). "+

endif.

endloop.

if fdgrv_itab-fdgrv eq space.
fdgrv_itab-fdgrv = '0'.
endif.
modify fdgrv_itab.

endloop.

*-- Display summary
loop at ifdgrv.

if v_toggle = 0.
format color col_normal intensified off.
v_toggle = 1.
else.
format color col_normal intensified on.
v_toggle = 0.
endif.

write:/01 sy-vline.
clear v_text.
v_text = ifdgrv-cmgt_text.
if ifdgrv-fdgrv eq '0'.
write:02 ' '.
else.
write:02 ifdgrv-fdgrv, v_text.
endif.
write:37 sy-vline.
write:59 sy-vline.

loop at i_hkont.

read table fdgrv_itab with key fdgrv = ifdgrv-fdgrv
hkont = i_hkont-hkont.
coln = 0.
coln = ( 21 * i_hkont-contr ) + 60.
if sy-subrc = 0.
clear v_dmbtr.
v_dmbtr = fdgrv_itab-dmbtr.
write at coln(20) v_dmbtr decimals 2 exponent 0
right-justified.
v_total = v_total + v_dmbtr.
endif.
coln = coln + 20.
write at coln sy-vline.
endloop.

write at 38(20) v_total decimals 2 exponent 0 right-justified.
clear v_total.
endloop.

endform. " CONVERT_TO_SUMMARY