Excise Duty Rate change
While doing J1iex how do I change the Excise duty rate; I donot want to change the PO everytime.
I maintain the Exceptional Duty rate in J1id. Still that does not get effected in J1iex. It only takes the value from PO.
Yes; I maintain the Excise Tax Rate and also Exceptional Material Excise Rate. In J1iex it only shows in the specific rate under Duty rate whatever we maintain in the excise rate; I donot want to change in Excise Rate as it is maintained on Control code wise. If I maintain the Exceptional Material Excise Rate then the changes should get effected in J1iex. How to do that?
Regards,
Sudha
Similar Messages
-
Excise Duty rate change in J1iex
Hi,
I am maintaining exceptional duty rate in J1id. While posting the j1iex, the rate is only taking from the Purchase Order and not from J1id. How to solve this.? . Every time we are changing the PO FV 11 conditions and posting J1iex.Please help
Regards,
SudhaHI,
Hope you are using TAXINN. You can mainatain the new tax code & create the PO with ref to new tax code. -
Excise Duty rate updation in order
Dear all,
I have recently changed the Excise Duty rate in J1ID.
Now I want to update the ED rate in the orders that were created before the ED change was done.
I tried the following ways but none of them was successful:
1- Update the prices on the condition tab
2- Changed the Billing date manually
3- Changed the Pricing date manually
The thing that worked was changing the Req. deliv. date to a date after the ED change was done. This automatically redetermines the billing date and the orders are updated.
But I am not clear on what the ED (JMOD..) rate in an order is dependant upon? Is there any other method of updating ED rate in an order?
Regards
Sapshed
Edited by: Sapshed on Dec 9, 2008 10:47 AMThe suggestion whatever I gave you was only after testing at my end. For me, the billing has taken the new excise duty value correctly. Of course, I have not predated the Actual GI Date. Since right now, I dont have access to SAP, please test a case without changing the Actual GI Date.
Alternatively, you can process via VF04, where there is a tab "Default Data". Select this tab and maintain the current date in the field "Date of services rendered" and execute. Post the outcome whether this suggestion has helped you.
thanks
G. Lakshmipathi -
Hi,
We give users the responsibility of maintaining the TDP excise duty rates. hence, they are authorized to use transaction O4K5.
There's another table to maintain region based ED rates which we want users to maintain and this can be found in : IS Oil -> TDP -> Excise duty rates -> Define region based external rates. Can you please advise the transaction code for this menu?
Thanks!Hi Zenon,
There is no direct transaction for this. But we can use Transaction :SM30 , give the view name "V_OIH01A" and click on Maintain. I hope this helped you.
Regards,
Ashok -
Excise duty rates are not displayed in J1IEX
Dear friends,
Excise duty rates (BED, ECS, SECESS) are not displayed in item level in excise invoice J1IEX, But excise values are updated correctly. I have maintained duty rates in J1ID. Kindly give your valuable inputs.
Thanks and Regards
ETR.Hi Maladri,
Thanks for your reply.
I have maintained my condition types BED, ECS, SEcess in respective fieslds of BED Condition, ECS condition, SEcess condition already, eventhough the % not updated in J1IEX Excise invoices.
But it has updated 10 days before all values came properly in J1IEX.
Can you explain which condition type we have to maintain in BED %, ECS%, SEcess % in Maintain excise defaults, I didnt maintain any condition types there. If it is the reason then how it updated correctly 10 days before?
Kindly guide me
Thanks and Regards
ETR -
Hi all
here is problem in excise duty rate miantanance in JIID. our are purchasing material from the same vendor with different excise duty rates (for Ex: one is 16% and other 12%) in the same plant. can any body suggest how to maintain different rates for the same vendor in J1ID.
regards
SivaHi,
Please try to maintain in J1ID as
Exceptional Material Excise Rate
Hope this may solve your problem.
Regards,
Kiran S Neve -
Excise duty percentage changed in PO document
Hi All,
I have assigned a tax code to a PO document and I checked the tax percentages by click the taxes button in me23n screen. It shows the total excise duty 14%,Ecess 2%,SECess 1% and CST 2% which is correct. I check through by PO print preview which is also showing the same as 14%, 2%, 1% and 2%. Both are match with the tax invoice. Which is before GR created. After creating the GR I go to me23n for same document and click the taxes button it shows Total excise duty as 8% and the remaining are same. In the PO print preview also been changed as 8% for Total excise duty. I couldn't find where could be changed and How could view the changes. Please advice me to solve this problem.
Thanks...Hi,
Purchase order Tax clasification can be changed based on the below settings.
Once Check the Condition types for Excise and VAT.
Goto FV12/FV13
Enter the Condition Types
1. Material/Plant/Vendor Combination
2. Country/Region/Plant Regn
3. Plant Material Group
4. Tax Clasification.
Hope It will clear.
Regards, -
Configuring IS-Oil TDP external excise duty rates. (tcode o4k5)
Hi ,
I enter and save the external rates in the development system, but the system does not provide me a transport number.
Doesn't this config create a transport to push to production? is it like a master data maintenance where you maintain the recored directly in production system?
Appreciate very much your reply.Hi,
Excise Duty External rates are Client specific. It is a master data, hence not configurable & do not require transport request.
Hope it replies your query.
Regards,
Nalini -
Excise duty rates for each PO's
Hi All,
There is a enchancement of a Z report in our project, this report provides the GR/IR ageing Report, in which all the GR and IR details of the PO are displayed.
but Now the user require a new coloumn in the report which should show the uncleared excise duty for the remaining quantity for which IR is not not is captured.
Example:
ZF24: IR not yet posted ? In this case you want to capture excise duties of Invoice based on GR quantity * excise duties percentage.
If full quantity GR and IR booked for PO, then no need to show the excise duties.
Please advise me how to fetch the data of excise duty of each PO or MIGO or MIRO. SO that i can multiple it with quantity remained.
Please help me out on this as soon as possible.
Nitin Kumarcreate a table in excel and get the approval from the user .
create the same as a report ? do you need the tables to fetch the data
Po number
PO item
PO qty
PO value
PO Excise
PO Sales tax
GR Qty
GR value
IR Qty
IR value
Excise availed
Sales Tax availed
Excise posted
Sales tax posted
Excise Post Diff
Sales Tax post diff
15567890
10
20
4680
1200
6789
10
2340
10
2340
200
10
100
30
-100
20
15567890
20
30
236670
3455
2345
12
94668
10
78890
30
20
20
20
-10
0
15567890
30
40
3040
1234
1123
10
450
10
450
14
10
50
14
36
4 -
Reduction in excise duty rate 10% from 14%
Hi everybody,
We have defined rate 10% in the capter id rate master periodic wise now if we have created new po than got caculation is corecte according but how to control old purchases order because tax calculation is not shown as per amend rate.
Pls. advice to me.
Thanx
Ravi TiwariHi,
If you are using TAXINN then there is no need to create the new tax code.
1.You can just create the the tax condition record for 10% in FV11 for new validity period. Suppose tax rates are changed from 08/12/2008 then create new condition record with validity period 08/12/2008 to 31/12/9999 for 10%.
2. Close the Tax Condition records for 14% by dated 07/12/2008 using FV12.
PO creation date is very much dependent on Tax condition records validity periods.If you will create GR w.r.t. to old PO, if old PO creation date falls between 14% tax condition records date then system will pick up old rate 14% only or else 10%.
If you are using the TAXINJ then in J1ID ,excise rate maintainance just create the new line for tax rate 10% with new validity of 08.12.08 to 31.12.9999, and limitthe old rate 14% till 07/12/2008.
hope it helps...
manoj singh -
Excise Duty Rate Chnge -No CIN
Hello
Changes in budget rate for excise.PO with old rate
already entered.No CIN.Need to write a validationor
(how can i do it) that On MIRO,if tax rate(which has
been manually enterd in PO) is 16%,should change to
14%(shud i create a new Tax code for the same)
Please help.WOuld be highly appreciated.Dear Friend
For Budget changes you just maintened excise rate is J1ID for each material.
you have maintane 16% upto 29-2-08 and from 01-03-08 to 31-03-9999 you have to maintned 14%.
so at the time of doing miro depend upon posting dtae syatem will propose excise .
Hope this will hgelp you
Jain
Assign Points -
How to change ED percentage from 16% to 14% for all purchases/invoices
booked after 01.03.2008.
For purchse invoices booked prior to 01.03.2008 ED to be calculated at
16%.
There is no CIN
Urgent help needed
Thx for replyYou can use the concept of retrospective billing which helps us to post an amount for a group of invoices over a period of time.
or
Pass a JV for the desired amount.
Cheers
P O I N T S -
Rate (% Excise Duty) in picking wrong...
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................01.03.2008................31.12.9999................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/07/2007 to 15/07/2007..it is showing the 14%...but as per my given period, it must display 16%...
Please tell me that what should the condition there....
Plz. check my code---
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 : v_currdate 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 let me know...Hi,
when i m using this query...
SELECT SINGLE rate FROM j_1iexctax INTO itab-rate WHERE j_1ichid = itab-j_1ichid AND j_1iexcind = '1' AND validfrom LE sptag-high AND validto GE sptag-low.
MODIFY itab INDEX sy-tabix TRANSPORTING rate .
it is picking the another value.....like... (picking BOLD VALUE), means 0.00
8538 10 10................0................28.02.2005................31.12.9999................0.0000
8538 10 10................1................01.03.2008................31.12.9999................14.0000
8538 10 10................1................28.02.2005................29.02.2008................16.0000
8538 10 10................1................01.01.2001................28.02.2005................16.0000
also Excise tax indicator, not reflect anything here....
Plz let me know...... -
Hi All,
Recently, there is change in excise duty rate from 10% to 8%. But the problem is if we want to sale/purchase the material (old stock of higher excise rate i.e 14 or 10 %) then how to do it? Because system does not allow the change in tax codes at document level.
Please reply asap.
Regards,
AbhishekHi,
You need to create more than one tax code to refer to the different rates.
Thanks,
Gordon -
% Excise Duty is coming wrong in Report
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...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....
Maybe you are looking for
-
New to Apple, I think my ipod touch is doa
Hello all First of all, I would just like to say I am new to Apple and the discussion forums so hello to all! Unfortunately, my main reason for joining isn't a positive one. I have received an 1st gen 8gb ipod touch from an upgrade offer with a mobil
-
HT201269 I can't find my old contacts!!! help!!!
I just "restored" my iPhone...and I am pretty sure I wiped out all my contacts....Can anyone help me?
-
Compaq 615: Wont switch to headphones !!
Hello. I bought this laptop for like 3 weeks ago. It all worked fine, and suddenly it wouldnt auto switch when i plugged in my headphones. My headphones are working all fine on other PCs, but i wont switch when i plug in! Any fixes on this?
-
I'm trying to understand something about the use of serialVersionUID. I understand that the basic purpose of the field is to allow the JVM to compare incoming serialized objects to the local definition of the class, to ensure that no changes have occ
-
Out Of Memory Error fo addBatch()
Hi All, I need to perform multiple inserts in Oracle I am using Prepared Statement addBatch() to perform this I m getting error java.sql.SQLException: [Oracle][ODBC][Ora]ORA-04030: out of process memory when trying to allocate 1 6384 bytes (KGK heap,