SAP/abap2xlsx
1
0
Fork 0
mirror of https://github.com/abap2xlsx/abap2xlsx.git synced 2025-05-05 05:16:16 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity
72b99e10da
abap2xlsx/ZA2X/PROG/ZDEMO_EXCEL11.slnk
Ivan Femia 72b99e10da Demo reports have no longer fixed output 
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@22 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
2010-09-24 13:50:05 +00:00

459 lines
21 KiB
XML
Raw Blame History

<?xml version="1.0" encoding="utf-16"?>
<PROG NAME="ZDEMO_EXCEL11" VARCL="X" SUBC="1" CNAM="BCUSER" CDAT="20100809" UNAM="FEMIA" UDAT="20100924" VERN="000043" RSTAT="K" RMAND="000" RLOAD="E" FIXPT="X" SDATE="20100924" STIME="153901" IDATE="20100924" ITIME="153901" UCCHECK="X">
<textPool>
<language SPRAS="E">
<textElement ID="R" ENTRY="Export Organisation and Contact Persons using ABAP2XLSX" LENGTH="55 "/>
<textElement ID="S" KEY="COUNTRY" ENTRY="D ." LENGTH="19 "/>
<textElement ID="S" KEY="MAXSEL" ENTRY="D ." LENGTH="27 "/>
<textElement ID="S" KEY="MD" ENTRY=" Select by master data" LENGTH="29 "/>
<textElement ID="S" KEY="PARTNER" ENTRY="D ." LENGTH="9 "/>
<textElement ID="S" KEY="PARTNERC" ENTRY="D ." LENGTH="19 "/>
<textElement ID="S" KEY="POSTLCOD" ENTRY="D ." LENGTH="19 "/>
<textElement ID="S" KEY="REL" ENTRY=" Select by relationship" LENGTH="30 "/>
<textElement ID="S" KEY="RELTYP" ENTRY="D ." LENGTH="9 "/>
</language>
</textPool>
<source>*&amp;---------------------------------------------------------------------*
*&amp; Report ZDEMO_EXCEL11
*&amp; Export Organisation and Contact Persons using ABAP2XLSX
*&amp;---------------------------------------------------------------------*
*&amp;
*&amp;
*&amp;---------------------------------------------------------------------*
REPORT zdemo_excel11.
TYPE-POOLS: abap.
DATA: central_search TYPE bapibus1006_central_search,
addressdata_search TYPE bapibus1006_addr_search,
others_search TYPE bapibus1006_other_data.
DATA: searchresult TYPE TABLE OF bapibus1006_bp_addr,
return TYPE TABLE OF bapiret2.
DATA: lines TYPE i.
FIELD-SYMBOLS: &lt;searchresult_line&gt; LIKE LINE OF searchresult.
DATA: centraldata TYPE bapibus1006_central,
centraldataperson TYPE bapibus1006_central_person,
centraldataorganization TYPE bapibus1006_central_organ.
DATA: addressdata TYPE bapibus1006_address.
DATA: relationships TYPE TABLE OF bapibus1006_relations.
FIELD-SYMBOLS: &lt;relationship&gt; LIKE LINE OF relationships.
DATA: relationship_centraldata TYPE bapibus1006002_central.
DATA: relationship_addresses TYPE TABLE OF bapibus1006002_addresses.
FIELD-SYMBOLS: &lt;relationship_address&gt; LIKE LINE OF relationship_addresses.
DATA: lt_download TYPE TABLE OF zexcel_s_org_rel.
FIELD-SYMBOLS: &lt;download&gt; LIKE LINE OF lt_download.
PARAMETERS: md TYPE flag RADIOBUTTON GROUP act.
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE a.
PARAMETERS: partnerc TYPE bu_type DEFAULT 2, &quot; Organizations
postlcod TYPE ad_pstcd1 DEFAULT &apos;8334*&apos;,
country TYPE land1 DEFAULT &apos;DE&apos;,
maxsel TYPE bu_maxsel DEFAULT 100.
SELECTION-SCREEN END OF BLOCK a.
PARAMETERS: rel TYPE flag RADIOBUTTON GROUP act DEFAULT &apos;X&apos;.
SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE b.
PARAMETERS: reltyp TYPE bu_reltyp DEFAULT &apos;BUR011&apos;,
partner TYPE bu_partner DEFAULT &apos;191&apos;.
SELECTION-SCREEN END OF BLOCK b.
INITIALIZATION.
a = &apos;Select by master data&apos;.
b = &apos;Select by relationship&apos;.
START-OF-SELECTION.
IF md = abap_true.
&quot; Read all Companies by Master Data
central_search-partnercategory = partnerc.
addressdata_search-postl_cod1 = postlcod.
addressdata_search-country = country.
others_search-maxsel = maxsel.
others_search-no_search_for_contactperson = &apos;X&apos;.
CALL FUNCTION &apos;BAPI_BUPA_SEARCH_2&apos;
EXPORTING
centraldata = central_search
addressdata = addressdata_search
OTHERS = others_search
TABLES
searchresult = searchresult
return = return.
SORT searchresult BY partner.
DELETE ADJACENT DUPLICATES FROM searchresult COMPARING partner.
ELSEIF rel = abap_true.
&quot; Read by Relationship
SELECT but050~partner1 AS partner FROM but050
INNER JOIN but000 ON but000~partner = but050~partner1 AND but000~type = &apos;2&apos;
INTO CORRESPONDING FIELDS OF TABLE searchresult
WHERE but050~partner2 = partner
AND but050~reltyp = reltyp.
ENDIF.
DESCRIBE TABLE searchresult LINES lines.
WRITE: / &apos;Number of search results: &apos;, lines.
LOOP AT searchresult ASSIGNING &lt;searchresult_line&gt;.
&quot; Read Details of Organization
CALL FUNCTION &apos;BAPI_BUPA_CENTRAL_GETDETAIL&apos;
EXPORTING
businesspartner = &lt;searchresult_line&gt;-partner
IMPORTING
centraldataorganization = centraldataorganization.
&quot; Read Standard Address of Organization
CALL FUNCTION &apos;BAPI_BUPA_ADDRESS_GETDETAIL&apos;
EXPORTING
businesspartner = &lt;searchresult_line&gt;-partner
IMPORTING
addressdata = addressdata.
&quot; Add Organization to Download
APPEND INITIAL LINE TO lt_download ASSIGNING &lt;download&gt;.
&quot; Fill Organization Partner Numbers
CALL FUNCTION &apos;BAPI_BUPA_GET_NUMBERS&apos;
EXPORTING
businesspartner = &lt;searchresult_line&gt;-partner
IMPORTING
businesspartnerout = &lt;download&gt;-org_number
businesspartnerguidout = &lt;download&gt;-org_guid.
MOVE-CORRESPONDING centraldataorganization TO &lt;download&gt;.
MOVE-CORRESPONDING addressdata TO &lt;download&gt;.
CLEAR: addressdata.
&quot; Read all Relationships
CLEAR: relationships.
CALL FUNCTION &apos;BAPI_BUPA_RELATIONSHIPS_GET&apos;
EXPORTING
businesspartner = &lt;searchresult_line&gt;-partner
TABLES
relationships = relationships.
DELETE relationships WHERE relationshipcategory &lt;&gt; &apos;BUR001&apos;.
LOOP AT relationships ASSIGNING &lt;relationship&gt;.
&quot; Read details of Contact person
CALL FUNCTION &apos;BAPI_BUPA_CENTRAL_GETDETAIL&apos;
EXPORTING
businesspartner = &lt;relationship&gt;-partner2
IMPORTING
centraldata = centraldata
centraldataperson = centraldataperson.
&quot; Read details of the Relationship
CALL FUNCTION &apos;BAPI_BUPR_CONTP_GETDETAIL&apos;
EXPORTING
businesspartner = &lt;relationship&gt;-partner1
contactperson = &lt;relationship&gt;-partner2
IMPORTING
centraldata = relationship_centraldata.
&quot; Read relationship address
CLEAR: relationship_addresses.
CALL FUNCTION &apos;BAPI_BUPR_CONTP_ADDRESSES_GET&apos;
EXPORTING
businesspartner = &lt;relationship&gt;-partner1
contactperson = &lt;relationship&gt;-partner2
TABLES
addresses = relationship_addresses.
READ TABLE relationship_addresses
ASSIGNING &lt;relationship_address&gt;
WITH KEY standardaddress = &apos;X&apos;.
IF &lt;relationship_address&gt; IS ASSIGNED.
&quot; Read Relationship Address
CLEAR addressdata.
CALL FUNCTION &apos;BAPI_BUPA_ADDRESS_GETDETAIL&apos;
EXPORTING
businesspartner = &lt;searchresult_line&gt;-partner
addressguid = &lt;relationship_address&gt;-addressguid
IMPORTING
addressdata = addressdata.
APPEND INITIAL LINE TO lt_download ASSIGNING &lt;download&gt;.
CALL FUNCTION &apos;BAPI_BUPA_GET_NUMBERS&apos;
EXPORTING
businesspartner = &lt;relationship&gt;-partner1
IMPORTING
businesspartnerout = &lt;download&gt;-org_number
businesspartnerguidout = &lt;download&gt;-org_guid.
CALL FUNCTION &apos;BAPI_BUPA_GET_NUMBERS&apos;
EXPORTING
businesspartner = &lt;relationship&gt;-partner2
IMPORTING
businesspartnerout = &lt;download&gt;-contpers_number
businesspartnerguidout = &lt;download&gt;-contpers_guid.
MOVE-CORRESPONDING centraldataorganization TO &lt;download&gt;.
MOVE-CORRESPONDING addressdata TO &lt;download&gt;.
MOVE-CORRESPONDING centraldataperson TO &lt;download&gt;.
MOVE-CORRESPONDING relationship_centraldata TO &lt;download&gt;.
WRITE: / &lt;relationship&gt;-partner1, &lt;relationship&gt;-partner2.
WRITE: centraldataorganization-name1(20), centraldataorganization-name2(10).
WRITE: centraldataperson-firstname(15), centraldataperson-lastname(15).
WRITE: addressdata-street(25), addressdata-house_no,
addressdata-postl_cod1, addressdata-city(25).
ENDIF.
ENDLOOP.
ENDLOOP.
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_style_body TYPE REF TO zcl_excel_style,
lo_border_dark TYPE REF TO zcl_excel_style_border,
lo_border_light TYPE REF TO zcl_excel_style_border,
column_dimension TYPE REF TO zcl_excel_worksheet_columndime,
row_dimension TYPE REF TO zcl_excel_worksheet_rowdimensi.
DATA: lv_style_body_odd_guid TYPE zexcel_cell_style,
lv_style_body_even_guid TYPE zexcel_cell_style,
lv_style_body_green TYPE zexcel_cell_style,
lv_style_body_odd_n_guid TYPE zexcel_cell_style,
lv_style_body_even_n_guid TYPE zexcel_cell_style.
DATA: row TYPE zexcel_cell_row.
DATA: lv_file TYPE xstring,
lv_bytecount TYPE i,
lt_file_tab TYPE STANDARD TABLE OF solisti1.
DATA: lt_field_catalog TYPE zexcel_t_fieldcatalog,
ls_table_settings TYPE zexcel_s_table_settings.
DATA: column TYPE zexcel_cell_column,
column_alpha TYPE zexcel_cell_column_alpha,
value TYPE zexcel_cell_value.
FIELD-SYMBOLS: &lt;fs_field_catalog&gt; TYPE zexcel_s_fieldcatalog.
&quot; Creates active sheet
CREATE OBJECT lo_excel.
&quot; Create border object
CREATE OBJECT lo_border_dark.
lo_border_dark-&gt;border_color = zcl_excel_style_color=&gt;c_black.
lo_border_dark-&gt;border_style = zcl_excel_style_border=&gt;c_border_thin.
&quot;Create style with border odd
lo_style_body = lo_excel-&gt;add_new_style( ).
lo_style_body-&gt;fill-&gt;filltype = zcl_excel_style_fill=&gt;c_fill_solid.
lo_style_body-&gt;fill-&gt;fgcolor = zcl_excel_style_color=&gt;c_gray.
lo_style_body-&gt;borders-&gt;allborders = lo_border_dark.
lv_style_body_odd_guid = lo_style_body-&gt;get_guid( ).
&quot;Create style with border even
lo_style_body = lo_excel-&gt;add_new_style( ).
lo_style_body-&gt;fill-&gt;fgcolor = zcl_excel_style_color=&gt;c_yellow.
lo_style_body-&gt;borders-&gt;allborders = lo_border_dark.
lv_style_body_even_guid = lo_style_body-&gt;get_guid( ).
&quot;Create style with border and green fill
lo_style_body = lo_excel-&gt;add_new_style( ).
lo_style_body-&gt;fill-&gt;fgcolor = zcl_excel_style_color=&gt;c_green.
lo_style_body-&gt;borders-&gt;allborders = lo_border_dark.
lv_style_body_green = lo_style_body-&gt;get_guid( ).
&quot;Create style numeric with border odd
lo_style_body = lo_excel-&gt;add_new_style( ).
lo_style_body-&gt;fill-&gt;filltype = zcl_excel_style_fill=&gt;c_fill_solid.
lo_style_body-&gt;fill-&gt;fgcolor = zcl_excel_style_color=&gt;c_gray.
lo_style_body-&gt;borders-&gt;allborders = lo_border_dark.
lo_style_body-&gt;number_format-&gt;format_code = zcl_excel_style_number_format=&gt;c_format_number.
lv_style_body_odd_n_guid = lo_style_body-&gt;get_guid( ).
&quot;Create style numeric with border odd
lo_style_body = lo_excel-&gt;add_new_style( ).
lo_style_body-&gt;borders-&gt;allborders = lo_border_dark.
lo_style_body-&gt;number_format-&gt;format_code = zcl_excel_style_number_format=&gt;c_format_number.
lv_style_body_even_n_guid = lo_style_body-&gt;get_guid( ).
&quot; Get active sheet
lo_worksheet = lo_excel-&gt;get_active_worksheet( ).
lo_worksheet-&gt;title = &apos;Internal table&apos;.
lt_field_catalog = zcl_excel_common=&gt;get_fieldcatalog( ip_table = lt_download ).
LOOP AT lt_field_catalog ASSIGNING &lt;fs_field_catalog&gt;.
CASE &lt;fs_field_catalog&gt;-fieldname.
WHEN &apos;ORG_NUMBER&apos;.
&lt;fs_field_catalog&gt;-position = 1.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;CONTPERS_NUMBER&apos;.
&lt;fs_field_catalog&gt;-position = 2.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;NAME1&apos;.
&lt;fs_field_catalog&gt;-position = 3.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;NAME2&apos;.
&lt;fs_field_catalog&gt;-position = 4.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;STREET&apos;.
&lt;fs_field_catalog&gt;-position = 5.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;HOUSE_NO&apos;.
&lt;fs_field_catalog&gt;-position = 6.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;POSTL_COD1&apos;.
&lt;fs_field_catalog&gt;-position = 7.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;CITY&apos;.
&lt;fs_field_catalog&gt;-position = 8.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;COUNTRYISO&apos;.
&lt;fs_field_catalog&gt;-position = 9.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;FIRSTNAME&apos;.
&lt;fs_field_catalog&gt;-position = 10.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;LASTNAME&apos;.
&lt;fs_field_catalog&gt;-position = 11.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;FUNCTIONNAME&apos;.
&lt;fs_field_catalog&gt;-position = 12.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;DEPARTMENTNAME&apos;.
&lt;fs_field_catalog&gt;-position = 13.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;TEL1_NUMBR&apos;.
&lt;fs_field_catalog&gt;-position = 14.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;TEL1_EXT&apos;.
&lt;fs_field_catalog&gt;-position = 15.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;FAX_NUMBER&apos;.
&lt;fs_field_catalog&gt;-position = 16.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;FAX_EXTENS&apos;.
&lt;fs_field_catalog&gt;-position = 17.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN &apos;E_MAIL&apos;.
&lt;fs_field_catalog&gt;-position = 18.
&lt;fs_field_catalog&gt;-dynpfld = abap_true.
WHEN OTHERS.
&lt;fs_field_catalog&gt;-dynpfld = abap_false.
ENDCASE.
ENDLOOP.
ls_table_settings-top_left_column = &apos;A&apos;.
ls_table_settings-top_left_row = &apos;2&apos;.
ls_table_settings-table_style = zcl_excel_table=&gt;builtinstyle_medium5.
lo_worksheet-&gt;bind_table( ip_table = lt_download
is_table_settings = ls_table_settings
it_field_catalog = lt_field_catalog ).
LOOP AT lt_download ASSIGNING &lt;download&gt;.
row = sy-tabix + 2.
IF NOT &lt;download&gt;-org_number IS INITIAL
AND &lt;download&gt;-contpers_number IS INITIAL.
&quot; Mark fields of Organization which can be changed green
lo_worksheet-&gt;set_cell_style(
ip_column = &apos;C&apos;
ip_row = row
ip_style = lv_style_body_green
).
lo_worksheet-&gt;set_cell_style(
ip_column = &apos;D&apos;
ip_row = row
ip_style = lv_style_body_green
).
* CATCH zcx_excel. &quot; Exceptions for ABAP2XLSX
ELSEIF NOT &lt;download&gt;-org_number IS INITIAL
AND NOT &lt;download&gt;-contpers_number IS INITIAL.
&quot; Mark fields of Relationship which can be changed green
lo_worksheet-&gt;set_cell_style(
ip_column = &apos;L&apos; ip_row = row ip_style = lv_style_body_green
).
lo_worksheet-&gt;set_cell_style(
ip_column = &apos;M&apos; ip_row = row ip_style = lv_style_body_green
).
lo_worksheet-&gt;set_cell_style(
ip_column = &apos;N&apos; ip_row = row ip_style = lv_style_body_green
).
lo_worksheet-&gt;set_cell_style(
ip_column = &apos;O&apos; ip_row = row ip_style = lv_style_body_green
).
lo_worksheet-&gt;set_cell_style(
ip_column = &apos;P&apos; ip_row = row ip_style = lv_style_body_green
).
lo_worksheet-&gt;set_cell_style(
ip_column = &apos;Q&apos; ip_row = row ip_style = lv_style_body_green
).
lo_worksheet-&gt;set_cell_style(
ip_column = &apos;R&apos; ip_row = row ip_style = lv_style_body_green
).
ENDIF.
ENDLOOP.
&quot; Add Fieldnames in first row and hide the row
LOOP AT lt_field_catalog ASSIGNING &lt;fs_field_catalog&gt;
WHERE position &lt;&gt; &apos;&apos; AND dynpfld = abap_true.
column = &lt;fs_field_catalog&gt;-position.
column_alpha = zcl_excel_common=&gt;convert_column2alpha( column ).
value = &lt;fs_field_catalog&gt;-fieldname.
lo_worksheet-&gt;set_cell( ip_column = column_alpha
ip_row = 1
ip_value = value
ip_style = lv_style_body_even_guid ).
ENDLOOP.
&quot; Hide first row
row_dimension = lo_worksheet-&gt;get_row_dimension( 1 ).
row_dimension-&gt;set_visible( abap_false ).
&quot; Set Column width
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;A&apos; ).
column_dimension-&gt;set_width( ip_width = 11 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;B&apos; ).
column_dimension-&gt;set_width( ip_width = 11 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;C&apos; ).
column_dimension-&gt;set_width( ip_width = 35 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;E&apos; ).
column_dimension-&gt;set_width( ip_width = 18 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;F&apos; ).
column_dimension-&gt;set_width( ip_width = 5 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;G&apos; ).
column_dimension-&gt;set_width( ip_width = 6 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;H&apos; ).
column_dimension-&gt;set_width( ip_width = 12 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;I&apos; ).
column_dimension-&gt;set_width( ip_width = 3 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;J&apos; ).
column_dimension-&gt;set_width( ip_width = 13 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;K&apos; ).
column_dimension-&gt;set_width( ip_width = 13 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;L&apos; ).
column_dimension-&gt;set_width( ip_width = 13 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;M&apos; ).
column_dimension-&gt;set_width( ip_width = 13 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;N&apos; ).
column_dimension-&gt;set_width( ip_width = 12 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;O&apos; ).
column_dimension-&gt;set_width( ip_width = 9 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;P&apos; ).
column_dimension-&gt;set_width( ip_width = 12 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;Q&apos; ).
column_dimension-&gt;set_width( ip_width = 9 ).
column_dimension = lo_worksheet-&gt;get_column_dimension( &apos;R&apos; ).
column_dimension-&gt;set_width( ip_width = 40 ).
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
lv_file = lo_excel_writer-&gt;write_file( lo_excel ).
&quot; Convert to binary
CALL FUNCTION &apos;SCMS_XSTRING_TO_BINARY&apos;
EXPORTING
buffer = lv_file
IMPORTING
output_length = lv_bytecount
TABLES
binary_tab = lt_file_tab.
&quot; Save the file
CALL FUNCTION &apos;GUI_DOWNLOAD&apos;
EXPORTING
bin_filesize = lv_bytecount
filename = &apos;C:\ZDEMO_EXCEL11.xlsx&apos;
filetype = &apos;BIN&apos;
TABLES
data_tab = lt_file_tab.</source>
</PROG>
Reference in New Issue View Git Blame Copy Permalink