topic how to get the cursor position from screen in module pool program in Application Development and Automation Discussions

how to get the cursor position from screen in module pool program

Former Member — Tue, 12 Jan 2010 09:52:19 GMT

Hi,

I am doing the module pool program, I have one table control in one screen.

I have to give functionality to the user that when the user enters first record in the table control and after filling the last field

when he presses enter the cursor will have to come in the starting field of the second record.

I know the logic , but i m bit confused.

Can any body help me to solve this....

thanks

Re: how to get the cursor position from screen in module pool program

mukundkansara — Tue, 12 Jan 2010 09:59:56 GMT

You can do it by using SET CURSOR command,

E.G. SET CURSOR FIELD 'WA_MST-SRNO' LINE 1.

Re: how to get the cursor position from screen in module pool program

Former Member — Tue, 12 Jan 2010 10:01:43 GMT

Hi,

There is no specific coding required further the same..

use

LOOP AT IT_SCARR INTO ITAB WITH CONTROL TC_ITAB

CURSOR TC_ITAB-CURRENT_LINE.

Module <...>

ENDLLOP.

in PBO - and fill the table control in above module

Nag

Re: how to get the cursor position from screen in module pool program

Former Member — Tue, 12 Jan 2010 10:19:44 GMT

Hi,

Check this code,

Write it in the PBO

MODULE SET_CURSOR_WERTKONTRAKT.

MODULE SET_CURSOR_WERTKONTRAKT OUTPUT.

PERFORM SET_CURSOR USING 'VBAP-ZWERT'.

ENDMODULE. " SET_CURSOR_WERTKONTRAKT OUTPUT

FORM SET_CURSOR USING US_FELDNAME.

DATA: DA_TFILL LIKE SY-TFILL.

DESCRIBE TABLE IVBAP LINES DA_TFILL.

FCODE 'Create Position':
==> Cursor to the first free line set to make the new position
Can be created directly

IF DA_TFILL EQ 0.

SET CURSOR FIELD US_FELDNAME LINE 1. -

> set cursor position

ELSE.

SET CURSOR FIELD US_FELDNAME LINE 2.

ENDIF.

Product proposal actively
Set ==> cursor in the first row

IF DPP_ACTIVE EQ CHARX AND

XVBAP_UMFANG_OPV IS INITIAL.

in the 'target volume' if available

IF KOPGR_MIT_ZMENG CS TVAK-KOPGR.

SET CURSOR FIELD 'VBAP-ZMENG' LINE 1.

EXIT.

ELSE.

Else in the field 'Order quantity'

SET CURSOR FIELD 'RV45A-KWMENG' LINE 1.

EXIT.

ENDIF.

Hope it helps you,

Regards,

Abhijit G. Borkar

Re: how to get the cursor position from screen in module pool program

kesavadas_thekkillath — Tue, 12 Jan 2010 10:20:26 GMT

The logic is in PAI get the curdor position and in PBO set the cursor.

use

GET CURSOR FIELD f LINE lin offset off.

SET CURSOR FIELD f LINE lin offset off.

the variable lin holds your current line, f holds the field and off holds the offset.