atualizaçao

src/zbos_menu_request_f01.prog.abap

@@ -1,3 +1,88 @@
 *&---------------------------------------------------------------------*
 *& 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.
+
+
+  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 = 'DESK968145'.
+
+  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.