94 lines
1.9 KiB
ABAP
94 lines
1.9 KiB
ABAP
*&---------------------------------------------------------------------*
|
|
*& Include ZBOS_MENU_REQUEST_F01
|
|
*&---------------------------------------------------------------------*
|
|
|
|
*&---------------------------------------------------------------------*
|
|
*& Form f_initialization
|
|
*&---------------------------------------------------------------------*
|
|
FORM f_initialization .
|
|
|
|
ENDFORM.
|
|
|
|
*&---------------------------------------------------------------------*
|
|
*& Form f_processo_principal
|
|
*&---------------------------------------------------------------------*
|
|
FORM f_processo_principal .
|
|
|
|
|
|
BREAK-POINT.
|
|
|
|
* DATA: lt_dados TYPE TABLE OF e071.
|
|
DATA: lv_request TYPE trkorr.
|
|
|
|
CALL FUNCTION 'TR_REQUEST_CHOICE'
|
|
EXPORTING
|
|
iv_category = 'SYST'
|
|
IMPORTING
|
|
ev_request = lv_request.
|
|
SELECT *
|
|
FROM e071
|
|
INTO TABLE @DATA(lt_dados)
|
|
WHERE trkorr IN @so_reqst.
|
|
|
|
|
|
DATA lt_items TYPE TABLE OF tadir.
|
|
DATA ls_items TYPE tadir.
|
|
|
|
SELECT *
|
|
FROM tadir
|
|
INTO TABLE lt_items
|
|
FOR ALL ENTRIES IN lt_dados
|
|
WHERE pgmid = lt_dados-pgmid
|
|
AND object = lt_dados-object
|
|
AND obj_name = lt_dados-obj_name(40)
|
|
AND devclass = 'ZBOS'.
|
|
|
|
|
|
BREAK-POINT.
|
|
|
|
|
|
DATA: lt_dados2 TYPE TABLE OF e071.
|
|
|
|
SELECT *
|
|
FROM e071
|
|
INTO TABLE lt_dados2
|
|
WHERE trkorr = 'A4HK900111'.
|
|
|
|
SELECT *
|
|
FROM e071
|
|
APPENDING TABLE lt_dados2
|
|
WHERE trkorr = 'DESK969392'.
|
|
|
|
|
|
|
|
SELECT *
|
|
FROM e071
|
|
APPENDING TABLE lt_dados2
|
|
WHERE trkorr = 'DESK969401'.
|
|
|
|
SELECT *
|
|
FROM e071
|
|
APPENDING TABLE lt_dados2
|
|
WHERE trkorr = 'DESK969403'.
|
|
|
|
|
|
LOOP AT lt_items INTO DATA(ls_item).
|
|
|
|
DATA(lv_tabix) = sy-tabix.
|
|
|
|
READ TABLE lt_dados2 WITH KEY pgmid = ls_item-pgmid
|
|
object = ls_item-object
|
|
obj_name = ls_item-obj_name TRANSPORTING NO FIELDS.
|
|
|
|
IF sy-subrc IS INITIAL.
|
|
|
|
DELETE lt_items INDEX lv_tabix.
|
|
|
|
ENDIF.
|
|
|
|
ENDLOOP.
|
|
|
|
BREAK-POINT.
|
|
|
|
ENDFORM.
|