Calling VA03 screen through ALV after double click

*&---------------------------------------------------------------------*
*& Report ZVB_VBAK1
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZVB_VBAK1.
TABLES:VBAK,VBAP.
TYPES:BEGIN OF TY_FINAL,
       VBELN TYPE VBAK-VBELN,
       POSNR TYPE VBAP-POSNR,
      END OF TY_FINAL.

DATA:IT_FINAL TYPE TABLE OF TY_FINAL.
DATA:it_fcat TYPE slis_t_fieldcat_alv,
     iw_fcat TYPE slis_fieldcat_alv.

SELECT-OPTIONS S_VBELN FOR VBAK-VBELN.

START-OF-SELECTION.
SELECT a~vbeln b~posnr
  from vbak as a
  INNER JOIN vbap as b on a~vbeln = b~vbeln
   INTO TABLE it_final
  WHERE a~vbeln in s_vbeln.

  SORT IT_FINAL BY VBELN POSNR.

  REFRESH:it_fcat.
  CLEAR:iw_fcat.
  iw_fcat-fieldname = 'VBELN'.
  iw_fcat-seltext_m = 'Sales Document'.
  APPEND iw_fcat TO it_fcat.

  CLEAR:iw_fcat.
  iw_fcat-fieldname = 'POSNR'.
  iw_fcat-seltext_m = 'Item'.
  APPEND iw_fcat TO it_fcat.

   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = sy-repid
      i_callback_user_command = 'USER_COMMAND'
      it_fieldcat             = it_fcat
    TABLES
      t_outtab                = it_final.

FORM user_command USING p_ucomm TYPE sy-ucomm
             p_selfield TYPE slis_selfield.
  CASE p_ucomm.
    WHEN '&IC1'.
      IF p_selfield-fieldname = 'VBELN'.
        SET PARAMETER ID 'AUN' FIELD p_selfield-value.
        CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
      ELSE.
        MESSAGE 'Please double click on Sales document to navigae VA03 Screen' TYPE 'I'.
      ENDIF.
  ENDCASE.
ENDFORM. 

Result:

 

Double click on Sales document 3


Comments

Post a Comment

Popular posts from this blog

CDS Views: Table Functions with Example

Image
1.Which supports the additional functionalities which are not supported by CDS. 2.SQL statements will written and will use SQL functions and methodologies. 3.Table function has optional input parameters and return parameters. 4.Needs class and method to define. -Class:Public, Method:Static 5.The statement Interface:IF_AMDP_MARKER_HDB must be use. 1.Creation of Table Function: Create a Data Definition and select template 'Define Table Function with Parameters' @EndUserText.label: 'Prod Order TF' define table function ZVB_TF_PROD_ORD //with parameters parameter_name : parameter_type returns { client : abap . clnt ; Prod_order : aufnr ; order_type : auart ; } implemented by method zvb_class_tf => get_ord_details ;   2.Creation of Class: CLASS zvb_class_tf DEFINITION PUBLIC . PUBLIC SECTION. CLASS-METHODS: get_ord_details FOR TABLE FUNCTION ZVB_TF_PROD_ORD . INTERFACES: IF_AMDP_MARKER_HDB . PROTECTED SECTION. PRIVATE SECTION. ENDCLASS. ...
Read more

Passing Dynamic Variables to SO10 TEXT

REPORT  ZTEST_POPUP . PARAMETERS : A  TYPE  i ,  B  TYPE  i . DATA:  C TYPE  i ,       lv_text  TYPE  string , C  =  A + B .   data : it_final  TYPE  TABLE  OF  tline . DATA : CHANGED  TYPE  STRING . CALL  FUNCTION  'READ_TEXT'    EXPORTING     CLIENT                         =  SY - MANDT      id                             =  'ST'      language                       =  SY - LANGU  ...
Read more

Adobe Form/PDF Form Introduction

  Introduction: ·        Adobe forms are interactive smartforms. ·       We can interact with the layout of the adobe forms. ·        Adobe forms provides the output in the form of PDF. ·        T-code for Adobe form id SFP. ·        In Adobe form, we need to create an interface, the same interface can be used in multiple adobe forms. ·        Adobe form also generates a function at runtime. ·        Adobe life cycle designer(ADLC) is required to design the adobe form layout. Difference b/w smart form and adobe form: ·        Smart forms are not interactive whereas adobe forms are interactive. ·        In Smart forms the form interface, global definitions, pages, windows are all together whereas in A...
Read more