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

Ready to test #185

Browse Source 
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@320 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
This commit is contained in:
Gregor Wolf 2012-07-01 10:44:33 +00:00
parent cd1b8f99e6
commit 2d5fb26d4e
2 changed files with 723 additions and 707 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ZA2X/PROG/ZDEMO_CALENDAR.slnk
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-16"?> <?xml version="1.0" encoding="utf-16"?>
<PROG NAME="ZDEMO_CALENDAR" VARCL="X" SUBC="1" CNAM="DEVELOPER" CDAT="20111229" UNAM="DEVELOPER" UDAT="20111230" VERN="000116" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20111230" STIME="102417" IDATE="20111230" ITIME="102249" UCCHECK="X"> <PROG NAME="ZDEMO_CALENDAR" VARCL="X" SUBC="1" CNAM="DEVELOPER" CDAT="20111229" UNAM="DEVELOPER" UDAT="20120619" VERN="000127" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20120619" STIME="063434" IDATE="20120619" ITIME="063434" UCCHECK="X">
<textPool> <textPool>
<language SPRAS="D"> <language SPRAS="D">
<textElement ID="I" KEY="001" ENTRY="KW" LENGTH="4 "/> <textElement ID="I" KEY="001" ENTRY="KW" LENGTH="4 "/>
@ -44,8 +44,8 @@ INCLUDE zdemo_calendar_classes.
DATA: lv_workdir TYPE string. DATA: lv_workdir TYPE string.
PARAMETERS: p_path TYPE zexcel_export_dir. PARAMETERS: p_path TYPE zexcel_export_dir.
PARAMETERS: p_from TYPE demo_cr_date_from DEFAULT &apos;20120101&apos;, PARAMETERS: p_from TYPE dfrom DEFAULT &apos;20120101&apos;,
p_to TYPE demo_cr_date_to DEFAULT &apos;20121231&apos;. p_to TYPE dto DEFAULT &apos;20121231&apos;.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
lv_workdir = p_path. lv_workdir = p_path.
@ -63,6 +63,8 @@ START-OF-SELECTION.
DATA: lo_excel TYPE REF TO zcl_excel, DATA: lo_excel TYPE REF TO zcl_excel,
lo_excel_writer TYPE REF TO zif_excel_writer, lo_excel_writer TYPE REF TO zif_excel_writer,
lo_worksheet TYPE REF TO zcl_excel_worksheet, lo_worksheet TYPE REF TO zcl_excel_worksheet,
lo_col_dim TYPE REF TO zcl_excel_worksheet_columndime,
lo_row_dim TYPE REF TO ZCL_EXCEL_WORKSHEET_ROWDIMENSI,
lo_drawing TYPE REF TO zcl_excel_drawing. lo_drawing TYPE REF TO zcl_excel_drawing.
DATA: lo_style_month TYPE REF TO zcl_excel_style, DATA: lo_style_month TYPE REF TO zcl_excel_style,
@ -223,9 +225,12 @@ START-OF-SELECTION.
lo_worksheet-&gt;sheet_setup-&gt;margin_left = &apos;0.55&apos;. lo_worksheet-&gt;sheet_setup-&gt;margin_left = &apos;0.55&apos;.
lo_worksheet-&gt;sheet_setup-&gt;margin_right = &apos;0.05&apos;. lo_worksheet-&gt;sheet_setup-&gt;margin_right = &apos;0.05&apos;.
lo_worksheet-&gt;sheet_setup-&gt;margin_bottom = &apos;0.30&apos;. lo_worksheet-&gt;sheet_setup-&gt;margin_bottom = &apos;0.30&apos;.
lo_worksheet-&gt;get_column_dimension( &apos;A&apos; )-&gt;set_width( &apos;1.0&apos; ). lo_col_dim = lo_worksheet-&gt;get_column_dimension( &apos;A&apos; ).
lo_worksheet-&gt;get_column_dimension( &apos;B&apos; )-&gt;set_width( &apos;2.0&apos; ). lo_col_dim-&gt;set_width( &apos;1.0&apos; ).
lo_worksheet-&gt;get_column_dimension( &apos;K&apos; )-&gt;set_width( &apos;3.0&apos; ). lo_col_dim = lo_worksheet-&gt;get_column_dimension( &apos;B&apos; ).
lo_col_dim-&gt;set_width( &apos;2.0&apos; ).
lo_col_dim = lo_worksheet-&gt;get_column_dimension( &apos;K&apos; ).
lo_col_dim-&gt;set_width( &apos;3.0&apos; ).
lo_worksheet-&gt;sheet_setup-&gt;horizontal_centered = abap_true. lo_worksheet-&gt;sheet_setup-&gt;horizontal_centered = abap_true.
&quot; Add Month Name &quot; Add Month Name
@ -241,8 +246,8 @@ START-OF-SELECTION.
ip_style = lv_style_month_guid ip_style = lv_style_month_guid
). ).
to_col_int = zcl_excel_common=&gt;convert_column2int( from_col ). to_col_int = zcl_excel_common=&gt;convert_column2int( from_col ) + 7.
to_col = zcl_excel_common=&gt;convert_column2alpha( to_col_int + 7 ). to_col = zcl_excel_common=&gt;convert_column2alpha( to_col_int ).
lo_worksheet-&gt;set_merge( lo_worksheet-&gt;set_merge(
EXPORTING EXPORTING
@ -257,14 +262,15 @@ START-OF-SELECTION.
READ TABLE image_descriptions WITH KEY month_nr = month_nr ASSIGNING &lt;img_descr&gt;. READ TABLE image_descriptions WITH KEY month_nr = month_nr ASSIGNING &lt;img_descr&gt;.
IF &lt;img_descr&gt; IS ASSIGNED. IF &lt;img_descr&gt; IS ASSIGNED.
value = &lt;img_descr&gt;-descr. value = &lt;img_descr&gt;-descr.
row = from_row - 4. row = from_row - 3.
lo_worksheet-&gt;set_cell( lo_worksheet-&gt;set_cell(
EXPORTING EXPORTING
ip_column = from_col &quot; Cell Column ip_column = from_col &quot; Cell Column
ip_row = row &quot; Cell Row ip_row = row &quot; Cell Row
ip_value = value &quot; Cell Value ip_value = value &quot; Cell Value
). ).
lo_worksheet-&gt;get_row_dimension( row )-&gt;set_row_height( &apos;18.0&apos; ). lo_row_dim = lo_worksheet-&gt;get_row_dimension( row ).
lo_row_dim-&gt;set_row_height( &apos;22.0&apos; ).
CONCATENATE p_path lv_file_separator &lt;img_descr&gt;-filename INTO image_path. CONCATENATE p_path lv_file_separator &lt;img_descr&gt;-filename INTO image_path.
lo_drawing = lo_excel-&gt;add_new_drawing( ). lo_drawing = lo_excel-&gt;add_new_drawing( ).

28
ZA2X/PROG/ZDEMO_CALENDAR_CLASSES.slnk
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-16"?> <?xml version="1.0" encoding="utf-16"?>
<PROG NAME="ZDEMO_CALENDAR_CLASSES" VARCL="X" SUBC="I" CNAM="DEVELOPER" CDAT="20111229" UNAM="DEVELOPER" UDAT="20111230" VERN="000057" RMAND="001" RLOAD="E" SDATE="20111230" STIME="102417" IDATE="20111230" ITIME="102417" UCCHECK="X"> <PROG NAME="ZDEMO_CALENDAR_CLASSES" VARCL="X" SUBC="I" CNAM="DEVELOPER" CDAT="20111229" UNAM="DEVELOPER" UDAT="20120619" VERN="000062" RMAND="001" RLOAD="E" SDATE="20120619" STIME="060152" IDATE="20120619" ITIME="060152" UCCHECK="X">
<textPool> <textPool>
<language SPRAS="E"> <language SPRAS="E">
<textElement ID="R" ENTRY="Include ZDEMO_CALENDAR_CLASSES" LENGTH="30 "/> <textElement ID="R" ENTRY="Include ZDEMO_CALENDAR_CLASSES" LENGTH="30 "/>
@ -70,8 +70,11 @@ ENDCLASS. &quot;ZCL_DATE_CALCULATION IMPLEMENTATION
* *
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
CLASS zcl_date_calculation_test DEFINITION FOR TESTING CLASS zcl_date_calculation_test DEFINITION FOR TESTING
RISK LEVEL HARMLESS &quot; DURATION SHORT
DURATION SHORT. &quot; RISK LEVEL HARMLESS
&quot;#AU Duration Medium
&quot;#AU Risk_Level Harmless
.
PUBLIC SECTION. PUBLIC SECTION.
METHODS: METHODS:
months_between_two_dates FOR TESTING. months_between_two_dates FOR TESTING.
@ -198,9 +201,13 @@ CLASS zcl_helper IMPLEMENTATION.
ENDMETHOD. &quot;load_image ENDMETHOD. &quot;load_image
METHOD add_calendar. METHOD add_calendar.
DATA: row TYPE zexcel_cell_row, DATA: row TYPE zexcel_cell_row,
row_max TYPE i,
col_int TYPE zexcel_cell_column, col_int TYPE zexcel_cell_column,
col_max TYPE i,
from_col_int TYPE zexcel_cell_column, from_col_int TYPE zexcel_cell_column,
col TYPE zexcel_cell_column_alpha. col TYPE zexcel_cell_column_alpha,
lr_col_dim TYPE REF TO zcl_excel_worksheet_columndime,
lr_row_dim TYPE REF TO zcl_excel_worksheet_rowdimensi.
DATA: lv_date TYPE datum, DATA: lv_date TYPE datum,
value TYPE string, value TYPE string,
weekday TYPE wotnr, weekday TYPE wotnr,
@ -303,21 +310,24 @@ CLASS zcl_helper IMPLEMENTATION.
ip_hyperlink = hyperlink ip_hyperlink = hyperlink
). ).
col_int = from_col_int. col_int = from_col_int.
WHILE col_int &lt;= from_col_int + 7. col_max = from_col_int + 7.
WHILE col_int &lt;= col_max.
col = zcl_excel_common=&gt;convert_column2alpha( col_int ). col = zcl_excel_common=&gt;convert_column2alpha( col_int ).
IF sy-index = 1. IF sy-index = 1.
width = &apos;5.0&apos;. width = &apos;5.0&apos;.
ELSE. ELSE.
width = &apos;11.4&apos;. width = &apos;11.4&apos;.
ENDIF. ENDIF.
lr_col_dim = c_worksheet-&gt;get_column_dimension( col ).
c_worksheet-&gt;get_column_dimension( col )-&gt;set_width( width ). lr_col_dim-&gt;set_width( width ).
col_int = col_int + 1. col_int = col_int + 1.
ENDWHILE. ENDWHILE.
row = i_from_row + 1. row = i_from_row + 1.
WHILE row &lt;= i_from_row + 6. row_max = i_from_row + 6.
WHILE row &lt;= row_max.
height = 50. height = 50.
c_worksheet-&gt;get_row_dimension( row )-&gt;set_row_height( height ). lr_row_dim = c_worksheet-&gt;get_row_dimension( row ).
lr_row_dim-&gt;set_row_height( height ).
row = row + 1. row = row + 1.
ENDWHILE. ENDWHILE.
ENDMETHOD. &quot;add_calendar ENDMETHOD. &quot;add_calendar