get cursor command

Former Member — Thu, 26 Jul 2007 14:07:11 GMT

when the get cursor command is used in interactive reporting, when the hide keyword is used?

Re: get cursor command

Former Member — Thu, 26 Jul 2007 14:12:07 GMT

Hide

To prevent the user from selecting invalid lines, ABAP/4 offers several possibilities. At the end of the processing block END-OF-SELECTION, delete the contents of one or more fields you previously stored for valid lines using the HIDE statement. At the event AT LINE-SELECTION, check whether the work area is initial or whether the HIDE statement stored field contents there. After processing the secondary list, clear the work area again. This prevents the user from trying to create further secondary lists from the secondary list displayed.

GetCursor

If the hidden information is not sufficient to uniquely identify the selected line, the command GET CURSOR is used. The GET CURSOR command returns the name of the field at the cursor position in a field specified after the addition field, and the value of the selected field in a field specified after value.

Re: get cursor command

Former Member — Thu, 26 Jul 2007 14:12:55 GMT

go to the follwing link:

Hide

This command helps you to store the field names based on which one will be doing further processing to get a detailed list. It is written directly after the WRITE statement for a field. When a row is selected the values get automatically filled in the variables for further use.

Syntax: Hide <field-name>.

Get Cursor Command

Like Hide this is also used for getting the values after selection of a row.

Syntax:

1. GET CURSOR FIELD f. 2. GET CURSOR LINE lin.

reward points for useful ans

Regards

Aarti

Re: get cursor command

Former Member — Thu, 26 Jul 2007 14:13:56 GMT

HI,

IN HIDE STEMENT WE CAN NOT RESTRICT THE FIELD. FOR EXP IN YOUR PROGRAM MATNR MEINS, MBRSH IS THE FIELD. IF YOU WANT SECOND LUIST ONLY WHEN YOU CLICK MATNR. FOR THAT TIME WE ARE USING GET CURSOR

CHECK THIS ONE

&----

*& Report ZSALESORDERDETAILS_ASHOK

&----

REPORT ZSALESORDERDETAILS_ASHOK

NO STANDARD PAGE HEADING

LINE-SIZE 50

LINE-COUNT 35(5).

********************************************

*data declaration.

*********************************************

tables :vbak.

tables: VBAP.

DATA : TVBAK LIKE VBAK OCCURS 0 WITH HEADER LINE,

TVBAP LIKE VBAP OCCURS 0 WITH HEADER LINE,

TEMP TYPE p decimals 5 VALUE '0.0' ,

A type i,

FIELDNAME TYPE STRING,

FIELDVALUE TYPE VBAP-VBELN.

DATA G_CB.

----------------------------------------------------------------------

selection-screen begin of block screen1 with frame title TEXT-001.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN COMMENT /32(35) COMM1.

SELECTION-SCREEN ULINE /27(35).

SELECTION-SCREEN SKIP.

SELECT-OPTIONS TVBELN FOR VBAK-VBELN.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN ULINE.

SELECTION-SCREEN COMMENT /30(50) COMM2.

SELECTION-SCREEN ULINE /27(40).

SELECTION-SCREEN SKIP.

SELECT-OPTIONS TERDAT FOR VBAK-ERDAT.

SELECTION-SCREEN SKIP.

selection-screen end of block screen1.

*----

*Initialization

**************************************************

Initialization .

TVBELN-low = 4000.

TVBELN-high = 5000.

TVBELN-option = 'BT'.

TVBELN-sign = 'I'.

APPEND TVBELN.

TERDAT-low = '19960202'.

TERDAT-high = '20020302' .

APPEND TERDAT.

*----

AT SELECTION-SCREEN .

SELECT *

FROM VBAK

INTO TABLE TVBAK

WHERE VBELN IN TVBELN AND erdat IN Terdat .

IF sy-subrc ne 0.

MESSAGE 'ENTERED ORDER NOT FOUND' type 'E'.

ENDIF.

*----

START-OF-SELECTION.

REFRESH TVBAK.

SELECT *

FROM VBAK

INTO TABLE TVBAK

WHERE VBELN IN TVBELN AND ERDAT IN TERDAT.

*----

END-OF-SELECTION.

LOOP AT TVBAK.

WRITE: /2 SY-VLINE,

TVBAK-VBELN INPUT ON ,

15 SY-VLINE,TVBAK-ERDAT hotspot on,

30 SY-VLINE, 35 TVBAK-ERNAM,

46 SY-VLINE,

g_cb AS CHECKBOX.

ENDLOOP.

A = SY-LINCT - SY-LINNO - 1.

SKIP A .

RESERVE A LINES.

*----

AT SELECTION-SCREEN OUTPUT.

comm1 ='SELECT SALES ORDER RANGE'.

comm2 ='SELECT SALES ORDER CREATION DATE'.

*----

TOP-OF-PAGE.

ULINE.

WRITE /15 ' SALES ORDER REPORT ' COLOR = 1 .

ULINE.

WRITE : /7 ' VBELN ' COLOR = 5 ,

19 ' ERDAT ' COLOR = 5,

34 ' ERNAM ' COLOR = 5.

ULINE.

*----

END-OF-PAGE.

IF SY-LSIND = 0.

ULINE.

WRITE : /2 'NUMBER OF LINE IN THIS PAGE = ', SY-LINNO.

SKIP.

WRITE: /30 'PAGE NUMBER = ', SY-PAGNO.

ULINE.

ELSEIF SY-LSIND = 1.

ULINE.

WRITE : /12 'TOTAL PRICE = ' ,TEMP.

CLEAR TEMP.

SKIP.

WRITE : /30 'PAGE NUMBER = ', SY-PAGNO.

ULINE.

ENDIF.

*----

at line-selection.

GET CURSOR FIELD FIELDNAME VALUE FIELDVALUE.

IF FIELDNAME = 'TVBAK-VBELN'.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = FIELDVALUE

IMPORTING

OUTPUT = FIELDVALUE.

WINDOW STARTING AT 60 2 ENDING AT 120 25.

IF SY-LSIND = 1.

SELECT

FROM VBAP

INTO TABLE TVBAP

WHERE VBELN EQ FIELDVALUE.

LOOP AT TVBAP.

TEMP = TEMP + TVBAP-NETPR.

WRITE : /2 SY-VLINE, TVBAP-matnr,

17 SY-VLINE,TVBAP-VBELN,

30 SY-VLINE,TVBAP-NETPR currency 'IN',

49 SY-VLINE.

ENDLOOP.

ULINE.

A = SY-LINCT - SY-LINNO - 1.

SKIP A .

RESERVE A LINES.

ENDIF.

ELSEIF SY-LSIND = 2.

call transaction 'MM01' .

ENDIF.

*----

TOP-OF-PAGE DURING LINE-SELECTION.

WRITE : / SY-ULINE,

/7 ' DETAIL OF GIVEN SALES ORDER ' COLOR = 5,

/ SY-ULINE,

/4 'MATNR',

22 'VBELN',

35 'NETPR',

/ SY-ULINE.

*----

REGARDS

ASHOK KUMAR

topic Re: get cursor command in Application Development and Automation Discussions

get cursor command

Re: get cursor command

Re: get cursor command

Re: get cursor command