abap – Page 6 – nocin.eu

[ABAP] OM – Lese Personen auf und unterhalb einer OE

November 12, 2020 June 12, 2024

Auswertungsweg O-O-S-P liefert unter einer gegebenen Org. Einheit alle Personen, auch aus tieferen OE.

T-Code: OOAW

    DATA(lt_actor) = VALUE tswhactor( ).
    CALL FUNCTION 'RH_STRUC_GET'
      EXPORTING
        act_otype       = 'O'
        act_objid       = lv_oe " die Org. Einheit, von der gestartet werden soll
        act_wegid       = 'O-O-S-P'
        act_plvar       = '01'
        act_begda       = sy-datum
        act_endda       = sy-datum
        act_tflag       = space
        act_vflag       = space
        authority_check = space
      TABLES
        result_tab      = lt_actor
      EXCEPTIONS
        no_plvar_found  = 1
        no_entry_found  = 2
        OTHERS          = 3.
    IF sy-subrc <> 0.
      " do error handling
    ENDIF.

    " Nur Pernr's relevant
    DELETE lt_actor WHERE otype <> 'P'.
    " Doppelte Pernr's entfernen
    DELETE ADJACENT DUPLICATES FROM lt_actor.

Zum Testen des Auswertungsweges kann man den Report RHSTRU00 verwenden. Einfach Planvariante, Objekttyp und eine ObjektId einer Org. Einheit eingeben, sowie den Auswertungsweg und Statusvektor 1 (aktiv).

ABAP

[ABAP] Date & Time Expressions

November 10, 2020 November 11, 2020

https://help.sap.com/doc/abapdocu_750_index_htm/7.50/en-US/abapcompute_string_format_options.htm

DATA(l_date) = |{ sy-datum COUNTRY = 'DE ' }| "result 01.01.2020
DATA(l_time) = |{ sy-uzeit COUNTRY = 'DE ' }| "result 08:00

"another way
DATA(l_date) = |{ sy-datum DATE = ENVIRONMENT }|.
DATA(l_time) = |{ sy-uzeit TIME = ENVIRONMENT }|.

ABAP

[ABAP] min / max

November 8, 2020 April 14, 2021

    l_result = nmin( val1 = 10 val2 = 20 ).   " = 10
    l_result = nmax( val1 = 10 val2 = 20 ).   " = 20

ABAP, Functionmodule

[ABAP] Get month name

October 19, 2020 October 13, 2022

METHOD get_month_name.

   DATA: month_names TYPE TABLE OF t247.

   CALL FUNCTION 'MONTH_NAMES_GET'
     TABLES
       month_names = month_names
     EXCEPTIONS
       OTHERS      = 0.

   TRY.
       r_name = month_names[ mnr = i_month ]-ltx.

     CATCH cx_sy_itab_line_not_found.
   ENDTRY.

ENDMETHOD.

ALV

[ABAP] ALV column header

September 18, 2020 September 18, 2020

DATA: o_salv TYPE REF TO cl_salv_table.

cl_salv_table=>factory( IMPORTING r_salv_table = o_salv
                        CHANGING  t_table      = l_lines ).

LOOP AT o_salv->get_columns( )->get( ) REFERENCE INTO DATA(l_column).
  DATA(lo_column) = CAST cl_salv_column( l_column->r_column ).
  lo_column->set_fixed_header_text( 'L' ).
ENDLOOP.

o_salv->get_columns( )->get_column( 'TEST1' )->set_long_text( 'Test1 Header' ).
o_salv->get_columns( )->get_column( 'TEST2' )->set_long_text( 'Test2 Header' ).

ABAP, Classes, HR

[ABAP] Read cost center description

August 26, 2020 August 26, 2020

DATA(kostl_text) = NEW cl_hrpa_ui_convert_0859( )->get_txt_costcenter( iv_kokrs = lv_kokrs iv_kostl = lv_kostl iv_date = sy-datum ).

# Class is using FUBA 'HRCA_COSTCENTER_GETDETAIL'

ABAP, Classes, Functionmodule

[ABAP] Download internal table as TXT or CSV

August 6, 2020 May 21, 2024

" ty_output and tt_output are just dummy types

DATA: l_output_line    TYPE ty_output,
      l_output_lines   TYPE tt_output,  
      l_csv_output     TYPE truxs_t_text_data,
      l_txt_output     TYPE TABLE OF string,

PARAMETERS: p_alv   RADIOBUTTON GROUP rb1 DEFAULT 'X' USER-COMMAND radio,
            p_csv   RADIOBUTTON GROUP rb1,
            p_flcsv TYPE rlgrap-filename DEFAULT 'c:\temp\file.csv',
            p_txt   RADIOBUTTON GROUP rb1,
            p_fltxt TYPE rlgrap-filename DEFAULT 'c:\temp\file.txt'.

" fill table l_output_lines with your data you want to export as txt or csv

  IF p_csv = abap_true.

    CALL FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'
      TABLES
        i_tab_sap_data       = l_output_lines
      CHANGING
        i_tab_converted_data = l_csv_output.

    TRY.
        cl_gui_frontend_services=>gui_download( EXPORTING filename = CONV #( p_flcsv )
                                                          filetype = 'ASC'
                                                CHANGING  data_tab = l_csv_output ).  
      CATCH cx_root INTO DATA(e_text).
        MESSAGE e_text->get_text( ) TYPE 'I'.
    ENDTRY.


  ELSEIF p_txt = abap_true.

    LOOP AT l_output_lines INTO l_output_line.
      CALL FUNCTION 'SO_STRUCT_TO_CHAR'
        EXPORTING
          ip_struct = l_output_line
        IMPORTING
          ep_string = l_string.
      APPEND l_string TO l_txt_output.
    ENDLOOP.

    TRY.
        cl_gui_frontend_services=>gui_download( EXPORTING filename = CONV #( p_fltxt )
                                                          filetype = 'ASC'
                                                CHANGING  data_tab = l_txt_output ). 
      CATCH cx_root INTO e_text.
        MESSAGE e_text->get_text( ) TYPE 'I'.
    ENDTRY.

  ENDIF.

ABAP

[ABAP] SE80 Shortcuts

April 21, 2020 March 22, 2024

Meine meist verwendeten Workbench Shortcuts:

Strg D	Zeile verdoppeln
Strg J	In Kommentaren -> 1 Buchstaben groß
Strg I	Suchen abwärts (startet beim tippen)
Strg Shift I	Suchen aufwärts (startet beim tippen)
Strg K	Text groß/klein switchen. Alternativ (Strg U für groß, Strg L für klein)
Strg Shift S	Coding in Datei speichern
Strg Shift L	Ganze Zeile löschen
Strg Shift X	Ganze Zeile löschen und einrücken
Ctrl /	Jump to the “command field” where we enter t-codes
Alt Shift Pfeiltasten	Coding Block markieren (alternativ Alt + Maus)

ABAP

[ABAP] Calculation

March 30, 2020 March 30, 2020

* ab ABAP 7.54
DATA field TYPE p decimals 2.

field += 4.
field -= 2.
field *= 3.
field /= 2.

*obsolet: ADD, SUBSTRACT, MULTIPLY, DIVIDE

ABAP

[ABAP] Display a database table

March 29, 2020 March 29, 2020

https://help.sap.com/viewer/b1c834a22d05483b8a75710743b5ff26/7.51.9/en-US/efeb734c8e6f41939c39fa15ce51eb4e.html

cl_salv_gui_table_ida=>create( iv_table_name = 'SFLIGHT' )->fullscreen( )->display( ).

Example report in your system: SALV_IDA_DISPLAY_DATA_SIMPLE