A few bugs .....

Question

Hi Folks,
The following report is almos done but with a few bugs for which I need experts help to sort it out.
It displays the report both in ALV and classical report.
1.The date is not showing up correctly in the header.I want the s_budat-low as from date and s_budat high as to date.
2.Select statement is not fetching the INVOICE Date from RBKP.
3.In the classical report I want this to be shown acoording to the vendor,but it showing up individually.
Please help me in correcting these.
Report  ZF14                                                        *
REPORT  zf14 NO STANDARD PAGE HEADING LINE-SIZE 125.                                    .
TABLES: bkpf,bseg,lfa1,t001,rbkp.
TYPE-POOLS:slis.
TYPES : BEGIN OF x_bkpf,
         bukrs TYPE bkpf-bukrs,           " Company Code
         belnr TYPE bkpf-belnr,           " Document Number
         gjahr TYPE bkpf-gjahr,           " Fiscal year
         awkey TYPE bkpf-awkey,           " Object Key
         bldat TYPE bkpf-bldat,
         budat TYPE bkpf-budat,
         END OF x_bkpf.
TYPES : BEGIN OF x_final,
         sl_no TYPE sy-tabix,
         bukrs TYPE bkpf-bukrs,           " Company Code
         belnr TYPE bkpf-belnr,           " Document Number
         gjahr TYPE bkpf-gjahr,           " Fiscal year
         blart TYPE bkpf-blart,           " Document Type
         awkey TYPE bkpf-awkey,           " Object Key
         awkey1 TYPE bkpf-awkey,
         bldat TYPE rbkp-bldat,
         budat TYPE bkpf-budat,
         witht TYPE with_item-witht,
         wt_qsshh TYPE with_item-wt_qsshh,
         wt_qbshh TYPE  with_item-wt_qbshh,
         wt_acco TYPE  with_item-wt_acco,
         lifnr TYPE lfa1-lifnr,
         name1 TYPE lfa1-name1,           "vendor Name
         ort01 TYPE lfa1-ort01,           "City
         j_1icstno TYPE  j_1imovend-j_1icstno, "CST
         j_1ilstno  TYPE  j_1imovend-j_1ilstno ,"LST
      END OF x_final.
DATA : itbkpf   TYPE x_bkpf OCCURS 0 WITH HEADER LINE.
DATA : itfinal TYPE  x_final OCCURS 0 WITH HEADER LINE.
DATA : month_names LIKE t247 OCCURS 0 WITH HEADER LINE.
DATA :i(2),             "month
      y TYPE int4,      "year
      c(4),
      v_bill LIKE bseg-dmbtr. " bill value
DATA :  pos TYPE sy-tabix,
        month(99),
        month1(99).
DATA:sl_no(3) VALUE 0.
DATA:string1(100),
     date1(10),
     date2(10),
     title(65).
*Declarations for ALV
DATA:itfieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA:itrepid TYPE sy-repid.
itrepid = sy-repid.
DATA:itevent TYPE slis_t_event.
DATA:itlistheader TYPE slis_t_listheader.
DATA:walistheader LIKE LINE OF itlistheader.
DATA:itlayout TYPE slis_layout_alv.
DATA:top TYPE slis_formname.
DATA:itsort TYPE slis_t_sortinfo_alv WITH HEADER LINE.
DATA:itprintparams TYPE slis_print_alv.
DATA:itvariant TYPE disvariant.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS     : p_bukrs LIKE t001-bukrs OBLIGATORY. "Company code
SELECT-OPTIONS : s_lifnr FOR lfa1-lifnr, "Vendor name
                 <b>s_budat FOR sy-datum  OBLIGATORY</b>,
                 s_gjahr FOR bseg-gjahr NO-DISPLAY.
SELECTION-SCREEN END  OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: r1 RADIOBUTTON GROUP g1,
            r2 RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK b2.
AT SELECTION-SCREEN.
  SELECT SINGLE bukrs
                INTO t001-bukrs
                FROM t001
                WHERE bukrs = p_bukrs.
  IF sy-subrc <> 0.
    MESSAGE e000(z_ma) WITH 'Invalid Company Code'.
  ENDIF.
  IF NOT s_lifnr[] IS INITIAL.
    SELECT SINGLE lifnr
                  INTO lfa1-lifnr
                  FROM lfa1
                  WHERE lifnr IN s_lifnr.
    IF  sy-subrc <> 0.
      MESSAGE e000(z_ma) WITH 'Invalid Vendor'.
    ENDIF.
  ENDIF.
START-OF-SELECTION.
*13
  IF s_budat IS NOT INITIAL.
    IF s_budat-high IS NOT INITIAL.
      WHILE s_budat-low LE s_budat-high.
        i = s_budat+7(2).
        IF i > 3.
          s_gjahr = s_budat+3(4).
          APPEND s_gjahr.
        ELSE.
          c = s_budat+3(4).
          s_gjahr = c - 1.
          APPEND  s_gjahr.
        ENDIF.
        s_budat-low = s_budat-low + 1.
      ENDWHILE.
    ELSE.
      i = s_budat+7(2).
      IF i > 3.
        s_gjahr = s_budat+3(4).
        APPEND s_gjahr.
      ELSE.
        c = s_budat+3(4).
        s_gjahr = c - 1.
        APPEND  s_gjahr.
      ENDIF.
    ENDIF.
  ENDIF.
*****************K**********
  IF r1 = 'X'.
    PERFORM getdata.
    PERFORM alv.
  ELSE.
    PERFORM getdata.
    PERFORM classical.
  ENDIF.
*&      Form  getdata
      text
FORM getdata.
  SELECT  bukrs
          belnr
          awkey
          budat
          gjahr
          blart
          FROM bkpf INTO CORRESPONDING FIELDS OF TABLE itbkpf
          WHERE bukrs = p_bukrs
          AND budat IN s_budat
          AND bstat = space
          AND gjahr = s_gjahr.
  IF sy-subrc NE 0.
    MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
  ENDIF.
*Tax details.
  LOOP AT itbkpf.
    MOVE-CORRESPONDING itbkpf TO itfinal.
    SELECT  SINGLE belnr
             gjahr
             witht
             wt_qsshh
             wt_qbshh
             wt_acco        "vendor
             FROM with_item INTO CORRESPONDING FIELDS OF itfinal
             WHERE bukrs = p_bukrs
             AND gjahr = itbkpf-gjahr
             AND belnr = itbkpf-belnr
             AND witht = 'T1'.
    APPEND itfinal.
    CLEAR itfinal.
    CLEAR itbkpf.
  ENDLOOP.
  LOOP AT itbkpf.
    MOVE-CORRESPONDING itbkpf TO itfinal.
    SELECT  SINGLE belnr
             gjahr
             witht
             wt_qsshh
             wt_qbshh
             wt_acco        "vendor
             FROM with_item INTO CORRESPONDING FIELDS OF itfinal
             WHERE bukrs = p_bukrs
             AND gjahr = itbkpf-gjahr
             AND belnr = itbkpf-belnr
             AND witht = 'T2'.
    APPEND itfinal.
    CLEAR itfinal.
    CLEAR itbkpf.
  ENDLOOP.
  LOOP AT itfinal.
    IF NOT ( itfinal-witht = 'T1' OR itfinal-witht = 'T2' ) OR ( itfinal-wt_qsshh = '0.00' ).
      DELETE itfinal.
    ENDIF.
  ENDLOOP.
  LOOP AT itfinal.
    SELECT SINGLE lifnr
                  name1
                  ort01
                  FROM lfa1 INTO CORRESPONDING FIELDS OF itfinal
                  WHERE lifnr = itfinal-wt_acco.
    SELECT SINGLE j_1icstno
                  j_1ilstno
                  FROM j_1imovend INTO CORRESPONDING FIELDS OF itfinal
                  WHERE lifnr = itfinal-wt_acco.
   <b> SELECT SINGLE bldat
                  from rbkp INTO CORRESPONDING FIELDS of itfinal
                  where  belnr = itfinal-belnr
                  and gjahr = itfinal-gjahr.</b>
    MODIFY itfinal.
  ENDLOOP.
ENDFORM.                    "getdata
*&      Form  alv
      Fieldcatalog for ALV Report
FORM alv.
  LOOP AT itfinal.
    itfinal-awkey1 = itfinal-awkey+0(10).
    itfinal-sl_no = sy-tabix.
    MODIFY itfinal.
  ENDLOOP.
  IF itfinal[] IS INITIAL.
    MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
    STOP.
  ENDIF.
  DEFINE m_fieldcat.
    itfieldcat-fieldname = &1.
    itfieldcat-col_pos = &2.
    itfieldcat-seltext_l = &3.
    itfieldcat-do_sum = &4.
    itfieldcat-outputlen = &5.
    append itfieldcat to itfieldcat.
    clear itfieldcat.
  END-OF-DEFINITION.
  m_fieldcat 'SL_NO' '' 'SL. NO' '' 03.
  m_fieldcat 'BUKRS' '' 'COMPANY CODE' '' 12.
  m_fieldcat 'BELNR' '' 'INVOICE.NO' '' 12.
  m_fieldcat 'GJAHR' '' 'FISCAL YEAR' '' 11.
  m_fieldcat 'WT_QSSHH' '' 'TAX BASE AMT.'  'X' 13.
  m_fieldcat 'WT_QBSHH' '' 'TAX' 'X' 13  .
  m_fieldcat 'AWKEY1' '' 'REF.KEY' '' 13.
  m_fieldcat 'BUDAT' '' 'POSTING DATE' '' 08.
  m_fieldcat 'LIFNR' '' 'VENDOR CODE' '' 10.
  m_fieldcat 'NAME1' '' 'VENDOR NAME' '' 35.
  m_fieldcat 'ORT01' '' 'CITY' '' 35.
  m_fieldcat 'J_1ICSTNO' '' 'CST No.' '' 40.
  m_fieldcat 'J_1ILSTNO' '' 'LST No.' '' 40.
  itlayout-zebra = 'X'.
  itlayout-colwidth_optimize = 'X'.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
        i_callback_program      = sy-repid
        is_layout               = itlayout
       i_callback_user_command =  'LIST1'
        i_callback_top_of_page  = 'TOP'
        it_fieldcat             = itfieldcat[]
        i_save                  = 'A'
     is_variant              = ITVARIANT
        it_events               = itevent[]
     is_print                = ITPRINTPARAMS
        it_sort                 = itsort[]
      TABLES
        t_outtab                = itfinal
        EXCEPTIONS
        program_error           = 1
        OTHERS                  = 2.
  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.                    "alv
*&      Form  list1
      ALV Interactive-
     -->R_UCOMM    text
     -->RS_SELFIELDtext
FORM list1 USING r_ucomm LIKE sy-ucomm rs_selfield TYPE slis_selfield.
  CASE r_ucomm.
    WHEN '&IC1'.
      IF rs_selfield-fieldname = 'BELNR'.
        READ TABLE itfinal INDEX rs_selfield-tabindex.
        SET PARAMETER ID 'BLN' FIELD itfinal-belnr.
        CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
      ENDIF.
  ENDCASE.
ENDFORM.                                                    "list1
*&      Form  TOP
    Top of page for ALV Report
FORM top.
  DATA : name1(60),
         month_text(250),
         string1(100),
          date1(10),
          date2(10),
          title(65).
  <b>WRITE: s_budat-low TO date1,
         s_budat-high TO date2.</b>
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
     EXPORTING
        i_list_type           = 0
     IMPORTING
        et_events             = itevent
EXCEPTIONS
  LIST_TYPE_WRONG       = 1
  OTHERS                = 2
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  string1 = 'Details of TDS 2-4% Work Contracts from'.
  CONCATENATE string1 date1 'to' date2 INTO title SEPARATED BY space.
  walistheader-typ = 'H'.
  walistheader-info = title.
  APPEND walistheader TO itlistheader.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary      = itlistheader
    I_LOGO                   = ''.
    I_END_OF_LIST_GRID       =
   ENDIF.
  CLEAR itlistheader.
ENDIF.
ENDFORM.                    "TOP
*&      Form  classical
      Form to display the values in Classical Report
FORM classical.
  FORMAT RESET.
  FORMAT COLOR COL_NORMAL.
  LOOP AT itfinal.
    sl_no = sl_no + 1.
    itfinal-awkey1 = itfinal-awkey+0(10).
    WRITE:/ sy-vline,
            2  sl_no,
            7  sy-vline,
            10 itfinal-bukrs,
            21 sy-vline,
            23 itfinal-belnr,
            35 sy-vline,
            38 itfinal-gjahr,
            47 sy-vline,
            48 itfinal-wt_qsshh,
            69 sy-vline,
            70 itfinal-wt_qbshh,
            91 sy-vline,
            94 itfinal-awkey1,
            108 sy-vline,
            110 itfinal-budat,
            125 sy-vline.
<b>at end of lifnr.
uline.
new-page.
clear: sl_no.
sl_no = 1.
endat.</b> 
ENDLOOP.
WRITE:/ sy-uline.
ENDFORM.                    "classical
TOP-OF-PAGE.
  DATA : name1(60).
  DATA : month_text(127),
         string(99).
CALL FUNCTION 'MONTH_NAMES_GET'
  EXPORTING
    language                    = sy-langu
IMPORTING
  RETURN_CODE                 =
   TABLES
     month_names                 = month_names[]
  EXCEPTIONS
    month_names_not_found       = 1
    OTHERS                      = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
  FORMAT RESET.
  FORMAT COLOR COL_POSITIVE.
  <b>WRITE: s_budat-low TO date1,
         s_budat-high TO date2.</b>* 
IF NOT s_budat-low IS INITIAL .
   READ TABLE month_names WITH KEY mnr =  s_budat-low+4(2).
   IF sy-subrc = 0.
     month = month_names-ltx.
  string1 = 'Details of TDS 2-4% Work Contracts from'.
  CONCATENATE string1 date1 'to' date2 INTO title SEPARATED BY space.
  WRITE :/ title.
  SKIP 1.
   ENDIF.
ENDIF.
  CONCATENATE itfinal-name1 ',' itfinal-ort01
                   INTO name1 SEPARATED BY space.
  WRITE :/ 'Vendor Code           :', itfinal-lifnr.
  WRITE :/ 'Vendor Name and City  :', name1.
  SKIP 1.
  WRITE :/ 'TNGST Registration No :', itfinal-j_1ilstno,
         / 'CST Registration No   :', itfinal-j_1icstno.
  SKIP 1.
Display the coloumn headings
  FORMAT RESET.
  FORMAT COLOR COL_HEADING.
  WRITE :/ sy-uline.
  WRITE:/ sy-vline,
         2  'SI.No',
         7 sy-vline,
         10 'Comp.Code',
         21 sy-vline,
         22 'Acct.Doc.No',
         35 sy-vline,
         37 'Fiscal Yr.',
         47 sy-vline,
         49 'Tax Base Amt.',
         69 sy-vline,
         71 'Tax Amt.',
         91 sy-vline,
         94 'Invoice No.' ,
         108 sy-vline,
         110 'Posting Date',
         125 sy-vline,
Thanks,
K.Kiran.

Answer 1

Kiran,
After sorting
vendor A
some data
vendor A
soem data.
vendor B
some data.
vendor B
some data.
But I want it as
Vendor A
some data
some data
Vendor B
Some data.
some data.
Hope you got with what I am struggling.
Kindly help me with that.
Thanks,
K.Kiran.