CLAS SMIM VCLS: minor fixes

This commit is contained in:
larshp 2017-01-05 06:33:04 +00:00
parent b58e608a3f
commit 47e7082747
3 changed files with 10 additions and 4 deletions

View File

@ -770,7 +770,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
ELSEIF lines( rt_source ) = 1. ELSEIF lines( rt_source ) = 1.
READ TABLE rt_source INDEX 1 INTO lv_line1. READ TABLE rt_source INDEX 1 INTO lv_line1.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
IF lv_line1(3) = '*"*' OR lv_line1 IS INITIAL. IF lv_line1 IS INITIAL OR lv_line1(3) = '*"*'.
mv_skip_testclass = abap_true. mv_skip_testclass = abap_true.
ENDIF. ENDIF.
ELSEIF lines( rt_source ) = 0. ELSEIF lines( rt_source ) = 0.

View File

@ -191,7 +191,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
not_found = 3 not_found = 3
permission_failure = 4 permission_failure = 4
OTHERS = 5 ). OTHERS = 5 ).
IF sy-subrc <> 0. IF sy-subrc <> 0 AND sy-subrc <> 3.
lcx_exception=>raise( 'error from mime api->get:' && sy-msgv1 ). lcx_exception=>raise( 'error from mime api->get:' && sy-msgv1 ).
ENDIF. ENDIF.

View File

@ -39,13 +39,19 @@ CLASS lcl_object_vcls IMPLEMENTATION.
ENDMETHOD. "lif_object~get_metadata ENDMETHOD. "lif_object~get_metadata
METHOD lif_object~exists. METHOD lif_object~exists.
DATA lv_vclname TYPE vcl_name.
SELECT SINGLE vclname INTO lv_vclname FROM vcldir DATA lv_changedate TYPE vcldir-changedate.
SELECT SINGLE changedate INTO lv_changedate FROM vcldir
WHERE vclname = ms_item-obj_name. WHERE vclname = ms_item-obj_name.
rv_bool = boolc( sy-subrc = 0 ). rv_bool = boolc( sy-subrc = 0 ).
IF lv_changedate IS INITIAL.
* same logic as in function module VIEWCLUSTER_GET_DEFINITION
rv_bool = abap_false.
ENDIF.
ENDMETHOD. "lif_object~exists ENDMETHOD. "lif_object~exists
METHOD lif_object~serialize. METHOD lif_object~serialize.