atualizaçao

src/zbos_menu_request.prog.xml

@@ -15,6 +15,12 @@
      <ENTRY>Menu de Resquest</ENTRY>
      <LENGTH>16</LENGTH>
     </item>
+    <item>
+     <ID>S</ID>
+     <KEY>SO_REQST</KEY>
+     <ENTRY>Requests</ENTRY>
+     <LENGTH>16</LENGTH>
+    </item>
    </TPOOL>
   </asx:values>
  </asx:abap>

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.

src/zbos_menu_request_scr.prog.abap

@@ -1,3 +1,10 @@
 *&---------------------------------------------------------------------*
 *& Include          ZBOS_MENU_REQUEST_SCR
 *&---------------------------------------------------------------------*
+
+
+SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-t01. "" Colocar texto
+
+  SELECT-OPTIONS: so_reqst FOR wa_e070-trkorr NO INTERVALS.
+
+SELECTION-SCREEN END OF BLOCK b1.

src/zbos_menu_request_start.prog.abap

@@ -1,3 +1,15 @@
 *&---------------------------------------------------------------------*
 *& Include          ZBOS_MENU_REQUEST_START
 *&---------------------------------------------------------------------*
+
+*----------------------------------------------------------------------*
+INITIALIZATION.
+*----------------------------------------------------------------------*
+
+  PERFORM f_initialization.
+
+*----------------------------------------------------------------------*
+START-OF-SELECTION.
+*----------------------------------------------------------------------*
+
+  PERFORM f_processo_principal.

src/zbos_menu_request_top.prog.abap

@@ -1,3 +1,42 @@
 *&---------------------------------------------------------------------*
 *& Include          ZBOS_MENU_REQUEST_TOP
 *&---------------------------------------------------------------------*
+
+*-----------------------------------------
+* Tipos
+*-----------------------------------------
+TYPES: y_e070 TYPE e070.
+
+*-----------------------------------------
+* Constantes
+*-----------------------------------------
+
+
+*-----------------------------------------
+* Tables
+*-----------------------------------------
+*TABLES: /vtin/_mde_emp.
+**        /vtin/_xml_rec.
+
+*--------------------------------------------------------------------*
+* Ranges
+*--------------------------------------------------------------------*
+*DATA r_model TYPE RANGE OF /vtin/_xml_rec-model.
+
+*--------------------------------------------------------------------*
+* Internal Table
+*--------------------------------------------------------------------*
+*DATA: gt_cnpj    TYPE TABLE OF j_1bcgc,
+*      gt_mde_emp TYPE TABLE OF /vtin/_mde_emp,
+*      gt_xml     TYPE  ty_xmlrawstring.
+
+*--------------------------------------------------------------------*
+*Structure
+*--------------------------------------------------------------------*
+DATA:  wa_e070    TYPE y_e070.
+
+*--------------------------------------------------------------------*
+*Variaveis
+*--------------------------------------------------------------------*
+
+*DATA: gv_xml_migrados(1) TYPE c.

src/zbos_teste.prog.abap

@@ -5,75 +5,124 @@
 *&---------------------------------------------------------------------*
 REPORT zbos_teste.
 
-
+**
-DATA :op(1)     TYPE c,
+**DATA :op(1)     TYPE c,
-      valor1    TYPE f,
+**      valor1    TYPE f,
-      valor2    TYPE f,
+**      valor2    TYPE f,
-      resultado TYPE f.
+**      resultado TYPE f.
+**
+**
+**op = '*'.
+**
+**valor1 = 12.
+**valor2 = ( '3' ) .
+**
+**
+**resultado = valor1 * valor2.
+**
+**BREAK-POINT.
 
 
-op = '*'.
+***DATA: lo_alv_grid TYPE REF TO cl_gui_alv_grid,
+***      lo_grid     TYPE REF TO object.
+***
+***CREATE OBJECT lo_alv_grid
+***  EXPORTING
+***    i_parent = cl_gui_container=>default_screen.
+***
+***lo_grid = lo_alv_grid.  "Up cast implícito
+***
+***CLEAR lo_alv_grid.
+***
+***lo_alv_grid = CAST #( lo_grid ). "Down cast explícito
+***
+***FREE: lo_grid, lo_alv_grid .
+***
 
-valor1 = 12.
+* cl_message_helper=>set_msg_vars_for_clike( lv_msg ).
-valor2 = ( '3' ) .
 
 
-resultado = valor1 * valor2.
+DATA:
+  gt_data TYPE TABLE OF sflight,
+  g_grid  TYPE REF TO cl_gui_alv_grid.
 
-BREAK-POINT.
+CONSTANTS:
+  c_max_rows TYPE i VALUE 100.
+
+CALL SCREEN 100.
+
+*&---------------------------------------------------------------------*
+*&      Form  read_data
+*&---------------------------------------------------------------------*
+FORM read_data.
 
 
 
 
+**  SELECT *
+**    INTO CORRESPONDING FIELDS OF TABLE gt_data
+**    FROM sflight
+**    UP TO c_max_rows ROWS.
 
-*
+  SELECT *
-*DATA:
+    INTO TABLE gt_data
-*  gt_data TYPE TABLE OF sflight,
+    FROM sflight
-*  g_grid TYPE REF TO cl_gui_alv_grid.
+    UP TO c_max_rows ROWS.
-*
+
-*CONSTANTS:
+
-*  c_max_rows TYPE i VALUE 100.
+
-*
+
-*CALL SCREEN 100.
+ENDFORM.
-*
+
-**&---------------------------------------------------------------------*
+*&---------------------------------------------------------------------*
-**&      Form  read_data
+*&      Form  display_grid
-**&---------------------------------------------------------------------*
+*&---------------------------------------------------------------------*
-*FORM read_data.
+FORM display_grid.
-*  SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_data
+  CREATE OBJECT g_grid
-*    FROM sflight
+    EXPORTING
-*    UP TO c_max_rows ROWS.
+      i_parent = cl_gui_container=>default_screen.
-*ENDFORM.
+
-*
+  CALL METHOD g_grid->set_table_for_first_display
-**&---------------------------------------------------------------------*
+    EXPORTING
-**&      Form  display_grid
+      i_structure_name              = 'SFLIGHT'
-**&---------------------------------------------------------------------*
+    CHANGING
-*FORM display_grid.
+      it_outtab                     = gt_data
-*  CREATE OBJECT g_grid
+    EXCEPTIONS
-*    EXPORTING
+      invalid_parameter_combination = 1
-*      i_parent = cl_gui_container=>default_screen.
+      program_error                 = 2
-*
+      too_many_lines                = 3
-*  CALL METHOD g_grid->set_table_for_first_display
+      OTHERS                        = 4.
-*    EXPORTING
+  IF sy-subrc <> 0.
-*      i_structure_name              = 'SFLIGHT'
+    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
-*    CHANGING
+               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
-*      it_outtab                     = gt_data
+  ENDIF.
-*    EXCEPTIONS
+ENDFORM.
-*      invalid_parameter_combination = 1
+*&---------------------------------------------------------------------*
-*      program_error                 = 2
+*& Module STATUS_0100 OUTPUT
-*      too_many_lines                = 3
+*&---------------------------------------------------------------------*
-*      OTHERS                        = 4.
+*&
-*  IF sy-subrc <> 0.
+*&---------------------------------------------------------------------*
-*    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
+MODULE status_0100 OUTPUT.
-*               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
+  PERFORM read_data.
-*  ENDIF.
+  PERFORM display_grid.
-*ENDFORM.
+ENDMODULE.
-**&---------------------------------------------------------------------*
+*&---------------------------------------------------------------------*
-**& Module STATUS_0100 OUTPUT
+*&      Module  USER_COMMAND_0100  INPUT
-**&---------------------------------------------------------------------*
+*&---------------------------------------------------------------------*
-**&
+*       text
-**&---------------------------------------------------------------------*
+*----------------------------------------------------------------------*
-*MODULE status_0100 OUTPUT.
+MODULE user_command_0100 INPUT.
-*  PERFORM read_data.
+
-*  PERFORM display_grid.
+  CALL METHOD cl_gui_cfw=>dispatch.
-*ENDMODULE.
+  CASE sy-ucomm.
+    WHEN 'BACK'.
+      CLEAR sy-ucomm.
+      LEAVE TO SCREEN 0.
+    WHEN 'EXIT'.
+      LEAVE PROGRAM.
+    WHEN 'CANCEL'.
+      CLEAR sy-ucomm.
+      LEAVE TO SCREEN 0.
+  ENDCASE.
+
+ENDMODULE.

src/zbos_teste.prog.xml

@@ -52,7 +52,7 @@
        <LINE>PROCESS AFTER INPUT.</LINE>
       </RPY_DYFLOW>
       <RPY_DYFLOW>
-       <LINE>* MODULE USER_COMMAND_0100.</LINE>
+       <LINE> MODULE USER_COMMAND_0100.</LINE>
       </RPY_DYFLOW>
      </FLOW_LOGIC>
     </item>