Skip to Content
0
Former Member
Jul 02, 2009 at 08:32 AM

Profit & Loss Report

33 Views

**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.