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

W3xx clear version #374

Browse Source
This commit is contained in:
sbcgua 2016-11-27 13:31:22 +02:00
parent c70bedd6ad
commit da7da129c2
3 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/zabapgit_css_common.w3mi.xml
View File

@ -33,7 +33,7 @@
<RELID>MI</RELID> <RELID>MI</RELID>
<OBJID>ZABAPGIT_CSS_COMMON</OBJID> <OBJID>ZABAPGIT_CSS_COMMON</OBJID>
<NAME>version</NAME> <NAME>version</NAME>
<VALUE>00002</VALUE> <VALUE/>
</WWWPARAMS> </WWWPARAMS>
</PARAMS> </PARAMS>
</asx:values> </asx:values>

2
src/zabapgit_js_common.w3mi.xml
View File

@ -33,7 +33,7 @@
<RELID>MI</RELID> <RELID>MI</RELID>
<OBJID>ZABAPGIT_JS_COMMON</OBJID> <OBJID>ZABAPGIT_JS_COMMON</OBJID>
<NAME>version</NAME> <NAME>version</NAME>
<VALUE>00004</VALUE> <VALUE/>
</WWWPARAMS> </WWWPARAMS>
</PARAMS> </PARAMS>
</asx:values> </asx:values>

22
src/zabapgit_object_w3xx.prog.abap
View File

@ -43,6 +43,10 @@ CLASS lcl_object_w3super DEFINITION INHERITING FROM lcl_objects_super ABSTRACT.
CHANGING ct_params TYPE ty_wwwparams_tt CHANGING ct_params TYPE ty_wwwparams_tt
RAISING lcx_exception. RAISING lcx_exception.
METHODS clear_version
CHANGING ct_params TYPE ty_wwwparams_tt
RAISING lcx_exception.
ENDCLASS. "lcl_object_W3SUPER DEFINITION ENDCLASS. "lcl_object_W3SUPER DEFINITION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
@ -148,6 +152,9 @@ CLASS lcl_object_w3super IMPLEMENTATION.
" Remove file path (for security concerns) " Remove file path (for security concerns)
patch_filename( CHANGING ct_params = lt_w3params ). patch_filename( CHANGING ct_params = lt_w3params ).
" Clear version
clear_version( CHANGING ct_params = lt_w3params ).
CASE ms_key-relid. CASE ms_key-relid.
WHEN 'MI'. WHEN 'MI'.
CALL FUNCTION 'SCMS_BINARY_TO_XSTRING' CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
@ -408,6 +415,21 @@ CLASS lcl_object_w3super IMPLEMENTATION.
ENDMETHOD. " patch_filename. ENDMETHOD. " patch_filename.
METHOD clear_version.
FIELD-SYMBOLS <param> LIKE LINE OF ct_params.
READ TABLE ct_params ASSIGNING <param> WITH KEY name = 'version'.
IF sy-subrc > 0.
lcx_exception=>raise( |W3xx: Cannot find version for { ms_key-objid }| ).
ENDIF.
" Clear version
CLEAR <param>-value.
ENDMETHOD. " clear_version.
METHOD lif_object~compare_to_remote_version. METHOD lif_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result.
ENDMETHOD. ENDMETHOD.