SAP ABAP General Archives

How to add buttons on selection screen

This article teach you how to add buttons on ABAP Selection screen. so you just copy and paste ABAP Code to your ABAP Workbench and change as you need.

TABLES : sscrfields.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-b02.
SELECTION-SCREEN:
BEGIN OF LINE,
  PUSHBUTTON 2(30) text-bt1 USER-COMMAND bt1,
END OF LINE,
BEGIN OF LINE,
  PUSHBUTTON 2(30) text-bt2 USER-COMMAND bt2,
END OF LINE,
BEGIN OF LINE,
  PUSHBUTTON 2(30) text-bt3 USER-COMMAND bt3,
END OF LINE,
BEGIN OF LINE,
  PUSHBUTTON 2(30) text-bt4 USER-COMMAND bt4,
END OF LINE,
BEGIN OF LINE,
  PUSHBUTTON 2(30) text-bt5 USER-COMMAND bt5,
END OF LINE.
SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm CP 'BT*'.
    PERFORM f_call_transaction USING sscrfields-ucomm.
    EXIT.
  ENDIF.

START-OF-SELECTION.
*&---------------------------------------------------------------------*
*&      Form  F_CALL_TRANSACTION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_SSCRFIELDS_UCOMM  text
*----------------------------------------------------------------------*
FORM f_call_transaction USING fu_ucomm.

  CASE fu_ucomm.
    WHEN 'BT1'.
     "add your abap code for this event command
  ENDCASE.


ENDFORM.                    " F_CALL_TRANSACTION

TABLES : sscrfields.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-b02.

SELECTION-SCREEN:

BEGIN OF LINE,

PUSHBUTTON 2(30) text-bt1 USER-COMMAND bt1,

END OF LINE,

BEGIN OF LINE,

PUSHBUTTON 2(30) text-bt2 USER-COMMAND bt2,

END OF LINE,

BEGIN OF LINE,

PUSHBUTTON 2(30) text-bt3 USER-COMMAND bt3,

END OF LINE,

BEGIN OF LINE,

PUSHBUTTON 2(30) text-bt4 USER-COMMAND bt4,

END OF LINE,

BEGIN OF LINE,

PUSHBUTTON 2(30) text-bt5 USER-COMMAND bt5,

END OF LINE.

SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN.

IF sscrfields-ucomm CP 'BT*'.

PERFORM f_call_transaction USING sscrfields-ucomm.

EXIT.

ENDIF.

START-OF-SELECTION.

*&---------------------------------------------------------------------*

*& Form F_CALL_TRANSACTION

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->P_SSCRFIELDS_UCOMM text

*----------------------------------------------------------------------*

FORM f_call_transaction USING fu_ucomm.

CASE fu_ucomm.

WHEN 'BT1'.

"add your abap code for this event command

ENDCASE.

ENDFORM. " F_CALL_TRANSACTION

How to download Excel File With Password Protection

SAP ABAP Tutorial – You can download excel file from SAP System using function module EXCEL_OLE_STANDARD_DAT, this function module will generate excel file contain data from internal table and you able to password excel file. Check out this ABAP Code.

REPORT ztest.

DATA : BEGIN OF li_makt OCCURS 0,
         matnr TYPE matnr,
         maktx TYPE maktx,
       END OF li_makt.

DATA: BEGIN OF li_head OCCURS 0,
        field(30) TYPE c,
      END OF li_head.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.
PARAMETERS:
  p_file TYPE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  PERFORM browse_file CHANGING p_file.

START-OF-SELECTION.

  REFRESH li_head.

  DEFINE mc_head.
    li_head-field = &1.
    APPEND li_head.
  END-OF-DEFINITION.

  SELECT matnr maktx INTO TABLE li_makt FROM makt UP TO 20 ROWS WHERE spras = sy-langu .

  mc_head : 'Material No', 'Material Description'.

  CALL FUNCTION 'EXCEL_OLE_STANDARD_DAT'
    EXPORTING
      file_name                 = p_file
      create_pivot              = 0
      data_sheet_name           = 'Data Material'
      pivot_sheet_name          = ' '
      password                  = 'plazapp'
      password_option           = 1
    TABLES
      data_tab                  = li_makt
      fieldnames                = li_head
    EXCEPTIONS
      file_not_exist            = 1
      filename_expected         = 2
      communication_error       = 3
      ole_object_method_error   = 4
      ole_object_property_error = 5
      invalid_filename          = 6
      invalid_pivot_fields      = 7
      download_problem          = 8
      OTHERS                    = 9.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.


FORM browse_file CHANGING p_file LIKE rlgrap-filename.
  DATA: filetab   TYPE filetable,
        rc        TYPE i,
        lv_offset TYPE i.

  FREE filetab.
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = 'Choose File'
      default_extension       = '*.*'
      default_filename        = 'c:\*.xls'
    CHANGING
      file_table              = filetab
      rc                      = rc
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      OTHERS                  = 4.
  IF sy-subrc = 0.
    READ TABLE filetab INTO p_file INDEX 1.
  ENDIF.
ENDFORM. " browse_file

REPORT ztest.

DATA : BEGIN OF li_makt OCCURS 0,

matnr TYPE matnr,

maktx TYPE maktx,

END OF li_makt.

DATA: BEGIN OF li_head OCCURS 0,

field(30) TYPE c,

END OF li_head.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.

PARAMETERS:

p_file TYPE rlgrap-filename OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

PERFORM browse_file CHANGING p_file.

START-OF-SELECTION.

REFRESH li_head.

DEFINE mc_head.

li_head-field = &1.

APPEND li_head.

END-OF-DEFINITION.

SELECT matnr maktx INTO TABLE li_makt FROM makt UP TO 20 ROWS WHERE spras = sy-langu .

mc_head : 'Material No', 'Material Description'.

CALL FUNCTION 'EXCEL_OLE_STANDARD_DAT'

EXPORTING

file_name = p_file

create_pivot = 0

data_sheet_name = 'Data Material'

pivot_sheet_name = ' '

password = 'plazapp'

password_option = 1

TABLES

data_tab = li_makt

fieldnames = li_head

EXCEPTIONS

file_not_exist = 1

filename_expected = 2

communication_error = 3

ole_object_method_error = 4

ole_object_property_error = 5

invalid_filename = 6

invalid_pivot_fields = 7

download_problem = 8

OTHERS = 9.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

FORM browse_file CHANGING p_file LIKE rlgrap-filename.

DATA: filetab TYPE filetable,

rc TYPE i,

lv_offset TYPE i.

FREE filetab.

CALL METHOD cl_gui_frontend_services=>file_open_dialog

EXPORTING

window_title = 'Choose File'

default_extension = '*.*'

default_filename = 'c:\*.xls'

CHANGING

file_table = filetab

rc = rc

EXCEPTIONS

file_open_dialog_failed = 1

cntl_error = 2

error_no_gui = 3

OTHERS = 4.

IF sy-subrc = 0.

READ TABLE filetab INTO p_file INDEX 1.

ENDIF.

ENDFORM. " browse_file

You must fill parameter PASSWORD with your password and give ‘1’ into parameter PASSWORD_OPTION. When […]

How to create toolbar buttons on selection screen

In this article we will see how to create toolbar buttons and click code added to selections screen. In this example we will create a program that will display a selection screen having three toolbar buttons, each of which when clicked takes to other transaction. 1. Declare sscrfields the declare dictionary structure. 2. We define […]

How to Create Global Macro in ABAP

ABAP Developer use DEFINE … ENF-OF-DEFINITION to create local macro in ABAP Code. Macro definitely help developer to create code more readable and to avoid code repetition. In this article, we would explain how to create global macro, Global Macro can be created by maintaining entries in TRMAC table. You can create global macro with […]

How to use Function Module KBPP_EXTERN_UPDATE_CO to upload Cost Planning via transaction code CJ40

Implementing SAP PS Module you have to enter cost planning for WBS after you create Project and WBS, Normally you can add cost planning by transaction code CJ40. The other ways for automatic process such as upload data cost planning of WBS via Excel you can use function module KBPP_EXTERN_UPDATE_CO. Please check out ABAP Code […]

How to Update ABAP Web Service after change Function Module

You have known is ABAP Web service can generate or create from Function Module, but in this article we don’t explain the procedure to create ABAP Web Service. Supposed you have created An ABAP Web services from the function module but next day we take new requirement of business process and you need to modify […]

Running Function Modules with Test Sequences using SE37

The Function Builder ( SE37 ) has an interface that allows you to test function module. Some function modules are required to run one after another, However you can’t run them one by one using classical test methods because some functions in sequence might depend on previous one. The main difference with using test sequences […]

How to enable NAST and NACE in SAP S/4 HANA

In SAP S/4 HANA output management set default to use BRF+ ( BRF Plus ), if you want to use classic output management NAST and NACE you can follow these step. You can disable BRF Plus for output management if you are running SAP S/4 HANA 1610 version through SPRO -> Cross Application Components -> […]

Get Data From ALV Report SAP Standard and Output into Internal Table

How to get data output from another ALV Report or SAP Standard Report and save into internal table our Z Program is common case on SAP Project, i know nobody wants to change another SAP Standard report just accomodate this requirement, this questions is frequently asked for ABAP Consultant. There are number of ways to […]

Business Partner Relationship Report using RS_TREE_LIST_DISPLAY and RS_TREE_CONSTRUCT

SAP ABAP Tutorial – You can create Tree Report simple using RS_TREE_LIST_DISPLAY. In this sample ABAP Code we have to create Business Partner Relationship Report. This report must build with Tree layout report, let’s start from getting data and put into an internal table, then build tree node by populating internal table which it have […]