Table Fields

[Former Member]

Hi Experts,

I am developing a TDS report for which I have to display Document No, Vendor, Vendor name, TDS, Cess, Amount, TDS%, Profit Center.

can any guide me to find the relevant table fields for this.

Thanks

Priya

[Former Member]

Give me you Personal id i will send you tds report.

But u have to Reward Points too

Bohra

[Former Member]

Hi

tables used J_1IEWTCHLN,WITH_ITEM,T059Z,BSEG,LFA1,T247,J_1IMOVEND,bkpf.

Check this TDS Report. It will solve your problem

 
REPORT  ZTDS


*&----------------------------------------------------------*
*  TABLES USED FOR TDS REPORT
*&----------------------------------------------------------*
.

tables : J_1IEWTCHLN,WITH_ITEM,T059Z,BSEG,LFA1,T247,J_1IMOVEND,bkpf.
*&----------------------------------------------------------*
* TABLES USED FOR TDS REPORT
*&----------------------------------------------------------*



*&----------------------------------------------------------*
* SELECTION SCREEN FOR TDS REPORT
*&----------------------------------------------------------*

PARAMETERS : COMPANY LIKE BSEG-BUKRS.
PARAMETERS : YEAR    LIKE BSEG-GJAHR.
SELECT-OPTIONS : DATE FOR J_1IEWTCHLN-J_1IEXTCHDT.
SELECT-OPTIONS : SECCODE FOR T059Z-QSCOD.


*&----------------------------------------------------------*
* END OFSELECTION SCREEN FOR TDS REPORT
*&----------------------------------------------------------*


*&----------------------------------------------------------*
* DATA DECLARATION SCREEN FOR TDS REPORT
*&----------------------------------------------------------*
type-pools: slis, abap.

DATA: V_REPID LIKE SY-REPID .

DATA : TAX1 LIKE WITH_ITEM OCCURS 0 WITH HEADER LINE,
       post_date LIKE BKPF OCCURS 0 WITH HEADER LINE,
       I_LFA1 LIKE LFA1 OCCURS 0 WITH HEADER LINE.

DATA : D LIKE J_1IEWTCHLN-J_1IEXTCHDT.

DATA : DT(2),DT1(2),FISCAL(4),MONTH1(10),MONTH2(10).
*DATA : MONTH LIKE T247 OCCURS 0 WITH HEADER LINE.

DATA : M(60).

DATA : PAN LIKE J_1IMOVEND OCCURS 0 WITH HEADER LINE.

DATA : begin of month occurs 1,
       ltx like T247-ltx,
       end of month.

DATA : BEGIN OF I_ITAB OCCURS 0,
       BELNR LIKE WITH_ITEM-BELNR,
       POST_DATE LIKE BKPF-BUDAT,
       CH_EX_NO LIKE J_1IEWTCHLN-J_1IEXTCHLN,
       CH_EX_DATE LIKE J_1IEWTCHLN-J_1IEXTCHDT,
       CH_NO LIKE J_1IEWTCHLN-J_1IEXTCHLN,
       CH_DATE LIKE J_1IEWTCHLN-J_1IEXTCHDT,
       SECTION LIKE T059Z-QSCOD,
       BASE_AMOUNT LIKE WITH_ITEM-WT_QSSHH,
       TAX_AMOUNT LIKE WITH_ITEM-WT_QBSHH,
       NAME2 LIKE LFA1-NAME2,
       NAME1(70),
       PAN LIKE J_1IMOVEND-J_1IPANNO,
  END OF I_ITAB.

TYPES: BEGIN OF ITAB_LINE,
       CLUSTR TYPE INT2,
       CLUSTD(1000) TYPE X,
 END OF ITAB_LINE.

DATA: E_ITAB TYPE TABLE OF ITAB_LINE.

DATA : CHALLAN LIKE J_1IEWTCHLN OCCURS 0 WITH HEADER LINE,
           TAX LIKE WITH_ITEM OCCURS 0 WITH HEADER LINE.

DATA SECTION LIKE T059Z OCCURS 0 WITH HEADER LINE.

DATA I_BSEG LIKE BSEG OCCURS 0 WITH HEADER LINE.

DATA : BEGIN OF ITAB OCCURS 0 ,
        DOC1 LIKE J_1IEWTCHLN-BELNR,
        FISCAL1 LIKE J_1IEWTCHLN-GJAHR,
        CH_NO1 LIKE J_1IEWTCHLN-J_1IINTCHLN,
        CH_DATE1 LIKE J_1IEWTCHLN-J_1IINTCHDT,
        CH_EX_DATE1 LIKE J_1IEWTCHLN-J_1IEXTCHDT,
        CH_EX_NO1 LIKE J_1IEWTCHLN-J_1IEXTCHLN,
        BSR1(10),
        TAX_CODE LIKE with_item-wt_withcd,
        SECTION LIKE T059Z-QSCOD,
        ASS LIKE BSEG-ZUONR,
        AMOUNT LIKE BSEG-DMBTR,
  END OF ITAB.

DATA : BEGIN OF FINAL_ITAB OCCURS 0,
        DOC LIKE J_1IEWTCHLN-BELNR,
        FISCAL LIKE J_1IEWTCHLN-GJAHR,
        TDS(10),
        SURCHARGE(10),
        ED_CESS(10),
        CH_NO LIKE J_1IEWTCHLN-J_1IINTCHLN,
        CH_DATE LIKE J_1IEWTCHLN-J_1IINTCHDT,
        CH_EX_DATE LIKE J_1IEWTCHLN-J_1IEXTCHDT,
        CH_EX_NO LIKE J_1IEWTCHLN-J_1IEXTCHLN,
        BSR(10),
        TAX_CODE LIKE with_item-wt_withcd,
        SECTION LIKE T059Z-QSCOD,
        ASS LIKE BSEG-ZUONR,
        AMOUNT LIKE BSEG-DMBTR,
  END OF FINAL_ITAB.

data: fieldcat type slis_fieldcat_alv,
      fieldcat1 type slis_fieldcat_alv ,
      sort type slis_sortinfo_alv,
      G_STATUS TYPE SLIS_FORMNAME VALUE 'STANDARD_02'.

DATA: LIST_HEADER TYPE SLIS_T_LISTHEADER.

DATA: LIST_HEADER1 TYPE SLIS_T_LISTHEADER.

data :wa_feildcat type slis_t_fieldcat_alv.

data :wa_feildcat1 type slis_t_fieldcat_alv.

DATA: I_TITLE_EKKO TYPE LVC_TITLE VALUE 'FIRST LIST DISPLAYED'.

DATA: I_TITLE_EKPO TYPE LVC_TITLE VALUE 'SECONDRY LIST DISPLAYED'.

DATA: V_EVENTS TYPE SLIS_T_EVENT,
      WA_EVENT TYPE SLIS_ALV_EVENT.

DATA: V_EVENT TYPE SLIS_T_EVENT,
      WA_EVENT1 TYPE SLIS_ALV_EVENT.



*&----------------------------------------------------------*
* END OF DATA DECLARATION SCREEN FOR TDS REPORT
*&----------------------------------------------------------*

INITIALIZATION.
V_REPID = SY-REPID.
PERFORM BUILD_FIELDCATLOG.
PERFORM EVENT_CALL.
PERFORM POPULATE_EVENT.

START-OF-SELECTION.
PERFORM DATA_RETRIEVAL.
PERFORM BUILD_LISTHEADER .
PERFORM DISPLAY_ALV_REPORT.



*&--------------------------------------------------------------------*
*& Form BUILD_FIELDCATLOG
*&--------------------------------------------------------------------*
* Fieldcatalog has all the field details from ekko
*---------------------------------------------------------------------*
FORM BUILD_FIELDCATLOG.

clear fieldcat.
fieldcat-fieldname = 'ASS'.
fieldcat-tabname = 'FINAL_ITAB'.
FIELDCAT-seltext_m = 'Cheque Number'.
fieldcat-key = 'X'.
fieldcat-emphasize = 'X'.
fieldcat-fix_column = 'X'.
FIELDCAT-NO_OUT = '0'.
append fieldcat to wa_feildcat.

clear fieldcat.
fieldcat-fieldname = 'AMOUNT'.
fieldcat-tabname = 'FINAL_ITAB'.
FIELDCAT-seltext_m = 'Total Tax Deposited'.
fieldcat-key = 'X'.
fieldcat-emphasize = 'X'.
fieldcat-fix_column = 'X'.
FIELDCAT-NO_OUT = '0'.
fieldcat-do_sum = 'X'.
append fieldcat to wa_feildcat.



clear fieldcat.
fieldcat-fieldname = 'CH_EX_NO'.
fieldcat-tabname = 'FINAL_ITAB'.
FIELDCAT-seltext_m = 'Challan Number'.
fieldcat-key = 'X'.
fieldcat-emphasize = 'X'.
fieldcat-hotspot = 'X'.
fieldcat-fix_column = 'X'.
FIELDCAT-NO_OUT = '0'.
append fieldcat to wa_feildcat.


clear fieldcat.
fieldcat-fieldname = 'CH_EX_DATE'.
fieldcat-tabname = 'FINAL_ITAB'.
FIELDCAT-seltext_m = 'Date on wich Tax Deposited'.
fieldcat-key = 'X'.
fieldcat-emphasize = ''.
fieldcat-fix_column = 'X'.
FIELDCAT-NO_OUT = '0'.
append fieldcat to wa_feildcat.

clear fieldcat.
fieldcat-fieldname = 'BSR'.
fieldcat-tabname = 'FINAL_ITAB'.
FIELDCAT-seltext_m = 'BSR Code'.
fieldcat-key = 'X'.
fieldcat-emphasize = ''.
fieldcat-fix_column = ''.
FIELDCAT-NO_OUT = 'O'.
append fieldcat to wa_feildcat.

clear fieldcat.
fieldcat-fieldname = 'SECTION'.
fieldcat-tabname = 'FINAL_ITAB'.
FIELDCAT-seltext_m = 'Section Code'.
fieldcat-key = '4'.
fieldcat-emphasize = ''.
fieldcat-fix_column = ''.
FIELDCAT-JUST = 'R'.
append fieldcat to wa_feildcat.


ENDFORM. "BUILD_FIELDCATLOG


*&--------------------------------------------------------------------*
*& Form EVENT_CALL
*&--------------------------------------------------------------------*
* we get all events - TOP OF PAGE or USER COMMAND in table v_events
*---------------------------------------------------------------------*
FORM EVENT_CALL.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = V_EVENTS
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. "EVENT_CALL

*&--------------------------------------------------------------------*
*& Form POPULATE_EVENT
*&--------------------------------------------------------------------*
* Events populated for TOP OF PAGE & USER COMAND
*---------------------------------------------------------------------*
FORM POPULATE_EVENT.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
WA_EVENT-FORM = 'TOP_OF_PAGE'.
MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.

READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.
IF SY-SUBRC EQ 0.
WA_EVENT-FORM = 'USER_COMMAND'.
MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-NAME.
ENDIF.
ENDFORM. "POPULATE_EVENT


*&--------------------------------------------------------------------*
*& Form data_retrieval
*&--------------------------------------------------------------------*
* retreiving values from the database table ekko
*---------------------------------------------------------------------*
FORM DATA_RETRIEVAL.
SELECT * FROM J_1IEWTCHLN INTO TABLE CHALLAN WHERE J_1IEXTCHDT IN DATE.
SORT CHALLAN BY J_1IINTCHLN.
CLEAR CHALLAN.

IF NOT CHALLAN[] IS INITIAL.

SELECT * FROM WITH_ITEM INTO TABLE tax FOR ALL ENTRIES IN CHALLAN WHERE
J_1IINTCHLN = CHALLAN-J_1IINTCHLN AND GJAHR = CHALLAN-GJAHR.
SORT TAX BY WT_WITHCD.
CLEAR TAX.

SELECT * FROM BSEG INTO TABLE I_BSEG FOR ALL ENTRIES IN CHALLAN WHERE
BELNR = CHALLAN-BELNR AND BSCHL = '50'.
SORT I_BSEG BY BELNR.
CLEAR I_BSEG.

ENDIF.

IF NOT TAX[] IS INITIAL.

SELECT * FROM T059Z INTO TABLE SECTION FOR ALL ENTRIES IN TAX WHERE
WT_WITHCD = TAX-WT_WITHCD AND LAND1 = 'IN'.
SORT SECTION BY WT_WITHCD.

ENDIF.

LOOP AT CHALLAN.
      ITAB-DOC1 = CHALLAN-BELNR.
      ITAB-FISCAL1 = CHALLAN-GJAHR.
      ITAB-CH_NO1 = CHALLAN-J_1IINTCHLN.
      ITAB-CH_DATE1 = CHALLAN-J_1IINTCHDT.
      ITAB-CH_EX_NO1 = CHALLAN-J_1IEXTCHLN.
      ITAB-CH_EX_DATE1 = CHALLAN-J_1IEXTCHDT.
      ITAB-BSR1 = challan-bankl.
      IF ITAB-BSR1 = 'ICICI'.
      ITAB-BSR1 = '6390070'.
  ENDIF.

READ TABLE TAX WITH KEY J_1IINTCHLN = CHALLAN-J_1IINTCHLN.

IF SY-SUBRC EQ 0.
   ITAB-TAX_CODE = TAX-WT_WITHCD.
  ENDIF.

READ TABLE I_BSEG WITH KEY BELNR = CHALLAN-BELNR.

   IF SY-SUBRC EQ 0 .
     ITAB-ASS = I_BSEG-ZUONR.
    itab-amount = I_BSEG-DMBTR.
  ENDIF.
    APPEND ITAB.
    CLEAR ITAB.

ENDLOOP.

LOOP AT ITAB.
      FINAL_ITAB-DOC = ITAB-DOC1.
      FINAL_ITAB-FISCAL = ITAB-FISCAL1 .
      FINAL_ITAB-CH_NO = ITAB-CH_NO1 .
      FINAL_ITAB-CH_DATE = ITAB-CH_DATE1.
      FINAL_ITAB-CH_EX_NO = ITAB-CH_EX_NO1.
      FINAL_ITAB-CH_EX_DATE = ITAB-CH_EX_DATE1.
      FINAL_ITAB-BSR = ITAB-BSR1.
      FINAL_ITAB-TAX_CODE = ITAB-TAX_CODE.
      FINAL_ITAB-ASS = ITAB-ASS .
      FINAL_ITAB-AMOUNT = itab-amount.
      READ TABLE SECTION WITH KEY WT_WITHCD = ITAB-TAX_CODE.
      IF SY-SUBRC EQ 0.
      FINAL_ITAB-SECTION = SECTION-QSCOD.
  ENDIF.
    APPEND FINAL_ITAB.
    CLEAR FINAL_ITAB.

ENDLOOP.
*D = DATE.

SHIFT DATE BY 3 PLACES .
FISCAL = DATE.
SHIFT DATE BY 4 PLACES .
DT = DATE.
SHIFT DATE BY 8 PLACES .
DT1 = DATE.

select lTX from T247
       into table month where MNR = DT AND spras = sy-langu.

LOOP AT MONTH.

   MONTH1 = MONTH-LTX.

ENDLOOP.

select lTX from T247
       into table month where MNR = DT1 AND spras = sy-langu.

LOOP AT MONTH.
  MONTH2 = MONTH-LTX.

    CONCATENATE 'From : ' MONTH1 '-' MONTH2 '' FISCAL INTO M.

 ENDLOOP.

ENDFORM. "data_retrieval


*&--------------------------------------------------------------------*
*& Form bUild_listheader
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -->I_LISTHEADEtext
*---------------------------------------------------------------------*

FORM BUILD_LISTHEADER .
DATA L_HEADER TYPE SLIS_LISTHEADER.
l_header-typ = 'H'.
l_header-info = 'TDS Deposit Report'.
APPEND L_HEADER TO LIST_HEADER.
l_header-typ = 'S'.
l_header-info = M.
APPEND L_HEADER TO LIST_HEADER.
l_header-typ = 'S'.
l_header-info = 'SMS India Pvt. Ltd.'.
APPEND L_HEADER TO LIST_HEADER.
l_header-typ = 'S'.
l_header-info = 'Udyog Vihar, Phase II'.
APPEND L_HEADER TO LIST_HEADER.
l_header-typ = 'S'.
l_header-info = 'Gurgaon'.
APPEND L_HEADER TO LIST_HEADER.
ENDFORM. "build_listheader

*&--------------------------------------------------------------------*
*& Form display_alv_report
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM DISPLAY_ALV_REPORT.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = V_repid
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
I_BACKGROUND_ID = 'ALV_BACKGROUND'
IT_FIELDCAT = wa_feildcat
IT_EVENTS = v_events
* IT_EVENT_EXIT =
* IS_PRINT =
TABLES
T_OUTTAB = FINAL_ITAB
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. "display_alv_report
*&--------------------------------------------------------------------*
*& Form top_of_page
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
form top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = list_header
I_LOGO = 'SMSLOGO'.
endform. "top_of_page



*&--------------------------------------------------------------------*
*& Form USER_COMMAND
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -->R_UCOMM text
* -->, text
* -->RS_SLEFIELDtext
*---------------------------------------------------------------------*
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM RS_SELFIELD TYPE
SLIS_SELFIELD.
*REFRESH FINAL_ITAB.
CASE R_UCOMM.
WHEN '&IC1'.
READ TABLE FINAL_ITAB INDEX RS_SELFIELD-TABINDEX.
IF RS_SELFIELD-TABINDEX = '0'.
EXIT.
ELSE.
EXPORT FINAL_ITAB-CH_EX_NO FINAL_ITAB-CH_NO FINAL_ITAB-CH_EX_DATE
FINAL_ITAB-SECTION M TO MEMORY ID 'ABCD'.
PERFORM BUILD_FIELDCATLOG_DETAIL.
PERFORM EVENT_CALL_DETAIL.
PERFORM POPULATE_EVENT_DETAIL.
PERFORM DATA_RETRIEVAL_DETAIL.
PERFORM BUILD_LISTHEADER_DETAIL .
PERFORM display_alv_report_detail.
ENDIF.
ENDCASE.
ENDFORM. "user_command


*&--------------------------BUILD_FIELDCATLOG_DETAIL--------------------
*--------*
*-----------------------------------------------------------------------
*--------*


FORM BUILD_FIELDCATLOG_DETAIL.

REFRESH wa_feildcat1.
clear fieldcat1.
fieldcat1-fieldname = 'BELNR'.
fieldcat1-tabname = 'I_ITAB'.
FIELDCAT1-seltext_m = 'Document Number'.
fieldcat1-key = 'X'.
fieldcat1-emphasize = 'X'.
fieldcat1-fix_column = 'X'.
FIELDCAT1-NO_OUT = '0'.
append fieldcat1 to wa_feildcat1.

clear fieldcat1.
fieldcat1-fieldname = 'POST_DATE'.
fieldcat1-tabname = 'I_ITAB'.
FIELDCAT1-seltext_m = 'Doc. Posting Date'.
fieldcat1-key = 'X'.
fieldcat1-emphasize = 'X'.
fieldcat1-fix_column = 'X'.
FIELDCAT1-NO_OUT = '0'.
append fieldcat1 to wa_feildcat1.

clear fieldcat1.
fieldcat1-fieldname = 'BASE_AMOUNT'.
fieldcat1-tabname = 'I_ITAB'.
FIELDCAT1-seltext_m = 'Total Amount'.
fieldcat1-key = 'X'.
fieldcat1-emphasize = 'X'.
fieldcat1-fix_column = 'X'.
FIELDCAT1-NO_OUT = '0'.
fieldcat1-do_sum = 'X'.
append fieldcat1 to wa_feildcat1.

clear fieldcat1.
fieldcat1-fieldname = 'TAX_AMOUNT'.
fieldcat1-tabname = 'I_ITAB'.
FIELDCAT1-seltext_m = 'Tax Amount'.
fieldcat1-key = 'X'.
fieldcat1-emphasize = 'X'.
fieldcat1-fix_column = 'X'.
FIELDCAT1-NO_OUT = '0'.
fieldcat1-do_sum = 'X'.
append fieldcat1 to wa_feildcat1.


clear fieldcat1.
fieldcat1-fieldname = 'CH_EX_NO'.
fieldcat1-tabname = 'I_ITAB'.
FIELDCAT1-seltext_m = 'Challan Number'.
fieldcat1-key = 'X'.
fieldcat1-emphasize = 'X'.
fieldcat1-hotspot = 'X'.
fieldcat1-fix_column = 'X'.
FIELDCAT1-NO_OUT = '0'.
append fieldcat1 to wa_feildcat1.


clear fieldcat1.
fieldcat1-fieldname = 'CH_EX_DATE'.
fieldcat1-tabname = 'I_ITAB'.
FIELDCAT1-seltext_m = 'Date on wich Tax Deposited'.
fieldcat1-key = 'X'.
fieldcat1-emphasize = ''.
fieldcat1-fix_column = 'X'.
FIELDCAT1-NO_OUT = '0'.
append fieldcat1 to wa_feildcat1.

clear fieldcat1.
fieldcat1-fieldname = 'NAME1'.
fieldcat1-tabname = 'I_ITAB'.
FIELDCAT1-seltext_m = 'Vendor Name'.
fieldcat1-key = 'X'.
fieldcat1-emphasize = ''.
fieldcat1-fix_column = ''.
FIELDCAT1-NO_OUT = 'O'.
append fieldcat1 to wa_feildcat1.

clear fieldcat1.
fieldcat1-fieldname = 'PAN'.
fieldcat1-tabname = 'I_ITAB'.
FIELDCAT1-seltext_m = 'Permanent Account Number'.
fieldcat1-key = 'X'.
fieldcat1-emphasize = ''.
fieldcat1-fix_column = ''.
FIELDCAT1-NO_OUT = 'O'.
append fieldcat1 to wa_feildcat1.


clear fieldcat1.
fieldcat1-fieldname = 'SECTION '.
fieldcat1-tabname = 'I_ITAB'.
FIELDCAT1-seltext_m = 'Section Code'.
fieldcat1-key = '4'.
fieldcat1-emphasize = ''.
fieldcat1-fix_column = ''.
FIELDCAT1-JUST = 'R'.
append fieldcat1 to wa_feildcat1.
ENDFORM.

*&----------------------------END BUILD_FIELDCATLOG_DETAIL-------------*


*&--------------------------------------------------------------------*
*& Form EVENT_CALL
*&--------------------------------------------------------------------*
* we get all events - TOP OF PAGE or USER COMMAND in table v_events
*---------------------------------------------------------------------*
FORM EVENT_CALL_DETAIL.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = V_EVENT
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. "EVENT_CALL




*&--------------------------------------------------------------------*
*& Form POPULATE_EVENT
*&--------------------------------------------------------------------*
* Events populated for TOP OF PAGE & USER COMAND
*---------------------------------------------------------------------*
FORM POPULATE_EVENT_DETAIL.
READ TABLE V_EVENT INTO WA_EVENT1 WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
WA_EVENT1-FORM = 'TOP_OF_PAGE1'.
MODIFY V_EVENT FROM WA_EVENT1 TRANSPORTING FORM WHERE NAME =
WA_EVENT1-FORM.
ENDIF.

* READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.
* IF SY-SUBRC EQ 0.
* WA_EVENT-FORM = 'USER_COMMAND'.
* MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
*WA_EVENT-NAME.
* ENDIF.
ENDFORM. "POPULATE_EVENT


FORM DATA_RETRIEVAL_DETAIL.

IMPORT FINAL_ITAB-CH_EX_NO FINAL_ITAB-CH_NO FINAL_ITAB-CH_EX_DATE
FINAL_ITAB-SECTION M FROM MEMORY ID 'ABCD'.
SELECT * FROM WITH_ITEM INTO TABLE TAX1 WHERE J_1IINTCHLN =
FINAL_ITAB-CH_NO .

IF SY-SUBRC EQ 0.
ENDIF.

SORT TAX1 BY BELNR.
CLEAR TAX1.

SELECT * FROM LFA1 INTO TABLE I_LFA1 FOR ALL ENTRIES IN TAX1 WHERE LIFNR
 = TAX1-WT_ACCO.

IF SY-SUBRC EQ 0.
ENDIF.

SORT I_LFA1 BY LIFNR.
CLEAR I_LFA1.
SELECT * FROM J_1IMOVEND INTO TABLE PAN FOR ALL ENTRIES IN TAX1 WHERE
LIFNR = TAX1-WT_ACCO.

IF SY-SUBRC EQ 0.
ENDIF.

SORT PAN BY LIFNR.
CLEAR PAN.

SELECT * FROM BKPF INTO TABLE POST_DATE FOR ALL ENTRIES IN TAX1 WHERE
BELNR = TAX1-BELNR AND GJAHR = FISCAL.

IF SY-SUBRC EQ 0.
ENDIF.

SORT POST_DATE BY BELNR.
CLEAR POST_DATE.

DATA : TAX_AMOUNT(15),BASE_AMOUNT(15).
LOOP AT TAX1 .
I_ITAB-BELNR = TAX1-BELNR.
BASE_AMOUNT = TAX1-WT_QSSHH.
REPLACE '-' LENGTH 1 WITH '' INTO BASE_AMOUNT.
I_ITAB-BASE_AMOUNT = BASE_AMOUNT.
TAX_AMOUNT = TAX1-WT_QBSHH.
REPLACE '-' LENGTH 1 WITH '' INTO TAX_AMOUNT.
I_ITAB-TAX_AMOUNT = TAX_AMOUNT.
READ TABLE FINAL_ITAB WITH KEY CH_NO = TAX1-J_1IINTCHLN .
I_ITAB-CH_EX_NO = FINAL_ITAB-CH_EX_NO.
I_ITAB-CH_EX_DATE = FINAL_ITAB-CH_EX_DATE.
I_ITAB-SECTION = FINAL_ITAB-SECTION.

READ TABLE I_LFA1 WITH KEY LIFNR = TAX1-WT_ACCO.

IF SY-SUBRC EQ 0.
I_ITAB-NAME2 = I_LFA1-NAME2.
I_ITAB-NAME1 = I_LFA1-NAME1.
CONCATENATE I_ITAB-NAME1 I_ITAB-NAME2 INTO I_ITAB-NAME1 separated BY ' '
.
ENDIF.

READ TABLE PAN WITH KEY LIFNR = TAX1-WT_ACCO.

IF SY-SUBRC EQ 0.
I_ITAB-PAN = PAN-J_1IPANNO.
ENDIF.

READ TABLE POST_DATE WITH KEY BELNR = TAX1-BELNR.

IF SY-SUBRC EQ 0.
I_ITAB-POST_DATE = POST_DATE-BUDAT.
ENDIF.
APPEND I_ITAB.
CLEAR I_ITAB.
CLEAR TAX_AMOUNT.
CLEAR BASE_AMOUNT.
ENDLOOP.


ENDFORM.



*&--------------------------------------------------------------------*
*& Form bUild_listheader
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -->I_LISTHEADEtext
*---------------------------------------------------------------------*
FORM BUILD_LISTHEADER_DETAIL .
REFRESH LIST_HEADER1.
DATA L_HEADER1 TYPE SLIS_LISTHEADER.
l_header1-typ = 'H'.
l_header1-info = 'Annexure per challan'.
APPEND L_HEADER1 TO LIST_HEADER1.
l_header1-typ = 'S'.
l_header1-info = M.
APPEND L_HEADER1 TO list_header1.
l_header1-typ = 'S'.
l_header1-info = 'SMS India Pvt. Ltd.'.
APPEND L_HEADER1 TO list_header1.
l_header1-typ = 'S'.
l_header1-info = 'Udyog Vihar, Phase II'.
APPEND L_HEADER1 TO LIST_HEADER1.
l_header1-typ = 'S'.
l_header1-info = 'Gurgaon'.
APPEND L_HEADER1 TO LIST_HEADER1.
ENDFORM. "build_listheader


*&--------------------------------------------------------------------*
*& Form display_alv_report
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM DISPLAY_ALV_REPORT_DETAIL.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = V_repid
* I_CALLBACK_USER_COMMAND = 'F_USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE1'
I_BACKGROUND_ID = 'ALV_BACKGROUND'
IT_FIELDCAT = wa_feildcat1
IT_EVENTS = v_event
* IT_EVENT_EXIT =
* IS_PRINT =
TABLES
T_OUTTAB = I_ITAB
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
REFRESH I_ITAB.
ENDFORM. "display_alv_report


*&--------------------------------------------------------------------*
*& Form top_of_page
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
form top_of_page1.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = list_header1
I_LOGO = 'SMSLOGO'.
endform. "top_of_page1

Reward all helpfull answers

Regards

Pavan

[Former Member]

Hi Naveen,

You can forward to priyareddy.cse@gmail.com.

Thanks

Priya

[Former Member]

And make sure you supply your bank details so you can be paid for doing their job.

[Former Member]

Hi

Be little more clear? TDS with respect to what? against vendor payaments?

Use the tables BSIK and BSAK for the vendor outstandings .

and regarding the Vendor repalted Pur orders check EKKO and EKPO tables

and for the TDS, CESS,AMOUNT fields I hope you have to take from KONV and KONP tables.

Pass the EKKO-KNUMV to KONV and check in the KONV table

<b>Reward points for useful Answers</b>

Regards

Anji

[Former Member]

I have sent it to your mail id.

Reward points and if any queris feel free to ask.

Bohra.

[Former Member]

Hi,

Check the tables<b> j_1itds,

j_1itdstxc,

j_1itdsdue.</b>Before doing TDS report u need to do custmization.

Regards