This report is developed for g/l ac balance but it is returning wrong as per std by fagll03
REPORT YCASHB MESSAGE-ID zmsg NOSTANDARDPAGE HEADING LINE-SIZE156
LINE-COUNT60(2).
*-----------------------------------------------------------------------
*TABLES
*-----------------------------------------------------------------------
TABLES : bkpf,bseg,lfa1,T074T,kna1, ZUSERGL.
TYPE-POOLS : slis. "ALV Declarations
*Data Declaration
*-----------------------------------------------------------------------
*INTERNAL TABLES DECLARATION
*-----------------------------------------------------------------------
DATA : BEGINOF wa_t_bkpf ,
bukrs LIKE bkpf-bukrs ,
belnr LIKE bkpf-belnr ,
budat LIKE bkpf-budat ,
bldat LIKE bkpf-bldat ,
blart LIKE bkpf-blart ,
bvorg LIKE bkpf-bvorg ,
gjahr LIKE bkpf-gjahr ,
butxt LIKE t001-butxt ,
select(1),
ENDOF wa_t_bkpf .
TYPES : BEGINOF ty_bseg ,
budat LIKE bkpf-budat , " from BKPF
belnr LIKE bseg-belnr ,
dat(2),
bukrs LIKE bseg-bukrs ,
gjahr LIKE bseg-gjahr ,
BUZEI LIKE BSEG-BUZEI ,
bldat LIKE bkpf-bldat,
blart LIKE bkpf-blart , " From Bkpf
docno(13) TYPEc,
bvorg LIKE bkpf-bvorg , " From BKPF
hkont LIKE bseg-hkont ,
dmbtr LIKE bseg-dmbtr ,
dbtr LIKE bseg-wrbtr ,
cbtr LIKE bseg-wrbtr ,
shkzg LIKE bseg-shkzg ,
butxt LIKE skat-txt50 ,
sgtxt LIKE bseg-sgtxt ,
aufnr LIKE bseg-aufnr ,
kostl LIKE bseg-kostl ,
prctr like bseg-prctr ,
bal type p decimals2,
gsber LIKE bseg-gsber ,
lifnr LIKE bseg-lifnr , "Vendor no
kunnr LIKE bseg-kunnr , "Customer No
anln1 LIKE bseg-anln1 , "Asset No.
KOART LIKE BSEG-KOART , "Account Type
UMSKZ LIKE BSEG-UMSKZ , "SPECIAL G/L INDICATOR
ltext like t074t-ltext, "GL Indicator Text
C_DMBTR LIKE BSEG-DMBTR,
D_DMBTR LIKE BSEG-DMBTR,
ENDOF ty_bseg .
TYPES: BEGINOF ty_itab ,
bukrs LIKE bseg-bukrs,
belnr LIKE bkpf-belnr,
gjahr LIKE bseg-gjahr,
hkont LIKE bseg-hkont,
lifnr LIKE bseg-lifnr,
kunnr LIKE bseg-kunnr,
kostl LIKE bseg-kostl,
dmbtr LIKE bseg-dmbtr,
shkzg LIKE bseg-shkzg,
sgtxt LIKE bseg-sgtxt,
koart like bseg-koart,
umskz like bseg-umskz,
budat like bkpf-budat,
ENDOF ty_itab.
DATA: BEGINOF I_ZUSERPC,
USNAM LIKE ZUSERPC-USNAM,
PRCTR LIKE ZUSERPC-PRCTR,
ENDOF I_ZUSERPC.
DATA : itab TYPESTANDARDTABLEOF ty_itab WITHHEADERLINE.
DATA : itab2 TYPESTANDARDTABLEOF ty_itab WITHHEADERLINE.
DATA : t_bkpf LIKESTANDARDTABLEOF wa_t_bkpf WITHHEADERLINE.
DATA : t_bkpf2 LIKESTANDARDTABLEOF wa_t_bkpf WITHHEADERLINE.
DATA : t_bseg TYPESTANDARDTABLEOF ty_bseg WITHHEADERLINE.
DATA : itab_bseg TYPESTANDARDTABLEOF ty_bseg WITHHEADERLINE.
DATA : it_bseg TYPESTANDARDTABLEOF ty_bseg WITHHEADERLINE.
DATA : I_BSEG TYPESTANDARDTABLEOF ty_bseg WITHHEADERLINE.
DATA : I_BSEG1 TYPESTANDARDTABLEOF ty_bseg WITHHEADERLINE.
DATA : t_bkpf1 LIKESTANDARDTABLEOF wa_t_bkpf WITHHEADERLINE.
DATA : it_bseg2 TYPESTANDARDTABLEOF ty_bseg WITHHEADERLINE.
DATA : I_OUTPUT TYPESTANDARDTABLEOF ty_bseg WITHHEADERLINE.
DATA : txt50 LIKE skat-txt50,
htxt50 LIKE skat-txt50,
v_txt50 LIKE skat-txt50,
balance LIKE bseg-wrbtr,
v_opbalance LIKE bseg-wrbtr,
v_txt like t001-butxt,
V_BALANCE type p decimals2,
V_REC_PER_DAY LIKE BSEG-WRBTR,
V_PAY_PER_DAY LIKE BSEG-WRBTR,
V_SUM_PER_DAY LIKE BSEG-WRBTR ,
V_SUM_PER_MONTH LIKE BSEG-WRBTR ,
V_REC_PER_MONTH LIKE BSEG-WRBTR,
V_PAY_PER_MONTH LIKE BSEG-WRBTR,
V_SUM_PER_AC LIKE BSEG-WRBTR,
V_REC_PER_AC LIKE BSEG-WRBTR,
V_PAY_PER_AC LIKE BSEG-WRBTR,
vouno LIKE BSEG-BELNR,
vodat LIKE BKPF-BUDAT,
v_glind like t074t-ltext,
amt type string,
v_add like t001-ADRNR,
vname1 like adrc-name1,
vname2 like adrc-name2,
V_GJAHR LIKE BSID-GJAHR,
V_MONAT LIKE BSID-MONAT.
*-----------------------------------------------------------------------*
* ALV data declarations
*------------------------------------------------------------------------*
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITHHEADERLINE,
gd_tab_group TYPE slis_t_sp_group_alv,
gd_layout TYPE slis_layout_alv,
gd_repid LIKE sy-repid,
T_EVENTCAT TYPE slis_t_event,
W_EVENTCAT LIKELINEOF T_EVENTCAT.
*-----------------------------------------------------------------------
* SELECTION SCREEN
*-----------------------------------------------------------------------
SELECTION-SCREENBEGINOFBLOCK z1 WITHFRAMETITLEtext-001 .
PARAMETERS : s_bukrs LIKE BSID-BUKRS OBLIGATORY DEFAULT'1100'.
PARAMETERS : p_gjahr LIKE bkpf-gjahr OBLIGATORY .
SELECT-OPTIONS : s_budat FOR bkpf-budat OBLIGATORY.
PARAMETER : s_hkont LIKE bseg-hkont OBLIGATORY MATCHCODE OBJECT sako .
SELECTION-SCREENENDOFBLOCK z1.
START-OF-SELECTION .
*-----------------------------------------------------------------------
SELECTSINGLE txt50 INTO txt50 FROM skat WHERE spras = sy-langu AND saknr = s_hkont AND KTOPL ='SHIV'.
SELECTSINGLE ADRNR FROM t001 into v_add WHERE bukrs = s_bukrs.
SELECTSINGLE NAME1 NAME2 INTO (vname1,vname2) FROM ADRC WHERE ADDRNUMBER = v_add.
PERFORM GET_OPENING_BALANCE.
PERFORM GET_DATA .
PERFORM DISPLAY_DATA .
TOP-OF-PAGE.
PERFORM TOP .
*&---------------------------------------------------------------------*
*& Form GET_OPENING_BALANCE
*&---------------------------------------------------------------------*
FORM GET_OPENING_BALANCE.
CALLFUNCTION'FTI_FISCAL_YEAR_MONTH_GET'
EXPORTING
I_BUKRS = S_BUKRS
I_BUDAT = S_BUDAT-LOW
IMPORTING
E_GJAHR = V_GJAHR
E_MONAT = V_MONAT.
SELECT BUKRS
BELNR
BUDAT
BLDAT
BLART
BVORG
GJAHR
FROM BKPF INTO CORRESPONDING FIELDSOFTABLE T_BKPF1
WHERE BUKRS = S_BUKRS
AND BUDAT LT S_BUDAT-LOW
and gjahr = p_gjahr.
IF T_BKPF1[] ISNOTINITIAL.
SELECT BUKRS
BELNR
GJAHR
AUGBL "CLEARING DOC NO
HKONT "GL A/C
DMBTR
WRBTR
SHKZG
SGTXT
AUFNR "ORDER NO
KOSTL "COST CENTER
GSBER "BUISNESS AREA
LIFNR "CODE
KUNNR "CUSTOMER CODE
ANLN1 "ASSET CODE
PRCTR "PROFIT CENTER
FROM BSEG INTO CORRESPONDING FIELDSOFTABLE I_BSEG
FORALL ENTRIES IN t_bkpf1
WHERE bukrs = t_bkpf1-bukrs
AND GJAHR = t_bkpf1-GJAHR
AND belnr = t_bkpf1-belnr
AND hkont EQ s_hkont.
ENDIF.
LOOPAT I_BSEG.
READTABLE T_BKPF1 WITHKEY BUKRS = I_BSEG-BUKRS
BELNR = I_BSEG-BELNR
GJAHR = I_BSEG-GJAHR .
IF SY-SUBRC = 0.
I_BSEG-BUDAT = T_BKPF1-BUDAT.
MODIFY I_BSEG TRANSPORTING BUDAT.
ENDIF.
ENDLOOP.
DELETE I_BSEG WHERE BUDAT GE S_BUDAT-LOW.
LOOPAT I_BSEG.
IF I_BSEG-SHKZG = 'H'.
I_BSEG-C_DMBTR = I_BSEG-DMBTR * -1 .
V_OPBALANCE = V_OPBALANCE + I_BSEG-C_DMBTR.
ELSE.
I_BSEG-D_DMBTR = I_BSEG-DMBTR.
V_OPBALANCE = V_OPBALANCE + I_BSEG-D_DMBTR.
ENDIF.
MODIFY I_BSEG TRANSPORTING C_DMBTR D_DMBTR.
ENDLOOP.
BALANCE = V_OPBALANCE.
ENDFORM. " GET_OPENING_BALANCE
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
FORM GET_DATA.
SELECT BUKRS
BELNR
BUDAT
BLDAT
BLART
BVORG
GJAHR
FROM bkpf INTO CORRESPONDING FIELDSOFTABLE T_BKPF
WHERE bukrs = s_bukrs
AND gjahr = p_gjahr
AND budat IN s_budat.
SORT T_BKPF by BUDAT.
CHECK T_BKPF[] ISNOTINITIAL.
SELECT BUKRS
BELNR
GJAHR
BUZEI "LINE ITEM
AUGBL "CLEARING DOC NO
HKONT "GL A/C
DMBTR
WRBTR
SHKZG
SGTXT
AUFNR "ORDER NO
KOSTL "COST CENTER
GSBER "BUISNESS AREA
LIFNR "CODE
KUNNR "CUSTOMER CODE
ANLN1 "ASSET CODE
KOART "Account Type
UMSKZ "SPECIAL G/L INDICATOR
FROM BSEG INTO CORRESPONDING FIELDSOFTABLE T_BSEG
FORALL ENTRIES IN T_BKPF
WHERE bukrs = t_bkpf-bukrs
AND belnr = t_bkpf-belnr
AND gjahr = t_bkpf-gjahr
AND hkont EQ s_hkont.
IF T_BSEG[] ISNOTINITIAL.
SELECT BUKRS
BELNR
GJAHR
BUZEI "LINE ITEM
AUGBL "CLEARING DOC NO
HKONT "GL A/C
DMBTR
WRBTR
SHKZG
SGTXT
AUFNR "ORDER NO
KOSTL "COST CENTER
GSBER "BUISNESS AREA
LIFNR "CODE
KUNNR "CUSTOMER CODE
ANLN1 "ASSET CODE
KOART "Account Type
UMSKZ "SPECIAL G/L INDICATOR
FROM BSEG INTO CORRESPONDING FIELDSOFTABLE ITAB_BSEG
FORALL ENTRIES IN T_BSEG
WHERE bukrs = s_bukrs
AND belnr = T_BSEG-BELNR
AND gjahr = p_gjahr.
ENDIF.
LOOPAT T_BSEG.
MOVE-CORRESPONDING T_BSEG to IT_BSEG2.
APPEND IT_BSEG2.
Clear: IT_BSEG-C_DMBTR, IT_BSEG-D_DMBTR,IT_BSEG-BELNR,V_TXT50.
LOOPAT ITAB_BSEG WHERE belnr = t_bseg-belnr
AND gjahr = t_bseg-gjahr
AND hkont NE t_bseg-hkont.
READTABLE T_BKPF WITHKEY BUKRS = T_BSEG-BUKRS
BELNR = T_BSEG-BELNR
GJAHR = T_BSEG-GJAHR.
IF SY-SUBRC = 0.
IT_BSEG-BUDAT = T_BKPF-BUDAT.
IT_BSEG-DAT = T_BKPF-BUDAT+4(2).
IT_BSEG-BLART = T_BKPF-BLART.
IT_BSEG-BLDAT = T_BKPF-BLDAT.
ENDIF.
DATA : HKONT TYPE BSEG-HKONT.
CLEAR : HKONT.
HKONT = ITAB_BSEG-HKONT.
IF ITAB_BSEG-LIFNR ISNOTINITIAL.
IT_BSEG-HKONT = ITAB_BSEG-LIFNR.
PERFORM vendor_name USING ITAB_BSEG-LIFNR.
IT_BSEG-BUTXT = V_TXT50.
ELSEIF ITAB_BSEG-KUNNR ISNOTINITIAL.
IT_BSEG-HKONT = ITAB_BSEG-KUNNR.
PERFORM customer_name USING ITAB_BSEG-KUNNR.
IT_BSEG-BUTXT = V_TXT50.
ELSE.
IT_BSEG-HKONT = HKONT.
PERFORM GET_ACCOUNT_TEXT.
IT_BSEG-BUTXT = V_TXT50.
ENDIF.
*****MODIFIED ON DEC 29, 2010
IF ITAB_BSEG-SHKZG = 'H'.
IT_BSEG-D_DMBTR = ITAB_BSEG-DMBTR .
ELSE.
IT_BSEG-C_DMBTR = ITAB_BSEG-DMBTR.
ENDIF.
it_bseg-belnr = itab_BSEG-belnr.
it_bseg-kostl = itab_BSEG-kostl.
it_bseg-sgtxt = itab_BSEG-sgtxt.
it_bseg-gjahr = itab_BSEG-gjahr.
it_bseg-butxt = v_txt50 .
PERFORM GET_GLINDICATOR_TEXT USING ITAB_BSEG-KOART ITAB_BSEG-UMSKZ.
IT_BSEG-LTEXT = V_GLIND.
APPEND IT_BSEG.
CLEAR IT_BSEG.
ENDLOOP.
ENDLOOP.
SORT IT_BSEG BY BUDAT.
LOOPAT IT_BSEG.
DELETE it_bseg2 where belnr = it_bseg-belnr and gjahr = it_bseg-gjahr. " INDEX SY-TABIX.
ENDLOOP.
**ADDED ON DEC 28, 2010
LOOPAT IT_BSEG2.
DELETE it_bseg2 where belnr = it_bseg2-belnr and hkont = it_bseg2-hkont. " INDEX SY-TABIX.
ENDLOOP.
SORT IT_BSEG2 BY BUDAT.
SORT IT_BSEG BY BUDAT BELNR ASCENDING.
LOOPAT IT_BSEG2.
**MODIFIED ON DEC 29, 2010
IF IT_BSEG2-SHKZG = 'H'.
IT_BSEG-C_DMBTR = IT_BSEG2-DMBTR .
ELSE.
IT_BSEG-D_DMBTR = IT_BSEG2-DMBTR.
ENDIF.
IT_BSEG-BELNR = IT_BSEG2-BELNR.
IT_BSEG-BLDAT = IT_BSEG2-BLDAT.
IT_BSEG-HKONT = IT_BSEG2-HKONT.
PERFORM GET_ACCOUNT_TEXT.
IT_BSEG-BUTXT = V_TXT50.
PERFORM get_glindicator_text USING ITAB_BSEG-koart ITAB_BSEG-umskz.
IT_BSEG-LTEXT = V_GLIND.
APPEND IT_BSEG.
ENDLOOP.
LOOPAT IT_BSEG.
IF IT_BSEG-BELNR = VOUNO.
IT_BSEG-BELNR = ' '.
IT_BSEG-BLDAT = ' '.
IT_BSEG-BUDAT = VODAT.
MODIFY IT_BSEG.
ENDIF.
BALANCE = IT_BSEG-D_DMBTR - IT_BSEG-C_DMBTR + BALANCE.
IT_BSEG-BAL = BALANCE .
MODIFY IT_BSEG TRANSPORTING BAL.
IF IT_BSEG-BELNR = ' '.
VOUNO = IT_BSEG-BELNR.
VODAT = IT_BSEG-BUDAT.
ENDIF.
ENDLOOP.
ENDFORM. " GET_DATA
*&------------------------------------------------------------------------------*
*& Form Vendor Name
*&-------------------------------------------------------------------------------*
FORM vendor_name USING ITAB_BSEG_LIFNR.
CLEAR v_txt50 .
SELECTSINGLE name1 FROM lfa1 INTO v_txt50 WHERE lifnr = ITAB_BSEG_LIFNR.
ENDFORM. " vendor_name
*&------------------------------------------------------------------------------*
*& Form Customer Name
*&------------------------------------------------------------------------------*
FORM customer_name USING ITAB_BSEG_KUNNR.
CLEAR v_txt50 .
SELECTSINGLE name1 FROM kna1 INTO v_txt50 WHERE kunnr = ITAB_BSEG_KUNNR.
ENDFORM. " customer_name
*&--------------------------------------------------------------------------*
*& Form GET_ACCOUNT_TEXT
* Modified by Anjali on Feb 21, 2011
*&---------------------------------------------------------------------------*
FORM get_account_text.
CLEAR v_txt50 .
SELECTSINGLE txt50 INTO v_txt50
FROM skat
WHERE spras = sy-langu
AND KTOPL = 'SHIV'
AND saknr = IT_BSEG-HKONT.
ENDFORM. " GET_ACCOUNT_TEXT
*&---------------------------------------------------------------------*
*& Form GET_GLINDICATOR_TEXT
*&---------------------------------------------------------------------*
FORM get_glindicator_text USING ITAB_BSEG_koart ITAB_BSEG_umskz.
CLEAR v_glind .
SELECTSINGLE ltext INTO v_glind
FROM T074T
WHERE spras = sy-langu
AND koart = ITAB_BSEG-KOART
AND shbkz = ITAB_BSEG-UMSKZ.
ENDFORM. " GET_GLINDICATOR_TEXT
*-------------------------------------------------------------------*
* Form TOP-OF-PAGE *
*-------------------------------------------------------------------*
FORM TOP.
*MODIFIED BY ANJALI
*IF SY-PAGNO = 1.
WRITE :/5 'Company ', 25':' , vname1, 60 vname2,
/5 'Period', 25':' , S_BUDAT-LOW, 40 S_BUDAT-HIGH,
/5 'Account Code' , 25':' , S_HKONT, 40 txt50.
WRITE :/5 SY-ULINE(171) .
WRITEAT:/5 SY-VLINE ,
6'Posting Date' ,
18 SY-VLINE ,
19'Document No.',
30 SY-VLINE,
31'Account Code',
43 SY-VLINE,
44'Text',
105 SY-VLINE,
106'Debit Amount',
121 SY-VLINE,
122'Credit Amount',
139 SY-VLINE,
140'Balance Amount',
156 '|'.
WRITE :/5 SY-ULINE(171) .
* ENDIF. *MODIFIED BY ANJALI
IF SY-PAGNO = 1.
WRITE /(5) ''.
FORMATCOLOR4.
WRITE : 5 SY-VLINE ,
18'' ,
30'' ,
43'',
44'Opening Balance',
105 SY-VLINE,
106 V_OPBALANCE,
121'|',
156'|'.
FORMATCOLOR OFF.
WRITE:/5 SY-ULINE.
ELSE.
WRITEAT :/5 SY-VLINE ,
18 SY-VLINE ,
30 SY-VLINE ,
43 SY-VLINE ,
105 SY-VLINE,
121 SY-VLINE ,
139 SY-VLINE,
156'|'.
ENDIF.
FORMATRESET.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form DISPLAY_DATA
*&---------------------------------------------------------------------*
FORM DISPLAY_DATA.
* SORT IT_BSEG BY BUDAT BELNR ASCENDING.
IF IT_BSEG[] ISINITIAL.
WRITE:/20 'LIST CONTAINS NO DATA'.
ENDIF.
LOOPAT IT_BSEG.
PERFORM GET_LINE_ITEM_SUM .
V_BALANCE = IT_BSEG-BAL. "SIDE BALANCE
ATLAST.
SUM.
V_REC_PER_AC = IT_BSEG-D_DMBTR.
V_PAY_PER_AC = IT_BSEG-C_DMBTR.
WRITE :/5 SY-ULINE(171) .
WRITE :/(5) ' ' .
FORMATCOLOR3.
WRITEAT : 5 SY-VLINE ,
18' ' ,
30' ' ,
43' ',
44 'Closing Balance' ,
105 SY-VLINE ,
106 V_REC_PER_AC,
121 SY-VLINE,
122 V_PAY_PER_AC,
139 SY-VLINE,
140 V_BALANCE, " spg
156'|'.
FORMATCOLOR OFF.
WRITE :/5 SY-ULINE(171) .
WRITE:/.
WRITE:/.
WRITE : /5 'PREPARED BY', 60'CHECKED BY', 120'APPROVED BY'.
CLEAR : V_REC_PER_AC,V_PAY_PER_AC,
V_BALANCE .
ENDAT.
ENDLOOP .
ENDFORM. " PRINT_CASHACCOUNT_DETAILS
*&---------------------------------------------------------------------*
*& Form GET_DOCUMENT_SUM
*&---------------------------------------------------------------------*
FORM GET_LINE_ITEM_SUM.
FORMATCOLOR OFF.
WRITEAT :/5 SY-VLINE ,
6 IT_BSEG-BUDAT ,
18 SY-VLINE ,
19 IT_BSEG-BELNR ,
30 SY-VLINE ,
31 IT_BSEG-HKONT,
43 SY-VLINE ,
44 IT_BSEG-BUTXT,
105 SY-VLINE.
IF IT_BSEG-D_DMBTR NE 0.
WRITEAT : 106 IT_BSEG-D_DMBTR.
ENDIF.
WRITEAT : 121 SY-VLINE.
IF IT_BSEG-C_DMBTR NE0.
WRITEAT : 122 IT_BSEG-C_DMBTR.
ENDIF.
WRITEAT : 139 SY-VLINE,
140 IT_BSEG-BAL,
156'|'.
WRITEAT :/5 SY-VLINE ,
18 SY-VLINE ,
30 SY-VLINE ,
43 SY-VLINE ,
44 IT_BSEG-ltext COLOR6INVERSEINTENSIFIED,
105 SY-VLINE,
121 SY-VLINE,
139 SY-VLINE,
156 '|'.
WRITEAT :/5 SY-VLINE ,
18 SY-VLINE ,
30 SY-VLINE ,
31 IT_BSEG-BVORG ,
43 SY-VLINE ,
44 IT_BSEG-SGTXT,
105 SY-VLINE,
121 SY-VLINE,
139 SY-VLINE,
156'|'.
WRITEAT :/5 SY-VLINE ,
18 SY-VLINE ,
30 SY-VLINE ,
43 SY-VLINE ,
105 SY-VLINE ,
121 SY-VLINE,
139 SY-VLINE,
156'|'.
FORMATRESET .
ENDFORM. "GET_LINE_ITEM_SUM
*&---------------------------------------------------------------------*
*& Form GET_PER_DAY_SUM
*&---------------------------------------------------------------------*
FORM GET_PER_DAY_SUM.
WRITE :/5 SY-ULINE(171) .
WRITE /(5) ''.
FORMATCOLOR6.
WRITEAT : 5 SY-VLINE ,
18 ' ' ,
32 ' ' ,
48 ' ' ,
49 'Per Day Balance' ,
70 IT_BSEG-BUDAT ,
97 SY-VLINE ,
98 V_REC_PER_DAY,
112 SY-VLINE ,
113 V_PAY_PER_DAY ,
128 SY-VLINE ,
129 V_BALANCE , " spg
144 '|'.
FORMATCOLOR OFF.
WRITE :/5 SY-ULINE(171) .
CLEAR: V_REC_PER_DAY, V_PAY_PER_DAY .
ENDFORM. " GET_PER_DAY_SUM
*&---------------------------------------------------------------------*
*& Form GET_SUM_PER_MONTH
*&---------------------------------------------------------------------*
FORM GET_PER_MONTH_SUM.
WRITE /(5) ''.
FORMATCOLOR7.
WRITEAT :5 SY-VLINE ,
18 ' ',
32 '' ,
48 '' ,
49'Per Month Balance',
72 IT_BSEG-DAT,
97 SY-VLINE,
98 V_REC_PER_MONTH ,
112 SY-VLINE ,
113 V_PAY_PER_MONTH ,
128 SY-VLINE ,
129 V_BALANCE , " spg
144'|'.
FORMATCOLOR OFF.
WRITE :/5 SY-ULINE(171) .
CLEAR : V_PAY_PER_MONTH,V_REC_PER_MONTH .
ENDFORM. " GET_SUM_PER_MONTH