Logic needed

Question

I have a report in which most of condition types hard coded in the program and every time required modification on creation of new condition type.
I wish to make this report flexi to show the values of all condition type of selected records.
Wht steps should be taken to determine runtime recorde to be written as output.
Please Guide

Answer 1

hi
one way is
using FM 
CALL FUNCTION READ_TEXT
   Exporting
      cleint  = sy_mandt
      id       = threadid
      lang =
      name
      object
tables
  lines = it_lines.
for ex  tid is ZSIG tdname is 9900 and tdobject is ZMM.
from the is u get the all the condtions and their values.
other way is
all the condtions are stored KONV table,
u get the values u should add the condtions in report.
without add condition types how to get values for that condition type.
sample code
start-of-selection.
  select vbrk~fkart
         vbrp~matnr
         vbrp~aubel
         vbrk~vbeln
         vbrk~vbtyp
         vbrk~fkdat
         vbrp~posnr
         vbrp~vgbel
         vbrp~vgpos
         vbrp~fkimg
         vbrp~netwr
         vbrp~lgort
         vbrp~cuobj
         vbrk~knumv
         vbrk~erdat
         into table int_vbrk
         from ( ( vbrk inner join vbrp
                 on vbrk~vbeln = vbrp~vbeln )
                 inner join mara
                  on vbrp~matnr = mara~matnr )
        where vbrk~fkdat in s_fkdat
        and mara~mtart = 'FERT'.
  if not int_vbrk[] is initial.
    select ser01~lief_nr
    ser01~posnr
    objk~equnr
    objk~sernr
    into table int_sernr
    from ser01 inner join objk on ser01~obknr = objk~obknr
    for all entries in int_vbrk where
                            ser01~lief_nr = int_vbrk-vgbel and
                            ser01~posnr = int_vbrk-vgpos .
  endif.
  if not int_sernr[] is initial.
    select ser05~ppaufnr
           ser05~ppposnr
           objk~sernr
           into table int_aufnr
           from ser05 inner join objk on ser05~obknr = objk~obknr
           for all entries in int_sernr where
                            objk~sernr = int_sernr-sernr.
  endif.
  loop at int_aufnr.
    select single *
                  from aufk where aufnr = int_aufnr-ppaufnr.
    "and auart in ordty.
    if sy-subrc <> 0.
      delete int_aufnr where ppaufnr = int_aufnr-ppaufnr.
    else.
      int_aufnr-auart = aufk-auart.
      modify int_aufnr transporting auart.
    endif.
  endloop.
  loop at int_aufnr.
    concatenate 'OR' int_aufnr-ppaufnr into int_aufnr-order.
    modify int_aufnr.
  endloop.
  describe table int_aufnr lines sy-tabix .
  if sy-tabix > 0.
    select objnr from
                 auak into corresponding fields of table itab3
                 for all entries in int_aufnr
                 where objnr = int_aufnr-order
                 and stflg = space
                and stokz = space.
  endif.
  if not int_vbrk[] is initial.
    select knumv zaehk kbetr kschl kwert
          from konv
             into corresponding fields of table it_konv
                for all entries in int_vbrk
                   where knumv = int_vbrk-knumv
                    and kschl in ('VA00',
                                  'ZMD1',
                                  'ZV00',
                                  'ZED',
                                  'ZSED',
                                  'ZCES',
                                  'KF00',
                                  'ZD00',
                                  'ZDIF',
                                  'Z007',
                                  'Z004',
                                  'ZTD3',
                                  'ZTD2',
                                  'ZREB',
                                  'ZCM5',
                                  'ZV01',
                                  'ZTD1',
                                  'ZP07',
                                  'ZDDF',
                                  'Z009',
                                  'ZV02',
                                  'ZVAS',
                                  'ZMDS',
                                  'ZSTD',
                                  'ZNCD',
                                  'ZV03',
                                  'ZV04',
                                  'ZV05',
                                  'ZTD1',
                                  'ZTD4',
                                  'ZTD5',
                                  'ZTD6',
                                  'ZTD7',
                                  'ZTD8',
*********************Start on EDS and SZ398R - 04/03/2008,05/03/2008
                                'ZTD9','ZTDI','ZTDN','ZTDR','ZTSP',
                                  'ZSP','ZSPE','ZSCR','ZPCE','ZPAE',
                                   'ZEDC','ZEDU','ZF00','ZED2','ZP06',
                                  'SKTO','ZNDP','SKTV','Z001','ZADB',
                                  'PR00','UTXJ','JMOD','JEX2','JAED',
                                  'JEXA','JSED','JEXS','JNED','JEXN',
                                  'JCES','JCED','JECS','JECX','JA1X',
                                  'JA1Y','JIN6','JIN7','ZDIF').
*********************End of EDS and SZ398R - 04/03/2008,05/03/2008
  endif.
                       END OF SELECTION
end-of-selection.
*******Start on EDS and SZ398R - 05/03/2008
v_date =  '20080101' .
*******End of EDS  and SZ398R - 05/03/2008
set pf-status 'ABCD'.
  loop at int_vbrk.
    flag = 0.
    clear int_sernr.
    read table int_sernr with key
             lief_nr = int_vbrk-vgbel
             posnr = int_vbrk-vgpos .
    clear int_aufnr.
    read table int_aufnr with key
              sernr = int_sernr-sernr.
    clear itab3.
    clear settle.
    read table itab3 with key objnr = int_aufnr-order.
    if sy-subrc <> 0.
      loop at int_aufnr where sernr = int_sernr-sernr.
        clear itab3.
        read table itab3 with key objnr = int_aufnr-order.
        if sy-subrc eq 0.
          settle = 'X'.
          exit.
        endif.
      endloop.
      if sy-subrc ne 0.
        delete int_vbrk where vgbel = int_vbrk-vgbel
                    and vgpos = int_vbrk-vgpos.
        clear int_vbrk.
        flag = 1.
      endif.
    else.
      settle = 'X'.
    endif.
    if flag = 0.
      clear itab.
      move-corresponding int_vbrk to itab.
      select single * from vbrk where vbeln = itab-vbeln.
      select single * from kna1 where kunnr = vbrk-kunag.
      itab-delc = kna1-kunnr.
      itab-deln = kna1-name1.
      if int_vbrk-vbtyp = 'M' or int_vbrk-vbtyp = 'S'.
        itab-sold = 1.
      elseif int_vbrk-vbtyp = 'N' or int_vbrk-vbtyp = 'O'.
        itab-sold = -1.
      endif.
      select single *
             from  ausp
             where  mafid  = 'O    '
             and    klart  = '002  ' "  '002' For Equipment
             and    objek   = int_sernr-equnr.
      if ausp-atinn eq  4.
        itab-atwrt = ausp-atwrt.
      endif.
      itab-sernr   = int_sernr-sernr.
      itab-ppaufnr = int_aufnr-ppaufnr.
      itab-ppposnr = int_aufnr-ppposnr.
      itab-auart = int_aufnr-auart.
      loop at it_konv where knumv = int_vbrk-knumv.
        case it_konv-kschl.
          when 'VA00'.
            itab-va00 = itab-va00 + it_konv-kwert.
          when 'ZVAS'.
            itab-va00 = itab-va00 + it_konv-kwert.
          when 'ZMD1'.
            itab-zmd1 = itab-zmd1 + it_konv-kwert.
          when 'ZMDS'.
            itab-zmd1 = itab-zmd1 + it_konv-kwert.
          when 'ZV00'.
            itab-zv00 = itab-zv00 + it_konv-kwert.
******************************Start on +EDS and SZ398R - 04/03/2008
*Basic Excise Duty Add conditions ZED1 ZEDB ZEXD JMOD JEX2'
          when 'ZED' or 'ZED1' or'ZEDB' or 'ZEXD' or 'JMOD' or 'JEX2'.
            itab-zed = itab-zed + it_konv-kwert.
*Special Excise Duty Add conditions JSED JEXS ZEDS
         when 'ZSED' or 'JSED' or 'JEXS' or 'ZEDS'.
            itab-zsed = itab-zsed + it_konv-kwert.
*Cess on Excise Duty Add conditions JCES JCED ZPCE.
         when 'ZCES' or 'JCES' or 'JCED' OR 'ZPCE'.
            itab-zces = itab-zces + it_konv-kwert.
********************************End of +EDS and SZ398R - 04/03/2008
           when 'KF00'.
            itab-kf00 = itab-kf00 + it_konv-kwert.
          when 'ZD00'.
            itab-kf00 = itab-kf00 + it_konv-kwert.
          when 'ZDIF'.
            itab-zdif = itab-zdif + it_konv-kwert.
          when 'Z007'.
            itab-z007 = itab-z007 + it_konv-kwert.
          when 'Z004'.
            itab-z007 = itab-z007 + it_konv-kwert.
          when 'ZREB'.
            itab-zreb = itab-zreb + it_konv-kwert.
          when 'ZCM5'.
            itab-zcm5 = itab-zcm5 + it_konv-kwert.
          when 'ZV01'.
            itab-zv01 = itab-zv01 + it_konv-kwert.
          when 'ZTDI'.
            itab-ztdi = itab-ztdi + it_konv-kwert.
          when 'ZTD2'.
            itab-ztd2 = itab-ztd2 + it_konv-kwert.
          when 'ZTD3'.
            itab-ztd3 = itab-ztd3 + it_konv-kwert.
          when 'ZP07'.
            itab-zp07 = itab-zp07 + it_konv-kwert.
          when 'ZDDF'.
            itab-zddf = itab-zddf + it_konv-kwert.
          when 'Z009'.
            itab-z009 = itab-z009 + it_konv-kwert.
          when 'ZV02'.
            itab-zv02 = itab-zv02 + it_konv-kwert.
*******************************Start on EDS and SZ398R - 04/03/2008
*Additional  Excise Duty  Add conditions JAED JEXA  ZED2'
          when 'ZNCD' or 'JAED' or 'JEXA' or 'ZED2'.
            itab-zncd = itab-zncd + it_konv-kwert.
*New condtions added start
*National Calamity and Contingency Duty.
          when 'ZNCT' or 'JNED' or 'JEXN'.
            itab-znccd = itab-znccd + it_konv-kwert.
*Education Cess
          when 'JECS' or 'JECX' or 'ZPAE' or 'ZEDC' or 'ZEDU'.
            itab-zedu = itab-zedu + it_konv-kwert.
*Higher and Sec. Education Cess
          when 'JA1X' or 'JA1Y'.
            itab-zhsedu = itab-zhsedu + it_konv-kwert.
*New condtions added end
********************************End of EDS and SZ398R - 04/03/2008
          when 'ZV03'.
            itab-zv03 = itab-zv03 + it_konv-kwert.
          when 'ZV04'.
            itab-zv04 = itab-zv04 + it_konv-kwert.
          when 'ZV05'.
            itab-zv05 = itab-zv05 + it_konv-kwert.
          when 'ZTD1'.
            itab-ztd1 = itab-ztd1 + it_konv-kwert.
          when 'ZTD4'.
            itab-ztd4 = itab-ztd4 + it_konv-kwert.
          when 'ZTD5'.
            itab-ztd5 = itab-ztd5 + it_konv-kwert.
          when 'ZTD6'.
            itab-ztd6 = itab-ztd6 + it_konv-kwert.
          when 'ZTD7'.
            itab-ztd7 = itab-ztd7 + it_konv-kwert.
          when 'ZTD8'.
            itab-ztd8 = itab-ztd8 + it_konv-kwert.
          when 'ZSTD'.
            itab-zstd = itab-zstd + it_konv-kwert.
********************Start on EDS and SZ398R - 05/03/2008
*New condtions added start
          when 'ZTD9'.
            itab-ztd9 = itab-ztd9 + it_konv-kwert.
*Trade Discount New.
          when 'ZTDN'.
            itab-ztdn = itab-ztdn + it_konv-kwert.
Cash  Discount
          when 'SKTO' OR 'SKTV'.
            itab-zcd = itab-zcd + it_konv-kwert.
CST Discount
          when 'ZDIP'.
            itab-zcstd = itab-zcstd + it_konv-kwert.
Adok Discount
          when 'ZDIK'.
            itab-zad = itab-zad + it_konv-kwert.
Adhoc Discount.
          when 'ZDOK'.
            itab-zad1 = itab-zad1 + it_konv-kwert.
Test Drive Discount
          when 'ZTDR'.
            itab-ztdd = itab-ztdd + it_konv-kwert.
Special Trade Discount.
            when 'ZTSP'.
            itab-zstd1 = itab-ztd1 + it_konv-kwert.
*New condtions added end
***********************End of EDS and SZ398R - 05/03/2008
        endcase.
      endloop.