Re: Selection-screen

Former Member — Fri, 14 Dec 2007 13:59:15 GMT

Hi all ,

Actually i have selction-screen ,

in selection-screen there is a vendor no,

If i execute the selection-screen , the vendor no shoul be populate into 'Mk01; tcode,

I have written some code below,

pls help me I wil give u full points.

data : fname(10),fval(10).

data : vendor(10) type c.

parameters : vendorno like vendor.

get cursor field fname value fval.

if fname = vendor.

fval = vendor.

set parameter id 'LIF' field fname on selection-screen.

call transaction 'MK01'.

endif.

regards

Sashi

Re: Re: Selection-screen

Former Member — Fri, 14 Dec 2007 14:07:46 GMT

Hi Sashi,

Check the below code , the logic in it is the same as what you want :

&----

*& Report Z_INTERACTIVEREPORT1 *

*& *

&----

*& OBJECTIVE: The objective of this report is to display one basic list

*& from which we can access two secondary lists.The user can move to

*& transaction 'MM02' by clicking on matnr value in the second

*& secondary list. *

&----

REPORT z_interactivereport1 NO STANDARD PAGE HEADING LINE-SIZE 255.

PROVIDE TABLES WORK AREA IN THE APPLICATION SERVER.

TABLES: lfa1,ekko,ekpo,mara.

DESIGN SELECTION SCREEN WITH SELECT-OPTIONS.

SELECT-OPTIONS: vendor FOR lfa1-lifnr.

DEFINE STRUCTURE FOR BASIC LIST.

TYPES: BEGIN OF s_lfa1,

vendor TYPE lfa1-lifnr,

name1 TYPE lfa1-name1,

END OF s_lfa1.

DEFINE AN INTERNAL TABLE BASED ON S_KNA1 STRUCTURE.

DATA: it_lfa1 TYPE STANDARD TABLE OF s_lfa1 WITH HEADER LINE WITH

DEFAULT

KEY.

DEFINE STRUCTURE FOR FIRST SECONDARY LIST.

TYPES: BEGIN OF s_ekko,

ebeln TYPE ekko-ebeln,

aedat TYPE ekko-aedat,

END OF s_ekko.

DEFINE AN INTERNAL TABLE BASED ON S_EKKO STRUCTURE.

DATA: it_ekko TYPE STANDARD TABLE OF s_ekko WITH HEADER LINE WITH

DEFAULT KEY.

DEFINE STRUCTURE FOR SECOND SECONDARY LIST.

TYPES: BEGIN OF s_ktab,

ebelp TYPE ekpo-ebelp,

matnr TYPE mara-matnr,

END OF s_ktab.

DEFINE AN INTERNAL TABLE BASED ON S_KTAB STRUCTURE.

DATA: it_ktab TYPE STANDARD TABLE OF s_ktab WITH HEADER LINE WITH

DEFAULT KEY.

DEFINE VARIABLES FOR GET CURSOR LOGIC.

DATA: fname(10), fval(10).

PROVIDE LOGIC TO PASS DEFAULT VALUES TO SELECTION-SCREEN.

INITIALIZATION.

vendor-low = 1000.

vendor-high = 1007.

vendor-sign = 'I'.

vendor-option = 'BT'.

APPEND vendor.

PROVIDE LOGIC REQUIRED FOR BASIC LIST.

START-OF-SELECTION.

SELECT lifnr name1 FROM lfa1 INTO TABLE it_lfa1 WHERE

lifnr IN vendor.

PROCESSING SCREEN LOGIC FOR BASIC LIST.

LOOP AT it_lfa1.

WRITE:/ it_lfa1-vendor HOTSPOT, it_lfa1-name1.

HIDE it_lfa1-vendor.

ENDLOOP.

PROVIDE logic for first secondary list.

AT LINE-SELECTION.

CASE sy-lsind.

WHEN 1.

SELECT ebeln aedat FROM ekko INTO TABLE it_ekko WHERE lifnr =

it_lfa1-vendor.

PROCESSING SCREEN LOGIC FOR first secondary list.

LOOP AT it_ekko.

WRITE:/ it_ekko-ebeln HOTSPOT, it_ekko-aedat.

HIDE it_ekko-ebeln.

ENDLOOP.

PROVIDE LOGIC REQUIRED FOR SECOND SECONDARY LIST.

WHEN 2.

SELECT ekpo_{ebelp mara}matnr INTO it_ktab FROM ekpo INNER JOIN mara ON

ekpo_{matnr = mara}matnr.

APPEND it_ktab.

ENDSELECT.

PROCESSING SCREEN LOGIC FOR SECOND SECONDARY LIST.

LOOP AT it_ktab.

WRITE:/ it_ktab-ebelp, it_ktab-matnr HOTSPOT.

HIDE it_ktab-matnr.

ENDLOOP.

PROVIDE LOGIC TO MOVE THE CURSOR FROM REPORT TO TRANSACTION.

WHEN 3.

GET CURSOR FIELD fname VALUE fval.

PROVIDE THE MEMORY ID OF THE FIELD.

SET PARAMETER ID 'MAT' FIELD fval.

PROVIDE LOGIC TO MOVE TO SCREEN.

CALL TRANSACTION 'MM02' AND SKIP FIRST SCREEN.

ENDCASE.

PROVIDE THE LOGIC TO MAINTAIN HEADERS.

TOP-OF-PAGE.

WRITE:/ 'VENDOR DETAILS'.

TOP-OF-PAGE DURING LINE-SELECTION.

CASE sy-lsind.

WHEN 1.

WRITE:/ 'First Secondary List'.

WHEN 2.

WRITE:/ 'Second Secondary List'.

ENDCASE.

<b>Kindly Reward points if you found the reply usefull</b>.

Cheers,

Chaitanya.

Re: Re: Selection-screen

Former Member — Fri, 14 Dec 2007 14:12:19 GMT

Try this

DATA : fname(10),fval(10).

DATA : vendor(10) TYPE c.

PARAMETERS : vendorno LIKE vendor.

SET PARAMETER ID 'LIF' FIELD vendorno.

CALL TRANSACTION 'MK01'.

Re: Re: Selection-screen

Former Member — Fri, 14 Dec 2007 14:20:01 GMT

Hi,

Please reward points if helpful..........

data : fname(10),fval(10).

data : vendor(10) type c.

parameters : vendorno like lfa1-lifnr.

set parameter id 'LIF' field vendorno.

call transaction 'XK03'. "'MK01'.

It directly goes to vendor display tcode in display mode from selection screen.

thanks

Sivaparvathi

Re: Re: Selection-screen

Former Member — Fri, 14 Dec 2007 14:29:30 GMT

Thhanks sudeer ,

Thank u very much.

topic Re: Selection-screen in Application Development and Automation Discussions

Re: Selection-screen

Re: Re: Selection-screen

Re: Re: Selection-screen

Re: Re: Selection-screen

Re: Re: Selection-screen