GOS - Anlagen

Code: Alles auswählen.

*---------------------------------------------------------------------*
* Report  ZTEST_MIT_GOS2                                              *
*                                                                     *
*---------------------------------------------------------------------*
*                                                                     *
*                                                                     *
*---------------------------------------------------------------------*

REPORT  ztest_mit_gos2.

* SRGBTBREL Verknüpfungen im GOS Umfeld
* SGOSATTR SGOS: Attribute der generischen Dienste

DATA: go_myobject TYPE REF TO cl_gos_manager,
ls_object TYPE borident,
ls_service TYPE sgos_sels,
lt_service TYPE TABLE OF sgos_sels.

START-OF-SELECTION.
  PARAMETERS: P_EBELN TYPE ebeln OBLIGATORY.

  exit.

AT SELECTION-SCREEN OUTPUT.
  CHECK NOT P_EBELN IS INITIAL.
  SELECT SINGLE COUNT(*) FROM ekko WHERE ebeln = P_EBELN.
  CHECK sy-subrc = 0.

  LOOP AT SCREEN.
    CHECK screen-name = 'P_EBELN'.
    screen-input = '0'.
    MODIFY SCREEN.
  ENDLOOP.

  IF go_myobject IS INITIAL.
* Schlüssel für generisches Objekt (hier der Einkaufbeleg)
* MUSS eindeutig sein!!!
    ls_object-objkey = P_EBELN.

* Objekttype: ermittelbar über die TA SWO1
*   ls_object-objtype = 'BUS2012'. "EINKAUF

* MEIN NEUER OBJECT-TYP !!!!! siehe Tabelle SRGBTBREL !!!!!
    ls_object-objtype = 'ZTEST'.

* Ausblenden verschiedener Standardservices
* zu finden in der Tabelle SGOSATTR

    SELECT name FROM sgosattr INTO ls_service-low WHERE
    name NE 'VIEW_ATTA' AND
    name NE 'NOTE_CREA' AND
    name NE 'PCATTA_CREA'.
      ls_service-sign = 'E'.
      ls_service-option = 'EQ'.
*     ls_service-low = sgosattr-name.
      APPEND ls_service TO lt_service.
    ENDSELECT.

* Aufruf des generischen Objekts
* !!!ip_no_commit speichert automatisch angelegt Objekte!!!
    CREATE OBJECT go_myobject
    EXPORTING
    is_object = ls_object
    ip_no_commit = ' '
    it_service_selection = lt_service
    EXCEPTIONS
    OTHERS = 1.
***********
  ENDIF.