Function module to get GL statement

[Former Member]

Hi...

Is there any function module or BAPI to get GL statement .....

Thanks and Regards

..Ahsish

Moderator message - Please do not ask the forum to do your work for you - post locked

Edited by: Rob Burbank on Jun 1, 2009 10:29 AM

[Former Member]

This message was moderated.

[Former Member]

>

> go throw below link
> http://sap.ittoolbox.com/groups/technical-functional/sap-acct/fm-commitment-item-for-gl-1051375

And i don't see anything relevant to the question in the given link?

Regards

Karthik D

[RaymondGiuseppi]

You may use those BAPI

3006 Business Objekt General Ledger Account

BAPI_GL_ACC_EXISTENCECHECK    	Check existence of G/L account                 
BAPI_GL_ACC_GETBALANCE        	Closing balance of G/L account for chosen year 
BAPI_GL_ACC_GETCURRENTBALANCE 	Closing balance of G/L account for current year
BAPI_GL_ACC_GETLIST           	List of G/L accounts for each company code     
BAPI_GL_ACC_GETPERIODBALANCES 	Posting period balances for each G/L account   
GL_ACC_GETDETAIL_CCODE        	                                               
GL_CHECK_AUTHORITY_SKA1_KTP   	

Regards,

Raymond

[Former Member]

Hi,

If you trying to get G/L statements and its description I have made a program for it without using a FM.\

Let me know if you need it.

Regards,

Nikhil.

[Former Member]

Please send the code for GL statement...

..Ashish

[Former Member]

Hi,

Please check this if its of any help..

REPORT  ZP_GLACCOUNTS_A3   NO STANDARD PAGE HEADING  LINE-COUNT 25                   .

TABLES : BKPF, BSEG, SKAT.

DATA A TYPE P DECIMALS 0.  "VARIABLE TO CONVERT THE AMOUNT
                           "IN NEGATIVE VALUE
DATA B TYPE I.             "VARIABLE TO START READING LINES ON LIST
                           "FROM THE FIRST RECORD
DATA C.                    "CHECKBOX
DATA DBCNT TYPE I VALUE 0. "COUNTER TO COUNT NO. OF RECORDS
                           " IN THE INTERNAL TABLE
DATA CNT TYPE I VALUE 0.   "COUNTER TO COUNT NO. OF CHECKBOXES
                           " SELECTED ON BASIC LIST
DATA : BEGIN OF ITAB OCCURS 0,
       BELNR LIKE BKPF-BELNR,
       BUZEI LIKE BSEG-BUZEI,
       SHKZG LIKE BSEG-SHKZG,
       DMBTR LIKE BSEG-DMBTR,
       SAKNR LIKE BSEG-SAKNR,
       TXT50 LIKE SKAT-TXT50,
       END OF ITAB.
PARAMETERS : C_CODE LIKE BKPF-BUKRS DEFAULT '0001',
             F_YEAR LIKE BKPF-GJAHR DEFAULT '2005',
             F_PERIOD LIKE BKPF-MONAT DEFAULT '7'.
SELECT-OPTIONS : GL_NO FOR BSEG-SAKNR.
TOP-OF-PAGE.
SKIP.
WRITE :/5 'PAGE : ', SY-PAGNO.
SKIP.
WRITE :/10 'G/L ACCOUNT CODE' COLOR 1,
        35 'DESCRIPTION' COLOR 1.
SKIP.
START-OF-SELECTION.
SELECT * FROM BKPF INTO CORRESPONDING FIELDS OF ITAB
          WHERE BUKRS = C_CODE AND GJAHR =  F_YEAR AND MONAT = F_PERIOD.
SELECT * FROM BSEG INTO CORRESPONDING FIELDS OF ITAB
                   WHERE BELNR = ITAB-BELNR AND SAKNR IN GL_NO.
SELECT * FROM SKAT INTO CORRESPONDING FIELDS OF ITAB
WHERE SAKNR = ITAB-SAKNR.
A = ITAB-DMBTR.
IF ITAB-SHKZG = 'H'.
   ITAB-DMBTR = A * ( - 1 ).
ENDIF.
APPEND ITAB.
ENDSELECT.
ENDSELECT.
ENDSELECT.
END-OF-SELECTION.

Edited by: Nikhil Kanegaonkar on Jun 1, 2009 1:27 PM

[Former Member]

The next part is:

LOOP AT ITAB.
WRITE :/5 C AS CHECKBOX,
         ITAB-SAKNR UNDER 'G/L ACCOUNT CODE',
         ITAB-TXT50 UNDER 'DESCRIPTION'.
HIDE : ITAB-SAKNR, ITAB-BELNR, ITAB-TXT50, ITAB-BUZEI, ITAB-DMBTR.
DBCNT = DBCNT + 1.
ENDLOOP.


TOP-OF-PAGE DURING LINE-SELECTION.

CASE SY-LSIND.         "TO PRINT TOP OF PAGE ON PROPER SECONDARY LIST

WHEN '1'.             "FIRST SECONDARY LIST

WRITE :/ 'COMPANY NAME : xxxLtd.' COLOR 1.
WRITE :/15(35) SY-ULINE.
SKIP.
WRITE :/20 'PROGRAM NAME :  GL ACCOUNT DOCUMENTS FOR ' COLOR 6 INVERSE ON.
WRITE :/20 'USER NAME    :  ' COLOR 6 INVERSE ON ,
        SY-UNAME COLOR 6 INVERSE ON.
WRITE :/45 'PAGE : ', SY-PAGNO.
WRITE :/45 'DATE : ', SY-DATUM.
ULINE.
WRITE :/5 'GL A/C NO.' COLOR 5,
        17 'A/C DESCRIPTION' COLOR 5,
        65 'DOC. NO.' COLOR 5,
        78 'ITEM' COLOR 5,
        85 'DOC. AMOUNT Rs.' COLOR 5.
ULINE.
SKIP.

WHEN '2'.              "SECOND SECONDARY LIST

WRITE :/ 'THIS IS SECOND SECONDARY LIST' COLOR 6.
SKIP.
WRITE :/10 'GL ACCOUNT NO.' COLOR 5.
SKIP.

ENDCASE.

AT LINE-SELECTION.

CASE SY-LSIND.

WHEN '1'.           "FIRST SECONDARY LIST

CNT = 0.

DO DBCNT TIMES.

 B = SY-INDEX + 5.
    READ LINE B FIELD VALUE C.

    IF C = 'X'.
    CNT = CNT + 1.

       IF CNT > 2.
       MESSAGE E000(ERROR) WITH 'U HAVE SELECTED MORE THAN TWO RECORDS'.
       ENDIF.

       WRITE :/ ITAB-SAKNR UNDER 'GL A/C NO.' ,
                ITAB-TXT50 UNDER 'A/C DESCRIPTION',
                ITAB-BELNR UNDER 'DOC. NO.',
                ITAB-BUZEI UNDER 'ITEM',
                ITAB-DMBTR UNDER 'DOC. AMOUNT Rs.'.

       HIDE : ITAB-SAKNR.     "HIDE THE VALUE FOR SECOND SECONDARY LIST

    ENDIF.
ENDDO.

IF CNT IS INITIAL.
MESSAGE E000(ERROR) WITH 'PLEASE SELECT RECORD'.
CLEAR C.
CLEAR CNT.
ENDIF.

WHEN '2'.          "SECOND SECONDARY LIST

WRITE :/ ITAB-SAKNR UNDER 'GL ACCOUNT NO.'.

ENDCASE.

This is 2 parts...chk if this helps u in any way.

Regards,

Nikhil.

Edited by: Nikhil Kanegaonkar on Jun 1, 2009 1:37 PM