ALV

[Former Member]

hi,

pls any one can help me.

see the below code.

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

CASE R_UCOMM.

WHEN '&IC1'.

READ TABLE IT_VBAK INTO WA_VBAK INDEX RS_SELFIELD-TABINDEX.

REFRESH I_FIELDCAT.

PERFORM BUILD_FIELDCATLOG_VBAP.

PERFORM EVENT_CALL_VBAP.

PERFORM POPULATE_EVENT_VBAP.

PERFORM DATA_RETRIEVAL_VBAP.

PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.

PERFORM DISPLAY_ALV_VBAP.

WHEN 'IT_VBAK-ERDAT'.

IF sy-subrc EQ 0.

SET PARAMETER ID 'AUN' FIELD VBAK-VBELN.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

• ENDIF.

ENDCASE.

ENDFORM.

iam having 4 coloumns.

vbak-vbeln(sales docu no), vbak-erdat( date), vbak-erzet(Entry) vbak-ernam(name).

in this when i click vbeln, i want to disply second list, this one i am getting but when when i click eradt, i want to display transaction vao3.

this one i am not getting

pls help me.

[Former Member]

hi,

pls any one can help me.

see the below code.

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

CASE R_UCOMM.

WHEN '&IC1'.

READ TABLE IT_VBAK INTO WA_VBAK INDEX RS_SELFIELD-TABINDEX.

REFRESH I_FIELDCAT.

PERFORM BUILD_FIELDCATLOG_VBAP.

PERFORM EVENT_CALL_VBAP.

PERFORM POPULATE_EVENT_VBAP.

PERFORM DATA_RETRIEVAL_VBAP.

PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.

PERFORM DISPLAY_ALV_VBAP.

WHEN 'IT_VBAK-ERDAT'.

IF sy-subrc EQ 0.

SET PARAMETER ID 'AUN' FIELD VBAK-VBELN.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

• ENDIF.

ENDCASE.

ENDFORM.

iam having 4 coloumns.

vbak-vbeln(sales docu no), vbak-erdat( date), vbak-erzet(Entry) vbak-ernam(name).

in this when i click vbeln, i want to disply second list, this one i am getting but when when i click eradt, i want to display transaction vao3.

this one i am not getting

pls help me.

[Former Member]

HI,

Check the below code...

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

CASE R_UCOMM.

WHEN '&IC1'.

• If RS_SELFIELD-fieldname = 'VBELN'. *

READ TABLE IT_VBAK INTO WA_VBAK INDEX RS_SELFIELD-TABINDEX.

REFRESH I_FIELDCAT.

PERFORM BUILD_FIELDCATLOG_VBAP.

PERFORM EVENT_CALL_VBAP.

PERFORM POPULATE_EVENT_VBAP.

PERFORM DATA_RETRIEVAL_VBAP.

PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.

PERFORM DISPLAY_ALV_VBAP.

• */WHEN 'IT_VBAK-ERDAT'.

ELSEIF RS_SELFIELD-fieldname = 'ERDAT'.

SET PARAMETER ID 'AUN' FIELD VBAK-VBELN.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

• ENDIF.*

ENDCASE.

ENDFORM.

Cheers,

Bujji

[Former Member]

Hi,

Check "RS_SELFIELD " against field name

Ex: IF RS_SELFIELD EQ 'eradt'.

call transaction 'VA03'.