Hyperlink in OO-ALV to Sap-Business- Workplace-Dokuments

Question

Hello specialists,
I  have implemented hyperlinks to an oo-based ALV-List
( please see sample code later ). Now we have the problem that these hyperlinks only work in a local network-area.
But we have also foreign-departments on our SAP-system, that have no access to our network.
Now the question: is it also possible to create hyperlinks
assigned to SAP-Business-Workplace-documents ?
Do you have a solution for this problem ?
Thank' s in advance !
Best regards !
Oliver Perthen / Germany
*& Modulpool         ZBWS_TESTSZENARIEN_LINK                           *
INCLUDE Z_LINK_TOP                              .                      "
*&      Module  STATUS_0100  OUTPUT
      text
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'ZTEST'.
  SET TITLEBAR 'ZX'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE USER_COMMAND_0100 INPUT.
  CASE SY-UCOMM.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'CANCEL' OR 'ABORT'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Module  create_object  OUTPUT
      text
MODULE CREATE_OBJECT OUTPUT.
  CHECK G_CUSTOM_CONTAINER IS INITIAL.
  CREATE OBJECT G_CUSTOM_CONTAINER EXPORTING
  CONTAINER_NAME = 'CONTAINER'.
  CHECK ALV_GRID IS INITIAL.
  CREATE OBJECT ALV_GRID EXPORTING
  I_PARENT = G_CUSTOM_CONTAINER.
ENDMODULE.                 " create_object  OUTPUT
*&      Module  read_data  OUTPUT
      text
MODULE READ_DATA OUTPUT.
  SELECT * FROM ZBWS_TESTSZENARI INTO TABLE ZTEST WHERE TESTER EQ
'RW#9952'.
ENDMODULE.                 " read_data  OUTPUT
*&      Module  transfer_to_alv  OUTPUT
      text
MODULE TRANSFER_TO_ALV OUTPUT.
  REPORT = SY-REPID.
  CLEAR LAYOUT.
  CLEAR FIELDCAT_D.
  REFRESH FIELDCAT_D.
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
       EXPORTING
            I_STRUCTURE_NAME   = 'ZBWS_TESTSZENARI'
            I_BUFFER_ACTIVE    = 'X'
            I_BYPASSING_BUFFER = 'X'
       CHANGING
            CT_FIELDCAT        = FIELDCAT_D[].
  FIELDCAT-FIELDNAME = 'HL_FNAME'.
  FIELDCAT-NO_OUT = 'X'.
  APPEND FIELDCAT TO FIELDCAT_D.
  LOOP AT FIELDCAT_D INTO FIELDCAT.
    FIELDCAT-SELTEXT = FIELDCAT-FIELDNAME.
    FIELDCAT-REPTEXT = FIELDCAT-FIELDNAME.
    CASE FIELDCAT-FIELDNAME.
      WHEN 'TESTDATEI'.
        FIELDCAT-WEB_FIELD = 'HL_FNAME'.
    ENDCASE.
    MODIFY FIELDCAT_D FROM FIELDCAT.
  ENDLOOP.
  LOOP AT ZTEST.
    ZTEST-HL_FNAME = SY-TABIX.
    LS_HYPE-HANDLE = SY-TABIX.
    LS_HYPE-HREF = ZTEST-TESTDATEI.
    APPEND LS_HYPE TO GT_HYPETAB.
    MODIFY ZTEST.
  ENDLOOP.
  LAYOUT-NO_KEYFIX = 'X'.  " Schlüssel nicht Fixieren
  LAYOUT-INFO_FNAME = 'COLOR'."Farbstufen
  LAYOUT-SEL_MODE = 'D'.   "Markierungsspalte
  LAYOUT-SGL_CLK_HD = 'X'. "Sortierung per Click
  LAYOUT-CWIDTH_OPT = 'X'.
  CALL METHOD ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY
   EXPORTING
    I_STRUCTURE_NAME = 'ZBWS_TESTSZENARI'
    IS_LAYOUT = LAYOUT
    I_SAVE = 'A'
    IT_HYPERLINK = GT_HYPETAB
   CHANGING
  IT_OUTTAB = ZTEST[]
  IT_FIELDCATALOG = FIELDCAT_D.
ENDMODULE.                 " transfer_to_alv  OUTPUT

Answer 1

Hi.
I'll try it.
Thanks.