Cockpit program for functionals in SAP

Report

REPORT ZAB_RP_CREATE_COCKPIT.


TABLES: sscrfields.

SELECTION-SCREEN begin of block b1 WITH FRAME TITLE text-001.
  SELECTION-SCREEN SKIP 1.
  SELECTION-SCREEN begin of LINE.
    SELECTION-SCREEN: POSITION 10, PUSHBUTTON (20) mm1 USER-COMMAND mm1,
                                   PUSHBUTTON (20) mm2 USER-COMMAND mm2,
                                   PUSHBUTTON (20) mm3 USER-COMMAND mm3.
  SELECTION-SCREEN end OF LINE.

  SELECTION-SCREEN BEGIN OF line.
    SELECTION-SCREEN: POSITION 10, PUSHBUTTON (20) mm4 USER-COMMAND mm4,
                                   PUSHBUTTON (20) mm5 USER-COMMAND mm5,
                                   PUSHBUTTON (20) mm6 USER-COMMAND mm7.
  SELECTION-SCREEN end of line .

  SELECTION-SCREEN BEGIN OF line.
    SELECTION-SCREEN: POSITION 10, PUSHBUTTON (20) mm7 USER-COMMAND mm7,
                                   PUSHBUTTON (20) mm8 USER-COMMAND mm8,
                                   PUSHBUTTON (20) mm9 USER-COMMAND mm9.
  SELECTION-SCREEN end of line .

SELECTION-SCREEN end of block b1.

SELECTION-SCREEN begin of block b2 WITH FRAME TITLE text-002.
  SELECTION-SCREEN SKIP 1.
  SELECTION-SCREEN begin of LINE.
    SELECTION-SCREEN: POSITION 10, PUSHBUTTON (20) sd1 USER-COMMAND sd1,
                                   PUSHBUTTON (20) sd2 USER-COMMAND sd2,
                                   PUSHBUTTON (20) sd3 USER-COMMAND sd3.
  SELECTION-SCREEN end OF LINE.

  SELECTION-SCREEN BEGIN OF line.
    SELECTION-SCREEN: POSITION 10, PUSHBUTTON (20) sd4 USER-COMMAND sd4,
                                   PUSHBUTTON (20) sd5 USER-COMMAND sd5,
                                   PUSHBUTTON (20) sd6 USER-COMMAND sd6.
  SELECTION-SCREEN end of LINE.
SELECTION-SCREEN end of block b2.


INITIALIZATION.
MM1 = 'Create material'.
MM2 = 'Change material'.
MM3 = 'Display material'.
MM4 = 'Create PR'.
MM5 = 'Change PR'.
MM6 = 'Display PR'.
MM7 = 'Create PO'.
MM8 = 'Change PO'.
MM9 = 'Display PO'.
SD1 = 'Create SO'.
SD2 = 'Change SO'.
SD3 = 'Display SO'.
SD4 = 'Create Billing'.
SD5 = 'Change Billing'.
SD6 = 'Display Billing'.

at SELECTION-SCREEN .
  CASE sscrfields-ucomm.
    WHEN 'MM1'.
      Call TRANSACTION 'MM01'.
    WHEN 'MM2'.
      Call TRANSACTION 'MM02'.
    WHEN 'MM3'.
      Call TRANSACTION 'MM03'.
    WHEN 'MM4'.
      Call TRANSACTION 'ME51N'.
    WHEN 'MM5'.
      Call TRANSACTION 'ME52N'.
    WHEN 'MM6'.
      Call TRANSACTION 'ME53N'.
     WHEN 'MM7'.
      Call TRANSACTION 'ME21N'.
    WHEN 'MM8'.
      Call TRANSACTION 'ME22N'.
    WHEN 'MM9'.
      Call TRANSACTION 'ME23N'.

    WHEN 'SD1'.
      Call TRANSACTION 'VA01'.
    WHEN 'SD2'.
      Call TRANSACTION 'VA02'.
    WHEN 'SD3'.
      Call TRANSACTION 'VA03'.
    WHEN 'SD4'.
      Call TRANSACTION 'VF01'.
    WHEN 'SD5'.
      Call TRANSACTION 'VF02'.
    WHEN 'SD6'.
      Call TRANSACTION 'VF03'.

    WHEN OTHERS.
  ENDCASE.

Output


 * If click particular button call transaction will be called.

******************************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