BSEG-BELNR based on VBRK-VBELN
Dear All,
Happpy Diwali.
I want BSEG-BELNR based on Invoice no(VBRK-VBELN).
Please tale me another way to get same data as per below code.
DATA : V_BELNR TYPE BKPF-BELNR.
LOOP AT IT_DATA .
SELECT SINGLE BELNR
INTO V_BELNR
FROM BSEG
WHERE VBELN = IT_DATA-INVNO
AND SHKZG = 'S'.
if sy-subrc = 0.
iT_DATA-BELNR = V_BELNR .
MODIFY IT_DATA TRANSPORTING BELNR.
endif.
CLEAR V_BELNR.
ENDLOOP.
Kindly advice another select query for above query.
Regards,
Parshuram.
Hi Parshuram,
Please Select the BKPF-BELNR where BKPF-AWKEY = VBRK-VBELN And BKPF-AWTYP = 'VBRK' .
Select BSEG-BELNR from BSEG WHERE BUKRS = BKPF-BUKRS
BELNR = BKPF-BELNR
GJAHR = BKPF-GJAHR.
This Solution will work fast and efficiently.
Regards ,
Maruthi
Similar Messages
-
How to find the table relationship between BSEG-BELNR with CE11000 table.
Hi,
Please help me to find out the table relationship between BSEG with CE11000 table.
I have BSEG-BELNR value.
Thanks in Advance
ShankarHello,
BAsically the relationship can be foundon the basis of cost centre it will be good if you paste the structure ce11000.
I have worked on it and as far i as i can recall it contain value fields right...like vv205,vv305 etc?
Provide me more details.
Are you preparing some reconcillation report for costing based COPA or Account based COPA..?
Hopefully will help you out..
Regards,
Nabheet -
Unable to capture the value of vbrk-vbeln value from VF02
Hi All,
am printing form from VF02 ,,,once i execute the VF02 , and select Billing Document -> Issue Output to option .., my printi program gets triggered ,......,
but in my print program am unable to capture the value of VBRK-VBELN which i have entered in the VF02 tcode..
any other table the value of VBELN is stored???
pls help me out with the alternatives...
thanks
johnHi Dhiraj
One doubt how the value is populating in the NAST in the Print Program . While debugging i'm getting the Values from NAST but i want to know from where NAST is loading with these data.
Thanks
Bintu -
Any FM / CLASS to change/update the Invoice-VBRK-VBELN?
Hello Experts,
Pls. let me know that is there any FM / CLASS to change/update the existing Invoice-VBRK-VBELN?
BECAUSE my requirement is that I need to update/change the field - VBRK-RFBSK ('Status for transfer to accounting') of an existing Invoice in VBRK table/VF03 Tx in the system.
Thank youHi
Why do you need to change VBRK-RFBSK, this field indicates if the bill was trasnferd to the accounting
Max -
How to retrieve value of VBRK-VBELN ie. billing doc number on save of VF01
Hi friends,
I am working on a scenario where I need to update my custom table with values of Sales org, billign date and Billign document number on saving of VF01. I have tried using RV60AFZC include and user exit: USEREXIT_FILL_VBRK_VBRP.
But on debugging when I save VF01, I am able to retrieve values VKORG and billing date FKDAT, but I am not able to retrieve VBRK-VBELN field. This is the billing document number.
Can you kindly suggest me how can I retrieve my values for I can update my custom table.
Regards
Dolly AroraHello ,
firstly use "/h" on VF01 t-code before saving document, with on debugging mode use menu bar breakpoint at statement and write this statement "CALL CUSTOMER FUNCTION" , when you see that statement,double click them and you can go that function modules, activate begin charachter Z* customer namespace customer exits which is in function modules ,use breakpoint in this customer include programs,and activate them. you can again run with debugging mode VF01 t-code and save document during you see VBRK-VBELN billing number,test your program be carefully ,
regards,
Ugur Baris Turkeli
SAP Certified ABAP Consultant -
BADI - ENHANCEMENT TO GET BSEG-BELNR
Hi experts,
Im using the Transaction 'VF02' to post accounting documents from invoices, i need to put on the field BSEG-REBZG the final document number 'BSEG-BELNR' of that accounting document.
I was looking for some BADi's, BTE's.. and always the FIELD BSEG-BELNR value is invoice number or something like '$1'.
ThanksFor anybody needed,
I solved it applying enhancement point in program: SAPLFACI, FORM: FI_DOCUMENT_PREPARE. -
Fetching CaseID using Document number (BSEG-BELNR)
Hi Team,
I need to fetch the dispute case id using the accounting document number .
T-Code FB03
I need relation between BSEG-BELNR and SCMG_T_CASE_ATTR-EXT_KEY.
Any suggestions welcome.
Regards
Sukhjinderhey,
try to use the FM 'FDM_COLL_INVOICES_READ' to fetch the ext_key
regards,
sampath -
Hello,
I need to link sales orders in VBRP and VBRK to their respective GL line entries in BSEG. Dos anyone have a SQL query that accomplishes this? I'm not sure what the relationships are between BSEG and these sales tables.
Any help would be greatly appreciated!
Thanks,Hello,
Thanks for the answer, however it's not quite what I was looking for.
To make it easy, here's what I need:
SELECT *
FROM VBRP a
INNER JOIN BSEG b ON (a.VBELN = b.VBELN AND a.? = b.?)
I need a query that gets me from the VBRP table to the BSEG table. I know I can link on the invoice number (VBELN), but I'm not sure how to complete the link since the link is from one detail table to another detail table. Does VBRP.VBPOS equate to something in the BSEG table?
Basically I'm trying to get a listing of each invoice (with SQL) and figure out what the GL segments were for that invoice.
Hope this clears things up.
Cheers -
Header Level Cash Discount For VBRK-VBELN, Where Can I get?
Hi Experts,
I know the # of VBELN of VF03 (VBRK), now, I need to pull the data of,
<b>1- Header Level Cash Discount - Condition Value and
2 - Header Level Cash Discount - Amount i.e.
% Value.</b>
Normally, I know the procedure is,
(The relationship is )
KONV-KNUMV = VBRK-KNUMV
For all the columns the field KONV-KWERT can be used
But, its ITEM level, where as I am looking for Header Level?
So, Where Can I get the VBRK-KNUMV Header level,
1- Cash Discount Condition Value data? and
2- Cash Discount Amount data i.e. %
Thank you,
Message was edited by:
SrikharThanQ Sheshu,
No, there is no entry in KONV-KNUMH for KSHCL type of Discounts i.e. SKTV. THere r entries i.e. record #s for Pricing matters! I dont know Y?
So, It seems to b, I hv to use the follwoing code,
at new knumv
SUM (of types KONV-KSHCL = SKTV)
endat.
Or Do u hv any other clue? like, other tables searching?
anyways, thanq -
Link Between RSEG-BELNR and BSEG-BELNR
Hi All,
Please refer the below screen shot and advice how can we pull both Invoice filed in same Zreport.
Regards
Amit AgarwalIf you creating a report for PO payment then please see below docuemnt
Magical Function (2) of SAP Query
Many Thanks -
Any functional module to get financial document based on billing document
hi all,
do we have any functional module to get accounting document (bseg-BELNR) based on billing document (bseg-VBELN)?
i have a requirement to retrieve the clearing document (bseg-augcp) & date(bseg-augdt) from BSEG with billing document.
billing document is not a key, so i would like to retrieve the accounting document from any function module and use that to get clearing document (bseg-augcp) & date(bseg-augdt).
thanks.hi all,
i got other option to get this....thanks.
select single * from bkpf
where bukrs = <data>-werks
and AWTYP = 'VBRK'
and AWKEY = billing doc.
if sy-subrc EQ 0.
select single * from bseg
where bukrs = bkpf-bukrs
and belnr = bkpf-belnr
and gjahr = bkpf-gjahr.
if sy-subrc EQ 0.
<data>-AUGDT = bseg-augdt.
<data>-AUGBL = bseg-augbl.
endif. -
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-subrcHi,
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 -
HI,
my client want the report like below format
Invoice date Cust. Name Invoice NO Descrptn Pymt term code Invoice amount FI doc.No Debit Credit
12.08.2011 Surj exp 9000001 Process chrge 0003 25000 5 25000 23750
VAT 5 % 1250
is it possible in standard SAP the Above Report if yes give me the T-Code
if no provide how to generate the report what are the table and field name i need to consider to generate the above report
Regards,
PrasannaHi
You can get the condition type description in the table T685T pass the KSCHL into this table and get the VTEXT
For conditions get the VBRK-KNUMV and pass this into table KONV-KNUMV , here you will get all the KSCHL
KBETR and KWERT
For Accounting doc you can get it from BKPF-BELNR pass the VBRK-VBELN into this table and get the BELNR.
Instead of Debit and credit in your report format incluse these coloumns
Processing Charges VAT CST TOTAL
10000 400 0 10400
So that you can get these values through your condition types for CST & VAT.
IF you want to go for debit & nCredit then in BSEG table you can get the Debit & Credit in SHKZG
where H= credit & S=debit
regards
Prashanth -
in my invoice i have to get the address for 'ship-to-party','sold-to-party' based on vbrk-vbeln. i clicked F1 on 'ship-to-party'&'sold-to-party' for tables&field names in VA02 screen.
'sold-to-party' -KUAGV-KUNNR
'ship-to-party'-KUWEV-KUNNR.but KUAGV&KUWEV are structures.how to write 'select' statements for this based on VBAK-VBELN or VBRK-VBELN.how to use address node for this?please give solution.Hi Srinivas,
I have some idea .plz see wheather it is useful
First from vbak based on vbeln select kunnr(customer number).
and from kna1 based on kunnr select ADRNR(address number) and LAND1 (country key).
select land(country) from t005 based on country key.
Now in address node give adrnr in address umber field. and country name in selected country field.
Reward points if helpful
Thanks,
Suma. -
Update BSEG-ZUONR with VBRK-BSTKD
Hi experts,
This enhancement will kick in in real time when ever a billing document is generated and it involves posting into accounting.
Update BSEG-ZUONR with VBRK-BSTKD .
I need the substitution rule exit details.
Plz can u tell me that whether I can get BSEG-BELNR value into this substitution rule exit or I should go for something else.
<removed by moderator>
Thanks
Edited by: Thomas Zloch on May 3, 2011 3:17 PM - urgency reducedHi
In my opinion, it will be easier with an enhancement. See Note 301077 - User exits for the interface to accounting. Depending of what kind of item you want update, you can write this code:
xaccit-zuonr = vbrk-bstkd.
In the corresponding ZX* include.
I hope this helps you
Regards
Eduardo
Maybe you are looking for
-
Hello All, I have developed AddOn application which includes crystal report files created with Crystal Report 2008.i wants to able load the report and preview them within my AddOn application.Which Crytsal report 2008 Components do i need to import t
-
my acc is reg in ireland, i am currently in new zealand and bought a gift card, i cant work out how to use it, help!
-
iPhoto 9.5.1 iOS 8.0.2 Mac Mavericks 10.9.5 Using iTunes, when I sync my selected iPhoto albums (on the Mac) to my iPhone and iPad, new photos added to those albums on my Mac are no longer added to the albums on those devices, but rather are orphaned
-
Can I print to my airprint printer if I am not on the same wireless network?
I am trying to print to my printer (HP Color LaserJet Pro MFP M476nw) when I am on the road working. This printer is in my home office and I want to be able tp send items to it during the day so that they are printed and ready when I return at the en
-
I'm not talking about terms in the search results; I'm talking about terms in the search string in the search bar in the upper right corner. (Mine is set to use only Google.) When I've searched on a string and decide to modify the string for a second