help in report

Former Member — Tue, 05 Feb 2008 11:31:57 GMT

Hi Friends,

I have one issue , in my report i am displaying vendor details, when i double click on vendor number, it shud go to initial screen of tcode 'XK03',

i am able to pass parameter id for

vendor

company code and purchase organization,

but i have to check atleast one checkbox,

how to set to check that checkbox of tcode 'XK03'

points will be given

thanks

anand

Re: help in report

Former Member — Tue, 05 Feb 2008 11:34:21 GMT

Do a BDC recording for XK03 (only to fill values in 1st screen of XK03).

Use BDCDATA internal table alongwith CALL TRANSACTION statement. Call the transaction in E(error) mode.

Control will stop on the 1st screen of XK03.

If you add the OKCODE for the execute button as well then the control will stop at the next screen.

Former Member — Tue, 05 Feb 2008 11:41:32 GMT

Hi Anand,

Here is the sample program. I have also implemented the same thing, but for the different transaction (FD32).

TABLES: T001.

DATA:  IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

DATA:   OPT TYPE CTU_PARAMS.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT              = SY-MANDT

KEEP                = 'X'

USER                = SY-UNAME

EXCEPTIONS

CLIENT_INVALID      = 1

DESTINATION_INVALID = 2

GROUP_INVALID       = 3

GROUP_IS_LOCKED     = 4

HOLDDATE_INVALID    = 5

INTERNAL_ERROR      = 6

QUEUE_ERROR         = 7

RUNNING             = 8

SYSTEM_LOCK_ERROR   = 9

USER_INVALID        = 10

OTHERS              = 11.

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

ENDIF.

CLEAR IT_BDCDATA.

IT_BDCDATA-PROGRAM = 'SAPMF02C'.

IT_BDCDATA-DYNPRO =  '0100'.

IT_BDCDATA-DYNBEGIN = 'X'.

APPEND IT_BDCDATA.

CLEAR IT_BDCDATA.

IT_BDCDATA-FNAM = 'BDC_CURSOR'.

IT_BDCDATA-FVAL = 'RF02L-D0220'.

APPEND IT_BDCDATA.

SELECT SINGLE * FROM  TVKO

WHERE  VKORG  = KNVV-VKORG.

*&Get Credit Control Area

SELECT SINGLE * FROM T001

WHERE BUKRS = TVKO-BUKRS.

CLEAR IT_BDCDATA.

IT_BDCDATA-FNAM = 'RF02L-KKBER'.

IT_BDCDATA-FVAL = T001-KKBER.

APPEND IT_BDCDATA.

CLEAR IT_BDCDATA.

IT_BDCDATA-FNAM = 'RF02L-D0105'.

IT_BDCDATA-FVAL = 'X'.

APPEND IT_BDCDATA.

CLEAR IT_BDCDATA.

IT_BDCDATA-FNAM = 'RF02L-D0110'.

IT_BDCDATA-FVAL = 'X'.

APPEND IT_BDCDATA.

CLEAR IT_BDCDATA.

IT_BDCDATA-FNAM = 'RF02L-D0120'.

IT_BDCDATA-FVAL = 'X'.

APPEND IT_BDCDATA.

CLEAR IT_BDCDATA.

IT_BDCDATA-FNAM = 'RF02L-D0210'.

IT_BDCDATA-FVAL = 'X'.

APPEND IT_BDCDATA.

CLEAR IT_BDCDATA.

IT_BDCDATA-FNAM = 'RF02L-D0220'.

IT_BDCDATA-FVAL = 'X'.

APPEND IT_BDCDATA.

CLEAR IT_BDCDATA.

IT_BDCDATA-FNAM = 'BDC_OKCODE'.

IT_BDCDATA-FVAL = '/00'.

APPEND IT_BDCDATA.

OPT-DISMODE = 'E'.

OPT-DEFSIZE = 'X'.

SET PARAMETER ID 'KUN' FIELD OBJECT-KEY-CUSTOMERNO.

SET PARAMETER ID 'KKB' FIELD T001-KKBER.

CALL TRANSACTION 'FD32' USING IT_BDCDATA OPTIONS FROM OPT.

Former Member — Tue, 05 Feb 2008 12:28:07 GMT

Hi Chaun and Rao thanks for help, given points for you both