Problem in Vendor Balance

Question

Dear All,
I have a requirement to calculate the vendor balance....I have developed a report for it but the prob
For Eg if I check it in FBL1N with vendor and comp code given:
If I have 14 open items as on 30/12/2008 with a total of Rs.8433240.50
and on 31/12/2008 2 documents got cleared and the total is Rs.8400000.50
but as per my code I am getting 8400000.50 if i give the date as also 30/12/2008.
I have retrieved the data from table BSIK.Can u plz help me out if anyboy can.
Regards,
Pavani.

Answer 1

REPORT  Z_VEN_BAL NO STANDARD PAGE HEADING MESSAGE-ID zsp1.
TABLES : LFA1,
         BSIK,
         BSEG,
         T001.
types:BEGIN OF ITab_LFA1 ,
    LIFNR LIKE LFA1-LIFNR,           " Acc. No. of Vendor or Creditor
    NAME1 LIKE LFA1-NAME1,           " Name
    STRAS LIKE LFA1-STRAS,
    ORT01 LIKE LFA1-ORT01,           " City
    REGIO LIKE LFA1-REGIO,           " Region
    LAND1 LIKE LFA1-LAND1,           " Country
  END OF ITab_LFA1.
types: BEGIN OF ITab_BSIK,
       BUKRS   LIKE BSIK-BUKRS,
       LIFNR LIKE BSIK-LIFNR,
       augdt like bsik-augdt,
       ZUONR LIKE BSIK-ZUONR,
       BELNR LIKE BSIK-BELNR,
       BLDAT LIKE BSIK-BLDAT,
       XBLNR LIKE BSIK-XBLNR,
       BLART   LIKE BSIK-BLART,
       SHKZG   LIKE BSIK-SHKZG,
       WRBTR   LIKE BSIK-WRBTR,
      END OF ITab_BSIK.
types: BEGIN OF ITab_BSAK,
       BUKRS   LIKE BSAK-BUKRS,
       LIFNR LIKE BSAK-LIFNR,
       AUGDT LIKE BSAK-AUGDT,
       ZUONR LIKE BSAK-ZUONR,
       BELNR LIKE BSAK-BELNR,
       BLDAT LIKE BSAK-BLDAT,
       XBLNR LIKE BSAK-XBLNR,
       BLART   LIKE BSAK-BLART,
       SHKZG   LIKE BSAK-SHKZG,
       WRBTR   LIKE BSAK-WRBTR,
      END OF ITab_BSAK.
TYPES : BEGIN OF ITAB_T001,
       BUKRS LIKE T001-BUKRS,
        BUTXT LIKE T001-BUTXT,
        END OF ITAB_T001.
types:BEGIN OF ITab_FINAL,
       LIFNR LIKE LFA1-LIFNR,
       AUGDT LIKE BSIK-AUGDT,
       BUKRS   LIKE BSIK-BUKRS,
       BUTXT LIKE T001-BUTXT,
       ZUONR LIKE BSIK-ZUONR,
       BELNR LIKE BSIK-BELNR,
       NAME1 LIKE LFA1-NAME1,
       STRAS LIKE LFA1-STRAS,
       ORT01 LIKE LFA1-ORT01,
       REGIO LIKE LFA1-REGIO,
       LAND1 LIKE LFA1-LAND1,           " Country
       BLDAT LIKE BSIK-BLDAT,
       XBLNR LIKE BSIK-XBLNR,
       BLART   LIKE BSIK-BLART,
       SHKZG   LIKE BSIK-SHKZG,
       WRBTR   LIKE BSIK-WRBTR,
       END OF ITab_FINAL.
DATA:IT_final TYPE STANDARD TABLE OF ITAB_FINAL,
      IT_BSIK TYPE STANDARD TABLE OF ITAB_BSIK,
      IT_BSAK TYPE STANDARD TABLE OF ITAB_BSAK,
      IT_LFA1 TYPE STANDARD TABLE OF ITAB_LFA1,
      IT_T001 TYPE STANDARD TABLE OF ITAB_T001.
      IT_final TYPE STANDARD TABLE OF zVENBAL1.
DATA : WA_FINAL type ITab_FINAL.
DATA : WA_BSIK type ITab_BSIK.
DATA : WA_BSAK type ITab_BSAK.
DATA : WA_LFA1 type ITab_LFA1.
DATA : WA_T001 TYPE ITAB_T001.
DATA: V_DATUM LIKE SY-DATUM.             " For Current Date
DATA  :   p_repid     TYPE   tdsfname VALUE 'Z_SF_VEN_BAL'.
DATA  :   v_fm_name   TYPE   rs38l_fnam.
data : v_wrbtr like bsik-wrbtr.
data : v_wrbtr1 like bsAk-wrbtr.
DATA : V_AMOUNT LIKE BSAK-WRBTR.
SELECT-OPTIONS: S_LIFNR FOR LFA1-LIFNR,
                S_BUKRS FOR BSIK-BUKRS.
parameters : p_augdt like bsik-augdt,
              p_budat like bsik-budat.
AT SELECTION-SCREEN.
DATA: L_BLDAT LIKE BSAK-BLDAT.
IF NOT S_BUDAT[] IS INITIAL.
*--- Check for a valid Vendor No.
SELECT SINGLE BUDAT
INTO L_BUDAT
FROM BSAK
WHERE BUDAT IN S_LIFNR.
endif.
SELECT SINGLE *
            INTO LFA1 FROM LFA1
            WHERE LIFNR IN S_LIFNR.
            IF SY-SUBRC <> 0.
           MESSAGE E000.
          ENDIF.
  SELECT SINGLE *
                INTO BSIK FROM BSIK
                WHERE BUKRS IN S_BUKRS.
            IF SY-SUBRC <> 0.
            ENDIF.
START-OF-SELECTION.
SELECT LIFNR
       NAME1
       STRAS
       ORT01
       REGIO
       LAND1
       INTO CORRESPONDING FIELDS OF TABLE IT_final
       FROM LFA1
       WHERE LIFNR in S_LIFNR.
      and bukrs in s_bukrs.
IF SY-SUBRC = 0.
  SELECT BUKRS
          LIFNR
          augdt
          ZUONR
          BELNR
          BLDAT
          XBLNR
          BLART
          SHKZG
          WRBTR
          INTO CORRESPONDING FIELDS OF TABLE IT_BSIK
          FROM BSIK
          WHERE LIFNR IN S_LIFNR
          AND  BUKRS IN S_BUKRS
          and budat <= p_budat.
SELECT BUKRS
          LIFNR
          AUGDT
          ZUONR
          BELNR
          BLDAT
          XBLNR
          BLART
          SHKZG
          WRBTR
          INTO CORRESPONDING FIELDS OF TABLE IT_BSAK
          FROM BSAK
          FOR ALL ENTRIES IN IT_FINAL
          WHERE LIFNR = IT_FINAL-LIFNR
          AND  BUKRS IN S_BUKRS
          and augdt >= p_augdt
          and budat <= p_budat.
SELECT BUTXT INTO TABLE IT_T001
FROM T001
FOR ALL ENTRIES IN IT_BSIK
WHERE BUKRS = IT_BSIK-BUKRS.
ENDIF.
LOOP AT IT_FINAL INTO WA_FINAL.
LOOP AT IT_BSAK INTO WA_BSAK.
READ TABLE IT_BSAK INTO WA_BSAK index sy-tabix.
IF SY-SUBRC = 0.
  MOVE WA_BSAK-SHKZG TO WA_FINAL-SHKZG.
  MOVE WA_BSAK-WRBTR TO WA_FINAL-WRBTR.
         IF WA_BSAK-SHKZG = 'H'.
          COMPUTE WA_FINAL-WRBTR = WA_BSAK-WRBTR * -1.
          V_WRBTR1 = V_WRBTR1 + WA_FINAL-WRBTR.
           else.
           compute wa_final-wrbtr = wa_bsak-wrbtr * 1.
            v_wrbtr1 = v_wrbtr1 - wa_final-wrbtr.
          ENDIF.
ENDIF.
MODIFY IT_FINAL FROM WA_FINAL.
ENDLOOP.
ENDLOOP.
LOOP AT IT_FINAL INTO WA_FINAL.
LOOP AT IT_BSIK INTO WA_BSIK.
READ TABLE IT_BSIK INTO WA_BSIK INDEX SY-TABIX.
IF SY-SUBRC = 0.
  MOVE WA_BSIK-BUKRS TO WA_FINAL-BUKRS.
  MOVE WA_BSIK-ZUONR TO WA_FINAL-ZUONR.
  MOVE WA_BSIK-BELNR TO WA_FINAL-BELNR.
  MOVE WA_BSIK-BLDAT TO WA_FINAL-BLDAT.
  MOVE WA_BSIK-XBLNR TO WA_FINAL-XBLNR.
  MOVE WA_BSIK-BLART TO WA_FINAL-BLART.
  MOVE WA_BSIK-SHKZG TO WA_FINAL-SHKZG.
  MOVE WA_BSIK-WRBTR TO WA_FINAL-WRBTR.
       IF WA_BSIK-SHKZG = 'H'.
          COMPUTE WA_FINAL-WRBTR = WA_BSIK-WRBTR * -1.
       ELSE.
          COMPUTE WA_FINAL-WRBTR = WA_BSIK-WRBTR * 1.
       ENDIF.
  ENDIF.
  READ TABLE IT_T001 INTO WA_T001 INDEX SY-TABIX.
  IF SY-SUBRC = 0.
    MOVE WA_T001-BUTXT TO WA_FINAL-BUTXT.
  ENDIF.
       MODIFY IT_FINAL FROM WA_FINAL.
       v_wrbtr = v_wrbtr + wa_final-wrbtr.
       write : / v_wrbtr.
    ENDLOOP.
ENDLOOP.
V_AMOUNT = V_WRBTR + V_WRBTR1.
write / v_amount.