ABAP code 2 - SAP-TIPS

Sapscript – Local class to easily manage data in performs

Local class :


TYPES : ti_itcsy TYPE STANDARD TABLE OF itcsy WITH DEFAULT KEY.

CLASS lcl_sapscript DEFINITION.
*------------------------------
* Public section
*------------------------------
  PUBLIC SECTION.
    CLASS-METHODS init_tables IMPORTING input_table  TYPE ti_itcsy
                                        output_table TYPE ti_itcsy.
    CLASS-METHODS get_input_value IMPORTING iv_field        TYPE tdtprgname
                                  RETURNING VALUE(rv_value) TYPE tdsymvalue.
    CLASS-METHODS get_output_table RETURNING VALUE(rt_output) TYPE ti_itcsy.
    CLASS-METHODS set_output_value IMPORTING iv_field         TYPE tdtprgname
                                             iv_value         TYPE tdsymvalue
                                   RETURNING VALUE(rt_output) TYPE ti_itcsy.
  PRIVATE SECTION.
    CLASS-DATA : it_static_tbl_input  TYPE ti_itcsy,
                 it_static_tbl_output TYPE ti_itcsy.
ENDCLASS.

CLASS lcl_sapscript IMPLEMENTATION.
  METHOD init_tables.
    CLEAR : it_static_tbl_input, it_static_tbl_output.
    it_static_tbl_input = input_table.
    it_static_tbl_output = output_table.
  ENDMETHOD.
  METHOD get_input_value.
    READ TABLE it_static_tbl_input INTO DATA(ls_table) WITH KEY name = iv_field.
    IF sy-subrc = 0.
      rv_value = ls_table-value.
    ENDIF.
  ENDMETHOD.
  METHOD set_output_value.
    READ TABLE it_static_tbl_output ASSIGNING FIELD-SYMBOL(<fs_output>) WITH KEY name = iv_field.
    IF sy-subrc = 0.
      <fs_output>-value = iv_value.
    ENDIF.
    rt_output = it_static_tbl_output.
  ENDMETHOD.
  METHOD get_output_table.
    rt_output = it_static_tbl_output.
  ENDMETHOD.
ENDCLASS.

Example of use :

Get user default printer

Use FM GET_PRINT_PARAM.
Result will be in field E_USR01-SPLD.

Get customer address

ABAP code to get address from KUNNR (customer number) :


    SELECT SINGLE tsad3t~title_medi AS title, but000~name_org1, but000~name_org2,
                  but000~name_org3, but000~name_org4, adrc~po_box, adrc~street,
                  adrc~post_code1, adrc~city1, adrc~tel_number
      FROM but000
      LEFT OUTER JOIN tsad3t ON tsad3t~title = but000~title " Get the title (and 
                            AND tsad3t~langu = @sy-langu    " not the code)
      INNER JOIN but020 ON but020~partner = but000~partner
      INNER JOIN adrc   ON adrc~addrnumber = but020~addrnumber
      INTO @DATA(ls_customer)
      WHERE but000~partner = @lv_kunnr. " <== Specify customer number

Protected: ZCL_BC_FORMULAIRES (client)

Check TVARVC value in 1 line

Since v7.40, it is possible to check if a value is into TVARVC table in 1 line of code 😎 :


IF NEW /dmbe/cli_db_tvarv( )->is_value_in_tvarv( i_variant = 'ZTVARVC_NAME' i_value = |{ lv_value }| ).
  " Your code here...
ENDIF.

This is one possibility, there are many others…

Insert an image in Selection-screen

Have a look on program : RSDEMO_CUSTOM_CONTROL. to insert an image in Dynpro (not selection screen)

To add image on selection-screen

check the code below :

Table type for VBELN field

This post just to save time, instead of doing where-used on VBELN field…

Type table of VBELN:
– TT_VBELN => TABLE_LINE
– MDS_SALES_KEY_TAB => Champ VBELN (type VBELN_VA)

Type range of VBELN: WTYSC_VBELN_RANGES_TAB

Search tag : type de table

Check range values from a domain

⚠️ This code works only if range values are restricted to Include Equal (I EQ) and domain values are not range of values.

Example of calling code :


  DATA : lv_wrong_value TYPE domvalue_l.
  
  PERFORM f_check_range_val_from_domain USING 'MTART'
                                              s_mtart[]
                                              CHANGING lv_wrong_value.
  IF lv_wrong_value IS NOT INITIAL.
    SET CURSOR FIELD 'S_MTART-LOW' ##NO_TEXT.
    MESSAGE i001(zz) WITH lv_wrong_value DISPLAY LIKE 'E'.
    " Material type &1 is not valid
  ENDIF.

Table type for MATNR field

This post just to save time, instead of doing where-used on MATNR field…

Type table of MATNR : TABLE_MATNR => TABLE_LINE

Type range of MATNR : RANGE_T_MATNR

Search tag : type de table

Conversion exit to manage percentages

To set percentage value, displayed with the char. %, when you want to store only the number, you can use conversion exit.

Here I made the choice to store the number as a string, otherwise, default value is 0 and in my case, 0% is different from empty value.

Category Archive ABAP code

Sapscript – Local class to easily manage data in performs

Get user default printer

Get customer address

Protected: ZCL_BC_FORMULAIRES (client)

Check TVARVC value in 1 line

Insert an image in Selection-screen

To add image on selection-screen

Table type for VBELN field

Check range values from a domain

Table type for MATNR field

Conversion exit to manage percentages

Search

Categories

Links