Solved: Tds is not showing as per std tcode

Former Member · ‎2012 Oct 29

I have created a z report for tds deduction .For some document the TDS is deducted twice but in zreport is only showing the last value .The code i have written is below

*&---------------------------------------------------------------------*
*& Report ZFI_REP_TDS_REG
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZRFI_TDS_REG
        NO STANDARD PAGE HEADING LINE-SIZE 225.

TYPE-POOLS : SLIS .
TABLES : BSEG,BKPF,LFA1,KNA1,
        VBRK,
        VBRP,
        VBPA,VBFA,J_1IEWTCHLN,J_1ICERTIF,
        VBAK,
        KONV ,
        TVFK , TCURX,T059Z.

*&---------------------------------------------------------------------*
*&    GLOBLE DATA
*&---------------------------------------------------------------------*
DATA : G_SAVE(1)            TYPE C                      ,
      G_EXIT(1)            TYPE C                      ,
      G_VARIANT            LIKE DISVARIANT            ,
      GX_VARIANT          LIKE DISVARIANT            ,
      F2CODE              LIKE SY-UCOMM VALUE '&ETA' ,
      LAYOUT              TYPE SLIS_LAYOUT_ALV        ,
      PRG                  LIKE SY-REPID              ,
      GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER      ,
      GT_EVENTS            TYPE SLIS_T_EVENT          ,
      FIELDCAT            TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE ,
      END_PAGE            TYPE SLIS_FORMNAME,
      HEADING              TYPE SLIS_T_LISTHEADER ,
      FOOTER              TYPE SLIS_T_LISTHEADER.

DATA : BEGIN OF WA_ITAB ,
      BELNR LIKE BSEG-BELNR,
      GJAHR LIKE BSEG-GJAHR,
      LIFNR LIKE BSEG-LIFNR,
      NAME1 LIKE LFA1-NAME1,
      DMBTR LIKE BSEG-DMBTR,
      TDS LIKE BSEG-DMBTR,
      SC LIKE BSEG-DMBTR,
      CESS LIKE BSEG-DMBTR,
      SHCESS LIKE BSEG-DMBTR,
      QBSHB LIKE BSEG-QBSHB,
      QSREC LIKE LFBW-QSREC,
      RTEXT(10),
      QSATZ LIKE T059Z-QSATZ,
      SECCO LIKE BSEG-SECCO,
      PRCTR TYPE BSEG-PRCTR ,
      BUDAT LIKE BKPF-BUDAT,
      BLDAT LIKE BKPF-BLDAT,
      XBLNR LIKE BKPF-XBLNR,
      J_1IINTCHLN LIKE J_1IEWTCHLN-J_1IINTCHLN, "inter-num
      J_1IINTCHDT LIKE J_1IEWTCHLN-J_1IINTCHDT, "date
      J_1IEXTCHLN LIKE J_1IEWTCHLN-J_1IEXTCHLN, " exter-num
      J_1IEXTCHDT LIKE J_1IEWTCHLN-J_1IEXTCHDT, "date
      J_1ITDSDOC LIKE J_1ICERTIF-J_1ITDSDOC, "tds certif no
      J_1ICERTDT LIKE J_1ICERTIF-J_1ICERTDT, "date
      TEXT(5),
      J_1IPANNO LIKE J_1IMOVEND-J_1IPANNO,
      END OF WA_ITAB.

DATA : BEGIN OF WA_BSEG1 ,
      BELNR LIKE BSEG-BELNR,
      GJAHR LIKE BSEG-GJAHR,
      BUKRS LIKE BSEG-BUKRS,
      BUZEI LIKE BSEG-BUZEI,
      LIFNR LIKE BSEG-LIFNR,
      SECCO LIKE BSEG-SECCO,
      DMBTR LIKE BSEG-DMBTR,
      SHKZG LIKE BSEG-SHKZG,
      QBSHB LIKE BSEG-QBSHB,
      REBZG LIKE BSEG-REBZG,
      REBZJ LIKE BSEG-REBZJ,
      PRCTR TYPE BSEG-PRCTR ,
      UMSKZ TYPE BSEG-UMSKZ ,
      END OF WA_BSEG1.

DATA : BEGIN OF WA_BSEG2 ,
      BELNR LIKE BSEG-BELNR,
      GJAHR LIKE BSEG-GJAHR,
      BUKRS LIKE BSEG-BUKRS,
      BUZEI LIKE BSEG-BUZEI,
      LIFNR LIKE BSEG-LIFNR,
      SECCO LIKE BSEG-SECCO,
      DMBTR LIKE BSEG-DMBTR,
      SHKZG LIKE BSEG-SHKZG,
      QBSHB LIKE BSEG-QBSHB,
      REBZG LIKE BSEG-REBZG,
      REBZJ LIKE BSEG-REBZJ,
      PRCTR TYPE BSEG-PRCTR ,
      END OF WA_BSEG2.

DATA : WITH_ITEM1 LIKE STANDARD TABLE OF WITH_ITEM WITH HEADER LINE.
DATA : ITAB LIKE STANDARD TABLE OF WA_ITAB WITH HEADER LINE.
DATA : BSEG1 LIKE STANDARD TABLE OF WA_BSEG1 WITH HEADER LINE.
DATA : BSEG2 LIKE STANDARD TABLE OF WA_BSEG2 WITH HEADER LINE.
DATA: BKPF1 TYPE STANDARD TABLE OF BKPF WITH HEADER LINE.

RANGES : R_VBTYP FOR VBRK-VBTYP.

DATA : CURR_DEC TYPE I ,
        N    TYPE I.
DATA : TDID TYPE THEAD-TDID,
        TDNAME TYPE THEAD-TDNAME,
        TDOBJECT TYPE THEAD-TDOBJECT.

DATA: BEGIN    OF TLINE OCCURS 10.
INCLUDE STRUCTURE TLINE .
DATA: END      OF TLINE .

DATA: AVG1 TYPE P DECIMALS 2,
      AVG2 TYPE P DECIMALS 2,
      V_QSATZ1 LIKE T059Z-QSATZ,
      V_QSATZ2 LIKE T059Z-QSATZ,
      V_QSATZ3 LIKE T059Z-QSATZ,
      V_QSATZ4 LIKE T059Z-QSATZ,
      V_TDS LIKE BSEG-DMBTR,
      V_SC LIKE BSEG-DMBTR,
      V_CESS LIKE BSEG-DMBTR,
      V_SHCESS LIKE BSEG-DMBTR,
      RESULT1 LIKE T059Z-QSATZ,
      RESULT2 LIKE T059Z-QSATZ.
DATA : YEAR    TYPE GJAHR,
        YEAR1    TYPE GJAHR.

SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS S_BUKRS FOR BKPF-BUKRS NO-EXTENSION NO INTERVALS OBLIGATORY DEFAULT '1100'.

SELECT-OPTIONS S_BUDAT FOR BKPF-BUDAT OBLIGATORY. "DOCUMENT DATE

SELECTION-SCREEN END OF BLOCK BLK1.

SELECTION-SCREEN BEGIN OF BLOCK BLK2 WITH FRAME TITLE TEXT-002.
PARAMETERS: P_VARI LIKE DISVARIANT-VARIANT. " ALV Variant
SELECTION-SCREEN END OF BLOCK BLK2.

*----------------------------------------------------------------------*
*    INITIALIZATION                                                  *
*----------------------------------------------------------------------*
INITIALIZATION .

CALL FUNCTION 'FTI_FISCAL_YEAR_MONTH_GET'
    EXPORTING
      I_BUKRS = '1100'
      I_BUDAT = SY-DATUM
    IMPORTING
      E_GJAHR = YEAR.
CONCATENATE YEAR '04' '01' INTO S_BUDAT-LOW.
S_BUDAT-HIGH = SY-DATUM.
APPEND S_BUDAT.

PRG = SY-REPID .

R_VBTYP-SIGN = 'I'.
R_VBTYP-OPTION = 'EQ'.
R_VBTYP-LOW = 'N'.
APPEND R_VBTYP.

R_VBTYP-SIGN = 'I'.
R_VBTYP-OPTION = 'EQ'.
R_VBTYP-LOW = 'O'.
APPEND R_VBTYP.

R_VBTYP-SIGN = 'I'.
R_VBTYP-OPTION = 'EQ'.
R_VBTYP-LOW = 'P'.
APPEND R_VBTYP.

R_VBTYP-SIGN = 'I'.
R_VBTYP-OPTION = 'EQ'.
R_VBTYP-LOW = 'S'.
APPEND R_VBTYP.

R_VBTYP-SIGN = 'I'.
R_VBTYP-OPTION = 'EQ'.
R_VBTYP-LOW = 'U'.
APPEND R_VBTYP.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI.
PERFORM F4_FOR_VARIANT.

START-OF-SELECTION.

PERFORM GET_DATA .
IF ITAB[] IS NOT INITIAL .
    PERFORM DISP_DATA .
ELSE .
    MESSAGE I000(ZCVS) WITH 'No data Found ' .
ENDIF .

*&---------------------------------------------------------------------*
*&      Form GET_DATA
*&---------------------------------------------------------------------*

FORM GET_DATA.
TYPES : BEGIN OF TY_BSEG ,
          BUKRS TYPE BSEG-BUKRS ,
          GJAHR TYPE BSEG-GJAHR ,
          BUZEI TYPE BSEG-BUZEI ,
          BELNR TYPE BSEG-LIFNR ,
          QSSKZ TYPE BSEG-QSSKZ ,
*          PRCTR TYPE BSEG-PRCTR,
          END OF TY_BSEG .
DATA : IT_BSEG TYPE TABLE OF TY_BSEG WITH HEADER LINE.

DATA : IT_BSEG_EXT TYPE FAGL_T_BSEG_EXT WITH HEADER LINE.

DATA : KNUMV LIKE VBRK-KNUMV .
DATA KONV1 TYPE KONV OCCURS 0 WITH HEADER LINE.

SELECT * FROM BKPF INTO TABLE BKPF1
                    WHERE BUKRS IN S_BUKRS
*                    AND gjahr = s_gjahr
                    AND BUDAT IN S_BUDAT
*                    AND blart = 'KR'
                    AND BSTAT IN (SPACE, 'A' , 'B' , 'D')
                    AND    STBLG = ''
                    AND XREVERSAL EQ SPACE.

CHECK BKPF1[] IS NOT INITIAL.

SELECT * FROM BSEG INTO CORRESPONDING FIELDS OF TABLE BSEG1
                        FOR ALL ENTRIES IN BKPF1
                      WHERE BUKRS = BKPF1-BUKRS
                      AND BELNR = BKPF1-BELNR
                      AND GJAHR = BKPF1-GJAHR.
*                      AND KOART IN ('K')
*                      AND BSCHL in ('31',34)
*                      AND LIFNR NE SPACE
*                      AND SECCO NE SPACE.
*                      AND QBSHB NE 0.

CHECK BKPF1[] IS NOT INITIAL.

SELECT * FROM BSEG APPENDING CORRESPONDING FIELDS OF TABLE BSEG1
                        FOR ALL ENTRIES IN BKPF1
                      WHERE BUKRS = BKPF1-BUKRS
                      AND BELNR = BKPF1-BELNR
                      AND GJAHR = BKPF1-GJAHR
*                      AND KOART IN ('K')
*                      AND BSCHL in ('31',34)
*                      AND LIFNR NE SPACE
                      AND SECCO NE SPACE
                      AND QSZNR EQ '000001'.

sort bseg1 by belnr buzei.
* delete adjacent duplicates from bseg1 comparing belnr buzei.

BSEG2[] = BSEG1[].

LOOP AT BSEG2.
    READ TABLE BKPF1 WITH KEY BELNR = BSEG2-BELNR GJAHR = BSEG2-GJAHR BUKRS = BSEG2-BUKRS.
    IF BKPF1-TCODE = 'MIRO' OR BKPF1-TCODE = 'MR8M'.
      READ TABLE BSEG1 WITH KEY BELNR = BSEG2-REBZG GJAHR = BSEG2-REBZJ.
      IF SY-SUBRC = 0.
*        DELETE BSEG1 WHERE BELNR = BSEG2-REBZG AND GJAHR = BSEG2-REBZJ.
*        DELETE BSEG1 WHERE BELNR = BSEG2-BELNR AND GJAHR = BSEG2-GJAHR.
      ENDIF.
    ENDIF.
ENDLOOP.

SELECT * FROM WITH_ITEM INTO CORRESPONDING FIELDS OF TABLE WITH_ITEM1
                        FOR ALL ENTRIES IN BSEG1
                        WHERE BUKRS = BSEG1-BUKRS
                        AND BELNR = BSEG1-BELNR
                        AND GJAHR = BSEG1-GJAHR
*                        AND wt_qsshh NE 0
                        AND J_1IBUZEI NE SPACE.

IF NOT BSEG1[] IS INITIAL.
*    REFRESH IT_BSEG.
    SELECT BUKRS
          GJAHR
          BUZEI
          BELNR
          QSSKZ
      INTO TABLE IT_BSEG
      FROM BSEG
      FOR ALL ENTRIES IN BSEG1
    WHERE BUKRS IN S_BUKRS
      AND BELNR EQ BSEG1-BELNR
      AND GJAHR EQ BSEG1-GJAHR
      AND QSSKZ NE SPACE
      AND QSSKZ NE 'XX'.
    IF SY-SUBRC EQ 0.
      SORT IT_BSEG BY BUKRS BELNR buzei.
*      DELETE ADJACENT DUPLICATES FROM IT_BSEG COMPARING BELNR buzei.
*          DELETE ADJACENT DUPLICATES FROM IT_BSEG comparing buzei.
    ENDIF.
ENDIF.

LOOP AT BSEG1.
    READ TABLE WITH_ITEM1 WITH KEY BELNR = BSEG1-BELNR
                GJAHR = BSEG1-GJAHR
                BUKRS = BSEG1-BUKRS
                BUZEI = BSEG1-BUZEI.
    IF SY-SUBRC NE 0.
      CONTINUE.
    ENDIF.
    ITAB-LIFNR = BSEG1-LIFNR.

    SELECT SINGLE NAME1 FROM LFA1 INTO ITAB-NAME1 WHERE LIFNR = BSEG1-LIFNR.

    SELECT SINGLE QSREC FROM LFBW INTO ITAB-QSREC WHERE LIFNR = BSEG1-LIFNR
                                                  AND BUKRS = BSEG1-BUKRS.
    IF SY-SUBRC = 0.
      IF ITAB-QSREC = 'CO'.
        ITAB-RTEXT = '1'.
      ELSEIF ITAB-QSREC = 'OT'.
        ITAB-RTEXT = '2'.
      ENDIF.
    ENDIF.
    ITAB-SECCO = BSEG1-SECCO.

    READ TABLE BKPF1 WITH KEY BELNR = BSEG1-BELNR GJAHR = BSEG1-GJAHR BUKRS = BSEG1-BUKRS.
    IF SY-SUBRC = 0.
      ITAB-BELNR = BKPF1-BELNR.
      ITAB-BUDAT = BKPF1-BUDAT.
      ITAB-BLDAT = BKPF1-BLDAT.
      ITAB-XBLNR = BKPF1-XBLNR.
    ENDIF.

    SELECT SINGLE J_1IPANNO FROM J_1IMOVEND INTO ITAB-J_1IPANNO WHERE LIFNR = ITAB-LIFNR.

*    CLEAR : V_QSATZ1,V_QSATZ2 , V_QSATZ3 ,V_QSATZ4.
***************

    LOOP AT WITH_ITEM1 WHERE BELNR = BSEG1-BELNR
                  AND GJAHR = BSEG1-GJAHR
                  AND BUKRS = BSEG1-BUKRS
                  AND BUZEI = BSEG1-BUZEI.

      READ TABLE BKPF1 WITH KEY BELNR = WITH_ITEM1-BELNR GJAHR = WITH_ITEM1-GJAHR BUKRS = WITH_ITEM1-BUKRS.

      IF WITH_ITEM1-WITHT = '1C' OR WITH_ITEM1-WITHT = 'C1' OR WITH_ITEM1-WITHT = 'A1' OR WITH_ITEM1-WITHT = '1A' OR WITH_ITEM1-WITHT = 'A5' OR WITH_ITEM1-WITHT = '5A'
      OR WITH_ITEM1-WITHT = 'C5' OR WITH_ITEM1-WITHT = '5C'OR WITH_ITEM1-WITHT = 'H1' OR WITH_ITEM1-WITHT = '1H' OR WITH_ITEM1-WITHT = 'I1' OR WITH_ITEM1-WITHT = 'I5'
      OR WITH_ITEM1-WITHT = 'P1' OR WITH_ITEM1-WITHT = '1I' OR WITH_ITEM1-WITHT = '5I' OR WITH_ITEM1-WITHT = '1P' OR WITH_ITEM1-WITHT = 'J1' OR WITH_ITEM1-WITHT = '1J'
      OR WITH_ITEM1-WITHT = '1U' OR WITH_ITEM1-WITHT = 'U1'.

*        itab-qsatz = itab-qsatz + with_item1-qsatz.
        V_QSATZ1 = WITH_ITEM1-QSATZ.

        IF WITH_ITEM1-WT_QBSHH LE 0.
          ITAB-TDS = WITH_ITEM1-WT_QBSHH .
        ELSE.
          ITAB-TDS = WITH_ITEM1-WT_QBSHH * -1.
        ENDIF.

*      IF WITH_ITEM1-WT_QBSHH < 0.
        IF BKPF1-TCODE = 'FBA7' OR BKPF1-TCODE = 'FBZ2'.
          ITAB-TDS = WITH_ITEM1-WT_QBSHH * -1.
        ENDIF.
      ENDIF.

      IF WITH_ITEM1-WITHT = '2C' or WITH_ITEM1-WITHT = 'C2' or WITH_ITEM1-WITHT = 'A2' or WITH_ITEM1-WITHT = 'A6' or WITH_ITEM1-WITHT = '2A' or WITH_ITEM1-WITHT = '6A'
      or WITH_ITEM1-WITHT = 'C6' or WITH_ITEM1-WITHT = '6C' or WITH_ITEM1-WITHT = 'H2' or WITH_ITEM1-WITHT = '2H' or WITH_ITEM1-WITHT = 'I2' or WITH_ITEM1-WITHT = 'I6'
      or WITH_ITEM1-WITHT = 'P2' or WITH_ITEM1-WITHT = '2I' or WITH_ITEM1-WITHT = '6I' or WITH_ITEM1-WITHT = '2P' or WITH_ITEM1-WITHT = 'J2' or WITH_ITEM1-WITHT = '2J'.

        V_QSATZ2 = WITH_ITEM1-QSATZ.

        IF WITH_ITEM1-WT_QBSHH LE 0.
          ITAB-SC = WITH_ITEM1-WT_QBSHH .
        ELSE.
          ITAB-SC = WITH_ITEM1-WT_QBSHH * -1.
        ENDIF.

        IF BKPF1-TCODE = 'FBA7' OR BKPF1-TCODE = 'FBZ2'.
          ITAB-SC = WITH_ITEM1-WT_QBSHH * -1.
        ENDIF.
      ENDIF.

      IF WITH_ITEM1-WITHT = '3C' OR WITH_ITEM1-WITHT = 'C3' or WITH_ITEM1-WITHT = 'A3' or WITH_ITEM1-WITHT = 'A7' or WITH_ITEM1-WITHT = '3A' or WITH_ITEM1-WITHT = '7A'
      or WITH_ITEM1-WITHT = 'C7'or WITH_ITEM1-WITHT = '7C' or WITH_ITEM1-WITHT = 'H3' or WITH_ITEM1-WITHT = '3H' or WITH_ITEM1-WITHT = 'I3' or WITH_ITEM1-WITHT = 'I7'
      or WITH_ITEM1-WITHT = 'P3' or WITH_ITEM1-WITHT = 'C2' or WITH_ITEM1-WITHT = '3I' or WITH_ITEM1-WITHT = '7I' or WITH_ITEM1-WITHT = '3P' or WITH_ITEM1-WITHT = 'J3'
      or WITH_ITEM1-WITHT = '3J'.
*
        V_QSATZ3 = WITH_ITEM1-QSATZ.

        IF WITH_ITEM1-WT_QBSHH LE 0.
          ITAB-CESS = WITH_ITEM1-WT_QBSHH .
        ELSE.
          ITAB-CESS = WITH_ITEM1-WT_QBSHH * -1.
        ENDIF.

        IF BKPF1-TCODE = 'FBA7' OR BKPF1-TCODE = 'FBZ2'.
          ITAB-CESS = WITH_ITEM1-WT_QBSHH * -1.
        ENDIF.
      ENDIF.

      IF WITH_ITEM1-WITHT = '4C' OR WITH_ITEM1-WITHT = 'C4' or WITH_ITEM1-WITHT = 'A4' or WITH_ITEM1-WITHT = 'A8' or WITH_ITEM1-WITHT = '4A' or WITH_ITEM1-WITHT = '8A'
      or WITH_ITEM1-WITHT = 'C4' or WITH_ITEM1-WITHT = 'C8' or WITH_ITEM1-WITHT = '4C' or WITH_ITEM1-WITHT = '8C' or WITH_ITEM1-WITHT = 'H4' or WITH_ITEM1-WITHT = '4H'
      or WITH_ITEM1-WITHT = 'I4' or WITH_ITEM1-WITHT = 'I8' or WITH_ITEM1-WITHT = 'P4' or WITH_ITEM1-WITHT = '4I' or WITH_ITEM1-WITHT = '8I' or WITH_ITEM1-WITHT = '4P'
      or WITH_ITEM1-WITHT = '4J' or WITH_ITEM1-WITHT = 'J4'.
*
        V_QSATZ4 = WITH_ITEM1-QSATZ.

        IF WITH_ITEM1-WT_QBSHH LE 0.
          ITAB-SHCESS = WITH_ITEM1-WT_QBSHH .
        ELSE.
          ITAB-SHCESS = WITH_ITEM1-WT_QBSHH * -1.
        ENDIF.

        IF BKPF1-TCODE = 'FBA7' OR BKPF1-TCODE = 'FBZ2'.
          ITAB-SHCESS = WITH_ITEM1-WT_QBSHH * -1.
        ENDIF.
      ENDIF.

      ITAB-J_1IINTCHLN = WITH_ITEM1-J_1IINTCHLN. "inter-num
      ITAB-J_1IINTCHDT = WITH_ITEM1-J_1IINTCHDT. "date

      SELECT SINGLE * FROM J_1IEWTCHLN WHERE BUKRS = BSEG1-BUKRS
                                      AND GJAHR = BSEG1-GJAHR
                                      AND J_1IINTCHLN = ITAB-J_1IINTCHLN
                                      AND J_1IINTCHDT = ITAB-J_1IINTCHDT.
      IF SY-SUBRC = 0.
        ITAB-J_1IEXTCHLN = J_1IEWTCHLN-J_1IEXTCHLN. " exter-num
        ITAB-J_1IEXTCHDT = J_1IEWTCHLN-J_1IEXTCHDT. "date
      ENDIF.

      IF SY-SUBRC = 0.
        ITAB-J_1ITDSDOC = WITH_ITEM1-CTNUMBER. "tds certif no
        ITAB-J_1ICERTDT = WITH_ITEM1-J_1ICERTDT. "date
      ENDIF.

      SELECT SINGLE QSCOD FROM T059Z INTO ITAB-SECCO WHERE LAND1 = 'IN'
                                AND WITHT    = WITH_ITEM1-WITHT
                                AND WT_WITHCD = WITH_ITEM1-WT_WITHCD .

    ENDLOOP.

    RESULT1 = ( V_QSATZ1 * V_QSATZ2 ) / 100.
    RESULT1 = RESULT1 + V_QSATZ1.
    RESULT2 = ( RESULT1 * 3 ) / 100.
    ITAB-QSATZ = RESULT1 + RESULT2 .

    IF BSEG1-SHKZG = 'H'.
      BSEG1-DMBTR = BSEG1-DMBTR * -1.
    ENDIF.

    ITAB-QBSHB = ITAB-TDS + ITAB-SC + ITAB-CESS + ITAB-SHCESS.

* To get advance payment value instead of actual amount paid
*    CLEAR WITH_ITEM1.
    READ TABLE WITH_ITEM1 WITH KEY BELNR = BSEG1-BELNR
                GJAHR = BSEG1-GJAHR
                BUKRS = BSEG1-BUKRS
                BUZEI = BSEG1-BUZEI
                WITHT = 'I1'
                WT_BASMAN = 'X'.
    IF SY-SUBRC EQ 0.
      ITAB-DMBTR = WITH_ITEM1-WT_QSSHH.
    ELSE.
      IF BSEG1-UMSKZ NE 'A'.
        ITAB-DMBTR = BSEG1-DMBTR + ITAB-QBSHB.
      ELSE.
        ITAB-DMBTR = BSEG1-DMBTR.
      ENDIF.
    ENDIF.

*    CLEAR IT_BSEG.
    READ TABLE IT_BSEG WITH KEY BUKRS = BSEG1-BUKRS
                                BELNR = BSEG1-BELNR
                                buzei = BSEG1-Buzei.
    IF SY-SUBRC EQ 0.
      CALL FUNCTION 'FAGL_GET_GL_DOCUMENT'
        EXPORTING
          I_RLDNR                = '0L'
          I_BUKRS                = IT_BSEG-BUKRS
          I_BELNR                = IT_BSEG-BELNR
          I_GJAHR                = IT_BSEG-GJAHR
          I_BUZEI                = IT_BSEG-BUZEI
*        IT_FIELDLIST            = IT_FIELDLIST
*        IT_WHERE_CLAUSE        = IT_WHERE_CLAUSE
*        I_AUTHORITY_CHECK      = ' '
      IMPORTING
        ET_BSEG_EXT            = IT_BSEG_EXT[]
      EXCEPTIONS
        NOT_FOUND              = 1.

      IF SY-SUBRC EQ 0.
*        CLEAR IT_BSEG_EXT.
        READ TABLE IT_BSEG_EXT INDEX 1.
        IF SY-SUBRC EQ 0.
          MOVE IT_BSEG_EXT-PRCTR TO ITAB-PRCTR.
          REFRESH IT_BSEG_EXT.
          CLEAR IT_BSEG_EXT.
        ENDIF.
      ENDIF.
    ENDIF.

    APPEND ITAB.
*    CLEAR ITAB.

*    endloop.
ENDLOOP.
ENDFORM.                    " GET_DATA

*&---------------------------------------------------------------------*
*&      Form DISP_DATA
*&---------------------------------------------------------------------*
FORM DISP_DATA .
PERFORM MERGE_FIELDCATALOG .
PERFORM SET_FIELDCAT .
PERFORM EVENTTAB_BUILD USING GT_EVENTS .
PERFORM BUILD_LAYOUT USING LAYOUT .
IF G_SAVE EQ SPACE .
    PERFORM INITIALIZE_VARIANT .
ENDIF .
PERFORM DISP_ALV .

ENDFORM.                    " DISP_DATA
*&---------------------------------------------------------------------*
*&      Form MERGE_FIELDCATALOG
*&---------------------------------------------------------------------*
FORM MERGE_FIELDCATALOG .
*

ENDFORM.                    " MERGE_FIELDCATALOG

*&---------------------------------------------------------------------*
*&      Form SET_FIELDCAT
*&---------------------------------------------------------------------*
FORM SET_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'BELNR'.
FIELDCAT-SELTEXT_M = 'Document No'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'RTEXT'.
FIELDCAT-SELTEXT_M = 'Recepient Type'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'LIFNR'.
FIELDCAT-SELTEXT_M = 'Vendor'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'NAME1'.
FIELDCAT-SELTEXT_M = 'NAME'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'PRCTR'.
FIELDCAT-NO_ZERO = 'X'.
FIELDCAT-SELTEXT_M = 'Profit Center'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'J_1IPANNO'.
FIELDCAT-SELTEXT_M = 'PAN.No.'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'SECCO'.
FIELDCAT-SELTEXT_M = 'Section'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'BUDAT'.
FIELDCAT-SELTEXT_M = 'Posting Date'.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'BLDAT'.
FIELDCAT-SELTEXT_M = 'Document Date'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'XBLNR'.
FIELDCAT-SELTEXT_M = 'Vendor bill no.'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'DMBTR'.
FIELDCAT-SELTEXT_M = 'Bill Amount'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'QSATZ'.
FIELDCAT-SELTEXT_M = 'TDS %'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'TDS'.
FIELDCAT-SELTEXT_M = 'TDS'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'SC'.
FIELDCAT-SELTEXT_M = 'Surcharge'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'CESS'.
FIELDCAT-SELTEXT_M = 'ECESS'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'SHCESS'.
FIELDCAT-SELTEXT_M = 'SHECESS'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'QBSHB'.
FIELDCAT-SELTEXT_M = 'Total Amt'.
*        fieldcat-hotspot = 'X' .
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'J_1IINTCHLN'.
FIELDCAT-SELTEXT_M = 'Internal Challan'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'J_1IINTCHDT'.
FIELDCAT-SELTEXT_M = 'Internal challan Date'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'J_1IEXTCHLN'.
FIELDCAT-SELTEXT_M = 'External Challan'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'J_1IEXTCHDT'.
FIELDCAT-SELTEXT_M = 'External Challan Date'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'J_1ITDSDOC'.
FIELDCAT-SELTEXT_M = 'Certificate'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'J_1ICERTDT'.
FIELDCAT-SELTEXT_M = 'Cert.Date.'.
APPEND FIELDCAT.

CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-FIELDNAME = 'TEXT'.
FIELDCAT-SELTEXT_M = 'Sign'.
APPEND FIELDCAT.

ENDFORM.                    " SET_FIELDCAT

*&---------------------------------------------------------------------*
*&      Form EVENTTAB_BUILD
*&---------------------------------------------------------------------*
FORM EVENTTAB_BUILD USING LT_EVENTS TYPE SLIS_T_EVENT.
CONSTANTS:
GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',
GC_FORMNAME_END_OF_LIST TYPE SLIS_FORMNAME VALUE 'END_OF_PAGE'.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
DATA: LS_EVENT1 TYPE SLIS_ALV_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 0
    IMPORTING
      ET_EVENTS = LT_EVENTS.

READ TABLE LT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                          INTO LS_EVENT.
IF SY-SUBRC = 0.
    MOVE GC_FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.
    APPEND LS_EVENT TO LT_EVENTS.
ENDIF.

DATA TODAY(10).
DATA TODAY1(10).
DATA TODAY2(10).
DATA TIMEDAY1(10).

DATA : HLINE TYPE SLIS_LISTHEADER .
DATA : TEXT(50).

HLINE-TYP = 'H'.
TEXT = 'SHIV-VANI TDS Register'.
HLINE-INFO = TEXT.
APPEND HLINE TO HEADING.
CLEAR TEXT.

CLEAR TODAY .
CONCATENATE SY-DATUM+6(2) SY-DATUM+4(2)
      SY-DATUM+0(4) INTO TODAY SEPARATED BY '.'.

CONCATENATE SY-UZEIT+0(2) SY-UZEIT+2(2)
      SY-UZEIT+4(2) INTO TIMEDAY1 SEPARATED BY '.'.

HLINE-TYP = 'A'.
CONCATENATE 'DATE -' TODAY 'TIME -' TIMEDAY1 INTO HLINE-INFO SEPARATED BY ' '.
APPEND HLINE TO HEADING.
HLINE-TYP = 'A'.
CONCATENATE 'User Name -' SY-UNAME INTO HLINE-INFO SEPARATED BY SPACE .
APPEND HLINE TO HEADING.
CONCATENATE S_BUDAT-LOW+6(2) S_BUDAT-LOW+4(2)
      S_BUDAT-LOW+0(4) INTO TODAY1 SEPARATED BY '.'.
CONCATENATE S_BUDAT-HIGH+6(2) S_BUDAT-HIGH+4(2)
    S_BUDAT-HIGH+0(4) INTO TODAY2 SEPARATED BY '.'.
HLINE-TYP = 'A'.
CONCATENATE 'From - ' TODAY1 ' to-' TODAY2 INTO HLINE-INFO .
APPEND HLINE TO HEADING.
HLINE-TYP = 'H'.
TEXT = 'Calculated Average Rates:'.
HLINE-INFO = TEXT.
APPEND HLINE TO FOOTER.
CLEAR TEXT.

DATA: TEXT1(15).
TEXT1 = AVG1.

HLINE-TYP = 'S'.
CONCATENATE TEXT1 'Per KG (AWB)' INTO TEXT SEPARATED BY SPACE.
HLINE-INFO = TEXT.
APPEND HLINE TO FOOTER.
CLEAR :TEXT,TEXT1.

TEXT1 = AVG2.

HLINE-TYP = 'S'.
CONCATENATE TEXT1 'Per KG (Bill)' INTO TEXT SEPARATED BY SPACE.
HLINE-INFO = TEXT.
APPEND HLINE TO FOOTER.
CLEAR :TEXT,TEXT1.

ENDFORM.                    "eventtab_build
*&---------------------------------------------------------------------*
*&      Form BUILD_LAYOUT
*&---------------------------------------------------------------------*
FORM BUILD_LAYOUT USING P_LAYOUT TYPE SLIS_LAYOUT_ALV.
* P_LAYOUT-F2CODE      = F2CODE.
P_LAYOUT-ZEBRA        = 'X'.
P_LAYOUT-DETAIL_POPUP = 'X'.

ENDFORM.                    " BUILD_LAYOUT
*&---------------------------------------------------------------------*
*&      Form INITIALIZE_VARIANT
*&---------------------------------------------------------------------*
FORM INITIALIZE_VARIANT .
G_SAVE = 'A'.
CLEAR G_VARIANT.
G_VARIANT-REPORT = PRG.
GX_VARIANT = G_VARIANT .
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    EXPORTING
      I_SAVE    = G_SAVE
    CHANGING
      CS_VARIANT = GX_VARIANT
    EXCEPTIONS
      NOT_FOUND = 2.

ENDFORM.                    " INITIALIZE_VARIANT
*&---------------------------------------------------------------------*
*&      Form DISP_ALV
*&---------------------------------------------------------------------*
FORM DISP_ALV .
*
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM      = PRG
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
      I_BACKGROUND_ID          = 'ALV_BACKGROUND'
      IS_LAYOUT                = LAYOUT
      IT_FIELDCAT              = FIELDCAT[]
      I_SAVE                  = G_SAVE
      I_DEFAULT                = 'X'
      IS_VARIANT              = G_VARIANT
      IT_EVENTS                = GT_EVENTS[]
*      I_CALLBACK_HTML_END_OF_LIST = ' '
**      I_SCREEN_END_LINE = '4'

    TABLES
      T_OUTTAB                = ITAB
    EXCEPTIONS
      PROGRAM_ERROR            = 1
      OTHERS                  = 2.

ENDFORM.                    " DISP_ALV

*&--------------------------------------------------------------------*
*&      Form top_of_page
*&--------------------------------------------------------------------*
*      text
*---------------------------------------------------------------------*
FORM TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = HEADING[]
      I_LOGO            = 'ENJOY_SAP_LOGO'.
ENDFORM.                    "TOP_OF_PAGE

*&--------------------------------------------------------------------*
*&      Form user_COMMAND
*&--------------------------------------------------------------------*
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
                        RS_SELFIELD TYPE SLIS_SELFIELD.
IF R_UCOMM EQ '&IC1' .
    READ TABLE ITAB INDEX RS_SELFIELD-TABINDEX.
    CHECK SY-SUBRC EQ 0.

    IF RS_SELFIELD-FIELDNAME EQ 'BELNR'.
      SET PARAMETER ID 'BLN' FIELD ITAB-BELNR.
      SET PARAMETER ID 'BUK' FIELD S_BUKRS-LOW.
      SET PARAMETER ID 'GJR' FIELD YEAR.
      CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
*    ELSEIF rs_selfield-fieldname EQ 'VBELN'.
*      SET PARAMETER ID 'VF' FIELD itab-vbeln.
*      CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN.
    ENDIF.
ENDIF.

ENDFORM.                    " BUILD_FIELDCAT

**&--------------------------------------------------------------------*
**&      Form standard
**&--------------------------------------------------------------------*
*FORM STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
* SET PF-STATUS 'STATUS' EXCLUDING RT_EXTAB.
*ENDFORM.                    "standard
*&---------------------------------------------------------------------*
*&      Form F4_FOR_VARIANT
*&---------------------------------------------------------------------*
FORM F4_FOR_VARIANT .
G_SAVE = 'A'.
G_VARIANT-REPORT = PRG.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      IS_VARIANT = G_VARIANT
      I_SAVE    = G_SAVE
    IMPORTING
      E_EXIT    = G_EXIT
      ES_VARIANT = GX_VARIANT
    EXCEPTIONS
      NOT_FOUND = 2.
IF SY-SUBRC = 2.
    MESSAGE ID SY-MSGID TYPE 'S'      NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
    IF G_EXIT = SPACE.
      P_VARI = GX_VARIANT-VARIANT.
    ENDIF.
ENDIF.

ENDFORM.                    " F4_FOR_VARIANT

Former Member · ‎2012 Nov 15

I am attaching both the output stanadard one and zreport output this std out here itemno3 and 4 is TDS for a single document no6800236

Former Member · ‎2012 Nov 15

I am attaching both the output stanadard one and zreport output this std out here itemno3 and 4 is TDS for a single document no6800236

Former Member · ‎2012 Nov 15

This is zreport output.Here for docno 6800236 only one tds is showing

Sijin_Chandran · ‎2012 Nov 15

Hi Durgeshk ,

First let me tell you that you have accidently double pasted your code.

You check this line of code of your program :

IF WITH_ITEM1-WITHT = '1C' OR WITH_ITEM1-WITHT = 'C1' OR WITH_ITEM1-WITHT = 'A1'..........

Check whether you have maintained the value of WITHT ( Indicator for withholding tax type) for all kinds of TDS or not.

If yes then ok.

In that code you can see that you have taken the corresponding value to TDS field of ITAB , you need to add all the values of TDS values in i.e you need to use ADD command in order to get all the TDSes

IF WITH_ITEM1-WT_QBSHH LE 0.

ITAB-TDS = WITH_ITEM1-WT_QBSHH .

ELSE.

ITAB-TDS = WITH_ITEM1-WT_QBSHH * -1.

ENDIF.

Former Member · ‎2012 Nov 15

Dear sijin sij,

Yes, I have maintained the value of WITHT ( Indicator for withholding tax type) for all kinds of TDS .

Sijin_Chandran · ‎2012 Nov 15

Okay then Durgeshk,

You can see in debugger that

IF WITH_ITEM1-WT_QBSHH LE 0.

ITAB-TDS = WITH_ITEM1-WT_QBSHH .

ELSE.

ITAB-TDS = WITH_ITEM1-WT_QBSHH * -1.

ENDIF.

ITAB-TDS gets the TDS values .

So you either need to create TDS fields for all kind of TDS types and assign them individually eg:

IF WITH_ITEM1-WITHT = '1C'.

ITAB-TDS1 =WITH_ITEM1-WT_QBSHH.

WITH_ITEM1-WITHT = 'C1'

ITAB-TDS1 =WITH_ITEM1-WT_QBSHH... like this for all indicators

or

You need to add this in a common TDS variable eg :

IF WITH_ITEM1-WITHT = '1C' OR WITH_ITEM1-WITHT = 'C1' OR WITH_ITEM1-WITHT ='A1'..........

ADD WITH_ITEM1-WT_QBSHH TO ITAB-TDS

ENDIF.

Former Member · ‎2012 Nov 15

Dear Sijin sij,

Actually i am not getting it could you plz provide me detail.

Sijin_Chandran · ‎2012 Nov 15

Hi Durgeshk ,

As i told you earlier ,

either need to create TDS fields for all kind of TDS types and assign them individually eg:

IF WITH_ITEM1-WITHT = '1C'.

ITAB-TDS1 =WITH_ITEM1-WT_QBSHH.

WITH_ITEM1-WITHT = 'C1'

ITAB-TDS2 =WITH_ITEM1-WT_QBSHH... like this for all indicators

or

You need to add this in a common TDS variable eg :

IF WITH_ITEM1-WITHT = '1C' OR WITH_ITEM1-WITHT = 'C1' OR WITH_ITEM1-WITHT ='A1'..........

ADD WITH_ITEM1-WT_QBSHH TO ITAB-TDS

ENDIF.

Former Member · ‎2012 Nov 16

Dear Sijin Sij,

Thnx for my continuous help.After

ADD WITH_ITEM1-WT_QBSHH TO ITAB-TDS it is not displaying the tds in two line item it is just adding that.The requirement is suppose for a particular document if two times TDS is deducted then it should display that doc no two times with different TDS .

Sijin_Chandran · ‎2012 Nov 16

Okay Durgeshk ,

Then the best to do is to create TDS fields for all kind of TDS types and assign them individually eg:

IF WITH_ITEM1-WITHT = '1C'.

ITAB-TDS1 =WITH_ITEM1-WT_QBSHH.

WITH_ITEM1-WITHT = 'C1'

ITAB-TDS2 =WITH_ITEM1-WT_QBSHH... like this for all indicators

Former Member · ‎2012 Nov 16

Dear Sijin Sij

Did not get the solution same issue is persisting.Plz provide me some another solution.I am fresher in SAP ABAP.

Former Member · ‎2012 Nov 17

Dear Sijin Sij,

After commenting the tds variable

IF WITH_ITEM1-WITHT = '1C' OR WITH_ITEM1-WITHT = 'C1' OR WITH_ITEM1-WITHT ='A1'.........

The report is still running same as with these variable.

Sijin_Chandran · ‎2012 Nov 17

Hi Durgesh ,

My solution is simple I would try to make you understand with the sample data provided by you.

In your example document number 6800236 contains 4 items and according to your statement the last two documents are TDS documents.

Now in your present code you are assigning the value of TDS to a variable ITAB-TDS inside the loop.

So what happens actually is that while the loop is running for Document number 6800236 ( i.e for these 4 line items).

When the loop runs for 3rd item i.e with amount 2000 and Description TDS-Cont-194C.

then value 2000 is assigned to ITAB-TDS.

But with the next iteration of loop i.e for 4th line item with 6000 and Description WCT Payable

then the value of ITAB-TDS which was 2000 is replaced with 6000 , here is the actual problem.

To sort out this problem you can create TDS fields for each type and assign them individually in this loop.

eg

ITAB-TDS1 = "value of 3rd line item"

ITAB-TDS2 = "value of 4th line item"

Former Member · ‎2012 Nov 17

Thnx alot Sijin Sij for my help. problem is solved .

Sijin_Chandran · ‎2012 Nov 17

Good

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My SAP Profile

My SAP Profile

Tds is not showing as per std tcode