Interanl table output problem

Question

Hi Friends,
             I am selecting condition types(kschl) & value(kbetr) from konv table. My requirement is I need to generate output columns(alv output) based on number of or available condition type  in internal table.
Internal table records:
cond.recno      kschl         kbetr
5890                ZBP0        1000
5890                ZBP1        1500
5890                ZFK2          500
Req. output  COLUMNS :
Cond recno ZBP0   ZBP1 ZFK2
   5890        1000   1500   500.
How to achieve this ?
Note: how many condtion type are available not know until run time.
Pl.Dont give any link, Provide solution to this problem. <removed_by_moderator>
Thanks in advance
senthil kumar
Edited by: Julius Bussche on Sep 4, 2008 10:38 AM

Answer 1

Here is the full code.
  INCLUDE ZV_INVPR_RM
Begin of Main Processing
AT SELECTION-SCREEN.
  PERFORM verify_options.
START-OF-SELECTION.
YVRISA01
Begin of Main Processing
  PERFORM select_sales_data.        "Select sales data
  PERFORM select_likp_data.         "Select delivery data
  PERFORM select_vbpa_data.         "Select partner function data
  PERFORM select_bkpf_data.         "Select accounting data
  PERFORM select_kna1_data.         "Select customer address data
  PERFORM select_lfa1_data.         "Select vendor address data
  PERFORM select_konv_data.         "Select pricing data
  PERFORM select_header_data.       "Select header pricing "PCR3135-718
  PERFORM join_tables.              "Join tables for output
YVRISA01 *************************************
YVRPRC01 *************************************
Begin of MAIN LOGIC
main report stream
  PERFORM select_process.                "select records
YVRPRC01 *************************************
YVRMNR01 *************************************
Refresh the internal tables before any processing
  REFRESH int_vbrk_2.
  REFRESH int_output_2.
Select data and fill the output table as per selection screen
  PERFORM select-vbrk-data.
  PERFORM fill_output_table.
YVRMNR01 *************************************
YVRSMR01 *************************************
Refresh the internal tables before any processing
  REFRESH int_vbrk_3.
  REFRESH int_output_3.
  REFRESH int_vbkd_3.
Select data and fill the output table as per selection screen
  PERFORM select-vbrk-data_3.
  PERFORM select_vbkd_data_3.
  PERFORM fill_output_table_3.
Check if data was selected as per selection screen
  IF ( int_output_3[] IS INITIAL ).
    MESSAGE i031(zm).                  "No data for specified selection
  ENDIF.
Sort the internal table (selected data per selection screen)
  SORT int_output_3 BY zterm vbeln kunag.
YVRSMR01 *************************************
ZV_INVPR_R ***********************************
  DATA: kschl(4) TYPE c.
  SORT int_output BY vbeln posnr.
  SORT int_output_3 BY vbeln posnr.
  SORT int_output_2 BY vbeln posnr.
  SORT int_output_1 BY vbeln posnr.
                      PRM                                  **
INTERNAL TABLE TABLE DECLARED TO STORE THE CONDITION TYPES  *
         CREATED ON 19-07-2007 BY RAMA MURTHY               **
  DATA:BEGIN OF i_kschl OCCURS 0,
       kschl LIKE komv-kschl,
       END OF i_kschl.
  DATA: tot_i_kschl TYPE i.
LOADING ALL THE CONDITION TYPES TO BE DISPLAYED AS COLUMNS *
  LOOP AT int_output_1.
    READ TABLE i_kschl WITH KEY kschl = int_output_1-kschl.
    IF sy-subrc <> 0.
      i_kschl-kschl = int_output_1-kschl.
      APPEND i_kschl.
      CLEAR i_kschl.
    ENDIF.
  ENDLOOP.
COUNTING THE CONDITION RECORDS SELECTED  **
COMMENTED BY RAMA MURTHY ON 27-07-2007      *
describe table i_kschl lines tot_i_kschl.
APPLYING CONDITION TO PREVENT ALV COLUMN LIST FROM EXCEED BEYOND 90 *
COMMENTED BY RAMA MURTHY ON 27-07-2007      *
if tot_i_kschl gt 45.
   message I167.
endif.
else.
GLOBAL FIELD SYMBOLS USED TO STORE DYNAMIC I_TABLE AND WA **
  FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,
                 <dyn_wa>.
  DATA: it_fldcat TYPE lvc_t_fcat.
  PERFORM build_dyn_itab.
CODED BY MEENAKSHI  ****
perform get_pricon_text.
COMMENTED BY RAMA MURTHY ON 19-07-2007  **
loop at int_output into wa_output.
   move wa_output-sold to wa_main1-sold.
   move wa_output-bill to wa_main1-bill.
   move wa_output-ship to wa_main1-ship.
   concatenate wa_output-ort01
               wa_output-regio
               wa_output-pstlz
          into wa_main1-shipaddr separated by SPACE.
   move wa_output-ort01 to wa_main1-ort01.
   move wa_output-pstlz to wa_main1-pstlz.
   move wa_output-regio to wa_main1-regio.
   move wa_output-waerk to wa_main1-waerk.
   move wa_output-vbeln to wa_main1-vbeln.
   move wa_output-posnr to wa_main1-posnr.
   move wa_output-fkdat to wa_main1-fkdat.
   move wa_output-aubel to wa_main1-aubel.
   move wa_output-erdat to wa_main1-erdat.
   move wa_output-xblnr to wa_main1-xblnr.
   move wa_output-matnr to wa_main1-matnr.
   move wa_output-zterm to wa_main1-zterm.
   move wa_output-ntgew to wa_main1-ntgew.
   move wa_output-kzwi2 to wa_main1-kzwi2.
   move wa_output-netwr to wa_main1-netwr.
   move wa_output-hztms to wa_main1-hztms.
   move wa_output-prodh to wa_main1-prodh.
   move wa_output-kvgr5 to wa_main1-kvgr5.
   move wa_output-vgbel to wa_main1-vgbel.
   move wa_output-inco1 to wa_main1-inco1.
   move wa_output-lname1 to wa_main1-lname1.
   move wa_output-bolnr to wa_main1-bolnr.
   move wa_output-wadat to wa_main1-wadat.
   move wa_output-wavwr to wa_main1-wavwr.
   move wa_output-zdis to wa_main1-zdis.
   move wa_output-ztms to wa_main1-ztms.
   move wa_output-znod to wa_main1-znod.
   read table int_output_3 with key vbeln = wa_output-vbeln
                                    posnr = wa_output-posnr.
   move int_output_3-name1 to wa_main1-name1.
   move int_output_3-kvgrc to wa_main1-kvgrc.
   move int_output_3-kvgrd to wa_main1-kvgrd.
   move int_output_3-auart to wa_main1-auart.
   move int_output_3-kwmeng to wa_main1-kwmeng.
   move int_output_3-fkimg to wa_main1-fkimg.
   move int_output_3-nonacc to wa_main1-nonacc.
   move int_output_3-brgew to wa_main1-brgew.
   read table int_output_2 with key vbeln = wa_output-vbeln
                                    posnr = wa_output-posnr.
   move int_output_2-kdgrp to wa_main1-kdgrp.
  move int_output_2-posnr to wa_main1-posnr.
   move int_output_2-prsdt to wa_main1-prsdt.
   move int_output_2-mvgr2 to wa_main1-mvgr2.
   move int_output_2-znodnv to wa_main1-znodnv.
   loop at int_output_1 into wa_output_1 where vbeln = wa_output-vbeln
                                         and   posnr = wa_output-posnr
     move wa_output_1-p_name1 to wa_main1-p_name1.
     move wa_output_1-kunrg to wa_main1-kunrg.
     move wa_output_1-fkart to wa_main1-fkart.
     move wa_output_1-bzirk to wa_main1-bzirk.
     move 'X' to wa_main1-flagk.
     move wa_output_1-kschl to wa_main1-kschl." needs to be
**t685t-vtext
************june 19th *************************
**reading the des for con type
**read table t_condes with key kschl = wa_output_1-kschl.
     move t_condes-vtext to wa_main1-vtext.
     move wa_output_1-kwert to wa_main1-kwert.
     move wa_output_1-kschl to kschl.
     case kschl.
       when 'VPRS'.
         move wa_output_1-kwert to wa_main1-vprs1.
       when 'ZANT'.
         move wa_output_1-kwert to wa_main1-zant.
       when 'ZCOM'.
         move wa_output_1-kwert to wa_main1-zcom.
       when 'ZCOS'.
         move wa_output_1-kwert to wa_main1-zcos.
       when 'ZDFT'.
         move wa_output_1-kwert to wa_main1-zdft.
       when 'ZDIS'.
         move wa_output_1-kwert to wa_main1-zdis1.
       when 'ZFDD'.
         move wa_output_1-kwert to wa_main1-zfdd.
       when 'ZINC'.
         move wa_output_1-kwert to wa_main1-zinc.
       when 'ZL1D'.
         move wa_output_1-kwert to wa_main1-zl1d.
       when 'ZL2D'.
         move wa_output_1-kwert to wa_main1-zl2d.
       when 'ZL3D'.
         move wa_output_1-kwert to wa_main1-zl3d.
       when 'ZL4D'.
         move wa_output_1-kwert to wa_main1-zl4d.
       when 'ZQYD'.
         move wa_output_1-kwert to wa_main1-zqyd.
       when 'ZRDD'.
         move wa_output_1-kwert to wa_main1-zrdd.
       when 'ZTMS'.
         move wa_output_1-kwert to wa_main1-ztms1.
       when 'ZTWC'.
         move wa_output_1-kwert to wa_main1-ztwc.
       when 'ZWCA'.
         move wa_output_1-kwert to wa_main1-zwca.
       when 'ZNOD'.
         move wa_output_1-kwert to wa_main1-znod1.
       when 'SKTV'.
         move wa_output_1-kwert to wa_main1-sktv.
       when 'ZCAL'.
         move wa_output_1-kwert to wa_main1-zcal.
       when 'ZBTS'.
         move wa_output_1-kwert to wa_main1-zbts.
       when 'ZSSC'.
         move wa_output_1-kwert to wa_main1-zssc.
     endcase.
************june 19th *************************
     move wa_output_1-pltyp to wa_main1-pltyp.
     move wa_output_1-ernam to wa_main1-ernam.
     append wa_main1 to t_main.
     clear wa_output_1.
   endloop.
   append wa_main1 to t_main.
   clear wa_main1.
   clear wa_output_1.
   clear wa_output.
   clear kschl.
ENDLOOP.
COMMENTED BY RAMA MURTHY ON 19-07-2007 ***********************
     SORT INT_VBRP_1 BY MATNR.
SORT t_main BY MATNR.
DELETE t_main WHERE NOT MATNR IN s_MATNR.
     SORT INT_VBRP_1 BY KVGR5.
SORT t_main BY kvgr5.
DELETE t_main WHERE  NOT KVGR5 IN s_KVGR5.
DELETE t_main WHERE  flagk ne 'X'.
          POPULATING THE DYNAMIC INTERNAL TABLE              **
  FIELD-SYMBOLS: <fs2>.
  DATA: shipaddr_dup(45) TYPE c,
        flag_val TYPE c VALUE 'X'.
  DATA : v_index TYPE i,
         v_index_new TYPE i,
         v_index_cond TYPE i.
VARIABLE TO COUNT CONDITION VALUES PER CONDITION TYPES  **
  LOOP AT int_output INTO wa_output.
    ASSIGN COMPONENT 'SOLD' OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-sold.
    ASSIGN COMPONENT 'BILL' OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-bill.
    ASSIGN COMPONENT 'SHIP' OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-ship.
    CONCATENATE wa_output-ort01
                wa_output-regio
                wa_output-pstlz
           INTO shipaddr_dup SEPARATED BY space.
    ASSIGN COMPONENT 'SHIPADDR' OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  shipaddr_dup.
    ASSIGN COMPONENT 'WAERK' OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-waerk.
    ASSIGN COMPONENT 'VBELN' OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-vbeln.
    ASSIGN COMPONENT 'POSNR' OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-posnr.
    ASSIGN COMPONENT 'FKDAT' OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-fkdat.
    ASSIGN COMPONENT 'AUBEL' OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-aubel.
    ASSIGN COMPONENT 'ERDAT' OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-erdat.
    ASSIGN COMPONENT 'XBLNR' OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-xblnr.
    ASSIGN COMPONENT 'MATNR' OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-matnr.
    ASSIGN COMPONENT 'ZTERM' OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-zterm.
    ASSIGN COMPONENT 'NTGEW' OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-ntgew.
    ASSIGN COMPONENT 'KZWI2'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-kzwi2 .
    ASSIGN COMPONENT 'NETWR'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-netwr .
    ASSIGN COMPONENT 'HZTMS'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-hztms .
    ASSIGN COMPONENT 'PRODH'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-prodh .
    ASSIGN COMPONENT 'KVGR5'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-kvgr5 .
    ASSIGN COMPONENT 'VGBEL'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-vgbel .
    ASSIGN COMPONENT 'INCO1'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-inco1 .
    ASSIGN COMPONENT 'LNAME1'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-lname1 .
    ASSIGN COMPONENT 'BOLNR'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-bolnr .
    ASSIGN COMPONENT 'WADAT'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-wadat .
    ASSIGN COMPONENT 'WAVWR'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-wavwr .
    ASSIGN COMPONENT 'ZDIS1'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-zdis1.
    ASSIGN COMPONENT 'ZTMS1'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-ztms1.
    ASSIGN COMPONENT 'ZNOD1'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  wa_output-znod1.
    READ TABLE int_output_3 WITH KEY vbeln = wa_output-vbeln
                                       posnr = wa_output-posnr.
    ASSIGN COMPONENT 'NAME1'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  int_output_3-name1.
    ASSIGN COMPONENT 'KVGRC'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  int_output_3-kvgrc.
    ASSIGN COMPONENT 'KVGRD'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  int_output_3-kvgrd.
    ASSIGN COMPONENT 'AUART'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  int_output_3-auart.
    ASSIGN COMPONENT 'KWMENG'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  int_output_3-kwmeng.
    ASSIGN COMPONENT 'FKIMG'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  int_output_3-fkimg.
    ASSIGN COMPONENT 'NONACC'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  int_output_3-nonacc.
    ASSIGN COMPONENT 'BRGEW'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  int_output_3-brgew.
    READ TABLE int_output_2 WITH KEY vbeln = wa_output-vbeln
                                     posnr = wa_output-posnr.
    ASSIGN COMPONENT 'KDGRP'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  int_output_2-kdgrp.
    ASSIGN COMPONENT 'PRSDT'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  int_output_2-prsdt.
    ASSIGN COMPONENT 'MVGR2'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  int_output_2-mvgr2.
    ASSIGN COMPONENT 'ZNODNV'  OF STRUCTURE <dyn_wa> TO <fs2>.
    <fs2> =  int_output_2-znodnv.
    LOOP AT int_output_1 INTO wa_output_1 WHERE vbeln = wa_output-vbeln
                                          AND   posnr = wa_output-posnr.
      ASSIGN COMPONENT 'P_NAME1'  OF STRUCTURE <dyn_wa> TO <fs2>.
      <fs2> =  wa_output_1-p_name1.
      ASSIGN COMPONENT 'KUNGR'  OF STRUCTURE <dyn_wa> TO <fs2>.
      <fs2> =  wa_output_1-kunrg.
      ASSIGN COMPONENT 'FKART'  OF STRUCTURE <dyn_wa> TO <fs2>.
      <fs2> =  wa_output_1-fkart.
      ASSIGN COMPONENT 'BZIRK'  OF STRUCTURE <dyn_wa> TO <fs2>.
      <fs2> =  wa_output_1-bzirk.
      ASSIGN COMPONENT 'FLAGK'  OF STRUCTURE <dyn_wa> TO <fs2>.
      <fs2> =  flag_val.
CHANGED THE COLUMN POSITIONS OF PLTYP ERNAM FIELDS AS COMPARED TO
PREVIOUS STRUCTURE  **
      ASSIGN COMPONENT 'PLTYP'  OF STRUCTURE <dyn_wa> TO <fs2>.
      <fs2> =  wa_output_1-pltyp.
      ASSIGN COMPONENT 'ERNAM'  OF STRUCTURE <dyn_wa> TO <fs2>.
      <fs2> =  wa_output_1-ernam.
    POPULATING DYNAMIC COLUMNS    **
      PERFORM build_condtyp.
      CLEAR wa_output_1.
    ENDLOOP.
APPENDING THE CONTENTS OF DYNAMIC WORK AREA TO DYNAMIC INTERNAL TABLE.
    APPEND <dyn_wa> TO <dyn_table>.
    CLEAR <dyn_wa>.
    CLEAR wa_output_1.
    CLEAR wa_output.
    CLEAR kschl.
  ENDLOOP.
APPLYING SOME REQUIRED VALIDATIONS  **
  PERFORM filter_dyn_table.
  PERFORM pre_cat.
BUILD THE FINAL ALV LAYOUT DISPLAY  **
  IF v_index_cond GT 45.
    MESSAGE i167.
  ENDIF.
  PERFORM build_alv_output.
endif.        ** commented by VMA.
       SUBROUTENES USED IN THE MAIN PROCESS         ***********
      FORM build_dyn_itab                                           *
FORM build_alv_output.
  BUILDING FIELD CATELOG FOR ALV  **
  gd_repid = sy-repid.
  ALV DISPLAY   **
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
  I_INTERFACE_CHECK              = ' '
  I_BYPASSING_BUFFER             =
  I_BUFFER_ACTIVE                = ' '
     i_callback_program             = gd_repid
  I_CALLBACK_PF_STATUS_SET       = ' '
  I_CALLBACK_USER_COMMAND        = ' '
  I_STRUCTURE_NAME               =
  IS_LAYOUT                      =
     it_fieldcat                    = it_fieldcatalog1[]
  IT_EXCLUDING                   =
  IT_SPECIAL_GROUPS              =
  IT_SORT                        =
  IT_FILTER                      =
  IS_SEL_HIDE                    =
  I_DEFAULT                      = 'X'
    i_save                         = 'A'
  IS_VARIANT                     =
  IT_EVENTS                      = i_events
  IT_EVENT_EXIT                  =
     is_print                       = gd_prntparams
  IS_REPREP_ID                   =
  I_SCREEN_START_COLUMN          = 0
  I_SCREEN_START_LINE            = 0
  I_SCREEN_END_COLUMN            = 0
  I_SCREEN_END_LINE              = 0
IMPORTING
  E_EXIT_CAUSED_BY_CALLER        =
  ES_EXIT_CAUSED_BY_USER         =
    TABLES
      t_outtab                       = <dyn_table>
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.
FORM TO POPULATE THE ROWS CORRESPONDING TO THE COLUMS OF CONDITION
TYPES **
FORM build_condtyp.
  FIELD-SYMBOLS: <fs1>.
  LOOP AT i_kschl WHERE kschl = wa_output_1-kschl.
    ASSIGN COMPONENT i_kschl-kschl OF STRUCTURE <dyn_wa> TO <fs1>.
    <fs1> =  wa_output_1-kwert.
  ENDLOOP.
ENDFORM.
*&      Form  verify_options
FORM verify_options.
  SELECT SINGLE stunr
         FROM t683t INTO wk_zusaam_stunr
               WHERE kalsm = 'ZUSAAM'
                 AND vtext = 'Net Value for Item'.
  IF sy-subrc <> 0.
    MESSAGE e999(fr)." WITH text-074.
    wk_zusaam_exist = 'N'.
  ENDIF.
  SELECT SINGLE stunr
         FROM t683t INTO wk_zcanam_stunr
               WHERE kalsm = 'ZCANAM'
                 AND vtext = 'Net Value for Item'.
  IF sy-subrc <> 0.
    MESSAGE e999(fr)." WITH text-075.
    wk_zcanam_exist = 'N'.
  ENDIF.
*check org in Master
  IF NOT s_vkorg-low IS INITIAL.              "PCR 3135-599
    SELECT SINGLE * FROM tvko
       WHERE vkorg IN s_vkorg.
    IF sy-subrc <> 0.
      MESSAGE e021.
    ENDIF.
  ENDIF.                                      "PCR 3135-599
*check sold-to party in Master
  IF NOT s_kunag-low IS INITIAL.              "PCR 3135-599
    SELECT SINGLE * FROM kna1
       WHERE kunnr IN s_kunag.
    IF sy-subrc <> 0.
      MESSAGE e024.
    ENDIF.
  ENDIF.                                      "PCR 3135-599
*check price list type in Master
  IF NOT s_pltyp-low IS INITIAL.             "PCR 3135-599
    SELECT SINGLE * FROM t189
       WHERE pltyp IN s_pltyp.
    IF sy-subrc <> 0.
      MESSAGE e097.
    ENDIF.
  ENDIF.                                     "PCR 3135-599
*Check Customer Group in Master
  IF NOT s_kdgrp-low IS INITIAL.             "PCR 3135-599
    SELECT SINGLE * FROM t151
       WHERE kdgrp IN s_kdgrp.
    IF sy-subrc <> 0.
      MESSAGE e038.
    ENDIF.
  ENDIF.                                     "PCR 3135-599
*Check Trade Class in Master
  IF NOT s_kvgr5-low IS INITIAL.             "PCR 3135-599
    SELECT SINGLE * FROM tvv5
       WHERE kvgr5 IN s_kvgr5.
    IF sy-subrc <> 0.
      MESSAGE e025.
    ENDIF.
  ENDIF.                                    "PCR 3135-599
*check billing type in Master
  IF NOT s_fkart-low IS INITIAL.            "PCR 3135-599
    SELECT SINGLE * FROM tvfk
       WHERE fkart IN s_fkart.
    IF sy-subrc <> 0.
      MESSAGE e073.
    ENDIF.
  ENDIF.                                   "PCR 3135-599
*check sales document type in Master
  IF NOT s_auart-low IS INITIAL.           "PCR 3135-599
    SELECT SINGLE * FROM tvak
       WHERE auart IN s_auart.
    IF sy-subrc <> 0.
      MESSAGE e082.
    ENDIF.
  ENDIF.                                   "PCR 3135-599
ENDFORM.
AT SELECTION SCREEN FORMS
YVRISA01 - FORMS
      Form  SELECT_SALES_DATA
   Select sales data from vbrk, vbrp, vbak, and vbap
FORM select_sales_data.
  SELECT vbrk~vbeln                "Billing Doc
         vbrk~fkart                "Billing type
         vbrk~waerk                "Currency
         vbrk~knumv                "Number of the document condition
         vbrk~fkdat                "Billing Date
         vbrk~inco1                "Terms of Delivery
         vbrk~zterm                "Payment Terms
         vbrk~bukrs                "Company Code
         vbrk~kunag                "Sold-to party
         vbrk~xblnr                "PO Reference No
         vbrp~posnr                "Billing Doc Item
         vbrp~fkimg                "Quantity
         vbrp~ntgew                "Net Weight
         vbrp~netwr                "Net Value
         vbrp~vgbel                "Delivery No
         vbrp~vgpos                "Delivery Item
         vbrp~aubel                "Sales Doc
         vbrp~aupos                "Sales Doc Item
         vbrp~matnr                "Material
         vbrp~prodh                "Product Hierarchy
         vbrp~wavwr                "Cost
         vbrp~kzwi2                                         "Subtotal 2
         vbrp~kvgr5                "Trade Class
         vbak~erdat                "Sales Doc Creation Date
        vbak~knumv                "Condition no for SD     "PCR3135-718
         vbap~posnr                "Sales Doc Item
         INTO TABLE int_vbrk
         FROM vbrk
         INNER JOIN vbrp ON vbrkvbeln = vbrpvbeln
         INNER JOIN vbap ON vbrpaubel = vbapvbeln
                       AND  vbrpaupos = vbapposnr
         INNER JOIN vbak ON vbapvbeln = vbakvbeln
         WHERE vbrk~vkorg IN s_vkorg
           AND vbrk~vbeln IN s_vbeln
           AND vbrk~kunag IN s_kunag
           AND vbrk~pltyp IN s_pltyp
           AND vbrk~kdgrp IN s_kdgrp
           AND vbrk~fkart IN s_fkart
           AND vbrk~fkdat IN s_fkdat
           AND vbrp~kvgr5 IN s_kvgr5
           AND vbrp~mvgr2 IN s_mvgr2
           AND vbrp~mvgr1 IN s_mvgr1 " added for ZV_INVPR_R
           AND vbrp~mvgr3 IN s_mvgr3 " added for ZV_INVPR_R
           AND vbrp~mvgr4 IN s_mvgr4 " added for ZV_INVPR_R
           AND vbrp~mvgr5 IN s_mvgr5
           AND vbak~auart IN s_auart
          AND ( vbrkkalsm = 'ZUSAAM' OR vbrkkalsm = 'ZCANAM' )"
*added
" for ZV_INVPR_R
commented on 16-Jul-07
           AND vbrk~erdat IN s_erdat " added for ZV_INVPR_R
           AND vbrk~waerk IN s_waerk " added for ZV_INVPR_R
           AND vbrp~matnr IN s_matnr " added for ZV_INVPR_R
           AND vbrk~kunrg IN s_kunrg " added for ZV_INVPR_R
           AND vbrk~bzirk IN s_bzirk " added for ZV_INVPR_R
           AND vbak~ernam IN s_ernam." added for ZV_INVPR_R
  IF int_vbrk[] IS INITIAL.
    MESSAGE i999(fr) WITH text-010.
    STOP.
  ELSE.
    SORT int_vbrk BY vbeln posnr.
  ENDIF.
ENDFORM.                    " SELECT_SALES_DATA
      Form  SELECT_LIKP_DATA
  Select likp data
FORM select_likp_data.
  int_delv[] = int_vbrk[].
  SORT int_delv[] BY vgbel.
  DELETE ADJACENT DUPLICATES FROM int_delv COMPARING vgbel.
  IF NOT int_delv[] IS INITIAL.
    SELECT likp~vbeln                "Delivery number
           bolnr                     "Bill of Lading
           wadat_ist                 "Ship Date
           posnr
           INTO TABLE int_likp
           FROM likp
           INNER JOIN lips ON likpvbeln = lipsvbeln
           FOR ALL entries IN int_delv
           WHERE likp~vbeln = int_delv-vgbel.
  ENDIF.
  IF NOT int_likp[] IS INITIAL.                             "3141-218
    SORT int_likp BY vbeln posnr.
  ENDIF.                                                    "3141-218
  FREE int_delv.                                            "3141-218
ENDFORM.                    " SELECT_LIKP_DATA
      Form  SELECT_BKPF_DATA
      Select accounting data
FORM select_bkpf_data.
Create fiscal year range
*if s_fkdat-high is initial.
move s_fkdat-low+0(4) to ra_gjahr-low.
if s_fkdat-low+2(2) = '12'.
   wf_year = ra_gjahr-low + 1.
   move wf_year to ra_gjahr-high.
   move 'BT' to ra_gjahr-option.
   move 'I' to ra_gjahr-sign.
   append ra_gjahr.
else.
   move 'EQ' to ra_gjahr-option.
   move 'I' to ra_gjahr-sign.
   append ra_gjahr.
endif.
*else.