BAPI GET CLASS CHARACTERISTICS

DATA: lt_return TYPE TABLE OF bapiret2,
ls_return TYPE bapiret2,
ld_objectname LIKE bapi1003_key-object,
ld_clobjkeyout TYPE bapi1003_key-object_guid,
lt_alloclist TYPE TABLE OF bapi1003_alloc_list,
ls_alloclist LIKE LINE OF lt_alloclist,
lt_allocvalnum TYPE TABLE OF bapi1003_alloc_values_num,
ls_allocvalnum TYPE bapi1003_alloc_values_num,
lt_allocvalchar TYPE TABLE OF bapi1003_alloc_values_char,
ls_allocvalchar TYPE bapi1003_alloc_values_char,
lt_allocvalcurr TYPE TABLE OF bapi1003_alloc_values_curr,
ls_allocvalcurr TYPE bapi1003_alloc_values_curr.


BREAK-POINT.
"Получаем класс для тех. места
REFRESH lt_return.
CLEAR: ld_objectname, ld_clobjkeyout.
ld_objectname = '000000010000002102'.
CALL FUNCTION 'BAPI_OBJCL_GET_KEY_OF_OBJECT'
EXPORTING
objectname = ld_objectname
objecttable = 'EQUI'
classtype = 'Z02'
IMPORTING
clobjectkeyout = ld_clobjkeyout
TABLES
return = lt_return.

IF ld_clobjkeyout IS NOT INITIAL.
"Есть класс. Получаем его внутренний код
REFRESH: lt_return, lt_alloclist.
CALL FUNCTION 'BAPI_OBJCL_GETCLASSES_KEY'
EXPORTING
clobjectkeyin = ld_clobjkeyout
TABLES
alloclist = lt_alloclist
return = lt_return.

IF LINES( lt_alloclist ) > 0.
CLEAR ls_alloclist.
READ TABLE lt_alloclist INTO ls_alloclist INDEX 1.

"Получаем список характеристик для класса и тех. места
REFRESH: lt_allocvalnum, lt_allocvalchar, lt_allocvalcurr, lt_return.
CALL FUNCTION 'BAPI_OBJCL_GETDETAIL'
EXPORTING
objectkey = ld_objectname
objecttable = 'EQUI'
classnum = ls_alloclist-classnum
classtype = 'Z02'
TABLES
allocvaluesnum = lt_allocvalnum
allocvalueschar = lt_allocvalchar
allocvaluescurr = lt_allocvalcurr
return = lt_return.
BREAK-POINT.

ENDIF.
ENDIF.

Call dialog FI position view

CALL DIALOG 'RF_ZEILEN_ANZEIGE'
EXPORTING
buztab
buztab-zeile
tcode FROM tcode
status-detail FROM space "ALRK222406
x_nochange
aktyp FROM ld_aktyp "Note 339626
IMPORTING
buztab
buztabi-index TO buztab-zeile "ALRK232386
x_nextl
new_doc
t020-aktyp TO ld_aktyp "Note 339626
x_commit.

ISU заметки

ISU_GET_OBJECTS
ISU_DB_EPROFASS_FORALL_LOGIKZW
ISU_EDM_PROFILE_SELECT

HELP START - show log message text

  DATA: l_info_langtext TYPE  help_info
      , l_int_dselc     TYPE TABLE OF dselc
      , l_int_dval      TYPE TABLE OF dval
      .

  l_info_langtext-call      = 'D'.
  l_info_langtext-spras     = sy-langu.
  l_info_langtext-messageid = im_line-id.
  l_info_langtext-messagenr = im_line-number.
  l_info_langtext-msgv1     = im_line-message_v1.
  l_info_langtext-msgv2     = im_line-message_v2.
  l_info_langtext-msgv3     = im_line-message_v3.
  l_info_langtext-msgv4     = im_line-message_v4.
  l_info_langtext-program   = sy-repid.
  l_info_langtext-dynpro    = '0100'.
  l_info_langtext-docuid    = 'NA'.
  l_info_langtext-cucol     = 9.
  l_info_langtext-curow     = 2.
  l_info_langtext-message   = im_line-message.
  l_info_langtext-title     = 'Подробный текст'(004).

  CALL FUNCTION 'HELP_START'
    EXPORTING
      help_infos   = l_info_langtext
    TABLES
      dynpselect   = l_int_dselc
      dynpvaluetab = l_int_dval
    EXCEPTIONS
      OTHERS       = 1.