problm in calling another screen

[Former Member]

hi

below is my code...

wn i doubl click on process order number i want to go to COR3 here it is going

bt my problm is if i click on different process order number im getting same screen in COR3..

how to solve this issue?

FORM F01_ALV_EVENT_USER_COMMAND

USING COMMAND LIKE SY-UCOMM

SELFIELD TYPE SLIS_SELFIELD.

CASE selfield-fieldname.

WHEN 'AUFNR'.

READ TABLE IT_FINAL INTO WA_FINAL INDEX SELFIELD-TABINDEX.

IF SY-SUBRC EQ 0.

SET PARAMETER ID 'ANR' FIELD WA_FINAL-AUFNR.

CALL TRANSACTION 'COR3' AND SKIP FIRST SCREEN.

ENDIF.

CLEAR wa_final-aufnr.

ENDCASE.

ENDFORM.

[Former Member]

hi

below is my code...

wn i doubl click on process order number i want to go to COR3 here it is going

bt my problm is if i click on different process order number im getting same screen in COR3..

how to solve this issue?

FORM F01_ALV_EVENT_USER_COMMAND

USING COMMAND LIKE SY-UCOMM

SELFIELD TYPE SLIS_SELFIELD.

CASE selfield-fieldname.

WHEN 'AUFNR'.

READ TABLE IT_FINAL INTO WA_FINAL INDEX SELFIELD-TABINDEX.

IF SY-SUBRC EQ 0.

SET PARAMETER ID 'ANR' FIELD WA_FINAL-AUFNR.

CALL TRANSACTION 'COR3' AND SKIP FIRST SCREEN.

ENDIF.

CLEAR wa_final-aufnr.

ENDCASE.

ENDFORM.

[Former Member]

Prior to case statement set SELFIELD-REFRESH = 'X'.

FORM F01_ALV_EVENT_USER_COMMAND
USING COMMAND LIKE SY-UCOMM
SELFIELD TYPE SLIS_SELFIELD.

   selfield-refresh = 'X'.
   CASE selfield-fieldname.
      WHEN 'AUFNR'.
         READ TABLE IT_FINAL INTO WA_FINAL INDEX SELFIELD-TABINDEX.
         IF SY-SUBRC EQ 0.
           SET PARAMETER ID 'ANR' FIELD WA_FINAL-AUFNR.
           CALL TRANSACTION 'COR3' AND SKIP FIRST SCREEN.
         ENDIF.
       CLEAR wa_final-aufnr.

     ENDCASE.
ENDFORM.

[Former Member]

hi,

add following code...maybe it help you...

IF SY-SUBRC EQ 0.

SET PARAMETER ID 'ANR' FIELD WA_FINAL-AUFNR.

SET PARAMETER ID 'BR1' FIELD WA_FINAL-AUFNR.

CALL TRANSACTION 'COR3' AND SKIP FIRST SCREEN.

regards,darek

[Former Member]

hi

thanks the problm is solved

can u tell me wr u got that BR1

Regards

Smitha

[Former Member]

hi

thanks the problm is solved

can u tell me wr u got that BR1

Regards

Smitha

[Former Member]

hi

thanks the problm is solved

can u tell me wr u got that BR1

Regards

Smitha

[Former Member]

from PBO code of first screen in cor3

regrds,darek

[faisalatsap]

Hi, Smitha

You can do the following way Test Sample Code hope it will solve out your problem,

DATA: it_bdcdata TYPE TABLE OF bdcdata,
      wa_it_bdcdata LIKE LINE OF it_bdcdata,
      aufnr TYPE aufnr.

aufnr = '1000020'. " Here you can set the value of Process order Field on COR3

DATA opt TYPE ctu_params.

CLEAR wa_it_bdcdata.
wa_it_bdcdata-program  = 'SAPLCOKO'.
wa_it_bdcdata-dynpro   = '5110'.
wa_it_bdcdata-dynbegin = 'X'.
APPEND wa_it_bdcdata TO it_bdcdata.

CLEAR wa_it_bdcdata.
wa_it_bdcdata-fnam = 'BDC_CURSOR'.
wa_it_bdcdata-fval = 'CAUFVD-AUFNR'.
APPEND wa_it_bdcdata TO it_bdcdata.

CLEAR wa_it_bdcdata.
wa_it_bdcdata-fnam = 'CAUFVD-AUFNR'.
wa_it_bdcdata-fval = aufnr.
APPEND wa_it_bdcdata TO it_bdcdata.

opt-dismode = 'E'.

CALL TRANSACTION 'COR3' USING it_bdcdata OPTIONS FROM opt.

Best Regards,

Faisal

[Former Member]

Hi,

i think there is not necessary to read the Index again..

because the AUFNR field value is already stored in ls_selfield-value.

try like this..

 FORM F01_ALV_EVENT_USER_COMMAND
   USING COMMAND LIKE SY-UCOMM
         SELFIELD TYPE SLIS_SELFIELD.


  CHECK NOT ls_selfield-value IS INITIAL.

  CASE ls_selfield-sel_tab_field.
    WHEN 'AUFNR'.
      SET PARAMETER ID 'ANR' FIELD ls_selfield-value.
     CALL TRANSACTION 'COR3' AND SKIP FIRST SCREEN.
ENCASE.


ENDFORM.                    "USER_COMMAND

Regards,

Prabhudas

[Former Member]

thanks