Create XLSX from any table X-Systems using ABAP2XLSX

[Tron]

Usefull Coding for Archiving Data tables from different SAP Systems into Excel sheets using ABAP2XLSX.
Special thanks to SAP Mentors and Stefan Schmöcker for continously working on ABAP2XLSX Project

001.png (41.58 KiB) Viewed 6971 times

Example to download Service Orders with BAPI_ALM_ORDER_GET_DETAIL and BAPI_CUSTOMER_GETDETAIL2

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. *&---------------------------------------------------------------------*
2. *& Report  ZBC_XLSX_DOWNLOAD_FUMO
3. *&
4. *&---------------------------------------------------------------------*
5. *&
6. *&
7. *&---------------------------------------------------------------------*
8.  
9. REPORT zbc_xlsx_download_fumo_csord.
10. *&---------------------------------------------------------------------*
11. *&---------------------------------------------------------------------*
12.  
13. DATA ls_sel TYPE ddshselopt.
14. DATA lt_sel TYPE TABLE OF ddshselopt.
15.  
16. "USAGE:  m_selopt 'FIELD' S_SELOPT.
17. DEFINE m_selopt .
18.   CLEAR ls_sel.
19.   ls_sel-shlpfield = &1.
20.   LOOP AT &2.
21.     MOVE-CORRESPONDING &2 TO ls_sel.
22.     APPEND ls_sel TO lt_sel.
23.   ENDLOOP.
24. END-OF-DEFINITION.
25. *&---------------------------------------------------------------------*
26. *&---------------------------------------------------------------------*
27.  
28. CONSTANTS htab(1) VALUE %_horizontal_tab.
29.  
30. DATA: excel         TYPE REF TO zcl_excel ##NEEDED,
31.       act_worksheet TYPE REF TO zcl_excel_worksheet.
32.  
33.  
34. DATA msg_text(80).
35.  
36. TYPE-POOLS: abap.
37.  
38. **** Keyfields
39. TYPES:
40.   BEGIN OF ty_key,
41.     aufnr TYPE aufnr,
42.   END OF ty_key.
43.  
44. **** for Excel Headline
45. TYPES:
46.   BEGIN OF ty_hdr,
47.     tablname  TYPE tabname,
48.     fieldname TYPE fieldname,
49.     ddtext    TYPE ddtext,
50.     reptext   TYPE reptext,
51.   END OF ty_hdr.
52.  
53. DATA lt_hdr TYPE TABLE OF ty_hdr.
54. DATA ls_hdr TYPE ty_hdr.
55.  
56. FIELD-SYMBOLS:
57.   <dyn_field>                TYPE any,
58.   <dyn_rec>                  TYPE any,
59.   <dyn_tab>                  TYPE  STANDARD TABLE,
60.  
61.   " table for BAPI_ALM_ORDER_GET_DETAIL
62.   <et_partner>               TYPE STANDARD TABLE,
63.   <et_components>            TYPE STANDARD TABLE,
64.   <et_operations>            TYPE STANDARD TABLE,
65.   <et_relations>             TYPE STANDARD TABLE,
66.   <et_srules>                TYPE STANDARD TABLE,
67.   <et_olist>                 TYPE STANDARD TABLE,
68.   <et_oprol>                 TYPE STANDARD TABLE,
69.   <et_texts>                 TYPE STANDARD TABLE,
70.   <et_text_lines>            TYPE STANDARD TABLE,
71.   <et_prts>                  TYPE STANDARD TABLE,
72.   <et_costs_sum>             TYPE STANDARD TABLE,
73.   <et_costs_details>         TYPE STANDARD TABLE,
74.   <et_reforder_serno_olist>  TYPE STANDARD TABLE,
75.   <et_serviceoutline>        TYPE STANDARD TABLE,
76.   <et_servicelines>          TYPE STANDARD TABLE,
77.   <et_servicelimit>          TYPE STANDARD TABLE,
78.   <et_servicecontractlimits> TYPE STANDARD TABLE,
79.   <et_permit>                TYPE STANDARD TABLE,
80.   <et_permit_issue>          TYPE STANDARD TABLE,
81.  
82.   " Header table dummy
83.   <et_header>                TYPE STANDARD TABLE,
84.   <et_srvdata>               TYPE STANDARD TABLE,
85.   <et_reforder_item>         TYPE STANDARD TABLE,
86.   <t_customeraddress>        TYPE STANDARD TABLE,
87.  
88.   " Header structure
89.   <es_header>                TYPE any,
90.   <es_srvdata>               TYPE any,
91.   <es_reforder_item>         TYPE any,
92.   <es_partner>               TYPE any,
93.   <s_customeraddress>        TYPE any.
94.  
95. DATA t_operations TYPE STANDARD TABLE OF bapi_alm_order_operation_e.
96.  
97.  
98. DATA lt_key TYPE TABLE OF ty_key.
99. DATA ls_key TYPE ty_key.
100.  
101. DATA:
102.   toptions    TYPE TABLE OF rfc_db_opt,
103.   tfields     TYPE TABLE OF rfc_db_fld,
104.   tdata       TYPE TABLE OF ytab4000,
105.   sdata       TYPE ytab4000,
106.   i_excel     TYPE  solix_tab,
107.   i_excel_len TYPE  i.
108.  
109. DATA t_bapiret TYPE TABLE OF bapiret2.
110. DATA s_bapiret TYPE  bapiret2.
111.  
112.  
113. DATA lv_path TYPE string VALUE 'C:\Temp\STULI\ZBC_XLSX_DOWNLOAD_'.
114. DATA lv_pfad TYPE string .
115. DATA gv_matnr TYPE mara-matnr.
116. DATA g_msg TYPE tab512.
117. DATA l_datuv TYPE datuv_bi.
118. DATA l_cust TYPE bapicustomer_id-customer.
119.  
120. PARAMETERS p_upl(40) TYPE c LOWER CASE OBLIGATORY DEFAULT 'C:\temp\CSORD\KEY\CSORD_key.txt'.
121. PARAMETERS p_dwn(40) TYPE c LOWER CASE OBLIGATORY DEFAULT 'C:\Temp\CSORD\'.
122. PARAMETERS p_log(40) TYPE c LOWER CASE OBLIGATORY DEFAULT 'C:\Temp\CSORD\LOG\'.
123. PARAMETERS p_lang TYPE sy-langu DEFAULT sy-langu.
124.  
125. PARAMETERS p_des1 TYPE rfcdes-rfcdest OBLIGATORY DEFAULT 'PRDCLNT200'.
126. PARAMETERS p_max TYPE soid-accnt DEFAULT '10000'.
127.  
128. lv_path = p_dwn.
129.  
130. * Tables
131. PERFORM create_itab USING 'BAPI_ALM_ORDER_PARTNER' . ASSIGN <dyn_tab> TO  <et_partner>. ASSIGN <dyn_rec> TO <es_partner>.
132. PERFORM create_itab USING 'BAPI_ALM_ORDER_OPERATION_E' . ASSIGN <dyn_tab> TO  <et_operations>.
133. PERFORM create_itab USING 'BAPI_ALM_ORDER_COMPONENT_E' . ASSIGN <dyn_tab> TO  <et_components>.
134. PERFORM create_itab USING 'BAPI_ALM_ORDER_RELATION_EXPORT' . ASSIGN <dyn_tab> TO  <et_relations>.
135. PERFORM create_itab USING 'BAPI_ALM_ORDER_SRULE_E' . ASSIGN <dyn_tab> TO  <et_srules>.
136. PERFORM create_itab USING 'BAPI_ALM_ORDER_OBJECTLIST' . ASSIGN <dyn_tab> TO  <et_olist>.
137. PERFORM create_itab USING 'BAPI_ALM_OLIST_RELATION' . ASSIGN <dyn_tab> TO  <et_oprol>.
138. PERFORM create_itab USING 'BAPI_ALM_TEXT' . ASSIGN <dyn_tab> TO  <et_texts>.
139. PERFORM create_itab USING 'BAPI_ALM_TEXT_LINES' . ASSIGN <dyn_tab> TO  <et_text_lines>.
140. PERFORM create_itab USING 'BAPI_ALM_ORDER_PRT_E' . ASSIGN <dyn_tab> TO  <et_prts>.
141. PERFORM create_itab USING 'BAPI_ALM_ORDER_COSTS_SUM_E' . ASSIGN <dyn_tab> TO  <et_costs_sum>.
142. PERFORM create_itab USING 'BAPI_ALM_ORDER_COSTS_DETAIL_E' . ASSIGN <dyn_tab> TO  <et_costs_details>.
143. PERFORM create_itab USING 'BAPI_REFORDER_SERNO_OLIST' . ASSIGN <dyn_tab> TO  <et_reforder_serno_olist>.
144. PERFORM create_itab USING 'BAPI_ALM_SRV_OUTLINE' . ASSIGN <dyn_tab> TO  <et_serviceoutline>.
145. PERFORM create_itab USING 'BAPI_ALM_SRV_SERVICE_LINE' . ASSIGN <dyn_tab> TO  <et_servicelines>.
146. PERFORM create_itab USING 'BAPI_ALM_SRV_LIMIT_DATA' . ASSIGN <dyn_tab> TO  <et_servicelimit>.
147. PERFORM create_itab USING 'BAPI_ALM_SRV_CONTRACT_LIMITS' . ASSIGN <dyn_tab> TO  <et_servicecontractlimits>.
148. PERFORM create_itab USING 'BAPI_ALM_ORDER_PERMIT_READ' . ASSIGN <dyn_tab> TO  <et_permit>.
149. PERFORM create_itab USING 'BAPI_ALM_ORDER_PER_ISSUE_R' . ASSIGN <dyn_tab> TO  <et_permit_issue>.
150.  
151. PERFORM create_itab USING 'BAPI_ALM_ORDER_HEADER_E'. ASSIGN <dyn_tab> TO  <et_header>. ASSIGN <dyn_rec> TO <es_header>.
152. PERFORM create_itab USING 'BAPI_ALM_ORDER_SRVDAT_E'. ASSIGN <dyn_tab> TO  <et_srvdata>. ASSIGN <dyn_rec> TO <es_srvdata>.
153. PERFORM create_itab USING 'BAPI_REFORDER_ITEM'. ASSIGN <dyn_tab> TO  <et_reforder_item>. ASSIGN <dyn_rec> TO <es_reforder_item>.
154.  
155. PERFORM create_itab USING 'BAPICUSTOMER_04' . ASSIGN <dyn_tab> TO  <t_customeraddress>. ASSIGN <dyn_rec> TO <s_customeraddress>.
156.  
157.  
158.  
159. PERFORM upload_keys.
160.  
161. LOOP AT lt_key INTO ls_key.
162.  
163.   REFRESH:
164.   <et_partner>  ,
165.   <et_operations>,
166.   <et_components>,
167.   <et_relations>,
168.   <et_srules>,
169.   <et_olist>,
170.   <et_oprol>,
171.   <et_texts>,
172.   <et_text_lines>,
173.   <et_prts>,
174.   <et_costs_sum>,
175.   <et_costs_details>,
176.   <et_reforder_serno_olist>,
177.   <et_serviceoutline>,
178.   <et_servicelines>,
179.   <et_servicelimit>,
180.   <et_servicecontractlimits>,
181.   <et_permit>,
182.   <et_permit_issue>,
183.  
184.   <t_customeraddress>,
185.  
186.     <et_header>,
187.     <et_srvdata>,
188.     <et_reforder_item>.
189.  
190.   " Header structure
191.   CLEAR:
192.   <s_customeraddress>,
193.   <es_header>,
194.   <es_srvdata>,
195.   <es_reforder_item>.
196.  
197.  
198.   CONCATENATE ls_key-aufnr '.xlsx'  INTO lv_pfad .
199.   CONCATENATE lv_path lv_pfad INTO lv_pfad.
200.  
201.  
202.   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
203.     EXPORTING
204.       input  = ls_key-aufnr
205.     IMPORTING
206.       output = ls_key-aufnr.
207.  
208.   CALL FUNCTION 'BAPI_ALM_ORDER_GET_DETAIL' DESTINATION p_des1
209.     EXPORTING
210.       number                   = ls_key-aufnr
211.     IMPORTING
212.       es_header                = <es_header>
213.       es_srvdata               = <es_srvdata>
214.       es_reforder_item         = <es_reforder_item>
215.     TABLES
216.       et_partner               = <et_partner>
217.       et_operations            = <et_operations>
218.       et_components            = <et_components>
219.       et_relations             = <et_relations>
220.       et_srules                = <et_srules>
221.       et_olist                 = <et_olist>
222.       et_oprol                 = <et_oprol>
223.       et_texts                 = <et_texts>
224.       et_text_lines            = <et_text_lines>
225.       et_prts                  = <et_prts>
226.       et_costs_sum             = <et_costs_sum>
227.       et_costs_details         = <et_costs_details>
228.       return                   = t_bapiret
229.       et_reforder_serno_olist  = <et_reforder_serno_olist>
230.       et_serviceoutline        = <et_serviceoutline>
231.       et_servicelines          = <et_servicelines>
232.       et_servicelimit          = <et_servicelimit>
233.       et_servicecontractlimits = <et_servicecontractlimits>
234.       et_permit                = <et_permit>
235.       et_permit_issue          = <et_permit_issue>
236.     EXCEPTIONS
237.       communication_failure    = 1 MESSAGE msg_text
238.       system_failure           = 2 MESSAGE msg_text
239.       OTHERS                   = 3.
240.  
241.   IF NOT <es_header> IS INITIAL. APPEND <es_header> TO <et_header>. ENDIF.
242.   IF NOT <es_srvdata> IS INITIAL. APPEND <es_srvdata> TO <et_srvdata>. ENDIF.
243.   IF NOT <es_reforder_item> IS INITIAL. APPEND <es_reforder_item> TO <et_reforder_item>. ENDIF.
244.  
245.  
246.  
247.   IF sy-subrc <> 0.
248. *    CONCATENATE 'BOM:' gv_matnr
249. *                'Plant:' ls_mast-werks
250. *                'Type:' ls_mast-stlan
251. *                'Altern.:' ls_mast-stlal
252. *                '===> failed to read' INTO
253. *                g_msg SEPARATED BY space.
254. *    PERFORM collect_log USING ' ' g_msg .
255.     CONTINUE.
256.   ENDIF.
257.  
258. * Get Partner AG Address
259.   LOOP AT <et_partner> INTO  <es_partner>.
260.     UNASSIGN <dyn_field>.
261.     ASSIGN COMPONENT 'PARTN_ROLE_OLD' OF STRUCTURE <es_partner> TO <dyn_field>.
262.     IF sy-subrc = 0.
263.       IF <dyn_field> = 'AG'.
264.         UNASSIGN <dyn_field>.
265.         ASSIGN COMPONENT 'PARTNER_OLD' OF STRUCTURE <es_partner> TO <dyn_field>.
266.         IF sy-subrc = 0.
267.  
268.           CLEAR s_bapiret.
269.           l_cust = <dyn_field>.
270.           CALL FUNCTION 'BAPI_CUSTOMER_GETDETAIL2' DESTINATION p_des1
271.             EXPORTING
272.               customerno            = l_cust
273.             IMPORTING
274.               customeraddress       = <s_customeraddress>
275.               return                = s_bapiret
276.             EXCEPTIONS
277.               communication_failure = 1 MESSAGE msg_text
278.               system_failure        = 2 MESSAGE msg_text
279.               OTHERS                = 3.
280.  
281.           IF NOT  <s_customeraddress> IS INITIAL.
282.             APPEND  <s_customeraddress> TO  <t_customeraddress>.
283.           ENDIF.
284.  
285.         ENDIF.
286.       ENDIF.
287.     ENDIF.
288.   ENDLOOP.
289.  
290. *  PERFORM append_to_file.
291.  
292.  
293.   " Header Structures
294.   IF NOT <et_header>[] IS INITIAL. PERFORM create_excel TABLES <et_header> USING 'BAPI_ALM_ORDER_HEADER_E'. ENDIF.
295.   IF NOT <et_srvdata>[] IS INITIAL. PERFORM create_excel TABLES <et_srvdata> USING 'BAPI_ALM_ORDER_SRVDAT_E'. ENDIF.
296.   IF NOT <et_reforder_item>[] IS INITIAL. PERFORM create_excel TABLES <et_reforder_item> USING 'BAPI_REFORDER_ITEM'. ENDIF.
297.  
298.   IF NOT <et_partner>[] IS INITIAL. PERFORM create_excel TABLES <et_partner> USING 'BAPI_ALM_ORDER_PARTNER'. ENDIF.
299.   IF NOT <et_operations>[] IS INITIAL. PERFORM create_excel TABLES <et_operations> USING 'BAPI_ALM_ORDER_OPERATION_E'. ENDIF.
300.   IF NOT <et_components>[] IS INITIAL. PERFORM create_excel TABLES <et_components> USING 'BAPI_ALM_ORDER_COMPONENT_E'. ENDIF.
301.   IF NOT <et_relations>[] IS INITIAL. PERFORM create_excel TABLES <et_relations> USING 'BAPI_ALM_ORDER_RELATION_EXPORT'. ENDIF.
302.   IF NOT <et_srules>[] IS INITIAL. PERFORM create_excel TABLES <et_srules> USING 'BAPI_ALM_ORDER_SRULE_E'. ENDIF.
303.   IF NOT <et_olist>[] IS INITIAL. PERFORM create_excel TABLES <et_olist> USING 'BAPI_ALM_ORDER_OBJECTLIST'. ENDIF.
304.   IF NOT <et_oprol>[] IS INITIAL. PERFORM create_excel TABLES <et_oprol> USING 'BAPI_ALM_OLIST_RELATION'. ENDIF.
305.   IF NOT <et_texts>[] IS INITIAL. PERFORM create_excel TABLES <et_texts> USING 'BAPI_ALM_TEXT'. ENDIF.
306.   IF NOT <et_text_lines>[] IS INITIAL. PERFORM create_excel TABLES <et_text_lines> USING 'BAPI_ALM_TEXT_LINES'. ENDIF.
307.   IF NOT <et_prts>[] IS INITIAL. PERFORM create_excel TABLES <et_prts> USING 'BAPI_ALM_ORDER_PRT_E'. ENDIF.
308.   IF NOT <et_costs_sum>[] IS INITIAL. PERFORM create_excel TABLES <et_costs_sum> USING 'BAPI_ALM_ORDER_COSTS_SUM_E'. ENDIF.
309.   IF NOT <et_costs_details>[] IS INITIAL. PERFORM create_excel TABLES <et_costs_details> USING 'BAPI_ALM_ORDER_COSTS_DETAIL_E'. ENDIF.
310.   IF NOT <et_reforder_serno_olist>[] IS INITIAL. PERFORM create_excel TABLES <et_reforder_serno_olist> USING 'BAPI_REFORDER_SERNO_OLIST'. ENDIF.
311.   IF NOT <et_serviceoutline>[] IS INITIAL. PERFORM create_excel TABLES <et_serviceoutline> USING 'BAPI_ALM_SRV_OUTLINE'. ENDIF.
312.   IF NOT <et_servicelines>[] IS INITIAL. PERFORM create_excel TABLES <et_servicelines> USING 'BAPI_ALM_SRV_SERVICE_LINE'. ENDIF.
313.   IF NOT <et_servicelimit>[] IS INITIAL. PERFORM create_excel TABLES <et_servicelimit> USING 'BAPI_ALM_SRV_LIMIT_DATA'. ENDIF.
314.   IF NOT <et_servicecontractlimits>[] IS INITIAL. PERFORM create_excel TABLES <et_servicecontractlimits> USING 'BAPI_ALM_SRV_CONTRACT_LIMITS'. ENDIF.
315.   IF NOT <et_permit>[] IS INITIAL. PERFORM create_excel TABLES <et_permit> USING 'BAPI_ALM_ORDER_PERMIT_READ'. ENDIF.
316.   IF NOT <et_permit_issue>[] IS INITIAL. PERFORM create_excel TABLES <et_permit_issue> USING 'BAPI_ALM_ORDER_PER_ISSUE_R'. ENDIF.
317.  
318.   IF NOT <t_customeraddress>[] IS INITIAL. PERFORM create_excel TABLES <t_customeraddress> USING 'BAPICUSTOMER_04'. ENDIF.
319.  
320.  
321.   IF excel IS  BOUND.
322.  
323.  
324.     TRY.
325.         excel->set_active_sheet_index( i_active_worksheet = 1 ).
326.       CATCH zcx_excel .
327.     ENDTRY.
328.  
329.     PERFORM write_excel_file USING lv_pfad.
330.  
331.     FREE excel.
332.  
333.   ENDIF.
334.  
335. ENDLOOP.
336.  
337. PERFORM collect_log USING 'X' g_msg .
338.  
339. *&---------------------------------------------------------------------*
340. *&      Form  stxcompare
341. *&---------------------------------------------------------------------*
342. *       text
343. *----------------------------------------------------------------------*
344.  
345. FORM fill_itab.
346.   DATA lt TYPE TABLE OF tab512.
347.   DATA ls TYPE tab512.
348.   DATA l_idx TYPE i.
349.  
350.   DATA s_fields TYPE rfc_db_fld.
351.  
352.   FIELD-SYMBOLS <ls> TYPE tab512.
353.  
354.   LOOP AT tdata INTO sdata.
355.  
356.     SPLIT sdata-wa AT htab INTO TABLE lt.
357.  
358.     " delete all ":" in time vars
359.     LOOP AT tfields INTO s_fields WHERE type = 'T'.
360.       READ TABLE lt ASSIGNING <ls> INDEX sy-tabix.
361.       IF sy-subrc = 0.
362.         REPLACE ALL OCCURRENCES OF ':' IN <ls> WITH ''.
363.       ENDIF.
364.     ENDLOOP.
365.  
366.     LOOP AT lt INTO ls.
367.       l_idx = sy-tabix.
368.       ASSIGN COMPONENT l_idx OF STRUCTURE <dyn_rec> TO <dyn_field>.
369.       <dyn_field> = ls-wa.
370.     ENDLOOP.
371.  
372.     INSERT <dyn_rec> INTO TABLE <dyn_tab>.
373.  
374.   ENDLOOP.
375.  
376. ENDFORM.
377. *&---------------------------------------------------------------------*
378. *&      Form  stxcompare
379. *&---------------------------------------------------------------------*
380. *       text
381. *----------------------------------------------------------------------*
382.  
383. FORM create_excel TABLES i_tab  USING i_sheetname TYPE zexcel_sheet_title.
384.   CONSTANTS    : first_column   TYPE char1     VALUE 'A'
385.                .
386.   DATA         : worksheet      TYPE REF TO zcl_excel_worksheet
387.                , worksheet_title TYPE zexcel_sheet_title
388.                , table_settings TYPE zexcel_s_table_settings
389.                .
390.   DATA           lo_theme       TYPE REF TO zcl_excel_theme.
391.  
392.   DATA: lv_row   TYPE zexcel_cell_row,
393.         lv_col   TYPE i,
394.         lv_value TYPE string.
395.  
396.  
397.   table_settings-table_style    = zcl_excel_table=>builtinstyle_medium2.
398.   table_settings-show_row_stripes
399.                                 = abap_true.
400.   table_settings-nofilters      = abap_true.
401.   table_settings-top_left_column
402.                                 = first_column.
403.   table_settings-top_left_row   = 02.
404.  
405.   TRY.
406.  
407.       IF excel IS NOT BOUND.
408.         CREATE OBJECT excel.
409.         worksheet                   = excel->get_active_worksheet( ).
410.       ELSE.
411.         worksheet                   = excel->add_new_worksheet( ).
412.       ENDIF.
413.  
414. *      lo_theme->set_latin_font(
415. *       EXPORTING
416. *         iv_type        = zcl_excel_theme_font_scheme=>c_minor
417. *         iv_typeface    = 'Arial monospaced for SAP'
418. **      iv_panose      =
419. **      iv_pitchfamily =
420. **      iv_charset     =
421. *     ).
422.  
423.       worksheet_title               = i_sheetname.
424.       worksheet->set_title( worksheet_title ).
425.       worksheet->bind_table(
426.         ip_table                    = i_tab[]
427.         is_table_settings           = table_settings
428.         ).
429.  
430.       lv_row = 1.
431.       LOOP AT lt_hdr INTO ls_hdr WHERE tablname = i_sheetname.
432.  
433.         lv_col = lv_col + 1.
434.         lv_value = ls_hdr-reptext.
435.  
436.         worksheet->set_cell( ip_column = lv_col ip_row = lv_row ip_value = lv_value ).
437.  
438.         worksheet->change_cell_style(  ip_column           = lv_col
439.                                        ip_row              = lv_row
440.                                        ip_fill_filltype    = zcl_excel_style_fill=>c_fill_solid
441.                                        ip_fill_fgcolor_rgb = zcl_excel_style_color=>c_gray ).
442.       ENDLOOP.
443.  
444.     CATCH zcx_excel .
445.   ENDTRY.
446.  
447.  
448. ENDFORM.
449. FORM write_excel_file USING i_file TYPE string.
450.  
451. *** Create output
452.   DATA:
453.     cl_writer TYPE REF TO zif_excel_writer.
454.  
455.   DATA: xdata     TYPE xstring.         " Will be used for sending as email
456.   " t_rawdata TYPE solix_tab,           " Will be used for downloading or open directly
457.   " bytecount TYPE i.                   " Will be used for downloading or open directly
458.  
459.   CREATE OBJECT cl_writer TYPE zcl_excel_writer_2007.
460.  
461.   xdata = cl_writer->write_file( excel ).
462.   i_excel = cl_bcs_convert=>xstring_to_solix( iv_xstring  = xdata ).
463.   i_excel_len = xstrlen( xdata ).
464.  
465. * Get trailing blank
466.   cl_gui_frontend_services=>gui_download( EXPORTING bin_filesize = i_excel_len
467.                                                     filename     = i_file
468.                                                     filetype     = 'BIN'
469.                                            CHANGING data_tab     = i_excel ).
470.  
471. ENDFORM.
472.  
473.  
474. FORM upload_keys.
475.   DATA l_path TYPE string.
476.   l_path = p_upl.
477.  
478.   CALL METHOD cl_gui_frontend_services=>gui_upload
479.     EXPORTING
480.       filename                = l_path
481. *     filetype                = 'ASC'
482.       has_field_separator     = 'X'
483. *     header_length           = 0
484. *     read_by_line            = 'X'
485. *     dat_mode                = SPACE
486. *     codepage                = SPACE
487. *     ignore_cerr             = ABAP_TRUE
488. *     replacement             = '#'
489. *     virus_scan_profile      =
490. *  IMPORTING
491. *     filelength              =
492. *     header                  =
493.     CHANGING
494.       data_tab                = lt_key
495. *     isscanperformed         = SPACE
496.     EXCEPTIONS
497.       file_open_error         = 1
498.       file_read_error         = 2
499.       no_batch                = 3
500.       gui_refuse_filetransfer = 4
501.       invalid_type            = 5
502.       no_authority            = 6
503.       unknown_error           = 7
504.       bad_data_format         = 8
505.       header_not_allowed      = 9
506.       separator_not_allowed   = 10
507.       header_too_long         = 11
508.       unknown_dp_error        = 12
509.       access_denied           = 13
510.       dp_out_of_memory        = 14
511.       disk_full               = 15
512.       dp_timeout              = 16
513.       not_supported_by_gui    = 17
514.       error_no_gui            = 18
515.       OTHERS                  = 19.
516.   IF sy-subrc <> 0.
517.   ENDIF.
518.  
519.  
520.  
521. ENDFORM.
522.  
523. *&---------------------------------------------------------------------*
524. *&      Form  create_itab
525. *&---------------------------------------------------------------------*
526. *       text
527. *----------------------------------------------------------------------*
528.  
529. FORM create_itab USING i_tdef TYPE dd02l-tabname .
530.   DATA t_field_def TYPE TABLE OF rpy_fiel.
531.   DATA s_field_def TYPE rpy_fiel.
532.  
533.   UNASSIGN:
534.     <dyn_field>,
535.     <dyn_rec>,
536.     <dyn_tab>.
537.  
538.  
539.   CALL FUNCTION 'RPY_TABLE_READ' DESTINATION p_des1
540.     EXPORTING
541. *     ACTIVATION_TYPE_I     = 'M'
542.       language              = p_lang
543.       table_name            = i_tdef
544. *     WITH_DOCU             = ' '
545. *     DOCUTYPE              = 'U'
546. * IMPORTING
547. *     TABL_INF              =
548. *     TABL_TECHNICS         =
549. *     ACTIVATION_TYPE_O     =
550.     TABLES
551.       tabl_fields           = t_field_def
552. *     DOCU_TABLE_USER       =
553. *     DOCU_TABLE_TECH       =
554.     EXCEPTIONS
555.       cancelled             = 1
556.       not_found             = 2
557.       permission_error      = 3
558.       illegal_type          = 4
559.       communication_failure = 5 MESSAGE msg_text
560.       system_failure        = 6 MESSAGE msg_text
561.       OTHERS                = 7.
562.  
563.   IF sy-subrc <> 0.
564.     EXIT.
565.   ENDIF.
566.  
567.  
568.   DATA:
569.     ldp_dyn_table     TYPE REF TO data,
570.     lop_tabledescr    TYPE REF TO cl_abap_tabledescr,
571.     ldp_dynaic_record TYPE REF TO data,
572.     lop_strucdescr    TYPE REF TO cl_abap_structdescr,
573.     ls_component      TYPE abap_componentdescr,
574.     lt_component      TYPE abap_component_tab,
575.     lv_desc           TYPE REF TO cl_abap_typedescr.
576.  
577.   DATA l_field_length   TYPE i.
578.   DATA l_decimals   TYPE i.
579.   DATA fields TYPE  rfc_db_fld.
580.  
581.   DATA lv_int1 TYPE int1.
582.   DATA lv_int2 TYPE int2.
583.   DATA lv_int4 TYPE int4.
584.  
585.  
586.   LOOP AT t_field_def INTO s_field_def WHERE intlength > 0.
587.  
588.     MOVE-CORRESPONDING s_field_def TO ls_hdr.
589.     APPEND ls_hdr TO lt_hdr.
590.  
591.     "    READ TABLE t_field_def INTO s_field_def WITH KEY fieldname = fields-fieldname.
592.  
593.     IF sy-subrc = 0.
594.       CASE s_field_def-datatype.
595.         WHEN 'CHAR' OR 'UNIT' OR 'CUKY'
596. .         l_field_length = s_field_def-length.
597.           ls_component-name = s_field_def-fieldname.
598.           ls_component-type = cl_abap_elemdescr=>get_c( p_length = l_field_length ).
599.           APPEND ls_component TO lt_component.
600.  
601.         WHEN 'LANG'.
602.           l_field_length = s_field_def-length.
603.           ls_component-name = s_field_def-fieldname.
604.           ls_component-type = cl_abap_elemdescr=>get_c( p_length = l_field_length ).
605.           APPEND ls_component TO lt_component.
606.  
607.         WHEN 'DEC' OR 'QUAN' OR 'CURR'.
608.           l_field_length = s_field_def-intlength
609. .           l_decimals = s_field_def-decimals.
610.           ls_component-name = s_field_def-fieldname.
611.           ls_component-type = cl_abap_elemdescr=>get_p( p_length = l_field_length  p_decimals = l_decimals ).
612.           APPEND ls_component TO lt_component.
613.  
614.         WHEN 'NUMC'.
615.           l_field_length = s_field_def-length.
616.           ls_component-name = s_field_def-fieldname.
617.           ls_component-type = cl_abap_elemdescr=>get_n( p_length = l_field_length ).
618.           APPEND ls_component TO lt_component.
619.  
620.         WHEN 'INT1' OR 'INT2' OR 'INT4'.
621.  
622.           ls_component-name = s_field_def-fieldname.
623.  
624.           IF s_field_def-datatype = 'INT1'.
625.             ls_component-type ?= cl_abap_elemdescr=>describe_by_data( p_data = lv_int1 ).
626.           ELSEIF  s_field_def-datatype = 'INT2'.
627.             ls_component-type ?= cl_abap_elemdescr=>describe_by_data( p_data = lv_int2 ).
628.           ELSEIF  s_field_def-datatype = 'INT4'.
629.             ls_component-type ?= cl_abap_elemdescr=>describe_by_data( p_data = lv_int4 ).
630.           ENDIF.
631.  
632.           APPEND ls_component TO lt_component.
633.  
634.         WHEN 'DATS'.
635.           l_field_length = s_field_def-length.
636.           ls_component-name = s_field_def-fieldname.
637.           ls_component-type = cl_abap_elemdescr=>get_d( ).
638.           APPEND ls_component TO lt_component.
639.  
640.         WHEN 'TIMS'.
641.           l_field_length = s_field_def-length.
642.           ls_component-name = s_field_def-fieldname.
643.           ls_component-type = cl_abap_elemdescr=>get_t( ).
644.           APPEND ls_component TO lt_component.
645.  
646.         WHEN OTHERS.
647.           break-point.
648.           l_field_length = s_field_def-length.
649.           ls_component-name = s_field_def-fieldname.
650.           ls_component-type = cl_abap_elemdescr=>get_c( p_length = l_field_length ).
651.           APPEND ls_component TO lt_component.
652.  
653.       ENDCASE.
654.     ENDIF.
655.  
656.   ENDLOOP.
657.  
658.   lop_strucdescr = cl_abap_structdescr=>create( lt_component ).
659.   CREATE DATA ldp_dynaic_record TYPE HANDLE lop_strucdescr.
660.   lop_tabledescr ?= cl_abap_tabledescr=>create( p_line_type = lop_strucdescr ).
661.  
662.   CREATE DATA ldp_dyn_table TYPE HANDLE lop_tabledescr.
663.  
664.   ASSIGN ldp_dynaic_record->* TO <dyn_rec>.
665.   ASSIGN ldp_dyn_table->* TO <dyn_tab>.
666.  
667. *    ACCP
668. *    CHAR
669. *    CLNT
670. *    CUKY
671. *    CURR
672. *    DATS
673. *    DEC
674. *    DF16_DEC
675. *    DF16_RAW
676. *    DF16_SCL
677. *    DF34_DEC
678. *    DF34_RAW
679. *    DF34_SCL
680. *    FLTP
681. *    INT1
682. *    INT2
683. *    INT4
684. *    LANG
685. *    LCHR
686. *    LRAW
687. *    NUMC
688. *    PREC
689. *    QUAN
690. *    RAW
691. *    RAWSTRING
692. *    SSTRING
693. *    STRING
694. *    TIMS
695. *    UNIT
696. *    VARC
697.  
698. ENDFORM.
699.  
700. FORM collect_log USING i_coll TYPE xfeld i_msg TYPE tab512.
701.   "PARAMETERS p_log(40) TYPE c LOWER CASE OBLIGATORY DEFAULT 'C:\Temp\STULI\'.
702.   DATA fn TYPE string.
703.   DATA s_msg TYPE tab512.
704.  
705.   STATICS t_msg TYPE TABLE OF tab512.
706.  
707.   IF i_coll IS INITIAL.
708.     s_msg-wa = i_msg.
709.     APPEND s_msg TO t_msg.
710.   ELSE.
711.     IF NOT t_msg[] IS INITIAL.
712.       CONCATENATE p_log 'stueli_log' sy-datum '_' sy-uzeit '.txt' INTO fn.
713.  
714.       CALL METHOD cl_gui_frontend_services=>gui_download
715.         EXPORTING
716.           filename                = fn
717.           trunc_trailing_blanks   = 'X'
718.         CHANGING
719.           data_tab                = t_msg
720.         EXCEPTIONS
721.           file_write_error        = 1
722.           no_batch                = 2
723.           gui_refuse_filetransfer = 3
724.           invalid_type            = 4
725.           no_authority            = 5
726.           unknown_error           = 6
727.           header_not_allowed      = 7
728.           separator_not_allowed   = 8
729.           filesize_not_allowed    = 9
730.           header_too_long         = 10
731.           dp_error_create         = 11
732.           dp_error_send           = 12
733.           dp_error_write          = 13
734.           unknown_dp_error        = 14
735.           access_denied           = 15
736.           dp_out_of_memory        = 16
737.           disk_full               = 17
738.           dp_timeout              = 18
739.           file_not_found          = 19
740.           dataprovider_exception  = 20
741.           control_flush_error     = 21
742.           not_supported_by_gui    = 22
743.           error_no_gui            = 23
744.           OTHERS                  = 24.
745.  
746.       IF sy-subrc <> 0.
747.       ENDIF.
748.     ENDIF.
749.  
750.   ENDIF.
751.  
752. ENDFORM.
753.  
754. *FORM append_to_file.
755. *  DATA fn TYPE string.
756. *
757. *  CONCATENATE p_dwn 'STKO_API.txt' INTO fn.
758. *
759. *  CALL METHOD cl_gui_frontend_services=>gui_download
760. *    EXPORTING
761. **     bin_filesize              =
762. *      filename                  = fn
763. *      filetype                  = 'ASC'
764. *      append                    = 'X'
765. *      write_field_separator     = 'X'
766. **     header                    = '00'
767. *      trunc_trailing_blanks     = 'X'
768. *      trunc_trailing_blanks_eol = 'X'
769. *    CHANGING
770. *      data_tab                  = <t_stko>[]
771. *    EXCEPTIONS
772. *      file_write_error          = 1
773. *      no_batch                  = 2
774. *      gui_refuse_filetransfer   = 3
775. *      invalid_type              = 4
776. *      no_authority              = 5
777. *      unknown_error             = 6
778. *      header_not_allowed        = 7
779. *      separator_not_allowed     = 8
780. *      filesize_not_allowed      = 9
781. *      header_too_long           = 10
782. *      dp_error_create           = 11
783. *      dp_error_send             = 12
784. *      dp_error_write            = 13
785. *      unknown_dp_error          = 14
786. *      access_denied             = 15
787. *      dp_out_of_memory          = 16
788. *      disk_full                 = 17
789. *      dp_timeout                = 18
790. *      file_not_found            = 19
791. *      dataprovider_exception    = 20
792. *      control_flush_error       = 21
793. *      not_supported_by_gui      = 22
794. *      error_no_gui              = 23
795. *      OTHERS                    = 24.
796. *  .
797. *  IF sy-subrc <> 0.
798. ** Implement suitable error handling here
799. *  ENDIF.
800. *
801. *
802. *  CONCATENATE p_dwn 'STPO_API.txt' INTO fn.
803. *
804. *  CALL METHOD cl_gui_frontend_services=>gui_download
805. *    EXPORTING
806. **     bin_filesize              =
807. *      filename                  = fn
808. *      filetype                  = 'ASC'
809. *      append                    = 'X'
810. *      write_field_separator     = 'X'
811. **     header                    = '00'
812. *      trunc_trailing_blanks     = 'X'
813. *      trunc_trailing_blanks_eol = 'X'
814. *    CHANGING
815. *      data_tab                  = <t_stpo>[]
816. *    EXCEPTIONS
817. *      file_write_error          = 1
818. *      no_batch                  = 2
819. *      gui_refuse_filetransfer   = 3
820. *      invalid_type              = 4
821. *      no_authority              = 5
822. *      unknown_error             = 6
823. *      header_not_allowed        = 7
824. *      separator_not_allowed     = 8
825. *      filesize_not_allowed      = 9
826. *      header_too_long           = 10
827. *      dp_error_create           = 11
828. *      dp_error_send             = 12
829. *      dp_error_write            = 13
830. *      unknown_dp_error          = 14
831. *      access_denied             = 15
832. *      dp_out_of_memory          = 16
833. *      disk_full                 = 17
834. *      dp_timeout                = 18
835. *      file_not_found            = 19
836. *      dataprovider_exception    = 20
837. *      control_flush_error       = 21
838. *      not_supported_by_gui      = 22
839. *      error_no_gui              = 23
840. *      OTHERS                    = 24.
841. *  .
842. *  IF sy-subrc <> 0.
843. ** Implement suitable error handling here
844. *  ENDIF.
845. *
846. *ENDFORM.
847.  
848. INITIALIZATION.
849.   DATA:
850.     l_report   TYPE raldb_repo,
851.     l_variante TYPE raldb_vari,
852.     BEGIN OF t_info OCCURS 0,
853.       typ(1),
854.       null(1),
855.       line(120),
856.     END OF t_info.
857.  
858. ** Lade Variante sy-uname
859.   l_report   = sy-repid.
860.   l_variante = sy-uname.
861.  
862.  
863.   CALL FUNCTION 'RS_COVERPAGE_SELECTIONS'
864.     EXPORTING
865.       report  = l_report
866.       variant = l_variante
867.     TABLES
868.       infotab = t_info
869.     EXCEPTIONS
870.       OTHERS  = 3.
871.  

GeSHi ©