Purchase tax register

Question

hi all,
can anybody help me for purchase tax register,
my code is as follows
TABLES : BSEG, MKPF, BKPF,J_1IEXCDTL, LFA1, RSEG, RBKP, MARA,EKKO,BSET,KONP.
DATA : BEGIN OF ITAB OCCURS 0,
         NAME1        LIKE     LFA1-NAME1,
         C_CODE       LIKE     RBKP-BUKRS ,      "COMPANY CODE.
         EBELN        LIKE     EKKO-EBELN ,      "PURC ORDER NO.
         TAX_CODE     LIKE     RBKP-MWSKZ1 ,     "TAX CODE
         AD_NO        LIKE     BSEG-BELNR ,      "Acnting Doc Number
         BELNR        LIKE     BKPF-BELNR ,      "Accountg Doct No.
         GJAHR        LIKE     BSEG-GJAHR ,      "FISCAL YEAR
         DATE         LIKE     RBKP-BUDAT ,
         LIFNR        LIKE     LFA1-LIFNR ,      "VENDOR no.
         BUDAT        LIKE     EKKO-AEDAT ,      "PO DATE.
         VBELN        LIKE     VBRK-VBELN,       "EXCISE INVC NO.
         QTY          LIKE     BSEG-MENGE ,      "Quantity
         AMT          LIKE     RSEG-WRBTR ,      "Amount Currency
         BED          LIKE     BSET-HWSTE ,      "TAX AMOUNT
         ADD          LIKE     LFA1-ORT01,       "VENDOR ADD
         CN_TYPE      LIKE     BSET-KSCHL,       "CONDITION TYPE
         HWBAS        LIKE     BSET-HWBAS,      "TAX AMT.
         KBETR        LIKE     KONP-KBETR,      "COND BASE TAX AMT
         KNUMH        LIKE     KONP-KNUMH,      "COND REC NO.
         ECESS        LIKE     BSET-HWSTE,
       END OF ITAB .
DATA:  BEGIN OF ITAB1 OCCURS 0,
         V_CODE       LIKE     LFA1-LIFNR,       "VENDOR CODE
         NAME         LIKE     LFA1-NAME1,       "VENDOR NAME.
         ADD          LIKE     LFA1-ORT01,       "VENDOR ADD
         VBELN        LIKE     vbrk-vbeln,       "EXCISE INVC NO.
         BDATE        LIKE     VBRK-FKDAT_RL,    "EX INVOICE DATE
         QTY          LIKE     BSEG-MENGE,       "FOR QUENTY
         UNIT         LIKE     BSEG-ERFME,       "FOR UNIT
         AMT          LIKE     BSEG-WRBTR ,      "Amount Currency
         L_CST        LIKE     BSEG-REWRT,       "FOR LST_CST AMOUNT
         EBELN        LIKE     EKKO-EBELN ,      "PURC ORDER NO.
                LIKE     BSEG-BELNR ,      "Accountg Doct No.
        T_AMOUNT  "AMOUNT BED+CESS
       END OF ITAB1.
DATA: BITAB LIKE TABLE OF BSEG WITH HEADER LINE.
DATA  EITAB LIKE  EKKO OCCURS 0 WITH HEADER LINE.
DATA  BSITAB LIKE TABLE OF BSET WITH HEADER LINE.
DATA RITAB LIKE RSEG OCCURS 0 WITH HEADER LINE.
DATA RBITAB LIKE TABLE OF RBKP WITH HEADER LINE.
DATA BKITAB LIKE TABLE OF BKPF WITH HEADER LINE.
DATA LITAB LIKE LFA1 OCCURS 0 WITH HEADER LINE.
DATA KITAB LIKE TABLE OF KONP WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK B_1 WITH FRAME.
  SELECT-OPTIONS  C_CODE      FOR BSEG-BUKRS.
  SELECT-OPTIONS  AD_NO       FOR BSEG-BELNR.
  SELECT-OPTIONS  GJAHR       FOR BSEG-GJAHR.
  SELECT-OPTIONS  DATE        FOR RBKP-BUDAT.
  SELECT-OPTIONS  TAX_CODE    FOR BSEG-KTOSL.
SELECTION-SCREEN END OF BLOCK B_1 .
      SELECT MWSKZ1 BUDAT LIFNR BUKRS BELNR GJAHR
          FROM RBKP
          INTO (RBITAB-MWSKZ1,RBITAB-BUDAT,RBITAB-LIFNR,RBITAB-BUKRS,RBITAB-BELNR,RBITAB-GJAHR)
          WHERE BUKRS IN C_CODE AND GJAHR IN GJAHR.
               ITAB-C_CODE = RBITAB-BUKRS.
               ITAB-DATE = RBITAB-BUDAT.
               ITAB-TAX_CODE = RBITAB-MWSKZ1.
               ITAB-LIFNR = RBITAB-LIFNR.
               ITAB-BELNR = RBITAB-BELNR.
               ITAB-GJAHR = RBITAB-GJAHR.
      SELECT SINGLE LIFNR NAME1 ORT01
          FROM LFA1
          INTO (LITAB-LIFNR,LITAB-NAME1,LITAB-ORT01)
          WHERE LIFNR EQ ITAB-LIFNR.
               ITAB-NAME1 = LITAB-NAME1.
               ITAB-ADD = LITAB-ORT01.
     SELECT SINGLE BELNR FROM BKPF INTO BKITAB-BELNR WHERE BUKRS = ITAB-C_CODE.
          ITAB-BELNR = BKITAB-BELNR.
       SELECT SINGLE BELNR FROM BSEG INTO BITAB-BELNR WHERE BUKRS = ITAB-C_CODE.
           ITAB-AD_NO = BITAB-BELNR.
        SELECT SINGLE KSCHL HWBAS KNUMH FROM BSET INTO (BSITAB-KSCHL,BSITAB-HWBAS,BSITAB-KNUMH) WHERE MWSKZ = ITAB-TAX_CODE.
           ITAB-BELNR = BSITAB-BELNR.
           ITAB-CN_TYPE = BSITAB-KSCHL.
           ITAB-HWBAS = BSITAB-HWBAS.
           ITAB-KNUMH = BSITAB-KNUMH.
         SELECT SINGLE WRBTR
              FROM BSEG
              INTO BITAB-WRBTR
              WHERE  EBELN = ITAB-EBELN.
                ITAB-AMT = BITAB-WRBTR.
        CONCATENATE ITAB-BELNR ITAB-C_CODE ITAB-GJAHR INTO BKITAB-AWKEY .
        SELECT SINGLE BELNR FROM BKPF INTO BKITAB-BELNR WHERE AWKEY = BKITAB-AWKEY.
                 ITAB-AD_NO = BKITAB-BELNR.
         SELECT SINGLE MENGE EBELN WRBTR
             FROM RSEG
             INTO (RITAB-MENGE,RITAB-EBELN,RITAB-WRBTR)
             WHERE BELNR = ITAB-BELNR.
                  ITAB-QTY   = RITAB-MENGE.
                  ITAB-EBELN = RITAB-EBELN.
                  ITAB-AMT = RITAB-WRBTR.
       SELECT SINGLE KBETR FROM KONP INTO (KITAB-KBETR) WHERE KNUMH = ITAB-KNUMH.
           ITAB-KNUMH = KITAB-KNUMH.
           ITAB-KBETR = KITAB-KBETR.
        SELECT * FROM BSET INTO TABLE BSITAB WHERE BELNR = ITAB-BELNR.
            LOOP AT BSITAB.
              IF BSITAB-KSCHL = 'ZPI1'.
                  ITAB-AMT = BSITAB-FWBAS.
                  CONTINUE.
              ENDIF.
              IF BSITAB-KSCHL = 'ZPIJ'.
                  ITAB-BED = BSITAB-FWBAS.
              ENDIF.
              IF BSITAB-KSCHL = 'ZPIO'.
                  ITAB-ECESS  = BSITAB-FWBAS.
              ENDIF.
            ENDLOOP.
   APPEND ITAB.
   CLEAR ITAB.
ENDSELECT.
LOOP AT ITAB.
  WRITE: / ITAB-BELNR,ITAB-NAME1,ITAB-ADD,ITAB-LIFNR,ITAB-TAX_CODE,ITAB-DATE,ITAB-QTY,ITAB-EBELN,ITAB-AMT,ITAB-CN_TYPE,ITAB-HWBAS.
ENDLOOP.
My problem is that i can't take tax amount from BSET table b'coz i select BELNR from RBKP and there is differ entry of BELNR in BSET so plz help me for take out the tax amount from BSET.
Thnx and Regard
Anirudh

Answer 1

hi,
check BSET table.
First get MIRO records from rbkp + rseg.
take corresponding a/c record from bkpf.
pass a/c doc to bset for tax data.
raj
Message was edited by:
        raj desai
Message was edited by:
        raj desai