Re: Problem in navigation

kiran_k8 — Sat, 21 Jul 2007 09:16:47 GMT

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.

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.

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.

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.

*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.

*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.

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 = '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.

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 = '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.

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.

topic Re: Problem in navigation in Application Development and Automation Discussions

Problem in navigation

Re: Problem in navigation

Re: Problem in navigation

Re: Problem in navigation

Re: Problem in navigation