ALV

[Former Member]

IF ucomm = '&IC1' AND selfield-fieldname = 'EBELN'.

READ TABLE it_out1 INDEX selfield-tabindex.

IF sy-subrc = 0.

SET PARAMETER ID 'BES' FIELD it_out1-ebeln.

CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

ENDIF.

ELSEIF ucomm = '&IC1' AND selfield-fieldname = 'LIFNR'.

READ TABLE it_out1 INDEX selfield-tabindex.

IF sy-subrc = 0.

SET PARAMETER ID 'LNR' FIELD it_out1-lifnr.

CALL TRANSACTION 'XK03' AND SKIP FIRST SCREEN.

ENDIF.

ELSEIF ucomm = '&IC1' AND selfield-fieldname = 'MATNR'.

READ TABLE it_out1 INDEX selfield-tabindex.

IF sy-subrc = 0.

SET PARAMETER ID 'MNR' FIELD it_out1-matnr.

CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.

ENDIF.

ENDIF.

Ihave writeen the code like this but

when its is for PO number the Tcode has been called and fine.

but when its for LIFNR and MATNR

i am getting the respective screens but the Material number and Vendor number

are not captured and the cursor remains in the first screen.

can anyone explain where exactly i have done the mistake

if required i will send the whole code

[Former Member]

its may be for the leading zeroes are not passed to the field.

before using set parameter id use fm CONVERSION_EXIT_ALPHA_INPUT fm.

IF sy-subrc = 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = it_out1-lifnr

IMPORTING

OUTPUT = it_out1-lifnr

.

SET PARAMETER ID 'LNR' FIELD it_out1-lifnr.

CALL TRANSACTION 'XK03' AND SKIP FIRST SCREEN.

ENDIF.

regards

shiba dutta

[Former Member]

and what about MATNR

is their any specify ID to be given for MATNR at SET parameter ID or we can write any ID

[Former Member]

Hello Shiba

one more thing i am facing is that

when i am doing the same for material

its capturing the material number

but after this its staying at Views selection screen

but i wanna it to move in side without acting the views and

organization data.

it has to pick from the report all the details.

and show from basic view to till what are the views are maintained for that.

[Former Member]

I think parameter id 'LIF' for lifnr in XK03 and 'MAT' for matnr in MM03.

just change your code 'LIF' from 'LNR' and 'MAT' in place of 'MNR'.

and you have to use conversion_exit fm for both the case.

regards

shiba dutta

[Former Member]

one thing you can do ...

go to MM03 and give any material no. now in the select views screen choose only basic data. In the below one checkbox you can see with text View selection only on request . Check that checkbox. And now press Default values button. Now comeback from MM03 and run the alv and check.

If it does not work properly then i think you have to write some BDC to skip this screen and passing the value.

regards

shiba dutta

[Former Member]

Shiba

can you tell me one more thing where exactly i have to add the recording

iam attaching the code which i have done

&----

---

*& Report ZDFFR_TAXDETAILS

*&

&----

---

*& Author : Dr.Reddy's Laboratories

*& Developer : Vamshi Sreerangam

*& Emp Code : P00009995

*& Creation Date : 26.09.2007

*& Req Number :

*& Description : Report for Excise /VAT/CST/Service/TDS/TDS Details

&----

---

REPORT zdffr_taxdetails.

*---TABLES DECLARATION.

TABLES :ekko,ekpo,lfa1,makt.

*--TYPE POOL DECLARATION.

TYPE-POOLS:slis.

*---selection screen.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS:s_ebeln FOR ekpo-ebeln,

s_matnr FOR ekpo-matnr,

s_werks FOR ekpo-werks,

s_lifnr FOR lfa1-lifnr,

s_ekorg FOR ekko-ekorg.

PARAMETER: p_r1 RADIOBUTTON GROUP gr1,

p_r2 RADIOBUTTON GROUP gr1,

p_r3 RADIOBUTTON GROUP gr1.

SELECTION-SCREEN END OF BLOCK b1.

DATA : BEGIN OF ipotax OCCURS 10.

INCLUDE STRUCTURE taxcom.

DATA END OF ipotax.

DATA : BEGIN OF i_komv OCCURS 10.

INCLUDE STRUCTURE komv.

DATA END OF i_komv.

DATA:BEGIN OF it_ekko OCCURS 0,

ebeln LIKE ekko-ebeln,

bukrs LIKE ekko-bukrs,

bedat LIKE ekko-bedat,

waers LIKE ekko-waers,

lifnr LIKE ekko-lifnr,

ekorg LIKE ekko-ekorg,

llief LIKE ekko-llief,

bstyp LIKE ekko-bstyp,

END OF it_ekko.

DATA:BEGIN OF it_lfa1 OCCURS 0,

lifnr LIKE lfa1-lifnr,

name1 LIKE lfa1-name1,

END OF it_lfa1.

DATA:BEGIN OF it_makt OCCURS 0,

matnr LIKE makt-matnr,

maktx LIKE makt-maktx,

END OF it_makt.

DATA:BEGIN OF it_ekpo OCCURS 0,

ebeln LIKE ekpo-ebeln,

ebelp LIKE ekpo-ebelp,

mwskz LIKE ekpo-mwskz,

txjcd LIKE ekpo-txjcd,

netwr LIKE ekpo-netwr,

zwert LIKE ekpo-zwert,

matnr LIKE ekpo-matnr,

werks LIKE ekpo-werks,

bwtar LIKE ekpo-bwtar,

matkl LIKE ekpo-matkl,

meins LIKE ekpo-meins,

menge LIKE ekpo-menge,

abmng LIKE ekpo-abmng,

ktmng LIKE ekpo-ktmng,

END OF it_ekpo.

DATA:BEGIN OF it_final OCCURS 0 ,

ebeln LIKE ekpo-ebeln,

ebelp LIKE ekpo-ebelp,

bedat LIKE ekko-bedat,

werks LIKE ekpo-werks,

lifnr LIKE lfa1-lifnr,

name1 LIKE lfa1-name1,

ekorg LIKE ekko-ekorg,

mwskz LIKE ekpo-mwskz,

matnr LIKE ekpo-matnr,

maktx LIKE makt-maktx,

txjcd LIKE ekpo-txjcd,

bwtar LIKE ekpo-bwtar,

matkl LIKE ekpo-matkl,

meins LIKE ekpo-meins,

netwr LIKE ekpo-netwr,

zwert LIKE ekpo-zwert,

menge LIKE ekpo-menge,

abmng LIKE ekpo-abmng,

ktmng LIKE ekpo-ktmng,

bukrs LIKE ekko-bukrs,

waers LIKE ekko-waers,

llief LIKE ekko-llief,

bstyp LIKE ekko-bstyp,

kwert LIKE komv-kwert,

jmop LIKE komv-kbetr,

jaop LIKE komv-kbetr,

jmip LIKE komv-kbetr,

jmx1 LIKE komv-kbetr,

jmx2 LIKE komv-kbetr,

jec1 LIKE komv-kbetr,

jec2 LIKE komv-kbetr,

jsep LIKE komv-kbetr,

jsei LIKE komv-kbetr,

jex1 LIKE komv-kbetr,

jex2 LIKE komv-kbetr,

jhx1 LIKE komv-kbetr,

jhx2 LIKE komv-kbetr,

jvrd LIKE komv-kbetr,

jvrn LIKE komv-kbetr,

zips LIKE komv-kbetr,

jipc LIKE komv-kbetr,

zsab LIKE komv-kbetr,

jsrt LIKE komv-kbetr,

jec3 LIKE komv-kbetr,

jec4 LIKE komv-kbetr,

zwst LIKE komv-kbetr,

zwct LIKE komv-kbetr,

ztds LIKE komv-kbetr,

END OF it_final.

DATA:BEGIN OF it_out OCCURS 0 ,

ebeln LIKE ekpo-ebeln,

ebelp LIKE ekpo-ebelp,

matnr LIKE ekpo-matnr,

jmop LIKE komv-kbetr,

jaop LIKE komv-kbetr,

jmip LIKE komv-kbetr,

jmx1 LIKE komv-kbetr,

jmx2 LIKE komv-kbetr,

jec1 LIKE komv-kbetr,

jec2 LIKE komv-kbetr,

jsep LIKE komv-kbetr,

jsei LIKE komv-kbetr,

jex1 LIKE komv-kbetr,

jex2 LIKE komv-kbetr,

jhx1 LIKE komv-kbetr,

jhx2 LIKE komv-kbetr,

jvrd LIKE komv-kbetr,

jvrn LIKE komv-kbetr,

zips LIKE komv-kbetr,

jipc LIKE komv-kbetr,

zsab LIKE komv-kbetr,

jsrt LIKE komv-kbetr,

jec3 LIKE komv-kbetr,

jec4 LIKE komv-kbetr,

zwst LIKE komv-kbetr,

zwct LIKE komv-kbetr,

ztds LIKE komv-kbetr,

jmop1 LIKE komv-kwert,

jaop1 LIKE komv-kwert,

jmip1 LIKE komv-kwert,

jmx11 LIKE komv-kwert,

jmx21 LIKE komv-kwert,

jec11 LIKE komv-kwert,

jec21 LIKE komv-kwert,

jsep1 LIKE komv-kwert,

jsei1 LIKE komv-kwert,

jex11 LIKE komv-kwert,

jex21 LIKE komv-kwert,

jhx11 LIKE komv-kwert,

jhx21 LIKE komv-kwert,

jvrd1 LIKE komv-kwert,

jvrn1 LIKE komv-kwert,

zips1 LIKE komv-kwert,

jipc1 LIKE komv-kwert,

zsab1 LIKE komv-kwert,

jsrt1 LIKE komv-kwert,

jec31 LIKE komv-kwert,

jec41 LIKE komv-kwert,

zwst1 LIKE komv-kwert,

zwct1 LIKE komv-kwert,

ztds1 LIKE komv-kwert,

END OF it_out.

DATA:BEGIN OF it_out1 OCCURS 0 ,

ebeln LIKE ekpo-ebeln,

ebelp LIKE ekpo-ebelp,

bedat LIKE ekko-bedat,

bukrs LIKE ekko-bukrs,

werks LIKE ekpo-werks,

lifnr LIKE lfa1-lifnr,

name1 LIKE lfa1-name1,

ekorg LIKE ekko-ekorg,

mwskz LIKE ekpo-mwskz,

matnr LIKE ekpo-matnr,

maktx LIKE makt-maktx,

kschl LIKE komv-kschl,

kbetr LIKE komv-kbetr,

kwert LIKE komv-kwert,

jmop LIKE komv-kbetr,

jaop LIKE komv-kbetr,

jmip LIKE komv-kbetr,

jmx1 LIKE komv-kbetr,

jmx2 LIKE komv-kbetr,

jec1 LIKE komv-kbetr,

jec2 LIKE komv-kbetr,

jsep LIKE komv-kbetr,

jsei LIKE komv-kbetr,

jex1 LIKE komv-kbetr,

jex2 LIKE komv-kbetr,

jhx1 LIKE komv-kbetr,

jhx2 LIKE komv-kbetr,

jvrd LIKE komv-kbetr,

jvrn LIKE komv-kbetr,

zips LIKE komv-kbetr,

jipc LIKE komv-kbetr,

zsab LIKE komv-kbetr,

jsrt LIKE komv-kbetr,

jec3 LIKE komv-kbetr,

jec4 LIKE komv-kbetr,

zwst LIKE komv-kbetr,

zwct LIKE komv-kbetr,

ztds LIKE komv-kbetr,

jmop1 LIKE komv-kwert,

jaop1 LIKE komv-kwert,

jmip1 LIKE komv-kwert,

jmx11 LIKE komv-kwert,

jmx21 LIKE komv-kwert,

jec11 LIKE komv-kwert,

jec21 LIKE komv-kwert,

jsep1 LIKE komv-kwert,

jsei1 LIKE komv-kwert,

jex11 LIKE komv-kwert,

jex21 LIKE komv-kwert,

jhx11 LIKE komv-kwert,

jhx21 LIKE komv-kwert,

jvrd1 LIKE komv-kwert,

jvrn1 LIKE komv-kwert,

zips1 LIKE komv-kwert,

jipc1 LIKE komv-kwert,

zsab1 LIKE komv-kwert,

jsrt1 LIKE komv-kwert,

jec31 LIKE komv-kwert,

jec41 LIKE komv-kwert,

zwst1 LIKE komv-kwert,

zwct1 LIKE komv-kwert,

ztds1 LIKE komv-kwert,

END OF it_out1.

*---WORK AREA DECLARATION.

DATA:wa_ekko LIKE LINE OF it_ekko,

wa_ekpo LIKE LINE OF it_ekpo,

wa_lfa1 LIKE LINE OF it_lfa1,

wa_makt LIKE LINE OF it_makt,

wa_out LIKE LINE OF it_out,

wa_out1 LIKE LINE OF it_out1,

wa_final LIKE LINE OF it_final,

wa_komv LIKE LINE OF i_komv.

*--data declaration for field catalog.

DATA: it_fieldcat TYPE slis_t_fieldcat_alv.

DATA: wa_fieldcat LIKE LINE OF it_fieldcat.

DATA: g_repid LIKE sy-repid.

DATA: event TYPE slis_alv_event OCCURS 0 WITH HEADER LINE.

DATA: layout TYPE slis_layout_alv.

****INTIALIZATION

INITIALIZATION.

g_repid = sy-repid.

START-OF-SELECTION.

*---FOR GETTING THE DETAILS.

PERFORM getdata.

PERFORM getpop.

*--build catalog.

PERFORM catalog.

• PERFORM fill_event.

*---display data.

PERFORM display_data.

END-OF-SELECTION.

&----

---

*& Form GETDATA

&----

---

*& text

&----

---

FORM getdata .

IF s_ebeln NE space.

SELECT ebeln

bukrs

bedat

waers

lifnr

ekorg

llief

bstyp

FROM ekko

INTO TABLE it_ekko

WHERE ebeln IN s_ebeln

AND lifnr IN s_lifnr

AND loekz EQ space.

IF sy-subrc = 0.

SORT it_ekko BY ebeln.

ENDIF.

IF NOT it_ekko[] IS INITIAL.

SELECT ebeln

ebelp

mwskz

txjcd

netwr

zwert

matnr

werks

bwtar

matkl

meins

menge

abmng

ktmng

FROM ekpo

INTO TABLE it_ekpo

FOR ALL ENTRIES IN it_ekko

WHERE ebeln = it_ekko-ebeln

AND matnr IN s_matnr

• AND loekz EQ space

AND mwskz NE space.

ENDIF.

ELSE.

SELECT ebeln

ebelp

mwskz

txjcd

netwr

zwert

matnr

werks

bwtar

matkl

meins

menge

abmng

ktmng

FROM ekpo

INTO TABLE it_ekpo

WHERE matnr IN s_matnr

AND werks IN s_werks

• AND loekz EQ space

AND mwskz NE space.

IF sy-subrc = 0.

SORT it_ekpo BY ebeln.

ENDIF.

IF NOT it_ekpo[] IS INITIAL.

SELECT ebeln

bukrs

bedat

waers

lifnr

ekorg

llief

bstyp

FROM ekko

INTO TABLE it_ekko

FOR ALL ENTRIES IN it_ekpo

WHERE ebeln = it_ekpo-ebeln

AND loekz EQ space.

ENDIF.

ENDIF.

IF NOT it_ekko[] IS INITIAL.

SELECT lifnr

name1

FROM lfa1

INTO TABLE it_lfa1

FOR ALL ENTRIES IN it_ekko

WHERE lifnr = it_ekko-lifnr.

ENDIF.

IF NOT it_ekpo[] IS INITIAL.

SELECT matnr

maktx

FROM makt

INTO TABLE it_makt

FOR ALL ENTRIES IN it_ekpo

WHERE matnr = it_ekpo-matnr.

ENDIF.

ENDFORM. " GETDATA

&----

---

*& Form getpop

&----

---

• text

----

---

FORM getpop .

CLEAR wa_ekpo.

LOOP AT it_ekpo INTO wa_ekpo .

wa_final-ebeln = wa_ekpo-ebeln.

wa_final-ebelp = wa_ekpo-ebelp.

wa_final-werks = wa_ekpo-werks.

wa_final-mwskz = wa_ekpo-mwskz.

wa_final-matnr = wa_ekpo-matnr.

wa_final-txjcd = wa_ekpo-txjcd.

wa_final-bwtar = wa_ekpo-bwtar.

wa_final-matkl = wa_ekpo-matkl.

wa_final-meins = wa_ekpo-meins.

wa_final-netwr = wa_ekpo-netwr.

wa_final-zwert = wa_ekpo-zwert.

wa_final-menge = wa_ekpo-menge.

wa_final-abmng = wa_ekpo-abmng.

wa_final-ktmng = wa_ekpo-ktmng.

CLEAR wa_ekko.

READ TABLE it_ekko INTO wa_ekko WITH KEY ebeln = wa_ekpo-ebeln.

IF sy-subrc = 0.

wa_final-lifnr = wa_ekko-lifnr.

wa_final-ekorg = wa_ekko-ekorg.

wa_final-bedat = wa_ekko-bedat.

wa_final-bstyp = wa_ekko-bstyp.

wa_final-bukrs = wa_ekko-bukrs.

wa_final-waers = wa_ekko-waers.

wa_final-llief = wa_ekko-llief.

ENDIF.

CLEAR wa_lfa1.

READ TABLE it_lfa1 INTO wa_lfa1 WITH KEY lifnr = wa_ekko-lifnr.

IF sy-subrc = 0.

wa_final-name1 = wa_lfa1-name1.

ENDIF.

CLEAR wa_makt.

READ TABLE it_makt INTO wa_makt WITH KEY matnr = wa_ekpo-matnr.

IF sy-subrc = 0.

wa_final-maktx = wa_makt-maktx.

ENDIF.

APPEND wa_final TO it_final.

ENDLOOP.

LOOP AT it_final INTO wa_final.

MOVE:wa_final-ebelp TO ipotax-kposn,

wa_final-mwskz TO ipotax-mwskz,

wa_final-txjcd TO ipotax-txjcd,

wa_final-matnr TO ipotax-matnr,

wa_final-werks TO ipotax-werks,

wa_final-bwtar TO ipotax-bwtar,

wa_final-matkl TO ipotax-matkl,

wa_final-meins TO ipotax-meins,

wa_final-bukrs TO ipotax-bukrs,

wa_final-bedat TO ipotax-budat,

wa_final-waers TO ipotax-waers,

wa_final-lifnr TO ipotax-lifnr,

wa_final-ekorg TO ipotax-ekorg,

wa_final-waers TO ipotax-hwaer,

wa_final-llief TO ipotax-llief,

wa_final-bedat TO ipotax-bldat.

IF wa_final-bstyp EQ 'F'.

ipotax-wrbtr = wa_final-netwr.

ELSE.

ipotax-wrbtr = wa_final-zwert.

ENDIF.

IF wa_final-bstyp EQ 'F'.

ipotax-mglme = wa_final-menge.

ELSE.

IF wa_final-bstyp EQ 'K' AND wa_final-abmng GT 0.

ipotax-mglme = wa_final-abmng.

ELSE.

ipotax-mglme = wa_final-ktmng.

ENDIF.

IF ipotax-mglme EQ 0.

ipotax-mglme = 1000.

ENDIF.

ipotax-mtart = wa_final-matkl.

ENDIF.

ipotax-shkzg = 'H'.

ipotax-xmwst = 'X'.

ipotax-land1 = 'IN'.

CALL FUNCTION 'CALCULATE_TAX_ITEM'

EXPORTING

i_taxcom = ipotax

TABLES

t_xkomv = i_komv

EXCEPTIONS

mwskz_not_defined = 1

mwskz_not_found = 2

mwskz_not_valid = 3

steuerbetrag_falsch = 4

country_not_found = 5

OTHERS = 6.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

LOOP AT i_komv INTO wa_komv WHERE kposn = wa_final-ebelp

AND kwert NE 0

AND kbetr NE 0.

IF sy-subrc = 0.

wa_out-ebeln = wa_final-ebeln.

wa_out-ebelp = wa_final-ebelp.

wa_out-matnr = wa_final-matnr.

IF wa_komv-kschl = 'JMOP'.

wa_out-jmop = wa_komv-kbetr.

wa_out-jmop1 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JAOP'.

wa_out-jaop = wa_komv-kbetr.

wa_out-jaop1 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JMIP'.

wa_out-jmip = wa_komv-kbetr.

wa_out-jmip1 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JMX1'.

wa_out-jmx1 = wa_komv-kbetr.

wa_out-jmx11 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JMX2'.

wa_out-jmx2 = wa_komv-kbetr.

wa_out-jmx21 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JEC1'.

wa_out-jec1 = wa_komv-kbetr.

wa_out-jec11 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JEC2'.

wa_out-jec2 = wa_komv-kbetr.

wa_out-jec21 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JSEP'.

wa_out-jsep = wa_komv-kbetr.

wa_out-jsep1 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JSEI'.

wa_out-jsei = wa_komv-kbetr.

wa_out-jsei1 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JEX1'.

wa_out-jex1 = wa_komv-kbetr.

wa_out-jex11 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JEX2'.

wa_out-jex2 = wa_komv-kbetr.

wa_out-jex21 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JHX1'.

wa_out-jhx1 = wa_komv-kbetr.

wa_out-jhx11 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JHX2'.

wa_out-jhx2 = wa_komv-kwert.

wa_out-jhx21 = wa_komv-kbetr.

ELSEIF wa_komv-kschl = 'JVRD'.

wa_out-jvrd = wa_komv-kbetr.

wa_out-jvrd1 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JVRN'.

wa_out-jvrn = wa_komv-kbetr.

wa_out-jvrn1 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'ZIPS'.

wa_out-zips = wa_komv-kbetr.

wa_out-zips1 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JIPC'.

wa_out-jipc = wa_komv-kbetr.

wa_out-jipc1 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'ZSAB'.

wa_out-zsab = wa_komv-kbetr.

wa_out-zsab1 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JSRT'.

wa_out-jsrt = wa_komv-kbetr.

wa_out-jsrt1 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JEC3'.

wa_out-jec3 = wa_komv-kbetr.

wa_out-jec31 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'JEC4'.

wa_out-jec4 = wa_komv-kbetr.

wa_out-jec41 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'ZWST'.

wa_out-zwst = wa_komv-kbetr.

wa_out-zwst1 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'ZWCT'.

wa_out-zwct = wa_komv-kbetr.

wa_out-zwct1 = wa_komv-kwert.

ELSEIF wa_komv-kschl = 'ZTDS'.

wa_out-ztds = wa_komv-kbetr.

wa_out-ztds1 = wa_komv-kwert.

ENDIF.

ENDIF.

ENDLOOP.

APPEND wa_out TO it_out.

CLEAR:wa_ekko,wa_ekpo,wa_komv,ipotax,i_komv.

ENDLOOP.

LOOP AT it_out INTO wa_out.

wa_out1-ebeln = wa_out-ebeln.

wa_out1-ebelp = wa_out-ebelp.

wa_out1-matnr = wa_out-matnr.

wa_out1-jmop = wa_out-jmop / 10.

wa_out1-jaop = wa_out-jaop / 10.

wa_out1-jmip = wa_out-jmip / 10.

wa_out1-jmx1 = wa_out-jmx1 / 10.

wa_out1-jmx2 = wa_out-jmx2 / 10.

wa_out1-jec1 = wa_out-jec1 / 10.

wa_out1-jec2 = wa_out-jec2 / 10.

wa_out1-jsep = wa_out-jsep / 10.

wa_out1-jsei = wa_out-jsei / 10.

wa_out1-jex1 = wa_out-jex1 / 10.

wa_out1-jex2 = wa_out-jex2 / 10.

wa_out1-jhx1 = wa_out-jhx1 / 10.

wa_out1-jhx2 = wa_out-jhx2 / 10.

wa_out1-jvrd = wa_out-jvrd / 10.

wa_out1-jvrn = wa_out-jvrn / 10.

wa_out1-zips = wa_out-zips / 10.

wa_out1-jipc = wa_out-jipc / 10.

wa_out1-zsab = wa_out-zsab / 10.

wa_out1-jsrt = wa_out-jsrt / 10.

wa_out1-jec3 = wa_out-jec3 / 10.

wa_out1-jec4 = wa_out-jec4 / 10.

wa_out1-zwst = wa_out-zwst / 10.

wa_out1-zwct = wa_out-zwct / 10.

wa_out1-ztds = wa_out-ztds / 10.

wa_out1-jmop1 = wa_out-jmop1.

wa_out1-jaop1 = wa_out-jaop1.

wa_out1-jmip1 = wa_out-jmip1.

wa_out1-jmx11 = wa_out-jmx11.

wa_out1-jmx21 = wa_out-jmx21.

wa_out1-jec11 = wa_out-jec11.

wa_out1-jec21 = wa_out-jec21.

wa_out1-jsep1 = wa_out-jsep1.

wa_out1-jsei1 = wa_out-jsei1.

wa_out1-jex11 = wa_out-jex11.

wa_out1-jex21 = wa_out-jex21.

wa_out1-jhx11 = wa_out-jhx11.

wa_out1-jhx21 = wa_out-jhx21.

wa_out1-jvrd1 = wa_out-jvrd1.

wa_out1-jvrn1 = wa_out-jvrn1.

wa_out1-zips1 = wa_out-zips1.

wa_out1-jipc1 = wa_out-jipc1.

wa_out1-zsab1 = wa_out-zsab1.

wa_out1-jsrt1 = wa_out-jsrt1.

wa_out1-jec31 = wa_out-jec31.

wa_out1-jec41 = wa_out-jec41.

wa_out1-zwst1 = wa_out-zwst1.

wa_out1-zwct1 = wa_out-zwct1.

wa_out1-ztds1 = wa_out-ztds1.

READ TABLE it_final INTO wa_final WITH KEY ebeln = wa_out-ebeln

ebelp = wa_out-ebelp

matnr = wa_out-matnr.

IF sy-subrc = 0.

wa_out1-bedat = wa_final-bedat.

wa_out1-werks = wa_final-werks.

wa_out1-lifnr = wa_final-lifnr.

wa_out1-name1 = wa_final-name1.

wa_out1-ekorg = wa_final-ekorg.

wa_out1-mwskz = wa_final-mwskz.

wa_out1-maktx = wa_final-maktx.

wa_out1-bukrs = wa_final-bukrs.

ENDIF.

APPEND wa_out1 TO it_out1.

ENDLOOP.

ENDFORM. " getpop

&----

---

*& Form catalog

&----

---

• text

----

---

FORM catalog .

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 1.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'EBELN'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'Purchase order number'."ebeln

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 2.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'BEDAT'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'PO Date'."BEDAT

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 2.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'EBELP'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'Item'."BEDAT

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 3.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'WERKS'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '5'.

wa_fieldcat-seltext_l = 'PLANT'."WERKS

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 4.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'LIFNR'.

• wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'Vendor Num'."LIFNR

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 5.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'NAME1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '35'.

wa_fieldcat-seltext_l = 'Vendor Name'. "NAME1

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 6.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'EKORG'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '13'.

wa_fieldcat-seltext_l = 'Purchase Org'."EKORG

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 7.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'MWSKZ'.

• wa_fieldcat-no_zero = 'X'. " FOR NOT DISPLAYING ZERO'S INRONT OF THE VALUE

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'TAX out1'."MWSKZ

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 8.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'MATNR'.

• wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '18'.

wa_fieldcat-seltext_l = 'Material Num'."MATNR

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 9.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'MAKTX'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '40'.

wa_fieldcat-seltext_l = 'Material Desc'."MAKTX

APPEND wa_fieldcat TO it_fieldcat.

IF p_r1 = 'X'.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 10.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JMOP'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JMOP'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 11.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JMOP1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JMOP Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 12.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JAOP'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JAOP'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 13.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JAOP1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JAOP Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 14.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JMIP'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JMIP'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 15.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JMIP1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JMIP Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 16.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JMX1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JMX1'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 17.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JMX11'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JMX1 Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 18.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JMX2'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JMX2'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 19.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JMX21'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JMX2 Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 20.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JEC1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JEC1'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 21.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JEC11'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JEC1 Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 22.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JEC21'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JEC2'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 23.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JEC21'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JEC2 Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 24.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JSEP'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JSEP'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 25.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JSEP1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JSEP Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 26.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JSEI'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JSEI'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 27.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JSEI1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JSEI Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 28.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JEX1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JEX1'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 29.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JEX11'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JEX1 Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 30.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JEX2'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JEX2'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 31.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JEX21'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JEX2 Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 32.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JHX1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JHX1'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 33.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JHX11'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JHX1 Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 34.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JHX2'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JHX2'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 35.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JHX21'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JHX2 Value'.

APPEND wa_fieldcat TO it_fieldcat.

DELETE it_out1 WHERE ebeln = 0.

ELSEIF p_r2 = 'X'.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 10.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JVRD'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JVRD'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 11.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JVRD1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JVRD Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 12.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JVRN'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JVRN'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 13.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JVRN1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JVRN Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 14.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'ZIPS'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'ZIPS'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 15.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'ZIPS1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'ZIPS Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 16.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JIPC'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JIPC'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 17.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JIPC1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JIPC Value'.

APPEND wa_fieldcat TO it_fieldcat.

DELETE it_out1 WHERE ebeln = 0.

ELSE.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 10.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'ZSAB'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'ZSAB'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 11.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'ZSAB1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'ZSAB Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 12.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JSRT'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JSRT'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 13.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JSRT1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JSRT Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 14.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JEC3'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JEC3'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 15.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JEC31'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JEC3 Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 16.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JEC4'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JEC4'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 17.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'JEC41'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'JEC4 Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 18.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'ZWST'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'ZWST'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 19.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'ZWST1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'ZWST Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 20.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'ZWCT'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'ZWCT'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 21.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'ZWCT1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'ZWCT Value'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 22.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'ZTDS'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'ZTDS'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR: wa_fieldcat.

wa_fieldcat-col_pos = 23.

wa_fieldcat-tabname = 'it_out1'.

wa_fieldcat-fieldname = 'ZTDS1'.

wa_fieldcat-no_zero = 'X'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-seltext_l = 'ZTDS Value'.

APPEND wa_fieldcat TO it_fieldcat.

DELETE it_out1 WHERE ebeln = 0.

ENDIF.

ENDFORM. " catalog

&----

---

*& Form display_data

&----

---

*& text

&----

---

FORM display_data .

wa_fieldcat-hotspot = 'X'.

MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING hotspot

WHERE fieldname = 'EBELN'.

MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING hotspot

WHERE fieldname = 'LIFNR'.

MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING hotspot

WHERE fieldname = 'MATNR'.

g_repid = sy-repid.

IF it_out1[] IS NOT INITIAL.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = g_repid

it_fieldcat = it_fieldcat[]

i_callback_user_command = 'USER_COMMAND'

TABLES

t_outtab = it_out1[]

EXCEPTIONS

program_error = 1

OTHERS = 2.

IF sy-subrc <> 0.

WRITE: / 'Error displaying grid.'.

ENDIF.

ELSE.

MESSAGE 'No data found for the condition type' TYPE 'I'.

ENDIF.

ENDFORM. " display_data

----

---

• FORM display_detail *

----

---

• ........ *

----

---

• --> UCOMM *

• --> SELFIELD *

----

---

FORM user_command USING ucomm LIKE sy-ucomm

selfield TYPE slis_selfield.

IF ucomm = '&IC1' AND selfield-fieldname = 'EBELN'.

READ TABLE it_out1 INDEX selfield-tabindex.

IF sy-subrc = 0.

SET PARAMETER ID 'BES' FIELD it_out1-ebeln.

CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

ENDIF.

ELSEIF ucomm = '&IC1' AND selfield-fieldname = 'LIFNR'.

READ TABLE it_out1 INDEX selfield-tabindex.

IF sy-subrc = 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = it_out1-lifnr

IMPORTING

OUTPUT = it_out1-lifnr .

SET PARAMETER ID 'LIF' FIELD it_out1-lifnr.

CALL TRANSACTION 'XK03' AND SKIP FIRST SCREEN.

ENDIF.

ELSEIF ucomm = '&IC1' AND selfield-fieldname = 'MATNR'.

READ TABLE it_out1 INDEX selfield-tabindex.

IF sy-subrc = 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = it_out1-matnr

IMPORTING

OUTPUT = it_out1-matnr .

SET PARAMETER ID 'MAT' FIELD it_out1-matnr.

CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.

ENDIF.

ENDIF.

ENDFORM. "user_command

[Former Member]

Use the following code for Vendor number and Material number

Vendor:

SET PARAMETER ID 'LIF' FIELD it_out1-lifnr.

Material:

SET PARAMETER ID 'MAT' FIELD it_out1-matnr.

Please mark points if the solution was useful.

Regards,

Manoj

[Former Member]

I also did it dis way but later i tried the following code n it worked out..try doin this

case vcomm.

when '&IC1'.

if p_selfield-fieldname = 'VBELN'.

read table it_final into wa_final with key vbeln = p_selfield-value.

set parameter id 'AGN' field wa_final-vbeln.

call transaction 'VA23' and skip first screen.

elseif p_selfield-fieldname = 'KUNNR1'.

read table it_final into wa_final index p_selfield-tabindex.

set parameter id 'KUN' field wa_final-kunnr1.

call transaction 'VD03' and skip first screen.

endif.

[hymavathi_oruganti]

ur parameter id is wrong i think.