topic Re: Interactive alv in Application Development and Automation Discussions

Interactive alv

Former Member — Tue, 27 Feb 2007 12:05:36 GMT

Hi,

In interactive alv ,if i want to get fieldname or column postion which i am clicking , based on this i want to display drill dowm alv .

plz help me.

with regards .

prince elvis

Re: Interactive alv

Former Member — Tue, 27 Feb 2007 12:07:35 GMT

Hello,

IN the usercommand routine do like this:


FORM ALV_USER_COMMAND USING R_UCOMM     LIKE SY-UCOMM
                           RS_SELFIELD TYPE SLIS_SELFIELD.

  CASE R_UCOMM.
    WHEN '&IC1'.
*--- Hotspot selektion
      CASE RS_SELFIELD-FIELDNAME.
        WHEN 'NOTE'.
          SELECT * FROM  Z48M_NOTE_LIST INTO TABLE IT_TC01.
          READ TABLE G_T_EKPO INDEX RS_SELFIELD-TABINDEX.
          SELECT SINGLE * FROM Z48M_LIEF_NOTE
                      WHERE EBELN = G_T_EKPO-EBELN
                        AND EBELP = G_T_EKPO-EBELP.
          IF SY-SUBRC = 0.
            LOOP AT IT_TC01.
              IF IT_TC01-KRITER = 'QUALITÄT'.
                IT_TC01-NOTE = Z48M_LIEF_NOTE-QUALI.
              ENDIF.
              IF IT_TC01-KRITER = 'KOSTEN'.
                IT_TC01-NOTE = Z48M_LIEF_NOTE-KOSTE.
              ENDIF.
              IF IT_TC01-KRITER = 'LIEFERTERMIN'.
                IT_TC01-NOTE = Z48M_LIEF_NOTE-LIEFE.
              ENDIF.
              IF IT_TC01-KRITER = 'FLEXIBILITÄT'.
                IT_TC01-NOTE = Z48M_LIEF_NOTE-FLEXI.
              ENDIF.
              IF IT_TC01-KRITER = 'ZUSAMMENARBEIT'.
                IT_TC01-NOTE = Z48M_LIEF_NOTE-ZUSAM.
              ENDIF.
              IF IT_TC01-KRITER = 'SCHWIERIGKEITSGRAD'.
                IT_TC01-NOTE = Z48M_LIEF_NOTE-SCHWI.
              ENDIF.
              MODIFY IT_TC01.
            ENDLOOP.
*            MESSAGE I999(Z48MM) WITH TEXT-004 G_T_EKPO-EBELN
*                                              G_T_EKPO-EBELP.
            CALL SCREEN 0100 STARTING AT 20 05  ENDING AT 80 14.
            G_T_EKPO-NOTE = G_F_AVG.
            MODIFY G_T_EKPO INDEX RS_SELFIELD-TABINDEX.
            RS_SELFIELD-REFRESH = 'X'.

          ELSE.
            CALL SCREEN 0100 STARTING AT 20 05  ENDING AT 80 14.
            G_T_EKPO-NOTE = G_F_AVG.
            MODIFY G_T_EKPO INDEX RS_SELFIELD-TABINDEX.
            RS_SELFIELD-REFRESH = 'X'.
          ENDIF.
      ENDCASE.
  ENDCASE.
ENDFORM. "USER_COMMAND_ALV

Vasanth

Re: Interactive alv

rahulkavuri — Tue, 27 Feb 2007 12:10:16 GMT

In this code RS_SELFIELD gives the field name

&----

*& Form USER_COMMAND

&----

text

----

-->R_UCOMM text
-->RS_SELFIELD text

----

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

CASE R_UCOMM.

WHEN 'BACK' OR 'CANC' OR 'EXIT'.

LEAVE TO SCREEN 0.

WHEN '&IC1'.

SET PARAMETER ID 'AUN' FIELD RS_SELFIELD-VALUE.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

ENDCASE.

ENDFORM. "USER_COMMAND

Re: Interactive alv

Former Member — Tue, 27 Feb 2007 12:13:00 GMT

Hello,

Check this:

http://www.sap-img.com/abap/an-interactive-alv-report.htm

Regards,

Beejal

**Reward if this helps