07-21-2007 7:28 AM
Hi Folks,
I am having a program which is having 3 radiobuttons.Each
Radiobutton has a different ALV to display.Now I had added
one more radiobutton for one more different ALV display.
when I execute this newly added radiobutton I am getting the
desired output but when I press back button on the menu bar
it is getting me the first radio button's ALV output too.
But when I completely come out of the program and execute
it is fine but if I choose one or two radiobuttons without
leaving the program it is behaving as explained above.
Can anyone here please let me know what needs to be done
to resolve this.
Thanks,
K.Kiran.
07-21-2007 7:36 AM
Hi Kiran,
have you created the 4th radio button with the same RB GROUP of the first 3 radiobuttons or not? check it?
You have to use the same group for this RB also.
then if it is correct check the IF..ELSE..conditions for the Radionuttons..
<b>Reward points for useful Answers</b>
Regards
Anji
07-21-2007 10:16 AM
Hi
Can anyone here let me know where I am going wrong.
Thanks,
K.Kiran.
REPORT zsdr7 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.
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,
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,
*Start of changes by Kiran.K dated 21072007.
sum1 TYPE vbrp-kzwi1, "ZSDR3
sum2 TYPE vbrp-kzwi2, "ZSDR3
sum4 TYPE vbrp-kzwi4, "ZSDR3
sum5 TYPE konv-kwert, "zsdr3-jex2
sum6 TYPE konv-kwert, "zsdr3-jecx
total1 TYPE konv-kwert, "ZSDR3
total2 TYPE konv-kwert, "ZSDR3
total3 TYPE konv-kwert, "ZSDR3
total4 TYPE konv-kwert,
*End of Changes by Kiran.K dated 21072007.
END OF it_vbrk_vbrp.
*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.
*Start of Changes by Kiran.K dated 21072007.
DATA it_vbrk_vbrp3 LIKE it_vbrk_vbrp OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF it_temp OCCURS 0,
kwert LIKE konv-kwert,
END OF it_temp.
DATA : BEGIN OF it_diff OCCURS 0,
kwert LIKE konv-kwert,
END OF it_diff.
DATA wa_it_vbrk_vbrp3 LIKE it_vbrk_vbrp3.
data:l_okcode like ok_code.
*End of Changes for Kiran.K dated 21072007.
**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,
*Start of Changes by Kiran.K dated 21072007.
test RADIOBUTTON GROUP grp1.
*End of Changes by Kiran.K dated 21072007.
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.
<b>if test = 'X'.
PERFORM testfilter.
PERFORM test.
endif.</b>*
&----
*
*& 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
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.
*Start of Changes by Kiran.K dated 21072007.
KZWI1
SELECT SUM( kzwi1 ) INTO it_vbrk_vbrp-sum1 FROM vbrp
WHERE vbeln = it_vbrk_vbrp-vbeln.
KZWI2.
SELECT SUM( kzwi2 ) INTO it_vbrk_vbrp-sum2 FROM vbrp
WHERE vbeln = it_vbrk_vbrp-vbeln.
KZWI4.
SELECT SUM( kzwi4 ) INTO it_vbrk_vbrp-sum4 FROM vbrp
WHERE vbeln = it_vbrk_vbrp-vbeln.
*End of Changes by Kiran.K dated 21072007.
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.
*Start of Insertion. Req: CQDK924167
*Save in ALv Layout option provided
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.
*Start of Insertion for Debit Note Credit Note Changes on Request CQDK924138
IF sales = '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.
*zsdr3.
*IF test = 'X'.
*perform testfilter.
*endif.
*zsdr3.
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.
sum5 like konv-kwert, "jex2
sum6 like konv-kwert. "jecx
*
LOOP AT it_vbrk_vbrp.
CLEAR itab_konv.
PERFORM taxamount.
*Start of changes by Kiran.K dated 21072007.
Exice duty.- JEX2
SELECT kwert INTO TABLE it_temp
FROM konv
WHERE knumv = it_vbrk_vbrp-knumv
and kposn = it_vbrk_vbrp-posnr
AND kschl = 'JEX2'.
CLEAR sum.
LOOP AT it_temp.
sum = sum + it_temp-kwert.
ENDLOOP.
MOVE sum TO it_vbrk_vbrp-jex2.
MOVE it_vbrk_vbrp-jex2 TO it_vbrk_vbrp-sum5.
REFRESH it_temp.
CLEAR it_temp.
CLEAR sum.
Education Cess - JECX
SELECT kwert INTO TABLE it_temp
FROM konv
WHERE knumv = it_vbrk_vbrp-knumv
and kposn = it_vbrk_vbrp-posnr
AND kschl = 'JEXC'.
CLEAR sum.
LOOP AT it_temp.
sum = sum + it_temp-kwert.
ENDLOOP.
MOVE sum TO it_vbrk_vbrp-jecx.
MOVE it_vbrk_vbrp-jecx TO it_vbrk_vbrp-sum6.
REFRESH it_temp.
CLEAR it_temp.
CLEAR sum.
*End of Changes by Kiran.K dated 21072007.
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.
*Start of Changes by Kiran.K dated 21072007.
*for ZSDR total cst and lst.
it_vbrk_vbrp-total1 = it_vbrk_vbrp-sum1 +
it_vbrk_vbrp-sum2 +
it_vbrk_vbrp-sum5 +
it_vbrk_vbrp-sum6.
*End of Changes by Kiran.K dated 21072007.
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.
*Start of Changes by Kiran.K dated 21072007.
MOVE it_vbrk_vbrp-total1 TO it_vbrk_vbrp-total2.
*End of Changes by Kiran.K dated 21072007.
ELSE.
MOVE it_vbrk_vbrp-turn TO it_vbrk_vbrp-turn_cst.
*Start of Changes by Kiran.K dated 21072007.
MOVE it_vbrk_vbrp-total1 TO it_vbrk_vbrp-total3.
*End of Changes by Kiran.K dated 21072007.
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.
*Start of Changes by Kiran.K dated 21072007.
*for zsdr3 TOTAL.
it_vbrk_vbrp-total4 = it_vbrk_vbrp-total1 + "turn
it_vbrk_vbrp-jin1 +
it_vbrk_vbrp-jin2 +
it_vbrk_vbrp-jin5 +
it_vbrk_vbrp-sum4.
*End of Changes by Kiran.K dated 21072007.
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 = 0.
MOVE it_objk-equnr TO equnr.
MOVE it_objk-sernr TO it_vbrk_vbrp-serge.
ENDIF.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = it_vbrk_vbrp-serge
IMPORTING
output = it_vbrk_vbrp-serge.
SELECT SINGLE typbz INTO it_vbrk_vbrp-typbz
FROM equi
WHERE equnr = equnr.
ENDIF.
Excise Document Number
*Query written to utilise index-REF DOC1 WITH TRNTYP in J_1IEXCDTL table
SELECT SINGLE exnum INTO it_vbrk_vbrp-exnum FROM j_1iexcdtl
WHERE trntyp = 'DLFC'
AND rdoc1 = it_vbrk_vbrp-vgbel
AND ritem1 = it_vbrk_vbrp-vgpos
AND rind1 = 'D'.
Region Description
SELECT SINGLE bezei INTO it_vbrk_vbrp-bezei FROM t005u
WHERE spras = 'EN'
AND land1 = 'IN'
AND bland = it_vbrk_vbrp-regio.
Bill to party description
SELECT SINGLE name1 INTO it_vbrk_vbrp-name1 FROM kna1
WHERE kunnr = it_vbrk_vbrp-kunag.
CST reg number/Tin Number w.r.t vbpa-sold to party
SELECT SINGLE j_1icstno INTO it_vbrk_vbrp-j_1icstno FROM j_1imocust
WHERE kunnr = kunnr.
IF sy-subrc <> 0.
SELECT SINGLE stcd1 INTO it_vbrk_vbrp-j_1icstno FROM kna1
WHERE kunnr = kunnr.
ENDIF.
LST reg number/Tin Number w.r.t vbpa-sold to party
SELECT SINGLE j_1ilstno INTO it_vbrk_vbrp-j_1ilstno FROM j_1imocust
WHERE kunnr = kunnr.
IF sy-subrc <> 0.
SELECT SINGLE stcd1 INTO it_vbrk_vbrp-j_1ilstno FROM kna1
WHERE kunnr = kunnr.
ENDIF.
Billing Desc
SELECT SINGLE vtext INTO it_vbrk_vbrp-vtext FROM tvfkt
WHERE spras = 'EN'
AND fkart = it_vbrk_vbrp-fkart.
Dealer Desc
SELECT SINGLE ktext INTO it_vbrk_vbrp-ktext FROM t151t
WHERE spras = 'EN'
AND kdgrp = it_vbrk_vbrp-kdgrp_auft.
*reason
SELECT SINGLE augru FROM vbak INTO it_vbrk_vbrp-augru
WHERE vbeln = it_vbrk_vbrp-aubel.
SELECT SINGLE bezei FROM tvaut INTO it_vbrk_vbrp-reason
WHERE augru = it_vbrk_vbrp-augru
AND spras = 'EN'.
IF it_vbrk_vbrp-vbtyp = 'M'.
it_vbrk_vbrp-xblnr = space.
ENDIF.
CLEAR itab_konv.
MODIFY it_vbrk_vbrp.
CLEAR it_vbrk_vbrp.
ENDLOOP.
ENDFORM. " calculation
&----
*& Form eventtab_build
&----
text
----
<--P_ALV_EVENTS text
----
FORM eventtab_build CHANGING lt_events TYPE slis_t_event.
CONSTANTS:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = lt_events.
READ TABLE lt_events WITH KEY name = slis_ev_top_of_page
INTO ls_event.
IF sy-subrc = 0.
MOVE gc_formname_top_of_page TO ls_event-form.
APPEND ls_event TO lt_events.
ENDIF.
ENDFORM. " EVENTTAB_BUILD
&----
*& Form comment_build
&----
text
----
<--P_ALV_TOP_OF_PAGE text
----
FORM comment_build CHANGING alv_top_of_page TYPE slis_t_listheader.
ENDFORM. " COMMENT_BUILD
----
FORM USER_COMMAND *
----
--> R_UCOMM *
--> RS_SELFIELD *
----
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
Check function code
CASE r_ucomm.
WHEN '&IC1'.
IF rs_selfield-fieldname = 'VBELN' .
Read data table, using index of row user clicked on
READ TABLE it_vbrk_vbrp INTO wa_it_vbrk_vbrp INDEX
rs_selfield-tabindex.
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.
ENDCASE.
ENDFORM. "user_command
&----
*& Module STATUS_0100 OUTPUT
&----
text
----
MODULE status_0100 OUTPUT.
SET PF-STATUS 'ZSR'.
SET TITLEBAR 'ZSR'.
DATA: lt_exclude TYPE ui_functions.
IF custom_container IS INITIAL.
Create the Custom Container
CREATE OBJECT custom_container
EXPORTING
container_name = c_stk.
Create an instance of alv control
CREATE OBJECT grid1
EXPORTING
i_parent = custom_container.
Layout Settings
gs_layout-sel_mode = 'A'. " Multiple Lines
*Plant Details for Display
SELECT adrnr FROM t001w INTO adrnr1 WHERE werks = plant.
ENDSELECT.
SELECT name1 name2 FROM adrc INTO (plant_name1,plant_name2) WHERE addrnumber = adrnr1.
ENDSELECT.
CONCATENATE plant ' - ' plant_name1 ',' plant_name2 INTO plant_name.
*Company Details
SELECT adrnr FROM t001 INTO adrnr1 WHERE bukrs = p_bukrs.
ENDSELECT.
SELECT name1 name2 FROM adrc INTO (comp_name1,comp_name2) WHERE addrnumber = adrnr1.
ENDSELECT.
CONCATENATE comp_name1 comp_name2 INTO comp_name.
WRITE : s_fkdat-low TO date1,
s_fkdat-high TO date2.
IF credit = 'X'.
CONCATENATE 'Credit Note Register From :' date1 ' To : ' date2 INTO text.
ELSEIF debit = 'X'.
CONCATENATE 'Debit Note Register From :' date1 ' To : ' date2 INTO text.
ELSE.
CONCATENATE 'Sales Register From :' date1 ' To : ' date2 INTO text.
ENDIF.
Begin of MOD01+
Prepare the Field Catalog according the department group
restrict the access to marketing group(dept-name- SALES)
IF v_dname = 'SALES'.
PERFORM prepare_catalog1.
ELSE.
End of MOD01+
PERFORM prepare_catalog.
ENDIF.
if test = 'X'.
PERFORM testfilter.
PERFORM test.
endif.
gs_variant-report = sy-repid.
Display the List for ALV Display
CALL METHOD grid1->set_table_for_first_display
EXPORTING
it_toolbar_excluding = lt_exclude
i_structure_name = 'WA_IT_VBRK_VBRP'
is_print = gs_print
is_layout = gs_layout
is_variant = gs_variant
i_save = 'A'
CHANGING
it_fieldcatalog = it_fieldcatalog[]
it_outtab = it_vbrk_vbrp[].
CREATE OBJECT event_receiver.
SET HANDLER event_receiver->handle_top_of_page FOR grid1.
SET HANDLER event_receiver->handle_user_command FOR grid1.
SET HANDLER event_receiver->handle_toolbar FOR grid1.
SET HANDLER event_receiver->handle_double_click FOR grid1.
CALL METHOD grid1->set_toolbar_interactive.
ENDIF.
CALL METHOD cl_gui_control=>set_focus
EXPORTING
control = grid1.
ENDMODULE. " STATUS_0100 OUTPUT
&----
*& Module USER_COMMAND_0100 INPUT
&----
text
----
MODULE user_command_0100 INPUT.
IF ok_code = 'EXIT'.
CALL METHOD grid1->free.
CALL METHOD cl_gui_cfw=>flush.
LEAVE PROGRAM.
ENDIF.
ENDMODULE. " USER_COMMAND_0100 INPUT
&----
*& Form prepare_catalog
&----
text
----
--> p1 text
<-- p2 text
----
FORM prepare_catalog .
Local Variables
DATA : v_index TYPE i.
IF credit = 'X'.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'VBELN'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Credit Note'.
wafieldcatlog-reptext = 'Credit Note'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ERDAT'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Credit Date'.
wafieldcatlog-reptext = 'Credit Date'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
ENDIF.
IF debit = 'X'.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'VBELN'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Debit Note'.
wafieldcatlog-reptext = 'Debit Note'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ERDAT'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Debit Date'.
wafieldcatlog-reptext = 'Debit Date'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
ENDIF.
IF sales = 'X'.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'VBELN'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Invoice No'.
wafieldcatlog-reptext = 'Invoice No'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Invoice date
v_index = v_index + 1.
wafieldcatlog-fieldname = 'FKDAT'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Invoice Date'.
wafieldcatlog-reptext = 'Invoice Date'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
ENDIF.
Bill to party name1
v_index = v_index + 1.
wafieldcatlog-fieldname = 'NAME1'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Bill to Party'.
wafieldcatlog-reptext = 'Bill to Party'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Ship to party name2
v_index = v_index + 1.
wafieldcatlog-fieldname = 'NAME2'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Ship to Party'.
wafieldcatlog-reptext = 'Ship to Party'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Ship to party name3
v_index = v_index + 1.
wafieldcatlog-fieldname = 'NAME3'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Ship to Party'.
wafieldcatlog-reptext = 'Ship to Party'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
by sangeetha - 28.09.2005 - Ship to party address
v_index = v_index + 1.
wafieldcatlog-fieldname = 'STREET'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Street'.
wafieldcatlog-reptext = 'Street'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ADDR1'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Street 2'.
wafieldcatlog-reptext = 'Street 2'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ADDR2'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Street 3'.
wafieldcatlog-reptext = 'Street 3'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'CITY2'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'District'.
wafieldcatlog-reptext = 'District'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Ship to party city
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ORT01'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Ship to City'.
wafieldcatlog-reptext = 'Ship to City'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Sales Type kvgr2
v_index = v_index + 1.
wafieldcatlog-fieldname = 'KVGR2'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Sales Type'.
wafieldcatlog-reptext = 'Sales Type'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
append wafieldcatlog to it_fieldcatalog.
clear wafieldcatlog-reptext.
clear wafieldcatlog-key.
Sale order no.
Added by Shabeer on 30 Aug. 05
v_index = v_index + 1.
wafieldcatlog-fieldname = 'AUBEL'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Sales Order No.'.
wafieldcatlog-reptext = 'Sales Order No.'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Sales type text
v_index = v_index + 1.
wafieldcatlog-fieldname = 'STYPETEXT'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Sales Type Desc.'.
wafieldcatlog-reptext = 'Sales Type Desc.'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Place
v_index = v_index + 1.
wafieldcatlog-fieldname = 'CITY1'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Place'.
wafieldcatlog-reptext = 'Place'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Financier Name fname
v_index = v_index + 1.
wafieldcatlog-fieldname = 'FNAME'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Financier Name'.
wafieldcatlog-reptext = 'Financier Name'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Created on
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ERDAT'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Invoice Date'.
wafieldcatlog-reptext = 'Invoice Date'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
append wafieldcatlog to it_fieldcatalog.
clear wafieldcatlog-reptext.
clear wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'TYPBZ'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Model'.
wafieldcatlog-reptext = 'Model'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'SERGE'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Serial No Ref'.
wafieldcatlog-reptext = 'Serial No Ref'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'FKIMG'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Invoice Qty'.
wafieldcatlog-reptext = 'Invoice Qty'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'KZWI1'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Base Price'.
wafieldcatlog-reptext = 'Base Price'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Billing Type DESC
v_index = v_index + 1.
wafieldcatlog-fieldname = 'VTEXT'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Billing Doc'.
wafieldcatlog-reptext = 'Billing Doc'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'KZWI2'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Packing'.
wafieldcatlog-reptext = 'Packing'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'JEX2'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Exice Duty'.
wafieldcatlog-reptext = 'Exice Duty'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Addition by S.Lakshmi - 06.11.2004.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'JCES'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Cess'.
wafieldcatlog-reptext = 'Cess'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Ended
v_index = v_index + 1.
wafieldcatlog-fieldname = 'JECX'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Education Cess'.
wafieldcatlog-reptext = 'Education Cess'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
LST turn over
v_index = v_index + 1.
wafieldcatlog-fieldname = 'TURN_LST'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Taxable LST Turnover'.
wafieldcatlog-reptext = 'Taxable LST Turnover'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
CST turn over
v_index = v_index + 1.
wafieldcatlog-fieldname = 'TURN_CST'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Taxable CST Turnover'.
wafieldcatlog-reptext = 'Taxable CST Turnover'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'JIN1'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'CST'.
wafieldcatlog-reptext = 'CST'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'JIN1_PER'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = '%CST'.
wafieldcatlog-reptext = '%CST'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'JIN2'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'LST'.
wafieldcatlog-reptext = 'LST'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'JIN2_PER'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = '%LST'.
wafieldcatlog-reptext = '%LST'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'JIN5'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Surcharge On LST'.
wafieldcatlog-reptext = 'Surcharge On LST'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'JIN5_PER'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = '%Surcharge On LST'.
wafieldcatlog-reptext = '%Surcharge On LST'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'KZWI4'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Freight and Insurance'.
wafieldcatlog-reptext = 'Freight and Insurance'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Addition by shabeer
Calibration cost
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ZCAL'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Calibration cost'.
wafieldcatlog-reptext = 'Calibration cost'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Calibration service charge
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ZSER'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Calibration Service charge'.
wafieldcatlog-reptext = 'Calibration service charge'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Calibration cess on serice
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ZCES'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Calibration - cess on service'.
wafieldcatlog-reptext = 'Calibration - cess on service'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
ST on Freight
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ZSTF'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Service Tax on Freight'.
wafieldcatlog-reptext = 'Service Tax on Freight'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Prasanna adding on 25 July 05
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ZINS'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Insurance'.
wafieldcatlog-reptext = 'Insurance'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ZKF0'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Freight'.
wafieldcatlog-reptext = 'Freight'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'TOTAL'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Total'.
wafieldcatlog-reptext = 'Total'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'BSTKD'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Purchase Order No'.
wafieldcatlog-reptext = 'Purchase Order No'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'BSTDK'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Purchase Order Date'.
wafieldcatlog-reptext = 'Purchase Order Date'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
*Exice Invoice No
v_index = v_index + 1.
wafieldcatlog-fieldname = 'EXNUM'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Exice Invoice No'.
wafieldcatlog-reptext = 'Exice Invoice No'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
*Material No
v_index = v_index + 1.
wafieldcatlog-fieldname = 'MATNR'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Material Number'.
wafieldcatlog-reptext = 'Material Number'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
*Material Description
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ARKTX'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Material Description'.
wafieldcatlog-reptext = 'Material Description'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
*Advance Recieved
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ZADV'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Advance Recieved'.
wafieldcatlog-reptext = 'Advance Recieved'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Net Payable
v_index = v_index + 1.
wafieldcatlog-fieldname = 'NET'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Net Payable'.
wafieldcatlog-reptext = 'Net Payable'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Dealer Fee
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ZCOD'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Dealer Fee'.
wafieldcatlog-reptext = 'Dealer Fee'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Deamed Benifit
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ZDBK'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Deamed Benifit'.
wafieldcatlog-reptext = 'Deamed Benifit'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Optional Value
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ZOPT'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Optional Value'.
wafieldcatlog-reptext = 'Optional Value'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
FOC Coupon Value
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ZFOC'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'FOC Coupon Value'.
wafieldcatlog-reptext = 'FOC Coupon Value'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
FOC Filter Value
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ZFCF'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'FOC Filter Value'.
wafieldcatlog-reptext = 'FOC Filter Value'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Net Realisation
v_index = v_index + 1.
wafieldcatlog-fieldname = 'NETREAL'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Net Realisation'.
wafieldcatlog-reptext = 'Net Realisation'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Dealer Desc
v_index = v_index + 1.
wafieldcatlog-fieldname = 'KTEXT'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Dealer'.
wafieldcatlog-reptext = 'Dealer'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
CST reg number
v_index = v_index + 1.
wafieldcatlog-fieldname = 'J_1ICSTNO'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'CST/TIN No'.
wafieldcatlog-reptext = 'CST/TIN No'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
LST reg number
v_index = v_index + 1.
wafieldcatlog-fieldname = 'J_1ILSTNO'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'LST/TIN No'.
wafieldcatlog-reptext = 'LST/TIN No'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
PWC code
v_index = v_index + 1.
wafieldcatlog-fieldname = 'MVGR5'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'PWC code'.
wafieldcatlog-reptext = 'PWC code'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
PWC Description
v_index = v_index + 1.
wafieldcatlog-fieldname = 'BEZEI5'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'PWC Description'.
wafieldcatlog-reptext = 'PWC Description'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Country
v_index = v_index + 1.
wafieldcatlog-fieldname = 'LANDX'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Country'.
wafieldcatlog-reptext = 'Country'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Bill to party code ( Customer code )
v_index = v_index + 1.
wafieldcatlog-fieldname = 'KUNAG'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Customer Code'.
wafieldcatlog-reptext = 'Customer Code'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
IF credit = 'X' OR debit = 'X'.
*reason
v_index = v_index + 1.
wafieldcatlog-fieldname = 'REASON'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Reason'.
wafieldcatlog-reptext = 'Reason'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
ENDIF.
A/c Doc no.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'BELNR'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'A/C Doc No.'.
wafieldcatlog-reptext = 'A/C Doc No.'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
IF credit = 'X' OR debit = 'X'.
Reference Doc no.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'XBLNR'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Ref Doc No.'.
wafieldcatlog-reptext = 'Ref Doc No.'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Invoice date
v_index = v_index + 1.
wafieldcatlog-fieldname = 'FKDAT'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Invoice Date'.
wafieldcatlog-reptext = 'Invoice Date'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
ENDIF.
*Start of Changes by Kiran.K dated 21072007.
IF test = 'X'.
PERFORM testfilter.
PERFORM test.
*
ENDIF.
*End of Changes by Kiran.K dated 21072007.
ENDFORM. " prepare_catalog
&----
*& Form prepare_catalog1
&----
text
----
--> p1 text
<-- p2 text
----
FORM prepare_catalog1 .
DATA : v_index TYPE i.
IF credit = 'X'.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'VBELN'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Credit Note'.
wafieldcatlog-reptext = 'Credit Note'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ERDAT'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Credit Date'.
wafieldcatlog-reptext = 'Credit Date'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
ENDIF.
IF debit = 'X'.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'VBELN'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Debit Note'.
wafieldcatlog-reptext = 'Debit Note'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ERDAT'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Debit Date'.
wafieldcatlog-reptext = 'Debit Date'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
ENDIF.
IF sales = 'X'.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'VBELN'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Invoice No'.
wafieldcatlog-reptext = 'Invoice No'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Invoice date
v_index = v_index + 1.
wafieldcatlog-fieldname = 'FKDAT'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Invoice Date'.
wafieldcatlog-reptext = 'Invoice Date'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
ENDIF.
Bill to party name1
v_index = v_index + 1.
wafieldcatlog-fieldname = 'NAME1'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Bill to Party'.
wafieldcatlog-reptext = 'Bill to Party'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Ship to party name2
v_index = v_index + 1.
wafieldcatlog-fieldname = 'NAME2'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Ship to Party'.
wafieldcatlog-reptext = 'Ship to Party'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Ship to party name3
v_index = v_index + 1.
wafieldcatlog-fieldname = 'NAME3'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Ship to Party'.
wafieldcatlog-reptext = 'Ship to Party'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Place
v_index = v_index + 1.
wafieldcatlog-fieldname = 'CITY1'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Place'.
wafieldcatlog-reptext = 'Place'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Model
v_index = v_index + 1.
wafieldcatlog-fieldname = 'TYPBZ'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Model'.
wafieldcatlog-reptext = 'Model'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Serial No Ref
v_index = v_index + 1.
wafieldcatlog-fieldname = 'SERGE'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Serial No Ref'.
wafieldcatlog-reptext = 'Serial No Ref'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Invoice quantity
v_index = v_index + 1.
wafieldcatlog-fieldname = 'FKIMG'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Invoice Qty'.
wafieldcatlog-reptext = 'Invoice Qty'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Base price
v_index = v_index + 1.
wafieldcatlog-fieldname = 'KZWI1'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Base Price'.
wafieldcatlog-reptext = 'Base Price'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Packing
v_index = v_index + 1.
wafieldcatlog-fieldname = 'KZWI2'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Packing'.
wafieldcatlog-reptext = 'Packing'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Exice Duty
v_index = v_index + 1.
wafieldcatlog-fieldname = 'JEX2'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Exice Duty'.
wafieldcatlog-reptext = 'Exice Duty'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Cess
v_index = v_index + 1.
wafieldcatlog-fieldname = 'JCES'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Cess'.
wafieldcatlog-reptext = 'Cess'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
CST
v_index = v_index + 1.
wafieldcatlog-fieldname = 'JIN1'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'CST'.
wafieldcatlog-reptext = 'CST'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
LST
v_index = v_index + 1.
wafieldcatlog-fieldname = 'JIN2'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'LST'.
wafieldcatlog-reptext = 'LST'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Srucharge on LST
v_index = v_index + 1.
wafieldcatlog-fieldname = 'JIN5'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Surcharge On LST'.
wafieldcatlog-reptext = 'Surcharge On LST'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Freight & insurance
v_index = v_index + 1.
wafieldcatlog-fieldname = 'KZWI4'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Freight and Insurance'.
wafieldcatlog-reptext = 'Freight and Insurance'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Total
v_index = v_index + 1.
wafieldcatlog-fieldname = 'TOTAL'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Total'.
wafieldcatlog-reptext = 'Total'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
PO number
v_index = v_index + 1.
wafieldcatlog-fieldname = 'BSTKD'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Purchase Order No'.
wafieldcatlog-reptext = 'Purchase Order No'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
PO date
v_index = v_index + 1.
wafieldcatlog-fieldname = 'BSTDK'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Purchase Order Date'.
wafieldcatlog-reptext = 'Purchase Order Date'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
*Exice Invoice No
v_index = v_index + 1.
wafieldcatlog-fieldname = 'EXNUM'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Exice Invoice No'.
wafieldcatlog-reptext = 'Exice Invoice No'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
*Material No
v_index = v_index + 1.
wafieldcatlog-fieldname = 'MATNR'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Material Number'.
wafieldcatlog-reptext = 'Material Number'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
*Material Description
v_index = v_index + 1.
wafieldcatlog-fieldname = 'ARKTX'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Material Description'.
wafieldcatlog-reptext = 'Material Description'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Dealer
v_index = v_index + 1.
wafieldcatlog-fieldname = 'KTEXT'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Dealer'.
wafieldcatlog-reptext = 'Dealer'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
IF credit = 'X' OR debit = 'X'.
*reason
v_index = v_index + 1.
wafieldcatlog-fieldname = 'REASON'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Reason'.
wafieldcatlog-reptext = 'Reason'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
ENDIF.
A/c Doc no.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'BELNR'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'A/C Doc No.'.
wafieldcatlog-reptext = 'A/C Doc No.'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
IF credit = 'X' OR debit = 'X'.
Reference Doc no.
v_index = v_index + 1.
wafieldcatlog-fieldname = 'XBLNR'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Ref Doc No.'.
wafieldcatlog-reptext = 'Ref Doc No.'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
Invoice date
v_index = v_index + 1.
wafieldcatlog-fieldname = 'FKDAT'.
wafieldcatlog-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog-seltext = 'Invoice Date'.
wafieldcatlog-reptext = 'Invoice Date'.
wafieldcatlog-hotspot = ' '.
wafieldcatlog-col_pos = v_index.
APPEND wafieldcatlog TO it_fieldcatalog.
CLEAR wafieldcatlog-reptext.
CLEAR wafieldcatlog-key.
ENDIF.
ENDFORM. " prepare_catalog1
&----
*& Form background
&----
text
----
--> p1 text
<-- p2 text
----
FORM background .
IF v_dname = 'SALES'.
PERFORM pre_cat1.
ELSE.
End of MOD01+
PERFORM pre_cat.
ENDIF.
gd_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
i_callback_program = gd_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =
IS_LAYOUT =
it_fieldcat = it_fieldcatalog1[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = 'A'
IS_VARIANT =
IT_EVENTS = i_events
IT_EVENT_EXIT =
is_print = gd_prntparams
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = it_vbrk_vbrp[]
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE =
I_CALLBACK_PROGRAM = sy-repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT = gs_layout
IT_FIELDCAT = it_fieldcatalog1[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = it_vbrk_vbrp[]
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " background
&----
*& Form pre_cat1
&----
text
----
--> p1 text
<-- p2 text
----
FORM pre_cat1 .
DATA : v_index TYPE i.
IF credit = 'X'.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'VBELN'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Credit Note'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ERDAT'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Credit Date'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
ENDIF.
IF debit = 'X'.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'VBELN'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Debit Note'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ERDAT'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Debit Date'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
ENDIF.
IF sales = 'X'.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'VBELN'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Invoice No'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
Invoice date
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'FKDAT'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Invoice Date'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
ENDIF.
Bill to party name1
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'NAME1'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Bill to Party'.
wafieldcatlog1-reptext = 'Bill to Party'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Ship to party name2
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'NAME2'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Ship to Party'.
wafieldcatlog1-reptext = 'Ship to Party'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Ship to party name3
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'NAME3'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Ship to Party'.
wafieldcatlog1-reptext = 'Ship to Party'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Place
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'CITY1'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Place'.
wafieldcatlog1-reptext = 'Place'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Model
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'TYPBZ'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Model'.
wafieldcatlog1-reptext = 'Model'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Serial No Ref
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'SERGE'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Serial No Ref'.
wafieldcatlog1-reptext = 'Serial No Ref'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Invoice quantity
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'FKIMG'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Invoice Qty'.
wafieldcatlog1-reptext = 'Invoice Qty'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Base price
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'KZWI1'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Base Price'.
wafieldcatlog1-reptext = 'Base Price'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Packing
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'KZWI2'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Packing'.
wafieldcatlog1-reptext = 'Packing'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Exice Duty
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'JEX2'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Exice Duty'.
wafieldcatlog1-reptext = 'Exice Duty'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Cess
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'JCES'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Cess'.
wafieldcatlog1-reptext = 'Cess'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
CST
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'JIN1'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'CST'.
wafieldcatlog1-reptext = 'CST'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
LST
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'JIN2'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'LST'.
wafieldcatlog1-reptext = 'LST'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Srucharge on LST
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'JIN5'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Surcharge On LST'.
wafieldcatlog1-reptext = 'Surcharge On LST'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Freight & insurance
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'KZWI4'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Freight and Insurance'.
wafieldcatlog1-reptext = 'Freight and Insurance'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Total
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'TOTAL'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Total'.
wafieldcatlog1-reptext = 'Total'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
PO number
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'BSTKD'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Purchase Order No'.
wafieldcatlog1-reptext = 'Purchase Order No'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
PO date
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'BSTDK'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Purchase Order Date'.
wafieldcatlog1-reptext = 'Purchase Order Date'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
*Exice Invoice No
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'EXNUM'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Exice Invoice No'.
wafieldcatlog1-reptext = 'Exice Invoice No'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
*Material No
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'MATNR'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Material Number'.
wafieldcatlog1-reptext = 'Material Number'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
*Material Description
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ARKTX'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Material Description'.
wafieldcatlog1-reptext = 'Material Description'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Dealer
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'KTEXT'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Dealer'.
wafieldcatlog1-reptext = 'Dealer'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
IF credit = 'X' OR debit = 'X'.
*reason
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'REASON'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Reason'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
ENDIF.
A/c Doc no.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'BELNR'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'A/C Doc No.'.
wafieldcatlog1-reptext = 'A/C Doc No.'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Reference Doc no.
IF credit = 'X' OR debit = 'X'.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'XBLNR'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Ref Doc No.'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'FKDAT'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Invoice Date'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
ENDIF.
ENDFORM. " pre_cat1
&----
*& Form pre_cat
&----
text
----
--> p1 text
<-- p2 text
----
FORM pre_cat .
DATA : v_index TYPE i.
IF credit = 'X'.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'VBELN'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Credit Note'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ERDAT'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Credit Date'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
ENDIF.
IF debit = 'X'.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'VBELN'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Debit Note'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ERDAT'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Debit Date'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
ENDIF.
IF sales = 'X'.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'VBELN'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Invoice No'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
Invoice date
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'FKDAT'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Invoice Date'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
ENDIF.
Bill to party name1
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'NAME1'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Bill to Party'.
wafieldcatlog1-reptext = 'Bill to Party'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Ship to party name2
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'NAME2'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Ship to Party'.
wafieldcatlog1-reptext = 'Ship to Party'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Ship to party name3
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'NAME3'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Ship to Party'.
wafieldcatlog1-reptext = 'Ship to Party'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
by sangeetha - 28.09.2005 - Ship to party address
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'STREET'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Street'.
wafieldcatlog1-reptext = 'Street'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ADDR1'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Street 2'.
wafieldcatlog1-reptext = 'Street 2'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ADDR2'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Street 3'.
wafieldcatlog1-reptext = 'Street 3'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'CITY2'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'District'.
wafieldcatlog1-reptext = 'District'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Ship to party city
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ORT01'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Ship to City'.
wafieldcatlog1-reptext = 'Ship to City'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Sales Type kvgr2
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'KVGR2'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Sales Type'.
wafieldcatlog1-reptext = 'Sales Type'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
append wafieldcatlog1 to it_fieldcatalog1.
clear wafieldcatlog1-reptext.
clear wafieldcatlog1-key.
Sale order no.
Added by Shabeer on 30 Aug. 05
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'AUBEL'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Sales Order No.'.
wafieldcatlog1-reptext = 'Sales Order No.'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Sales type text
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'STYPETEXT'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Sales Type Desc.'.
wafieldcatlog1-reptext = 'Sales Type Desc.'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Place
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'CITY1'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Place'.
wafieldcatlog1-reptext = 'Place'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Financier Name fname
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'FNAME'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Financier Name'.
wafieldcatlog1-reptext = 'Financier Name'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Created on
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ERDAT'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Invoice Date'.
wafieldcatlog1-reptext = 'Invoice Date'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
append wafieldcatlog1 to it_fieldcatalog1.
clear wafieldcatlog1-reptext.
clear wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'TYPBZ'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Model'.
wafieldcatlog1-reptext = 'Model'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'SERGE'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Serial No Ref'.
wafieldcatlog1-reptext = 'Serial No Ref'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'FKIMG'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Invoice Qty'.
wafieldcatlog1-reptext = 'Invoice Qty'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'KZWI1'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Base Price'.
wafieldcatlog1-reptext = 'Base Price'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Billing Type DESC
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'VTEXT'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Billing Doc'.
wafieldcatlog1-reptext = 'Billing Doc'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'KZWI2'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Packing'.
wafieldcatlog1-reptext = 'Packing'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'JEX2'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Exice Duty'.
wafieldcatlog1-reptext = 'Exice Duty'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Addition by S.Lakshmi - 06.11.2004.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'JCES'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Cess'.
wafieldcatlog1-reptext = 'Cess'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Ended
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'JECX'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Education Cess'.
wafieldcatlog1-reptext = 'Education Cess'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
LST turn over
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'TURN_LST'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Taxable LST Turnover'.
wafieldcatlog1-reptext = 'Taxable LST Turnover'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
CST turn over
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'TURN_CST'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Taxable CST Turnover'.
wafieldcatlog1-reptext = 'Taxable CST Turnover'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'JIN1'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'CST'.
wafieldcatlog1-reptext = 'CST'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
append wafieldcatlog1 to it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'JIN1_PER'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = '%CST'.
wafieldcatlog1-reptext = '%CST'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'JIN2'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'LST'.
wafieldcatlog1-reptext = 'LST'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'JIN2_PER'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = '%LST'.
wafieldcatlog1-reptext = '%LST'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'JIN5'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Surcharge On LST'.
wafieldcatlog1-reptext = 'Surcharge On LST'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'JIN5_PER'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = '%Surcharge On LST'.
wafieldcatlog1-reptext = '%Surcharge On LST'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'KZWI4'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Freight and Insurance'.
wafieldcatlog1-reptext = 'Freight and Insurance'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Addition by shabeer
Calibration cost
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ZCAL'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Calibration cost'.
wafieldcatlog1-reptext = 'Calibration cost'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Calibration service charge
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ZSER'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Calibration Service charge'.
wafieldcatlog1-reptext = 'Calibration service charge'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Calibration cess on serice
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ZCES'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Calibration - cess on service'.
wafieldcatlog1-reptext = 'Calibration - cess on service'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
ST on Freight
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ZSTF'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Service Tax on Freight'.
wafieldcatlog1-reptext = 'Service Tax on Freight'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Prasanna adding on 25 July 05
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ZINS'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Insurance'.
wafieldcatlog1-reptext = 'Insurance'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ZKF0'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Freight'.
wafieldcatlog1-reptext = 'Freight'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'TOTAL'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Total'.
wafieldcatlog1-reptext = 'Total'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'BSTKD'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Purchase Order No'.
wafieldcatlog1-reptext = 'Purchase Order No'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'BSTDK'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Purchase Order Date'.
wafieldcatlog1-reptext = 'Purchase Order Date'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
*Exice Invoice No
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'EXNUM'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Exice Invoice No'.
wafieldcatlog1-reptext = 'Exice Invoice No'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
*Material No
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'MATNR'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Material Number'.
wafieldcatlog1-reptext = 'Material Number'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
*Material Description
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ARKTX'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Material Description'.
wafieldcatlog1-reptext = 'Material Description'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
*Advance Recieved
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ZADV'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Advance Recieved'.
wafieldcatlog1-reptext = 'Advance Recieved'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Net Payable
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'NET'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Net Payable'.
wafieldcatlog1-reptext = 'Net Payable'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Dealer Fee
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ZCOD'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Dealer Fee'.
wafieldcatlog1-reptext = 'Dealer Fee'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Deamed Benifit
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ZDBK'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Deamed Benifit'.
wafieldcatlog1-reptext = 'Deamed Benifit'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Optional Value
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ZOPT'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Optional Value'.
wafieldcatlog1-reptext = 'Optional Value'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
FOC Coupon Value
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ZFOC'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'FOC Coupon Value'.
wafieldcatlog1-reptext = 'FOC Coupon Value'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
FOC Filter Value
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'ZFCF'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'FOC Filter Value'.
wafieldcatlog1-reptext = 'FOC Filter Value'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Net Realisation
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'NETREAL'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Net Realisation'.
wafieldcatlog1-reptext = 'Net Realisation'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Dealer Desc
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'KTEXT'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Dealer'.
wafieldcatlog1-reptext = 'Dealer'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
CST reg number
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'J_1ICSTNO'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'CST reg number'.
wafieldcatlog1-reptext = 'CST reg number'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
LST reg number
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'J_1ILSTNO'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'LST reg number'.
wafieldcatlog1-reptext = 'LST reg number'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
PWC code
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'MVGR5'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'PWC code'.
wafieldcatlog1-reptext = 'PWC code'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
PWC Description
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'BEZEI5'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'PWC Description'.
wafieldcatlog1-reptext = 'PWC Description'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Country
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'LANDX'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Country'.
wafieldcatlog1-reptext = 'Country'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Bill to party code ( Customer code )
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'KUNAG'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Customer Code'.
wafieldcatlog1-reptext = 'Customer Code'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
IF credit = 'X' OR debit = 'X'.
*reason
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'REASON'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Reason'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
ENDIF.
A/c Doc no.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'BELNR'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'A/C Doc No.'.
wafieldcatlog1-reptext = 'A/C Doc No.'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
clear wafieldcatlog1-reptext.
CLEAR wafieldcatlog1-key.
Reference Doc no.
IF credit = 'X' OR debit = 'X'.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'XBLNR'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Ref Doc No.'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
v_index = v_index + 1.
wafieldcatlog1-fieldname = 'FKDAT'.
wafieldcatlog1-tabname = 'IT_VBRK_VBRP'.
wafieldcatlog1-seltext_l = 'Invoice Date'.
wafieldcatlog1-hotspot = ' '.
wafieldcatlog1-col_pos = v_index.
APPEND wafieldcatlog1 TO it_fieldcatalog1.
CLEAR wafieldcatlog1-key.
ENDIF.
ENDFORM. " pre_cat
&----
*& Form get_unrel_item
&----
text
----
--> p1 text
<-- p2 text
----
FORM get_unrel_item .
***To select the Unrealsed Billing Documents..
PERFORM tab_fuellen_vorbereiten.
PERFORM tab_fuellen.
DESCRIBE TABLE gt_vmcfa LINES sy-tfill.
IF sy-tfill = 0.
MESSAGE 'No documents were found for these selection criteria' TYPE 'S'.
EXIT.
ENDIF.
LOOP AT gt_vmcfa.
MOVE gt_vmcfa-vbeln TO itab_temp-vbeln.
APPEND itab_temp.
ENDLOOP.
ENDFORM. " get_unrel_item
&----
*& Form TAB_FUELLEN_VORBEREITEN
&----
FORM tab_fuellen_vorbereiten.
alles = '_'.
allea = '_'.
alleb = '_'.
allef = '_'.
alleg = '_'.
allek = '_'.
allen = '_'.
allea = 'A'.
alleb = 'B'.
alles = ' '.
allen = 'N'.
allef = 'F'.
alleg = 'G'.
allek = 'K'.
ENDFORM. " TAB_FUELLEN_VORBEREITEN
----
FORM TAB_FUELLEN *
----
FORM tab_fuellen.
DATA : BEGIN OF xm_vmcra OCCURS 50.
INCLUDE STRUCTURE m_vmcra.
DATA : END OF xm_vmcra.
SELECT * FROM m_vmcfa INTO TABLE gt_vmcfa
WHERE vkorg = vkorg
AND erdat IN s_fkdat
AND fkart IN s_fkart.
SELECT * FROM m_vmcra INTO TABLE xm_vmcra
WHERE vkorg = vkorg
AND erdat IN s_fkdat
AND fkart_rl IN s_fkart.
CLEAR gt_vmcfa.
LOOP AT xm_vmcra.
MOVE-CORRESPONDING xm_vmcra TO gt_vmcfa.
MOVE xm_vmcra-fkdat_rl TO gt_vmcfa-fkdat.
MOVE xm_vmcra-fkart_rl TO gt_vmcfa-fkart.
MOVE 'R' TO gt_vmcfa-fktyp.
APPEND gt_vmcfa.
ENDLOOP.
CLEAR gt_vmcfa.
LOOP AT gt_vmcfa.
PERFORM fakturatyp_ermitteln.
PERFORM fakturaart_ermitteln.
PERFORM name_ermitteln USING gt_vmcfa-kunrg gt_vmcfa-name1.
PERFORM name_ermitteln USING gt_vmcfa-kunag gt_vmcfa-name2.
MODIFY gt_vmcfa.
ENDLOOP.
SORT gt_vmcfa BY erdat vbeln.
LOOP AT gt_vmcfa.
CASE gt_vmcfa-rfbsk.
WHEN ' '.
gt_vmcfa-vfuvgr = text-ug0.
WHEN 'A'.
gt_vmcfa-vfuvgr = text-uga.
WHEN 'B'.
gt_vmcfa-vfuvgr = text-ugb.
WHEN 'F'.
gt_vmcfa-vfuvgr = text-ugf.
WHEN 'G'.
gt_vmcfa-vfuvgr = text-ugg.
WHEN 'K'.
gt_vmcfa-vfuvgr = text-ugk.
WHEN 'N'.
gt_vmcfa-vfuvgr = text-ug0.
ENDCASE.
MODIFY gt_vmcfa.
ENDLOOP.
ENDFORM. "tab_fuellen
----
FORM Fakturatyp_ermitteln. *
----
FORM fakturatyp_ermitteln.
IF xvbtyp = gt_vmcfa-fktyp.
gt_vmcfa-fktyp_text = text1.
EXIT.
ENDIF.
xvbtyp = gt_vmcfa-fktyp.
CALL FUNCTION 'RV_DOMAIN_VALUE_TEXTS'
EXPORTING
domname = 'FKTYP '
domvalue = xvbtyp
single = ' '
IMPORTING
ddtext = text1.
gt_vmcfa-fktyp_text = text1.
ENDFORM. "fakturatyp_ermitteln
----
FORM Fakturaart_ermitteln. *
----
Belegtyp ermitteln. *
----
FORM fakturaart_ermitteln.
IF fkart_dazu-fkart = gt_vmcfa-fkart.
gt_vmcfa-fkart_text = fkart_dazu-vtext.
EXIT.
ENDIF.
READ TABLE fkart_dazu WITH KEY gt_vmcfa-fkart BINARY SEARCH.
IF sy-subrc = 0.
gt_vmcfa-fkart_text = fkart_dazu-vtext.
ELSE.
CLEAR gt_vmcfa-fkart_text.
SELECT SINGLE * FROM tvfkt WHERE spras = sy-langu
AND fkart = gt_vmcfa-fkart.
IF sy-subrc = 0.
gt_vmcfa-fkart_text = tvfkt-vtext.
fkart_dazu-fkart = tvfkt-fkart.
fkart_dazu-vtext = tvfkt-vtext.
INSERT fkart_dazu INDEX sy-tabix.
ENDIF.
ENDIF.
ENDFORM. "fakturaart_ermitteln
----
FORM NAME_ERMITTELN *
----
FORM name_ermitteln USING kunde name.
IF kunde = name_dazu-kunnr.
name = name_dazu-name1.
EXIT.
ENDIF.
READ TABLE name_dazu WITH KEY kunde BINARY SEARCH.
IF sy-subrc = 0.
name = name_dazu-name1.
ELSE.
CLEAR kna1.
SELECT SINGLE * FROM kna1 WHERE kunnr = kunde.
name_dazu-kunnr = kunde.
name_dazu-name1 = kna1-name1.
name_dazu-ort01 = kna1-ort01.
INSERT name_dazu INDEX sy-tabix.
name = name_dazu-name1.
ENDIF.
ENDFORM. "name_ermitteln
&----
*& Form credit_debit
&----
text
----
--> p1 text
<-- p2 text
----
FORM credit_debit .
LOOP AT it_vbrk_vbrp.
IF it_vbrk_vbrp-vbtyp EQ 'O' OR it_vbrk_vbrp-vbtyp EQ 'P'.
SELECT erdat FROM vbfa INTO it_vbrk_vbrp-erdat WHERE vbeln = it_vbrk_vbrp-vbeln.
ENDSELECT.
IF it_vbrk_vbrp-vbtyp EQ 'O'.
it_vbrk_vbrp-netwr = it_vbrk_vbrp-netwr * '-1' .
it_vbrk_vbrp-fkimg = it_vbrk_vbrp-fkimg * '-1' .
it_vbrk_vbrp-kzwi1 = it_vbrk_vbrp-kzwi1 * '-1' .
it_vbrk_vbrp-kzwi2 = it_vbrk_vbrp-kzwi2 * '-1' .
it_vbrk_vbrp-kzwi4 = it_vbrk_vbrp-kzwi4 * '-1' .
it_vbrk_vbrp-jex2 = it_vbrk_vbrp-jex2 * '-1' .
it_vbrk_vbrp-jces = it_vbrk_vbrp-jces * '-1' .
it_vbrk_vbrp-jecx = it_vbrk_vbrp-jecx * '-1' .
it_vbrk_vbrp-jin1 = it_vbrk_vbrp-jin1 * '-1' .
it_vbrk_vbrp-jin2 = it_vbrk_vbrp-jin2 * '-1' .
it_vbrk_vbrp-jin5 = it_vbrk_vbrp-jin5 * '-1' .
it_vbrk_vbrp-turn = it_vbrk_vbrp-turn * '-1' .
it_vbrk_vbrp-turn_lst = it_vbrk_vbrp-turn_lst * '-1' .
it_vbrk_vbrp-turn_cst = it_vbrk_vbrp-turn_cst * '-1' .
it_vbrk_vbrp-total = it_vbrk_vbrp-total * '-1' .
it_vbrk_vbrp-zadv = it_vbrk_vbrp-zadv * '-1' .
it_vbrk_vbrp-net = it_vbrk_vbrp-net * '-1' .
it_vbrk_vbrp-zcod = it_vbrk_vbrp-zcod * '-1' .
it_vbrk_vbrp-zdbk = it_vbrk_vbrp-zdbk * '-1' .
it_vbrk_vbrp-zopt = it_vbrk_vbrp-zopt * '-1' .
it_vbrk_vbrp-zfoc = it_vbrk_vbrp-zfoc * '-1' .
it_vbrk_vbrp-zfcf = it_vbrk_vbrp-zfcf * '-1' .
it_vbrk_vbrp-netreal = it_vbrk_vbrp-netreal * '-1' .
it_vbrk_vbrp-mwsbk = it_vbrk_vbrp-mwsbk * '-1' .
it_vbrk_vbrp-zdex = it_vbrk_vbrp-zdex * '-1' .
it_vbrk_vbrp-zdec = it_vbrk_vbrp-zdec * '-1' .
it_vbrk_vbrp-dif1 = it_vbrk_vbrp-dif1 * '-1' .
it_vbrk_vbrp-dif2 = it_vbrk_vbrp-dif2 * '-1' .
it_vbrk_vbrp-dif3 = it_vbrk_vbrp-dif3 * '-1' .
it_vbrk_vbrp-dif4 = it_vbrk_vbrp-dif4 * '-1' .
it_vbrk_vbrp-dif5 = it_vbrk_vbrp-dif5 * '-1' .
it_vbrk_vbrp-dif6 = it_vbrk_vbrp-dif6 * '-1' .
it_vbrk_vbrp-deemed_jex2 = it_vbrk_vbrp-deemed_jex2 * '-1' .
it_vbrk_vbrp-deemed_jecs = it_vbrk_vbrp-deemed_jecs * '-1' .
it_vbrk_vbrp-roundoff1 = it_vbrk_vbrp-roundoff1 * '-1' .
it_vbrk_vbrp-roundoff2 = it_vbrk_vbrp-roundoff2 * '-1' .
it_vbrk_vbrp-roundoff3 = it_vbrk_vbrp-roundoff3 * '-1' .
it_vbrk_vbrp-roundoff4 = it_vbrk_vbrp-roundoff4 * '-1' .
it_vbrk_vbrp-roundoff5 = it_vbrk_vbrp-roundoff5 * '-1' .
it_vbrk_vbrp-roundoff6 = it_vbrk_vbrp-roundoff6 * '-1' .
it_vbrk_vbrp-zcal = it_vbrk_vbrp-zcal * '-1' .
it_vbrk_vbrp-zser = it_vbrk_vbrp-zser * '-1' .
it_vbrk_vbrp-zces = it_vbrk_vbrp-zces * '-1' .
it_vbrk_vbrp-zkf0 = it_vbrk_vbrp-zkf0 * '-1' .
it_vbrk_vbrp-zins = it_vbrk_vbrp-zins * '-1' .
it_vbrk_vbrp-zstf = it_vbrk_vbrp-zstf * '-1' .
it_vbrk_vbrp-di13 = it_vbrk_vbrp-di13 * '-1' .
ENDIF.
MODIFY it_vbrk_vbrp.
ENDIF.
ENDLOOP.
ENDFORM. " credit_debit
*Start of Changes by Kiran.K dated 21072007.
&----
*& Form test
&----
text
----
--> p1 text
<-- p2 text
----
FORM test .
DATA:it_fieldcatalog3 TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA:wafieldcatlog3 TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA : v_index TYPE i.
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'VBELN'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'Invoice No'.
wafieldcatlog3-hotspot = 'x'.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
Invoice date
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'FKDAT'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'Invoice Date'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
Bill to party name1
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'NAME1'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'Bill to Party'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
Ship to party name2
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'NAME2'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'Ship to Party'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
Place
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'CITY1'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'Place'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'FKIMG'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'Invoice Qty'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'SUM1'. "'KZWI1'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'Base Price'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'SUM2'. "'KZWI2'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'Packing'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
LST turn over
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'TOTAL2'. "'TURN_LST'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'Taxable LST Turnover'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
CST turn over
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'TOTAL3'. "'TURN_CST'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'Taxable CST Turnover'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'JIN1'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'CST'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'JIN1_PER'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = '%CST'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'JIN2'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'LST'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'JIN2_PER'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = '%LST'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'JIN5'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'Surcharge On LST'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'JIN5_PER'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = '%Surcharge On LST'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'KZWI4'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'Freight and Insurance'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'TOTAL4'. "'TOTAL' r 1.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'Total'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog-key.
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'BSTKD'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'Purchase Order No'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'BSTDK'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'Purchase Order Date'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
*
A/c Doc no.
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'BELNR'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'A/C Doc No.'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog-key.
CST reg number
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'J_1ICSTNO'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'CST/TIN No'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
LST reg number
v_index = v_index + 1.
wafieldcatlog3-fieldname = 'J_1ILSTNO'.
wafieldcatlog3-tabname = 'IT_VBRK_VBRP3'.
wafieldcatlog3-seltext_l = 'LST/TIN No'.
wafieldcatlog3-hotspot = ' '.
wafieldcatlog3-col_pos = v_index.
APPEND wafieldcatlog3 TO it_fieldcatalog3.
CLEAR wafieldcatlog3-key.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
i_callback_program = sy-repid
I_CALLBACK_PF_STATUS_SET = ' '
i_callback_user_command = 'LIST1'
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =
it_fieldcat = it_fieldcatalog3[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = it_vbrk_vbrp3
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " test
&----
*& Form testfilter
&----
text
----
--> p1 text
<-- p2 text
----
FORM testfilter .
LOOP AT it_vbrk_vbrp.
MOVE-CORRESPONDING it_vbrk_vbrp TO it_vbrk_vbrp3.
APPEND it_vbrk_vbrp3.
ENDLOOP.
LOOP AT it_vbrk_vbrp3.
IF it_vbrk_vbrp3-fksto NE 'X'
AND it_vbrk_vbrp3-werks EQ plant
AND it_vbrk_vbrp3-fkdat IN s_fkdat
AND it_vbrk_vbrp3-vkorg EQ vkorg
AND it_vbrk_vbrp3-fkart IN s_fkart
AND it_vbrk_vbrp3-vbtyp EQ 'M'.
ELSE.
DELETE it_vbrk_vbrp3.
ENDIF.
CLEAR it_vbrk_vbrp3.
ENDLOOP.
DELETE ADJACENT DUPLICATES FROM it_vbrk_vbrp3 COMPARING vbeln.
ENDFORM. " testfilter
&----
*& Form LIST1
&----
ALV Interactive
----
-->R_UCOMM text
-->RS_SELFIELDtext
----
FORM list1 USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
CASE r_ucomm.
WHEN '&IC1'.
IF rs_selfield-fieldname = 'VBELN' .
READ TABLE it_vbrk_vbrp3 INDEX rs_selfield-tabindex.
SET PARAMETER ID 'VF' FIELD it_vbrk_vbrp3-vbeln.
CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN.
ENDIF.
ENDCASE.
ENDFORM. "user_command
*End of Changes by Kiran.K dated 21072007.
07-21-2007 10:49 AM
Hi Folks,
Problem solved.
I Just gave LEAVE PROGRAM in that if condition.
Theotrically it is correct but practically it isn't.
Thanks a ton.
K.Kiran.
07-21-2007 10:50 AM