G/L opening balance .

Question

Dear all,
How to find opening balance for G/ L on a date?
Is FAGLFLEXT / FAGLFLEXA table helpful for this ? How to use that ?
Or I have to use some Z function module for this like
CALL FUNCTION 'ZGL_OPENING_CLOSING_BAL_KEYDAT'
   EXPORTING
     comp          = lv_bukrs1
     date          = lv_date1
     acct          = lv_acct1
  IMPORTING
    BALANCE       = lv_bal1
This will works?
Or any other way for this?
Thanks
Gourav.

Answer 1

Hi Yakub,
Here logic is , opening balance will be less than selection screen's date balance.
suppose debit line amount: 4,5,6 .
credit : 2,3.
then opening will be 15-5 =10.
if credit also greater,then also same logic.
My code is for clear items,
"select.
if p_clear = 'X'.
      to_date = s_clear-high.
     SELECT  hkont bukrs augdt GJAHR belnr budat bldat xblnr SHKZG
   dmbtr sgtxt bstat INTO TABLE it_bsas FROM bsas
       WHERE bukrs eq s_buk
       AND hkont in s_kun AND budat le s_clear-low and BSTAT = LV_ITEM.
*again
    SELECT  hkont bukrs augdt GJAHR belnr budat bldat xblnr SHKZG
   dmbtr sgtxt bstat APPENDING TABLE it_bsas FROM bsas
       WHERE bukrs eq s_buk
       AND hkont in s_kun AND budat IN s_clear and BSTAT = LV_ITEM.
" end of select.
>>>>
SORT it_bsas by hkont.
LOOP AT it_bsas INTO wa_bsas.
"logic for opening balance.
           if wa_bsas-budat lt s_clear-low.
             if wa_bsas-shkzg = 'H'.
                WA_OUT-DMBTR2 = WA_BSaS-DMBTR.
                 WRITE : / wa_out-dmbtr2 UNDER g LEFT-JUSTIFIED.
                lv_open1 = lv_open1 + wa_out-dmbtr2.
                ELSEIF wa_bsas-shkzg = 'S'.
                    WA_OUT-DMBTR3 = WA_BSaS-DMBTR.
                     WRITE : / wa_out-dmbtr3 UNDER f LEFT-JUSTIFIED.
                lv_open2 = lv_open2 + wa_out-dmbtr3.
             endif.
             endif.
             "endlogic
             "display of opening balance
at new hkont.
    if lv_open1 ge lv_open2.
                lv_open3 = lv_open1 - lv_open2.
    lv_open4 = lv_open2 + lv_open3.
   WRITE : /93 'Opening balance' ,
              lv_open3 UNDER f LEFT-JUSTIFIED.
uline.
      WRITE :    /93 'Total',
                112 lv_open1 LEFT-JUSTIFIED,
                133 lv_open4 LEFT-JUSTIFIED.
uline.
ELSEIF lv_open2 ge lv_open1.
      lv_open3 = lv_open2 - lv_open1.
      lv_open4 = lv_open1 + lv_open3.
       WRITE : /93 'Opening balance' ,
       lv_open3 UNDER g LEFT-JUSTIFIED .
uline.
      WRITE :    /93 'Total',
                 112 lv_open2 LEFT-JUSTIFIED,
                133 lv_open4 LEFT-JUSTIFIED.
      ULINE .
          CLEAR lv_open1. " debit
          CLEAR lv_open2. " crdit
          CLEAR lv_open3. " opening balance
          CLEAR lv_open4. "adjustment
          ENDIF.
endat.
But is not working properly.
In debug,value coming properly, but not in output.
example : 200032 -GL.
see my screenshot.
Can you help?