Call Transzation with T-code INVOICE(VF03) INQUIRY_NO(VA13) sales order(VA03) Quation(VA23) VF03 Delivery(VL03N)

FORM user_command USING r_ucomm TYPE sy-ucomm rs_selfield TYPE slis_selfield.
  DATA lv_vbeln TYPE vbeln.

  IF rs_selfield-sel_tab_field  = 'GT_FINAL-DELIVERY_NO'.
    IF rs_selfield-value IS NOT INITIAL.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = rs_selfield-value
        IMPORTING
          output = lv_vbeln.
      SET PARAMETER ID 'VL' FIELD lv_vbeln.
      CALL TRANSACTION 'VL03N' WITH AUTHORITY-CHECK AND SKIP FIRST SCREEN.
    ENDIF.
*  ELSEIF rs_selfield-sel_tab_field  = 'GT_FINAL-EXCISE_INV'.
  ELSEIF rs_selfield-sel_tab_field  = 'GT_FINAL-INV_NO'.

    IF rs_selfield-value IS NOT INITIAL.

      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = rs_selfield-value
        IMPORTING
          output = lv_vbeln.
      SET PARAMETER ID 'VF' FIELD lv_vbeln.
      CALL TRANSACTION 'VF03' WITH AUTHORITY-CHECK AND SKIP FIRST SCREEN.
    ENDIF.
  ELSEIF rs_selfield-sel_tab_field  = 'GT_FINAL-QUOT_NO'.
    IF rs_selfield-value IS NOT INITIAL.

      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = rs_selfield-value
        IMPORTING
          output = lv_vbeln.
      SET PARAMETER ID 'AGN' FIELD lv_vbeln.
      CALL TRANSACTION 'VA23' WITH AUTHORITY-CHECK AND SKIP FIRST SCREEN.
    ENDIF.
*  ELSEIF rs_selfield-sel_tab_field  = 'GT_FINAL-BLANKET_NO'.
*    IF rs_selfield-value IS NOT INITIAL.
*      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
*        EXPORTING
*          input  = rs_selfield-value
*        IMPORTING
*          output = lv_vbeln.
*      SET PARAMETER ID 'KTN' FIELD lv_vbeln.
*      CALL TRANSACTION 'VA43' WITH AUTHORITY-CHECK AND SKIP FIRST SCREEN.
*    ENDIF.

  ELSEIF rs_selfield-sel_tab_field  = 'GT_FINAL-SALES_ORDER_NO'.
    IF rs_selfield-value IS NOT INITIAL.

      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = rs_selfield-value
        IMPORTING
          output = lv_vbeln.
      SET PARAMETER ID 'AUN' FIELD lv_vbeln.
      CALL TRANSACTION 'VA03' WITH AUTHORITY-CHECK AND SKIP FIRST SCREEN.
    ENDIF.
  ELSEIF rs_selfield-sel_tab_field  = 'GT_FINAL-PERFORMA_NO'.

    IF rs_selfield-value IS NOT INITIAL.

      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = rs_selfield-value
        IMPORTING
          output = lv_vbeln.
      SET PARAMETER ID 'VF' FIELD lv_vbeln.
      CALL TRANSACTION 'VF03' WITH AUTHORITY-CHECK AND SKIP FIRST SCREEN.
    ENDIF.
  ELSEIF rs_selfield-sel_tab_field  = 'GT_FINAL-INQUIRY_NO'.
    IF rs_selfield-value IS NOT INITIAL.

      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = rs_selfield-value
        IMPORTING
          output = lv_vbeln.
      SET PARAMETER ID 'AFN' FIELD lv_vbeln.
      CALL TRANSACTION 'VA13' WITH AUTHORITY-CHECK AND SKIP FIRST SCREEN.
    ENDIF.
  ENDIF.