메뉴 건너뛰기

SAP 한국 커뮤니티

F1 도움말

존닭 2014.12.12 00:43 조회 수 : 3719

 F1 도움말을 건별로 조회. 필요시 프로그램 변형하여 다운받아 보셔도 될 것 같습니다.

 

CONSTANTS CO_LANGEN TYPE SYLANGU VALUE 'E'"영어

DATA MLIN  TYPE I.
DATA HTML  TYPE ABAPDOCU_HTML_TAB.
DATA CSS   TYPE ABAPDOCU_HTML_TAB.
DATA OBJ   TYPE DOKU_OBJ.
DATA LINE  TYPE TABLE OF TLINE WITH HEADER LINE.

*[Matchcode object : YH_DOCUOBJ]
*
*Selection method : [TABL] DOKHL
*
* PARAMETERS  IMP  EXP  LPos  SPos  DETL DEFAULT
*-------------------------------------------------
* OBJECT       X    X    2     2    ...
* ID           X         1     1    ...    'SD'
* LANGU        X         3     3    ...    'E'
* TYP          X         4     4    ...    'E'
* DOKVERSION   X         5     5    ...

PARAMETERS P_OBJECT TYPE THEAD-TDNAME
        MATCHCODE OBJECT YH_DOCUOBJ
                 DEFAULT 'ABAPAT_SELECTION-SCREEN'.

* Get object
TRY.
    CALL METHOD CL_ABAP_DOCU_CONVERTER=>CONVERT_ITF_2_HTML
      EXPORTING
        ID        'SD'
        AREA      ' '
        NAME      P_OBJECT
        LANGU     CO_LANGEN
        FILE_FLAG 'X'
        WEB_FLAG  'X'
        EXAS      'X'
        STDS      ' '
      IMPORTING
        HTML      HTML.
  CATCH CX_ABAP_DOCU_NOT_FOUND .
  CATCH CX_ABAP_DOCU_CONVERSION .
ENDTRY.

* Get css : style
CSS CL_ABAP_DOCU_SERVICE_METHODS=>BUILD_CSS).

*Set CSS
REPLACE 'background-color:#F2F4F7;' IN TABLE CSS
   WITH 'background-color:#FFFFFF;' IGNORING CASE.

REPLACE 'noshade; width: 360;'      IN TABLE CSS
   WITH 'noshade; color: #D0D0D0;'.

REPLACE ALL OCCURRENCES OF
        'color:#000080;'            IN TABLE CSS
   WITH 'color:#000000;'            IGNORING CASE.

REPLACE ALL OCCURRENCES OF
        REGEX `span.qtext[^[:blank:]]*[[:blank:]]+{[[:blank:]]`             IN TABLE CSS
         WITH `$0font-size: 90%; `.

REPLACE REGEX 'span.h0[[:blank:]]+{[[:blank:]]+font-size:[[:blank:]]+250%;' IN TABLE CSS
         WITH 'span.h0 { font-size: 160%;'.

REPLACE REGEX 'span.h1[[:blank:]]+{[[:blank:]]+font-size:[[:blank:]]+180%;' IN TABLE CSS
         WITH 'span.h1 { font-size: 145%;'.

REPLACE REGEX 'span.h2[[:blank:]]+{[[:blank:]]+font-size:[[:blank:]]+150%;' IN TABLE CSS
         WITH 'span.h2 { font-size: 130%;'.

REPLACE REGEX 'span.h3[[:blank:]]+{[[:blank:]]+font-size:[[:blank:]]+125%;' IN TABLE CSS
         WITH 'span.h3 { font-size: 115%;'.

* html에 css 삽입
CLEAR MLIN.

FIND FIRST OCCURRENCE  OF '<!--CSS-->'
  IN TABLE HTML
  IN CHARACTER MODE
  MATCH LINE   MLIN .

CHECK MLIN IS NOT INITIAL.
DELETE HTML INDEX MLIN.
INSERT LINES OF CSS INTO HTML INDEX MLIN .

* Show html.
CL_ABAP_BROWSER=>SHOW_HTML(
  EXPORTING
    HTML         HTML
    TITLE        'H1 Help'
    SIZE         CL_ABAP_BROWSER=>MEDIUM
    CONTEXT_MENU ABAP_TRUE
  ).