Local interface with example using parameters.

 1. Goto SE38.

2. Give program name and click on create.

3. Give description and select type executable program.

4. Write code.

REPORT zab_if_sale_delivery.
DATA: lv_erzet TYPE erzet,
      lv_erdat TYPE erdat,
      lv_vbtyp TYPE vbtyp,
      lv_ernam TYPE ernam.
PARAMETERS: p_vbeln TYPE vbeln.
PARAMETERS: p_r1 TYPE c RADIOBUTTON GROUP g1,
            p_r2 TYPE c RADIOBUTTON GROUP g1.

INTERFACE if_sale_del.

  METHODS display
    IMPORTING pvbeln TYPE vbeln
    EXPORTING perzet TYPE erzet
              perdat TYPE erdat
              pvbtyp TYPE vbtyp
              pernam TYPE ernam.
ENDINTERFACE.

CLASS sale DEFINITION.
  PUBLIC SECTION.
    INTERFACES if_sale_del.
ENDCLASS.
CLASS sale IMPLEMENTATION.
  METHOD if_sale_del~display.
    SELECT SINGLE erzet
            erdat
            vbtyp
            ernam
            FROM vbak
            INTO ( perzet,perdat, pvbtyp, pernam )
            WHERE vbeln EQ p_vbeln.
  ENDMETHOD.
ENDCLASS.

CLASS delivery DEFINITION.
  PUBLIC SECTION.
    INTERFACES if_sale_del.

ENDCLASS.
CLASS delivery IMPLEMENTATION.
  METHOD if_sale_del~display.
    SELECT SINGLE erzet
            erdat
            vbtyp
            ernam
            FROM likp
            INTO ( perzet,perdat, pvbtyp, pernam )
            WHERE vbeln EQ p_vbeln.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA: obj_sale TYPE REF TO sale,
        obj_del  TYPE REF TO delivery.
  IF p_r1 = 'X'.
    CREATE OBJECT obj_sale.
    obj_sale->if_sale_del~display(
      EXPORTING
        pvbeln = p_vbeln
      IMPORTING
        perzet = lv_erzet
        perdat = lv_erdat
        pvbtyp = lv_vbtyp
        pernam = lv_ernam
    ).
    WRITE: 'Sale order details', / p_vbeln ,
                                / lv_erzet,
                                / lv_erdat,
                                / lv_vbtyp,
                                / lv_ernam.
  ELSEIF p_r2 = 'X'.
    CREATE OBJECT obj_del.
    obj_del->if_sale_del~display(
      EXPORTING
        pvbeln = p_vbeln
      IMPORTING
        perzet = lv_erzet
        perdat = lv_erdat
        pvbtyp = lv_vbtyp
        pernam = lv_ernam
    ).
    WRITE: 'Delivery order details', / p_vbeln ,
                                / lv_erzet,
                                / lv_erdat,
                                / lv_vbtyp,
                                / lv_ernam.

  ENDIF.

Case1-Sale

    * Input

    * Output

    


Case2-Delivery

    * Input

    * Output

****************************Thank you ****************************

Comments

Post a Comment

Popular posts from this blog

Pf status and user command in factory method - OOPS ALV in ABAP

Image
  1. Goto  SE38 . 2. Give  program name  and click on  create . 3. Give  title  and  click on save . 4. Write  code. REPORT  zab_rp_oops_pfstatus_ucomm . TABLES :   ekko , ekpo . TYPES :   BEGIN  OF  ty_ekko ,          ebeln  TYPE  ekko - ebeln ,          bukrs  TYPE  ekko - bukrs ,          bstyp  TYPE  ekko - bstyp ,          bsart  TYPE  ekko - bsart ,         END  OF  ty_ekko . TYPES :   BEGIN  OF  ty_ekpo ,          ebeln  TYPE  ekpo - ebeln ,          ebelp  TYPE  ekpo - ebelp ,          matnr  TYPE  ekpo - matnr ,          werks  TYPE  ekpo - werks ,         END  OF  ty_ekpo . DATA :   lt_ekko  TYPE  TABLE  OF  ty_ekko ,       lr_ekko  TYPE  ty_ekko ,       lt_ekpo  TYPE  TABLE  OF  ty_ekpo ,       lr_ekpo  TYPE  ty_ekpo . DATA :   lo_salv1 TYPE   REF  TO  cl_salv_table ,       lo_salv2  TYPE  REF  TO  cl_salv_table ,       lo_events  TYPE  REF  TO  cl_salv_events_table ,       lo_grid    TYPE  REF  TO  cl_gui_alv_grid ,       lt_rows    TYPE  lvc_t_row ,       lr_rows    TYPE 
Read more

fetch the data from table and send an email in ABAP

Image
  Send an email in abap. REPORT  ZAJAY_EF_ZSTU . tables : zstu . data :  maildata  LIKE  sodocchgi1 ,       mailtxt   LIKE  solisti1  OCCURS  10  WITH  HEADER  LINE ,       mailrec   LIKE  somlrec90  OCCURS  0  WITH  HEADER  LINE ,       it_zstu  type  table  of  zstu  WITH  HEADER  LINE ,       wa_zstu  type  zstu . START-OF-SELECTION .      clear : maildata , mailtxt , mailrec .      REFRESH : mailtxt , mailrec . select-OPTIONS  :  s_id  for  zstu - zstu_id . SELECT  *  from  zstu  into  TABLE  it_zstu  where  zstu_id  in  s_id .    sort  it_zstu  by  zstu_id . maildata - obj_descr  =  | Employee details | . mailtxt  =  '<!DOCTYPE html>' . append  mailtxt . mailtxt  =  '<html lang="en">' . append  mailtxt . mailtxt  =  '<head>' . append  mailtxt .   mailtxt  =  '<title>Email Functionality</title>' .   append  mailtxt . * mailtxt = ' <style>'. * append mailtxt. * *  mailtxt = 'table, th, td { bor
Read more

Enhancements in abap

 Enhancements     *  Will enhance the sap functionality in customer name space.     *  Customer  name space-> (z or y) Modifications      *  Will enhance the sap functionality in sap name space.     *  Name  should not start with z or y. Types      1. Implicit and Explicit enhancements { enhancements }      2. Customer exit. { enhancements }      3. Badi { enhancements }      4. User exit { modification } Implicit      *  Implicit point is available at the starting or at the last of program.     *  Subroutines, function  modules  etc. Explicit        *  Explicit point & section are available at any line.     *  Point  - It will not give default implementation .                     -  You can only add additional codes, you can't replace the existing code.     *  Section - It will give default implementation .      -  You can change or replace the existing code. BADI             - Badi is an enhancement. we enhance the sap functionalities in customer name space. -
Read more