Error message was displaying when comes back from the final output display

Question

Hi Experts,
I have developed one program and it works fine. But when i press F3 or BACK button from the final display one Error  wa coming in a pop-up saying "Selection criterion "Posting Date" contains several selection lines".
I cant understand where the problem was. Can any one suggest where would be the problem. I am sending the code.
REPORT  zfir0011_o2c_tax_gl_summary.
TYPE-POOLS slis.
TABLES: faglflexa.
Types Declaration.
TYPES: BEGIN OF x_faglflexa,
       ryear TYPE gjahr,
       bukrs TYPE bukrs,
       belnr TYPE belnr_d,                  "Document Number
       poper TYPE poper,                    "Posting Period
       budat TYPE budat,                    "Posting Date
       buzei TYPE buzei,                    "Document line item
       racct TYPE racct,                    "G/L Account no.
       END   OF x_faglflexa,
       ty_t_faglflexa TYPE STANDARD TABLE OF x_faglflexa.
TYPES: BEGIN OF x_bset,
       belnr TYPE belnr_d,
       buzei TYPE buzei,
       mwskz TYPE mwskz,                    "Tax code
      hkont TYPE hkont,
       shkzg TYPE shkzg,                    "Debit/Credit Indicator
       txjcd TYPE txjcd,                    "Tax Jurisdiction
       h2ste TYPE h2ste,                    "Tax Amount
       h2bas TYPE h2bas_bses,               "Tax Amount
       END   OF x_bset,
       ty_t_bset TYPE STANDARD TABLE OF x_bset.
TYPES: BEGIN OF x_skat,
       spras TYPE spras,
       ktopl TYPE ktopl,
       saknr TYPE saknr,
       text  TYPE txt20_skat,
       END   OF x_skat,
       ty_t_skat TYPE STANDARD TABLE OF x_skat.
TYPES: BEGIN OF x_custom,
       geo_state    TYPE char2,
       geo_county   TYPE char3,
       country      TYPE char2,
       description  TYPE char40,
       END   OF x_custom,
       ty_t_custom TYPE STANDARD TABLE OF x_custom.
TYPES: BEGIN OF x_budat,
       sign     TYPE char_01,
       option   TYPE char2,
       low      TYPE budat,
       high     TYPE budat,
       END OF x_budat,
       ty_t_budat TYPE STANDARD TABLE OF x_budat.
TYPES: BEGIN OF x_txjcd,
       geo_state  TYPE char2,
       geo_county TYPE char3,
       END   OF x_txjcd,
       ty_t_txjcd TYPE STANDARD TABLE OF x_txjcd.
TYPES: BEGIN OF x_inter,
       ryear TYPE gjahr,
       bukrs TYPE bukrs,
       txjcd TYPE txjcd,                    "Tax Jurisdiction
       racct TYPE racct,                    "G/L Account no.
       h2ste TYPE h2ste,                    "Tax Amount
       poper TYPE poper,                    "Posting Period
       belnr TYPE belnr_d,                  "Document Number
       shkzg TYPE shkzg,                    "Debit/Credit Indicator
       END   OF x_inter,
       ty_t_inter TYPE STANDARD TABLE OF x_inter.
TYPES: BEGIN OF x_final,
       txjcd    TYPE bset-txjcd,                     "Tax Jurisdiction
       state    TYPE char40,                         "State
       curr_bal TYPE bset-h2ste,                     "Current Balance
       per_chng TYPE bset-h2ste,                     "Period Change
       pri_bala TYPE bset-h2ste,                     "Prior Balance
       END   OF x_final,
       ty_t_final TYPE STANDARD TABLE OF x_final.
Column positions to pass to field catalog
CONSTANTS : c_pos_1      TYPE sy-cucol       VALUE '1',   " position of the columns
            c_pos_2      TYPE sy-cucol       VALUE '2',
            c_pos_3      TYPE sy-cucol       VALUE '3',
            c_pos_4      TYPE sy-cucol       VALUE '4',
            c_pos_5      TYPE sy-cucol       VALUE '5'.
*Field names for Field Catalog
CONSTANTS : c_h           TYPE c              VALUE 'H',                         "Header
            c_s           TYPE c              VALUE 'S',                         "Sub heading
            c_slash       TYPE c              VALUE '/',                         "Slash
            c_colon       TYPE c              VALUE ':',                         "Column
            c_top_of_page TYPE slis_formname  VALUE 'TOP_OF_PAGE',"#EC NEEDED          "Top-of-page
            c_top_of_page_split TYPE slis_formname  VALUE 'TOP_OF_PAGE_SPLIT',   "Top-of-page centered
            c_txjcd       TYPE slis_fieldname VALUE 'TXJCD',                     "Tax Jurisdiction
            c_region      TYPE slis_fieldname VALUE 'STATE',                     "State
            c_currb       TYPE slis_fieldname VALUE 'CURR_BAL',                  "Current Balance
            c_perch       TYPE slis_fieldname VALUE 'PER_CHNG',                  "Period Change
            c_prbal       TYPE slis_fieldname VALUE 'PRI_BALA'.                  "Prior Balance
CONSTANTS : c_table_name  TYPE slis_tabname   VALUE 'IT_FINAL', "For Field Catalog
            c_spras       TYPE spras          VALUE 'E',        "Language
            c_buzei       TYPE c              VALUE '1',        "Line item in BSET
            c_one(2)      TYPE c              VALUE '01',
            c_zp          TYPE bset-mwskz     VALUE 'ZP',       "Sales Tax Code
            c_zr          TYPE bset-mwskz     VALUE 'ZR'.       "Sales Tax Code
Variables Declaration.
DATA : v_current_year TYPE i,                                   "Current year
       v_poper        TYPE poper,                               "Posting period
       v_saknr        TYPE saknr,                               "Account no.    "#EC NEEDED
       v_ktopl        TYPE ktopl,                               "Chart of Accounts
       v_konts        TYPE saknr,                               "G/L Account Number
       v_bukrs        TYPE bukrs,                               "Company Code
       v_sum_val      TYPE h2ste,           "#EC NEEDED     "Tax Amount
       v_sum_val1     TYPE h2ste,                               "Tax Amount
       v_sum_val2     TYPE h2ste,                               "Tax Amount
       v_sum_debit    TYPE h2ste,
       v_sum_credit   TYPE h2ste,
       v_sum_debit1   TYPE h2ste,
       v_sum_credit1  TYPE h2ste,
       v_h2ste        TYPE string,                          "#EC NEEDED
       v_desc         TYPE char40,                              "G/L Acct. Description
       v_title        TYPE char40.                              "Title
Internal Tables Declaration.
DATA : it_faglflexa        TYPE ty_t_faglflexa,             "Internal table for G/L Line Items.
       it_bset             TYPE ty_t_bset,                  "Internal table for Tax Data Document Segment.
       it_skat             TYPE ty_t_skat,                  "Internal table for Chart of Accounts: Desc.
       it_custom           TYPE ty_t_custom,                "Custom table for storing STATE Description.
       it_txjcd            TYPE ty_t_txjcd,                 "For storing Tax Jurisdiction codes.
       it_inter            TYPE ty_t_inter.                 "Intermediate table for storing data & Performing Calculations.
DATA : it_final            TYPE ty_t_final.                 "#EC NEEDED
*Fieldcatalogue Internal Table Declaration
DATA : it_fieldcat         TYPE slis_t_fieldcat_alv,
       wa_fieldcat         TYPE slis_fieldcat_alv,
       it_alv_top_of_page  TYPE slis_t_listheader,
       wa_line             TYPE slis_listheader.
*Field-symbols and Work Area Declarations
FIELD-SYMBOLS : <fs_faglflexa>      TYPE x_faglflexa,
                <fs_bset>           TYPE x_bset.
DATA : wa_faglflexa     TYPE x_faglflexa,                   "#EC NEEDED
       wa_bset          TYPE x_bset,
       wa_skat          TYPE x_skat,
       wa_custom        TYPE x_custom,
       wa_txjcd         TYPE x_txjcd,
       wa_inter         TYPE x_inter,
       wa_final         TYPE x_final.                      " #EC NEEDED
SELECTION-SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS:     p_bukrs TYPE faglflexa-rbukrs OBLIGATORY,              " Company Code
                p_gjahr TYPE faglflexa-gjahr  OBLIGATORY.              " Fiscal Year
SELECT-OPTIONS: s_budat FOR  faglflexa-budat  OBLIGATORY               " Posting Date
                                              NO-EXTENSION
                                              NO INTERVALS.
PARAMETERS:     p_racct TYPE faglflexa-racct  OBLIGATORY.              " G/L Accounts
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN VALIDATIONS.
*Company Code Validation.
AT SELECTION-SCREEN ON p_bukrs.
  SELECT SINGLE bukrs INTO v_bukrs
  FROM t001
  WHERE bukrs = p_bukrs.
  IF sy-subrc NE 0.
    MESSAGE e071(zfinprjt).
  ENDIF.
Fiscal Year Validation. It should not be more than Current.
AT SELECTION-SCREEN ON p_gjahr.
  v_current_year = sy-datum+0(4).
  IF p_gjahr > v_current_year.
    MESSAGE e072(zfinprjt).
  ENDIF.
*G/L Account Validation.
AT SELECTION-SCREEN ON p_racct.
  SELECT SINGLE saknr INTO v_saknr
  FROM skb1
  WHERE saknr EQ p_racct
  AND   bukrs EQ p_bukrs.
  IF sy-subrc EQ 0.
*Check the Chart of Accounts for that Company Code.
    SELECT SINGLE ktopl FROM t001
    INTO v_ktopl
    WHERE bukrs = p_bukrs.
*Check that it is a Tax G/L Account for that Company Code and G/L Account.
    SELECT SINGLE konts FROM t030k                          "#EC *
    INTO v_konts
    WHERE ktopl = v_ktopl
    AND   konts = v_saknr.
    IF sy-subrc NE 0.
      MESSAGE e073(zfinprjt).
    ENDIF.
  ELSE.
    MESSAGE e073(zfinprjt).
  ENDIF.
AT SELECTION-SCREEN ON s_budat.
  DATA : v_year(4)  TYPE c,
         v_month(2) TYPE c,
         v_date(2)  TYPE c.                                 "#EC NEEDED
*if date ne 01 converting date to '01'
READ TABLE s_budat.
  IF s_budat-low+6(2) NE c_one.
    v_year  = s_budat-low.
    v_month = s_budat-low+4(2).
    v_date  = s_budat-low+6(2).
    s_budat-high = s_budat-low.
    CLEAR s_budat-low.
    CONCATENATE v_year c_one c_one INTO s_budat-low.
    s_budat-sign = 'I'.
    s_budat-option = 'BT'.
    APPEND s_budat.
  ENDIF.
START-OF-SELECTION.
  PERFORM get_data USING p_bukrs                            "#EC *
                         p_gjahr                            "#EC *
                         s_budat[]                          "#EC *
                         p_racct  CHANGING it_final.        "#EC *
*Display report in ALV grid
  IF it_final IS NOT INITIAL.
*Build Top of the page table.
   PERFORM comment_build USING it_skat CHANGING it_alv_top_of_page.
*Build Field catalog table for ALV
    PERFORM build_field_catalog CHANGING it_fieldcat.
*Display report
    PERFORM display_alv USING it_final.
  ELSE.
*No data found for the selection criteria/period.
    MESSAGE i022(zfinprjt).
    exit.
  ENDIF.
*&      Form  GET_DATA
      Retrieve data from Database tables
     -->P_P_BUKRS  text
     -->P_P_GJAHR  text
     -->P_P_BUDAT  text
     -->P_P_RACCT  text
     <--P_IT_FINAL  text
FORM get_data  USING    fp_bukrs     TYPE bukrs             "#EC *
                        fp_gjahr     TYPE gjahr             "#EC *
                        fp_budat     TYPE ty_t_budat        "#EC *
                        fp_racct     TYPE racct             "#EC *
               CHANGING fp_it_final  TYPE ty_t_final.
*selecting the Required data from FAGLFLEXA
  SELECT ryear                                "Fiscal Year
         rbukrs                               "Company Code
         belnr                                "Document Number
         poper                                "Posting Period
         budat                                "Posting Date
         buzei                                "Document line item
         racct                                "G/L Account no.
         INTO TABLE it_faglflexa
         FROM faglflexa
         WHERE rbukrs EQ p_bukrs                            "#EC *
         AND   gjahr  EQ p_gjahr                            "#EC *
        AND   budat  LE s_budat                            "#EC *
         AND   budat  IN s_budat                            "#EC *
         AND   racct  EQ p_racct.                           "#EC *
  IF sy-subrc EQ 0.
    SORT it_faglflexa.
  ENDIF.
*selecting the Tax Jurisdiction, Tax amount from BSET
  IF it_faglflexa IS NOT INITIAL.
    SELECT belnr
           buzei
           mwskz
           "hkont
           shkzg                                "Debit/Credit Indicator
           txjcd                                "Tax Jurisdicaiton
           h2ste                                "Tax Amount
           h2bas                                "Tax Amount1
           INTO TABLE it_bset
           FROM bset
           FOR ALL ENTRIES IN it_faglflexa
           WHERE belnr EQ it_faglflexa-belnr
           AND   gjahr EQ p_gjahr               "it_faglflexa-ryear
           AND   buzei EQ c_buzei.              "Line item
  ENDIF.
  IF sy-subrc EQ 0.
   SORT it_bset BY txjcd ASCENDING.
    SORT it_bset BY belnr ASCENDING.
  ENDIF.
*Selecting the G/L Account Long Text from SKAT
  IF it_faglflexa IS NOT INITIAL.
    SELECT  spras                            " Language key
            ktopl                            " Chart of Accounts
            saknr                            " G/L Account Number
            txt20                            " G/L Account Long Text
         INTO TABLE it_skat
         FROM skat
         FOR ALL ENTRIES IN it_faglflexa
         WHERE spras =  c_spras
         AND   saknr =  it_faglflexa-racct.
  ENDIF.
  IF sy-subrc EQ 0.
    SORT it_skat.
  ENDIF.
  LOOP AT it_bset ASSIGNING <fs_bset>.
    wa_txjcd-geo_state  = <fs_bset>-txjcd+0(2).
    wa_txjcd-geo_county = <fs_bset>-txjcd+2(3).
    APPEND wa_txjcd TO it_txjcd.
    CLEAR wa_txjcd.
  ENDLOOP.
  IF sy-subrc EQ 0.
    SORT it_txjcd BY geo_state.
    DELETE ADJACENT DUPLICATES FROM it_txjcd COMPARING geo_state geo_county.
  ENDIF.
*Selecting the Description from Custom table
  IF it_txjcd IS NOT INITIAL.
    SELECT geo_state
           geo_county
           country
           description
    INTO TABLE it_custom
    FROM ztfi_tgl_summary
    FOR ALL ENTRIES IN it_txjcd
    WHERE geo_state  = it_txjcd-geo_state
    AND   geo_county = it_txjcd-geo_county.
  ENDIF.
  IF sy-subrc EQ 0.
    SORT it_custom.
  ENDIF.
  LOOP AT it_faglflexa ASSIGNING <fs_faglflexa>.
    MOVE-CORRESPONDING <fs_faglflexa> TO wa_inter.          "#EC ENHOK
*Read Tax Jurisdiction and Tax Amount from BSET Table.
    READ TABLE it_bset INTO wa_bset WITH KEY belnr =  <fs_faglflexa>-belnr
                                             BINARY SEARCH.
    IF sy-subrc EQ 0.
      wa_inter-shkzg = wa_bset-shkzg.
      wa_inter-txjcd = wa_bset-txjcd.
    ENDIF.
*If BSET-MWSKZ = ZP or ZR then pick H2BAS as Tax Amount.
    IF wa_bset-mwskz = c_zp.
      wa_inter-h2ste = wa_bset-h2bas.
    ELSEIF wa_bset-mwskz = c_zr.
      wa_inter-h2ste = wa_bset-h2bas.
    ELSE.
      wa_inter-h2ste = wa_bset-h2ste.
    ENDIF.
*Check it is credit entry or debit entry ('H' or 'S').
    IF wa_inter-shkzg EQ 'H'.
      wa_inter-h2ste = wa_inter-h2ste * -1.
    ENDIF.
    APPEND wa_inter TO it_inter.
    CLEAR: wa_inter, wa_bset.
  ENDLOOP.
  IF sy-subrc EQ 0.
    SORT it_inter BY bukrs ryear txjcd ASCENDING.
    DELETE it_inter WHERE txjcd EQ space.
    DELETE ADJACENT DUPLICATES FROM it_inter COMPARING belnr.
  ENDIF.
  v_poper = s_budat-high+4(2).
  LOOP AT it_inter INTO wa_inter.
*Read the Text maintained in the custom table based on the GEO_STATE = First two digits of TXJCD
*and GEO_COUNTY = Next three digits of TXJCD. If this is blank pick based on First two digits of TXJCD.
    READ TABLE it_custom INTO wa_custom WITH KEY geo_state  = wa_inter-txjcd+0(2)
                                                 geo_county = wa_inter-txjcd+2(3)
                                                 BINARY SEARCH.
    IF sy-subrc NE 0.
      READ TABLE it_custom INTO wa_custom WITH KEY geo_state  = wa_bset-txjcd+0(2)
                                                   BINARY SEARCH.
    ENDIF.
    IF sy-subrc = 0.
      wa_final-state = wa_custom-description.
    ENDIF.
    AT NEW txjcd.
      CLEAR: v_sum_val, v_sum_val1, v_sum_val2.
    ENDAT.
  Period Change, if v_poper equal to present period(v_poper).
    IF wa_inter-poper EQ v_poper.
      IF wa_inter-shkzg EQ 'H'.
        v_sum_debit     = v_sum_debit + wa_inter-h2ste.
      ELSE.
        v_sum_credit    = v_sum_credit + wa_inter-h2ste.
      ENDIF.
  Prior Balance, if v_poper is less than present period(v_poper).
    ELSEIF wa_inter-poper LT v_poper.
      IF wa_inter-shkzg EQ 'H'.
        v_sum_debit1    = v_sum_debit1 + wa_inter-h2ste.
      ELSE.
        v_sum_credit1   = v_sum_credit1 + wa_inter-h2ste.
      ENDIF.
    ENDIF.
    AT END OF txjcd.
      wa_final-txjcd    = wa_inter-txjcd.
      IF sy-subrc EQ 0.
        v_sum_val1      = v_sum_credit - v_sum_debit.                     "Temp Commented
      ENDIF.
      wa_final-per_chng = v_sum_val1.                                     "Period change
      IF sy-subrc EQ 0.
        v_sum_val2      = v_sum_credit1 - v_sum_debit1.                   "Temp commented
      ENDIF.
      wa_final-pri_bala = v_sum_val2.                                     "Prior Balance
      wa_final-curr_bal = v_sum_val1 + v_sum_val2.                        "Current Balance
      APPEND wa_final TO it_final.                          "#EC *
      CLEAR: wa_inter,
             wa_final,
             v_sum_credit,
             v_sum_credit1,
             v_sum_debit,
             v_sum_debit1.
    ENDAT.
  ENDLOOP.
ENDFORM.                    " GET_DATA
*&      Form  COMMENT_BUILD
      ALV Top of Page
     -->P_IT_SKAT  text
     <--P_IT_ALV_TOP_OF_PAGE  text
FORM comment_build  USING    fp_it_skat            TYPE ty_t_skat"#EC NEEDED
                    CHANGING fp_it_alv_top_of_page TYPE slis_t_listheader.
  DATA: v_budat_low  TYPE c LENGTH 10,                      "#EC NEEDED
        v_budat_high TYPE c LENGTH 10,                      "#EC NEEDED
        v_butxt      TYPE butxt.
  CLEAR wa_line.
*Report Title
  CONCATENATE text-005 p_bukrs INTO v_title SEPARATED BY space.
  wa_line-typ = c_h.
  wa_line-key = ' '.
  wa_line-info = v_title.
  APPEND wa_line TO fp_it_alv_top_of_page.
  CLEAR  wa_line.
*Account Number
  wa_line-typ = c_s.
  wa_line-key = text-006.
  wa_line-info = p_racct.
  APPEND wa_line TO fp_it_alv_top_of_page.
  CLEAR  wa_line.
*G/L Account Description
  READ TABLE it_skat INTO wa_skat WITH KEY ktopl = v_ktopl BINARY SEARCH."#EC *
  IF sy-subrc EQ 0.
    v_desc = wa_skat-text.
  ENDIF.
  wa_line-typ = c_s.
  wa_line-key = text-007.
  wa_line-info = v_desc.
  APPEND wa_line TO fp_it_alv_top_of_page.
  CLEAR  wa_line.
*Fiscal Year from selection
  IF NOT p_gjahr IS INITIAL.
    wa_line-info = p_gjahr.
    wa_line-typ   = c_s.
    wa_line-key  = text-008.                                              "Fiscal Year
    APPEND wa_line TO fp_it_alv_top_of_page.
    CLEAR  wa_line.
  ENDIF.
*Posting Date
  CONCATENATE s_budat-high4(2) s_budat-high6(2) s_budat-high+0(4) INTO wa_line-info SEPARATED BY c_slash.
  wa_line-typ   = c_s.
  wa_line-key  = text-009.                                               "Posting Date
  APPEND wa_line TO fp_it_alv_top_of_page.
  CLEAR  wa_line.
*Company Code Description from selection
  IF NOT p_bukrs IS INITIAL.
    SELECT SINGLE butxt FROM t001
    INTO v_butxt WHERE bukrs EQ p_bukrs.
    IF sy-subrc EQ 0.
      wa_line-info = v_butxt.
      wa_line-typ  = c_s.
      wa_line-key  = text-010.                                              "Company Code Description
      APPEND wa_line TO fp_it_alv_top_of_page.
      CLEAR  wa_line.
    ENDIF.
  ENDIF.
Printed Date
  wa_line-typ = c_s.
  wa_line-key = text-011.                                                 "Printed Date
  CONCATENATE  sy-datum+4(2)
               sy-datum+6(2)
               sy-datum(4) INTO wa_line-info SEPARATED BY c_slash.        "todays date
  APPEND wa_line TO fp_it_alv_top_of_page.
  CLEAR: wa_line.
Printing Time
  wa_line-typ = c_s.
  wa_line-key = text-012.                                                 "Printing Time
  wa_line-info = sy-uzeit.
  CONCATENATE  sy-uzeit(2)
               sy-uzeit+2(2)
               sy-uzeit+4(2) INTO wa_line-info SEPARATED BY c_colon.      "current time
  APPEND wa_line TO fp_it_alv_top_of_page.
  CLEAR: wa_line.
ENDFORM.                    " COMMENT_BUILD
*&      Form  BUILD_FIELD_CATALOG
      Fieldcatalogue
     <--P_IT_FIELDCAT  text
FORM build_field_catalog  CHANGING fp_it_fieldcat TYPE slis_t_fieldcat_alv.
TAX JURISDICTION
  wa_fieldcat-col_pos      = c_pos_1.
  wa_fieldcat-reptext_ddic = text-013.                                    "TAX JURISDICTION
  wa_fieldcat-fieldname    = c_txjcd.
  wa_fieldcat-tabname      = c_table_name.
  wa_fieldcat-outputlen    = '15'.
  APPEND  wa_fieldcat TO fp_it_fieldcat.
  CLEAR : wa_fieldcat.
STATE
  wa_fieldcat-col_pos      = c_pos_2.
  wa_fieldcat-reptext_ddic = text-014.                                    "STATE
  wa_fieldcat-fieldname    = c_region.
  wa_fieldcat-tabname      = c_table_name.
  wa_fieldcat-outputlen    = '40'.
  APPEND  wa_fieldcat TO fp_it_fieldcat.
  CLEAR : wa_fieldcat.
CURRENT BALANCE
  wa_fieldcat-col_pos      = c_pos_3.
  wa_fieldcat-reptext_ddic = text-015.                                    "CURRENT BALANCE
  wa_fieldcat-fieldname    = c_currb.
  wa_fieldcat-tabname      = c_table_name.
  wa_fieldcat-do_sum       = 'X'.
  wa_fieldcat-datatype     = 'CURR'.
  wa_fieldcat-outputlen    = '17'.
  APPEND  wa_fieldcat TO fp_it_fieldcat.
  CLEAR : wa_fieldcat.
PERIOD CHANGE
  wa_fieldcat-col_pos      = c_pos_4.
  wa_fieldcat-reptext_ddic = text-016.                                    "PERIOD CHANGE
  wa_fieldcat-fieldname    = c_perch.
  wa_fieldcat-tabname      = c_table_name.
  wa_fieldcat-do_sum       = 'X'.
  wa_fieldcat-datatype     = 'CURR'.
  wa_fieldcat-outputlen    = '17'.
  APPEND  wa_fieldcat TO fp_it_fieldcat.
  CLEAR : wa_fieldcat.
PRIOR BALANCE
  wa_fieldcat-col_pos      = c_pos_5.
  wa_fieldcat-reptext_ddic = text-017.                                    "PRIOR BALANCE
  wa_fieldcat-fieldname    = c_prbal.
  wa_fieldcat-tabname      = c_table_name.
  wa_fieldcat-do_sum       = 'X'.
  wa_fieldcat-datatype     = 'CURR'.
  wa_fieldcat-outputlen    = '17'.
  APPEND  wa_fieldcat TO fp_it_fieldcat.
  CLEAR : wa_fieldcat.
ENDFORM.                    " BUILD_FIELD_CATALOG
*&      Form  DISPLAY_ALV
      ALV Grid Display
     -->P_IT_FINAL  text
FORM display_alv  USING    fp_it_final TYPE ty_t_final.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
  I_INTERFACE_CHECK                 = ' '
  I_BYPASSING_BUFFER                = ' '
  I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = sy-repid
  I_CALLBACK_PF_STATUS_SET          = ' '
  I_CALLBACK_USER_COMMAND           = ' '
  i_callback_top_of_page            = c_top_of_page
   i_callback_html_top_of_page       = c_top_of_page_split
  I_CALLBACK_HTML_END_OF_LIST       = ' '
  I_STRUCTURE_NAME                  =
  I_BACKGROUND_ID                   = ' '
  I_GRID_TITLE                      =
  I_GRID_SETTINGS                   =
  IS_LAYOUT                         =
     it_fieldcat                       = it_fieldcat
  IT_EXCLUDING                      =
  IT_SPECIAL_GROUPS                 =
  IT_SORT                           =
  IT_FILTER                         =
  IS_SEL_HIDE                       =
  I_DEFAULT                         = 'X'
     i_save                            = 'A'
  IS_VARIANT                        =
  IT_EVENTS                         =
  IT_EVENT_EXIT                     =
  IS_PRINT                          =
  IS_REPREP_ID                      =
  I_SCREEN_START_COLUMN             = 0
  I_SCREEN_START_LINE               = 0
  I_SCREEN_END_COLUMN               = 0
  I_SCREEN_END_LINE                 = 0
  I_HTML_HEIGHT_TOP                 = 0
  I_HTML_HEIGHT_END                 = 0
  IT_ALV_GRAPHICS                   =
  IT_HYPERLINK                      =
  IT_ADD_FIELDCAT                   =
  IT_EXCEPT_QINFO                   =
  IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
  E_EXIT_CAUSED_BY_CALLER           =
  ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = fp_it_final
EXCEPTIONS
  PROGRAM_ERROR                     = 1
  OTHERS                            = 2
  IF sy-subrc EQ 0.                                         "#EC *
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " DISPLAY_ALV
*&      Form  top_of_page_split
      Top of page for displaying the Text in Center
FORM top_of_page_split USING fp_top TYPE REF TO cl_dd_document."#EC *
  TYPES: BEGIN  OF ty_text,
         text   TYPE sdydo_text_element,
         END    OF ty_text.
  TYPES: BEGIN  OF ty_text1,                        "AAAAAAAA
         text1  TYPE sdydo_text_element,
         END    OF ty_text1.
  DATA: v_tab          TYPE sdydo_text_table,
        v_area         TYPE REF TO cl_dd_area,
        v_text         TYPE sdydo_text_element,
        v_text1        TYPE sdydo_text_element,             "#EC NEEDED
        v_tab1         TYPE sdydo_text_table.
  DATA: it_text        TYPE TABLE OF ty_text,
        wa_text        TYPE ty_text,
        it_text1       TYPE TABLE OF ty_text1,
        wa_text1       TYPE ty_text1.
  DATA: v_title        TYPE string,
        v_accts_desc   TYPE string,
        v_year         TYPE string,
        v_comp_code    TYPE string,
        v_desc         TYPE char40,
        v_budat        TYPE char10,
        v_budat1       TYPE char10,
        v_butxt        TYPE butxt,
        v_time         TYPE char10,
        v_comma        TYPE c VALUE ','.
  CALL METHOD fp_top->initialize_document.
  CHECK sy-subrc EQ 0.
  CALL METHOD fp_top->vertical_split
    EXPORTING
      split_area  = fp_top
      split_width = '31%'
    IMPORTING
      right_area  = v_area.
  IF sy-subrc EQ 0.                                         "#EC NEEDED
*MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
*G/L Account Description
  READ TABLE it_skat INTO wa_skat WITH KEY ktopl = v_ktopl BINARY SEARCH.
  IF sy-subrc EQ 0.
    v_desc = wa_skat-text.
  ENDIF.
*Company code Description
  IF NOT p_bukrs IS INITIAL.
    SELECT SINGLE butxt FROM t001
    INTO v_butxt WHERE bukrs EQ p_bukrs.
  ENDIF.
  CONCATENATE text-005 p_bukrs INTO v_title SEPARATED BY space.
  wa_text1-text1 = v_title.
  APPEND wa_text1 TO it_text1.
  v_tab1 = it_text1.
  CALL METHOD v_area->add_text
    EXPORTING
      text_table   = v_tab1
      fix_lines    = 'X'
      sap_fontsize = cl_dd_document=>large
      sap_emphasis = cl_dd_document=>strong.                           "AAAAAA
  CHECK sy-subrc EQ 0.
  CONCATENATE text-006 p_racct v_comma text-007 v_desc INTO v_accts_desc SEPARATED BY space.
  CONCATENATE s_budat-high4(2) s_budat-high6(2) s_budat-high+0(4) INTO v_budat SEPARATED BY c_slash.
  CONCATENATE text-008 p_gjahr v_comma text-009 v_budat INTO v_year SEPARATED BY space.
  CONCATENATE text-010 v_butxt INTO v_comp_code SEPARATED BY space.
wa_text-text = v_title.
APPEND wa_text TO it_text.
  wa_text-text = v_accts_desc.
  APPEND wa_text TO it_text.
  wa_text-text = v_year.
  APPEND wa_text TO it_text.
  wa_text-text = v_comp_code.
  APPEND wa_text TO it_text.
  v_tab = it_text.
  CALL METHOD v_area->add_text
    EXPORTING
      text_table   = v_tab
      fix_lines    = 'X'
      sap_fontsize = cl_dd_document=>medium
      sap_emphasis = cl_dd_document=>medium.
  CHECK sy-subrc EQ 0.
  CALL METHOD fp_top->new_line.
  CHECK sy-subrc EQ 0.
  CALL METHOD fp_top->new_line.
  CHECK sy-subrc EQ 0.
  CALL METHOD fp_top->new_line.
  CHECK sy-subrc EQ 0.
  CALL METHOD fp_top->add_gap
    EXPORTING
      width = 0.
  CHECK sy-subrc EQ 0.
  CONCATENATE sy-datum4(2) sy-datum6(2) sy-datum+0(4) INTO v_budat1 SEPARATED BY c_slash.
  CALL METHOD fp_top->add_text
    EXPORTING
      text         = text-011
      sap_emphasis = 'STRONG'.
  CHECK sy-subrc EQ 0.
  CALL METHOD fp_top->add_gap
    EXPORTING
      width = 1.
  CHECK sy-subrc EQ 0.
  v_text = v_budat1.
  CALL METHOD fp_top->add_text
    EXPORTING
      text = v_text.
     sap_style = 'KEY'.
  CHECK sy-subrc EQ 0.
  CALL METHOD fp_top->new_line.
  CHECK sy-subrc EQ 0.
  CALL METHOD fp_top->add_text
    EXPORTING
      text         = text-012
      sap_emphasis = 'STRONG'.
  CHECK sy-subrc EQ 0.
  CALL METHOD fp_top->add_gap
    EXPORTING
      width = 1.
  CHECK sy-subrc EQ 0.
  CONCATENATE  sy-uzeit(2)
               sy-uzeit+2(2)
               sy-uzeit+4(2) INTO v_time SEPARATED BY c_colon.   "current time
  v_text = v_time.
  CALL METHOD fp_top->add_text
    EXPORTING
      text = v_text.
     sap_style = 'KEY'.
  CHECK sy-subrc EQ 0.
ENDFORM.                    "top_of_page_split
Thanks in Advance.
Regards,
Ramana

Answer 1

Problem is with ur selection screen definition for s_budat
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_bukrs TYPE faglflexa-rbukrs OBLIGATORY, " Company Code
p_gjahr TYPE faglflexa-gjahr OBLIGATORY. " Fiscal Year
SELECT-OPTIONS: s_budat FOR faglflexa-budat OBLIGATORY " Posting Date
NO-EXTENSION
NO INTERVALS.
PARAMETERS: p_racct TYPE faglflexa-racct OBLIGATORY. " G/L Accounts
SELECTION-SCREEN END OF BLOCK b1.
Here u r defining  s_budat like parameter with NO-EXTENSION
NO INTERVALS. additions.
So that means it should contain only one record in it. As s_budat is nothing but a range table with headerline so this entry should be contained in the body as well as in the header.
But in AT SELECTION-SCREEN ON s_budat. u r again entering a 2nd record if date is not 01.
AT SELECTION-SCREEN ON s_budat.
DATA : v_year(4) TYPE c,
v_month(2) TYPE c,
v_date(2) TYPE c. "#EC NEEDED
*if date ne 01 converting date to '01'
READ TABLE s_budat.
IF s_budat-low+6(2) NE c_one. << Here u r checking the header not the body
v_year = s_budat-low.
v_month = s_budat-low+4(2).
v_date = s_budat-low+6(2).
s_budat-high = s_budat-low.
CLEAR s_budat-low.
CONCATENATE v_year c_one c_one INTO s_budat-low.
s_budat-sign = 'I'.
s_budat-option = 'BT'.
APPEND s_budat.
ENDIF.
Due to these 2 records it is giving u error. So to avoid the problem u should read the body of the table and then modify the record.
Read table s_budat index 1.
IF s_budat-low+6(2) NE c_one.* << Here u r checking the header not the body
v_year = s_budat-low.
v_month = s_budat-low+4(2).
v_date = s_budat-low+6(2).
s_budat-high = s_budat-low.
CLEAR s_budat-low.
CONCATENATE v_year c_one c_one INTO s_budat-low.
s_budat-sign = 'I'.
s_budat-option = 'BT'.
modify s_budat index sy-tabix.
Regards,
Joy.