Kernel BADI in ECLIPSE ADT (ABAP development tool for eclipse)





REPORT z_kernel_badi_example.

DATA: lv_vbeln TYPE vbeln.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
  SELECT-OPTIONS:s_vbeln FOR lv_vbeln.
  PARAMETERS:           p_vkorg TYPE vkorg .
SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.
  DATA : it_vbak TYPE STANDARD TABLE OF vbak,
         lr_badi TYPE REF TO z_sales_order_badi.

  SELECT *
   FROM vbak
   INTO TABLE @it_vbak
   WHERE vbeln IN @s_vbeln
   and   vkorg = @p_vkorg.
  IF sy-subrc IS INITIAL.
    GET BADI lr_badi FILTERS sales_org_filter = p_vkorg.

    CALL BADI lr_badi->modify_header
      CHANGING
        it_vbak = it_vbak.

    cl_salv_table=>factory(
      IMPORTING
        r_salv_table   = DATA(lr_alv)
      CHANGING
        t_table        = it_vbak
    ).
*CATCH cx_salv_msg.

    lr_alv->display( ).

  ENDIF.
***********************************************************************************
interface ZIF_SALES_ORDER_INFO
  public .


  interfaces IF_BADI_INTERFACE .
  METHODS modify_header
    CHANGING it_vbak TYPE vbak_t.
endinterface.
***********************************************************************************
CLASS zcl_fallback_so_info DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .

  PUBLIC SECTION.

    INTERFACES if_badi_interface .
    INTERFACES zif_sales_order_info .
  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.



CLASS zcl_fallback_so_info IMPLEMENTATION.
  METHOD zif_sales_order_info~modify_header.
    LOOP AT it_vbak ASSIGNING FIELD-SYMBOL(<ls_vbak>).
       <ls_vbak>-zzdate = sy-datum.
       <ls_vbak>-zzusername = 'Ram'.
    ENDLOOP.
  ENDMETHOD.
ENDCLASS.

Comments

Post a Comment

Popular posts from this blog

AMDP ( ABAP Managed Database Procedure ) Part - 1

Image
CLASS zcl_amdp_class DEFINITION PUBLIC FINAL CREATE PUBLIC . PUBLIC SECTION. INTERFACES if_amdp_marker_hdb . TYPES: BEGIN OF ty_cust , cust_name TYPE kna1 - name1 , netwr TYPE vbak - netwr , END OF ty_cust , tt_cust TYPE TABLE OF ty_cust . TYPES: BEGIN OF session_variables , client TYPE sy - mandt , cds_client TYPE sy - mandt , uname TYPE sy - uname , langu TYPE sy - langu , datum TYPE sy - datum , END OF session_variables . CLASS-METHODS get_session_variables_amdp AMDP OPTIONS READ-ONLY CDS SESSION CLIENT iv_clnt IMPORTING VALUE( iv_clnt ) TYPE sy - mandt EXPORTING VALUE( clnt ) TYPE session_variables - client VALUE( cds_clnt ) TYPE session_variables - cds_client VALUE( unam ) TYPE session_variables - uname VALUE( lang ) TYPE session_variables - langu ...
Read more

Backup all ADT Objects & Other queries RAP Part 10.1

CLASS zcl_DATA_GENERATOR DEFINITION PUBLIC FINAL CREATE PUBLIC . PUBLIC SECTION. INTERFACES: if_oo_adt_classrun . PROTECTED SECTION. PRIVATE SECTION. ENDCLASS . CLASS zcl_DATA_GENERATOR IMPLEMENTATION. METHOD if_oo_adt_classrun ~ main . " delete existing entries in the database table DELETE FROM ztravel_tech_m . DELETE FROM zBOOKING_tech_m . DELETE FROM zbooksupp_tech_m . COMMIT WORK. " insert travel demo data INSERT ztravel_tech_m FROM ( SELECT * FROM /dmo/travel_m ). COMMIT WORK. " insert booking demo data INSERT zbooking_tech_m FROM ( SELECT * FROM /dmo/booking_m * JOIN ztravel_tech_m AS z * ON booking~travel_id = z~travel_id ). COMMIT WORK. INSERT zbooksupp_tech_m FROM ( SELECT * FROM /dmo/booksuppl_m * JOIN ztravel_tech_m AS z * ON booking~travel_id = z~travel_id ). ...
Read more

SAP CDS Introduction Part 2 - ABAP on HANA Course

Image
Code :- @AbapCatalog.sqlViewName: 'ZVSQL_SAMPLE_01' @EndUserText.label: 'This is my fist DDIC based CDS' @AbapCatalog.preserveKey: true @AbapCatalog: {     buffering: {         status:#SWITCHED_OFF,         type: #NONE,         numberOfKeyFields: 000     },     viewEnhancementCategory: [#PROJECTION_LIST,#UNION],     compiler: {         compareFilter: true     },     dataMaintenance: #RESTRICTED } @AccessControl.authorizationCheck: #CHECK @ClientHandling: {     type: #INHERITED,     algorithm:#SESSION_VARIABLE } define view zcds_sample_01 --( SO, Kunnr, curr,netwr,clnt,sydate,syslang)   as select from vbak   association [1..*] to vbap as _item on vbak.vbeln = _item.vbeln {   key   vbeln                    as so,         kunnr  ...
Read more