SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 20:03:20 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

check font, close #92

Browse Source
This commit is contained in:
Lars Hvam 2015-07-05 16:11:59 +02:00
parent 945c454d62
commit 779333e5ee
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
zabapgit.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit.
* See https://github.com/larshp/abapGit/
CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v0.36'. "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v0.37'. "#EC NOTEXT
********************************************************************************
* The MIT License (MIT)
@ -3095,10 +3095,28 @@ CLASS lcl_object_ssst DEFINITION INHERITING FROM lcl_objects_common FINAL.
IMPORTING is_item TYPE st_item
RAISING lcx_exception.
PRIVATE SECTION.
CLASS-METHODS validate_font
IMPORTING iv_tdfamily TYPE tdfamily
RAISING lcx_exception.
ENDCLASS.
CLASS lcl_object_ssst IMPLEMENTATION.
METHOD validate_font.
DATA: lv_tdfamily TYPE tfo01-tdfamily.
SELECT SINGLE tdfamily FROM tfo01 INTO lv_tdfamily
WHERE tdfamily = iv_tdfamily.
IF sy-subrc <> 0.
_raise 'Font family not found'.
ENDIF.
ENDMETHOD.
METHOD serialize.
* see fm SSF_DOWNLOAD_STYLE
@ -3185,6 +3203,8 @@ CLASS lcl_object_ssst IMPLEMENTATION.
lo_xml->table_read( EXPORTING iv_name = 'STXSTAB'
CHANGING ct_table = lt_tabstops ).
validate_font( ls_header-tdfamily ).
CALL FUNCTION 'SSF_SAVE_STYLE'
EXPORTING
i_header = ls_header