this is my classical report program ..
i made changes ...
after getting my output in alv when i am pressing f3 i am getting classical report display .
in the below program i am not getting some field in alv but in classical i am getting output like
1. debit ---dmbtr
2.credit ---------- dmbtr but not taking in alv unknown
3.running balance ---------wrbtr but not taking in alv report unknown
4. gl account ------------
5. debit credit indicator ---- shkzg
*&---------------------------------------------------------------------*
*& Report ZST_FI_RPT_VEND_ACCT
*&
*& This report is for Vendor Account yearly
*&---------------------------------------------------------------------*
* Dev. Class : ZSTFI *
* Created by : Vinod Nagre (vinod.nagre@birlasoft.com) *
* Created on : 19.07.2007 *
* Req.no: : STDK900152 *
* Transaction Code : ZRFI11 *
* Module Name : Financial Accounting *
* Description : Vendor Account yearly *
* SAP Release : SAP ECC 6.0 *
* Change Request : STDK900757 *
*&---------------------------------------------------------------------*
REPORT zst_fi_rpt_vend_acct NO STANDARD PAGE HEADING
LINE-SIZE 236
* LINE-COUNT 60(2).
LINE-COUNT 80(2).
************************************************************************
**** TABLES DEFINITION ****
************************************************************************
TABLES: bkpf, "Accounting Document Header
bsis, "Accounting: Secondary Index for G/L Accounts
bsas, "Accounting: Secondary Index for G/L Accounts (Cleared Items)
ska1, "G/L Account Master (Chart of Accounts)
t001, "Company Codes
t003t, "Document Type Texts
lfa1, "Vendor Master (General Section)
skat, "G/L Account Master Record (Chart of Accounts: Description)
bsik, "Accounting: Secondary Index for Vendors
bsak, "Accounting: Secondary Index for Vendors (Cleared Items)
bsad, "Accounting: Secondary Index for Customers (Cleared Items)
bsid , "Accounting: Secondary Index for Customers
lfc1, "Vendor master (transaction figures)
knc1, "Customer master (transaction figures)
bseg. "Accounting Document Segment
************************************************************************
**** SELECTION-SCREEN ****
************************************************************************
SELECTION-SCREEN: BEGIN OF BLOCK scr1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_bukrs FOR bsik-bukrs NO INTERVALS NO-EXTENSION,
s_budat FOR bsik-budat ,
s_lifnr FOR bsik-lifnr ,
s_gsber FOR bseg-gsber NO INTERVALS NO-EXTENSION ,
s_gjahr for bsik-gjahr OBLIGATORY.
*PARAMETERS: s_gjahr LIKE bsik-gjahr OBLIGATORY .
SELECTION-SCREEN: END OF BLOCK scr1.
************************************************************************
**** INTERNAL TABLES ****
************************************************************************
DATA : BEGIN OF itab OCCURS 0,
lifnr LIKE lfc1-lifnr, "Account Number of Vendor or Creditor
bukrs LIKE lfc1-bukrs, "Company Code
gjahr LIKE lfc1-gjahr, "Fiscal Year
umsav LIKE lfc1-umsav, "Balance Carried Forward in Local Currency
um01s LIKE lfc1-um01s, "Total of the Debit Postings for the Month
um01h LIKE lfc1-um01h, "Total of the Credit Postings for the Month
um01u LIKE lfc1-um01u, "Sales in the Posting Period
END OF itab.
DATA : BEGIN OF itab1 OCCURS 0,
bukrs LIKE bsik-bukrs, "Company Code
lifnr LIKE bsik-lifnr, "Account Number of Vendor or Creditor
umskz LIKE bsik-umskz, "Special G/L Indicator
dmbtr LIKE bsik-dmbtr, "Amount in Local Currency
dmbtr_d LIKE bsak-dmbtr, "Amount in Local Currency
dmbtr_c LIKE bsik-dmbtr, "Amount in Local Currency
shkzg LIKE bsik-shkzg, "Debit/Credit Indicator
budat LIKE bsik-budat, "Posting Date in the Document
gjahr LIKE bsik-gjahr, "Fiscal Year
sgtxt LIKE bsik-sgtxt, "Item Text
open_id,
blart LIKE bsik-blart, "Document Type
bldat LIKE bsik-bldat, "Document Date in Document
belnr LIKE bsik-belnr, "Accounting Document Number
zuonr LIKE bsas-zuonr, "Assignment Number
buzei LIKE bsas-buzei, "Number of Line Item Within Accounting Document
qbshb LIKE bseg-qbshb, "Withholding Tax Amount (in Document Currency)
bschl LIKE bseg-bschl, "Posting Key
gsber LIKE bseg-gsber, "Business Area
END OF itab1.
DATA : BEGIN OF itab2 OCCURS 0,
lifnr LIKE bsak-lifnr, "Account Number of Vendor or Creditor
umskz LIKE bsak-umskz, "Special G/L Indicator
dmbtr LIKE bsak-dmbtr, "Amount in Local Currency
dmbtr_d LIKE bsak-dmbtr, "Amount in Local Currency
dmbtr_c LIKE bsik-dmbtr, "Amount in Local Currency
shkzg LIKE bsak-shkzg, "Debit/Credit Indicator
bldat LIKE bsak-bldat, "Document Date in Document
budat LIKE bsak-budat, "Posting Date in the Document
gjahr LIKE bsak-gjahr, "Fiscal Year
gsber LIKE bsak-gsber, "Business Area
END OF itab2.
DATA : BEGIN OF itab3 OCCURS 0,
gjahr LIKE bsik-gjahr, "Fiscal Year
bukrs LIKE bsik-bukrs, "Company Code
lifnr LIKE bsik-lifnr, "Account Number of Vendor or Creditor
kunnr LIKE bsid-kunnr, "Customer Number 1
budat LIKE bsik-budat, "Posting Date in the Document
gsber LIKE bsik-gsber, "Business Area
umskz LIKE bsik-umskz, "Special G/L Indicator
dmbtr LIKE bsik-dmbtr, "Amount in Local Currency
dmbtr_d LIKE bsak-dmbtr, "Amount in Local Currency
dmbtr_c LIKE bsik-dmbtr, "Amount in Local Currency
totalx LIKE bsik-dmbtr, "Amount in Local Currency
shkzg LIKE bsik-shkzg, "Debit/Credit Indicator
bldat LIKE bsik-bldat, "Document Date in Document
open_id,
belnr LIKE bsik-belnr, "Accounting Document Number
blart LIKE bsik-blart, "Document Type
zuonr LIKE bsas-zuonr, "Assignment Number
buzei LIKE bsas-buzei, "Number of Line Item Within Accounting Document
sgtxt LIKE bsik-sgtxt, "Item Text
qbshb LIKE bseg-qbshb, "Item Text
bschl LIKE bseg-bschl, "Posting Key
butxt LIKE t001-butxt, "Name of Company Code or Company
hkont LIKE bsik-hkont, "General Ledger Account
name1 LIKE lfa1-name1, "Name 1
rebzg LIKE bseg-rebzg, "Number of the Invoice the Transaction Belongs to
rebzj LIKE bseg-rebzj, "Fiscal Year of the Relevant Invoice (for Credit Memo)
* ramnt LIKE bsik-dmbtr, " Running Amount
ramnt TYPE p DECIMALS 2, " Running Amount
gl2 TYPE bseg-hkont,
txt50 TYPE skat-TXT50,
XBLNR TYPE bsik-XBLNR, " Added By Neeraj Tiwari on 04-06-2014
END OF itab3.
DATA: itab5 LIKE itab3 OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF itab4 OCCURS 0,
bukrs LIKE bseg-bukrs, "Company Code
gjahr LIKE bseg-gjahr, "Fiscal Year
belnr LIKE bseg-belnr, "Accounting Document Number
gsber LIKE bseg-gsber, "Business Area
dmbtr LIKE bseg-dmbtr, "Amount in Local Currency
hkont LIKE bseg-hkont, "General Ledger Account
END OF itab4.
DATA : total TYPE p DECIMALS 2 VALUE 0,
total0 TYPE i VALUE 0,
total1 TYPE i VALUE 0,
total2 TYPE i VALUE 0,
total3 TYPE i VALUE 0,
total4 TYPE i VALUE 0,
totalx TYPE p DECIMALS 2 VALUE 0,
total5 TYPE p DECIMALS 2 VALUE 0,
total6 TYPE p DECIMALS 2 VALUE 0.
DATA: BEGIN OF it003t OCCURS 0,
blart LIKE t003t-blart, "Document Type
ltext LIKE t003t-ltext, "Document Type Description
END OF it003t.
DATA: BEGIN OF iglt0 OCCURS 0,
racct LIKE glt0-racct, "Account Number
bukrs LIKE glt0-bukrs, "Company Code
ryear LIKE glt0-ryear, "Fiscal Year
hslvt LIKE glt0-hslvt, "Balance carried forward in local currency (currency 2)
END OF iglt0.
DATA : BEGIN OF test OCCURS 0,
field1 LIKE dd03l-fieldname, "Field Name
field2 LIKE dd03l-fieldname, "Field Name
field3 LIKE dd03l-fieldname, "Field Name
field4 LIKE dd03l-fieldname, "Field Name
END OF test.
TYPES: BEGIN OF ty_bseg,
bukrs TYPE bseg-bukrs,
belnr TYPE bseg-belnr,
gjahr TYPE bseg-gjahr,
HKONT TYPE bseg-HKONT,
END OF ty_bseg.
TYPES: BEGIN OF ty_SKAT,
SAKNR TYPE skat-SAKNR,
TXT50 TYPE skat-TXT50,
END OF ty_skat.
************************************************************************
**** DATA DECLARATION ****
************************************************************************
DATA: it_bseg TYPE STANDARD TABLE OF ty_bseg,
wa_bseg TYPE ty_bseg,
it_skat TYPE STANDARD TABLE OF ty_SKAT,
wa_skat TYPE ty_SKAT.
DATA flag.
DATA: ilfc1 TYPE lfc1 OCCURS 0 WITH HEADER LINE.
DATA: ilfc3 TYPE lfc3 OCCURS 0 WITH HEADER LINE.
DATA ilfa1 TYPE lfa1 OCCURS 0 WITH HEADER LINE.
DATA: ibsik TYPE bsik OCCURS 0 WITH HEADER LINE.
DATA: ibsak TYPE bsak OCCURS 0 WITH HEADER LINE.
DATA: lifnr_total(10) TYPE p DECIMALS 2.
DATA: lifnr_grtotal(10) TYPE p DECIMALS 2,
bukrs_totals TYPE p DECIMALS 2, "AL211002
bukrs_grtotals TYPE p DECIMALS 2,
clbal TYPE p DECIMALS 2,
comp_bal TYPE p DECIMALS 2. "AL211002
DATA: mon(2) TYPE n, day(2) TYPE n.
mon = s_budat-low+4(2).
DATA : f1 TYPE string, v1 TYPE string, v2 TYPE string,v3 TYPE i.
DATA: wrbtr TYPE bsik-wrbtr.
DATA: wrbtr1 TYPE bsik-wrbtr.
DATA: wrbtr2 TYPE bsik-wrbtr.
DATA: wrbtr3 TYPE bsik-wrbtr.
DATA: wrbtr4 TYPE bsik-wrbtr.
DATA: wrbtr5 TYPE bsik-wrbtr.
DATA: wrbtr6 TYPE bsik-wrbtr.
DATA: lv_dmbtr1 type bsik-dmbtr.
DATA: lv_dmbtr_d TYPE bsik-dmbtr.
DATA: lv_dmbtr_c TYPE bsik-dmbtr.
DATA: lv_dmbtr2 TYPE bsik-dmbtr.
DATA: p_budat TYPE bsik-budat.
DATA: keydat TYPE bsik-budat.
DATA: key_bal TYPE STANDARD TABLE OF BAPI3008_3 WITH HEADER LINE.
************************************************************************
**** START-OF-SELECTION ****
************************************************************************
START-OF-SELECTION.
PERFORM header.
* PERFORM get_openbal.
PERFORM getdata.
************************************************************************
**** AT SELECTION-SCREEN ****
************************************************************************
AT SELECTION-SCREEN.
* s_budat-sign = 'I'.
* s_budat-option = 'BT'.
* f1 = s_gjahr.
* CONCATENATE f1 '04' '01' INTO v1.
* s_budat-low = v1.
* f1 = f1 + 1.
* CONCATENATE f1 '03' '31' INTO v2 .
* CONDENSE v2 NO-GAPS.
* s_budat-high = v2.
* APPEND s_budat.
*&---------------------------------------------------------------------*
*& Form GET_OPENBAL
*&---------------------------------------------------------------------*
FORM get_openbal .
CLEAR: wrbtr4, wrbtr5, wrbtr6.
LOOP AT ibsak WHERE lifnr = ilfa1-lifnr.
IF ibsak-shkzg = 'H'.
wrbtr = wrbtr + ibsak-wrbtr.
ENDIF.
IF ibsak-shkzg = 'S'.
wrbtr1 = wrbtr1 + ibsak-wrbtr.
ENDIF.
ENDLOOP.
LOOP AT ibsik WHERE lifnr = ilfa1-lifnr.
IF ibsik-shkzg = 'H'.
wrbtr2 = wrbtr2 + ibsik-wrbtr.
ENDIF.
IF ibsik-shkzg = 'S'.
wrbtr3 = wrbtr3 + ibsik-wrbtr.
ENDIF.
ENDLOOP.
wrbtr4 = wrbtr1 + wrbtr3.
wrbtr5 = wrbtr + wrbtr2.
ENDFORM. " GET_OPENBAL
**&---------------------------------------------------------------------*
**& Form GETDATA
**&---------------------------------------------------------------------*
FORM getdata .
DATA: lv_dmbtr LIKE bsik-dmbtr.
DATA: zxreversal LIKE bkpf-xreversal.
DATA: lifnr_delete1, lifnr_delete2, lifnr_delete3.
DATA: lv_opbal LIKE bsik-dmbtr.
DATA: v_gjahr LIKE bkpf-gjahr,
v_monat LIKE bkpf-monat,
v_poper LIKE t009b-poper,
p_fy TYPE bkpf-gjahr.
p_budat = s_budat-low - 1.
SELECT * FROM bsik INTO CORRESPONDING FIELDS OF TABLE ibsik
WHERE bukrs IN s_bukrs
AND lifnr IN s_lifnr
AND budat LE p_budat.
* AND budat in s_budat " Added by Neeraj tiwari on 07-04-2014
* AND gjahr = s_gjahr. " Added by Neeraj tiwari on 07-04-2014
SELECT * FROM bsak INTO CORRESPONDING FIELDS OF TABLE ibsak
WHERE bukrs IN s_bukrs
AND lifnr IN s_lifnr
AND budat LE p_budat.
* AND budat in s_budat " Added by Neeraj tiwari on 07-04-2014
* AND gjahr = s_gjahr.. " Added by Neeraj tiwari on 07-04-2014
SELECT * FROM lfa1 INTO CORRESPONDING FIELDS OF TABLE ilfa1
WHERE lifnr IN s_lifnr.
SELECT * FROM lfc1 INTO CORRESPONDING FIELDS OF TABLE ilfc1
WHERE bukrs IN s_bukrs
AND lifnr IN s_lifnr
* AND gjahr = s_gjahr. " Commented BY Neeraj Tiwari on 31-05-2014
AND gjahr in s_gjahr. " Added By Neeraj Tiwari on 31-05-2014
SORT ilfa1 BY lifnr.
LOOP AT ilfa1.
CLEAR: ilfc1, lifnr_delete1, lifnr_delete2, lifnr_delete3.
READ TABLE ilfc1 WITH KEY lifnr = ilfa1-lifnr.
IF NOT sy-subrc IS INITIAL.
lifnr_delete1 = 'X'.
ELSE.
lifnr_delete1 = ''.
ENDIF.
SELECT * FROM bsik INTO CORRESPONDING FIELDS OF TABLE itab3
WHERE bukrs IN s_bukrs
AND lifnr EQ ilfa1-lifnr
* AND gjahr EQ s_gjahr " Commented By Neeraj Tiwari on 31-05-2014
AND gjahr in s_gjahr " Added By Neeraj Tiwari on 31-05-2014
AND gsber IN s_gsber
AND budat IN s_budat
AND bstat NE 'S'.
SELECT * FROM bsak APPENDING CORRESPONDING FIELDS OF TABLE itab3
WHERE bukrs IN s_bukrs
AND lifnr EQ ilfa1-lifnr
AND budat IN s_budat
* AND gjahr EQ s_gjahr " Commented By Neeraj Tiwari on 31-05-2014
AND gjahr in s_gjahr " Added By Neeraj Tiwari on 31-05-2014
AND gsber IN s_gsber
AND bstat NE 'S'.
itab5[] = itab3[].
*****check reversal****
LOOP AT itab5.
IF itab5-blart NE 'RE'.
SELECT SINGLE xreversal FROM bkpf INTO zxreversal WHERE bukrs = itab5-bukrs
AND belnr = itab5-belnr
AND gjahr = itab5-gjahr.
IF zxreversal IS NOT INITIAL.
* DELETE itab3 WHERE bukrs = itab5-bukrs
* AND belnr = itab5-belnr
* AND gjahr = itab5-gjahr.
ENDIF.
ELSE.
SELECT SINGLE rebzg
rebzj
FROM bseg
INTO (itab5-rebzg,itab5-rebzj)
WHERE bukrs = itab5-bukrs
AND belnr = itab5-belnr
AND gjahr = itab5-gjahr
AND lifnr NE space.
IF itab5-rebzg IS NOT INITIAL.
DELETE itab3 WHERE belnr = itab5-rebzg AND gjahr = itab5-rebzj.
DELETE itab3 WHERE belnr = itab5-belnr AND gjahr = itab5-gjahr.
ENDIF.
CLEAR: itab5-rebzg,itab5-rebzj.
ENDIF.
ENDLOOP.
**************
IF LINES( itab3 ) LE 0.
lifnr_delete2 = 'X'.
ELSE.
lifnr_delete2 = ''.
ENDIF.
LOOP AT itab3 WHERE blart = 'RE'.
SELECT * FROM bseg INTO CORRESPONDING FIELDS OF TABLE itab4
WHERE bukrs = itab3-bukrs
AND gjahr = itab3-gjahr
AND belnr = itab3-belnr
AND gsber = itab3-gsber
AND hkont = '0013170000'.
LOOP AT itab4 WHERE belnr = itab3-belnr AND gjahr = itab3-gjahr.
itab3-qbshb = itab3-qbshb + itab4-dmbtr.
ENDLOOP.
CLEAR : itab4[],itab4.
MODIFY itab3.
ENDLOOP.
CLEAR: itab3, total, ilfc3.
SELECT * FROM lfc3
INTO CORRESPONDING FIELDS OF TABLE ilfc3
WHERE bukrs IN s_bukrs
AND lifnr EQ ilfa1-lifnr
* AND gjahr = s_gjahr. " Commented By Neeraj Tiwari on 31-05-2014
AND gjahr in s_gjahr. " Added By Neeraj Tiwari on 31-05-2014
LOOP AT ilfc3.
SUM.
ENDLOOP.
IF LINES( ilfc3 ) LE 0.
lifnr_delete3 = 'X'.
ELSE.
lifnr_delete3 = ''.
ENDIF.
IF lifnr_delete1 = 'X' AND lifnr_delete2 = 'X' AND lifnr_delete3 = 'X'.
CONTINUE.
ENDIF.
total = ilfc1-umsav + ilfc3-saldv.
* SELECT SINGLE * FROM t001 WHERE bukrs = s_bukrs-low.
* WRITE:/1 sy-vline,
* 3 t001-butxt COLOR 4,t001-bukrs COLOR 4,
* 210 sy-vline.
*
* SELECT SINGLE * FROM lfa1 INTO lfa1 WHERE lifnr = ilfa1-lifnr.
* WRITE : /1 sy-vline,
* 3 'Vendor :' COLOR 4,ilfa1-lifnr COLOR 4,lfa1-name1 COLOR 4,
* 210 sy-vline.
* PERFORM get_openbal.
PERFORM get_openbal1.
** wrbtr6 = wrbtr4 - wrbtr5.
WRITE:/1 sy-vline,
* 3 'Opening Balance :' COLOR 4, (84) wrbtr4 COLOR 4, (16) wrbtr5 COLOR 4, (15) wrbtr6 COLOR 4,"25 total COLOR 4, " cOMMENTED bY NEERAJ tIWARI
3 'Opening Balance :' COLOR 4, (15) wrbtr6 COLOR 4,"25 total COLOR 4, "Modified By neeraj Tiwari 14/01/2014
* 3 'Net Balance :' COLOR 4, wrbtr6,
* 147 sy-vline,
236 sy-vline,
sy-uline.
SORT itab3 BY budat.
DELETE itab3 WHERE blart = 'AB'.
SORT itab3 BY budat.
lv_dmbtr = wrbtr6.
************Added By Neeraj Tiwari on 25-04-2014 to get special gl****************************
SELECT bukrs
belnr
gjahr
HKONT FROM bseg INTO TABLE it_bseg
for ALL ENTRIES IN itab3
WHERE bukrs = itab3-bukrs
AND belnr = itab3-belnr
AND gjahr = itab3-gjahr
AND KOART = 'S'.
IF it_bseg[] IS NOT INITIAL.
SELECT SAKNR TXT50 FROM skat INTO TABLE it_skat
FOR ALL ENTRIES IN it_bseg
WHERE SAKNR = it_bseg-hkont
AND spras = 'EN'
AND KTOPL = '9000'.
ENDIF.
***********************************************************************************************
LOOP AT itab3.
IF itab3-shkzg = 'H'.
IF itab3-qbshb NE 0.
itab3-totalx = itab3-dmbtr + itab3-qbshb.
ENDIF.
itab3-dmbtr = itab3-dmbtr * -1.
MOVE itab3-dmbtr TO itab3-dmbtr_c.
ELSE.
MOVE itab3-dmbtr TO itab3-dmbtr_d.
ENDIF.
**-- changes made on 07.04.2010 By Maruti
itab3-ramnt = lv_dmbtr + ( itab3-dmbtr_d + itab3-dmbtr_c ).
MODIFY itab3.
lv_dmbtr = itab3-ramnt.
**--end of changes
* total4 = total4 + itab3-dmbtr .
MODIFY itab3.
READ TABLE it_bseg INTO wa_bseg WITH KEY bukrs = itab3-bukrs belnr = itab3-belnr gjahr = itab3-gjahr.
IF sy-subrc eq 0.
itab3-gl2 = wa_bseg-hkont.
READ TABLE it_skat INTO wa_skat WITH KEY SAKNR = wa_bseg-hkont.
IF sy-subrc eq 0.
itab3-TXT50 = wa_skat-TXT50.
ENDIF.
ENDIF.
READ TABLE ilfc1 WITH KEY bukrs = itab3-bukrs lifnr = itab3-lifnr gjahr = itab3-gjahr.
IF sy-subrc = 0.
DELETE ilfc1 WHERE bukrs = itab3-bukrs AND lifnr = itab3-lifnr AND gjahr = itab3-gjahr.
ENDIF.
READ TABLE ilfc3 WITH KEY bukrs = itab3-bukrs lifnr = itab3-lifnr gjahr = itab3-gjahr.
IF sy-subrc = 0.
DELETE ilfc3 WHERE bukrs = itab3-bukrs AND lifnr = itab3-lifnr AND gjahr = itab3-gjahr.
ENDIF.
FORMAT COLOR 2 ON.
WRITE :/ sy-vline,
(13) itab3-budat,
* sy-vline,
* (12) itab3-bldat,
sy-vline,
(13) itab3-belnr,
sy-vline,
(8) itab3-blart CENTERED,
* sy-vline,
* (4) itab3-umskz,
* sy-vline,
* (6) itab3-gsber ,
sy-vline,
(50) itab3-sgtxt,
sy-vline,
(13) itab3-dmbtr_d NO-ZERO,
sy-vline,
(13) itab3-dmbtr_c NO-ZERO NO-SIGN,
* sy-vline,
* (13) itab3-qbshb NO-ZERO,
* sy-vline,
* (13) itab3-totalx NO-ZERO,
sy-vline,
(15) itab3-ramnt, " Added by Maruti on 07.04.2010
sy-vline, " Added by Neeraj tiwari on 25-04-2014
(13) itab3-gl2, " Added by Neeraj tiwari on 25-04-2014
sy-vline,
(50) itab3-TXT50, " Added by Neeraj tiwari on 25-04-2014
sy-vline, " Added by Neeraj Tiwari on 06-04-2014
(17) itab3-XBLNR, " Added by Neeraj Tiwari on 06-04-2014
sy-vline..
CLEAR totalx.
FORMAT COLOR 2 OFF.
CLEAR: lifnr_total.
ENDLOOP.
** PERFORM close_bal.
* lv_dmbtr2 = lv_dmbtr1 + wrbtr6.
* WRITE:/1 sy-vline,
* / , (111) lv_dmbtr_d COLOR 4, (16) lv_dmbtr_c NO-SIGN COLOR 4,(18) lv_dmbtr1 COLOR 4,
* /3 'Closing Balance :' COLOR 4, (120) lv_dmbtr2 COLOR 4,
** 3 'Net Balance :' COLOR 4, wrbtr6,
* 147 sy-vline,
* sy-uline.
clear : lv_dmbtr2,
lv_dmbtr1.
AT END OF lifnr.
FORMAT COLOR 3 ON .
LOOP AT itab3.
SUM.
EXIT.
ENDLOOP.
total5 = total5 + total3.
lifnr_total = itab3-dmbtr + itab3-dmbtr_d + itab3-dmbtr_c + total.
* BUKRS_GRTOTALS = BUKRS_GRTOTALS + LIFNR_TOTAL .
clbal = itab3-dmbtr_d + itab3-dmbtr_c + total.
comp_bal = comp_bal + clbal.
* WRITE:/ sy-uline(147).
WRITE:/ sy-uline(236).
* WRITE:/2 'Total:' , itab3-dmbtr_d UNDER itab3-dmbtr_d NO-ZERO COLOR 1,
* itab3-dmbtr_c UNDER itab3-dmbtr_c NO-ZERO NO-SIGN COLOR 1,
* itab3-qbshb UNDER itab3-qbshb NO-ZERO COLOR 1,
* itab3-totalx UNDER itab3-totalx NO-ZERO COLOR 1,
*
WRITE:/2 ' Closing Balance :', LV_DMBTR COLOR 3. " lifnr_total
CLEAR : total3, total.
total6 = total6 + clbal.
* WRITE:/ sy-uline(147).
WRITE:/ sy-uline(236).
FORMAT COLOR 3 OFF.
ENDAT.
ENDLOOP.
* SUM.
* FORMAT COLOR 5 ON.
* SKIP.
* WRITE:/ 'Total of all company codes:',total6 .
* FORMAT COLOR 5 OFF RESET..
ENDFORM. " GETDATA
*&---------------------------------------------------------------------*
*& Form HEADER
*&---------------------------------------------------------------------*
FORM header .
WRITE: s_budat-low TO sy-tvar0.
WRITE: s_budat-high TO sy-tvar1.
* WRITE: s_gjahr-low to sy-tvar0.
* WRITE: s_gjahr-high to sy-tvar1.
ENDFORM. " HEADER
************************************************************************
**** TOP-OF-PAGE ****
************************************************************************
TOP-OF-PAGE.
DATA butxt TYPE t001-butxt.
SELECT SINGLE * FROM t001 WHERE bukrs = s_bukrs-low.
WRITE:/1 sy-vline,
40 t001-butxt COLOR 4,t001-bukrs COLOR 4,
147 sy-vline.
SELECT SINGLE * FROM lfa1 INTO lfa1 WHERE lifnr = ilfa1-lifnr.
WRITE : /1 sy-vline,
40 'Ledger Of Vendor' COLOR 4, lfa1-name1 COLOR 4, 'From' , s_budat-low COLOR 4, 'to', s_budat-high COLOR 4, '(',ilfa1-lifnr COLOR 4,')',
147 sy-vline.
WRITE : /1 sy-vline, 40 'Fiscal Year' COLOR 4, s_gjahr-low, 'to' ,s_gjahr-high,147 sy-vline.
SELECT SINGLE butxt FROM t001 INTO butxt
WHERE bukrs EQ s_bukrs-low.
WRITE:/40 'VENDOR ACCOUNT STATAMENT'.
SKIP 1.
* WRITE:/4 'Company Name :' , butxt.
* CLEAR sy-subrc.
* WRITE:/4 'Period : From', s_budat-low, 'to', s_budat-high.
* SKIP.
* WRITE:sy-uline(147).
WRITE:sy-uline(236).
WRITE :/ sy-vline,
(13) 'POSTING DATE',
* sy-vline,
* (12) 'DOCDATE' ,
sy-vline,
(13) 'DOCUMENT NO.',
sy-vline,
(8) 'DOC TYPE' ,
* sy-vline,
* (4) 'SPGL',
* sy-vline,
* (6) 'B Area',
sy-vline,
(50) 'ITEM TEXT ' CENTERED,
sy-vline,
(13) 'DEBIT AMOUNT',
sy-vline,
(13) 'CREDIT AMOUNT' ,
* sy-vline,
* (13) 'TDS AMT',
* sy-vline,
* (13) 'BILL AMOUNT',
sy-vline,
(15) 'RUNNING BALANCE', " Added by MAruti on 07.04.2010
sy-vline,
(13) 'SECONDARY GL', " Added by Neeraj Tiwari on 25-04-2014
sy-vline,
(50) 'SECONDARY GL NAME', " Added by Neeraj Tiwari on 25-04-2014
sy-vline,
(17) 'Reference', " Added by Neeraj Tiwari on 04-06-2014
sy-vline
.
* WRITE:sy-uline(147).
WRITE:sy-uline(236).
************************************************************************
**** END-OF-PAGE ****
************************************************************************
END-OF-PAGE.
* WRITE:sy-uline(147). "217
WRITE:sy-uline(236).
*&---------------------------------------------------------------------*
*& Form CLOSE_BAL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM close_bal .
LOOP AT itab3.
lv_dmbtr_d = lv_dmbtr_d + itab3-dmbtr_d.
lv_dmbtr1 = lv_dmbtr1 + itab3-ramnt.
lv_dmbtr_c = lv_dmbtr_c + itab3-dmbtr_c.
ENDLOOP.
ENDFORM. " CLOSE_BAL
FORM get_openbal1.
CLEAR: wrbtr6,key_bal[].
CONCATENATE s_gjahr-low '03' '31' INTO keydat.
CALL FUNCTION 'BAPI_AP_ACC_GETKEYDATEBALANCE'
EXPORTING
COMPANYCODE = s_bukrs-low
VENDOR = ilfa1-lifnr
KEYDATE = keydat
* BALANCESPGLI = ' '
* NOTEDITEMS = ' '
* IMPORTING
* RETURN =
TABLES
KEYBALANCE = key_bal
.
IF key_bal[] IS NOT INITIAL.
READ TABLE key_bal index 1.
wrbtr6 = key_bal-LC_BAL.
ENDIF.
ENDFORM.
