SAP/abap2xlsx
1
0
Fork 0
mirror of https://github.com/abap2xlsx/abap2xlsx.git synced 2025-05-05 11:06:15 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Ready to test #144 ZAKE_SVN_A2X does not support seperate import, export and build

Browse Source 
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@262 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
This commit is contained in:
Gregor Wolf 2012-03-10 16:34:08 +00:00
parent 0e89946359
commit a79ed7845d
1 changed files with 41 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
ZA2X/PROG/ZAKE_SVN_A2X.slnk
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-16"?> <?xml version="1.0" encoding="utf-16"?>
<PROG NAME="ZAKE_SVN_A2X" VARCL="X" SUBC="1" CNAM="FEMIA" CDAT="20100713" UNAM="FEMIA" UDAT="20100809" VERN="000015" RSTAT="T" RMAND="000" RLOAD="E" FIXPT="X" SDATE="20100809" STIME="215723" IDATE="20100809" ITIME="215723" UCCHECK="X"> <PROG NAME="ZAKE_SVN_A2X" VARCL="X" SUBC="1" CNAM="FEMIA" CDAT="20100713" UNAM="DEVELOPER" UDAT="20120310" VERN="000020" RSTAT="T" RMAND="000" RLOAD="E" FIXPT="X" SDATE="20120310" STIME="172535" IDATE="20120310" ITIME="172535" UCCHECK="X">
<textPool> <textPool>
<language SPRAS="E"> <language SPRAS="E">
<textElement ID="R" ENTRY="Program Z_ZAKE_SVN" LENGTH="18 "/> <textElement ID="R" ENTRY="Program Z_ZAKE_SVN" LENGTH="18 "/>
@ -21,7 +21,8 @@ CONSTANTS cl_tortoise_svn TYPE seoclsname VALUE &apos;ZCL_ZAKE_TORTOISE_SVN&apos
DATA package TYPE devclass. DATA package TYPE devclass.
DATA zake TYPE REF TO zake. 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 files TYPE string_table.
DATA file LIKE LINE OF files. DATA file LIKE LINE OF files.
@ -43,6 +44,9 @@ SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE a.
PARAMETERS: PARAMETERS:
checkout TYPE flag RADIOBUTTON GROUP act, checkout TYPE flag RADIOBUTTON GROUP act,
update TYPE flag RADIOBUTTON GROUP act DEFAULT &apos;X&apos;, update TYPE flag RADIOBUTTON GROUP act DEFAULT &apos;X&apos;,
install TYPE flag RADIOBUTTON GROUP act,
export TYPE flag RADIOBUTTON GROUP act,
build TYPE flag RADIOBUTTON GROUP act,
checkin TYPE flag RADIOBUTTON GROUP act. checkin TYPE flag RADIOBUTTON GROUP act.
SELECTION-SCREEN END OF BLOCK a. 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. SELECTION-SCREEN BEGIN OF BLOCK c WITH FRAME TITLE c.
PARAMETERS: PARAMETERS:
loclpath TYPE char512 DEFAULT &apos;C:\ZAKE_SVN\Projects\abap2xlsx&apos; LOWER CASE OBLIGATORY, loclpath TYPE char512 DEFAULT &apos;C:\Projects\abap2xlsx\trunk&apos; LOWER CASE OBLIGATORY,
zakebuil TYPE char512 DEFAULT &apos;C:\ZAKE_SVN\Projects\abap2xlsx\build\NUGG_ABAP2XLSX_V_1_0.nugg&apos; LOWER CASE OBLIGATORY, zakenugg TYPE char512 DEFAULT &apos;C:\Projects\abap2xlsx\nuggs\abap2xlsx_Daily.nugg&apos; LOWER CASE OBLIGATORY,
zakenugg TYPE char512 DEFAULT &apos;C:\ZAKE_SVN\Projects\abap2xlsx\nuggs\NUGG_ABAP2XLSX_V_1_0.nugg&apos; LOWER CASE OBLIGATORY, svnpath TYPE char512 DEFAULT &apos;https://code.sdn.sap.com/svn/abap2xlsx/trunk&apos; LOWER CASE OBLIGATORY,
svnpath TYPE char512 DEFAULT &apos;https://abap2xlsx.googlecode.com/svn/trunk/abap2xlsx&apos; LOWER CASE OBLIGATORY,
comment TYPE char512 DEFAULT &apos;&apos; LOWER CASE, comment TYPE char512 DEFAULT &apos;&apos; LOWER CASE,
username TYPE char512 LOWER CASE, username TYPE char512 LOWER CASE,
password TYPE char512 LOWER CASE, password TYPE char512 LOWER CASE,
@ -73,12 +76,11 @@ START-OF-SELECTION.
svnpath_str = svnpath. svnpath_str = svnpath.
loclpath_str = loclpath. loclpath_str = loclpath.
zake_build = zakebuil.
zake_nuggetname = zakenugg. zake_nuggetname = zakenugg.
comment_str = comment. comment_str = comment.
SELECT * INTO TABLE zake_objects FROM tadir WHERE devclass = &apos;ZABAP2XLSX&apos;. &quot; SELECT * INTO TABLE objects FROM tadir WHERE devclass = &apos;ZABAP2XLSX&apos;.
DELETE zake_objects WHERE object = &apos;DEVC&apos;. &quot; DELETE zake_objects WHERE object = &apos;DEVC&apos;.
TRY. TRY.
IF svn = &apos;X&apos;. IF svn = &apos;X&apos;.
@ -89,41 +91,46 @@ START-OF-SELECTION.
CREATE OBJECT zake CREATE OBJECT zake
TYPE TYPE
(class) (class)
EXPORTING EXPORTING
i_svnpath = svnpath_str i_svnpath = svnpath_str
i_localpath = loclpath_str. i_localpath = loclpath_str.
zake-&gt;set_testrun( testrun ). zake-&gt;set_testrun( testrun ).
zake-&gt;set_package( &apos;ZA2X&apos; ).
IF checkin = &apos;X&apos;. IF checkout = &apos;X&apos;.
zake-&gt;set_package( &apos;ZA2X&apos; ). zake-&gt;checkout( ).
zake-&gt;set_checkin_objects( zake_objects ). ELSEIF update = &apos;X&apos;.
zake-&gt;update( ).
ELSEIF install = &apos;X&apos;.
zake-&gt;install_slinkees_from_lm( testrun ).
&quot; zake-&gt;install_objects( zake_objects ).
ELSEIF export = &apos;X&apos;.
&quot; Build Object list for Export
&quot; Programs
object-object = &apos;PROG&apos;.
object-obj_name = &apos;ZAKE_SVN_A2X&apos;.
APPEND object TO objects.
zake-&gt;set_checkin_objects( objects ).
zake-&gt;download_slinkees_to_lm = abap_true.
zake-&gt;download_nugget_to_lm = space.
zake-&gt;download_zip_to_lm_flag = space.
zake-&gt;create_slinkees( zake_nuggetname ). zake-&gt;create_slinkees( zake_nuggetname ).
ELSEIF build = &apos;X&apos;.
&quot; Build a complete package for download &quot; Build a complete package for download
* zake-&gt;set_package( &apos;ZA2X&apos; ). zake-&gt;set_checkin_objects( objects ).
* zake-&gt;set_checkin_objects( zake_objects ). &quot; We don&apos;t want that for the complete Package Slinkees are created
* &quot; Let&apos;s add the CMD Scripts to the complete package &quot; in the ZAKE folder
* CONCATENATE loclpath &apos;bin/svn-script.cmd&apos; INTO file. zake-&gt;download_slinkees_to_lm = space.
* APPEND file TO files. zake-&gt;download_nugget_to_lm = space.
* CONCATENATE loclpath &apos;bin/tortoise-svn-script.cmd&apos; INTO file. zake-&gt;create_slinkees( zake_nuggetname ).
* APPEND file TO files. ELSEIF checkin = &apos;X&apos;.
* zake-&gt;add_files_to_zip( files ). zake-&gt;set_package( &apos;ZA2X&apos; ).
* &quot; We don&apos;t want that for the complete Package Slinkees are created zake-&gt;set_checkin_objects( objects ).
* &quot; in the ZAKE folder zake-&gt;create_slinkees( zake_nuggetname ).
* zake-&gt;download_slinkees_to_lm = space.
* zake-&gt;download_nugget_to_lm = space.
* zake-&gt;create_slinkees( zake_nuggetname ).
IF testrun IS INITIAL. IF testrun IS INITIAL.
zake-&gt;checkin( comment_str ). zake-&gt;checkin( comment_str ).
ENDIF. ENDIF.
ELSE.
IF update = &apos;X&apos;.
zake-&gt;update( ).
ELSE.
zake-&gt;checkout( ).
ENDIF.
&quot; zake-&gt;install_slinkees_from_lm( testrun ).
zake-&gt;install_objects( zake_objects ).
ENDIF. ENDIF.
CATCH zcx_saplink INTO ex. CATCH zcx_saplink INTO ex.
message = ex-&gt;msg. message = ex-&gt;msg.