diff --git a/ZA2X/PROG/ZAKE_SVN_A2X.slnk b/ZA2X/PROG/ZAKE_SVN_A2X.slnk index b144411..d21d043 100644 --- a/ZA2X/PROG/ZAKE_SVN_A2X.slnk +++ b/ZA2X/PROG/ZAKE_SVN_A2X.slnk @@ -1,5 +1,5 @@ - + @@ -21,7 +21,8 @@ CONSTANTS cl_tortoise_svn TYPE seoclsname VALUE 'ZCL_ZAKE_TORTOISE_SVN&apos DATA package TYPE devclass. DATA zake TYPE REF TO zake. -DATA zake_objects TYPE scts_tadir. +DATA objects TYPE scts_tadir. +DATA object LIKE LINE OF objects. DATA files TYPE string_table. DATA file LIKE LINE OF files. @@ -43,6 +44,9 @@ SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE a. PARAMETERS: checkout TYPE flag RADIOBUTTON GROUP act, update TYPE flag RADIOBUTTON GROUP act DEFAULT 'X', + install TYPE flag RADIOBUTTON GROUP act, + export TYPE flag RADIOBUTTON GROUP act, + build TYPE flag RADIOBUTTON GROUP act, checkin TYPE flag RADIOBUTTON GROUP act. SELECTION-SCREEN END OF BLOCK a. @@ -54,10 +58,9 @@ SELECTION-SCREEN END OF BLOCK b. SELECTION-SCREEN BEGIN OF BLOCK c WITH FRAME TITLE c. PARAMETERS: - loclpath TYPE char512 DEFAULT 'C:\ZAKE_SVN\Projects\abap2xlsx' LOWER CASE OBLIGATORY, - zakebuil TYPE char512 DEFAULT 'C:\ZAKE_SVN\Projects\abap2xlsx\build\NUGG_ABAP2XLSX_V_1_0.nugg' LOWER CASE OBLIGATORY, - zakenugg TYPE char512 DEFAULT 'C:\ZAKE_SVN\Projects\abap2xlsx\nuggs\NUGG_ABAP2XLSX_V_1_0.nugg' LOWER CASE OBLIGATORY, - svnpath TYPE char512 DEFAULT 'https://abap2xlsx.googlecode.com/svn/trunk/abap2xlsx' LOWER CASE OBLIGATORY, + loclpath TYPE char512 DEFAULT 'C:\Projects\abap2xlsx\trunk' LOWER CASE OBLIGATORY, + zakenugg TYPE char512 DEFAULT 'C:\Projects\abap2xlsx\nuggs\abap2xlsx_Daily.nugg' LOWER CASE OBLIGATORY, + svnpath TYPE char512 DEFAULT 'https://code.sdn.sap.com/svn/abap2xlsx/trunk' LOWER CASE OBLIGATORY, comment TYPE char512 DEFAULT '' LOWER CASE, username TYPE char512 LOWER CASE, password TYPE char512 LOWER CASE, @@ -73,12 +76,11 @@ START-OF-SELECTION. svnpath_str = svnpath. loclpath_str = loclpath. - zake_build = zakebuil. zake_nuggetname = zakenugg. comment_str = comment. - SELECT * INTO TABLE zake_objects FROM tadir WHERE devclass = 'ZABAP2XLSX'. - DELETE zake_objects WHERE object = 'DEVC'. + " SELECT * INTO TABLE objects FROM tadir WHERE devclass = 'ZABAP2XLSX'. + " DELETE zake_objects WHERE object = 'DEVC'. TRY. IF svn = 'X'. @@ -89,41 +91,46 @@ START-OF-SELECTION. CREATE OBJECT zake TYPE - (class) + (class) EXPORTING i_svnpath = svnpath_str i_localpath = loclpath_str. zake->set_testrun( testrun ). + zake->set_package( 'ZA2X' ). - IF checkin = 'X'. - zake->set_package( 'ZA2X' ). - zake->set_checkin_objects( zake_objects ). + IF checkout = 'X'. + zake->checkout( ). + ELSEIF update = 'X'. + zake->update( ). + ELSEIF install = 'X'. + zake->install_slinkees_from_lm( testrun ). + " zake->install_objects( zake_objects ). + ELSEIF export = 'X'. + " Build Object list for Export + " Programs + object-object = 'PROG'. + object-obj_name = 'ZAKE_SVN_A2X'. + APPEND object TO objects. + zake->set_checkin_objects( objects ). + zake->download_slinkees_to_lm = abap_true. + zake->download_nugget_to_lm = space. + zake->download_zip_to_lm_flag = space. zake->create_slinkees( zake_nuggetname ). + ELSEIF build = 'X'. " Build a complete package for download -* zake->set_package( 'ZA2X' ). -* zake->set_checkin_objects( zake_objects ). -* " Let's add the CMD Scripts to the complete package -* CONCATENATE loclpath 'bin/svn-script.cmd' INTO file. -* APPEND file TO files. -* CONCATENATE loclpath 'bin/tortoise-svn-script.cmd' INTO file. -* APPEND file TO files. -* zake->add_files_to_zip( files ). -* " We don't want that for the complete Package Slinkees are created -* " in the ZAKE folder -* zake->download_slinkees_to_lm = space. -* zake->download_nugget_to_lm = space. -* zake->create_slinkees( zake_nuggetname ). + zake->set_checkin_objects( objects ). + " We don't want that for the complete Package Slinkees are created + " in the ZAKE folder + zake->download_slinkees_to_lm = space. + zake->download_nugget_to_lm = space. + zake->create_slinkees( zake_nuggetname ). + ELSEIF checkin = 'X'. + zake->set_package( 'ZA2X' ). + zake->set_checkin_objects( objects ). + zake->create_slinkees( zake_nuggetname ). IF testrun IS INITIAL. zake->checkin( comment_str ). ENDIF. - ELSE. - IF update = 'X'. - zake->update( ). - ELSE. - zake->checkout( ). - ENDIF. - " zake->install_slinkees_from_lm( testrun ). - zake->install_objects( zake_objects ). ENDIF. CATCH zcx_saplink INTO ex. message = ex->msg.