VA05 transaction

Question

Hi,
the user requirement is when the list of sales orders is displayed using transaction VA05, if he selects a single record and presses an icon it should take him to the screen VA03.
There is no user exit for this.CAn anyone let me know how can we achieve this?
Thanks,
keerthi.

Answer 1

You need to copy complete SAPMV75A Program to ZSAPMV75A
You need to modify below include
RVREUSE_FORMS  -> Include Program
IF NOT PS_SD_ALV-GRID_DISPLAY IS INITIAL.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
MV75ANEU_USER_COMMAND  -> include program
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
                        RS_SELFIELD TYPE SLIS_SELFIELD.
  SY-UCOMM = R_UCOMM.
  READ TABLE POSTAB INDEX RS_SELFIELD-TABINDEX.
  IF SY-SUBRC = 0.
    DUMMY = '1'.
  ELSE.
    CLEAR DUMMY.
  ENDIF.
  STATICS: GRUP_FLAG.
  STATICS: SAVE_LAYOUT LIKE  GS_SD_ALV-LAYOUT.
  IMPORT LV_REPID FROM MEMORY ID LV_INDX_KEY.
  IF NOT LV_TRVOG IS INITIAL.
    VBCOM-TRVOG = LV_TRVOG.
  ENDIF.
  CASE R_UCOMM.
here you need to use user command to get interactive option to va03  
    WHEN 'GRUP'.
      PERFORM ALV_FCODE_GRUP USING GRUP_FLAG
                                   R_UCOMM
                                   RS_SELFIELD.
      EXIT.
    WHEN '&OUP'.
      GRUP_OK      = 'X'.
      PERFORM ALV_FCODE_OUP USING GRUP_FLAG
                                  R_UCOMM
                                  RS_SELFIELD.
      CLEAR GRUP_OK.
      EXIT.
    WHEN 'ANZE'.
      RS_SELFIELD-REFRESH = 'X'.
      PERFORM ALV_OKCODE_AEND USING SPACE.
    WHEN 'AEND'.
      RS_SELFIELD-REFRESH = 'X'.
      PERFORM ALV_OKCODE_AEND USING 'X'.
    WHEN 'AKDK'.
      PERFORM OKCODE_AKDK.
    WHEN 'AUSW'.
      PERFORM OKCODE_AUSW.
    WHEN 'BACK'.
      PERFORM OKCODE_BACK.
    WHEN 'BELF'.
      PERFORM OKCODE_BELF.
    WHEN 'BELG'.
      PERFORM OKCODE_BELG.
    WHEN 'BELS'.
      PERFORM OKCODE_BELS.
    WHEN 'DARS'.
      PERFORM DARSTELLUNG_ANZEIGEN.
    WHEN 'DYWF'.
      PERFORM OKCODE_DYWF.
    WHEN 'DYWI'.
      PERFORM OKCODE_DYWI.
    WHEN 'F15'.
      PERFORM OKCODE_EF15.
    WHEN 'EF17'.
      PERFORM OKCODE_EF17.
    WHEN 'KUST'.
      PERFORM OKCODE_KUST.
    WHEN 'LIAK'.
      PERFORM ALV_OKCODE_LIAK USING R_UCOMM
                                    RS_SELFIELD.
    WHEN 'LIZW'.
      PERFORM OKCODE_LIZW.
    WHEN 'MABE'.
    Massenbearbeitung zur Erzeugung von Folgebelegen
      PERFORM MASSENBEARBEITUNG_AUFRUFEN.
    perform okcode_mabe.
    WHEN 'MASS'.
      PERFORM OKCODE_MASS.
    WHEN 'MAST'.
      PERFORM OKCODE_MAST.
Massenänderung: Neues Material
    WHEN 'MMAT'.
      PERFORM OKCODE_MMAT.
  Massenänderung: Markierung in allen Sätzen zurücknehmen
    WHEN 'MMDL'.
      PERFORM OKCODE_MMDL.
  Massenänderung: alle Sätze werden markiert
    WHEN 'MMRK'.
      PERFORM OKCODE_MMRK.
Massenänderung: Neue Preisfindung
    WHEN 'MPRF'.
      PERFORM OKCODE_MPRF.
    WHEN 'MPRX'.
      PERFORM OKCODE_MPRF.
Massenänderung: Neues Werk
    WHEN 'MWAE'.
      PERFORM OKCODE_MWAE.
    WHEN 'MWRK'.
      PERFORM OKCODE_MWRK.
    WHEN 'ORGI'.
      PERFORM OKCODE_ORGI.
    WHEN 'PANS'.
      PERFORM OKCODE_PANS.
    WHEN 'SORT'.
      PERFORM OKCODE_SORT.
    WHEN 'SPAL'.
      PERFORM OKCODE_SPAL.
    WHEN 'SPLT'.
      PERFORM OKCODE_SPLT.
    WHEN 'STUF'.
      PERFORM OKCODE_STUF.
    WHEN 'SUCH'.
      PERFORM OKCODE_SUCH.
    WHEN 'SUMM'.
      PERFORM OKCODE_SUMM.
    WHEN 'SUTI'.
      PERFORM OKCODE_SUTI.
    WHEN 'SUVO'.
      PERFORM OKCODE_SUVO.
    WHEN 'SUZU'.
      PERFORM OKCODE_SUZU.
    WHEN 'UEBL'.
    PERFORM OKCODE_UEBL.
    WHEN 'UNIB'.
      PERFORM OKCODE_UNIB.
    WHEN 'UNIF'.
      PERFORM OKCODE_UNIF.
    WHEN 'UNIH'.
      PERFORM OKCODE_UNIH.
    WHEN '&IC1'.
      PERFORM ALV_STANDARD_DETAIL USING RS_SELFIELD.
    WHEN '&ERW'.
      RS_SELFIELD-REFRESH = 'X'.
      PERFORM ALV_STANDARD_FCODES USING VBCOM-ZUART
                                        VBCOM-NAME_DAZU
                                        VBCOM-STAT_DAZU.
    WHEN '&OLX'.
      RS_SELFIELD-REFRESH = 'X'.
      PERFORM ALV_STANDARD_FCODES USING VBCOM-ZUART
                                        VBCOM-NAME_DAZU
                                        VBCOM-STAT_DAZU.
    WHEN '&OL0'.
      RS_SELFIELD-REFRESH = 'X'.
      PERFORM ALV_STANDARD_FCODES USING VBCOM-ZUART
                                        VBCOM-NAME_DAZU
                                        VBCOM-STAT_DAZU.
    WHEN '&OAD'.
      RS_SELFIELD-REFRESH = 'X'.
      PERFORM ALV_STANDARD_FCODES USING VBCOM-ZUART
                                        VBCOM-NAME_DAZU
                                        VBCOM-STAT_DAZU.
    WHEN 'SUMV'.
      PERFORM ALV_OKCODE_SUMV USING VBCOM-ZUART
                                        VBCOM-NAME_DAZU
                                        VBCOM-STAT_DAZU.
    WHEN OTHERS.
      PERFORM USER_OKCODE.
  ENDCASE.
------ Bildtitel setzen ----------------------------------------------
  PERFORM BILDTITEL_SETZEN USING TRVOG ANZGR VBCOM-ZUART.
ENDFORM.
Thanks
Seshu