% Excise Duty is coming wrong in Report

Question

Hi,
I have a report of Gross Margin (FI)....
My problem is that when i m picking the % Excise Duty from J_1IEXCTAX table against the Chapter ID....it is showing the 4 values against it...means 4 time % Excise Duty....i.e. periodic changed...
like....
8538 90 00................1................08.12.2008................31.12.9999................10.0000
8538 90 00................1................01.03.2008................07.12.2008................14.0000
8538 90 00................1................28.02.2005................29.02.2008................16.0000
8538 90 00................1................01.01.2001................28.02.2005................16.0000
when i m executing my report with period from 01/11/2008 to 15/11/2008..it is showing the 16%...but as per my given period, it must display 14%...
Please tell me that what should the condition there....
I m sending my code...
REPORT  z_fi_gross_margin NO STANDARD PAGE HEADING LINE-SIZE 125  .
TABLES : t179t, tvkbt, mara, vbrp, s501, mbew.
TYPE-POOLS : slis.
DATA : BEGIN OF itab OCCURS 0,
       vkbur   LIKE s501-vkbur,
       matnr   LIKE s501-matnr,
       prodh   LIKE s501-prodh,
       ummenge LIKE s501-ummenge,
       gumenge LIKE s501-gumenge,
       umnetwr LIKE s501-umnetwr,
       gunetwr LIKE s501-gunetwr,
       sptag   LIKE s501-sptag,
       peinh   LIKE mbew-peinh,
       stprs   LIKE mbew-stprs,
       lplpx   LIKE mbew-lplpx,
       vtext LIKE t179t-vtext,
       mtart LIKE mara-mtart,
       bezei LIKE tvkbt-bezei,
       net_sqty TYPE p DECIMALS 2,
       s_amt TYPE p DECIMALS 2,
       j_1ichid LIKE j_1imtchid-j_1ichid,
       rate LIKE j_1iexctax-rate,
       excise TYPE p DECIMALS 2,
       l_excise TYPE p DECIMALS 2,
       s_unit TYPE p DECIMALS 2,
       m_unit TYPE p DECIMALS 2,
       t_mcost TYPE p DECIMALS 2,
       m_cost% TYPE p DECIMALS 2,
       g_margin TYPE p DECIMALS 2,
       g_marg% TYPE p DECIMALS 2,
       END OF itab.
DATA : v_index TYPE sy-tabix.
DATA : cnt TYPE i.
DATA : w_container TYPE scrfname VALUE 'CL_GRID',
       w_cprog TYPE lvc_s_layo,
       g_repid LIKE sy-repid,
       w_save TYPE c,
       w_exit TYPE c,
       cl_grid TYPE REF TO cl_gui_alv_grid,
       cl_custom_container TYPE REF TO cl_gui_custom_container,
       it_fld_catalog TYPE slis_t_fieldcat_alv,
       wa_fld_catalog TYPE slis_t_fieldcat_alv WITH HEADER LINE ,
       layout TYPE slis_layout_alv,
       col_pos  LIKE sy-cucol ,
       alvfc TYPE slis_t_fieldcat_alv.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS   : vkbur FOR s501-vkbur.
SELECT-OPTIONS   : matnr FOR s501-matnr.
SELECT-OPTIONS   : sptag FOR s501-sptag.
SELECTION-SCREEN : END OF BLOCK b1.
PERFORM fill_catalog1 USING:
**'SPTAG'    'ITAB'    'DATE',
**'VKBUR'    'ITAB'    'Sales Office',
'BEZEI'    'ITAB'    'S.Off. Desc.',
'MATNR'    'ITAB'    'Material',
'PRODH'    'ITAB'    'LEVEL',
'VTEXT'    'ITAB'    'Level I',
'MTART'    'ITAB'    'Material Type',
'NET_SQTY' 'ITAB'    'Net Sales Qty.',
'S_AMT'    'ITAB'    'Sales with Ex. Duty',
'EXCISE'   'ITAB'    'Excise Duty',
'RATE'     'ITAB'    '% Excise Duty',
'L_EXCISE' 'ITAB'    'Sales less Ex. Duty',
'S_UNIT'   'ITAB'    'Sales / Unit',
'M_UNIT'   'ITAB'    'Mat / Unit',
'T_MCOST'   'ITAB'    'Total Material Cost',
'M_COST%'  'ITAB'    '% Material Cost',
'G_MARGIN' 'ITAB'    'Gross Margin',
'G_MARG%'  'ITAB'    '% Gross Margin'.
SELECT DISTINCT a~sptag a~vkbur a~matnr a~prodh a~ummenge a~gumenge a~umnetwr a~gunetwr b~vtext c~mtart d~bezei
         INTO CORRESPONDING FIELDS OF TABLE itab
         FROM s501 AS a
         INNER JOIN t179t AS b ON a~prodh = b~prodh
         INNER JOIN mara AS c ON a~matnr = c~matnr
         INNER JOIN tvkbt AS d ON a~vkbur = d~vkbur
         WHERE a~matnr IN matnr
         AND   a~sptag IN sptag
         AND   a~vkbur IN vkbur.
IF sy-subrc <> 0.
  MESSAGE 'DATA NOT FOUND.' TYPE 'I'(001).
ENDIF.
SORT itab BY matnr.
LOOP AT itab .
  cnt = v_index.
  SELECT peinh stprs lplpx FROM mbew INTO (itab-peinh, itab-stprs, itab-lplpx) WHERE matnr = itab-matnr.
    itab-m_unit = itab-stprs - itab-lplpx / itab-peinh.
    v_index = cnt + sy-dbcnt.
    MODIFY itab INDEX v_index TRANSPORTING m_unit.
  ENDSELECT.
  SELECT j_1ichid FROM j_1imtchid INTO itab-j_1ichid WHERE matnr = itab-matnr.
    MODIFY itab INDEX sy-tabix TRANSPORTING j_1ichid .
  ENDSELECT.
  SELECT rate FROM j_1iexctax INTO itab-rate WHERE j_1ichid = itab-j_1ichid AND j_1iexcind = '1'.
    MODIFY itab INDEX sy-tabix TRANSPORTING rate .
  ENDSELECT.
ENDLOOP.
LOOP AT itab .
  itab-net_sqty = itab-ummenge - itab-gumenge .
  MODIFY itab INDEX sy-tabix TRANSPORTING net_sqty.
  itab-s_amt = itab-umnetwr - itab-gunetwr .
  MODIFY itab INDEX sy-tabix TRANSPORTING s_amt.
  itab-excise = itab-s_amt * itab-rate / 100.
  MODIFY itab INDEX sy-tabix TRANSPORTING excise.
  itab-l_excise = itab-s_amt - itab-excise.
  MODIFY itab INDEX sy-tabix TRANSPORTING l_excise.
  itab-s_unit = itab-l_excise / itab-net_sqty.
  MODIFY itab INDEX sy-tabix TRANSPORTING s_unit.
  itab-t_mcost = itab-m_unit * itab-net_sqty.
  MODIFY itab INDEX sy-tabix TRANSPORTING t_mcost.
  itab-m_cost% = itab-t_mcost / itab-s_amt * 100.
  MODIFY itab INDEX sy-tabix TRANSPORTING m_cost%.
  itab-g_margin = itab-l_excise - itab-t_mcost.
  MODIFY itab INDEX sy-tabix TRANSPORTING g_margin.
  itab-g_marg% = itab-g_margin / itab-s_amt * 100.
  MODIFY itab INDEX sy-tabix TRANSPORTING g_marg%.
ENDLOOP.
layout-zebra = 'X' .
layout-colwidth_optimize(1) = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    i_callback_program = 'Z_FI_GROSS_MARGIN'
    is_layout          = layout
    it_fieldcat        = it_fld_catalog
    i_default          = 'X'
    i_save             = 'A'
  TABLES
    t_outtab           = itab
  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.
*&      Form  FILL_CATALOG1
      text
     -->P_FIELDNAME  text
     -->P_REF_TABLE  text
     -->P_SCRTEXT    text
FORM fill_catalog1  USING   p_fieldname TYPE any
                            p_ref_table TYPE any
                            p_scrtext   TYPE any.
  CLEAR : wa_fld_catalog.
  wa_fld_catalog-fieldname  = p_fieldname.
  wa_fld_catalog-tabname    = p_ref_table.
  wa_fld_catalog-seltext_s  = p_scrtext.
  wa_fld_catalog-seltext_m  = p_scrtext.
  wa_fld_catalog-seltext_l  = p_scrtext.
  wa_fld_catalog-outputlen = 15.
  APPEND wa_fld_catalog TO it_fld_catalog.
ENDFORM.                    " fill_catalog1
Please check .....
Thanks...

Answer 1

I think ur code will do the same in my report do...
Please check my code again and modify where as u needed.....
REPORT  z_fi_gross_margin NO STANDARD PAGE HEADING LINE-SIZE 125  .
TABLES : t179t, t179, tvkbt, mara, vbrp, s501, mbew, t134t, v_t179, t023t, t247.
TYPE-POOLS : slis.
DATA : BEGIN OF itab OCCURS 0,
       vkbur   LIKE s501-vkbur,
       matnr   LIKE s501-matnr,
       prodh   LIKE s501-prodh,
       ummenge LIKE s501-ummenge,
       gumenge LIKE s501-gumenge,
       umnetwr LIKE s501-umnetwr,
       gunetwr LIKE s501-gunetwr,
       sptag   LIKE s501-sptag,
       peinh   LIKE mbew-peinh,
       stprs   LIKE mbew-stprs,
       lplpx   LIKE mbew-lplpx,
       prdha LIKE mara-prdha,       " Product hierarchy
       prdha2 LIKE mara-prdha,       " Product hierarchy
       prdha3 LIKE mara-prdha,       " Product hierarchy
       prodh_text LIKE t179t-vtext, "Product Hierarchy Text
       prodh2_text LIKE t179t-vtext, "Product Hierarchy Text
       prodh3_text LIKE t179t-vtext, "Product Hierarchy Text
       matkl LIKE mara-matkl,
       wgbez LIKE t023t-wgbez,
       fcktx LIKE t247-ktx,
       mtart LIKE mara-mtart,
       bezei LIKE tvkbt-bezei,
       net_sqty TYPE p DECIMALS 2,
       s_amt TYPE p DECIMALS 2,
       mtbez LIKE t134t-mtbez,
       j_1ichid LIKE j_1imtchid-j_1ichid,
       rate LIKE j_1iexctax-rate,
       excise TYPE p DECIMALS 2,
       l_excise TYPE p DECIMALS 2,
       s_unit TYPE p DECIMALS 2,
       m_unit TYPE p DECIMALS 2,
       t_mcost TYPE p DECIMALS 2,
       m_cost% TYPE p DECIMALS 2,
       g_margin TYPE p DECIMALS 2,
       g_marg% TYPE p DECIMALS 2,
       new TYPE i,
       new1(6) TYPE c,
       s_period TYPE i,
       END OF itab.
DATA : BEGIN OF itab3 OCCURS 0.
        INCLUDE STRUCTURE itab.
DATA : END OF itab3.
DATA : v_index TYPE sy-tabix.
DATA : cnt TYPE i.
DATA : w_container TYPE scrfname VALUE 'CL_GRID',
       w_cprog TYPE lvc_s_layo,
       g_repid LIKE sy-repid,
       w_save TYPE c,
       w_exit TYPE c,
       cl_grid TYPE REF TO cl_gui_alv_grid,
       cl_custom_container TYPE REF TO cl_gui_custom_container,
       it_fld_catalog TYPE slis_t_fieldcat_alv,
       wa_fld_catalog TYPE slis_t_fieldcat_alv WITH HEADER LINE ,
       layout TYPE slis_layout_alv,
       col_pos  LIKE sy-cucol ,
       alvfc TYPE slis_t_fieldcat_alv.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS   : vkbur FOR s501-vkbur.
SELECT-OPTIONS   : matnr FOR s501-matnr.
SELECT-OPTIONS   : sptag FOR s501-sptag.
SELECTION-SCREEN : END OF BLOCK b1.
PERFORM fill_catalog1 USING:
'SPTAG'    'ITAB'    'DATE',
'VKBUR'    'ITAB'    'Sales Office',
'BEZEI'    'ITAB'    'S.Off. Desc.',
'MATNR'    'ITAB'    'Material',
*'PRODH'    'ITAB'    'LEVEL',
'PRODH_TEXT'    'ITAB'    'Level I',
'PRODH2_TEXT'   'ITAB'    'Level II',
'PRODH3_TEXT'   'ITAB'    'Level III',
'WGBEZ'    'ITAB'    'Level IV',
'MTBEZ'    'ITAB'    'Material Type',
'NET_SQTY' 'ITAB'    'Net Sales Qty.',
'S_AMT'    'ITAB'    'Sales with Ex. Duty',
'EXCISE'   'ITAB'    'Excise Duty',
'RATE'     'ITAB'    '% Excise Duty',
'L_EXCISE' 'ITAB'    'Sales less Ex. Duty',
'S_UNIT'   'ITAB'    'Sales / Unit',
'M_UNIT'   'ITAB'    'Mat / Unit',
'T_MCOST'   'ITAB'    'Total Material Cost',
'M_COST%'  'ITAB'    '% Material Cost',
'G_MARGIN' 'ITAB'    'Gross Margin',
'G_MARG%'  'ITAB'    '% Gross Margin',
'NEW1'      'ITAB'    'Month'.
SELECT DISTINCT asptag avkbur amatnr aprodh aummenge agumenge aumnetwr agunetwr cmtart cmatkl dbezei emtbez
         INTO CORRESPONDING FIELDS OF TABLE itab
         FROM s501 AS a
         INNER JOIN mara AS c ON amatnr = cmatnr
         INNER JOIN tvkbt AS d ON avkbur = dvkbur
         INNER JOIN t134t AS e ON cmtart = emtart
         WHERE a~matnr IN matnr
         AND   a~sptag IN sptag
         AND   a~vkbur IN vkbur
         AND   e~spras EQ 'EN'.
IF sy-subrc <> 0.
  MESSAGE 'DATA NOT FOUND.' TYPE 'I'(001).
ENDIF.
SORT itab BY matnr.
LOOP AT itab .
  cnt = v_index.
  SELECT SINGLE peinh stprs lplpx FROM mbew INTO (itab-peinh, itab-stprs, itab-lplpx) WHERE matnr = itab-matnr.
  itab-m_unit = itab-stprs - itab-lplpx / itab-peinh.
  v_index = cnt + sy-dbcnt.
  MODIFY itab INDEX v_index TRANSPORTING m_unit.
  SELECT SINGLE j_1ichid FROM j_1imtchid INTO itab-j_1ichid WHERE matnr = itab-matnr.
  MODIFY itab INDEX sy-tabix TRANSPORTING j_1ichid .
  SELECT SINGLE rate FROM j_1iexctax INTO itab-rate WHERE j_1ichid = itab-j_1ichid AND j_1iexcind = '1' AND validfrom GE sptag-low AND validto LE sptag-high.
  MODIFY itab INDEX sy-tabix TRANSPORTING rate .
  SELECT SINGLE prdha FROM mara INTO (itab-prdha) WHERE matnr = itab-matnr .
  MODIFY itab INDEX sy-tabix TRANSPORTING prdha .
  SELECT SINGLE wgbez FROM t023t INTO itab-wgbez WHERE matkl = itab-matkl .
  MODIFY itab INDEX sy-tabix TRANSPORTING wgbez .
ENDLOOP.
LOOP AT itab .
  itab-net_sqty = itab-ummenge - itab-gumenge .
  MODIFY itab INDEX sy-tabix TRANSPORTING net_sqty.
  itab-s_amt = itab-umnetwr - itab-gunetwr .
  MODIFY itab INDEX sy-tabix TRANSPORTING s_amt.
  itab-excise = itab-s_amt * itab-rate / 100.
  MODIFY itab INDEX sy-tabix TRANSPORTING excise.
  itab-l_excise = itab-s_amt - itab-excise.
  MODIFY itab INDEX sy-tabix TRANSPORTING l_excise.
  IF itab-net_sqty NE '0'.
    itab-s_unit = itab-l_excise / itab-net_sqty.
    MODIFY itab INDEX sy-tabix TRANSPORTING s_unit.
  ENDIF.
  itab-t_mcost = itab-m_unit * itab-net_sqty.
  MODIFY itab INDEX sy-tabix TRANSPORTING t_mcost.
  itab-m_cost% = itab-t_mcost / itab-s_amt * 100.
  MODIFY itab INDEX sy-tabix TRANSPORTING m_cost%.
  itab-g_margin = itab-l_excise - itab-t_mcost.
  MODIFY itab INDEX sy-tabix TRANSPORTING g_margin.
  itab-new = itab-sptag+4(2).
  SELECT SINGLE ktx FROM t247 INTO itab-new1 WHERE mnr = itab-new AND spras EQ 'EN' .
  CONCATENATE itab-new1 itab-sptag+2(2) INTO itab-new1 SEPARATED BY '-'.
  itab-g_marg% = itab-g_margin / itab-s_amt * 100.
  MODIFY itab INDEX sy-tabix TRANSPORTING g_marg% new1.
ENDLOOP.
LOOP AT itab.
  SELECT SINGLE vtext INTO itab-prodh3_text FROM t179t WHERE prodh = itab-prdha.
  itab-prdha2 = itab-prdha+0(5).
  SELECT SINGLE vtext INTO itab-prodh_text FROM t179t WHERE prodh = itab-prdha2.
  itab-prdha3 = itab-prdha+0(10).
  SELECT SINGLE vtext INTO itab-prodh2_text FROM t179t WHERE prodh = itab-prdha3.
  MODIFY itab INDEX sy-tabix TRANSPORTING prodh3_text prodh_text prodh2_text prdha3.
ENDLOOP.
layout-zebra = 'X' .
layout-colwidth_optimize(1) = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    i_callback_program = 'Z_FI_GROSS_MARGIN'
    is_layout          = layout
    it_fieldcat        = it_fld_catalog
    i_default          = 'X'
    i_save             = 'A'
  TABLES
    t_outtab           = itab
  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.
*&      Form  FILL_CATALOG1
      text
     -->P_FIELDNAME  text
     -->P_REF_TABLE  text
     -->P_SCRTEXT    text
FORM fill_catalog1  USING   p_fieldname TYPE any
                            p_ref_table TYPE any
                            p_scrtext   TYPE any.
  CLEAR : wa_fld_catalog.
  wa_fld_catalog-fieldname  = p_fieldname.
  wa_fld_catalog-tabname    = p_ref_table.
  wa_fld_catalog-seltext_s  = p_scrtext.
  wa_fld_catalog-seltext_m  = p_scrtext.
  wa_fld_catalog-seltext_l  = p_scrtext.
  wa_fld_catalog-outputlen = 15.
  APPEND wa_fld_catalog TO it_fld_catalog.
ENDFORM.                    " fill_catalog1
please tell....