new transport class, #271

This commit is contained in:
larshp 2016-07-03 07:04:59 +00:00
parent a4c3d8e083
commit f3b2f0ec33
4 changed files with 73 additions and 1 deletions

View File

@ -65,6 +65,7 @@ INCLUDE zabapgit_object.
INCLUDE zabapgit_repo_impl.
INCLUDE zabapgit_background.
INCLUDE zabapgit_zip.
INCLUDE zabapgit_transport.
INCLUDE zabapgit_page.
INCLUDE zabapgit_page_branch_overview.
INCLUDE zabapgit_gui.

View File

@ -1478,6 +1478,7 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
lo_betasub->add( iv_txt = 'Database util' iv_act = 'db' ).
lo_betasub->add( iv_txt = 'Package to zip' iv_act = 'packagezip' ).
lo_betasub->add( iv_txt = 'Transport to zip' iv_act = 'transportzip' ).
lo_betasub->add( iv_txt = 'Background mode' iv_act = 'background' ).
ro_menu->add( iv_txt = 'Refresh all' iv_act = 'refresh' ).
@ -2461,9 +2462,12 @@ CLASS lcl_gui_router IMPLEMENTATION.
lcl_zip=>export( io_repo = lcl_app=>repo_srv( )->get( lv_key )
iv_zip = abap_false ).
ev_state = gc_event_state-no_more_act.
WHEN 'packagezip'. "TODO refactor name ?
WHEN 'packagezip'.
repo_package_zip( ).
ev_state = gc_event_state-no_more_act.
WHEN 'transportzip'.
lcl_transport=>zip( ).
ev_state = gc_event_state-no_more_act.
WHEN 'hide'.
lv_key = iv_getdata.
lcl_app=>user( )->hide( lv_key ).

View File

@ -0,0 +1,19 @@
*&---------------------------------------------------------------------*
*& Include ZABAPGIT_TRANSPORT
*&---------------------------------------------------------------------*
CLASS lcl_transport DEFINITION.
PUBLIC SECTION.
CLASS-METHODS:
zip RAISING lcx_exception.
ENDCLASS.
CLASS lcl_transport IMPLEMENTATION.
METHOD zip.
BREAK-POINT.
ENDMETHOD.
ENDCLASS.

View File

@ -0,0 +1,48 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>ZABAPGIT_TRANSPORT</NAME>
<STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_TRANSPORT</ENTRY>
<LENGTH>26</LENGTH>
<SPLIT/>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>