How to make Generic Object Services visible in screen

Question

with serviceorders and notifications we sometimes use GOS for attaching documents. only disadvantage is that it's not directly visible if attachments are present or not. you have to click on the gos button to check their presence .
is there any method or solution to make it clear if an attachment is present in the record ?
I already tried to create a user status for this only nasty side effect was that it took a while before the record was present in th efunction BDS_ALL_CONNECTIONS_GET
kind regards
arthur

Answer 1

Hi,
i had the same problem (but only for notifications). We included a customer subscreen (function group xqqm, customer project CMOD with enhancement QQMA0001). When you insert a gos attachment, an info-text will be displayed when you change or display the notification again.
PAI in customer subscreen ist the following code, the customer subscreen has a simple read-only field in which the field g_txt70_gos  is displayed with text "Ther a are attachments".
Prüfen, ob wir im Ändern/Anzeigen sind
  CHECK NOT viqmel-qmnum IS INITIAL.
Wurde schon einmal erfolglos gelesen?
  CHECK g_flag_links_obtained  = c_false.
  g_flag_links_obtained = c_true.
Wurde Vorgänger schon einmal erfolgreich gelesen?
  IF g_txt70_gos IS INITIAL.
    IF tq80 IS INITIAL.
      SELECT SINGLE * FROM tq80
                             WHERE qmart = ls_viqmel-qmart.
    ENDIF.
    CASE tq80-qmtyp.
      WHEN ypm_01.
        g_object_gos-objtype = c_bus2038.
      WHEN yqm_02.
        g_object_gos-objtype = c_bus2078.
      WHEN ysm_03.
        g_object_gos-objtype = c_bus2080.
      WHEN ynm_05.
        g_object_gos-objtype = c_bus7051.
    ENDCASE.
    g_object_gos-objkey = viqmel-qmnum.
    SELECT * UP TO 1 ROWS
         FROM srgbtbrel
         WHERE
           instid_a = g_object_gos-objkey AND
           typeid_a = g_object_gos-objtype AND
           catid_a = 'BO' AND
           ( reltype = c_reltype_atta OR
           reltype = c_reltype_url ).
    ENDSELECT.
    IF sy-subrc = 0.
      g_txt70_gos = 'Es gibt Anlagen zu dieser Meldung'(z03).
    ENDIF.
  ENDIF.