Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

new folders, moved from abap2xlsx repository #1

Merged
merged 1 commit into from
Feb 6, 2022
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension


Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions additional objects/DEVC/ZABAP2XLSX.slnk
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
<?xml version="1.0" encoding="utf-8"?>
<DEVC DEVCLASS="ZABAP2XLSX" CTEXT="abap2xlsx" LANGUAGE="E" MASTERLANG="E" KORRFLAG="X" PDEVCLASS="ZHVE" DLVUNIT="HOME" NAMESPACE="/0CUST/" PARENTCL="ZT3G_NW_DEV" CREATED_BY="FEMIA" CREATED_ON="20140905" CHANGED_BY="FEMIA" CHANGED_ON="20141226" PROJECT_GUID="00000000000000000000000000000000"/>
139 changes: 139 additions & 0 deletions additional objects/PROG/ZAKE_SVN_A2X.slnk
Original file line number Diff line number Diff line change
@@ -0,0 +1,139 @@
<?xml version="1.0" encoding="utf-16"?>
<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>
<language SPRAS="E">
<textElement ID="R" ENTRY="Program Z_ZAKE_SVN" LENGTH="18 "/>
</language>
</textPool>
<source>*&amp;---------------------------------------------------------------------*
*&amp; Report Z_ZAKE_SVN
*&amp;
*&amp;---------------------------------------------------------------------*
*&amp; Checkout / Checkin the ZAKE_SVN Project
*&amp;
*&amp;---------------------------------------------------------------------*

REPORT zake_svn_a2x.

CONSTANTS cl_svn TYPE seoclsname VALUE &apos;ZCL_ZAKE_SVN&apos;.
CONSTANTS cl_tortoise_svn TYPE seoclsname VALUE &apos;ZCL_ZAKE_TORTOISE_SVN&apos;.

DATA package TYPE devclass.
DATA zake TYPE REF TO zake.

DATA objects TYPE scts_tadir.
DATA object LIKE LINE OF objects.

DATA files TYPE string_table.
DATA file LIKE LINE OF files.

DATA zake_build TYPE string.
DATA zake_nuggetname TYPE string.

DATA comment_str TYPE string.
DATA loclpath_str TYPE string.
DATA svnpath_str TYPE string.
DATA username_str TYPE string.
DATA password_str TYPE string.
DATA class TYPE seoclsname.

DATA: ex TYPE REF TO zcx_saplink,
message TYPE string.

SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE a.
PARAMETERS:
checkout TYPE flag RADIOBUTTON GROUP act,
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.
SELECTION-SCREEN END OF BLOCK a.

SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE b.
PARAMETERS:
svn TYPE flag RADIOBUTTON GROUP cl,
tortoise TYPE flag RADIOBUTTON GROUP cl.
SELECTION-SCREEN END OF BLOCK b.

SELECTION-SCREEN BEGIN OF BLOCK c WITH FRAME TITLE c.
PARAMETERS:
loclpath TYPE char512 DEFAULT &apos;C:\Projects\abap2xlsx\trunk&apos; LOWER CASE OBLIGATORY,
zakenugg TYPE char512 DEFAULT &apos;C:\Projects\abap2xlsx\nuggs\abap2xlsx_Daily.nugg&apos; LOWER CASE OBLIGATORY,
svnpath TYPE char512 DEFAULT &apos;https://code.sdn.sap.com/svn/abap2xlsx/trunk&apos; LOWER CASE OBLIGATORY,
comment TYPE char512 DEFAULT &apos;&apos; LOWER CASE,
username TYPE char512 LOWER CASE,
password TYPE char512 LOWER CASE,
testrun TYPE flag DEFAULT &apos;X&apos;.
SELECTION-SCREEN END OF BLOCK c.

INITIALIZATION.
a = &apos;Action&apos;.
b = &apos;Version Controll Program&apos;.
c = &apos;Parameters&apos;.

START-OF-SELECTION.

svnpath_str = svnpath.
loclpath_str = loclpath.
zake_nuggetname = zakenugg.
comment_str = comment.

&quot; SELECT * INTO TABLE objects FROM tadir WHERE devclass = &apos;ZABAP2XLSX&apos;.
&quot; DELETE zake_objects WHERE object = &apos;DEVC&apos;.

TRY.
IF svn = &apos;X&apos;.
class = cl_svn.
ELSE.
class = cl_tortoise_svn.
ENDIF.

CREATE OBJECT zake
TYPE
(class)
EXPORTING
i_svnpath = svnpath_str
i_localpath = loclpath_str.
zake-&gt;set_testrun( testrun ).
zake-&gt;set_package( &apos;ZA2X&apos; ).

IF checkout = &apos;X&apos;.
zake-&gt;checkout( ).
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 ).
ELSEIF build = &apos;X&apos;.
&quot; Build a complete package for download
zake-&gt;set_checkin_objects( objects ).
&quot; We don&apos;t want that for the complete Package Slinkees are created
&quot; in the ZAKE folder
zake-&gt;download_slinkees_to_lm = space.
zake-&gt;download_nugget_to_lm = space.
zake-&gt;create_slinkees( zake_nuggetname ).
ELSEIF checkin = &apos;X&apos;.
zake-&gt;set_package( &apos;ZA2X&apos; ).
zake-&gt;set_checkin_objects( objects ).
zake-&gt;create_slinkees( zake_nuggetname ).
IF testrun IS INITIAL.
zake-&gt;checkin( comment_str ).
ENDIF.
ENDIF.
CATCH zcx_saplink INTO ex.
message = ex-&gt;msg.
WRITE: / &apos;An Error occured: &apos;, message.
ENDTRY.</source>
</PROG>
71 changes: 71 additions & 0 deletions additional objects/PROG/ZDEMO_EXCEL_GAPPS.slnk
Original file line number Diff line number Diff line change
@@ -0,0 +1,71 @@
<?xml version="1.0" encoding="utf-16"?>
<PROG NAME="ZDEMO_EXCEL_GAPPS" VARCL="X" SUBC="1" CNAM="IANNACCI" CDAT="20110823" UNAM="FEMIA" UDAT="20110907" VERN="000012" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20110907" STIME="221339" IDATE="20110907" ITIME="221339" UCCHECK="X">
<textPool>
<language SPRAS="E">
<textElement ID="R" ENTRY="From abap2xlsx to abap2gapps Demo: Hello World" LENGTH="46 "/>
<textElement ID="S" KEY="P_PATH" ENTRY="D ." LENGTH="9 "/>
</language>
</textPool>
<source>*&amp;---------------------------------------------------------------------*
*&amp; Report ZDEMO_EXCEL1
*&amp;
*&amp;---------------------------------------------------------------------*
*&amp;
*&amp;
*&amp;---------------------------------------------------------------------*

REPORT zdemo_excel_gapps.

DATA: lo_excel TYPE REF TO zcl_excel,
lo_excel_writer TYPE REF TO zif_excel_writer,
lo_worksheet TYPE REF TO zcl_excel_worksheet,
lo_hyperlink TYPE REF TO zcl_excel_hyperlink,
column_dimension TYPE REF TO zcl_excel_worksheet_columndime.

DATA: lv_file TYPE xstring,
lv_bytecount TYPE i.


PARAMETERS: consumer TYPE zoauth2_consumer_name,
username TYPE zoauth2_user_name,
proxyhst TYPE string,
proxysrv TYPE string,
ssl_id TYPE ssfapplssl DEFAULT &apos;ANONYM&apos;.

START-OF-SELECTION.


&quot; Creates active sheet
CREATE OBJECT lo_excel.

&quot; Get active sheet
lo_worksheet = lo_excel-&gt;get_active_worksheet( ).
lo_worksheet-&gt;set_title( ip_title = &apos;Sheet1&apos; ).
lo_worksheet-&gt;set_cell( ip_column = &apos;B&apos; ip_row = 2 ip_value = &apos;Hello world&apos; ).
lo_worksheet-&gt;set_cell( ip_column = &apos;B&apos; ip_row = 3 ip_value = sy-datum ).
lo_worksheet-&gt;set_cell( ip_column = &apos;C&apos; ip_row = 3 ip_value = sy-uzeit ).
lo_hyperlink = zcl_excel_hyperlink=&gt;create_external_link( iv_url = &apos;https://cw.sdn.sap.com/cw/groups/abap2xlsx&apos; ).
lo_worksheet-&gt;set_cell( ip_column = &apos;B&apos; ip_row = 4 ip_value = &apos;Click here to visit abap2xlsx homepage&apos; ip_hyperlink = lo_hyperlink ).

column_dimension = lo_worksheet-&gt;get_column_dimension( ip_column = &apos;B&apos; ).
column_dimension-&gt;set_width( ip_width = 11 ).

CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
lv_file = lo_excel_writer-&gt;write_file( lo_excel ).

&quot; Save the file ONLINE
DATA: lo_spreadsheet TYPE REF TO zcl_docs_spreadsheet.

CREATE OBJECT lo_spreadsheet
EXPORTING
i_consumer_name = consumer
i_user_name = username
i_proxy_host = proxyhst
i_proxy_service = proxysrv
i_ssl_id = ssl_id.

lv_bytecount = XSTRLEN( lv_file ).

lo_spreadsheet-&gt;zif_docs~upload( i_document = lv_file
i_title = &apos;demo1froma2xlsx&apos; i_size = lv_bytecount ).</source>
</PROG>
4 changes: 4 additions & 0 deletions additional objects/WDYA/ZDEMO_EXCEL_WDA01.slnk
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
<?xml version="1.0" encoding="utf-16"?>
<WDYA APPLICATION_NAME="ZDEMO_EXCEL_WDA01" COMPONENT="ZDEMO_EXCEL_WDA01" STARTUP_VIEW="W_MAIN" STARTUP_PLUG="DEFAULT" DISPLAY_NAME="ZDEMO_EXCEL_WDA01" MSG_DISP_MODE="00" help_desc_txt="">
<wdy_applicationt APPLICATION_NAME="ZDEMO_EXCEL_WDA01" LANGU="E" DESCRIPTION="abap2xlsx Web Dynpro Demo 1"/>
</WDYA>
Loading