Exice duty Inclisive

Hi
I have one scenario in which i have to show that sales price is inclusive of excise duty and i want to post excise duty to recover account and sales price Minus excise duty to revenue account
EG. Rs 100 I am charging to customer and in that suppose RS 10 is excuse duty.
posting should be like this
100- to customer accout
10-excise accout
90- to revenue accout
Regards
sandeep

Hi
Kindly do the belwo
1.make the MRP condition type as statistical
2. create the excise condition type and maintain the calculation type as "H--Percentage included"
3. Create one more condition type which will have the valuie 90 and assign the account key to post to accopunts
BY doing the above you can acheive your desired accounting enntries

Similar Messages

Import Transaction With Exice duty ...

Dear Sir,
I want to manage the import Case in SAP Business One .
First i pass the GRN After I pass Excise invoice its Mandatory after i Pass the AP invoice but i dont want to charge the excise Amount on Vendor how i do this.
Because i am not paid duty to My Vendor i paid this to Custom Department.
Regards
Mangesh pagdhare.

HI
When you add incoming excise invoice your all the tax is posted in the a/c how you can say it will nullify the VAT
tax liable what i understand is that tax is not liable to the vendor/customer
so as the question posted in the forum is related to this only
needs to discuss more to clarify my doubts also which is arise by your mark
Ashish Gupte

Exice Duty Should be Posted To Sales Revenue Account

Dear All,
Our customer wants all the excise duty to be posted to the sales revenu account.
So i have changed the accounting key to ERL corresponding to the Excise Condition types.Now all the Exicise Duty is flowing to the Sales revenue account.
Is that Correct?
And when i create excise invoice in J1IIN,what are the accouting document should be genereated and what should be debited and what should be credited.
Please Advice.
Regards,
Venugopal

Dear PM,
Thanks for your response...
When i checked the accounting document at the billing document level,the customer is debited and all the other duties is going to the sales revenu account.
And when i check the accouting document at the excise invoice,cenvat suspense a/c is debited say for example 8.24Rs and RG23A Cenvatinput BED 8 and other Educ Cess .16 and Higher Edu Cess .08 is getting credited.
Please advice me is this correct.
Thanks & Regards,
Venugopal

Calculation of Vat On total amt(Basic price+Exices duty+Freight condition)

Dear friends,
My client requirement is that the Vat should calculate on total amount including freight condition while creating PO that is
Basic price=100
ED 10%=10
cess on ED 2%=2
Total amount=112
Freight=20
Total amount after adding Freight=132
Vat 4% should calculate on total amount=5.28
Total amount=137.28

Hi Mallinath,
Actually in PO it will not calculate including freight. i suggest do not change the pricing. instead wat u can do is add freight in PO and at the time of Bill verification, choose goods/services & planned dely costs. system wil give a seperate line for delivery costs(freight), put a seperate tax code ( VAT 4%) and simulate. you wil get the results as per ur requirement.
Regards,
Girish

Excise duty is not picking up for a business area

Hi,
please help me ,The problem is
while creating invoice it is found that exice duty is not picked up by the system for that invoice for a particular business area , so please suggest what setting has to be checked to rectify the error.Is
Thanks
Ahsan

Excise Duty will flow based on your plant and CIN settings and not based on your business area. So first check in your sale order / billing document whether plant is flowing.
If you are in TAXINJ, ensure that you have maintained both the customer code and material code in J1ID. If you are in TAXINN, ensure that the relevant tax code with that ED condition type is maintained in FV11
thanks
G. Lakshmipathi

CIN - Monthly Excise Duty Debit issue

Dear SAP SD Guy.
I have one issue while debiting monthly excise duty from RG23A part II. Details given is as under.
I have selected T. Code J1IH - select other adjustment - put doc. no and comapny code, plant excise group - select RG23A part II - then enter -
go to next page put duty amount such as Rs 10000.00 - select header - enter then select G/L account which is giving correct G/L account at both line and then save ( Here once save it should save and give jv and account no with sr no of RG 23 A part II)
But once save again pop up appearing with PLA G/L account no in first line and in the second line modvat clearing G/L account no. ( Actually it should not appear. How this is appearing where is the configuration setting?)
Once save duty is debited from PLA whereas we have selected RG23A part II once use other adjustment and put details because of second pop up of PLA.
Can anybody help me how this second POP Up - PLA G/L account apearing in the system? where is the setting configured or any debugging is required?
Please seek your early solution and give reward points for early solutions.

First you will have to update all your registers i.e RG1,RG23A& RG23C part I. using transaction J1I5,
Then use the J2I5 extract registers to update the value in RG23A & RG23C part II
J2IUN transaction for monthly utilization.
U will see excise payable against which you will see bakances in different registers you can select the register from which you have to utilize the exice duty.
I think you can now utilize the credit taken.
Reward If useful.
Regards

Excisie duty updation problem during RG1 register update

Dear All,
During updation od RG1 register, excise duty has not been updated in Rg1 register. Transactional entry updated but Exice duty/ ecs/ CEss is showing zero value.
It happened with two materials only. all excise master data has been maintained for that material.
What will be reason ?
Your valuable reply is appreciated. Thanks
Regards
Mangesh

Hi Mangesh,
I hope you are using the std transaction J1I5 for RG1 Register update.
Normally we update the RG1 Register using the material documents.
So check whether for the material documents which you updated whether an excise invoice has been created or not ? because std - J1I5 transaction doesnt check the same.
If you have updated the RG1 register after creating the excise invoice for the above materials doc's then excise value will be updated in the same.
IF its not happening then check if any SAP notes are available.
Hope its clear.
Regards,

Monthly Excise Duty Debit process

Can anybody explain the process to debit monthly excise duty from PLA and RG23A part II/RG23C part II.
As per my knowledge process is that :
Select J1IH - other adjustment- pop up comes and put data as per pop up- select RG23A/C/PLA any one at the time one then enter go to next page then select header and put duty amount at BED enter - select G/L account and save - excise JV created and account no generated with sr no.
Similarly follow same procedrue for debiting from PLA.
is it correct procedure or any other process in the system ?
please help me. This is most urgent.

First you will have to update all your registers i.e RG1,RG23A& RG23C part I. using transaction J1I5,
Then use the J2I5 extract registers to update the value in RG23A & RG23C part II
J2IUN transaction for monthly utilization.
U will see excise payable against which you will see bakances in different registers you can select the register from which you have to utilize the exice duty.
I think you can now utilize the credit taken.
Reward If useful.
Regards

When "BACK"

Hi Folks,
The following report is working perfectly except that when clicking on BACK button on the toolbar it is not coming to selection-screen but leaving to Easy Access Screen.Kindly let me know.
REPORT zdr   LINE-SIZE 1023 LINE-COUNT 58(3)
MESSAGE-ID z_ma NO STANDARD PAGE HEADING      .
TABLES : vbrk, " Billing Document: Header Data
         vbrp, " Billing Document: Item Data
         konv, " Conditions (Transaction Data)
         vbak, " Sales Document: Header Data
         usr21, " Assign user name address key
         adcp, " Person/Address Assignment
         tvv2t,
         m_vmcfa,
         m_vmcra,
         kna1,
         tvfkt,
         vmcfao,
         adrc.
Includes
INCLUDE rvreuse_global_data.
INCLUDE rvreuse_local_data.
INCLUDE rvreuse_forms.
Type-Pools
TYPE-POOLS slis.
TYPES: BEGIN OF ty_temp,
        fidoc TYPE bkpf-belnr,              "FIDOC No
        awkey TYPE bkpf-belnr,              "Reference Key
        gjahr TYPE bkpf-gjahr,              "Fiscal Year
        budat TYPE bkpf-budat,              "Posting Date
        belnr TYPE rbkp-belnr,              "Doc No
        blart TYPE bkpf-blart,              "Document Type
        vbeln TYPE bkpf-xblnr,              "Billing Doc No
        xblnr TYPE bkpf-xblnr,
       END OF ty_temp.
TYPES: BEGIN OF ty_konv,
          knumv TYPE konv-knumv,
          kposn TYPE konv-kposn,
          kschl TYPE konv-kschl,
          kwert TYPE konv-kwert,
          kbetr TYPE konv-kbetr,
          kwert1 type konv-kwert,
       END OF ty_konv.
TYPES: BEGIN OF ty_objk,
          equnr TYPE objk-equnr,
          sernr TYPE objk-sernr,
          taser TYPE objk-taser,
       END OF ty_objk.
*& Includes                                                            *
INCLUDE <icon>.
Data Declaration
For ALV Display
DATA : gs_variant TYPE disvariant.
DATA : gs_layout TYPE lvc_s_layo.
DATA : gs_print TYPE lvc_s_prnt.
DATA : c_stk TYPE scrfname VALUE 'CUSTOM'.
DATA: c_stk3 TYPE scrfname VALUE 'TEST'.
DATA : custom_container TYPE REF TO cl_gui_custom_container.
DATA: custom_container3 TYPE REF TO cl_gui_custom_container.
CLASS: lcl_event_receiver DEFINITION DEFERRED.
DATA : grid1 TYPE REF TO cl_gui_alv_grid.
DATA: grid3 TYPE REF TO cl_gui_alv_grid.
DATA : event_receiver TYPE REF TO lcl_event_receiver.
DATA : ok_code TYPE sy-ucomm.
DATA : it_fieldcatalog TYPE lvc_t_fcat.
DATA : wafieldcatlog TYPE LINE OF lvc_t_fcat.
DATA : lt_rows TYPE lvc_t_row.
DATA : wa_rows TYPE LINE OF lvc_t_row.
DATA: it_fieldcatalog1 TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      wafieldcatlog1 TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gd_layout TYPE slis_layout_alv,
      gd_prntparams TYPE slis_print_alv,
      gd_repid LIKE sy-repid.
Internal tables and work areas for ALV ouput display
DATA: is_layout        TYPE slis_layout_alv,
      i_events         TYPE slis_t_event,
      events           TYPE slis_alv_event,
      alv_top_of_page TYPE slis_t_listheader,
      gs_line          TYPE slis_listheader,
      alv_events       TYPE slis_t_event,
      alv_variant      TYPE disvariant,
      alv_title        TYPE lvc_title,
      alv_sort         TYPE slis_t_sortinfo_alv,
      csort            TYPE slis_sortinfo_alv,
      alv_print        TYPE slis_print_alv.
Internal Table
DATA: it_objk TYPE ty_objk OCCURS 0 WITH HEADER LINE.
DATA: itab_temp TYPE ty_temp OCCURS 0 WITH HEADER LINE.
DATA: itab_konv TYPE ty_konv OCCURS 0 WITH HEADER LINE.
DATA: gt_vmcfa LIKE vmcfao OCCURS 50 WITH HEADER LINE.
*>>>
DATA : adrnr1 LIKE t001w-adrnr.
DATA: plant_name1 LIKE adrc-name1.
DATA: plant_name2 TYPE adrc-name2.
DATA: plant_name(136).
DATA: comp_name1 LIKE adrc-name1.
DATA: comp_name2 TYPE adrc-name2.
DATA: comp_name(136).
*<<<
DATA: BEGIN OF name_dazu OCCURS 10,
        kunnr LIKE kna1-kunnr     ,
        name1 LIKE kna1-name1     ,
        ort01 LIKE kna1-ort01     ,
      END   OF name_dazu.
DATA: BEGIN OF fkart_dazu OCCURS 10,
        fkart LIKE tvfkt-fkart     ,
        vtext LIKE tvfkt-vtext     ,
      END   OF fkart_dazu.
DATA: BEGIN OF hsave,
      vbeln LIKE vbuv-vbeln,
      tabix LIKE sy-tabix ,
      text(40)             .
DATA: END   OF hsave.
DATA: BEGIN OF it_vbrk_vbrp OCCURS 0,
        vbeln TYPE vbrk-vbeln, " Invoice Number
        posnr TYPE vbrp-posnr, " Item number
        erdat TYPE vbrk-erdat, " Billing Date
        fkart TYPE vbrk-fkart, " Billing Type
        vtext TYPE tvfkt-vtext, " Billing type Desc
        knumv TYPE vbrk-knumv, " Number of the document condition
        netwr TYPE vbrk-netwr, " Net value in document currency
        fkdat TYPE vbrk-fkdat, " Invoice Date
        typbz TYPE equi-typbz, " Model
        serge TYPE equi-serge, " Serial No Ref
        fkimg TYPE vbrp-fkimg, " Invoce Quantity
        kzwi1 TYPE vbrp-kzwi1, " Base Price
        kzwi2 TYPE vbrp-kzwi2, " Packing
        kzwi4 TYPE vbrp-kzwi4, " Freight and Insurance
        jex2 TYPE konv-kwert, " Exice duty
        jces TYPE konv-kwert, " Cess
        jecx TYPE konv-kwert, " Education Cess
        jin1 TYPE konv-kwert, " CST
        jin1_per TYPE konv-kbetr, " %CST
        jin2 TYPE konv-kwert, " LST
        jin2_per TYPE konv-kbetr, " %LST
        jin5 TYPE konv-kwert, " Surcharge on LST
        jin5_per TYPE konv-kbetr, " %Surcharge on LST
        turn TYPE konv-kwert, " Turn Over
        turn_lst TYPE konv-kwert, " LST turn over
        turn_cst TYPE konv-kwert, " CST turn over
        total TYPE konv-kwert, " Total
        zadv TYPE konv-kwert,   " Advance Recieved
        net TYPE konv-kwert,   " Net Payable
        zcod TYPE konv-kwert,   " Dealer Fee
        zdbk TYPE konv-kwert,   " Deamed Benifit
        zopt TYPE konv-kwert,   " Optional Value
        zfoc TYPE konv-kwert,   " FOC Coupon Value
        zfcf TYPE konv-kwert,   " FOC Filter
        netreal TYPE konv-kwert, " Net Realisation
        vgbel TYPE vbrp-vgbel, " Delivery Number
        kunag TYPE vbrk-kunag, " Sold-to party
        name1 TYPE kna1-name1,                              " Name1
        name2 TYPE kna1-name1, " Ship to name
        name3 TYPE kna1-name2, " Ship to name 2nd column
        mwsbk TYPE vbrk-mwsbk, " Tax amount in document currency
        werks TYPE vbrp-werks, " Plant
        regio TYPE vbrk-regio, " Region (State, Province, County)
        bezei TYPE t005u-bezei, " Region Description
        wkreg TYPE vbrp-wkreg, " Region in which plant is located
        fksto TYPE vbrk-fksto, " Billing document is cancelled
        bstkd TYPE vbkd-bstkd, " Customer purchase order number
        bstdk TYPE vbkd-bstdk, " Customer purchase order date
        exnum TYPE j_1iexcdtl-exnum, " Excise Doc Number
        matnr TYPE vbrp-matnr,   " Material number
        arktx TYPE vbrp-arktx,   " Material Desc
        mvgr5 TYPE vbap-mvgr5,   " PWC code
        bezei5 TYPE tvm5t-bezei, " PWC code Desc
        kdgrp_auft TYPE vbrp-kdgrp_auft, " Dealer
        ktext TYPE t151t-ktext, " Dealer Desc
        j_1icstno TYPE j_1imocust-j_1icstno, " CST reg number
        j_1ilstno TYPE j_1imocust-j_1ilstno, " LST reg number
        city1 TYPE adrc-city1,                              " City1
        street TYPE adrc-street,
        addr1 TYPE adrc-str_suppl1, " address
        addr2 TYPE adrc-str_suppl2,
        city2 TYPE adrc-city2,
        country TYPE adrc-country,
        landx TYPE t005t-landx,"Country
        kvgr2 TYPE vbak-kvgr2, "Sales Type
        fname TYPE kna1-name1, " Financier Name
        aubel TYPE vbrp-aubel,
        stypetext TYPE tvv2t-bezei,
        zdex TYPE konv-kwert,
        zdec TYPE konv-kwert,
        dif1 TYPE konv-kwert,
        dif2 TYPE konv-kwert,
        dif3 TYPE konv-kwert,
        dif4 TYPE konv-kwert,
        dif5 TYPE konv-kwert,
        dif6 TYPE konv-kwert,
        deemed_jex2 TYPE konv-kwert,
        deemed_jecs TYPE konv-kwert,
        roundoff1 TYPE konv-kwert,
        roundoff2 TYPE konv-kwert,
        roundoff3 TYPE konv-kwert,
        roundoff4 TYPE konv-kwert,
        roundoff5 TYPE konv-kwert,
        roundoff6 TYPE konv-kwert,
        zcal TYPE konv-kwert,
        zser TYPE konv-kwert,
        zces TYPE konv-kwert,
        zkf0 TYPE konv-kwert,
        zins TYPE konv-kwert,
       vgpos LIKE vbrp-vgpos,
       ort01 LIKE kna1-ort01,
       belnr LIKE bseg-belnr,
       bukrs LIKE vbrk-bukrs,
       zstf LIKE konv-kwert,
       di13 LIKE konv-kwert,
        vkorg TYPE vbrk-vkorg,
        vbtyp TYPE vbrk-vbtyp,
        aupos TYPE vbrp-aupos,
        xblnr TYPE bkpf-xblnr,
        augru TYPE vbak-augru,
        reason TYPE tvaut-bezei,
        waerk type vbrk-waerk,
       END OF it_vbrk_vbrp.
DATA: BEGIN OF it_vbrk_vbrp3 OCCURS 0,
        vbeln TYPE vbrk-vbeln, " Invoice Number
        posnr TYPE vbrp-posnr, " Item number
        erdat TYPE vbrk-erdat, " Billing Date
        fkart TYPE vbrk-fkart, " Billing Type
        vtext TYPE tvfkt-vtext, " Billing type Desc
        knumv TYPE vbrk-knumv, " Number of the document condition
        netwr TYPE vbrk-netwr, " Net value in document currency
        fkdat TYPE vbrk-fkdat, " Invoice Date
        typbz TYPE equi-typbz, " Model
        serge TYPE equi-serge, " Serial No Ref
        fkimg TYPE vbrp-fkimg, " Invoce Quantity
        kzwi1 TYPE vbrp-kzwi1, " Base Price
        kzwi2 TYPE vbrp-kzwi2, " Packing
        kzwi4 TYPE vbrp-kzwi4, " Freight and Insurance
        jex2 TYPE konv-kwert, " Exice duty
        jces TYPE konv-kwert, " Cess
        jecx TYPE konv-kwert, " Education Cess
        jin1 TYPE konv-kwert, " CST
        jin1_per TYPE konv-kbetr, " %CST
        jin2 TYPE konv-kwert, " LST
        jin2_per TYPE konv-kbetr, " %LST
        jin5 TYPE konv-kwert, " Surcharge on LST
        jin5_per TYPE konv-kbetr, " %Surcharge on LST
        turn TYPE konv-kwert, " Turn Over
        turn_lst TYPE konv-kwert, " LST turn over
        turn_cst TYPE konv-kwert, " CST turn over
        total TYPE konv-kwert, " Total
        zadv TYPE konv-kwert,   " Advance Recieved
        net TYPE konv-kwert,   " Net Payable
        zcod TYPE konv-kwert,   " Dealer Fee
        zdbk TYPE konv-kwert,   " Deamed Benifit
        zopt TYPE konv-kwert,   " Optional Value
        zfoc TYPE konv-kwert,   " FOC Coupon Value
        zfcf TYPE konv-kwert,   " FOC Filter
        netreal TYPE konv-kwert, " Net Realisation
        vgbel TYPE vbrp-vgbel, " Delivery Number
        kunag TYPE vbrk-kunag, " Sold-to party
        name1 TYPE kna1-name1,                              " Name1
        name2 TYPE kna1-name1, " Ship to name
        name3 TYPE kna1-name2, " Ship to name 2nd column
        mwsbk TYPE vbrk-mwsbk, " Tax amount in document currency
        werks TYPE vbrp-werks, " Plant
        regio TYPE vbrk-regio, " Region (State, Province, County)
        bezei TYPE t005u-bezei, " Region Description
        wkreg TYPE vbrp-wkreg, " Region in which plant is located
        fksto TYPE vbrk-fksto, " Billing document is cancelled
        bstkd TYPE vbkd-bstkd, " Customer purchase order number
        bstdk TYPE vbkd-bstdk, " Customer purchase order date
        exnum TYPE j_1iexcdtl-exnum, " Excise Doc Number
        matnr TYPE vbrp-matnr,   " Material number
        arktx TYPE vbrp-arktx,   " Material Desc
        mvgr5 TYPE vbap-mvgr5,   " PWC code
        bezei5 TYPE tvm5t-bezei, " PWC code Desc
        kdgrp_auft TYPE vbrp-kdgrp_auft, " Dealer
        ktext TYPE t151t-ktext, " Dealer Desc
        j_1icstno TYPE j_1imocust-j_1icstno, " CST reg number
        j_1ilstno TYPE j_1imocust-j_1ilstno, " LST reg number
        city1 TYPE adrc-city1,                              " City1
        street TYPE adrc-street,
        addr1 TYPE adrc-str_suppl1, " address
        addr2 TYPE adrc-str_suppl2,
        city2 TYPE adrc-city2,
        country TYPE adrc-country,
        landx TYPE t005t-landx,"Country
        kvgr2 TYPE vbak-kvgr2, "Sales Type
        fname TYPE kna1-name1, " Financier Name
        aubel TYPE vbrp-aubel,
        stypetext TYPE tvv2t-bezei,
        zdex TYPE konv-kwert,
        zdec TYPE konv-kwert,
        dif1 TYPE konv-kwert,
        dif2 TYPE konv-kwert,
        dif3 TYPE konv-kwert,
        dif4 TYPE konv-kwert,
        dif5 TYPE konv-kwert,
        dif6 TYPE konv-kwert,
        deemed_jex2 TYPE konv-kwert,
        deemed_jecs TYPE konv-kwert,
        roundoff1 TYPE konv-kwert,
        roundoff2 TYPE konv-kwert,
        roundoff3 TYPE konv-kwert,
        roundoff4 TYPE konv-kwert,
        roundoff5 TYPE konv-kwert,
        roundoff6 TYPE konv-kwert,
        zcal TYPE konv-kwert,
        zser TYPE konv-kwert,
        zces TYPE konv-kwert,
        zkf0 TYPE konv-kwert,
        zins TYPE konv-kwert,
       vgpos LIKE vbrp-vgpos,
       ort01 LIKE kna1-ort01,
       belnr LIKE bseg-belnr,
       bukrs LIKE vbrk-bukrs,
       zstf LIKE konv-kwert,
       di13 LIKE konv-kwert,
        vkorg TYPE vbrk-vkorg,
        vbtyp TYPE vbrk-vbtyp,
        aupos TYPE vbrp-aupos,
        xblnr TYPE bkpf-xblnr,
        augru TYPE vbak-augru,
        reason TYPE tvaut-bezei,
*Variable for Summed up fields
        waerk type vbrk-waerk,
*End of changes by Kiran.K dated 27082007
        sum1 TYPE vbrp-kzwi1,                               "Base Price
        sum2 TYPE vbrp-kzwi2,                               "Packing
        sum4 TYPE vbrp-kzwi4,                               "Freight and Insurance
       sum5 TYPE konv-kwert,                               "zsdr3-jex2
       sum6 TYPE konv-kwert,                               "zsdr3-jecx
       total1 TYPE konv-kwert,                             "ZSDR3
        total2 TYPE konv-kwert,                             "Taxable LST Turnover
        total3 TYPE konv-kwert,                             "Taxable CST Turnover
        total4 TYPE konv-kwert,                             "Total
       jin6 type konv-kwert,
       lst1 type konv-kwert,
        lsum type konv-kwert,                               "LST
       END OF it_vbrk_vbrp3.
*ALV Display
*Authorization check
DATA : v_pnum TYPE usr21-persnumber.
DATA : v_dname TYPE adcp-department.
Work Areas
DATA : wa_display LIKE it_vbrk_vbrp.
DATA : wa_alv LIKE it_vbrk_vbrp.
Data
DATA : kdauf LIKE lips-kdauf.
DATA : obknr LIKE ser01-obknr.
DATA : equnr LIKE equi-equnr.
DATA : header(60) TYPE c.
DATA : vbelv LIKE vbfa-vbelv.
DATA   vbelvp LIKE vbrp-aubel.
DATA : posnv LIKE vbfa-posnv.
DATA : kunnr LIKE kna1-kunnr.
DATA : kunnr1 LIKE kna1-kunnr.
DATA : adrnr LIKE vbpa-adrnr.
DATA : country LIKE adrc-country.
DATA : date1(10).
DATA : date2(10).
DATA : text(60).
DATA : alles(1) TYPE c.
DATA : allea(1) TYPE c.
DATA : alleb(1) TYPE c.
DATA : allef(1) TYPE c.
DATA : alleg(1) TYPE c.
DATA : allek(1) TYPE c.
DATA : allen(1) TYPE c.
DATA: xvbtyp LIKE dd07v-domvalue_l.
DATA: text1 LIKE dd07v-ddtext.
DATA: char(50).
DATA: tabix LIKE sy-tabix.
DATA: lilli LIKE sy-lilli.
FIELD-SYMBOLS: <feld>.
DATA   : trvog TYPE c.
DATA : deemed_jex2 TYPE konv-kwert,
       deemed_jecx TYPE konv-kwert,
       roundoff1 TYPE konv-kwert,
       roundoff2 TYPE konv-kwert,
       roundoff3 TYPE konv-kwert,
       roundoff4 TYPE konv-kwert,
       roundoff5 TYPE konv-kwert,
       roundoff6 TYPE konv-kwert.
Structure for IT
DATA wa_it_vbrk_vbrp LIKE it_vbrk_vbrp.
DATA wa_it_vbrk_vbrp3 LIKE it_vbrk_vbrp.
DATA:itevent3 TYPE slis_t_event.
DATA:itlistheader TYPE slis_t_listheader.
DATA:itlistheader3 TYPE slis_t_listheader.
DATA:walistheader LIKE LINE OF itlistheader.
DATA:walistheader3 LIKE LINE OF itlistheader.
DATA: string1(70).
DATA: title(100),date3(10),date4(10),name3(35),name4(35),plant3(4).
**SELECTION-SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETER     : vkorg LIKE vbrk-vkorg OBLIGATORY.
PARAMETER     : plant LIKE vbrp-werks OBLIGATORY.
PARAMETER     : p_bukrs LIKE vbrk-bukrs OBLIGATORY.
SELECT-OPTIONS: s_fkart FOR vbrk-fkart OBLIGATORY.
SELECT-OPTIONS: s_fkdat FOR vbrk-fkdat OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
SELECT-OPTIONS: s_vbtyp FOR vbrk-vbtyp NO-DISPLAY.
*>>>>>>
SELECTION-SCREEN: BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
PARAMETERS: sales RADIOBUTTON GROUP grp1,
            credit RADIOBUTTON GROUP grp1,
            debit RADIOBUTTON GROUP grp1,
            test RADIOBUTTON GROUP grp1.
SELECTION-SCREEN: END OF BLOCK block1.
*<<<<<<
START-OF-SELECTION.
To get authorisation check data
AUTHORITY-CHECK OBJECT 'ZBUKRS'
    ID 'ACTVT' FIELD '01'.
ID 'BUKRS' FIELD p_bukrs.
IF sy-subrc NE 0.
    MESSAGE e034(z_apd) WITH p_bukrs.
ENDIF.
PERFORM get_auth.
PERFORM getdata.
**START-OF-SELECTION
PERFORM get_unrel_item. "fill the tb with unrel.
PERFORM get_header_item.
PERFORM filtering.
PERFORM calculation.
PERFORM credit_debit.
ALV Display
IF sy-batch <> 'X'.
    SET SCREEN 100.
ELSE.
    PERFORM background.
ENDIF.
IF test = 'X'.
    perform opt.
    PERFORM test.
    <b>set screen 0.</b>
ENDIF.
*&      Form getdata
      text
--> p1        text
<-- p2        text
FORM getdata .
SELECT belnr AS fidoc
         awkey AS vbeln
         xblnr
         budat
         gjahr
         blart
         FROM bkpf INTO CORRESPONDING FIELDS OF TABLE itab_temp
         WHERE bukrs = p_bukrs
         AND budat IN s_fkdat
         AND bstat = space.
IF sy-subrc NE 0.
    MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
    STOP.
ENDIF.
ENDFORM.                    " getdata
*&      Form get_header_item
      text
--> p1        text
<-- p2        text
FORM get_header_item .
LOOP AT itab_temp.
    MOVE itab_temp-fidoc TO it_vbrk_vbrp-belnr.
    MOVE itab_temp-xblnr TO it_vbrk_vbrp-xblnr.
    SELECT SINGLE vbeln
                  fkart
                  knumv
                  netwr
                  waerk
                  fkdat
                  kunag
                  mwsbk
                  fksto
                  bukrs
                  vkorg
                  vbtyp
                  erdat
                  regio
                  FROM vbrk INTO CORRESPONDING FIELDS OF it_vbrk_vbrp
                  WHERE vbeln = itab_temp-vbeln.
    SELECT werks
           aubel
           mvgr5
           wkreg
           posnr
           fkimg
           kzwi1
           kzwi2
           kzwi4
           vgbel
           matnr
           arktx
           vgpos
           aupos
           kdgrp_auft
           FROM vbrp INTO CORRESPONDING FIELDS OF it_vbrk_vbrp
           WHERE vbeln = itab_temp-vbeln.
      APPEND it_vbrk_vbrp.
    ENDSELECT.
    CLEAR it_vbrk_vbrp.
    CLEAR itab_temp.
ENDLOOP.
ENDFORM.                    " get_header_item
*& Class Definition                                                    *
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
    METHODS:
      handle_toolbar
        FOR EVENT toolbar OF cl_gui_alv_grid
            IMPORTING e_object e_interactive,
      handle_user_command
        FOR EVENT user_command OF cl_gui_alv_grid
            IMPORTING e_ucomm,
      handle_double_click
          FOR EVENT double_click OF cl_gui_alv_grid
              IMPORTING e_row e_column,
      handle_top_of_page
        FOR EVENT print_top_of_page OF cl_gui_alv_grid.
PRIVATE SECTION.
ENDCLASS.                    "lcl_event_receiver DEFINITION
*& Class Implementation                                                *
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_toolbar.
Local Variables
    DATA: ls_toolbar TYPE stb_button.
    DATA : wa LIKE LINE OF e_object->mt_toolbar.
    LOOP AT e_object->mt_toolbar INTO wa.
      wa-disabled = ''.
      MODIFY e_object->mt_toolbar FROM wa.
    ENDLOOP.
*End
append a separator to normal toolbar
    CLEAR ls_toolbar.
    MOVE 3 TO ls_toolbar-butn_type.
    APPEND ls_toolbar TO e_object->mt_toolbar.
append an icon to to show printing
    CLEAR ls_toolbar.
    MOVE 'PRINT' TO ls_toolbar-function.
    MOVE icon_print TO ls_toolbar-icon.
    MOVE 'Print Receipts' TO ls_toolbar-quickinfo.
    MOVE ' Print' TO ls_toolbar-text.
    MOVE ' ' TO ls_toolbar-disabled.
    APPEND ls_toolbar TO e_object->mt_toolbar.
ENDMETHOD.                       " Handle_toolbar
METHOD handle_user_command.
    CASE e_ucomm.
      WHEN 'PRINT'.
        REFRESH : lt_rows , it_vbrk_vbrp.
        CALL METHOD grid1->get_selected_rows
          IMPORTING
            et_index_rows = lt_rows.
        CALL METHOD cl_gui_cfw=>flush.
    ENDCASE.
ENDMETHOD.                           "handle_user_command
METHOD handle_double_click.
    IF e_column = 'VBELN'.
      READ TABLE it_vbrk_vbrp INDEX e_row-index INTO wa_it_vbrk_vbrp.
      IF sy-subrc = 0.
Set parameter ID for transaction screen field
        SET PARAMETER ID 'VF' FIELD wa_it_vbrk_vbrp-vbeln.
    Execute transaction VF03, and skip initial data entry screen
        CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN.
      ENDIF.
    ENDIF.
ENDMETHOD.                           "handle_double_click
METHOD handle_top_of_page.
    WRITE:/ comp_name,
          / plant_name ,
          / text.
ENDMETHOD.                           "handle_top_of_page
ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION
*&      Form get_auth
      text
--> p1        text
<-- p2        text
FORM get_auth .
SELECT SINGLE persnumber FROM usr21 INTO (v_pnum)
      WHERE bname = sy-uname.
SELECT SINGLE department FROM adcp INTO (v_dname)
      WHERE persnumber = v_pnum.
ENDFORM.                    " get_auth
*&      Form filtering
      text
--> p1        text
<-- p2        text
FORM filtering .
s_vbtyp-sign = 'I'.
s_vbtyp-option = 'EQ'.
s_vbtyp-low = 'M'.
APPEND s_vbtyp.
s_vbtyp-low = 'O'.
APPEND s_vbtyp.
s_vbtyp-low = 'P'.
APPEND s_vbtyp.
SORT it_vbrk_vbrp BY vbeln posnr.
LOOP AT it_vbrk_vbrp.
    IF sales = 'X' OR TEST = 'X'.
      IF it_vbrk_vbrp-fksto NE 'X'
           AND it_vbrk_vbrp-werks EQ plant
           AND it_vbrk_vbrp-fkdat IN s_fkdat
           AND it_vbrk_vbrp-vkorg EQ vkorg
           AND it_vbrk_vbrp-fkart IN s_fkart
           AND it_vbrk_vbrp-vbtyp EQ 'M'.
      ELSE.
        DELETE it_vbrk_vbrp.
        CONTINUE.
      ENDIF.
      CLEAR it_vbrk_vbrp.
    ENDIF.
    IF credit = 'X'.
      IF it_vbrk_vbrp-fksto NE 'X'
       AND it_vbrk_vbrp-werks EQ plant
       AND it_vbrk_vbrp-fkdat IN s_fkdat
       AND it_vbrk_vbrp-vkorg EQ vkorg
       AND it_vbrk_vbrp-fkart IN s_fkart
       AND it_vbrk_vbrp-vbtyp EQ 'O'.
      ELSE.
        DELETE it_vbrk_vbrp.
        CONTINUE.
      ENDIF.
      CLEAR it_vbrk_vbrp.
    ENDIF.
    IF debit = 'X'.
      IF it_vbrk_vbrp-fksto NE 'X'
         AND it_vbrk_vbrp-werks EQ plant
         AND it_vbrk_vbrp-fkdat IN s_fkdat
         AND it_vbrk_vbrp-vkorg EQ vkorg
         AND it_vbrk_vbrp-fkart IN s_fkart
         AND it_vbrk_vbrp-vbtyp EQ 'P'.
      ELSE.
        DELETE it_vbrk_vbrp.
        CONTINUE.
      ENDIF.
      CLEAR it_vbrk_vbrp.
    ENDIF.
*End of Insertion
*Commented For Debit and Credit Filtering Process on 19.03.07
IF it_vbrk_vbrp-fksto NE 'X'
    AND it_vbrk_vbrp-werks EQ plant
    AND it_vbrk_vbrp-fkdat IN s_fkdat
    AND it_vbrk_vbrp-vkorg EQ vkorg
    AND it_vbrk_vbrp-fkart IN s_fkart
    AND it_vbrk_vbrp-vbtyp in s_vbtyp.
**ELSE.
   DELETE it_vbrk_vbrp.
   CONTINUE.
**ENDIF.
**CLEAR it_vbrk_vbrp.
ENDLOOP.
ENDFORM.                    " filtering
*&      Form taxamount
      text
--> p1        text
<-- p2        text
FORM taxamount .
SELECT kwert
         kschl
         knumv
         kposn
         kbetr
         FROM konv INTO CORRESPONDING FIELDS OF TABLE itab_konv
         WHERE knumv = it_vbrk_vbrp-knumv
         AND kposn = it_vbrk_vbrp-posnr.
ENDFORM.                    " taxamount
*&      Form calculation
      text
--> p1        text
<-- p2        text
FORM calculation .
DATA:sum LIKE konv-kwert,
       SUMM LIKE KONV-KWERT.
    sum5 like konv-kwert,           "jex2
    sum6 like konv-kwert.           "jecx
LOOP AT it_vbrk_vbrp.
    CLEAR itab_konv.
    PERFORM taxamount.
    SORT itab_konv BY knumv kposn kschl.
*DIF1
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'DIF1' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-dif1.
    ENDIF.
*DIF2
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'DIF2' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-dif2.
    ENDIF.
*DIF3
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'DIF3' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-dif3.
    ENDIF.
*DIF4
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'DIF4' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-dif4.
    ENDIF.
*DIF5
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'DIF5' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-dif5.
    ENDIF.
*DIF6
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'DIF6' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-dif6.
    ENDIF.
*DIF13
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'DI13' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-di13.
    ENDIF.
*ZDEX
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZDEX' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zdex.
    ENDIF.
*ZDEC
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZDEC' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zdec.
    ENDIF.
*EXCISE-DUTY JEX2
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JEX2' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-jex2.
    ENDIF.
    IF it_vbrk_vbrp-fkart = 'ZWFX' OR it_vbrk_vbrp-fkart ='ZWJX' OR
       it_vbrk_vbrp-fkart ='S1' OR it_vbrk_vbrp-fkart ='S3'.
      deemed_jex2 = it_vbrk_vbrp-jex2 + it_vbrk_vbrp-zdex.
      roundoff1 = deemed_jex2 + it_vbrk_vbrp-dif1.
      MOVE roundoff1 TO it_vbrk_vbrp-jex2.
    ENDIF.
*CESS - JCES
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JCES' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-jces.
    ENDIF.
    roundoff6 = it_vbrk_vbrp-jces + it_vbrk_vbrp-dif6.
    MOVE roundoff6 TO it_vbrk_vbrp-jces.
*EDUCATION CESS
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JECX' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-jecx.
    ENDIF.
    roundoff2 = it_vbrk_vbrp-jecx + it_vbrk_vbrp-dif2.
    MOVE roundoff2 TO it_vbrk_vbrp-jecx.
    IF it_vbrk_vbrp-fkart = 'ZWFX' OR it_vbrk_vbrp-fkart ='ZWJX' OR
       it_vbrk_vbrp-fkart ='S1' OR it_vbrk_vbrp-fkart ='S3'.
      deemed_jecx = it_vbrk_vbrp-jecx + it_vbrk_vbrp-zdec.
      roundoff2 = deemed_jecx + it_vbrk_vbrp-dif1.
      MOVE roundoff2 TO it_vbrk_vbrp-jecx.
    ENDIF.
*ZSTF SERVICE TAX
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZSTF' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zstf.
    ENDIF.
    it_vbrk_vbrp-zstf = it_vbrk_vbrp-zstf + it_vbrk_vbrp-di13.
*CST-CST%
    IF it_vbrk_vbrp-fkdat GE '20070101'.
      READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JIN7' BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE itab_konv-kwert TO it_vbrk_vbrp-jin1.
        MOVE itab_konv-kbetr TO it_vbrk_vbrp-jin1_per.
      ENDIF.
    ELSE.
      READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JIN1' BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE itab_konv-kwert TO it_vbrk_vbrp-jin1.
        MOVE itab_konv-kbetr TO it_vbrk_vbrp-jin1_per.
      ENDIF.
    ENDIF.
    roundoff3 = it_vbrk_vbrp-jin1 + it_vbrk_vbrp-dif3.
    MOVE roundoff3 TO it_vbrk_vbrp-jin1.
    it_vbrk_vbrp-jin1_per = it_vbrk_vbrp-jin1_per / 10.
*LST-LST%
    IF it_vbrk_vbrp-fkdat GE '20070101'.
      READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JIN6' BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE itab_konv-kwert TO it_vbrk_vbrp-jin2.
        MOVE itab_konv-kbetr TO it_vbrk_vbrp-jin2_per.
      ENDIF.
    ELSE.
      READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JIN2' BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE itab_konv-kwert TO it_vbrk_vbrp-jin2.
        MOVE itab_konv-kbetr TO it_vbrk_vbrp-jin2_per.
      ENDIF.
    ENDIF.
    roundoff4 = it_vbrk_vbrp-jin2 + it_vbrk_vbrp-dif4.
    MOVE roundoff4 TO it_vbrk_vbrp-jin2.
    it_vbrk_vbrp-jin2_per = it_vbrk_vbrp-jin2_per / 10.
Surcharge on LST
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'JIN5' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-jin5.
      MOVE itab_konv-kbetr TO it_vbrk_vbrp-jin5_per.
    ENDIF.
    roundoff5 = it_vbrk_vbrp-jin5 + it_vbrk_vbrp-dif5.
    MOVE roundoff5 TO it_vbrk_vbrp-jin5.
    it_vbrk_vbrp-jin5_per = it_vbrk_vbrp-jin5_per / 10.
Taxable turn over
    it_vbrk_vbrp-turn = it_vbrk_vbrp-kzwi1 +
                        it_vbrk_vbrp-kzwi2 +
                        it_vbrk_vbrp-jex2 +
                        it_vbrk_vbrp-jces +
                        it_vbrk_vbrp-jecx.
For moving turn over to LST and CST colomns depending upon
Region.
    IF it_vbrk_vbrp-regio = '22'.
      MOVE it_vbrk_vbrp-turn TO it_vbrk_vbrp-turn_lst.
    ELSE.
      MOVE it_vbrk_vbrp-turn TO it_vbrk_vbrp-turn_cst.
    ENDIF.
*CALIBRATION COST
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZCAL' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zcal.
    ENDIF.
*SERVICE CHARGE
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZSER' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zser.
    ENDIF.
*CESS ON SERVICE CHARGE
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZCES' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zces.
    ENDIF.
    CLEAR: it_vbrk_vbrp-zins,it_vbrk_vbrp-zkf0.
*ZINS
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZINS' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zins.
    ENDIF.
*ZKF0
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZKF0' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zkf0.
    ENDIF.
*ZKFP
    IF sy-subrc <> 0.
      READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZKFP' BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE itab_konv-kwert TO it_vbrk_vbrp-zkf0.
      ENDIF.
    ENDIF.
*TOTAL
    it_vbrk_vbrp-total = it_vbrk_vbrp-turn +
                         it_vbrk_vbrp-jin1 +
                         it_vbrk_vbrp-jin2 +
                         it_vbrk_vbrp-jin5 +
                         it_vbrk_vbrp-kzwi4 +
                         it_vbrk_vbrp-zcal +
                         it_vbrk_vbrp-zser +
                         it_vbrk_vbrp-zces.
Advance Recieved (ZADV)
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZADV' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zadv.
    ENDIF.
Net Payable
    it_vbrk_vbrp-net = it_vbrk_vbrp-total - it_vbrk_vbrp-zadv.
*DEALER FEE
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZCOD' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zcod.
    ENDIF.
    IF it_vbrk_vbrp-zcod IS INITIAL.
      READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZCOA' BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE itab_konv-kwert TO it_vbrk_vbrp-zcod.
      ENDIF.
    ENDIF.
*DEEMED BENEFIT
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZDBK' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zdbk.
    ENDIF.
*OPTIONAL VALUE
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZOPT' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zopt.
    ENDIF.
*FOC COUPON VALUE
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZFOC' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zfoc.
    ENDIF.
*FOC FILTER
    READ TABLE itab_konv WITH KEY knumv = it_vbrk_vbrp-knumv kposn = it_vbrk_vbrp-posnr kschl = 'ZFCF' BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE itab_konv-kwert TO it_vbrk_vbrp-zfcf.
    ENDIF.
Net Realisation
    it_vbrk_vbrp-netreal = it_vbrk_vbrp-kzwi1 - ( it_vbrk_vbrp-zcod +
                               it_vbrk_vbrp-zopt + it_vbrk_vbrp-zfoc
                              + it_vbrk_vbrp-zfcf ).
    CLEAR : vbelv,posnv.
    vbelvp = it_vbrk_vbrp-aubel.
    vbelv = it_vbrk_vbrp-vgbel.
    posnv = it_vbrk_vbrp-posnr.
    CLEAR kunnr.
    CLEAR adrnr.
Getting Sales type
    SELECT SINGLE kvgr2 INTO it_vbrk_vbrp-kvgr2
                        FROM vbak
                        WHERE vbeln = vbelvp.
    SELECT SINGLE bezei INTO it_vbrk_vbrp-stypetext
                        FROM tvv2t
                        WHERE spras = 'EN'
                        AND kvgr2 = it_vbrk_vbrp-kvgr2.
PWC code Desc
    SELECT SINGLE bezei INTO it_vbrk_vbrp-bezei5
                        FROM tvm5t
                        WHERE spras = 'EN'
                        AND   mvgr5 = it_vbrk_vbrp-mvgr5.
    SELECT SINGLE bstkd bstdk INTO (it_vbrk_vbrp-bstkd,
    it_vbrk_vbrp-bstdk)
                              FROM vbkd
                             WHERE vbeln = it_vbrk_vbrp-aubel
                             AND posnr EQ '0'.
    CLEAR kunnr.
    CLEAR adrnr.
    SELECT SINGLE kunnr adrnr INTO (kunnr,adrnr) FROM vbpa
                                   WHERE vbeln = vbelv
                                   AND posnr = '0'
                                   AND   parvw = 'WE'.
*ship-to city
    SELECT SINGLE name1 name2 ort01 INTO
                    (it_vbrk_vbrp-name2,it_vbrk_vbrp-name3,
                    it_vbrk_vbrp-ort01)
                    FROM kna1
                    WHERE kunnr = kunnr.
    CLEAR kunnr1.
    SELECT SINGLE kunnr INTO kunnr1 FROM vbpa
                                   WHERE vbeln = vbelvp
                                   AND posnr = '0'
                                   AND   parvw = 'ZF'.
    CLEAR it_vbrk_vbrp-fname.
    SELECT SINGLE name2 INTO
                    (it_vbrk_vbrp-fname)
                    FROM kna1
                    WHERE kunnr = kunnr1.
    CLEAR country.
    CLEAR: it_vbrk_vbrp-addr1,it_vbrk_vbrp-addr2,it_vbrk_vbrp-name3,
    it_vbrk_vbrp-city1,it_vbrk_vbrp-country.
    SELECT SINGLE name3 street str_suppl1 str_suppl2 city1 city2 country
    INTO
                         (it_vbrk_vbrp-name3,it_vbrk_vbrp-street,
                         it_vbrk_vbrp-addr1,it_vbrk_vbrp-addr2,
                         it_vbrk_vbrp-city1,it_vbrk_vbrp-city2,
                         it_vbrk_vbrp-country)
                         FROM adrc
                         WHERE addrnumber = adrnr.
    CLEAR it_vbrk_vbrp-landx.
    SELECT SINGLE landx INTO it_vbrk_vbrp-landx FROM t005t
                        WHERE spras = 'EN'
                        AND   land1 = country.
    CLEAR obknr.
    CLEAR equnr.
    CLEAR it_vbrk_vbrp-typbz.
Model and Serial No Ref
    SELECT SINGLE obknr INTO obknr FROM ser01
                                   WHERE lief_nr = it_vbrk_vbrp-vgbel
                                   AND   posnr   = it_vbrk_vbrp-vgpos.
    IF sy-subrc EQ 0.
      SELECT DISTINCT equnr sernr taser INTO TABLE it_objk
                                     FROM objk
                                     WHERE obknr = obknr.
                                    AND   taser = 'SER01'.
      LOOP AT it_objk.
        IF it_objk-taser NE 'SER01'.
          DELETE it_objk.
        ENDIF.
      ENDLOOP.
      READ TABLE it_objk INDEX 1.
      IF sy-subrc

Hi,
if you want to leave the program and go back to the code then use.
when 'BACK'.
set screen 0.
leave program.
or if you want to go back to selection screen
when 'BACK'.
leave to screen 0.
thanks
vivekanand

Creation of tax codes,

Experts:-
Creation of Tax codes,
(RELATED TO EXICE DUTY)
plz give the customization path (T-Code) FTXP , when ever enter that one
comes Country---IN
then Enter
give the tax code, where hre we give juridiction coe and valid date, ( I am enter there is no specifiction, is not come validate, juridication codes here plz help for this one)
Edited by: ameer rai on Jun 18, 2008 9:35 AM

Hello Ameer,
Config Steps for Taxes on Sales & Purchasses can broadly be stated as follow:-
1.Basic Settings
2.Calculation
3.Posting
1.Basic Settings
Spro>Financial Accounting>Financial Accounting Global Settings>Taxes on Sales & Purchases>Basic Settings
Define and Assign Calculation Procedure to Country
2.Calculation
Define Tax Code - T Code FTXP
Spro>Financial Accounting>Financial Accounting Global Settings>Taxes on Sales & Purchases> Calculation-->Define tax codes for sales & purchases
In this step you are required to define the tax codes to be used in the business process.
3.Postings
Assign GL Accounts - OB40
Once the Tax Codes have been created, GL accounts have to be assigned to various transactions for the flow of tax values
If useful pl assign points *******
Tahnks
Para

Pricing problem : one product two treatment,one single customer

dear all,
i am facing a strange problem
i m having some material which is under one division one distribution channel and one sale organization,and also the customer is same,but the customer some times taking the product for internal use of their company so they order it as general product and charging 4% tax on it
and some times they are asking product as spare and the spare is rate is hihg ,the tax is 12.5%then additional cess and exice duty is there
so the treat ment is totally different
can any body help me to solve this
shoud i make another division
should i make another distribution channel shoud i use another pricing procedure
should i use another order type to raise the order
please please solve the problem
regards
subrat
[email protected]

Hi Subrat,
Pls split the problem as follows.
In the system perspective, what will differentiate the internal sales from general sales or spare parts sale. To my understanding, if soemthing is sold for internal sales, it is sold in a particular way(Distribution channel) which is different from the way it is sold as a spare part. So extend this material to two D.C., one for internal sales and another for sparepart sales.
Also find out who will be the partners in both the cases. Are there any dedicated partners for one process who cant be a partner for other process. For example a payer for internal sales cant be a payer for spare part sales.
Like this try to find out the unique organisational entities for both the processes.
Then create your condition tables based on these entities so that you can maintain different values for the same condition type based on different values of the organisational entities (Distribution channel, payer, sold to party etc)
Please assign reward point if this approach helps you to solve the problem.

Excise rates not captured during GR

Dear All,
I am facing a problem while doing GR for DEPOT.
Goods have been transferred from manufacturing plant to DEPOT.
During MIGO I am able to get the base exiceable value, basic exice duty value, ECess value and HSECess value.
But I am unable to fetch the rates for BED, ECS and HCS.
Even I have manually maintained the 8%, 2% & 1% respectively for BED, ECS and HCS. But it is not saved during GR.
Can any one help me to fetch the duty rate during MIGO for DEPOT stock trnasfer?
Thanks & Regards
Piyush

Dear Ajit,
It has been already maintained in the STO. As I had already mentioned that values[Amount] is flowing but rates are flowing for the BED, ECS and HCS.
My requirement is to get the excise duty rates in the MIGO transation during GR.
Thanks & Regards
Piyush

Can we use two pricing procedure for same sales area

can we assign two pricing procedure to the same sales area
please suggest

hi all,
i am facing a strange problem
i m having some material which is under one division one distribution channel and one sale organization,and also the customer is same,but the customer some times taking the product for internal use of their company so they order it as general product and charging 4% tax on it
and some times they are asking product as spare and the spare is rate is hihg ,the tax is 12.5%then additional cess and exice duty is there
so the treat ment is totally different
can any body help me to solve this
shoud i make another division
should i make another distribution channel shoud i use another pricing procedure
should i use another order type to raise the order
please please solve the problem
now tell two pricing procedure will help or not???????????????
regards
subrat
[email protected]

Dummy TAX CODE

while working with TAXINN
In MM (which works on Tax procedur TAXINN) while creating condition record for excise duty in FV11 we maintain tax code in record.
In SD , ( which works on SD Pricing procedure),while creating condition record for exice duty in VK11 we dont maintain tax code in record .
whereas while creating condition record for LST & CST in SD we maintain tax code for Taxes.
why in MM we use TAX CODE not in SD for EXcise duty? what is purpose behind it ?
or pl could anyone tale me significance of dummy TAX CODE code in TAXINN   MM.
if i dont put dummy tax in FV11 condition record & remove that field.
where will i stuck up?

Hi ,
Pl. refer the Below thread of OSS Note ::952289.
3. At the time of invoice verification in MIRO, when 'Tax' tab is clicked, there is a dump.
Answer: The tax procedure TAXINN is a condition based tax procedure and hence the tax code does not play a role in the tax calculation. None of the tax conditions are active in the tax code which is entered in MIRO to calculate tax. Hence, when you click on the 'Tax' tab in MIRO, it searches for active tax conditions in the tax code. Since it doesn't find any, it dumps.
In order to resolve the issue of the dump faced in MIRO, the following has to be done->
           1. Create a dummy condition type. (Can copy the JMOQ condition type and create the same). Assign the access sequence 'MWST' to this new condition type.
           2. Maintain a dummy condition record for the access sequence MWST for the tax code being used. (Maintain the TaxCl1Cust, TaxCl.Mat and Amount field as 0 for this dummy record)
           3. Assign this condition type to the tax procedure TAXINN (like JMOQ)
           4. Through FTXP, activate the line for the new condition type. (enter the tax percentage rate as 0)
           5. Now run the transaction MIRO.
This will resolve the dump in the transaction MIRO.
4. For direct posting to FI through the transaction FB60/ FB70, the tax calculation is not taking place.
Answer: Ensure that the following steps are carried out -
1. Insert the condition table 003 in the access sequence JTAX one above
the last step. DO NOT MARK IT AS EXCLUSIVE.
2. Create new set of TAX codes to be used in FI only.
3. Maintain condition records for these tax code using the table 003,
through FV11 with the appropriate tax percentage.
5. System does not allow posting of small differences (positive or negative) in invoice verification (MIRO), even though it is within the tolerance limits. Error message no. FF704, "Tax code in procedure TAXINN is invalid", is displayed in MIRO.
Answer: Set the tax code 00 in "Assign tax code to company code",maintain Condition records with Tax Classification combination for zero tax code.
Biswajit

MIRO Tax Issues

Dear Friends,
we have created PO for HSD for IOCL
Basic Price -   100
Exice duty -   10
Add E.Duty -   1
Cess -            2
Primary Frieght - 10
CST   -         3   (Calculated on BP, ED, Add ED, Cess and Fright)
total Po Value - 126.00
while doing MIRO
PO Value showing -   116.00
Fright -         10
however our account dept saying CST will be separate shown in MIRO. how it solved.    if we use condition CST in Invoice TAB   then PO Amount will be show wrong amount ( it not include fright amount).
so kindly advice
Regards
Rajesh G

Mr. Dewang
we have used CST at Item Level.   PO is fine..    but issue is   at MIRO.   while doing MIRO    material value showing except frieght value.
also CST which calculated on Frieght not showing in Fright amount.
if i maintain CST condition in Invoice Tab in PO.. it not calculating on Fright Amount etc.. then PO amount will be incorrect.
thanks
Rajesh G

Exice duty Inclisive

Similar Messages

Maybe you are looking for