**Hello Guru's ! I am working on a Profit & Loss statement and i go through other threads on sdn but didnt get a good solution , i have already made some work on the Profit & Loss report , in my selection screen i need to enter Company's Code, Fiscal Year and Date , and In the Out screen I need to display the GL Account , Its Description , Credit & Debit Amount ON THAT PARTICULAR DATE ( say on 1st Jan. i need to show those Profit & Loss GL Statment and the credit and debit) For Profit GL it starts with " 3 " and for Loss GL it starts with " 4 " .. the coding which i used is below .. Please Guide Me with the Best of your Knowledge .. Thankyou
TABLES : SKB1,BKPF,SKAT,BSEG.
PARAMETERS : Comp_Cod TYPE SKB1-BUKRS DEFAULT '1100', " Company Code
FISC_YER TYPE BKPF-GJAHR DEFAULT '2009', " Fiscal Year
FISC_PER TYPE BKPF-BUDAT. " Fiscal Period
FORMAT COLOR = 6.
WRITE :/ 'INCOME & EXPENSES'.
ULINE.
FORMAT COLOR = 5.
WRITE:/25 'GL NAME',61(25) SY-VLINE,69 'GL NUMBER' ,85(25) SY-VLINE, 92 'CREDIT AMOUNT' ,110(25) SY-VLINE,
117 'DEBIT AMOUNT'.
ULINE.
DATA: ISKB1 LIKE SKB1 OCCURS 0 WITH HEADER LINE,
IBKPF LIKE BKPF OCCURS 0 WITH HEADER LINE,
ISKAT LIKE SKAT OCCURS 0 WITH HEADER LINE,
IBSEG LIKE BSEG OCCURS 0 WITH HEADER LINE.
SELECT * FROM SKB1 INTO CORRESPONDING FIELDS OF TABLE ISKB1 WHERE BUKRS = COMP_COD AND SAKNR
BETWEEN '0000300000' AND '0000499999'. " COMPANY CODE
SELECT GJAHR FROM BKPF INTO CORRESPONDING FIELDS OF TABLE IBKPF WHERE GJAHR = FISC_YER. " FISCAL YEAR
SELECT * FROM SKAT INTO CORRESPONDING FIELDS OF TABLE ISKAT FOR ALL ENTRIES IN ISKB1 WHERE SAKNR = ISKB1-SAKNR .
DATA : CREDIT TYPE P,
DEBIT TYPE P.
DATA : BEGIN OF ITAB OCCURS 0,
BLDAT LIKE IBKPF-BLDAT,
GJAHR LIKE IBKPF-GJAHR,
SAKNR LIKE ISKB1-SAKNR,
SHKZG LIKE IBSEG-SHKZG,
DMBTR LIKE IBSEG-DMBTR,
END OF ITAB.
IF IBSEG-SHKZG = 'H'.
CREDIT = CREDIT + IBSEG-DMBTR.
ELSE.
DEBIT = DEBIT + IBSEG-DMBTR.
ENDIF.
LOOP AT ISKB1.
FORMAT COLOR = 3.
READ TABLE ISKAT WITH KEY SAKNR = ISKB1-SAKNR.
WRITE :/20 ISKAT-TXT20,61(25) SY-VLINE,71 ISKB1-SAKNR,85(25) SY-VLINE, 86 CREDIT,110(25) SY-VLINE, 112 DEBIT.
ENDLOOP.