Function module to get GL statement

Question

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

Answer 1

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