*&---------------------------------------------------------------------*  *& Report  ZVR_HW_IBASE  *&  *&---------------------------------------------------------------------*  * CAS Developer           :  Ajay Setty  * Creation  reckon           :  january 22nd 2010.  * Purpose                 :   show invoice process status.  * MODIFICATIONS HISTORY :  *----------------------------------------------------------------------*  *S.No.  Changed By      Change Date             Purpose  *MOD01  ASETTY          22/01/2010              Initial Creation  *&  *&---------------------------------------------------------------------*    REPORT  zvr_hw_ibase.     embroil zvr_hw_ibase_top.  INCLUDE zvr_hw_ibase_s01.  INCLUDE zvr_hw_ibase_f01.    *--------------------- initialIZATION ----------------------------*  INITIALIZATION.    s_matkl-sign    = I.    s_matkl-option  = EQ.    s_matkl-low     = text-mg1.    APPEND s_matkl.    CLEAR s_matkl.      s_matkl-sign    = I.    s_matkl-option  = EQ.    s_matkl-low     = text-mg2.    APPEND s_matkl.    CLEAR s_matkl.       bring to pass OBJECT w_cref1.    *--------------------- AT SELECTION-SCREEN ----------------------------*  AT SELECTION-SCREEN.    IF s_matnr IS INITIAL AND s_sernr IS INITIAL AND       s_matkl IS INITIAL AND s_kunnr IS INITIAL.      SET CURSOR FIELD s_matnr-LOW.

      MESSAGE text-i01  TYPE E.    ENDIF.    *--------------------- START-OF-SELECTION  ----------------------------*  START-OF-SELECTION.  ******  cop the data to display  CALL FUNCTION Z_I_HW_IBASE    EXPORTING      i_discon             = p_discon    tables      t_material           = s_matnr      t_serial             = s_sernr      t_site               = s_kunnr      t_material_grp       = s_matkl      t_details            = lt_detail.   perform populate_events.    PERFORM build_fieldcat  changing it_field.    perform add_traffic_button.    CLEAR ty_events.    gt_layout-zebra     = X.      CALL FUNCTION REUSE_ALV_LIST_DISPLAY      EXPORTING... If you want to  run low a full essay, order it on our website: 
OrderessayIf you want to get a full essay, wisit our page: 
write my essay .  
No comments:
Post a Comment